Merge pull request #627 from ao-org/GetExtractResourceForLevel-

Update Trabajo.bas
ao-org · Sep 22, 2024 · f44029d · f44029d
2 parents e42c997 + c2c20f1
commit f44029d
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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