prevent fishing pool to spawn on safe maps (#394)

ao-org · Sep 22, 2023 · 19b1687 · 19b1687
1 parent 46614ea
commit 19b1687
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/Codigo/FileIO.bas b/Codigo/FileIO.bas
@@ -29,7 +29,7 @@ Attribute VB_Name = "ES"
 Option Explicit
 
 Const MAX_RANDOM_TELEPORT_IN_MAP = 20
-Const FISHING_REQUIRED_PERCENT = 95
+Const FISHING_REQUIRED_PERCENT = 90
 Const FISHING_TILES_ON_MAP = 10
 Const FISHING_POOL_ID = 3740
 Private Type t_Position
@@ -2069,7 +2069,7 @@ Public Sub CargarMapaFormatoCSM(ByVal map As Long, ByVal MAPFl As String)
                             End If
                         Else
                             ' Lo guardo en los logs + aparece en el Debug.Print
-310                         Call TraceError(404, "NPC no existe en los .DAT's o está mal dateado. Posicion: " & Map & "-" & NPCs(i).X & "-" & NPCs(i).Y, "ES.CargarMapaFormatoCSM")
+310                         Call TraceError(404, "NPC no existe en los .DAT's o está mal dateado. Posicion: " & Map & "-" & NPCs(i).x & "-" & NPCs(i).y, "ES.CargarMapaFormatoCSM")
                         End If
                     End If
 312             Next i
@@ -2098,7 +2098,7 @@ Public Sub CargarMapaFormatoCSM(ByVal map As Long, ByVal MAPFl As String)
             End If
         End If
 
-        If SailingTiles * 100 / TotalTiles > FISHING_REQUIRED_PERCENT Then
+        If SailingTiles * 100 / TotalTiles > FISHING_REQUIRED_PERCENT And Not MapDat.Seguro Then
             Call AddFishingPoolsToMap(Map)
         End If