Author Topic: Escort/Compassion Script?  (Read 7959 times)

0 Members and 1 Guest are viewing this topic.

Offline 12TimesOver

  • Another Day, Another Vendetta
  • Global Moderator
  • *
  • *
  • Posts: 3694
  • Activity:
    0%
  • Reputation Power: 41
  • 12TimesOver is a force to reckon with.12TimesOver is a force to reckon with.12TimesOver is a force to reckon with.12TimesOver is a force to reckon with.12TimesOver is a force to reckon with.12TimesOver is a force to reckon with.12TimesOver is a force to reckon with.12TimesOver is a force to reckon with.
  • Gender: Male
  • Respect: +321
  • Referrals: 2
    • View Profile
Re: Escort/Compassion Script?
« Reply #15 on: April 16, 2009, 10:59:38 AM »
0
Probably why I'm always in the doghouse with my wife...  :)

XII

You're just a natural troublemaker, aren't you!
"sigh" *shakes head slowly* If you only knew, my friend...if you only knew...
When they come for me I'll be sitting at my desk
     with a gun in my hand wearing a bulletproof vest
My, my, my how the time does fly
     when you know you're gonna die by the end of the night

Offline silentsentinelTopic starter

  • Jr. Member
  • **
  • Posts: 31
  • Activity:
    0%
  • Reputation Power: 0
  • silentsentinel has no influence.
  • Respect: 0
  • Referrals: 0
    • View Profile
Re: Escort/Compassion Script?
« Reply #16 on: April 16, 2009, 11:56:35 AM »
0
Well, here's what I have so far, just for reference. (Not posted in the debug form or anything as I don't have a specific question yet, but thought I'd update and show what I've got.)

Of course, if you notice any major windfall problems with what I've got so far let me know :)

The outline:

Code: [Select]
set %loopscript #true
set %currentLocation escortDepot1

while %loopScript = #true
{
repeat
gosub checkStatus
until %statusOK = #true
gosub recallAround
gosub watchedCheck
gosub getEscort
}

sub watchedCheck
{
;scan journal for suspicious speech, if suspicious speech is found deflect and halt speech
;also check for odd things such as high weight w/o gold, possibly if character has been moved, etc
return
}

sub checkStatus
{
set %statusOK none
gosub watchedCheck
if #charghost = yes
{
display ok This character died!$
halt
}
if #gold > 3000 || #weight > 300
{
gosub bankGold
}
if #charghost = no && #gold < 3000 && #weight <= 300
{
set %statusOK #true
return
}
}

sub bankGold
{
;recall to bank and bank all gold found on character
return
}

sub recallAround
{
if %currentLocation = escortDepot1
{
;open runebook  and recall to location 1
return
}
if %currentLocation = escortDepot2
{
;open runebook  and recall to location 2
return
}
if %currentLocation = escortDepot3
{
;open runebook  and recall to location 3
return
}
if %currentLocation = escortDepot4
{
;open runebook  and recall to location 4
return
}
if %currentLocation = escortDepot5
{
;open runebook  and recall to location 5
return
}
if %currentLocation = escortDepot6
{
;open runebook  and recall to location 6
return
}
if %currentLocation = escortDepot7
{
;open runebook  and recall to location 7
return
}
if %currentLocation = escortDepot8
{
;open runebook  and recall to location 8
return
}
if %currentLocation = escortDepot9
{
;open runebook  and recall to location 9
return
}
if %currentLocation = escortDepot10
{
;open runebook  and recall to location 10
return
}
if %currentLocation = escortDepot11
{
;open runebook  and recall to location 11
return
}
if %currentLocation = escortDepot12
{
;open runebook  and recall to location 12
return
}
if %currentLocation = escortDepot13
{
;open runebook  and recall to location 13
return
}
if %currentLocation = escortDepot14
{
;open runebook  and recall to location 14
return
}
if %currentLocation = escortDepot15
{
;open runebook  and recall to location 15
return
}
if %currentLocation = escortDepot16
{
;open runebook  and recall to location 16
return
}
}

sub getEscort
{
;scan for npc escort{, approach escort
;determine if and accept escort
;set escort id to %escortID
;set %escortFound #true
if %escortFound = #true
{
set %destination none
;gate escort to safe location to steal their gold, hide for 4.5 minutes or so
set %jStart #jindex + 1
exevent popup %escortID 2
set %jTimeout #scnt + 2
set %jEnd #jindex
while #scnt < %jTimeout
{
for %ji %jStart %jEnd
{
scanjournal %ji
if i_am_looking_to_go_to_britain,_will_you_take_me? in #journal
{
set %destination britain
}
if i_am_looking_to_go_to_cove,_will_you_take_me? in #journal
{
set %destination cove
}
if i_am_looking_to_go_to_covetous,_will_you_take_me? in #journal
{
set %destination covetous
}
if i_am_looking_to_go_to_deceit,_will_you_take_me? in #journal
{
set %destination deceit
}
if i_am_looking_to_go_to_despise,_will_you_take_me? in #journal
{
set %destination despise
}
if i_am_looking_to_go_to_destard,_will_you_take_me? in #journal
{
set %destination destard
}
if i_am_looking_to_go_to_hythloth,_will_you_take_me? in #journal
{
set %destination hythloth
}
if i_am_looking_to_go_to_jhelom,_will_you_take_me? in #journal
{
set %destination jhelom
}
if i_am_looking_to_go_to_magincia,_will_you_take_me? in #journal
{
set %destination magincia
}
if i_am_looking_to_go_to_minoc,_will_you_take_me? in #journal
{
set %destination minoc
}
if i_am_looking_to_go_to_moonglow,_will_you_take_me? in #journal
{
set %destination moonglow
}
if i_am_looking_to_go_to_nujel'm,_will_you_take_me? in #journal
{
set %destination nujelm
}
if i_am_looking_to_go_to_ocllo,_will_you_take_me? in #journal
{
set %destination ocllo
}
if i_am_looking_to_go_to_serpent's_hold,_will_you_take_me? in #journal
{
set %destination serpentshold
}
if i_am_looking_to_go_to_shame,_will_you_take_me? in #journal
{
set %destination shame
}
if i_am_looking_to_go_to_skara_brae,_will_you_take_me? in #journal
{
set %destination skarabrae
}
if i_am_looking_to_go_to_trinsic,_will_you_take_me? in #journal
{
set %destination trinsic
}
if i_am_looking_to_go_to_vesper,_will_you_take_me? in #journal
{
set %destination vesper
}
if i_am_looking_to_go_to_wrong,_will_you_take_me? in #journal
{
set %destination wrong
}
if i_am_looking_to_go_to_yew,_will_you_take_me? in #journal
{
set %destination yew
}
}
}
if %destination = britain
{
exevent popup %escortID 3
;gate escort to destination
}
if %destination = cove
{
exevent popup %escortID 3
;gate escort to destination
}
if %destination = covetous
{
exevent popup %escortID 3
;gate escort to destination
}
if %destination = deceit
{
exevent popup %escortID 3
;gate escort to destination
}
if %destination = despise
{
exevent popup %escortID 3
;gate escort to destination
}
if %destination = destard
{
exevent popup %escortID 3
;gate escort to destination
}
if %destination = hythloth
{
exevent popup %escortID 3
;gate escort to destination
}
if %destination = jhelom
{
exevent popup %escortID 3
;gate escort to destination
}
if %destination = magincia
{
exevent popup %escortID 3
;gate escort to destination
}
if %destination = minoc
{
exevent popup %escortID 3
;gate escort to destination
}
if %destination = moonglow
{
exevent popup %escortID 3
;gate escort to destination
}
if %destination = nujelm
{
exevent popup %escortID 3
;gate escort to destination
}
if %destination = occlo
exevent popup %escortID 3
;gate escort to destination
}
if %destination = serpentshold
{
exevent popup %escortID 3
;gate escort to destination
}
if %destination = shame
{
exevent popup %escortID 3
;gate escort to destination
}
if %destination = skarabrae
{
exevent popup %escortID 3
;gate escort to destination
}
if %destination = trinsic
{
exevent popup %escortID 3
;gate escort to destination
}
if %destination = vesper
{
exevent popup %escortID 3
;gate escort to destination
}
if %destination = wrong
{
exevent popup %escortID 3
;gate escort to destination
}
if %destination = yew
exevent popup %escortID 3
;gate escort to destination
}
set %escortFound none
}
if %escortFound = #false
{
if %currentLocation = escortDepot1
{
set %currentLocation escortDepot2
return %currentLocation
}
if %currentLocation = escortDepot2
{
set %currentLocation escortDepot3
return %currentLocation
}
if %currentLocation = escortDepot3
{
set %currentLocation escortDepot4
return %currentLocation
}
if %currentLocation = escortDepot4
{
set %currentLocation escortDepot5
return %currentLocation
}
if %currentLocation = escortDepot5
{
set %currentLocation escortDepot6
return %currentLocation
}
if %currentLocation = escortDepot6
{
set %currentLocation escortDepot7
return %currentLocation
}
if %currentLocation = escortDepot7
{
set %currentLocation escortDepot8
return %currentLocation
}
if %currentLocation = escortDepot8
{
set %currentLocation escortDepot9
return %currentLocation
}
if %currentLocation = escortDepot9
{
set %currentLocation escortDepot10
return %currentLocation
}
if %currentLocation = escortDepot10
{
set %currentLocation escortDepot11
return %currentLocation
}
if %currentLocation = escortDepot11
{
set %currentLocation escortDepot12
return %currentLocation
}
if %currentLocation = escortDepot12
{
set %currentLocation escortDepot13
return %currentLocation
}
if %currentLocation = escortDepot13
{
set %currentLocation escortDepot14
return %currentLocation
}
if %currentLocation = escortDepot14
{
set %currentLocation escortDepot15
return %currentLocation
}
if %currentLocation = escortDepot15
{
set %currentLocation escortDepot16
return %currentLocation
}
if %currentLocation = escortDepot16
{
set %currentLocation escortDepot1
return %currentLocation
}
}
}
« Last Edit: April 16, 2009, 12:39:44 PM by silentsentinel »

Offline Khameleon

  • Script Tester - Team Leader
  • Elite
  • *
  • *
  • Posts: 2574
  • Activity:
    0%
  • Reputation Power: 30
  • Khameleon is a rising star!Khameleon is a rising star!Khameleon is a rising star!Khameleon is a rising star!Khameleon is a rising star!Khameleon is a rising star!
  • Gender: Male
  • Respect: +238
  • Referrals: 0
    • View Profile
Re: Escort/Compassion Script?
« Reply #17 on: April 16, 2009, 02:49:58 PM »
0
there is a place where the npc timer doesn't count... :)

Offline silentsentinelTopic starter

  • Jr. Member
  • **
  • Posts: 31
  • Activity:
    0%
  • Reputation Power: 0
  • silentsentinel has no influence.
  • Respect: 0
  • Referrals: 0
    • View Profile
Re: Escort/Compassion Script?
« Reply #18 on: April 16, 2009, 03:58:15 PM »
0
huh how so? :)

Offline DeadIssue2

  • Sr. Member
  • *
  • Posts: 287
  • Activity:
    0%
  • Reputation Power: 3
  • DeadIssue2 has no influence.
  • Gender: Male
  • Respect: +21
  • Referrals: 1
    • View Profile
Re: Escort/Compassion Script?
« Reply #19 on: April 16, 2009, 05:51:19 PM »
0
I know you can do the Bravehart quest 5 times per day and get compassion up super fast without having to worry about any timer.

Offline 12TimesOver

  • Another Day, Another Vendetta
  • Global Moderator
  • *
  • *
  • Posts: 3694
  • Activity:
    0%
  • Reputation Power: 41
  • 12TimesOver is a force to reckon with.12TimesOver is a force to reckon with.12TimesOver is a force to reckon with.12TimesOver is a force to reckon with.12TimesOver is a force to reckon with.12TimesOver is a force to reckon with.12TimesOver is a force to reckon with.12TimesOver is a force to reckon with.
  • Gender: Male
  • Respect: +321
  • Referrals: 2
    • View Profile
Re: Escort/Compassion Script?
« Reply #20 on: April 17, 2009, 02:33:14 AM »
0
huh how so? :)
I mentioned it earlier in the thread already.

When they come for me I'll be sitting at my desk
     with a gun in my hand wearing a bulletproof vest
My, my, my how the time does fly
     when you know you're gonna die by the end of the night

Offline silentsentinelTopic starter

  • Jr. Member
  • **
  • Posts: 31
  • Activity:
    0%
  • Reputation Power: 0
  • silentsentinel has no influence.
  • Respect: 0
  • Referrals: 0
    • View Profile
Re: Escort/Compassion Script?
« Reply #21 on: April 17, 2009, 02:51:59 AM »
0
Cool. Things are coming together, very close to being done.

Here's what I have so far if anyone's interested in peeking/commenting:

Code: [Select]
set %rbDepot TLIMJOD
set %rbDestination1 MYIMJOD
set %rbDestination2 ZKJMJOD
set %loopscript #true
set %baseLocation escortDepot12

while %loopScript = #true
{
repeat
gosub checkStatus
until %statusOK = #true
gosub recallAround
;gosub watchedCheck
gosub getEscort
}

sub watchedCheck
{
return
}

sub checkStatus
{
set %statusOK none
;gosub watchedCheck
if #charghost = yes
{
display ok This character died!$
halt
}
if #gold > 3000 || #weight > 300
{
gosub bankGold
}
if #charghost = no && #gold < 3000 && #weight <= 300
{
set %statusOK #true
return
}
}

sub bankGold
{
return
}

sub recallAround
{
if %baseLocation = escortDepot1
{
gosub useRunebook recall 1 %rbDepot dangerNo
wait 20
return
}
if %baseLocation = escortDepot2
{
gosub useRunebook recall 2 %rbDepot dangerNo
wait 20
return
}
if %baseLocation = escortDepot3
{
gosub useRunebook recall 3 %rbDepot dangerNo
wait 20
return
}
if %baseLocation = escortDepot4
{
gosub useRunebook recall 4 %rbDepot dangerNo
wait 20
return
}
if %baseLocation = escortDepot5
{
gosub useRunebook recall 5 %rbDepot dangerNo
wait 20
return
}
if %baseLocation = escortDepot6
{
gosub useRunebook recall 6 %rbDepot dangerNo
wait 20
return
}
if %baseLocation = escortDepot7
{
gosub useRunebook recall 7 %rbDepot dangerNo
wait 20
return
}
if %baseLocation = escortDepot8
{
gosub useRunebook recall 8 %rbDepot dangerNo
wait 20
return
}
if %baseLocation = escortDepot9
{
gosub useRunebook recall 9 %rbDepot dangerNo
wait 20
return
}
if %baseLocation = escortDepot10
{
gosub useRunebook recall 10 %rbDepot dangerNo
wait 20
return
}
if %baseLocation = escortDepot11
{
gosub useRunebook recall 11 %rbDepot dangerNo
wait 20
return
}
if %baseLocation = escortDepot12
{
gosub useRunebook recall 12 %rbDepot dangerNo
wait 20
return
}
if %baseLocation = escortDepot13
{
gosub useRunebook recall 13 %rbDepot dangerNo
wait 20
return
}
if %baseLocation = escortDepot14
{
gosub useRunebook recall 14 %rbDepot dangerNo
wait 20
return
}
if %baseLocation = escortDepot15
{
gosub useRunebook recall 15 %rbDepot dangerNo
wait 20
return
}
if %baseLocation = escortDepot16
{
gosub useRunebook recall 16 %rbDepot dangerNo
wait 20
return
}
}

sub getEscort
{
finditem HS G_4
if #findkind <> -1 && #findkind <> #charid
{
set %npcID #findid
finditem %npcID G_6
set %npcPosX #findx
set %npcPosY #findy
wait 40
event pathfind %npcPosX %npcPosY
wait 60
set %escortFound #true
}
if #findkind = -1 || #findkind = #charid
set %escortFound #false
if %escortFound = #true
{
set %destination none
set %jStart #jindex + 1
event macro 1 0 What is your destination?
wait 20
set %jTimeout #scnt2 + 20
set %jEnd #jindex
while #scnt2 < %jTimeout
{
for %ji %jStart %jEnd
{
scanjournal %ji
if i_am_looking_to_go_to_britain in #journal
{
set %destination britain
set %jTimeout #scnt2
}
if i_am_looking_to_go_to_cove in #journal
{
set %destination cove
set %jTimeout #scnt2
}
if i_am_looking_to_go_to_covetous in #journal
{
set %destination covetous
set %jTimeout #scnt2
}
if i_am_looking_to_go_to_deceit in #journal
{
set %destination deceit
set %jTimeout #scnt2
}
if i_am_looking_to_go_to_despise in #journal
{
set %destination despise
set %jTimeout #scnt2
}
if i_am_looking_to_go_to_destard in #journal
{
set %destination destard
set %jTimeout #scnt2
}
if i_am_looking_to_go_to_hythloth in #journal
{
set %destination hythloth
set %jTimeout #scnt2
}
if i_am_looking_to_go_to_jhelom in #journal
{
set %destination jhelom
set %jTimeout #scnt2
}
if i_am_looking_to_go_to_magincia in #journal
{
set %destination magincia
set %jTimeout #scnt2
}
if i_am_looking_to_go_to_minoc in #journal
{
set %destination minoc
set %jTimeout #scnt2
}
if i_am_looking_to_go_to_moonglow in #journal
{
set %destination moonglow
set %jTimeout #scnt2
}
if i_am_looking_to_go_to_nujel'm in #journal
{
set %destination nujelm
set %jTimeout #scnt2
}
if i_am_looking_to_go_to_ocllo in #journal
{
set %destination ocllo
set %jTimeout #scnt2
}
if i_am_looking_to_go_to_serpent's_hold in #journal
{
set %destination serpentshold
set %jTimeout #scnt2
}
if i_am_looking_to_go_to_shame in #journal
{
set %destination shame
set %jTimeout #scnt2
}
if i_am_looking_to_go_to_skara_brae in #journal
{
set %destination skarabrae
set %jTimeout #scnt2
}
if i_am_looking_to_go_to_trinsic in #journal
{
set %destination trinsic
set %jTimeout #scnt2
}
if i_am_looking_to_go_to_vesper in #journal
{
set %destination vesper
set %jTimeout #scnt2
}
if i_am_looking_to_go_to_wrong in #journal
{
set %destination wrong
set %jTimeout #scnt2
}
if i_am_looking_to_go_to_yew in #journal
{
set %destination yew
set %jTimeout #scnt2
}
if %destination = none
{
ignoreitem %npcID
set %escortFound #false
}
}
}
if %destination = britain
{
finditem %npcID G_6
set %npcPosX #findx
set %npcPosY #findy
event pathfind %npcPosX %npcPosY
wait 40
event macro 1 0 I will take thee.
;gosub stealGold %npcID
gosub useRunebook gate 1 %rbDestination1 dangerNo
}
if %destination = cove
{
finditem %npcID G_6
set %npcPosX #findx
set %npcPosY #findy
event pathfind %npcPosX %npcPosY
wait 40
event macro 1 0 I will take thee.
;gosub stealGold %npcID
gosub useRunebook gate 2 %rbDestination1 dangerNo
}
if %destination = covetous
{
finditem %npcID G_6
set %npcPosX #findx
set %npcPosY #findy
event pathfind %npcPosX %npcPosY
wait 40
event macro 1 0 I will take thee.
;gosub stealGold %npcID
gosub useRunebook gate 3 %rbDestination1 dangerYes
}
if %destination = deceit
{
finditem %npcID G_6
set %npcPosX #findx
set %npcPosY #findy
event pathfind %npcPosX %npcPosY
wait 40
event macro 1 0 I will take thee.
;gosub stealGold %npcID
gosub useRunebook gate 4 %rbDestination1 dangerYes
}
if %destination = despise
{
finditem %npcID G_6
set %npcPosX #findx
set %npcPosY #findy
event pathfind %npcPosX %npcPosY
wait 40
event macro 1 0 I will take thee.
;gosub stealGold %npcID
gosub useRunebook gate 5 %rbDestination1 dangerYes
}
if %destination = destard
{
finditem %npcID G_6
set %npcPosX #findx
set %npcPosY #findy
event pathfind %npcPosX %npcPosY
wait 40
event macro 1 0 I will take thee.
;gosub stealGold %npcID
gosub useRunebook gate 6 %rbDestination1 dangerYes
}
if %destination = hythloth
{
finditem %npcID G_6
set %npcPosX #findx
set %npcPosY #findy
event pathfind %npcPosX %npcPosY
wait 40
event macro 1 0 I will take thee.
;gosub stealGold %npcID
gosub useRunebook gate 7 %rbDestination1 dangerYes
}
if %destination = jhelom
{
finditem %npcID G_6
set %npcPosX #findx
set %npcPosY #findy
event pathfind %npcPosX %npcPosY
wait 40
event macro 1 0 I will take thee.
;gosub stealGold %npcID
gosub useRunebook gate 8 %rbDestination1 dangerNo
}
if %destination = magincia
{
finditem %npcID G_6
set %npcPosX #findx
set %npcPosY #findy
event pathfind %npcPosX %npcPosY
wait 40
event macro 1 0 I will take thee.
;gosub stealGold %npcID
gosub useRunebook gate 9 %rbDestination1 dangerNo
}
if %destination = minoc
{
finditem %npcID G_6
set %npcPosX #findx
set %npcPosY #findy
event pathfind %npcPosX %npcPosY
wait 40
event macro 1 0 I will take thee.
;gosub stealGold %npcID
gosub useRunebook gate 10 %rbDestination1 dangerNo
}
if %destination = moonglow
{
finditem %npcID G_6
set %npcPosX #findx
set %npcPosY #findy
event pathfind %npcPosX %npcPosY
wait 40
event macro 1 0 I will take thee.
;gosub stealGold %npcID
gosub useRunebook gate 11 %rbDestination1 dangerNo
}
if %destination = nujelm
{
finditem %npcID G_6
set %npcPosX #findx
set %npcPosY #findy
event pathfind %npcPosX %npcPosY
wait 40
event macro 1 0 I will take thee.
;gosub stealGold %npcID
gosub useRunebook gate 12 %rbDestination1 dangerNo
}
if %destination = ocllo
{
finditem %npcID G_6
set %npcPosX #findx
set %npcPosY #findy
event pathfind %npcPosX %npcPosY
wait 40
event macro 1 0 I will take thee.
;gosub stealGold %npcID
gosub useRunebook gate 13 %rbDestination1 dangerYes
}
if %destination = serpentshold
{
finditem %npcID G_6
set %npcPosX #findx
set %npcPosY #findy
event pathfind %npcPosX %npcPosY
wait 40
event macro 1 0 I will take thee.
;gosub stealGold %npcID
gosub useRunebook gate 14 %rbDestination1 dangerNo
}
if %destination = shame
{
finditem %npcID G_6
set %npcPosX #findx
set %npcPosY #findy
event pathfind %npcPosX %npcPosY
wait 40
event macro 1 0 I will take thee.
;gosub stealGold %npcID
gosub useRunebook gate 15 %rbDestination1 dangerYes
}
if %destination = skarabrae
{
finditem %npcID G_6
set %npcPosX #findx
set %npcPosY #findy
event pathfind %npcPosX %npcPosY
wait 40
event macro 1 0 I will take thee.
;gosub stealGold %npcID
gosub useRunebook gate 16 %rbDestination1 dangerNo
}
if %destination = trinsic
{
finditem %npcID G_6
set %npcPosX #findx
set %npcPosY #findy
event pathfind %npcPosX %npcPosY
wait 40
event macro 1 0 I will take thee.
;gosub stealGold %npcID
gosub useRunebook gate 1 %rbDestination2 dangerNo
}
if %destination = vesper
{
finditem %npcID G_6
set %npcPosX #findx
set %npcPosY #findy
event pathfind %npcPosX %npcPosY
wait 40
event macro 1 0 I will take thee.
;gosub stealGold %npcID
gosub useRunebook gate 2 %rbDestination2 dangerNo
}
if %destination = wrong
{
finditem %npcID G_6
set %npcPosX #findx
set %npcPosY #findy
event pathfind %npcPosX %npcPosY
wait 40
event macro 1 0 I will take thee.
;gosub stealGold %npcID
gosub useRunebook gate 3 %rbDestination2 dangerYes
}
if %destination = yew
{
finditem %npcID G_6
set %npcPosX #findx
set %npcPosY #findy
event pathfind %npcPosX %npcPosY
wait 40
event macro 1 0 I will take thee.
;gosub stealGold %npcID
gosub useRunebook gate 4 %rbDestination2 dangerNo
}
}
if %escortFound = #false
{
if %baseLocation = escortDepot1
{
set %baseLocation escortDepot2
return %baseLocation
}
if %baseLocation = escortDepot2
{
set %baseLocation escortDepot3
return %baseLocation
}
if %baseLocation = escortDepot3
{
set %baseLocation escortDepot4
return %baseLocation
}
if %baseLocation = escortDepot4
{
set %baseLocation escortDepot5
return %baseLocation
}
if %baseLocation = escortDepot5
{
set %baseLocation escortDepot6
return %baseLocation
}
if %baseLocation = escortDepot6
{
set %baseLocation escortDepot7
return %baseLocation
}
if %baseLocation = escortDepot7
{
set %baseLocation escortDepot8
return %baseLocation
}
if %baseLocation = escortDepot8
{
set %baseLocation escortDepot9
return %baseLocation
}
if %baseLocation = escortDepot9
{
set %baseLocation escortDepot10
return %baseLocation
}
if %baseLocation = escortDepot10
{
set %baseLocation escortDepot11
return %baseLocation
}
if %baseLocation = escortDepot11
{
set %baseLocation escortDepot12
return %baseLocation
}
if %baseLocation = escortDepot12
{
set %baseLocation escortDepot13
return %baseLocation
}
if %baseLocation = escortDepot13
{
set %baseLocation escortDepot14
return %baseLocation
}
if %baseLocation = escortDepot14
{
set %baseLocation escortDepot15
return %baseLocation
}
if %baseLocation = escortDepot15
{
set %baseLocation escortDepot16
return %baseLocation
}
if %baseLocation = escortDepot16
{
set %baseLocation escortDepot1
return %baseLocation
}
}
set %escortFound none
return
}

sub stealGold
{
return
}

sub useRunebook
{
set %rbAction %1
set %rbRune %2 - 1
set %rb %3
set %dangerousLocation %4
set %reGate none
reGate:
if %reGate = #true
wait 60
finditem %rb C_ , #backpackid
set #lobjectid #findid
event macro 17
wait 20
set %rbPage ( %rbRune / 2 ) + 1
if %rbPage < 5
set %rbPage %rbPage - 1
set %rbX #contposx + 140 + ( 35 * %rbPage )
set %rbY #contposy + 200
wait 20
click %rbX %rbY dmc
wait 20
if %rbAction = recall
{
set %rbX #contposx + 140 + ( 160 * ( %rbRune % 2 ) )
set %rbY #contposy + 145
click %rbX %rbY dmc
wait 20
}
if %rbAction = gate
{
if %dangerousLocation = dangerNo
{
set %rbX #contposx + 205 + ( 160 * ( %rbRune % 2 ) )
set %rbY #contposy + 145
set %jStart #jindex + 1
click %rbX %rbY dmc
wait 50
set %jTimeout #scnt2 + 20
set %jEnd #jindex
while #scnt2 < %jTimeout
{
for %ji %jStart %jEnd
{
scanjournal %ji
if spell_fizzles in #journal || location_is_blocked in #journal
{
set %jTimeout #scnt2
set %reGate #true
goto reGate
}
}
}
finditem OTF G_1
set %gateID #findid
set #lobjectid %gateID
event macro 17
wait 40
finditem OTF G_1
set %gateID #findid
set #lobjectid %gateID
event macro 17
wait 40
event macro 13 21
wait 6000
}
if %dangerousLocation = dangerYes
{
set %rbX #contposx + 205 + ( 160 * ( %rbRune % 2 ) )
set %rbY #contposy + 145
set %jStart #jindex + 1
click %rbX %rbY dmc
wait 50
set %jTimeout #scnt2 + 20
set %jEnd #jindex
while #scnt2 < %jTimeout
{
for %ji %jStart %jEnd
{
scanjournal %ji
if spell_fizzles in #journal || location_is_blocked in #journal
{
set %jTimeout #scnt2
set %reGate #true
goto reGate
}
}
}

click %rbX %rbY dmc
wait 50
finditem OTF G_1
set %gateID #findid
set #lobjectid %gateID
event macro 17
wait 40
;confirm dangerous location gump
wait 40
finditem OTF G_1
set %gateID #findid
set #lobjectid %gateID
event macro 17
wait 40
event macro 13 21
wait 6000
}
}
return
}

Offline TrailMyx

  • Officially retired from UO
  • Administrator
  • *
  • *
  • Posts: 13302
  • Activity:
    0.2%
  • Reputation Power: 154
  • TrailMyx is awe-inspiring!TrailMyx is awe-inspiring!TrailMyx is awe-inspiring!TrailMyx is awe-inspiring!TrailMyx is awe-inspiring!TrailMyx is awe-inspiring!TrailMyx is awe-inspiring!TrailMyx is awe-inspiring!TrailMyx is awe-inspiring!TrailMyx is awe-inspiring!TrailMyx is awe-inspiring!TrailMyx is awe-inspiring!
  • Gender: Male
  • Viper!
  • Respect: +1349
  • Referrals: 33
    • View Profile
    • ScriptUO
Re: Escort/Compassion Script?
« Reply #22 on: April 17, 2009, 11:34:39 AM »
0
Will you be doing any pathfinding to your escorts?

Also, what happens if an escort is in a building?

Looks good otherwise
Please read the ScriptUO site RULES
Come play RIFT with me!

Tags: