Se arreglo funcion CheckEstadoDelMar ahora reinicia correctamente el …

…contador de minutos.
ao-libre · Aug 21, 2020 · 2e658a1 · 2e658a1
1 parent 26f2d67
commit 2e658a1
Show file tree

Hide file tree

Showing 4 changed files with 41 additions and 5 deletions.
diff --git a/Codigo/Evento_Pesca.bas b/Codigo/Evento_Pesca.bas
@@ -62,7 +62,7 @@ Public Function DamePez(ByVal ZonaUser As Byte) As Long
     DamePez = Zona(ZonaUser).Peces(RandomNumber(LBound(Zona(ZonaUser).Peces()), UBound(Zona(ZonaUser).Peces())))
 End Function
 
-Public Sub estadoDelMar(ByVal MinsEventoPesca As Long)
+Public Sub CheckEstadoDelMar(ByRef MinsEventoPesca As Long)
 
     With PescaEvent
 
@@ -103,5 +103,4 @@ Public Sub estadoDelMar(ByVal MinsEventoPesca As Long)
         End If
 
     End With
-
 End Sub
diff --git a/Codigo/frmMain.frm b/Codigo/frmMain.frm
@@ -724,7 +724,7 @@ Private Sub AutoSave_Timer()
 
     End If
 
-    Call estadoDelMar(MinsEventoPesca)
+    Call CheckEstadoDelMar(MinsEventoPesca)
 
     Call CheckIdleUser
 

diff --git a/Dat/EventoPesca.dat b/Dat/EventoPesca.dat
@@ -26,3 +26,40 @@ Pez1=544
 Pez2=545
 Pez3=546
 
+[ZONA5]
+Mapa=75
+Cantidad=3
+Pez1=544
+Pez2=545
+Pez3=546
+
+[ZONA6]
+Mapa=171
+Cantidad=3
+Pez1=544
+Pez2=545
+Pez3=546
+
+[ZONA7]
+Mapa=131
+Cantidad=3
+Pez1=544
+Pez2=545
+Pez3=546
+
+[ZONA8]
+Mapa=47
+Cantidad=3
+Pez1=544
+Pez2=545
+Pez3=546
+
+[ZONA9]
+Mapa=110
+Cantidad=3
+Pez1=544
+Pez2=545
+Pez3=546
+
+
+
diff --git a/Server.ini b/Server.ini
@@ -105,8 +105,8 @@ DificultadMinar= 6
 #Se modifican las zonas en archivo EventoPesca.dat
 [EVENTOPESCA]
 Activado=1
-Tiempo=180
-CantidadDeZonas=4
+Tiempo=240
+CantidadDeZonas=9
 
 [TIMERS]
 IntervaloPuedeSerAtacado=5000