1 - Dentro del modulo Declaraciones agregamos:
2 - Luego en el Sub LoadSini() en el modulo ES (FileIO.bas) debajo de :
Agregamos
3 - Buscamos en el ModFacciones :
Y abajo de todo hay una parte q dice:
4 - Buscamos:
Y arriba agregamos:
5 - Vamos al Server.ini y agregamos:
Donde X y Y son los valores que deseamos.
Código:
Public CaosTM As String
Public RealTM As String
2 - Luego en el Sub LoadSini() en el modulo ES (FileIO.bas) debajo de :
Código:
If frmMain.Visible Then frmMain.txStatus.Caption = "Cargando info de inicio del server."
Agregamos
Código:
RealTM = val(GetVar(IniPath & "MIINI.ini", "FACCIONES", "Real"))
CaosTM = val(GetVar(IniPath & "MIINI.ini", "FACCIONES", "Caos"))
3 - Buscamos en el ModFacciones :
Código:
Call SendData(ToIndex, UserIndex, 0, "||" & vbWhite & "°" & "Para unirte a nuestras fuerzas debes matar al menos
<ol>
<span style="color: #b1b100;">If UserList(UserIndex).Faccion.CriminalesMatados < RealTM Then<li style="" class="li2"> Call SendData(ToIndex, UserIndex, 0, "||" & vbWhite & "°" & "Para unirte a nuestras fuerzas debes matar al menos " & RealTM & " criminales, solo has matado " & UserList(UserIndex).Faccion.CriminalesMatados & "°" & str(Npclist(UserList(UserIndex).flags.TargetNPC).Char.charindex))
Exit Sub
End If
Y abajo de todo hay una parte q dice:
Código:
Call SendData(ToIndex, UserIndex, 0, "||" & vbWhite & "°" & "Para unirte a nuestras fuerzas debes matar al menos
<ol>
<span style="color: #b1b100;">If UserList(UserIndex).Faccion.CiudadanosMatados < CaosTM Then<li style="" class="li2"> Call SendData(ToIndex, UserIndex, 0, "||" & vbWhite & "°" & "Para unirte a nuestras fuerzas debes matar al menos " & CaosTM & " ciudadanos, solo has matado " & UserList(UserIndex).Faccion.CiudadanosMatados & "°" & str(Npclist(UserList(UserIndex).flags.TargetNPC).Char.charindex))
Exit Sub
End If
4 - Buscamos:
Código:
BootDelBackUp = val(GetVar(IniPath & "Server.ini", "INIT", "IniciarDesdeBackUp"))
Y arriba agregamos:
Código:
RealTM = val(GetVar(IniPath & "Server.ini", "FACCIONES", "Real"))
CaosTM = val(GetVar(IniPath & "Server.ini", "FACCIONES", "Caos"))
5 - Vamos al Server.ini y agregamos:
Código:
[FACCIONES]
Real=X
Caos=Y
Donde X y Y son los valores que deseamos.