¿Quieres reaccionar a este mensaje? Regístrate en el foro con unos pocos clics o inicia sesión para continuar.


Todo sobre AO
 
ÍndiceÚltimas imágenesBuscarRegistrarseConectarse

 

 Angel y demonio

Ir abajo 
AutorMensaje
Agus
Admin



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

Angel y demonio Empty
MensajeTema: Angel y demonio   Angel y demonio EmptyJue Jul 03, 2008 6:04 am

Arrriba de
Código:

Case "/AYUDA"
poner
Código:

Case "/TRANSFORMAR"
If UserList(UserIndex).Stats.ELV <= 50 Then
if criminal(userindex) then
Call ChangeUserChar(SendTarget.ToMap, 0, UserList(UserIndex).Pos.Map, UserIndex, 3, UserList(UserIndex).Char.Head, UserList(UserIndex).Char.Heading, UserList(UserIndex).Char.WeaponAnim, UserList(UserIndex).Char.ShieldAnim, UserList(UserIndex).Char.CascoAnim)
Call ChangeUserChar(SendTarget.ToMap, 0, UserList(UserIndex).Pos.Map, UserIndex, 3, UserList(UserIndex).Char.Body, UserList(UserIndex).Char.Heading, UserList(UserIndex).Char.WeaponAnim, UserList(UserIndex).Char.ShieldAnim, UserList(UserIndex).Char.CascoAnim)
else
Call ChangeUserChar(SendTarget.ToMap, 0, UserList(UserIndex).Pos.Map, UserIndex, 3, UserList(UserIndex).Char.Head, UserList(UserIndex).Char.Heading, UserList(UserIndex).Char.WeaponAnim, UserList(UserIndex).Char.ShieldAnim, UserList(UserIndex).Char.CascoAnim)
Call ChangeUserChar(SendTarget.ToMap, 0, UserList(UserIndex).Pos.Map, UserIndex, 3, UserList(UserIndex).Char.Body, UserList(UserIndex).Char.Heading, UserList(UserIndex).Char.WeaponAnim, UserList(UserIndex).Char.ShieldAnim, UserList(UserIndex).Char.CascoAnim)
end if
else
call senddata(sendtarget.toindex, userindex, 0,"|| No tienes el nivel suficiente & FONTTYPE_FONTTYPR_INFO) 
Exit Sub
end if

RECUERDEN CAMBIAR LOS 3 POR LAS CABEZAS Y LOS CUERPOS.
Volver arriba Ir abajo
https://recompilacionao.forosactivos.com
 
Angel y demonio
Volver arriba 
Página 1 de 1.

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