Darkhammer Supply Run - supplyrun.mac

[Sym]

| supplyrun.mac - 6.1.2011 by Sym
|
| Turns in prelooted drops for task Darkhammer Supply Run in Korascian Warrens.
|       http://everquest.allakhazam.com/db/quest.html?quest=4693
| Casts/drops invis and runs between Delver Hagorn and Ordrik Darkhammer using /stick
|
| Plugins used:
| MQ2Bagwindow is used to pick up items
| MQ2Cursor handling opens inventory if you have the drops on any sort of auto keep (I auto keep 1 stack each)
| MQ2Reward is used to claim reward at the end as you can't /notify the task reward button :/
| MQ2MoveUtils is used to /stick to npc for ease of movement. Straight flat line between the two.
| MQ2Cast is used to cast invis
|
| 6 hour lockout timer for the task.
| Tested using Shadownight with AA Invis. Other invis may need tweaking.
|
| Set Invis to your invisibility spell
| Set SpellType to /casting option for invis, alt for example if you use an AA ability


Sub Main

    /declare Invis string outer Cloak of Shadows
    /declare SpellType string outer alt
    
    /if (!${Window[InventoryWindow].Open}) /keypress i
    
    | Start task
    /tar delver hagorn
    /notify BuffWindow Buff${Int[${Math.Calc[${Me.Buff[${Invis}].ID}-1]}]} leftmouseup
    /delay 5
    /keypress h
    /delay 1s
    /say support
    /delay 1s
    /say problem
    /delay 1s
    /say cater
    /target myself
    /delay 1s ${Target.ID}
    /casting "${Invis}" ${SpellType}
    /delay 5s !${Me.Casting.ID}
    
    
    /tar ordrik darkhammer
    /delay 1s ${Target.ID}
    /stick 10
    :WaitRangeOrdrik
        /delay 1s
    /if (${Target.Distance} > 15) /goto :WaitRangeOrdrik
    
    /stick off
    /notify BuffWindow Buff${Int[${Math.Calc[${Me.Buff[${Invis}].ID}-1]}]} leftmouseup
    /keypress h
    /delay 2s
    
    | Turn in one of each item to trigger looted code.
    /nomodkey /ctrlkey /itemnotify ${FindItem[Solid Dregcheese].InvSlot} leftmouseup
    /delay 1s ${Cursor.ID}
    /click left target
    /delay 1s !${Cursor.ID}
    
    /nomodkey /ctrlkey /itemnotify ${FindItem[Rallosian Iron Rations].InvSlot} leftmouseup
    /delay 1s ${Cursor.ID}
    /click left target
    /delay 1s !${Cursor.ID}
    
    /nomodkey /ctrlkey /itemnotify ${FindItem[Jar of Potable Murkwater].InvSlot} leftmouseup
    /delay 1s ${Cursor.ID}
    /click left target
    /delay 1s !${Cursor.ID}
    
    /nomodkey /ctrlkey /itemnotify ${FindItem[Cask of Toskirakk Bitter].InvSlot} leftmouseup
    /delay 1s ${Cursor.ID}
    /click left target
    /delay 1s !${Cursor.ID}
    
    /if (${Window[GiveWnd].Open}) /notify GiveWnd GVW_Give_Button leftmouseup
    
    | NPC gives back the items. Also triggers task conditions of you looting the items.
    :ClearCursor
        /autoinv
        /delay 1s
    /if (${Cursor.ID}) /goto :ClearCursor
        
    /declare a int outer 
    /declare b int outer

    | Turn in actual items for reward. Gives 5 or 10 of the item, 4 at a time.
    /delay 2s !${Window[GiveWnd].Open}
    /varset b 0
    /for a 1 to 5
        /nomodkey /ctrlkey /itemnotify ${FindItem[Solid Dregcheese].InvSlot} leftmouseup
        /delay 1s ${Cursor.ID}
        /click left target
        /delay 1s !${Cursor.ID}
        /varcalc b ${b}+1
        /if (${b} == 4) {
            /notify GiveWnd GVW_Give_Button leftmouseup
            /delay 1s
            /varset b 0
        }
    /next a
    /if (${Window[GiveWnd].Open}) /notify GiveWnd GVW_Give_Button leftmouseup
    
    /delay 2s !${Window[GiveWnd].Open}
    /varset b 0
    /for a 1 to 10
        /nomodkey /ctrlkey /itemnotify ${FindItem[Rallosian Iron Rations].InvSlot} leftmouseup
        /delay 1s ${Cursor.ID}
        /click left target
        /delay 1s !${Cursor.ID}
        /varcalc b ${b}+1
        /if (${b} == 4) {
            /notify GiveWnd GVW_Give_Button leftmouseup
            /delay 1s
            /varset b 0
        }
    /next a
    /if (${Window[GiveWnd].Open}) /notify GiveWnd GVW_Give_Button leftmouseup
    
    /delay 2s !${Window[GiveWnd].Open}
    /varset b 0
    /for a 1 to 5
        /nomodkey /ctrlkey /itemnotify ${FindItem[Jar of Potable Murkwater].InvSlot} leftmouseup
        /delay 1s ${Cursor.ID}
        /click left target
        /delay 1s !${Cursor.ID}
        /varcalc b ${b}+1
        /if (${b} == 4) {
            /notify GiveWnd GVW_Give_Button leftmouseup
            /delay 1s
            /varset b 0
        }
    /next a
    /if (${Window[GiveWnd].Open}) /notify GiveWnd GVW_Give_Button leftmouseup
    
    /delay 2s !${Window[GiveWnd].Open}
    /varset b 0
    /for a 1 to 10
        /nomodkey /ctrlkey /itemnotify ${FindItem[Cask of Toskirakk Bitter].InvSlot} leftmouseup
        /delay 1s ${Cursor.ID}
        /click left target
        /delay 1s !${Cursor.ID}
        /varcalc b ${b}+1
        /if (${b} == 4) {
            /notify GiveWnd GVW_Give_Button leftmouseup
            /delay 1s
            /varset b 0
        }
    /next a
    /if (${Window[GiveWnd].Open}) /notify GiveWnd GVW_Give_Button leftmouseup
    /delay 2s
    /keypress h
    
    | Finish with hail, collect reward
    /delay 2s
    /target myself
    /delay 1s ${Target.ID}
    /casting "${Invis}" ${SpellType}
    /delay 5s !${Me.Casting.ID}
    /tar delver hagorn
    /delay 1s ${Target.ID}
    
    /stick 10
    :WaitRangeDelve
        /delay 1s
    /if (${Target.Distance} > 15) /goto :WaitRangeDelve
    /notify BuffWindow Buff${Int[${Math.Calc[${Me.Buff[${Invis}].ID}-1]}]} leftmouseup
    /delay 1s
    /keypress h
    /stick off
    /delay 2s
    /reward 1
    /target myself
    /delay 1s ${Target.ID}
    /casting "${Invis}" ${SpellType}
    /delay 5s !${Me.Casting.ID}
    /keypress alt+q    
    
    /if (${Window[InventoryWindow].Open}) /keypress i
/return