Eliminando Modo Combate (0.11.2)
Para el Servidor y el Cliente
Server
Buscamos Y Borramos Lo Siguiente:
Despues Buscamos (Este Si No Se Dan Cuenta Cuando Intentamos Compilar Lo Marca) Y Lo Borramos Tmb:
Client
Lo Mismo Que En El Server
Testeado 100% Funcional
Fin De Este Codigo No Tener La Necesidad De Enviar Esta Data Al Server Ya Que No Es Inpresindible.
Para el Servidor y el Cliente
Server
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:
UserList(UserIndex).flags.ModoCombate = False
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
Código:
End If
Client
Lo Mismo Que En El Server
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
Código:
'[CODE 000]:MatuX
' La hice inline
Sub MostrarFlags()
If IScombate Then
Call Dialogos.DrawText(260, 260, "MODO COMBATE", vbRed)
End If
'[END]'
End Sub
Código:
Call MostrarFlags
Testeado 100% Funcional
Fin De Este Codigo No Tener La Necesidad De Enviar Esta Data Al Server Ya Que No Es Inpresindible.