MMORPG Brasil
Ola, visitante! Agradecemos sua visita, para ter acesso a todo nosso conteúdo recomendamos que faça um cadastro no fórum, com ele você pode participar de tópicos e ter acesso a todas áreas da comunidade!

Participe do fórum, é rápido e fácil

MMORPG Brasil
Ola, visitante! Agradecemos sua visita, para ter acesso a todo nosso conteúdo recomendamos que faça um cadastro no fórum, com ele você pode participar de tópicos e ter acesso a todas áreas da comunidade!
MMORPG Brasil
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Movimentação Wasd e Setas V2.0

3 participantes

Ir para baixo

Movimentação Wasd e Setas V2.0 Empty Movimentação Wasd e Setas V2.0

Mensagem por Eduardo Ter 14 Ago 2012, 23:47

no frmMain Crie um CheckBox com as seguintes configuraçoes

Nome : chkMov
Caption : Andar com setas

Depois procure por:

Código:
Public Sub CheckInputKeys()

Troque toda por

Código:
Public Sub CheckInputKeys()
' If debug mode, handle error then exit out
If Options.Debug = 1 Then On Error GoTo errorhandler

If GetKeyState(vbKeyShift) < 0 Then
ShiftDown = True
Else
ShiftDown = False
End If

If GetKeyState(vbKeyReturn) < 0 Then
CheckMapGetItem
End If

If GetKeyState(vbKeyControl) < 0 Then
ControlDown = True
Else
ControlDown = False
End If

If frmMain.chkMov.Value = YES Then
frmMain.txtMyChat.Locked = NO
If GetKeyState(vbKeyUp) < 0 Then
DirUp = True
DirDown = False
DirLeft = False
DirRight = False
Exit Sub
Else
DirUp = False
End If

'Move Right
If GetKeyState(vbKeyRight) < 0 Then
DirUp = False
DirDown = False
DirLeft = False
DirRight = True
Exit Sub
Else
DirRight = False
End If

'Move down
If GetKeyState(vbKeyDown) < 0 Then
DirUp = False
DirDown = True
DirLeft = False
DirRight = False
Exit Sub
Else
DirDown = False
End If

'Move left
If GetKeyState(vbKeyLeft) < 0 Then
DirUp = False
DirDown = False
DirLeft = True
DirRight = False
Exit Sub
Else
DirLeft = False
End If
End If

If frmMain.chkMov.Value = NO Then
frmMain.txtMyChat.Locked = YES
If GetKeyState(vbKeyW) < 0 Then
DirUp = True
DirDown = False
DirLeft = False
DirRight = False
Exit Sub
Else
DirUp = False
End If

'Move Right
If GetKeyState(vbKeyD) < 0 Then
DirUp = False
DirDown = False
DirLeft = False
DirRight = True
Exit Sub
Else
DirRight = False
End If

'Move down
If GetKeyState(vbKeyS) < 0 Then
DirUp = False
DirDown = True
DirLeft = False
DirRight = False
Exit Sub
Else
DirDown = False
End If

'Move left
If GetKeyState(vbKeyA) < 0 Then
DirUp = False
DirDown = False
DirLeft = True
DirRight = False
Exit Sub
Else
DirLeft = False
End If
End If

' Error handler
Exit Sub
errorhandler:
HandleError "CheckInputKeys", "modInput", Err.Number, Err.Description, Err.Source, Err.HelpContext
Err.Clear
Exit Sub
End Sub

Creditos : Eduardo & Vision Makers
Eduardo
Eduardo
Membro Veterano
Membro Veterano

Mensagens : 1178

Ir para o topo Ir para baixo

Movimentação Wasd e Setas V2.0 Empty Re: Movimentação Wasd e Setas V2.0

Mensagem por Storm™ Qua 15 Ago 2012, 08:35

otimos tutor pra min mesmo que estou iniciando em EO vai Ajuda vlw ae Man +1
Storm™
Storm™
Moderador Global
Moderador Global

Mensagens : 2155

http://senningames.com

Ir para o topo Ir para baixo

Movimentação Wasd e Setas V2.0 Empty Re: Movimentação Wasd e Setas V2.0

Mensagem por Moph Dom 26 Ago 2012, 12:24

ótimo tutorial me ajudou muito ainda mais que estou iniciando com EO!
Moph
Moph
Novato
Novato

Mensagens : 20

Ir para o topo Ir para baixo

Movimentação Wasd e Setas V2.0 Empty Re: Movimentação Wasd e Setas V2.0

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

 
Permissões neste sub-fórum
Não podes responder a tópicos