QuickHeal Button

[Tutorial Bot]

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)