Todo sobre AO
 
ÍndiceFAQBuscarMiembrosGrupos de UsuariosRegistrarseConectarse

Comparte | 
 

 Torneos Programables desde un .INI

Ver el tema anterior Ver el tema siguiente Ir abajo 
AutorMensaje
Agus
Admin


Mensajes : 69
Fecha de inscripción : 01/07/2008

MensajeTema: Torneos Programables desde un .INI   Miér Jul 02, 2008 3:45 am

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
Volver arriba Ir abajo
Ver perfil de usuario http://recompilacionao.forosactivos.com
 
Torneos Programables desde un .INI
Ver el tema anterior Ver el tema siguiente Volver arriba 
Página 1 de 1.
 Temas similares
-
» tipos de torneos
» Reglamento y sistema de juego del 16º TorneoJUGON MADDEN 11
» GT5 en Torneos Online
» Reinician los rankings de torneos online.
» TEMA IMPORTANTE: TORNEOS Y RETOS

Permisos de este foro:No puedes responder a temas en este foro.
 :: Argentum Online :: Programación :: 0.11.5-
Cambiar a: