Movimentação Wasd e Setas V2.0

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