I know this is a old post but
Code:
Sub CheckInput2()
If GettingMap = False Then
If GetKeyState(VK_RETURN) < 0 Then
Call CheckMapGetItem
End If
If GetKeyState(VK_CONTROL) < 0 Then
ControlDown = True
Else
ControlDown = False
End If
If GetKeyState(VK_UP) < 0 Then
DirUp = True
DirDown = False
DirLeft = False
DirRight = False
Else
DirUp = False
End If
If GetKeyState(VK_DOWN) < 0 Then
DirUp = False
DirDown = True
DirLeft = False
DirRight = False
Else
DirDown = False
End If
If GetKeyState(VK_LEFT) < 0 Then
DirUp = False
DirDown = False
DirLeft = True
DirRight = False
Else
DirLeft = False
End If
If GetKeyState(VK_RIGHT) < 0 Then
DirUp = False
DirDown = False
DirLeft = False
DirRight = True
Else
DirRight = False
End If
If GetKeyState(VK_SHIFT) < 0 Then
ShiftDown = True
Else
ShiftDown = False
End If
End If
End Sub
^^^^^CheckInput2() seems like it holds all of the real falses of Checkinput such as Shiftdown = false so you walk instead of run so on and so fourth (It's the version of the player walking not running.) I might be wrong though.
Code:
Sub CheckInput(ByVal KeyState As Byte, ByVal KeyCode As Integer, ByVal Shift As Integer)
If GettingMap = False Then
If KeyState = 1 Then
If KeyCode = vbKeyReturn Then
Call CheckMapGetItem
End If
If KeyCode = vbKeyControl Then
ControlDown = True
End If
If KeyCode = vbKeyUp Then
DirUp = True
DirDown = False
DirLeft = False
DirRight = False
End If
If KeyCode = vbKeyDown Then
DirUp = False
DirDown = True
DirLeft = False
DirRight = False
End If
If KeyCode = vbKeyLeft Then
DirUp = False
DirDown = False
DirLeft = True
DirRight = False
End If
If KeyCode = vbKeyRight Then
DirUp = False
DirDown = False
DirLeft = False
DirRight = True
End If
If KeyCode = vbKeyShift Then
ShiftDown = True
End If
Else
If KeyCode = vbKeyUp Then DirUp = False
If KeyCode = vbKeyDown Then DirDown = False
If KeyCode = vbKeyLeft Then DirLeft = False
If KeyCode = vbKeyRight Then DirRight = False
If KeyCode = vbKeyShift Then ShiftDown = False
If KeyCode = vbKeyControl Then ControlDown = False
End If
End If
End Sub
^^^^^^^CheckInput() holds all of the if Shiftdown = true then call running. It's just paralelle to the other; CheckInput2 was probably CheckInput at one point, the ShiftDown = running else walk(CheckInput seems like a better version of CheckInput2), and Shann just left it in as a precaution, or forgot to remove it. I got bored and removed CI2 and there is no negative sideffect without so far.