|Veliumnowarp.mac - Edited By Taron @ MMOBugs.com
|USAGE: /macro veliumnowarp.mac
|Run in Thurgadin, make sure all bags are open
|
|update by coffee 2007-07-10 - fixed this macro as they nerfed the shit out of the quest
| probably to nerf all the macros
|
Sub Main
:Loop
/if (${FindItemCount[=small piece of velium]}<1) /goto :Done
/if (!${Zone.ID}==115) {
/echo You are not in Thurgadin, Macro Ended.
/endmacro
}
/if (${Spawn[gm].ID}) {
/echo GM in zone, Macro Ended.
/notify GiveWnd GVW_Cancel_Button leftmouseup
/endmacro
}
|----------------------------------------------------------------
|-- Being by targeting Normon, and making sure you have a target
|----------------------------------------------------------------
:Start
/target clear
:Starting
/if (${SpawnCount[npc Stonetooth]}>0) {
/target npc Normon Stonetooth
/delay 10
} else {
/delay 10
/goto :Starting
}
/if ((${Target.PctHPs}>99) && ${Target.ID}) {
/saytarget I will do a favor
/delay 10
} else {
/goto :Starting
}
:Checkdullaxe
/if (${Cursor.ID}==1690) {
/goto :Dullaxe
} else {
/delay 20
/goto :Starting
}
:Dullaxe
/target clear
/delay 5
/if (${SpawnCount[npc Hakon]}>0) {
/target npc Hakon Brightsteel
/delay 10
} else {
/delay 10
/goto :Dullaxe
}
/saytarget Stonetooth sent me
/delay 15
/ubertrade
/delay 10
:Dullaxewnd
/if (${Window[GiveWnd].Open} && (!${Cursor.ID})) {
/goto :waitfortrade
} else {
/goto :Dullaxewnd
}
:waitfortrade
/if (${Window[GiveWnd].Child[GVW_MyItemSlot0].Tooltip.Length}<10) {
/delay 10
/goto :waitfotrade
}
|------------------------------------------------------------------------
|-- Pick up a piece of velium, put in trade window, make sure it's there
|------------------------------------------------------------------------
:VeliumGet
/if (${FindItem[=small piece of velium].InvSlot}) {
/nomodkey /keypress OPEN_INV_BAGS
} else {
/goto :Done
}
/delay 25
/ctrlkey /itemnotify ${FindItem[=small piece of velium].InvSlot} leftmouseup
/delay 75 ${Cursor.ID}
/nomodkey /keypress CLOSE_INV_BAGS
/if (!${Cursor.ID}) /goto :VeliumGet
:VeliumGive
/click left target
:VeliumCheck
/delay 10
/if (${Window[GiveWnd].Child[GVW_MyItemSlot1].Tooltip.Length}<20) /goto :VeliumCheck
|-----------------------------------------
|-- Click trade, wait until window closes
|-----------------------------------------
:VeliumTrade
/notify GiveWnd GVW_Give_Button leftmouseup
/delay 10
/if (!${Window[GiveWnd].Open}) /goto :questresult
/goto :VeliumTrade
:questresult
/delay 60s ${FindItem[=Normon's axe].InvSlot}
/if (!${FindItem[=Normon's axe].InvSlot}) /goto :Start
/nomodkey /keypress OPEN_INV_BAGS
/delay 10
:pickstuffup
/nomodkey /ctrlkey /itemnotify ${FindItem[=Normon's axe].InvSlot} leftmouseup
/delay 20s ${Cursor.ID}
/if (!${Cursor.ID}) /goto :pickstuffup
/nomodkey /keypress CLOSE_INV_BAGS
/target clear
/if (${Cursor.ID}==1691) /goto :Sharpaxeturnin
/if (${Cursor.ID}==1690) /goto :Dullaxe
|---------------------------------------------------------------------------------
|-- Check Normon's HP, wait if he's in battle, then turn in the proper axe for xp
|---------------------------------------------------------------------------------
:Sharpaxeturnin
/if (${SpawnCount[npc Stonetooth]}>0) {
/target npc Normon Stonetooth
/delay 10
} else {
/delay 10
/goto :Sharpaxeturnin
}
/if ((${Target.PctHPs}>99) && ${Target.ID}) {
/goto :Sharpaxetrade
} else {
/goto :Sharpaxeturnin
}
:Sharpaxetrade
/ubertrade
/delay 10
/if (${Window[GiveWnd].Open} && !${Cursor.ID}) /goto :Sharpaxedone
/delay 1s
:Sharpaxedone
/notify GiveWnd GVW_Give_Button leftmouseup
/if (!${Window[GiveWnd].Open}) {
/goto :nextrun
} else {
/goto :Sharpaxedone
}
|-----------------------------
|-- And back to the beginning
|-----------------------------
:nextrun
/autoinv
/if (${Cursor.ID}) /goto :nextrun
/goto :Loop
:Done
/echo YOU ARE OUT OF "Small Piece of Velium"
/endmacro