Torneos Programables desde un .INI

Buscan:

Citación :

Public Nix As WorldPos

y arriba ponen:

Citación :

Public TORNEOORO As String
Public MAPATORNEO As String
Public YTORNEO As String
Public XTORNEO As String

buscan

Citación :

Type UserFlags

y abajo poner:

Citación :

Torneo As Byte
EnTorneo As Integer

buscan:

Citación :

BootDelBackUp = val(GetVar(IniPath & "Server.ini", "INIT", "IniciarDesdeBackUp"))

y abajo ponen

Citación :

MAPATORNEO = val(GetVar(IniPath & "Configuracion.ini", "TORNEO", "MapaDeEsperaTorneo"))
XTORNEO = val(GetVar(IniPath & "Configuracion.ini", "TORNEO", "X"))
YTORNEO = val(GetVar(IniPath & Configuracion.ini", "TORNEO", "Y"))
TORNEOORO = val(GetVar(IniPath & "Configuracion.ini", "TORNEO", "ValorDelTorneo"))

Arriba del "/RMSG " poner:

Citación :

If UCase$(Left$(rData, 9)) = "/ONTORNEO" Then

If UserList(UserIndex).flags.Torneo = 1 Then
Call SendData(SendTarget.ToIndex, UserIndex, 0, "||Ya esta ON." & FONTTYPE_INFO)
Exit Sub
End If

If UserList(UserIndex).flags.Torneo = 0 Then
UserList(UserIndex).flags.Torneo = 1
Call SendData(SendTarget.ToAll, UserIndex, 0, "||Inscripciones para el torneo activadas, tiene un precio de" & TORNEOORO & "." & FONTTYPE_INFO)
Exit Sub
End If

End If

If UCase$(Left$(rData, 10)) = "/OFFTORNEO" Then

If UserList(UserIndex).flags.Torneo = 0 Then
Call SendData(SendTarget.ToIndex, UserIndex, 0, "||Ya esta Off." & FONTTYPE_INFO)
Exit Sub
End If

If UserList(UserIndex).flags.Torneo = 1 Then
UserList(UserIndex).flags.Torneo = 0
Call SendData(SendTarget.ToAll, UserIndex, 0, "||Inscripciones para el torneo cerradas." & FONTTYPE_INFO)
Exit Sub
End If
End If

buscan

Citación :

Case "/SALIRCLAN"

y arriba ponen

Citación :

Case "/PARTICIPAR"
If UserList(UserIndex).flags.Muerto = 1 Then
Call SendData(SendTarget.ToIndex, UserIndex, 0, "||¡¡Estas muerto!!" & FONTTYPE_INFO)
Exit Sub
End If
If UserList(UserIndex).flags.Torneo = 0 Then
Call SendData(SendTarget.ToIndex, UserIndex, 0, "||¡¡Estas muerto!!" & FONTTYPE_INFO)
Exit Sub
End If
If UserList(UserIndex).Stats.GLD < TORNEOORO Then
Call SendData(SendTarget.ToIndex, UserIndex, 0, "||¡¡Necesitas" & TORNEOORO & " para participar!!" & FONTTYPE_INFO)
Exit Sub
End If
If UserList(UserIndex).flags.EnTorneo = 1 Then
Call SendData(SendTarget.ToIndex, UserIndex, 0, "||¡Ya estas en Torneo!" & FONTTYPE_INFO)
Exit Sub
End If
If UserList(UserIndex).flags.Torneo = 1 Then
UserList(UserIndex).Stats.GLD = UserList(UserIndex).Stats.GLD - TORNEOORO
If UserList(UserIndex).flags.EnTorneo = 0 Then
UserList(UserIndex).flags.EnTorneo = 1
Call WarpUserChar(UserIndex, MAPATORNEO, XTORNEO, YTORNEO, True)
Call SendData(SendTarget.ToIndex, UserIndex, 0, "||¡¡Has entrado al torneo.!!" & FONTTYPE_INFO)
Exit Sub
End If
End If

creamos un .ini y le ponemos de nombre Configuracion.ini, adentro ponemos:

Citación :

[TORNEO]
MapaDeEsperaTorneo=1 '<--------------- Mapa del Torneo
X=50 '<--- Cordenada X
Y=50 '<--- Cordenada Y
ValorDelTorneo=10000 '<---- Valor del Torneo

Funciona para todas, solo lo tienen que adaptar