Agus
Admin
Mensajes : 69
Fecha de inscripción : 01/07/2008
 | Tema: Eliminar modo combate  Jue Jul 03, 2008 6:06 am | |
| ServidorBuscamos 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 ClienteLo 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 | |
|
