From 86c4e9cb103d60c56db27b2ebc699715a7cc84c0 Mon Sep 17 00:00:00 2001
From: Lucas Recoaro <lucas.recoaro@gmail.com>
Date: Thu, 22 Feb 2024 19:13:37 +1300
Subject: [PATCH] Revert "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 f81a8902..8b5bab32 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()