Mirage Source http://miragesource.net/forums/ |
|
QuickHeal Button http://miragesource.net/forums/viewtopic.php?f=210&t=80 |
Page 1 of 1 |
Author: | Tutorial Bot [ Thu Jun 01, 2006 10:17 pm ] |
Post subject: | QuickHeal Button |
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! |
Page 1 of 1 | All times are UTC |
Powered by phpBB® Forum Software © phpBB Group https://www.phpbb.com/ |