Code: Select all
//*******************
// GreenBar's PWT NPC Escort
//*******************
//Initialize timers and list
if not timerexists t_escort_cooldown
createtimer "t_escort_cooldown"
settimer t_escort_cooldown 999999
endif
if @listexists li_escort_complete
@clearlist li_escort_complete
else
@createlist "li_escort_complete"
endif
//*******************
// Search for PWT
//*******************
if @findtype "0x1870" 38 backpack and property "Personal World Teleporter" found
@setalias "a_PWT" found
else
sysmsg "PWT Not found in Backpack
stop
endif
//*******************
// Loop until main macro
//*******************
while not dead self
while timer t_escort_cooldown <= 300000
pause 1000
endwhile
@clearjournal
msg "I will take thee"
pause 500
useobject a_PWT
waitforgump 25207138 15000
//Select Trammel
replygump 0x180a162 60000
waitforgump 25207138 15000
//Select desired city
if @injournal "Britain"
replygump 0x180a162 60011
pushlist li_escort_complete "Complete"
elseif @injournal "Buccaneer's Den"
replygump 0x180a162 60012
pushlist li_escort_complete "Complete"
elseif @injournal "Cove"
replygump 0x180a162 60013
pushlist li_escort_complete "Complete"
elseif @injournal "Delucia"
replygump 0x180a162 60014
pushlist li_escort_complete "Complete"
elseif @injournal "Haven"
replygump 0x180a162 60015
pushlist li_escort_complete "Complete"
elseif @injournal "Ocllo"
replygump 0x180a162 60015
pushlist li_escort_complete "Complete"
elseif @injournal "Jhelom"
replygump 0x180a162 60016
pushlist li_escort_complete "Complete"
elseif @injournal "Magincia"
replygump 0x180a162 60017
pushlist li_escort_complete "Complete"
elseif @injournal "Minoc"
replygump 0x180a162 60018
pushlist li_escort_complete "Complete"
elseif @injournal "Moonglow"
replygump 0x180a162 60019
pushlist li_escort_complete "Complete"
elseif @injournal "Nujel'm"
replygump 0x180a162 60020
pushlist li_escort_complete "Complete"
elseif @injournal "Papua"
replygump 0x180a162 60021
pushlist li_escort_complete "Complete"
elseif @injournal "Serpents Hold"
replygump 0x180a162 60022
pushlist li_escort_complete "Complete"
elseif @injournal "Skara Brae"
replygump 0x180a162 60023
pushlist li_escort_complete "Complete"
elseif @injournal "Trinsic"
replygump 0x180a162 60024
pushlist li_escort_complete "Complete"
elseif @injournal "Vesper"
replygump 0x180a162 60025
pushlist li_escort_complete "Complete"
elseif @injournal "Wind
replygump 0x180a162 60026
pushlist li_escort_complete "Complete"
elseif @injournal "Yew
replygump 0x180a162 60027
pushlist li_escort_complete "Complete"
else
sysmsg "Escort Failure" "37"
pause 2000
endif
if list li_escort_complete >= 1
pause 750
useskill 'Hiding'
playsound "redalert.wav"
settimer t_escort_cooldown 0
@clearlist li_escort_complete
endif
endwhile