From c2c20f13ad9ce19b381181cd78203b8107511a7e Mon Sep 17 00:00:00 2001
From: ReyarB <50249497+ReyarB@users.noreply.github.com>
Date: Fri, 20 Sep 2024 14:22:37 -0300
Subject: [PATCH] Update Trabajo.bas

---
 Codigo/Trabajo.bas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Codigo/Trabajo.bas b/Codigo/Trabajo.bas
index 2e3babf9..d31e117f 100644
--- a/Codigo/Trabajo.bas
+++ b/Codigo/Trabajo.bas
@@ -3533,5 +3533,5 @@ Public Function GetExtractResourceForLevel(ByVal level As Integer) As Integer
     Dim lower As Long
     lower = Int(CDbl(level + 0.000001) / 3.6)
     upper = Int(CDbl(level + 0.000001) / 2)
-    GetExtractResourceForLevel = 5 + RandomNumber(lower, upper)
+    GetExtractResourceForLevel = RandomNumber(lower, upper)
 End Function