Merge pull request #177 from ao-libre/happyhour

Added happy hour experience functionality

Author: RecoX

Codigo/Declares.bas

@@ -1979,6 +1979,18 @@ Public EnPausa                            As Boolean
 
 Public EnTesting                          As Boolean
 
+' Sistema de Happy Hour (adaptado de 0.13.5)
+Public iniHappyHourActivado As Boolean ' GSZAO
+Public HappyHour As Single      ' 0.13.5
+Public HappyHourActivated As Boolean      ' 0.13.5
+
+Public Type tHappyHour ' GSZAO
+    Multi As Single ' Multi
+    Hour As Integer ' Hora
+End Type
+
+Public HappyHourDays(1 To 7) As tHappyHour    ' 0.13.5
+
 '*****************ARRAYS PUBLICOS*************************
 Public UserList()                         As User 'USUARIOS
 

Codigo/FileIO.bas

@@ -1825,9 +1825,22 @@ Sub LoadSini()
 
     RECORDusuarios = val(Lector.GetValue("INIT", "Record"))
 
+    ' HappyHour
+    Dim lDayNumberTemp As Long
+    Dim sDayName As String
+    
+    iniHappyHourActivado = IIf(Lector.GetValue("HAPPYHOUR", "Activado") = 1, True, False)
+    For lDayNumberTemp = 1 To 7
+        sDayName = Lector.GetValue("HAPPYHOUR", "Dia" & lDayNumberTemp)
+        HappyHourDays(lDayNumberTemp).Hour = val(ReadField(1, sDayName, 45)) ' GSZAO
+        HappyHourDays(lDayNumberTemp).Multi = val(ReadField(2, sDayName, 45)) ' 0.13.5
+        If HappyHourDays(lDayNumberTemp).Hour < 0 Or HappyHourDays(lDayNumberTemp).Hour > 23 Then HappyHourDays(lDayNumberTemp).Hour = 20 ' Hora de 0 a 23.
+        If HappyHourDays(lDayNumberTemp).Multi < 0 Then HappyHourDays(lDayNumberTemp).Multi = 0
+    Next
+
     'Conexion con la API hecha en Node.js      
     'Mas info aqui: https://github.com/ao-libre/ao-api-server/
-    ConexionAPI = CBool(GetVar(IniPath & "Server.ini", "CONEXIONAPI", "Activado"))
+    ConexionAPI = CBool(Lector.GetValue("CONEXIONAPI", "Activado"))
 
     'CHOTS | Database
     Database_Enabled = CBool(val(Lector.GetValue("DATABASE", "Enabled")))

Codigo/MODULO_NPCs.bas

@@ -1147,6 +1147,7 @@ Public Function OpenNPC(ByVal NpcNumber As Integer, _
         .flags.OldHostil = .Hostile
 
         .GiveEXP = val(Leer.GetValue("NPC" & NpcNumber, "GiveEXP")) * ExpMultiplier
+        If HappyHourActivated And (HappyHour <> 0) Then .GiveEXP = .GiveEXP * HappyHour
 
         .flags.ExpCount = .GiveEXP
 

Codigo/frmMain.frm

@@ -366,6 +366,67 @@ Sub CheckIdleUser()
 
 End Sub
 
+Public Sub UpdateNpcsExp(ByVal Multiplicador As Single) ' 0.13.5
+    Dim NpcIndex As Long
+    For NpcIndex = 1 To LastNPC
+        With Npclist(NpcIndex)
+            .GiveEXP = .GiveEXP * Multiplicador
+            .flags.ExpCount = .flags.ExpCount * Multiplicador
+        End With
+    Next NpcIndex
+End Sub
+
+Private Sub HappyHourManager
+    If iniHappyHourActivado = True Then
+        Dim tmpHappyHour As Double
+    
+        ' HappyHour
+        Dim iDay As Integer ' 0.13.5
+
+        iDay = Weekday(Date)
+        tmpHappyHour = HappyHourDays(iDay).Multi
+         
+        If tmpHappyHour <> HappyHour Then ' 0.13.5
+            If HappyHourActivated Then
+                ' Reestablece la exp de los npcs
+               If HappyHour <> 0 Then Call UpdateNpcsExp(1 / HappyHour)
+             End If
+           
+            If tmpHappyHour = 1 Then ' Desactiva
+               Call SendData(SendTarget.ToAll, 0, PrepareMessageConsoleMsg("Ha concluido la Happy Hour!", FontTypeNames.FONTTYPE_DIOS))
+                 HappyHourActivated = False
+           
+            Else ' Activa?
+                If HappyHourDays(iDay).Hour = Hour(Now) And tmpHappyHour > 0 Then ' GSZAO - Es la hora pautada?
+                    UpdateNpcsExp tmpHappyHour
+                    
+                    If HappyHour <> 1 Then
+                       Call SendData(SendTarget.ToAll, 0, _
+                           PrepareMessageConsoleMsg("Se ha modificado la Happy Hour, a partir de ahora las criaturas aumentan su experiencia en un " & Round((tmpHappyHour - 1) * 100, 2) & "%", FontTypeNames.FONTTYPE_DIOS))
+                    Else
+                       Call SendData(SendTarget.ToAll, 0, _
+                           PrepareMessageConsoleMsg("Ha comenzado la Happy Hour! Las criaturas aumentan su experiencia en un " & Round((tmpHappyHour - 1) * 100, 2) & "%!", FontTypeNames.FONTTYPE_DIOS))
+                    End If
+                    
+                    HappyHourActivated = True
+                Else
+                    HappyHourActivated = False ' GSZAO
+                End If
+            End If
+         
+            HappyHour = tmpHappyHour
+        End If
+    Else
+        ' Si estaba activado, lo deshabilitamos
+        If HappyHour <> 0 Then
+            Call UpdateNpcsExp(1 / HappyHour)
+            Call SendData(SendTarget.ToAll, 0, PrepareMessageConsoleMsg("Ha concluido la Happy Hour!", FontTypeNames.FONTTYPE_DIOS))
+            HappyHourActivated = False
+            HappyHour = 0
+        End If
+    End If
+End Sub
+
 Private Sub AutoSave_Timer()
 
     On Error GoTo ErrHandler
@@ -380,6 +441,8 @@ Private Sub AutoSave_Timer()
     Minutos = Minutos + 1
     MinsPjesSave = MinsPjesSave + 1
 
+    Call HappyHourManager
+
     '??????????
     Call ModAreas.AreasOptimizacion
     '??????????

Server.ini

@@ -163,3 +163,14 @@ Host=argentumonlinefree.cjq47ruczip9.sa-east-1.rds.amazonaws.com
 Name=argentumonline
 Username=argentumonline
 Password=CHANGEME
+
+[HAPPYHOUR]
+Activado=1
+## Formato: Hora-% (la hora es de 0 a 23hs) (el % es convertido x100, 1 el doble de exp)
+Dia1=22-1	## Lunes
+Dia2=20-1
+Dia3=21-1
+Dia4=22-1
+Dia5=22-2
+Dia6=22-2
+Dia7=21-2	## Domingo