[Aportes indexados] Eliminando Modo Combate (0.11.2)

Estado
Cerrado para nuevas respuestas.

Shura

Dragón Ancestral Lvl 2
Eliminando Modo Combate (0.11.2)

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
Despues Buscamos (Este Si No Se Dan Cuenta Cuando Intentamos Compilar Lo Marca) Y Lo Borramos Tmb:
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.
 
Estado
Cerrado para nuevas respuestas.
Arriba