Todo sobre AO
 
ÍndiceFAQBuscarMiembrosGrupos de UsuariosRegistrarseConectarse

Comparte | 
 

 Angel y demonio

Ir abajo 
AutorMensaje
Agus
Admin


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

MensajeTema: Angel y demonio   Jue 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
Ver perfil de usuario http://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: