Pilgrim Badge

if $zoneid != 1 then goto endearly
#crossing
gosub automove shrine1-01
gosub push image
gosub automove shrine1-02
gosub push image
gosub automove shrine1-03
gosub push statue
gosub automove shrine1-04
gosub push altar
#Crossing Temple
gosub automove temple|shrine1-05
gosub push altar
gosub automove shrine1-06
gosub push altar
#Tiger Clan
gosub automove crossing|w gate|tiger|shrine1-07
gosub push altar
#NE Wilds
gosub automove crossing|ne gate|shrine1-08
gosub push altar
#Arthe Dale
gosub automove shrine1-09
gosub push glythtide
#Kaerna
gosub automove shrine1-10
gosub push altar
gosub automove shrine1-11
put meditate
pause 90
gosub push statue
put meditate
pause 90
gosub automove mis|shrine1-12
gosub push altar with badge
#Therengia
gosub automove .travel riverhaven|shrine2-01
gosub push altar
gosub automove shrine2-02
gosub push statue
gosub automove e gate|shrine2-03
gosub push sliver
gosub automove 100|shrine2-04
gosub push tongue
#Fortress might need to bypass
#gosub automove cleric|shrine2-05
#gosub push altar
gosub automove .travel rossmans
gosub automove shrine2-06
gosub push altar
gosub automove .travel lang|shrine2-07
gosub push altar
gosub automove shrine2-08
gosub push statue
gosub automove marauders|shrine2-09
gosub push altar
gosub automove theren|shrine2-10
gosub push altar
gosub automove shrine2-11
gosub push altar
gosub automove .travel musp|shrine2-12
gosub push altar
gosub automove shrine2-13
gosub push construct
gosub automove .travel leth|crossing|shrine1-13
gosub push column
gosub automove leth|shrine1-14
gosub push altar
gosub automove shard|shrine3-1
gosub push altar
gosub automove .travel fayrin|shrine3-2
gosub push altar
gosub automove shrine3-3
gosub push altar
gosub automove shrine3-4
gosub push altar
gosub automove w gate|shrine3-5
gosub push altar
exit


push:
var object $1
push %object with badge
return

endearly:
echo Need to start in Crossing
exit

automove:
var movement $0
eval mcount count("%movement", "|")
var ccount 0
#if contains("Cleric|Warrior Mage|Moon Mage|Bard|Empath|Paladin", "$Guild") then put #var powerwalk 1

automove_1:
pause 1
if matchre("%movement(%ccount)", "travel") then goto travelmove
match automove_1 YOU HAVE FAILED
match automove_1 You can't go there
match automove_1 MOVE FAILED
match autoreturn YOU HAVE ARRIVED
else put #goto %movement(%ccount)
matchwait

travelmove:
put %movement(%ccount)
waitfor REACHED YOUR DESTINATION
goto autoreturn