Todo sobre AO
 
ÍndiceFAQBuscarMiembrosGrupos de UsuariosRegistrarseConectarse

Comparte | 
 

 Código /DUELO

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


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

MensajeTema: Código /DUELO   Jue Jul 03, 2008 12:28 am

Buscamos en el servidor:
Citación :

Case "/AYUDA"
Call SendHelp(UserIndex)
Exit Sub
Abajo agregamos:
Citación :

Case "/DUELO"
If UserList(UserIndex).flags.Muerto = 1 Then
Call SendData(SendTarget.ToIndex, UserIndex, 0, "||Debes estar vivo para ingresar al duelo." & FONTTYPE_WARNING)
Else
If EsNewbie(UserIndex) Then
Call SendData(SendTarget.ToIndex, UserIndex, 0, "||Eres Newbie no puedes hacer duelos." & FONTTYPE_WARNING)
Else
If MapInfo(X).NumUsers >= 2 Then' Poner el mapa de duelos
Call SendData(SendTarget.ToIndex, UserIndex, 0, "||Ya hay 2 usuarios en duelo, espera a que uno se valla para ingresar." & FONTTYPE_WARNING)
Else
If MapInfo(UserList(UserIndex).Pos.Map).Pk = True Then
Call SendData(SendTarget.ToIndex, UserIndex, 0, "||Estas en zona insegura, desde aquí no puedes ingresar al duelo." & FONTTYPE_WARNING)
Else
Call SendData(SendTarget.ToIndex, UserIndex, 0, "||Ah sido teletransportado a la pantalla de duelos." & FONTTYPE_INFO)

Call WarpUserChar(UserIndex, 1, 50, 50, True) ' Poner el mapa y las coordenadas x, y de la zona del duelo
Call SendData(SendTarget.ToAll, 0, 0, "||" & UserList(UserIndex).name & " ha ingresado a la sala de duelos." & FONTTYPE_CONSEJO)
End If
End If
End If
End If
End If
Exit Sub
y abajo:
Citación :

Case "/SALIRDUELO"
If UserList(UserIndex).Pos.Map = 1 Then
Call SendData(SendTarget.ToIndex, UserIndex, 0, "||Has salido del duelo." & FONTTYPE_WARNING)
Call SendData(SendTarget.ToAll, 0, 0, "||" & UserList(UserIndex).name & " ha a salido de la sala de duelos." & FONTTYPE_CONSEJO)
Call WarpUserChar(UserIndex, 2, 50, 50, True) 'Poner el mapa y las coordenadas x, y de donde va a aparecer caundo pone salirduelo
Else
Call SendData(SendTarget.ToIndex, UserIndex, 0, "||No estas en el mapa de duelos." & FONTTYPE_INFO)
End If
Luego en el Modulo usuarios y en el sub user die buscar:
Citación :

UserList(UserIndex).flags.Muerto = 1
Abajo agregan:
Citación :

If UserList(UserIndex).Pos.Map = X Then 'mapa de duelo para que sea sacado
Call WarpUserChar(UserIndex, 1, 50, 50, True)
Call SendData(ToIndex, UserIndex, 0, "||Has sido vencido debes abandonar la zona de duelos." & FONTTYPE_WARNING)
End If
Se puede adaptar para todas las verciones
Volver arriba Ir abajo
Ver perfil de usuario http://recompilacionao.forosactivos.com
 
Código /DUELO
Ver el tema anterior Ver el tema siguiente Volver arriba 
Página 1 de 1.
 Temas similares
-
» Duelo Thor Vs Faraon
» Duelo de Genios
» Duelo de Historias [No Oficial]
» Código Porsche 911 GT3 RS 4.0 "MEGABLOCKS"
» Duelo de voces.

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