basics of this macro one has to be safe to warp and zone
two you need to place invis undead potions in your second potion belt spot.
next sit back and watch teh exp rolle in oh and you will be max ally in about half hour to 45 min on all vald factions.
also recomend checking frostcrypt empty as other players find this just a tad offensive.
two you need to place invis undead potions in your second potion belt spot.
next sit back and watch teh exp rolle in oh and you will be max ally in about half hour to 45 min on all vald factions.
also recomend checking frostcrypt empty as other players find this just a tad offensive.
Rich (BB code):
#event Exp "You Gain Experience!!"
#event fail "#*# I don't have anything for someone with your abilities.#*#"
#event Invis "Your skin stops tingling."
Sub Main
/Echo +============*#*==================+
/Echo -------Please use wisely---------
/Echo +============*#*==================+
/echo ---Start In valdeholm!!
/echo -- Set IVU in potion belt 2
/echo -- Thats it --
/delay 20
/declare Template string outer Unknown
/if (${FindItemCount[Philter of Unlife Awareness]} < 1) /endmacro
/delay 6s
/if (${Me.Sitting}) /stand
/target fene
/warp Target
/delay 1s
/delay 10s
/say Can help
/doevents
/delay 3s
/doevents
/if (${Window[TaskSelectWnd].Open}) {
/notify TaskSelectWnd AcceptButton leftmouseup
/doevents
/delay 3s
/zone frostcrypt
/delay 10s
/potionbelt activate 2
/delay 20s
/warp loc 1389 -386 -153
/delay 20
/warp loc 630 312 -145.92
/delay 20
/warp loc 1993 337 -263
/delay 20
/warp loc 1803 -291 -263
/delay 20
/warp loc 98 -109 -21
/delay 20
/doevents
:run
/if (${Window[RewardSelectionWnd].Open}) /call Event_exp
/if ( ${Zone.ID}==402) /call warp
/return
Sub event_exp
/zone valdeholm
/if (${FindItemCount[Philter of Unlife Awareness]} < 1) /endmacro
/call quest
/return
Sub Event_fail
/beep
/beep
/beep
/zone frostcrypt
/call warp
/return
Sub Quest
/delay 6s
/if (${Me.Sitting}) /stand
/target fene
/warp Target
/delay 1s
/delay 10s
/say Can help
/doevents
/delay 3s
/if (${Window[TaskSelectWnd].Open}) {
/notify TaskSelectWnd AcceptButton leftmouseup
/delay 3s
/zone frostcrypt
/delay 10s
/potionbelt activate 2
/call warp
/return
Sub warp
/delay 10s
/warp loc 1389 -386 -153
/delay 20
/warp loc 630 312 -145.92
/delay 20
/warp loc 1993 337 -263
/delay 20
/warp loc 1803 -291 -263
/delay 20
/warp loc 98 -109 -21
/delay 20
/doevents
:run
/if (${Window[RewardSelectionWnd].Open}) /call Event_exp
/if ( ${Zone.ID}==402) /call warp
/return
Sub Event_invis
/keypress forward
/keypress forward
/delay 3s
/cast "Philter of Unlife Awareness" Item
/delay 6s
/return


Exp on this quest is decent at lvl 71 for the first time...does it change (decrease) the more you do the quest?
Nice exploit and good job with the mac. Can't wait to test it out. 