Todo sobre AO
 
ÍndiceFAQBuscarMiembrosGrupos de UsuariosRegistrarseConectarse

Comparte | 
 

 Eliminar modo combate

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


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

MensajeTema: Eliminar modo combate   Jue Jul 03, 2008 6:06 am

Servidor
Buscamos Y Borramos Lo Siguiente:
Código:
Case "TAB" 'Entrar o salir modo combate
If UserList(UserIndex).flags.ModoCombate Then
SendData ToIndex, UserIndex, 0, "||Has salido del modo de combate. " & FONTTYPE_INFO
Else
SendData ToIndex, UserIndex, 0, "||Has pasado al modo de combate. " & FONTTYPE_INFO
End If
UserList(UserIndex).flags.ModoCombate = Not UserList(UserIndex).flags.ModoCombate
Exit Sub
Código:
If Not UserList(UserIndex).flags.ModoCombate Then
Call SendData(ToIndex, UserIndex, 0, "||No estas en modo de combate, presiona la tecla ""C"" para pasar al modo combate. " & FONTTYPE_INFO)
Else
Despues Buscamos (Este Si No Se Dan Cuenta Cuando Intentamos Compilar Lo Marca) Y Lo Borramos Tmb:
Código:
End If

Cliente

Lo Mismo Que En El Servidor
Código:
Case vbKeyC:
Call SendData("TAB")
IScombate = Not IScombate
Código:
Public IScombate As Boolean
Código:
If IScombate Then Call Dialogos.DrawText(260, 260, "MODO COMBATE", vbRed)
Código:
IScombate = False
Código:
IScombate = False
Testeado 100% Funcional
Volver arriba Ir abajo
Ver perfil de usuario http://recompilacionao.forosactivos.com
 
Eliminar modo combate
Ver el tema anterior Ver el tema siguiente Volver arriba 
Página 1 de 1.
 Temas similares
-
» ¿Cuando SALE ? !!! + Modo de Combate (Opinión)
» BF3: MODO CAMPAÑA BATTLEFIELD3
» Descubre como es el modo Special Ops de Modern Warfare 2
» Nuevas imagenes del nuevo modo entrenamiento de FIFA 10
» Se pueden pasar armas, armaduras y objetos del modo online al offline?

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