Argentum Online
Gracias por entrar al foro Argentium Online
Que lo disfruten
Staff Argentium Online
Argentum Online
Gracias por entrar al foro Argentium Online
Que lo disfruten
Staff Argentium Online
Argentum Online
¿Quieres reaccionar a este mensaje? Regístrate en el foro con unos pocos clics o inicia sesión para continuar.

Argentum Online

Argentum Online - De todo.
 
ÍndicePortalÚltimas imágenesBuscarRegistrarseConectarse

 

 Comando /ULLA para Fenix AO.

Ir abajo 
AutorMensaje
Sharow.-
Admin
Admin
Sharow.-


Mensajes : 14
Fecha de inscripción : 18/12/2009

Comando /ULLA para Fenix AO. Empty
MensajeTema: Comando /ULLA para Fenix AO.   Comando /ULLA para Fenix AO. Icon_minitimeVie Dic 18, 2009 12:14 am

este code es muy sencillo,, cuando no entiendia nada lo busque pro el indice,, pero no estaba y ahora q aptrendi y puedo hacerlo yo, lo aporto,

espero que les guste

en el servidor buscas

Numero de Linea | Ocultar/Mostrar | Seleccionar todo

1. Case "#3"



y arriva pones

Numero de Linea | Ocultar/Mostrar | Seleccionar todo

1. Case "#_" '/ULLA by iL Sharow!
2.
3. If UserList(UserIndex).POS.Map = 66 Then
4. Call SendData(ToIndex, UserIndex, 0, "||No escaparás de la carcel." & FONTTYPE_TALK) ' iL Nolox!
5. Exit Sub
6. End If
7.
8. If UserList(UserIndex).POS.Map = 170 Then
9. Call SendData(ToIndex, UserIndex, 0, "||No podés usar los comandos desde los rings de agite." & FONTTYPE_TALK)' iL Nolox!
10. Exit Sub
11. End If
12.
13. If UserList(UserIndex).flags.Muerto = 1 Then
14. Call SendData(ToIndex, UserIndex, 0, "||Estás muerto!" & FONTTYPE_TALK)' iL Nolox!
15. Exit Sub
16. End IF
17.
18. If UserList(UserIndex).Stats.GLD < 300000 Then
19. Call SendData(ToIndex, UserIndex, 0, "||El viaje cuesta 300000 monedas de oro" & FONTTYPE_TALK)' iL Nolox!
20. Exit Sub
21. End If
22.
23. If (UserList(UserIndex).Stats.MinHP < UserList(UserIndex).Stats.MaxHP / 2) Then
24. Call SendData(ToIndex, UserIndex, 0, "||Si tienes menos de la mitad de la vida no serás teletransoportado a ULLA" & FONTTYPE_TALK)' iL Nolox!
25. Exit Sub
26. End If
27.
28. If UserList(UserIndex).flags.Paralizado = 1 Then
29. Call SendData(ToIndex, UserIndex, 0, "||No puedes ir a ULLA si estás paralizado." & FONTTYPE_TALK)' iL Nolox!
30. Exit Sub
31. End If
32.
33.
34.
35. Call WarpUserChar(UserIndex, 1, 50, 50, True)
36.
37. Exit Sub



en el cliente buscas
Numero de Linea | Ocultar/Mostrar | Seleccionar todo

1. Case "/RESUCITAR"



y arriva pones

Numero de Linea | Ocultar/Mostrar | Seleccionar todo

1. Case "/ULLA"' iL Nolox!
2. ReplaceData = "#_"




listo..

EL USER PONE /ULLA
Y SERÁ TRANSPORTADO SI CUMPLE CON SIERTOS REQUISITOS

ojala les guste,,,
Volver arriba Ir abajo
 
Comando /ULLA para Fenix AO.
Volver arriba 
Página 1 de 1.
 Temas similares
-
» Descargas Oficiales (Fenix AO)
» Canciones para videos de aguite.

Permisos de este foro:No puedes responder a temas en este foro.
Argentum Online :: Argentum Online :: Programacion-
Cambiar a: