[UOSteam] NPC Escorting using PWT
Posted: Wed Jan 04, 2023 8:02 pm
A little macro that automates NPC escorting with a Personal World Teleporter. First run it will offer services then use your PWT taking both you and your escort to the requested city. Park your character among the NPC and chat with guildmates or clean out your backpack. When the 5 minutes cool down timer expires it will escort the next NPC. Not to be run unattended.
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