From b8685d818eb924606514cd2074de669c852e160e Mon Sep 17 00:00:00 2001
From: ReyarB <50249497+ReyarB@users.noreply.github.com>
Date: Sat, 6 Jul 2024 09:08:33 -0300
Subject: [PATCH] Paso a configuracion.ini valores de la pesca insegura

---
 Codigo/Declares.bas | 4 ++++
 Codigo/FileIO.bas   | 7 ++++---
 Configuracion.ini   | 6 ++++++
 3 files changed, 14 insertions(+), 3 deletions(-)

diff --git a/Codigo/Declares.bas b/Codigo/Declares.bas
index 3a01cc58..5cba01f3 100644
--- a/Codigo/Declares.bas
+++ b/Codigo/Declares.bas
@@ -178,6 +178,10 @@ Public MaximoSpeedHack      As Integer
 Public LastRecordUsuarios   As Integer
 Public GlobalFrameTime      As Long
 
+Public FISHING_REQUIRED_PERCENT As Integer
+Public FISHING_TILES_ON_MAP     As Integer
+Public FISHING_POOL_ID          As Integer
+
 Type t_EstadisticasDiarias
 
     segundos As Double
diff --git a/Codigo/FileIO.bas b/Codigo/FileIO.bas
index bff61092..8dd254a3 100644
--- a/Codigo/FileIO.bas
+++ b/Codigo/FileIO.bas
@@ -29,9 +29,7 @@ Attribute VB_Name = "ES"
 Option Explicit
 
 Const MAX_RANDOM_TELEPORT_IN_MAP = 20
-Const FISHING_REQUIRED_PERCENT = 90
-Const FISHING_TILES_ON_MAP = 10
-Public Const FISHING_POOL_ID = 3740
+
 Private Type t_Position
 
     x As Integer
@@ -2847,6 +2845,9 @@ Sub LoadConfiguraciones()
 
 122     MaximoSpeedHack = val(Leer.GetValue("ANTICHEAT", "MaximoSpeedHack"))
 
+123     FISHING_REQUIRED_PERCENT = val(Leer.GetValue("PESCA", "MinAgua"))
+124     FISHING_TILES_ON_MAP = val(Leer.GetValue("PESCA", "MaxZonas"))
+125     FISHING_POOL_ID = val(Leer.GetValue("PESCA", "FishingID"))
 
 126     Set Leer = Nothing
 
diff --git a/Configuracion.ini b/Configuracion.ini
index 3d318f35..a5ef4e4a 100644
--- a/Configuracion.ini
+++ b/Configuracion.ini
@@ -50,3 +50,9 @@ DropMult=1
 
 [ANTICHEAT]
 MaximoSpeedHack=4
+
+
+[PESCA]
+MinAgua=95
+MaxZonas=3
+FishingID=3740
\ No newline at end of file