QuickHeal Button - Printable Version

QuickHeal Button - Printable Version

+- Mirage Engine (https://mirage-engine.uk/forums)
+-- Forum: Mirage Source (Nostalgia) (https://mirage-engine.uk/forums/forumdisplay.php?fid=61)
+--- Forum: Archive (2006-2011) (https://mirage-engine.uk/forums/forumdisplay.php?fid=18)
+---- Forum: Resources (https://mirage-engine.uk/forums/forumdisplay.php?fid=49)
+---- Thread: QuickHeal Button (/showthread.php?tid=67)

QuickHeal Button - Tutorial Bot - 01-06-2006

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)