[EO] Quick Healing!

[Carim123]

OK, yet again, I'm giving away a new tutorial.
This is my Quick Healing.

What this does, is that on pressing Page Up (Also known as PgUp), it checks the inventory for Consume type items, and as a helpful little error/hack preventor, it also checks their index to make sure it isn't item number 0, or greater than your MAX_ITEMS.

If there is an item, it uses the first item that is found, and exits the sub to stop it from using all the consume item types in your inventory. Useful for making combat more quicker, and enriched.

Yet again, it's surprisingly easy.

In any module (I used modDatabase) add…
```
Public Sub QuickHeal()
' Carim's Quick Healing. Credit me, please!
Dim i As Long
    ' If debug mode, handle error then exit out
    If Options.Debug = 1 Then On Error GoTo errorhandler

For i = 1 To MAX_INV

'  Checks against EVERY item.
If GetPlayerInvItemNum(MyIndex, i) > 0 And GetPlayerInvItemNum(MyIndex, i) <= MAX_ITEMS Then
    If Item(GetPlayerInvItemNum(MyIndex, i)).Type = ITEM_TYPE_CONSUME Then
        Call SendUseItem(i)
        AddText "You quickly ate the first thing you found in your inventory!", White
        Exit Sub
    End If
End If

Next i

    ' Error handler
    Exit Sub
errorhandler:
    HandleError "QuickHeal", "modDatabase", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub

End Sub

```
Now, in frmMain  _KeyUp (Or, with some modification, _KeyPress if you want to be able to easily spam it),

```
    Select Case KeyCode
        Case vbKeyPageUp
            QuickHeal
    End Select
```
And, in future, you can add to that case index for your organisation. Can't remember if one already exists in the stock EO, my copy is too heavily modified.

And, that's it!

CREDIT ME.

**Coming Soon; Swearing Filter! xD**

[Antisora]

~~For some reason, it does not work for me :/~~
>! Private Sub cmdQuestBack_KeyUp(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
        Case vbKeyPageUp
            QuickHeal
    End Select
~~Thats the only _Keyup i found, is there another one?

~~I also found this key up
~~>! Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
Dim i As Long
>!     ' If debug mode, handle error then exit out
    If Options.Debug = 1 Then On Error GoTo errorhandler
>!     Select Case KeyCode
        Case vbKeyInsert
            If Player(MyIndex).Access > 0 Then
                picAdmin.Visible = Not picAdmin.Visible
            End If
        'ALATAR 'This key shows the questlog
        Case vbKeyEnd
            UpdateQuestLog
            If picQuestLog.Visible Then
                ShowQuestLogPage 1
                picQuestLog.Visible = False
            Else
                picQuestLog.Visible = True
            End If
        '/ALATAR

        Case vbKeyDelete
            'MsgBox Player(MyIndex).PlayerQuest(1).Status
            PlayerHandleQuest 1, 2
    End Select

    ' hotbar
    For i = 1 To MAX_HOTBAR
        If KeyCode = 111 + i Then
            SendHotbarUse i
        End If
    Next

        ' Spinning
    If KeyCode = 36 Then
    Call Spin
    End If

>!     ' Error handler
    Exit Sub
errorhandler:
    HandleError "Form_KeyUp", "frmMain", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
End Sub
~~Do i use that one?~~
EDIT: Wow, am i an idiot XD
Fixed it myself~~~~~~