diff --git a/Codigo/FileIO.bas b/Codigo/FileIO.bas index b4a1f6c6..845264d8 100644 --- 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