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

5 participantes

Ir para baixo

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

Mensagem por Butevicz Qui 28 Fev 2013, 09:31

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 Movimentação Wasd e Setas V2.0 127773
Butevicz
Butevicz
Novato
Novato

Mensagens : 6

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 alenzinho Qui 28 Fev 2013, 10:45

+1 Brigado por disponibilizar.
alenzinho
alenzinho
Membro Veterano
Membro Veterano

Mensagens : 893

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 diego.costa.90857 Qui 28 Fev 2013, 15:39

Muito bom Butevicz, +1.
diego.costa.90857
diego.costa.90857
Novato
Novato

Mensagens : 26

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 Eduardo Qui 28 Fev 2013, 15:42

Oh God tirei meus tuto daqui , pra postar na vision , nego vai la pega e posta aqui dnv, e ainda ganha credito
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 afonsobr Qui 28 Fev 2013, 16:14

Eduardo escreveu:
Oh God tirei meus tuto daqui , pra postar na vision , nego vai la pega e posta aqui dnv, e ainda ganha credito
É a vida!


Obrigado por disponibilizar.
avatar
afonsobr
Membro Veterano
Membro Veterano

Mensagens : 1196

http://digimongames.forumeiros.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 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