From 19b168709496edf7a1a30ecf90f2072f5682bf3b Mon Sep 17 00:00:00 2001 From: matiascalegaris Date: Fri, 22 Sep 2023 19:12:46 -0300 Subject: [PATCH] prevent fishing pool to spawn on safe maps (#394) --- Codigo/FileIO.bas | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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