01-07-2006, 12:01 AM
and If we want to set F3 to use a mp potion would be this?
[code]Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
Dim Value As Long
Dim i As Long
Call CheckInput(0, KeyCode, Shift)
If KeyCode = vbKeyF3 Then
For i = 1 To MAX_INV
If GetPlayerInvItemNum(MyIndex, i) > 0 And GetPlayerInvItemNum(MyIndex, i)
[code]Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
Dim Value As Long
Dim i As Long
Call CheckInput(0, KeyCode, Shift)
If KeyCode = vbKeyF3 Then
For i = 1 To MAX_INV
If GetPlayerInvItemNum(MyIndex, i) > 0 And GetPlayerInvItemNum(MyIndex, i)