[UOSteam] NPC Escorting using PWT

If you make a Client-side script you can publish it here for other players to use
Post Reply
GreenBar
Grandmaster Scribe
Posts: 92
Joined: Sat Sep 28, 2013 4:05 pm

[UOSteam] NPC Escorting using PWT

Post by GreenBar »

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
Post Reply