TTrade (script)

TTrade (script)
Category	Trader
Front-end	StormFront
Author	Tjorlando

This is a script that will take you from one outpost to another in Theren. Must start script in front of a shipment clerk in one of the six Theren outposts or on the sand barge between Musapr'i and Hvaral. I haven't used this script too much. If you see any bugs or have any suggestions, please email me at tjorlando@hotmail.com, and I will try to correct them and repost the script asap. Thanks for any input!
If_1 = Ending Outpost. (riverhaven, lang, theren, fornsted, hvaral, musp)
Requires a valid passport to go past Fornsted.

FYI, this script is meant be used to end your trading day. It will deliver contracts to each outpost you list; it won't pick up any new contracts. It was made in escape and works on stormfront. I'll change the %s with setvariables next chance I get.

Echo If_1 = 
echo riverhaven, lang, theren, fornsted, hvaral, musp
save %1

whereami:
put look
  match riverhaven [Traders' Guild, Shipping Dock]
  match langenfirth [The Fur Exchange, Trading Office]
  match therenborough [Alliance of Exchange, Traders' Center]
  match sandbarge ["The Desert Wind"]
  match sandbarge ["The Suncatcher"]
  match fornsted [Fornsted, Pavilion Outpost]
  match hvaral [Hvaral Trading Post, South Side]
  match musapr'i [Muspar'i Traders' Guild, Freight Office]
  match somewhereelse Obvious paths: 
  match somewhereelse Obvious exits:
 matchwait

somewhereelse:
Echo ? ? ? ? 
exit

sandbarge:
goto %s%sb

riverhaven:
move out
put tell caravan to follow
put go pier
waitfor , following you.
put go arch
waitfor , following you.
put w
waitfor , following you.
put n
waitfor , following you.
put w
waitfor , following you.

Echo
Echo ********
Echo waitforrbarge
Echo ********
Echo 

waitforrbarge:
put look
  match waitforrbarge BEEN IDLE TOO LONG. PLEASE 
  match gorbarge "all aboard
 matchwait

gorbarge:
put tell cara to follow
put go barge
waitonrbarge:
put look
  match waitonrbarge BEEN IDLE TOO LONG. PLEASE 
  match goldock crew ties the barge off.
 matchwait

goldock:
put tell caravan to follow
wait
put go wharf
waitfor , following you.
put tell cara to go fast
put w
waitfor , following you.
put s
waitfor , following you.
put w
waitfor , following you.
put nw
waitfor , following you.
put n
waitfor , following you.
put n
waitfor , following you.
put w
waitfor , following you.
put w
waitfor , following you.
put n
waitfor , following you.
goto %s%l

## Langenfirth ##

langl:
put go building
goto end

langenfirth:
move out
goto %s%l

therenl:
fornsedl:
hvarall:
muspl:
put ne
waitfor , following you.
put ne
waitfor , following you.
put n
waitfor , following you.
put nw
waitfor , following you.
put n
waitfor , following you.
put tell caravan to lead to theren
waitfor hilly pastures in the south to stop at a walled village
put tell caravan to follow
goto %s%t

## Therenborough ##

therent:
put go gate
waitfor , following you.
put n
waitfor , following you.
put n
waitfor , following you.
put e
waitfor , following you.
put e
waitfor , following you.
put n
waitfor , following you.
move go door
move go door
goto end

therenborough:
move west
move out
put tell caravan to follow
put s
waitfor , following you.
put w
waitfor , following you.
put w
waitfor , following you.
put s
waitfor , following you.
put s
waitfor , following you.
put go gate
waitfor , following you.
goto %s%t

fornstedt:
hvaralt:
muspt:

put go wall
waitfor , following you.
put w
waitfor , following you.
put n
waitfor , following you.
put nw
waitfor , following you.
put n
waitfor , following you.
put nw
waitfor , following you.
put ne
waitfor , following you.
put n
waitfor , following you.
put ne
waitfor , following you.
put ne
waitfor , following you.
put nw
waitfor , following you.
put ne
waitfor , following you.
put n
waitfor , following you.
put go road
waitfor , following you.
put n
waitfor , following you.
put ne
waitfor , following you.
put nw
waitfor , following you.
put nw
waitfor , following you.
put n
waitfor , following you.
put n
waitfor , following you.
put nw
waitfor , following you.
put n
waitfor , following you.
put climb path
waitfor , following you.
put up
waitfor , following you.
put up
waitfor , following you.
put up
waitfor , following you.
put up
waitfor , following you.
put up
waitfor , following you.
put ne
waitfor , following you.
put ne
waitfor , following you.
put n
waitfor , following you.
put nw
waitfor , following you.
put climb path
waitfor , following you.
put climb ramp
waitfor , following you.
put go bridge
waitfor , following you.
put w
waitfor , following you.
put w
waitfor , following you.
put go gate
waitfor , following you.
goto %s%f

## Fornsted ##

fornstedf:
move go pav
move w
goto end

fornsted:
move e
move o
put tell caravan to follow
goto %s%f

hvaralf:
muspf:
put w
waitfor , following you.
put go door
waitfor , following you.
put w
waitfor , following you.

passport:
put get my passport
put go gate
  match badpassport Hold your passport in your right hand, 
  match goodpassport After you show him your papers, he nods 
 matchwait

badpassport:
put swap
wait
goto passport

goodpassport:
waitfor , following you.
put stow my passport
wait
put tell cara to lead to hvaral
wait
put put passport in my cloak
wait
put tell caravan to go fast
wait
put rem feedbag
wait
put give caravan
wait
put wear my feedbag

waitfor A narrow gateway, its portcullis raised, emulates a 
put tell caravan to follow
put g gate
waitfor , following you.
put w
waitfor , following you.
goto %s%h

## Hvaral ##

hvaralh:
put w
waitfor , following you.
put nw
waitfor , following you.
move go doorway
goto end

hvaral:
move out
put se
waitfor , following you.
put e
waitfor , following you.
goto %s%h

musph:
put s
waitfor , following you.
put w
waitfor , following you.
put sw
waitfor , following you.
put nw
waitfor , following you.
put go ramp
waitfor , following you.
put w
waitfor , following you.

waitforhbarge:
put look
  match waitforhbarge BEEN IDLE TOO LONG. PLEASE 
  match gohbarge all aboard
 matchwait

gohbarge:
put tell cara to follow
put go barge
waitformdock:
muspsb:
put look
  match waitformdock BEEN IDLE TOO LONG. PLEASE 
  match gomdock The sand barge pulls into
 matchwait

gomdock:
put tell caravan to follow
put go platform
waitfor , following you.
put go ramp
waitfor , following you.
put go gate
waitfor , following you.
put nw
waitfor , following you.
put nw
waitfor , following you.
put nw
waitfor , following you.
put nw
waitfor , following you.
put w
waitfor , following you.
put go city caravansary
waitfor , following you.
move n
goto end

## Musapr'i ##

Musapr'i:
goto %s%m

riverhavenm:
langm:
therenm:
fornsedm:
hvaralm:
move out
put o
waitfor , following you.
put e
waitfor , following you.
put se
waitfor , following you.
put se
waitfor , following you.
put se
waitfor , following you.
put se
waitfor , following you.
put go gate
waitfor , following you.
put go ramp
waitfor , following you.

waitformbarge:
put look
  match waitformbarge BEEN IDLE TOO LONG. PLEASE 
  match gombarge all aboard
 matchwait

gombarge:
put tell cara to follow
put go barge

waitforhdock:
hvaralsb:
fornstedsb:
therensb:
langsb:
riverhavensb:
put look
  match waitforhdock BEEN IDLE TOO LONG. PLEASE 
  match gohdock The sand barge pulls into
 matchwait

gohdock:
put tell caravan to follow
put go dock
waitfor , following you.
put e
waitfor , following you.
put go ramp
waitfor , following you.
put se
waitfor , following you.
put ne
waitfor , following you.
put e
waitfor , following you.
put n
waitfor , following you.
goto %s%h

## Hvaral ##

riverhavenh:
langh:
therenh:
fornstedh:
put e
waitfor , following you.
put tell caravan to lead to fornsted
wait
put tell caravan to go fast
wait
put rem feedbag
wait
put give caravan
wait
put wear my feedbag
waitfor [Arnshal Road, Keep Entrance]
put tell caravan to follow
put go gate
waitfor , following you.
put e
waitfor , following you.
put go door
waitfor , following you.
put e
waitfor , following you.
goto %s%f

## Fornsted ##

riverhavenf:
langf:
therenf:
put tell caravan to follow
put go gate
waitfor , following you.
put tell caravan to go fast
put go bridge
waitfor , following you.
put e
waitfor , following you.
put e
waitfor , following you.
put d
waitfor , following you.
put climb path
waitfor , following you.
put se
waitfor , following you.
put s
waitfor , following you.
put sw
waitfor , following you.
put sw
waitfor , following you.
put d
waitfor , following you.
put d
waitfor , following you.
put d
waitfor , following you.
put d
waitfor , following you.
put d
waitfor , following you.
put climb path
waitfor , following you.
put s
waitfor , following you.
put se
waitfor , following you.
put s
waitfor , following you.
put s
waitfor , following you.
put se
waitfor , following you.
put se
waitfor , following you.
put sw
waitfor , following you.
put s
waitfor , following you.
put w
waitfor , following you.
put s
waitfor , following you.
put sw
waitfor , following you.
put se
waitfor , following you.
put sw
waitfor , following you.
put sw
waitfor , following you.
put s
waitfor , following you.
put sw
waitfor , following you.
put se
waitfor , following you.
put s
waitfor , following you.
put se
waitfor , following you.
put s
waitfor , following you.
put e
waitfor , following you.
put go wall
waitfor , following you.
goto %s%t

## Therenborough ##

riverhavent:
langt:
put tell caravan to lead to lang
waitfor [Outside Langenfirth]
put tell cara to follow
put s
waitfor following you.
put se
waitfor following you.
put s
waitfor following you.
put sw
waitfor following you.
put sw
waitfor following you.
goto %s%l

## Langenfirth ##

riverhavenl:
move s
waitfor , following you.
put tell caravan to go fast
move e
waitfor , following you.
move e
waitfor , following you.
move s
waitfor , following you.
move s
waitfor , following you.
move se
waitfor , following you.
move go landing
waitfor , following you.
move n
waitfor , following you.
move e
waitfor , following you.
Echo
Echo ********
Echo waitforlbarge
Echo waitonlbarge
Echo ********
Echo 
waitforlbarge:
put look
  match waitforlbarge BEEN IDLE TOO LONG. PLEASE 
  match golbarge "all aboard
 matchwait

golbarge:
put tell cara to follow
put go barge
waitonlbarge:
put look
  match waitonlbarge BEEN IDLE TOO LONG. PLEASE 
  match gordock crew ties the barge off.
 matchwait

gordock:
put tell caravan to follow
wait
put go pier
waitfor , following you.
put tell cara to go fast
put e
waitfor , following you.
put s
waitfor , following you.
put e
waitfor , following you.
put go arch
waitfor , following you.
put nw
waitfor , following you.
put go alley
goto end

end:
pause 1
put blink
wait
put get my %s contract
wait
put give my contract to clerk
  match end We did order this, didn't we
  match endend clerk ignores your offer
  match endend You sure this is the right one
  match endend What is it you're trying to give?
 matchwait

endend:
exit