Author: LSD
Difficulty: 1/5
:: CLIENT SIDE ::In frmMirage, find:
Code:
Sub Form_keyup(keyCode As Integer, Shift As Integer)
Replace the entire sub with:
Code:
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
Call CheckInput(0, KeyCode, Shift)
End Sub
with code
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 = 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
That's all!