From deca2dcc7ee15b0bedcc9cfd2ea35993406b902d Mon Sep 17 00:00:00 2001
From: Lucas Recoaro <lucas.recoaro@gmail.com>
Date: Thu, 22 Feb 2024 11:25:33 +1300
Subject: [PATCH] Fix HoraFantasia_Timer type missmatch

---
 Codigo/frmMain.frm | 38 +++++++++++++++++++-------------------
 1 file changed, 19 insertions(+), 19 deletions(-)

diff --git a/Codigo/frmMain.frm b/Codigo/frmMain.frm
index 8b5bab32..f81a8902 100644
--- a/Codigo/frmMain.frm
+++ b/Codigo/frmMain.frm
@@ -1527,25 +1527,25 @@ HayError:
     Call TraceError(Err.Number, Err.Description & vbNewLine & "UserIndex:" & iUserIndex, "frmMain.GameTimer", Erl)
 End Sub
 
-Private Sub HoraFantasia_Timer()
-        
-    On Error GoTo HoraFantasia_Timer_Err
-    If Lloviendo Then
-        Label6.Caption = "Lloviendo"
-    Else
-        Label6.Caption = "No llueve"
-    End If
-
-    If ServidorNublado Then
-        Label7.Caption = "Nublado"
-    Else
-        Label7.Caption = "Sin nubes"
-    End If
-    frmMain.Label4.Caption = GetTimeFormated
-    Exit Sub
-HoraFantasia_Timer_Err:
-    Call TraceError(Err.Number, Err.Description, "frmMain.HoraFantasia_Timer", Erl)
-End Sub
+'Private Sub HoraFantasia_Timer()
+'        
+'    On Error GoTo HoraFantasia_Timer_Err
+'    If Lloviendo Then
+'        Label6.Caption = "Lloviendo"
+'    Else
+'        Label6.Caption = "No llueve"
+'    End If
+'
+'    If ServidorNublado Then
+'        Label7.Caption = "Nublado"
+'    Else
+'        Label7.Caption = "Sin nubes"
+'    End If
+'    frmMain.Label4.Caption = GetTimeFormated
+'    Exit Sub
+'HoraFantasia_Timer_Err:
+'    Call TraceError(Err.Number, Err.Description, "frmMain.HoraFantasia_Timer", Erl)
+'End Sub
 
 
 Private Sub mnuCerrar_Click()