Mirage Source

Sub Form_keyup(keyCode As Integer, Shift As Integer)

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
Call CheckInput(0, KeyCode, Shift)
End Sub

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 = vbKeyF2 Then

For i = 1 To MAX_INV

If GetPlayerInvItemNum(MyIndex, i) > 0 And GetPlayerInvItemNum(MyIndex, i) <= MAX_ITEMS Then
If Item(GetPlayerInvItemNum(MyIndex, i)).Type = ITEM_TYPE_POTIONADDHP Then
Call SendUseItem(i)
Call AddText("You quaff a healing potion", Yellow)
Exit Sub
End If
End If
Next i
End If

End Sub