From DRSecrets
Healing Scripts to be used with Dasffion's Combat Scripts
Beisiwurms
healing_beis.cmd
if_1 goto %1
to.heal:
action remove depleted of power to support your spells
action clear
action instant put tend my $1 when (left arm|right arm|left hand|right hand|left leg|right leg) (heavy|moderate|light|slight|bad|very bad|severe)
move e
move e
climb:
pause 0.5
put stow
pause 0.5
put stow left
gosub beis.climb climb rope
move climb lad
move climb creep
move east
move down
move climb trail
move west
move west
move south
move southeast
move southeast
move go gate
move southwest
move south
move go gate
move southwest
move south
move south
move south
move south
move south
move south
move west
move west
move west
move southwest
move southwest
move southwest
move south
move south
move south
move southeast
move southeast
move south
move south
move southeast
move southwest
move south
move south
move southeast
move southeast
move south
move southwest
move southwest
move south
move south
move south
move go gate
move west
move west
move south
move south
move west
move west
if %prime = on then goto prime.heal
move south
move west
move west
move south
move south
move south
move southwest
move go arch
move west
goto arch
prime.heal:
move s
move w
move w
move w
move w
move w
move w
put go bridge
move w
move w
move w
move w
put go gate
put go path
gosub sewer.movement w
gosub sewer.movement w
move nw
move w
move w
move nw
move w
move w
move nw
move w
move w
move sw
move w
move w
move nw
move nw
move w
move w
move nw
move w
move w
move go brook
move w
move w
move w
move sw
move w
move nw
move go bramb
move ne
move ne
move n
move ne
put climb tree
move nw
move nw
move nw
move down
move e
move ne
put climb root
move n
move ne
move ne
move n
move go bush
move nw
move n
move nw
move go outcrop
move ne
move ne
move ne
move nw
move nw
move n
move nw
move go gate
move w
move nw
move n
move go bridge
move n
move n
move n
move ne
move go ent
move go cav
goto auto
put #abortscript
leave.arch:
move east
gosub power
move go door
gosub power
move northeast
gosub power
move north
gosub power
move north
gosub power
move north
gosub power
move east
gosub power
move east
gosub power
move north
gosub power
move east
gosub power
move east
gosub power
move north
gosub power
move north
gosub power
move east
gosub power
move east
gosub power
move go gate
gosub power
move north
gosub power
move north
gosub power
move north
gosub power
move northeast
gosub power
move northeast
gosub power
move north
gosub power
move northwest
gosub power
move northwest
gosub power
move north
gosub power
move north
gosub power
move northeast
gosub power
move northwest
gosub power
move north
gosub power
move north
gosub power
move northwest
gosub power
move northwest
gosub power
move north
gosub power
move north
gosub power
move north
gosub power
move northeast
gosub power
move northeast
gosub power
move northeast
gosub power
move east
gosub power
move east
gosub power
move east
gosub power
move north
gosub power
move north
gosub power
move north
gosub power
move north
gosub power
move north
gosub power
move north
gosub power
move northeast
gosub power
move go gate
gosub power
move north
gosub power
move northeast
gosub power
move go gate
gosub power
move northwest
gosub power
move northwest
gosub power
move north
gosub power
move east
gosub power
move east
gosub power
move climb trail
move up
move west
move climb creep
move climb lad
move climb rope
move e
setvariable juggle on
action clear
goto Load.Actions
leave.auto:
if %prime = on then goto leave.prime.heal
put stand
move go arch
gosub power
move east
gosub power
move east
gosub power
move north
gosub power
move north
gosub power
move east
gosub power
move east
gosub power
move go gate
gosub power
move north
gosub power
move north
gosub power
move north
gosub power
move northeast
gosub power
move northeast
gosub power
move north
gosub power
move northwest
gosub power
move northwest
gosub power
move north
gosub power
move north
gosub power
move northeast
gosub power
move northwest
gosub power
move north
gosub power
move north
gosub power
move northwest
gosub power
move northwest
gosub power
move north
gosub power
move north
gosub power
move north
gosub power
move northeast
gosub power
move northeast
gosub power
move northeast
gosub power
move east
gosub power
move east
gosub power
move east
gosub power
move north
gosub power
move north
gosub power
move north
gosub power
move north
gosub power
move north
gosub power
move north
gosub power
move northeast
gosub power
move go gate
gosub power
move north
gosub power
move northeast
gosub power
move go gate
gosub power
move northwest
gosub power
move northwest
gosub power
move north
gosub power
move east
gosub power
move east
gosub power
move climb trail
move up
move west
move climb creep
move climb lad
move climb rope
move east
setvariable juggle on
action clear
goto Load.Actions
put #abortscript
leave.auto.prime:
put stand
move e
move out
move sw
move s
move s
move go bridge
move s
move s
move se
move e
move go gate
move se
move s
move se
move se
move sw
move sw
move sw
move go outcrop
move se
move s
move se
move go bush
move s
move sw
move sw
move s
put climb root
move sw
move w
move up
move se
move se
move se
move climb tree
move sw
move s
move sw
move go patch
move s
move se
move e
move ne
move e
move go brook
move e
move e
move e
move e
move se
move e
move e
move se
move se
move e
move e
move ne
move e
move e
move se
move e
move e
move se
gosub sewer.movement e
gosub sewer.movement e
move go path
move go gate
move e
move e
move e
move e
move e
move go bridge
move e
move e
move e
move e
move e
move e
move e
move n
move east
move east
move north
move north
move east
move east
move go gate
move north
move north
move north
move northeast
move northeast
move north
move northwest
move northwest
move north
move north
move northeast
move northwest
move north
move north
move northwest
move northwest
move north
move north
move north
move northeast
move northeast
move northeast
move east
move east
move east
move north
move north
move north
move north
move north
move north
move northeast
move go gate
move north
move northeast
move go gate
move northwest
move northwest
move north
move east
move east
move climb trail
move up
move west
move climb creep
move climb lad
move climb rope
move east
setvariable juggle on
action clear
goto Load.Actions
put #abortscript
auto.path2:
move e
pause 0.5
put go door
pause 0.5
move ne
pause 0.5
move n
pause 0.5
move n
pause 0.5
move n
pause 0.5
move e
pause 0.5
move e
pause 0.5
move n
pause 0.5
move go arch
pause 0.5
action remove prone
goto auto
beis.climb:
pause 0.2
put $0
match health unharmed but feel foolish.
match health Struck by vertigo
match health but the steepness
match health but reach a point where your footing
match beis.climb.end Obvious exits:
match beis.climb.end Obvious paths:
match beis.retreat engaged
matchwait
beis.retreat:
pause 0.2
put retr
match beis.retreat You retreat
match beis.climb You are already as far
match beis.retreat pole range
match beis.retreat You retreat from combat
match beis.retreat roundtime
matchwait
beis.movement.end:
return
health:
pause 0.5
put stand
pause 0.5
if %used.weapon = %weapon.skill1 then put wield %weapon1
if %used.weapon = %weapon.skill2 then put wield %weapon2
if %used.weapon = %weapon.skill3 then put wield %weapon3
if %used.weapon = %weapon.skill4 then put wield %weapon4
put health
pause 1
goto climb
Cougars
to.heal:
action remove depleted of power to support your spells
move ne
move e
move ne
move e
move go brook
move e
move e
move e
move e
move se
move e
move e
move se
move se
move e
move e
move ne
move e
move e
move se
move e
move e
move se
gosub sewer.movement e
gosub sewer.movement e
move go path
move go gate
move e
move e
move e
move e
move e
move go bridge
move e
move e
move e
move e
move e
move s
move s
move s
move sw
if %prime = on then goto leave.arch.prime
move go arch
move w
setvariable juggle on
goto arch
leave.arch:
move e
gosub power
move go door
gosub power
move ne
gosub power
move n
gosub power
move n
gosub power
move n
gosub power
move w
gosub power
move w
gosub power
move w
gosub power
move w
gosub power
put go bridge
gosub power
move w
gosub power
move w
gosub power
move w
gosub power
move w
gosub power
put go gate
gosub power
put go path
move w
move w
move nw
move w
move w
move nw
move w
move w
move sw
move w
move w
move nw
move nw
move w
move w
move nw
move w
move w
move go brook
move w
move w
move w
move sw
move w
move sw
setvariable juggle on
goto count
leave.auto:
put stand
move go arch
gosub power
move s
gosub power
move w
gosub power
move w
gosub power
move w
gosub power
move w
gosub power
move w
gosub power
move w
gosub power
put go bridge
gosub power
move w
gosub power
move w
gosub power
move w
gosub power
move w
gosub power
move go gate
gosub power
move go path
gosub sewer.movement w
gosub sewer.movement w
move nw
move w
move w
move nw
move w
move w
move sw
move w
move w
move nw
move nw
move w
move w
move nw
move w
move w
move go brook
move w
move w
move w
move sw
move w
move sw
setvariable juggle on
goto count
auto.path2:
move e
pause 0.5
put go door
leave.arch.prime:
pause 0.5
move ne
pause 0.5
move n
pause 0.5
move n
pause 0.5
move n
pause 0.5
move e
pause 0.5
move e
pause 0.5
move n
pause 0.5
move go arch
pause 0.5
action remove prone
goto auto
Dark Spirits
if_1 goto %1
to.heal:
action remove depleted of power to support your spells
put s
pause 0.5
move go hole
move out
move s
move out
move w
move n
move ne
move n
move nw
move n
move go gate
move e
gusub sewer.movement e
gusub sewer.movement se
gusub sewer.movement se
gusub sewer.movement e
gusub sewer.movement e
gusub sewer.movement ne
gusub sewer.movement e
gusub sewer.movement e
gusub sewer.movement se
gusub sewer.movement e
gusub sewer.movement e
gusub sewer.movement se
gusub sewer.movement e
gusub sewer.movement e
gusub sewer.movement go path
move go gate
move e
move e
move e
move e
move e
move go bridge
move e
move e
move e
move e
move e
move s
move s
move s
move sw
move go arch
move w
goto arch
put #abortscript
leave.arch:
move e
gosub power
move go door
gosub power
move ne
gosub power
move n
gosub power
move n
gosub power
move n
gosub power
move w
gosub power
move w
gosub power
move w
gosub power
move w
gosub power
put go bridge
gosub power
move w
gosub power
move w
gosub power
move w
gosub power
move w
gosub power
put go gate
gosub power
put go path
gosub sewer.movement w
gosub sewer.movement w
gosub sewer.movement nw
gosub sewer.movement w
gosub sewer.movement w
gosub sewer.movement nw
gosub sewer.movement w
gosub sewer.movement w
gosub sewer.movement sw
gosub sewer.movement w
gosub sewer.movement w
gosub sewer.movement nw
gosub sewer.movement nw
gosub sewer.movement w
gosub sewer.movement go gate
move s
move se
move s
move sw
move go green
move e
move go cem
move n
move go gap
put go hole
pause 0.5
put n
setvariable juggle on
goto count
put #abortscript
leave.auto:
put stand
move go arch
gosub power
move s
gosub power
move w
gosub power
move w
gosub power
move w
gosub power
move w
gosub power
move w
gosub power
move w
gosub power
put go bridge
gosub power
move w
gosub power
move w
gosub power
move w
gosub power
move w
gosub power
put go gate
gosub power
put go path
gosub sewer.movement w
gosub sewer.movement w
gosub sewer.movement nw
gosub sewer.movement w
gosub sewer.movement w
gosub sewer.movement nw
gosub sewer.movement w
gosub sewer.movement w
gosub sewer.movement sw
gosub sewer.movement w
gosub sewer.movement w
gosub sewer.movement nw
gosub sewer.movement nw
gosub sewer.movement w
gosub sewer.movement go gate
move s
move se
move s
move sw
move go green
move e
move go cem
move n
move go gap
put go hole
pause 0.5
put n
setvariable juggle on
goto count
put #abortscript
to.gem:
action remove depleted of power to support your spells
action remove depleted of power to support your spells
put s
move go hole
move out
move s
move out
move w
move n
move ne
move n
move nw
move n
move go gate
move e
gusub sewer.movement e
gusub sewer.movement se
gusub sewer.movement se
gusub sewer.movement e
gusub sewer.movement e
gusub sewer.movement ne
gusub sewer.movement e
gusub sewer.movement e
gusub sewer.movement se
gusub sewer.movement e
gusub sewer.movement e
gusub sewer.movement se
gusub sewer.movement e
gusub sewer.movement e
gusub sewer.movement go path
move go gate
move e
move e
move e
move e
move e
move go bridge
move e
move e
move e
move e
move e
move s
move s
move s
move sw
move go arch
move w
goto check.gwyd
put #abortscript
auto.path2:
move e
pause 0.5
put go door
pause 0.5
move ne
pause 0.5
move n
pause 0.5
move n
pause 0.5
move n
pause 0.5
move e
pause 0.5
move e
pause 0.5
move n
pause 0.5
move go arch
pause 0.5
action remove prone
goto auto
put #abortscript
deposit.money:
setvariable copper 0
setvariable bronze 0
setvariable silver 0
setvariable gold 0
setvariable plat 0
action setvariable plat $1 when (\d+) platinum,
action setvariable gold $1 when (\d+) gold,
action setvariable gold $1 when platinum, and (\d+) gold
action setvariable silver $1 when (\d+) silver,
action setvariable silver $1 when gold, and (\d+) silver
action setvariable bronze $1 when (\d+) bronze,
action setvariable bronze $1 when silver, and (\d+) bronze
action setvariable copper $1 when , and (\d+) copper
move e
pause 0.5
move out
pause 0.5
move e
pause 0.5
move s
pause 0.5
move s
pause 0.5
move se
pause 0.5
move go bank
pause 0.5
move go booth
pause 0.5
put exch all doko for lir
pause 0.5
put exch all kron for lir
pause 0.5
move out
pause 0.5
move go window
pause 0.5
setvariable copper 0
setvariable bronze 0
setvariable silver 0
setvariable gold 0
setvariable plat 0
put check balance
pause 5
math bronze multiply 10
math silver multiply 100
math gold multiply 1000
math plat multiply 10000
setvariable pre.dep %copper
math pre.dep add %bronze
math pre.dep add %silver
math pre.dep add %gold
math pre.dep add %plat
echo %pre.dep
put dep all
pause 2
setvariable copper 0
setvariable bronze 0
setvariable silver 0
setvariable gold 0
setvariable plat 0
put
put check balance
pause 5
math bronze multiply 10
math silver multiply 100
math gold multiply 1000
math plat multiply 10000
setvariable post.dep %copper
math post.dep add %bronze
math post.dep add %silver
math post.dep add %gold
math post.dep add %plat
echo %post.dep
math post.dep subtract %pre.dep
pause 1
put #math Profit add %post.dep
pause 2
put #statusbar panel1 Total Profit: %Profit
move out
pause 0.5
move nw
pause 0.5
move n
pause 0.5
move n
move w
move go arch
move w
goto leave.arch
put #abortscript
Dusk Ogres
if_1 goto %1
to.heal:
action remove depleted of power to support your spells
move s
move s
move s
move go root
move s
move go gap
move e
move se
move se
move go path
move se
move go gate
move e
move e
move e
move e
move e
move e
move e
move go arch
move w
goto arch
leave.arch:
move e
move go door
move w
move w
move w
move w
move w
move w
move w
move go gate
move nw
move go path
move nw
move nw
move w
move go gap
move n
move go root
move n
move n
move n
setvariable juggle on
goto count
leave.auto:
pause 0.5
put stand
pause 0.5
move w
move out
move s
move s
move s
move s
move s
move s
move s
move w
move w
move w
move w
move w
move w
move w
move go gate
move nw
move go path
move nw
move nw
move w
move go gap
move n
move go root
move n
move n
move n
setvariable juggle on
goto count
to.gem:
move s
move s
move s
move go root
move s
move go gap
move e
move se
move se
move go path
move se
move go gate
move e
move e
move e
move e
move e
move e
move e
move go arch
move w
goto check.gwyd
auto.path2:
move east
move go door
move north
move north
move north
move north
move north
move north
move north
move go hospital
move go arch
action remove prone
goto auto
deposit.money:
setvariable copper 0
setvariable bronze 0
setvariable silver 0
setvariable gold 0
setvariable plat 0
action setvariable plat $1 when (\d+) platinum,
action setvariable gold $1 when (\d+) gold,
action setvariable gold $1 when platinum, and (\d+) gold
action setvariable silver $1 when (\d+) silver,
action setvariable silver $1 when gold, and (\d+) silver
action setvariable bronze $1 when (\d+) bronze,
action setvariable bronze $1 when silver, and (\d+) bronze
action setvariable copper $1 when , and (\d+) copper
move e
gosub power
move go door
gosub power
move n
gosub power
move n
gosub power
move n
gosub power
move go bank
gosub power
move go arch
move go door
put exch all doko for lir
pause 0.5
put exch all kron for lir
pause 0.5
move go door
pause 0.5
setvariable copper 0
setvariable bronze 0
setvariable silver 0
setvariable gold 0
setvariable plat 0
put check balance
pause 5
math bronze multiply 10
math silver multiply 100
math gold multiply 1000
math plat multiply 10000
setvariable pre.dep %copper
math pre.dep add %bronze
math pre.dep add %silver
math pre.dep add %gold
math pre.dep add %plat
echo %pre.dep
put dep all
pause 2
setvariable copper 0
setvariable bronze 0
setvariable silver 0
setvariable gold 0
setvariable plat 0
put check balance
pause 5
math bronze multiply 10
math silver multiply 100
math gold multiply 1000
math plat multiply 10000
setvariable post.dep %copper
math post.dep add %bronze
math post.dep add %silver
math post.dep add %gold
math post.dep add %plat
echo %post.dep
math post.dep subtract %pre.dep
pause 1
put #math Profit add %post.dep
pause 2
put #statusbar panel1 Total Profit: %Profit
move go arch
move out
move s
move s
move s
move go arch
move w
goto leave.arch
to.box:
move s
move s
move s
move go root
move s
move go gap
move e
move se
move se
move go path
move se
move go gate
move e
move e
move e
move e
move e
move e
move e
move go hall
goto disarm
RunForEmpath:
put drop %disarmit
math box.carry subtract 1
pause 0.5
pause 0.5
move out
move go arch
move w
goto Arch
leave.box:
move out
move go arch
move w
goto deposit.money
Eels
if_1 goto %1
to.heal:
action remove depleted of power to support your spells
move go ledge
move e
move n
move e
move ne
move ne
move ne
move n
move n
move n
move e
move e
move go path
move go gate
move e
move e
move e
move e
move e
move go bridge
move e
move e
move e
move e
move e
move s
move s
move s
move sw
move go arch
move w
goto arch
leave.arch:
move e
gosub power
move go door
gosub power
move ne
gosub power
move n
gosub power
move n
gosub power
move n
gosub power
move w
gosub power
move w
gosub power
move w
gosub power
move w
gosub power
put go bridge
gosub power
move w
gosub power
move w
gosub power
move w
gosub power
move w
gosub power
move go gate
gosub power
move go path
move w
move w
move s
move s
move s
move sw
move sw
move sw
move w
move n
move w
move go river
move s
move s
setvariable juggle on
goto count
leave.auto:
put stand
move go arch
gosub power
move s
gosub power
move w
gosub power
move w
gosub power
move w
gosub power
move w
gosub power
move w
gosub power
move w
gosub power
put go bridge
gosub power
move w
gosub power
move w
gosub power
move w
gosub power
move w
gosub power
put go gate
gosub power
put go path
move w
move w
move s
move s
move s
move sw
move sw
move sw
move w
move n
move w
move go river
move s
move s
setvariable juggle on
goto count
to.gem:
action remove depleted of power to support your spells
move e
move e
move ne
move e
move e
move se
move e
move e
move se
move e
move e
move go path
move e
move e
move e
move e
move e
move go bridge
move e
move e
move e
move e
move s
move s
move s
move sw
move go arch
move w
goto check.gwyd
auto.path2:
move e
put go door
move ne
move n
move n
move n
move e
move e
move n
move go arch
action remove prone
goto auto
deposit.money:
setvariable copper 0
setvariable bronze 0
setvariable silver 0
setvariable gold 0
setvariable plat 0
action setvariable plat $1 when (\d+) platinum,
action setvariable gold $1 when (\d+) gold,
action setvariable gold $1 when platinum, and (\d+) gold
action setvariable silver $1 when (\d+) silver,
action setvariable silver $1 when gold, and (\d+) silver
action setvariable bronze $1 when (\d+) bronze,
action setvariable bronze $1 when silver, and (\d+) bronze
action setvariable copper $1 when , and (\d+) copper
move e
pause 0.5
move go door
pause 0.5
move e
pause 0.5
move s
pause 0.5
move s
pause 0.5
move se
pause 0.5
move go bank
pause 0.5
move go booth
pause 0.5
put exch all doko for kron
pause 0.5
put exch all lir for kron
pause 0.5
move out
pause 0.5
move go window
pause 0.5
setvariable copper 0
setvariable bronze 0
setvariable silver 0
setvariable gold 0
setvariable plat 0
put check balance
pause 5
math bronze multiply 10
math silver multiply 100
math gold multiply 1000
math plat multiply 10000
setvariable pre.dep %copper
math pre.dep add %bronze
math pre.dep add %silver
math pre.dep add %gold
math pre.dep add %plat
echo %pre.dep
put dep all
pause 2
setvariable copper 0
setvariable bronze 0
setvariable silver 0
setvariable gold 0
setvariable plat 0
put
put check balance
pause 5
math bronze multiply 10
math silver multiply 100
math gold multiply 1000
math plat multiply 10000
setvariable post.dep %copper
math post.dep add %bronze
math post.dep add %silver
math post.dep add %gold
math post.dep add %plat
echo %post.dep
math post.dep subtract %pre.dep
pause 1
put #math Profit add %post.dep
pause 2
put #statusbar panel1 Total Profit: %Profit
move out
move out
move nw
move n
move n
move w
move go arch
move w
goto leave.arch
to.box:
move e
move e
move ne
move e
move e
move se
move e
move e
move se
move e
move e
move go path
move go gate
move e
move e
move e
move e
move e
move go bridge
move e
move e
move e
move e
move e
move s
move s
move s
move sw
move go arch
move w
goto disarm
RunForEmpath:
goto Arch
leave.box:
goto deposit.money
Dark Fiends
to.heal:
action remove depleted of power to support your spells
move west
move south
move south
move south
move south
move climb stair
move north
move north
move north
move climb stair
move south
move go door
move go lawn
move go gate
move southeast
move southeast
move southeast
move southeast
move east
move go arch
move west
goto arch
to.gem:
move west
move south
move south
move south
move south
move climb stair
move north
move north
move north
move climb stair
move south
move go door
move go lawn
move go gate
move southeast
move southeast
move southeast
move southeast
move east
move go arch
move west
goto check.gwyd
leave.arch:
move e
gosub power
move go door
gosub power
move w
gosub power
move nw
gosub power
move nw
gosub power
move nw
gosub power
move nw
gosub power
move go gate
move go por
move go door
move n
move climb stair
move s
move s
move s
move climb stair
move n
move n
move n
move n
move e
setvariable juggle on
goto count
leave.auto:
pause 0.5
put stand
pause 0.5
move w
gosub power
move out
gosub power
move s
gosub power
move w
gosub power
move sw
gosub power
move nw
gosub power
move go gate
move go por
move go door
move n
move climb stair
move s
move s
move s
move climb stair
move n
move n
move n
move n
move e
setvariable juggle on
goto count
auto.path2:
move east
move go door
move north
move north
move north
move north
move north
move north
move north
move go hospital
move go arch
action remove prone
goto auto
deposit.money:
setvariable copper 0
setvariable bronze 0
setvariable silver 0
setvariable gold 0
setvariable plat 0
action setvariable plat $1 when (\d+) platinum,
action setvariable gold $1 when (\d+) gold,
action setvariable gold $1 when platinum, and (\d+) gold
action setvariable silver $1 when (\d+) silver,
action setvariable silver $1 when gold, and (\d+) silver
action setvariable bronze $1 when (\d+) bronze,
action setvariable bronze $1 when silver, and (\d+) bronze
action setvariable copper $1 when , and (\d+) copper
move e
gosub power
move go door
gosub power
move n
gosub power
move n
gosub power
move n
gosub power
move go bank
gosub power
move go arch
move go door
put exch all doko for lir
pause 0.5
put exch all kron for lir
pause 0.5
move go door
pause 0.5
setvariable copper 0
setvariable bronze 0
setvariable silver 0
setvariable gold 0
setvariable plat 0
put check balance
pause 5
math bronze multiply 10
math silver multiply 100
math gold multiply 1000
math plat multiply 10000
setvariable pre.dep %copper
math pre.dep add %bronze
math pre.dep add %silver
math pre.dep add %gold
math pre.dep add %plat
echo %pre.dep
put dep all
pause 2
setvariable copper 0
setvariable bronze 0
setvariable silver 0
setvariable gold 0
setvariable plat 0
put check balance
pause 5
math bronze multiply 10
math silver multiply 100
math gold multiply 1000
math plat multiply 10000
setvariable post.dep %copper
math post.dep add %bronze
math post.dep add %silver
math post.dep add %gold
math post.dep add %plat
echo %post.dep
math post.dep subtract %pre.dep
pause 1
put #math Profit add %post.dep
pause 2
put #statusbar panel1 Total Profit: %Profit
move go arch
move out
move n
move n
move n
move w
move sw
move nw
move go gate
move go por
move go door
move n
move climb stair
move s
move s
move s
move climb stair
move n
move n
move n
move n
move e
goto count
Goblins
to.heal:
action remove depleted of power to support your spells
move west
move south
move south
move south
move south
move climb stair
move north
move north
move north
move climb stair
move south
move go door
move go lawn
move go gate
move southeast
move southeast
move southeast
move southeast
move east
move go arch
move west
goto arch
to.gem:
move west
move south
move south
move south
move south
move climb stair
move north
move north
move north
move climb stair
move south
move go door
move go lawn
move go gate
move southeast
move southeast
move southeast
move southeast
move east
move go arch
move west
goto check.gwyd
leave.arch:
move e
gosub power
move go door
gosub power
move w
gosub power
move nw
gosub power
move nw
gosub power
move nw
gosub power
move nw
gosub power
move go gate
move go por
move go door
move n
move climb stair
move s
move s
move s
move climb stair
move n
move n
move n
move n
move e
setvariable juggle on
goto count
leave.auto:
pause 0.5
put stand
pause 0.5
move w
gosub power
move out
gosub power
move s
gosub power
move w
gosub power
move sw
gosub power
move nw
gosub power
move go gate
move go por
move go door
move n
move climb stair
move s
move s
move s
move climb stair
move n
move n
move n
move n
move e
setvariable juggle on
goto count
auto.path2:
move east
move go door
move north
move north
move north
move north
move north
move north
move north
move go hospital
move go arch
action remove prone
goto auto
deposit.money:
setvariable copper 0
setvariable bronze 0
setvariable silver 0
setvariable gold 0
setvariable plat 0
action setvariable plat $1 when (\d+) platinum,
action setvariable gold $1 when (\d+) gold,
action setvariable gold $1 when platinum, and (\d+) gold
action setvariable silver $1 when (\d+) silver,
action setvariable silver $1 when gold, and (\d+) silver
action setvariable bronze $1 when (\d+) bronze,
action setvariable bronze $1 when silver, and (\d+) bronze
action setvariable copper $1 when , and (\d+) copper
move e
gosub power
move go door
gosub power
move n
gosub power
move n
gosub power
move n
gosub power
move go bank
gosub power
move go arch
move go door
put exch all doko for lir
pause 0.5
put exch all kron for lir
pause 0.5
move go door
pause 0.5
setvariable copper 0
setvariable bronze 0
setvariable silver 0
setvariable gold 0
setvariable plat 0
put check balance
pause 5
math bronze multiply 10
math silver multiply 100
math gold multiply 1000
math plat multiply 10000
setvariable pre.dep %copper
math pre.dep add %bronze
math pre.dep add %silver
math pre.dep add %gold
math pre.dep add %plat
echo %pre.dep
put dep all
pause 2
setvariable copper 0
setvariable bronze 0
setvariable silver 0
setvariable gold 0
setvariable plat 0
put check balance
pause 5
math bronze multiply 10
math silver multiply 100
math gold multiply 1000
math plat multiply 10000
setvariable post.dep %copper
math post.dep add %bronze
math post.dep add %silver
math post.dep add %gold
math post.dep add %plat
echo %post.dep
math post.dep subtract %pre.dep
pause 1
put #math Profit add %post.dep
pause 2
put #statusbar panel1 Total Profit: %Profit
move go arch
move out
move n
move n
move n
move w
move sw
move nw
move go gate
move go por
move go door
move n
move climb stair
move s
move s
move s
move climb stair
move n
move n
move n
move n
move e
goto count
Hatchlings
if_1 goto %1
to.heal:
action remove depleted of power to support your spells
gosub sewer.movement se
gosub sewer.movement down
gosub sewer.movement s
gosub sewer.movement d
gosub sewer.movement e
gosub sewer.movement ne
gosub sewer.movement se
gosub sewer.movement go pass
gosub sewer.movement go grat
move e
move ne
move se
move s
move se
move se
move s
move s
move s
move w
move nw
move w
move sw
move w
move go arch
move w
goto arch
to.gem:
gosub sewer.movement se
gosub sewer.movement down
gosub sewer.movement s
gosub sewer.movement d
gosub sewer.movement e
gosub sewer.movement ne
gosub sewer.movement se
gosub sewer.movement go pass
gosub sewer.movement go grat
move e
gosub power
move ne
gosub power
move se
gosub power
move s
gosub power
move se
gosub power
move se
gosub power
move s
gosub power
move s
gosub power
move s
gosub power
move w
gosub power
move nw
gosub power
move w
gosub power
move sw
gosub power
move w
gosub power
move go arch
gosub power
move w
goto check.gwyd
leave.arch:
setvariable juggle on
move e
gosub power
move go door
gosub power
move e
gosub power
move ne
gosub power
move e
gosub power
move se
gosub power
move e
gosub power
move n
gosub power
move n
gosub power
move n
gosub power
move nw
gosub power
move nw
gosub power
move n
gosub power
move nw
gosub power
move sw
gosub power
move w
move go grat
move go pass
gosub sewer.movement w
gosub sewer.movement nw
gosub sewer.movement sw
gosub sewer.movement u
gosub sewer.movement n
gosub sewer.movement u
gosub sewer.movement nw
goto count
leave.auto:
put stand
pause 0.5
action put stand when prone
setvariable juggling on
put go disp
gosub power
move w
gosub power
put out
gosub power
move w
gosub power
move sw
gosub power
move sw
gosub power
move s
gosub power
move sw
gosub power
move s
gosub power
move e
gosub power
move se
gosub power
move se
gosub power
move se
gosub power
move s
gosub power
move s
gosub power
move se
gosub power
move e
gosub power
move s
gosub power
move se
gosub power
move s
gosub power
move s
gosub power
move ne
gosub power
move e
gosub power
move e
gosub power
put go arch
gosub power
move w
gosub power
goto leave.arch
deposit.money:
setvariable copper 0
setvariable bronze 0
setvariable silver 0
setvariable gold 0
setvariable plat 0
action setvariable plat $1 when (\d+) platinum,
action setvariable gold $1 when (\d+) gold,
action setvariable gold $1 when platinum, and (\d+) gold
action setvariable silver $1 when (\d+) silver,
action setvariable silver $1 when gold, and (\d+) silver
action setvariable bronze $1 when (\d+) bronze,
action setvariable bronze $1 when silver, and (\d+) bronze
action setvariable copper $1 when , and (\d+) copper
gosub power
put e
nextroom
gosub power
put go door
nextroom
gosub power
put e
nextroom
gosub power
put ne
nextroom
gosub power
put e
nextroom
gosub power
put se
nextroom
gosub power
put e
nextroom
gosub power
put n
nextroom
gosub power
put n
nextroom
gosub power
put n
nextroom
gosub power
put ne
nextroom
gosub power
put climb stair
nextroom
gosub power
put go door
nextroom
gosub power
put go bur
nextroom
gosub power
put exch all kron for lir
pause 2
put exch all doko for lir
pause 2
put go atri
nextroom
gosub power
put go cash
nextroom
gosub power
setvariable copper 0
setvariable bronze 0
setvariable silver 0
setvariable gold 0
setvariable plat 0
put check balance
pause 5
math bronze multiply 10
math silver multiply 100
math gold multiply 1000
math plat multiply 10000
setvariable pre.dep %copper
math pre.dep add %bronze
math pre.dep add %silver
math pre.dep add %gold
math pre.dep add %plat
echo %pre.dep
put dep all
pause 2
setvariable copper 0
setvariable bronze 0
setvariable silver 0
setvariable gold 0
setvariable plat 0
put
put check balance
pause 5
math bronze multiply 10
math silver multiply 100
math gold multiply 1000
math plat multiply 10000
setvariable post.dep %copper
math post.dep add %bronze
math post.dep add %silver
math post.dep add %gold
math post.dep add %plat
echo %post.dep
math post.dep subtract %pre.dep
pause 1
put #math Profit add %post.dep
pause 2
put #statusbar panel1 Total Profit: %Profit
gosub power
put go atri
nextroom
gosub power
put go door
nextroom
gosub power
put climb stair
nextroom
gosub power
put sw
nextroom
gosub power
put s
nextroom
gosub power
put s
nextroom
gosub power
put s
nextroom
gosub power
put w
nextroom
gosub power
put nw
nextroom
gosub power
put w
nextroom
gosub power
put sw
nextroom
gosub power
put w
nextroom
gosub power
put go arch
nextroom
gosub power
put w
nextroom
gosub power
goto leave.arch
auto.path2:
move e
move go door
move w
move w
move sw
move n
move n
move nw
move n
move w
move nw
move n
move n
move nw
move nw
move nw
move w
move n
move ne
move n
move ne
move ne
move e
move go clinic
move e
move go one
action remove prone
goto auto
Follow Fields (Kobolds, Goblins, Jackles and Boggles)
if_1 goto %1
to.heal:
gosub clear
random 1 5
match to.heal [Fallow Field
match heal.cont [Eastern Fields, Path
match wrong.way [Eastern Fields, Ash Grove
match to.heal You are engaged
if %r = 1 then put w
if %r = 2 then put nw
if %r = 3 then put n
if %r = 4 then put ne
if %r = 5 then put e
matchwait
to.heal.ret:
match to.heal.ret You retreat
match to.heal You are already as far
match to.heal.ret pole range
match to.heal.ret You retreat from combat
match to.heal.ret.hide roundtime
match to.heal You sneak back out of combat
match to.heal.ret You sneak back out to pole range
put retr
matchwait
to.heal.ret.hide:
pause 0.5
put hide
pause 0.5
pause 0.5
goto to.heal.ret
wrong.way:
gosub sewer.movement ne
goto to.heal
heal.cont:
put n
pause 0.5
put n
pause 0.5
put n
pause 0.5
put n
pause 0.5
move w
if "%ranged" indexof "%used.weapon" then gosub ranged.unload
if "%melee" indexof "%used.weapon" then put sheath %weapon in my %sheath
if "%thrown" indexof "%used.weapon" then put sheath %weapon in my %sheath
pause 1
move climb stile
move w
move w
move sw
move w
move w
move s
move s
move se
move se
move sw
move s
move s
move s
move s
move s
move go gate
move go arch
move w
goto arch
put #abortscript
to.gem:
gosub clear
random 1 5
match to.gem [Fallow Field
match heal.cont.gem [Eastern Fields, Path
match wrong.way.gem [Eastern Fields, Ash Grove
match to.gem.ret engaged
if %r = 1 then put w
if %r = 2 then put nw
if %r = 3 then put n
if %r = 4 then put ne
if %r = 5 then put e
matchwait
to.gem.ret:
match to.gem.ret You retreat
match to.gem You are already as far
match to.gem.ret pole range
match to.gem.ret You retreat from combat
match to.gem.ret.hide roundtime
match to.gem You sneak back out of combat
match to.gem.ret You sneak back out to pole range
put retr
matchwait
to.gem.ret.hide:
pause 0.5
put hide
pause 0.5
pause 0.5
goto to.gem.ret
wrong.way.gem:
gosub.sewer.movement ne
goto to.gem
heal.cont.gem:
put n
pause 0.5
put n
pause 0.5
put n
pause 0.5
put n
pause 0.5
move w
if "%ranged" indexof "%used.weapon" then gosub ranged.unload
if "%melee" indexof "%used.weapon" then put sheath %weapon in my %sheath
if "%thrown" indexof "%used.weapon" then put sheath %weapon in my %sheath
move climb stile
move w
move w
move sw
move w
move w
move s
move s
move se
move se
move sw
move s
move s
move s
move s
move s
move go gate
move go arch
move w
goto sell.gem
put #abortscript
to.box:
pause 0.5
random 1 5
match to.box [Fallow Field
match heal.cont.box [Eastern Fields, Path
match wrong.way.box [Eastern Fields, Ash Grove
match to.box.ret You are engaged
pause 0.5
if %r = 1 then put w
if %r = 2 then put nw
if %r = 3 then put n
if %r = 4 then put ne
if %r = 5 then put e
matchwait
to.box.ret:
match to.box.ret You retreat
match to.box You are already as far
match to.box.ret pole range
match to.box.ret You retreat from combat
match to.box.ret.hide roundtime
match to.box You sneak back out of combat
match to.box.ret You sneak back out to pole range
put retr
matchwait
to.box.ret.hide:
pause 0.5
put hide
pause 0.5
pause 0.5
goto to.box.ret
wrong.way.box:
gosub.sewer.movement ne
goto to.heal
heal.cont.box:
put n
pause 0.5
put n
pause 0.5
put n
pause 0.5
put n
pause 0.5
move w
if "%ranged" indexof "%used.weapon" then gosub ranged.unload
if "%melee" indexof "%used.weapon" then put sheath %weapon in my %sheath
if "%thrown" indexof "%used.weapon" then put sheath %weapon in my %sheath
move climb stile
move w
move w
move sw
move w
move w
move s
move s
move se
move se
move sw
move s
move s
move s
move s
move s
move go gate
move go arch
move w
put go door
goto disarm
put #abortscript
auto.path2:
move e
move go door
move s
move s
move s
move s
move s
move s
move s
move go gate
move s
move e
move go build
goto auto
put #abortscript
leave.arch:
move e
move go door
move go gate
move n
move n
move n
move n
move n
move ne
move nw
move nw
move n
move n
move e
move e
move ne
move e
move e
move climb stile
move e
move s
move s
move s
move s
move s
goto count
#abortscript
leave.auto:
put stand
setvariable juggling on
move out
move w
move n
move go gate
move n
move n
move n
move n
move n
move n
move n
move go gate
move n
move n
move n
move n
move n
move ne
move nw
move nw
move n
move n
move e
move e
move ne
move e
move e
move climb stile
move e
move s
move s
move s
move s
move s
goto count
put #abortscript
deposit.money:
action setvariable plat $1 when (\d+) platinum,
action setvariable gold $1 when (\d+) gold,
action setvariable gold $1 when platinum, and (\d+) gold
action setvariable silver $1 when (\d+) silver,
action setvariable silver $1 when gold, and (\d+) silver
action setvariable bronze $1 when (\d+) bronze,
action setvariable bronze $1 when silver, and (\d+) bronze
action setvariable copper $1 when , and (\d+) copper
move e
move go door
move s
move s
move s
move s
move s
move s
move s
move go gate
move s
move w
move sw
move s
move w
move w
move go bridge
move w
move w
move go bank
move e
put exch all kron for doko
pause 0.5
put exch all lir for doko
pause 0.5
move w
move n
setvariable copper 0
setvariable bronze 0
setvariable silver 0
setvariable gold 0
setvariable plat 0
put check balance
pause 5
math bronze multiply 10
math silver multiply 100
math gold multiply 1000
math plat multiply 10000
setvariable pre.dep %copper
math pre.dep add %bronze
math pre.dep add %silver
math pre.dep add %gold
math pre.dep add %plat
echo %pre.dep
put dep all
pause 2
setvariable copper 0
setvariable bronze 0
setvariable silver 0
setvariable gold 0
setvariable plat 0
put
put check balance
pause 5
math bronze multiply 10
math silver multiply 100
math gold multiply 1000
math plat multiply 10000
setvariable post.dep %copper
math post.dep add %bronze
math post.dep add %silver
math post.dep add %gold
math post.dep add %plat
echo %post.dep
math post.dep subtract %pre.dep
pause 1
put #math Profit add %post.dep
pause 2
put #statusbar panel1 Total Profit: %Profit
move s
move out
move e
move go bridge
move e
move e
move e
move n
move ne
move e
move n
move go gate
move n
move n
move n
move n
move n
move n
move n
move go gate
move n
move n
move n
move n
move n
move ne
move nw
move nw
move n
move n
move e
move e
move ne
move e
move e
move climb stile
move e
move s
move s
move s
move s
move s
goto count
put #abortscript
RunForEmpath:
pause 0.5
put drop %disarmit
match box.carry subtract 1
pause 0.5
if prone put stand
pause 0.5
pause 0.5
if prone put stand
pause 0.5
pause 0.5
if prone put stand
pause 0.5
pause 0.5
put out
pause 0.5
goto arch
leave.box:
pause 0.5
put out
goto deposit.money
Silver Leucros
if_1 goto %1
to.heal:
action remove depleted of power to support your spells
move sw
move w
move w
move w
if %current.weapon = %weapon.skill1 then put sheath %weapon1
if %current.weapon = %weapon.skill2 then put sheath %weapon2
if %current.weapon = %weapon.skill3 then put sheath %weapon3
if %current.weapon = %weapon.skill4 then put sheath %weapon4
gosub clear
gosub movement.moveMUD sw
gosub movement.moveMUD sw
gosub movement.moveMUD w
gosub movement.moveMUD sw
gosub movement.moveMUD sw
gosub movement.moveMUD sw
gosub movement.moveMUD w
gosub movement.moveMUD w
gosub movement.moveMUD sw
gosub movement.moveMUD sw
gosub movement.moveMUD sw
gosub movement.moveMUD sw
gosub movement.moveMUD s
gosub movement.moveMUD w
gosub movement.moveMUD sw
gosub movement.moveMUD sw
gosub movement.moveMUD s
gosub movement.moveMUD s
gosub movement.moveMUD s
gosub movement.moveMUD se
gosub movement.moveMUD se
gosub movement.moveMUD se
gosub movement.moveMUD s
gosub movement.moveMUD se
gosub movement.moveMUD se
gosub movement.moveMUD se
gosub movement.moveMUD sw
gosub movement.moveMUD sw
gosub movement.moveMUD sw
gosub movement.moveMUD se
gosub movement.moveMUD sw
gosub movement.moveMUD sw
gosub movement.moveMUD sw
gosub movement.moveMUD sw
gosub movement.moveMUD se
gosub movement.moveMUD se
gosub movement.moveMUD sw
gosub movement.moveMUD se
gosub movement.moveMUD se
move s
move s
move sw
move s
move s
move se
move se
move go gate
move e
move e
move s
move s
move s
move s
move s
move go grat
move go pipe
gosub clear
gosub sewer.movement s
gosub green2
gosub sewer.movement s
gosub sewer.movement s
gosub sewer.movement se
gosub sewer.movement e
gosub sewer.movement d
gosub sewer.movement ne
gosub sewer.movement se
gosub sewer.movement ne
gosub sewer.movement se
gosub sewer.movement d
gosub sewer.movement ne
gosub sewer.movement se
gosub sewer.movement e
move go pass
move go grat
move e
move ne
move se
move s
move se
move se
move s
move s
move s
move w
move nw
move w
move sw
move w
move go arch
move w
goto arch
leave.arch:
put e
gosub clear
gosub power
put go door
gosub power
move e
gosub power
move ne
gosub power
move e
gosub power
move se
gosub power
move e
gosub power
move n
gosub power
move n
gosub power
move n
gosub power
move nw
gosub power
move nw
gosub power
move n
gosub power
move nw
gosub power
move sw
gosub power
move w
gosub power
move go grat
move go pass
gosub clear
gosub sewer.movement w
gosub sewer.movement nw
gosub sewer.movement sw
gosub sewer.movement u
gosub sewer.movement w
gosub sewer.movement nw
gosub sewer.movement sw
gosub sewer.movement n
gosub sewer.movement sw
gosub sewer.movement nw
gosub sewer.movement u
gosub sewer.movement w
gosub sewer.movement nw
gosub sewer.movement n
gosub sewer.movement n
pause 0.5
put climb ladd
pause 0.5
gosub sewer.movement n
gosub sewer.movement n
move go grat
gosub power
move n
gosub power
move n
gosub power
move n
gosub power
move n
gosub power
move n
gosub power
move w
gosub power
move w
gosub power
move go gate
gosub power
move nw
gosub power
move nw
gosub power
move n
gosub power
move n
gosub power
move ne
gosub power
move n
gosub power
move n
gosub power
move nw
gosub clear
gosub power
gosub movement.moveMUD nw
gosub movement.moveMUD ne
gosub movement.moveMUD nw
gosub movement.moveMUD nw
gosub movement.moveMUD ne
gosub movement.moveMUD ne
gosub movement.moveMUD ne
gosub movement.moveMUD ne
gosub movement.moveMUD nw
gosub movement.moveMUD ne
gosub movement.moveMUD ne
gosub movement.moveMUD ne
gosub movement.moveMUD nw
gosub movement.moveMUD nw
gosub movement.moveMUD nw
gosub clear
gosub movement.moveMUD n
gosub movement.moveMUD nw
gosub movement.moveMUD nw
gosub movement.moveMUD nw
gosub movement.moveMUD n
gosub movement.moveMUD n
gosub movement.moveMUD n
gosub movement.moveMUD ne
gosub movement.moveMUD ne
gosub movement.moveMUD e
gosub movement.moveMUD n
gosub movement.moveMUD ne
gosub movement.moveMUD ne
gosub movement.moveMUD ne
gosub movement.moveMUD ne
gosub movement.moveMUD e
gosub movement.moveMUD e
gosub movement.moveMUD ne
gosub movement.moveMUD ne
gosub movement.moveMUD ne
gosub movement.moveMUD e
gosub movement.moveMUD ne
gosub movement.moveMUD ne
move e
move e
move e
move ne
setvariable juggle on
goto count
leave.auto:
put stand
pause 0.5
action put stand when prone
move go disp
gosub clear
gosub power
move w
gosub power
put out
gosub power
move w
gosub power
move sw
gosub power
move sw
gosub power
move s
gosub power
move sw
gosub power
move s
gosub power
move e
gosub power
move se
gosub power
move se
gosub power
move se
gosub power
move s
gosub power
move s
gosub power
move se
gosub power
move e
gosub power
move s
gosub power
move se
gosub power
move s
gosub power
move s
gosub power
move ne
gosub power
move e
gosub power
move e
gosub power
put go arch
gosub power
move w
gosub power
goto leave.arch
auto.path2:
move e
move go door
move w
move w
move sw
move n
move n
move nw
move n
move w
move nw
move n
move n
move nw
move nw
move nw
move w
move n
move ne
move n
move ne
move ne
move e
move go clinic
move e
move go one
action remove prone
goto auto
movement.moveMUD:
pause 0.5
match stand You slip in the mud
match stand You can't do that while
match movement.moveMUD You can't go there
match movement.moveMUD.end Obvious exits:
match movement.moveMUD.end Obvious paths:
match movement.moveMUD.retreat engaged
put $1
matchwait
stand:
put stand
goto movement.moveMUD
movement.moveMUD.end:
return
movement.moveMUD.retreat:
pause 0.2
put retr
match movement.moveMUD.retreat You retreat
match movement.moveMUD You are already as far
match movement.moveMUD.retreat pole range
match movement.moveMUD.retreat You retreat from combat
match movement.moveMUD.retreat roundtime
matchwait
green2:
pause 0.2
put climb rung
match green2 roundtime
match stow Free up your hands first.
Match Green2 You attempt to climb down
Match Green2 unharmed but feel foolish.
Match Green2 Struck by vertigo
Match Green2 but the steepness
Match Green2 but reach a point where your footing
match green2 Trying to judge the climb, you peer over the edge
match Green2 You start down the hole, but you find it hard going.
match climb.end [The Sewers, Tunnels]
matchwait
stow:
put stow
pause 0.2
put stow left
pause 0.2
goto green2
climb.end:
return
Louts
if_1 goto %1
to.heal:
move w
move w
move n
move nw
move nw
move w
move s
move s
move sw
move w
move go gate
move w
move w
move w
move w
move nw
move n
move n
move w
move go arch
move w
goto arch
put #abortscript
leave.arch:
move e
move go door
move e
move s
move s
move se
move e
move e
move e
move e
move go gate
move e
move ne
move n
move n
move e
move se
move se
move s
move e
move e
goto count
to.gem:
move w
move w
move n
move nw
move nw
move w
move s
move s
move sw
move w
move go gate
move w
move w
move w
move w
move nw
move n
move n
move w
move go arch
move w
goto sell.gem
put #abortscript
auto.path2:
move e
move go door
move ne
move n
move n
move n
move w
move w
move w
move w
put go bridge
move w
move w
move w
move w
put go gate
put go path
gosub sewer.movement w
gosub sewer.movement w
move nw
move w
move w
move nw
move w
move w
move nw
move w
move w
move sw
move w
move w
move nw
move nw
move w
move w
move nw
move w
move w
move go brook
move w
move w
move w
move sw
move w
move nw
move go bramb
move ne
move ne
move n
move ne
put climb tree
move nw
move nw
move nw
move down
move e
move ne
put climb root
move n
move ne
move ne
move n
move go bush
move nw
move n
move nw
move go outcrop
move ne
move ne
move ne
move nw
move nw
move n
move nw
move go gate
move w
move nw
move n
move go bridge
move n
move n
move n
move ne
move go ent
move go cav
goto auto
leave.auto:
put stand
move e
move out
move sw
move s
move s
move go bridge
move s
move s
move se
move e
move go gate
move se
move s
move se
move se
move sw
move sw
move sw
move go outcrop
move se
move s
move se
move go bush
move s
move sw
move sw
move s
put climb root
move sw
move w
move up
move se
move se
move se
move climb tree
move sw
move s
move sw
move go patch
move s
move se
move e
move ne
move e
move go brook
move e
move e
move e
move e
move se
move e
move e
move se
move se
move e
move e
move ne
move e
move e
move se
move e
move e
move se
gosub sewer.movement e
gosub sewer.movement e
move go path
move go gate
move e
move e
move e
move e
move e
move go bridge
move e
move e
move e
move e
move e
move s
move s
move s
move s
move s
move s
move se
move e
move e
move e
move e
move go gate
move e
move ne
move n
move n
move e
move se
move se
move s
move e
move e
goto count
deposit.money:
setvariable copper 0
setvariable bronze 0
setvariable silver 0
setvariable gold 0
setvariable plat 0
action setvariable plat $1 when (\d+) platinum,
action setvariable gold $1 when (\d+) gold,
action setvariable gold $1 when platinum, and (\d+) gold
action setvariable silver $1 when (\d+) silver,
action setvariable silver $1 when gold, and (\d+) silver
action setvariable bronze $1 when (\d+) bronze,
action setvariable bronze $1 when silver, and (\d+) bronze
action setvariable copper $1 when , and (\d+) copper
move e
move out
move e
move s
move s
move se
move go bank
move go booth
pause 0.5
put exch all doko for lir
pause 0.5
put exch all kron for lir
move out
move go window
pause 0.5
setvariable copper 0
setvariable bronze 0
setvariable silver 0
setvariable gold 0
setvariable plat 0
put check balance
pause 5
math bronze multiply 10
math silver multiply 100
math gold multiply 1000
math plat multiply 10000
setvariable pre.dep %copper
math pre.dep add %bronze
math pre.dep add %silver
math pre.dep add %gold
math pre.dep add %plat
echo %pre.dep
put dep all
pause 2
setvariable copper 0
setvariable bronze 0
setvariable silver 0
setvariable gold 0
setvariable plat 0
put
put check balance
pause 5
math bronze multiply 10
math silver multiply 100
math gold multiply 1000
math plat multiply 10000
setvariable post.dep %copper
math post.dep add %bronze
math post.dep add %silver
math post.dep add %gold
math post.dep add %plat
echo %post.dep
math post.dep subtract %pre.dep
pause 1
put #math Profit add %post.dep
pause 2
put #statusbar panel1 Total Profit: %Profit
move out
move nw
move n
move n
move w
move go arch
move w
goto leave.arch
to.box:
move w
move w
move n
move nw
move nw
move w
move s
move s
move sw
move w
move go gate
move w
move w
move w
move w
move nw
move n
move n
move w
move go arch
move w
move go door
goto disarm
RunForEmpath:
move out
goto arch
leave.box:
move out
goto deposit.money
Moss Meys
if_1 goto %1
to.heal:
action remove depleted of power to support your spells
move sw
move nw
move sw
move go bank
move w
move sw
move s
move sw
move w
if "%rhand" indexof %weapon1 then put wear %weapon1
pause 0.5
if "%rhand" indexof %weapon1 then put sheath %weapon1 in %sheath
pause 0.5
if "%rhand" indexof %weapon2 then put wear %weapon2
pause 0.5
if "%rhand" indexof %weapon2 then put sheath %weapon2 in %sheath
pause 0.5
if "%rhand" indexof %weapon3 then put wear %weapon3
pause 0.5
if "%rhand" indexof %weapon3 then put sheath %weapon3 in %sheath
pause 0.5
if "%rhand" indexof %weapon4 then put wear %weapon4
pause 0.5
if "%rhand" indexof %weapon4 then put sheath %weapon4 in %sheath
pause 0.5
move climb mono
move sw
move sw
move sw
move sw
move s
move s
move se
move go gate
move se
move se
move se
move se
move se
move se
move s
move go tent
goto auto
leave.auto:
setvariable juggle on
put stand
pause 0.5
move out
move n
gosub power
move nw
gosub power
move nw
gosub power
move nw
gosub power
move nw
gosub power
move nw
gosub power
move nw
gosub power
move go gate
gosub power
move nw
gosub power
move n
gosub power
move n
gosub power
move ne
gosub power
move ne
gosub power
move ne
gosub power
move ne
gosub power
move climb mon
move e
move ne
move n
move ne
move e
move go bank
move ne
move se
move ne
goto count
to.gem:
action remove depleted of power to support your spells
move sw
move nw
move sw
move go bank
move w
move sw
move s
move sw
move w
if "%rhand" indexof %weapon1 then put wear %weapon1
pause 0.5
if "%rhand" indexof %weapon1 then put sheath %weapon1 in %sheath
pause 0.5
if "%rhand" indexof %weapon2 then put wear %weapon2
pause 0.5
if "%rhand" indexof %weapon2 then put sheath %weapon2 in %sheath
pause 0.5
if "%rhand" indexof %weapon3 then put wear %weapon3
pause 0.5
if "%rhand" indexof %weapon3 then put sheath %weapon3 in %sheath
pause 0.5
if "%rhand" indexof %weapon4 then put wear %weapon4
pause 0.5
if "%rhand" indexof %weapon4 then put sheath %weapon4 in %sheath
pause 0.5
move climb mono
move sw
move sw
move sw
move sw
move s
move s
move se
gosub power
move go gate
gosub power
move se
gosub power
move se
gosub power
move se
gosub power
move se
gosub power
move se
gosub power
move se
gosub power
move se
gosub power
move sw
gosub power
move sw
gosub power
move go door
goto gem.sell
deposit.money:
setvariable copper 0
setvariable bronze 0
setvariable silver 0
setvariable gold 0
setvariable plat 0
action setvariable plat $1 when (\d+) platinum,
action setvariable gold $1 when (\d+) gold,
action setvariable gold $1 when platinum, and (\d+) gold
action setvariable silver $1 when (\d+) silver,
action setvariable silver $1 when gold, and (\d+) silver
action setvariable bronze $1 when (\d+) bronze,
action setvariable bronze $1 when silver, and (\d+) bronze
action setvariable copper $1 when , and (\d+) copper
move out
gosub power
move ne
gosub power
move ne
gosub power
move e
gosub power
move e
gosub power
move go dep
move u
gosub power
move u
pause 0.5
put exch all doko for kron
pause 0.5
put exch all lir for kron
pause 0.5
move d
setvariable copper 0
setvariable bronze 0
setvariable silver 0
setvariable gold 0
setvariable plat 0
put check balance
pause 5
math bronze multiply 10
math silver multiply 100
math gold multiply 1000
math plat multiply 10000
setvariable pre.dep %copper
math pre.dep add %bronze
math pre.dep add %silver
math pre.dep add %gold
math pre.dep add %plat
echo %pre.dep
put dep all
pause 2
setvariable copper 0
setvariable bronze 0
setvariable silver 0
setvariable gold 0
setvariable plat 0
put
put check balance
pause 5
math bronze multiply 10
math silver multiply 100
math gold multiply 1000
math plat multiply 10000
setvariable post.dep %copper
math post.dep add %bronze
math post.dep add %silver
math post.dep add %gold
math post.dep add %plat
echo %post.dep
math post.dep subtract %pre.dep
pause 1
put #math Profit add %post.dep
pause 2
put #statusbar panel1 Total Profit: %Profit
move d
gosub power
move out
gosub power
move w
gosub power
move w
gosub power
move w
gosub power
move go tent
gosub power
goto leave.auto
Reavers & Hounds
to.heal:
move se
move se
move e
move se
move sw
move s
move s
move se
move se
move s
move sw
move s
move go bridge
move s
move s
move s
move s
move s
move s
move s
move se
move sw
move sw
move w
move w
move s
move sw
move s
move s
move w
move w
move s
move se
move se
move go gate
move sw
move s
move go gate
move sw
move s
move s
move s
move s
move s
move s
move w
move w
move w
move sw
move sw
move sw
move s
move s
move s
move se
move se
move s
move s
move se
move sw
move s
move s
move se
move se
move s
move sw
move sw
move s
move s
move s
move go gate
move w
move w
move s
move s
move w
move w
move s
move w
move w
move s
move s
move s
move sw
move go arch
move w
goto arch
leave.arch:
move e
gosub power
move go door
gosub power
move ne
gosub power
move n
gosub power
move n
gosub power
move n
gosub power
move e
gosub power
move e
gosub power
move n
gosub power
move e
gosub power
move e
gosub power
move n
gosub power
move n
gosub power
move e
gosub power
move e
gosub power
move go gate
gosub power
move n
gosub power
move n
gosub power
move n
gosub power
move ne
gosub power
move ne
gosub power
move n
gosub power
move nw
gosub power
move nw
gosub power
move n
gosub power
move n
gosub power
move ne
gosub power
move nw
gosub power
move n
gosub power
move n
gosub power
move nw
gosub power
move nw
gosub power
move n
gosub power
move n
gosub power
move n
gosub power
move ne
gosub power
move ne
gosub power
move ne
gosub power
move e
gosub power
move e
gosub power
move e
gosub power
move n
gosub power
move n
gosub power
move n
gosub power
move n
gosub power
move n
gosub power
move n
gosub power
move ne
gosub power
move go gate
gosub power
move n
gosub power
move ne
gosub power
move go gate
gosub power
move nw
gosub power
move nw
gosub power
move n
gosub power
move e
gosub power
move e
gosub power
move n
gosub power
move n
gosub power
move ne
gosub power
move n
gosub power
move e
gosub power
move e
gosub power
move ne
gosub power
move ne
gosub power
move nw
gosub power
move n
gosub power
move n
gosub power
move n
gosub power
move n
gosub power
move n
gosub power
move n
gosub power
move go bridge
gosub power
move n
move n
move ne
move n
move nw
move nw
move n
move n
move ne
move go path
move w
move nw
move nw
setvariable juggle on
goto count
leave.auto:
put stand
move go arch
gosub power
move e
gosub power
move e
gosub power
move n
gosub power
move n
gosub power
move e
gosub power
move e
gosub power
move go gate
gosub power
move n
gosub power
move n
gosub power
move n
gosub power
move ne
gosub power
move ne
gosub power
move n
gosub power
move nw
gosub power
move nw
gosub power
move n
gosub power
move n
gosub power
move ne
gosub power
move nw
gosub power
move n
gosub power
move n
gosub power
move nw
gosub power
move nw
gosub power
move n
gosub power
move n
gosub power
move n
gosub power
move ne
gosub power
move ne
gosub power
move ne
gosub power
move e
gosub power
move e
gosub power
move e
gosub power
move n
gosub power
move n
gosub power
move n
gosub power
move n
gosub power
move n
gosub power
move n
gosub power
move ne
gosub power
move go gate
gosub power
move n
gosub power
move ne
gosub power
move go gate
gosub power
move nw
gosub power
move nw
gosub power
move n
gosub power
move e
gosub power
move e
gosub power
move n
gosub power
move n
gosub power
move ne
gosub power
move n
gosub power
move e
gosub power
move e
gosub power
move ne
gosub power
move ne
gosub power
move nw
gosub power
move n
gosub power
move n
gosub power
move n
gosub power
move n
gosub power
move n
gosub power
move n
gosub power
move go bridge
gosub power
move n
move n
move ne
move n
move nw
move nw
move n
move n
move ne
move go path
move w
move nw
move nw
setvariable juggle on
goto count
auto.path2:
move e
pause 0.5
put go door
pause 0.5
move ne
pause 0.5
move n
pause 0.5
move n
pause 0.5
move n
pause 0.5
move e
pause 0.5
move e
pause 0.5
move n
pause 0.5
move go arch
pause 0.5
action remove prone
goto auto
deposit.money:
setvariable copper 0
setvariable bronze 0
setvariable silver 0
setvariable gold 0
setvariable plat 0
action setvariable plat $1 when (\d+) platinum,
action setvariable gold $1 when (\d+) gold,
action setvariable gold $1 when platinum, and (\d+) gold
action setvariable silver $1 when (\d+) silver,
action setvariable silver $1 when gold, and (\d+) silver
action setvariable bronze $1 when (\d+) bronze,
action setvariable bronze $1 when silver, and (\d+) bronze
action setvariable copper $1 when , and (\d+) copper
move e
pause 0.5
move out
pause 0.5
move e
pause 0.5
move s
pause 0.5
move s
pause 0.5
move se
pause 0.5
move go bank
pause 0.5
move go booth
pause 0.5
put exch all doko for lir
pause 0.5
put exch all kron for lir
pause 0.5
move out
pause 0.5
move go window
pause 0.5
setvariable copper 0
setvariable bronze 0
setvariable silver 0
setvariable gold 0
setvariable plat 0
put check balance
pause 5
math bronze multiply 10
math silver multiply 100
math gold multiply 1000
math plat multiply 10000
setvariable pre.dep %copper
math pre.dep add %bronze
math pre.dep add %silver
math pre.dep add %gold
math pre.dep add %plat
echo %pre.dep
put dep all
pause 2
setvariable copper 0
setvariable bronze 0
setvariable silver 0
setvariable gold 0
setvariable plat 0
put
put check balance
pause 5
math bronze multiply 10
math silver multiply 100
math gold multiply 1000
math plat multiply 10000
setvariable post.dep %copper
math post.dep add %bronze
math post.dep add %silver
math post.dep add %gold
math post.dep add %plat
echo %post.dep
math post.dep subtract %pre.dep
pause 1
put #math Profit add %post.dep
pause 2
put #statusbar panel1 Total Profit: %Profit
move out
pause 0.5
move nw
pause 0.5
move n
pause 0.5
move n
move w
move go arch
move w
goto leave.arch
Goblin Shamans
if_1 goto %1
to.heal:
setvariable leave heal
gosub clear
action remove depleted of power to support your spells
gosub location.check
move se
move go gate
move e
move e
move e
move e
move e
move e
move e
move go arch
move w
goto arch
leave.arch:
move e
move go door
move w
move w
move w
move w
move w
move w
move w
move go gate
move nw
move go path
move nw
setvariable juggle on
setvariable room 5
goto count
leave.auto:
pause 0.5
put stand
pause 0.5
move w
move out
move s
move s
move s
move s
move s
move s
move s
move w
move w
move w
move w
move w
move w
move w
move go gate
move nw
move go path
move nw
setvariable juggle on
setvariable room 5
goto count
to.gem:
setvariable leave gem
gosub clear
gosub location.check
move se
move go gate
move e
move e
move e
move e
move e
move e
move e
move go arch
move w
goto check.gwyd
auto.path2:
move east
move go door
move north
move north
move north
move north
move north
move north
move north
move go hospital
move go arch
action remove prone
goto auto
deposit.money:
setvariable copper 0
setvariable bronze 0
setvariable silver 0
setvariable gold 0
setvariable plat 0
action setvariable plat $1 when (\d+) platinum,
action setvariable gold $1 when (\d+) gold,
action setvariable gold $1 when platinum, and (\d+) gold
action setvariable silver $1 when (\d+) silver,
action setvariable silver $1 when gold, and (\d+) silver
action setvariable bronze $1 when (\d+) bronze,
action setvariable bronze $1 when silver, and (\d+) bronze
action setvariable copper $1 when , and (\d+) copper
move e
gosub power
move go door
gosub power
move n
gosub power
move n
gosub power
move n
gosub power
move go bank
gosub power
move go arch
move go door
put exch all doko for lir
pause 0.5
put exch all kron for lir
pause 0.5
move go door
pause 0.5
setvariable copper 0
setvariable bronze 0
setvariable silver 0
setvariable gold 0
setvariable plat 0
put check balance
pause 5
math bronze multiply 10
math silver multiply 100
math gold multiply 1000
math plat multiply 10000
setvariable pre.dep %copper
math pre.dep add %bronze
math pre.dep add %silver
math pre.dep add %gold
math pre.dep add %plat
echo %pre.dep
put dep all
pause 2
setvariable copper 0
setvariable bronze 0
setvariable silver 0
setvariable gold 0
setvariable plat 0
put check balance
pause 5
math bronze multiply 10
math silver multiply 100
math gold multiply 1000
math plat multiply 10000
setvariable post.dep %copper
math post.dep add %bronze
math post.dep add %silver
math post.dep add %gold
math post.dep add %plat
echo %post.dep
math post.dep subtract %pre.dep
pause 1
put #math Profit add %post.dep
pause 2
put #statusbar panel1 Total Profit: %Profit
move go arch
move out
move s
move s
move s
move go arch
move w
goto leave.arch
to.box:
setvariable leave box
gosub clear
gosub location.check
move se
move go gate
move e
move e
move e
move e
move e
move e
move e
move go hall
goto disarm
RunForEmpath:
pause 0.5
pause 0.5
move out
move go arch
move w
goto Arch
leave.box:
move out
move go arch
move w
goto deposit.money
location.check:
matchre leave1 Vagrant breezes blowing across the lake
matchre leave2 The rocky foothills to the north rise like brooding sentinels
matchre leave3 A lone waxy-leafed bush covered with bright pink blossoms pokes above the tall meadow grass
matchre leave4 The bleached half-buried skull of a large rat shows starkly
matchre leave5 A delicate spider web woven amongst the dark green stalks of meadow grass
matchre leave6 Trampled grass creates a criss-cross pattern of narrow trails across the lush meadow
matchre leave7 Verdant grassland gives way to the loamy eastern shore of Lake Gwenalion
matchre leave8 Brightly-scaled fish leap among the waves of the lake like silver arrows shot into the sky
matchre leave9 A huge, oddly shaped boulder blocks passage to the west
matchre leave10 Intermittant rustlings provide evidence of small wild life residing in the tall meadow grass
matchre leave11 Wildflowers, mingled with the waist-high grass, touch the surroundings with bright festive colors
matchre leave12 A feeling of openness pervades this plain of tall waving meadow grass
matchre leave13 A huge boulder blocks passage to the north
matchre leave14 The spongy loam of the beach gives way to a sandy surface that is similar in color to
matchre continue Many feet and wagons have used this path as is evident by the hard packed soil beneath your feet
put look
matchwait
leave1:
gosub sewer.movement se
goto leave5
leave2:
gosub sewer.movement se
goto leave4
leave3:
gosub sewer.movement sw
goto leave4
leave4:
gosub sewer.movement sw
goto leave12
leave5:
gosub sewer.movement se
goto leave12
leave6:
gosub sewer.movement e
goto leave5
leave7:
gosub sewer.movement e
goto leave6
leave8:
gosub sewer.movement s
goto leave7
leave9:
gosub sewer.movement e
goto leave1
leave10:
gosub sewer.movement se
goto leave11
leave11:
gosub sewer.movement e
goto leave12
leave12:
gosub clear
gosub sewer.movement go path
goto continue1
leave13:
gosub sewer.movement s
goto leave8
leave14:
gosub sewer.movement se
goto leave13
continue:
return
continue1:
if %leave = gem then goto to.gem
if %leave = box then goto to.box
if %leave = heal then goto to.heal
Snow Goblins
if_1 goto %1
to.heal:
action remove depleted of power to support your spells
gosub sewer.movement sw
gosub sewer.movement up
gosub sewer.movement nw
gosub sewer.movement w
gosub sewer.movement up
gosub sewer.movement sw
gosub sewer.movement up
gosub sewer.movement up
gosub sewer.movement go crevice
gosub sewer.movement s
gosub sewer.movement sw
gosub sewer.movement s
gosub sewer.movement s
gosub sewer.movement up
gosub sewer.movement go crev
fissure:
pause 1
if "%ranged" indexof "%used.weapon" then gosub ranged.unload
if "%melee" indexof "%used.weapon" then put sheath my %weapon in my %sheath
if "%thrown" indexof "%used.weapon" then put sheath my %weapon in my %sheath
pause 0.5
move out
climbing:
match climbing You pick your way
match climbing You start down
match climbing Trying to judge
match climbing You attempt to climb
match continue Obvious Paths
match continue Obvious Exits
put climb slope
matchwait
continue:
match continue You pick your way
match continue You start down
match continue Trying to judge
match continue You attempt to climb
match continue3 Obvious Paths
match continue3 Obvious Exits
put climb ledge
matchwait
continue3:
match continue3 You pick your way
match continue3 You start down
match continue3 Trying to judge
match continue3 You attempt to climb
match continue4 Obvious Paths
match continue4 Obvious Exits
put climb stair
matchwait
continue4:
move go path
move s
move s
move se
move e
move se
pause 0.5
move e
move climb trail
move climb path
move sw
move w
move climb trail
move n
move climb trail
move nw
move w
move climb road
move s
move climb trail
move sw
move climb path
move nw
move climb ramp
move w
move climb walk
move w
move w
move w
move climb lad
move s
move w
arch.healing:
move go arch
move w
goto arch
put #abortscript
leave.arch:
move e
gosub power
pause 0.5
move go door
pause 0.5
gosub power
move e
pause 0.5
gosub power
move climb lad
pause 0.5
gosub power
move n
pause 0.5
gosub power
move e
pause 0.5
gosub power
move e
gosub power
pause 0.5
move e
pause 0.5
gosub power
move climb walk
pause 0.5
gosub power
move e
pause 0.5
gosub power
move climb ramp
pause 0.5
move se
pause 0.5
gosub power
move climb path
pause 0.5
gosub power
move ne
pause 0.5
gosub power
move climb trail
pause 0.5
gosub power
move n
pause 0.5
gosub power
move climb road
pause 0.5
gosub power
move e
gosub power
pause 0.5
gosub power
move se
pause 0.5
gosub power
move climb trail
pause 0.5
gosub power
move s
pause 0.5
gosub power
move climb trail
pause 0.5
gosub power
move e
pause 0.5
gosub power
move ne
pause 0.5
gosub power
move climb path
pause 0.5
gosub power
move climb trail
pause 0.5
move w
pause 0.5
move nw
pause 0.5
move w
pause 0.5
move nw
pause 0.5
move n
pause 0.5
move n
pause 0.5
move go path
pause 0.5
move climb stair
pause 0.5
gosub power
move climb ledge
pause 0.5
gosub power
move climb slope
pause 0.5
gosub power
move go fiss
move go crev
move down
move n
move n
move ne
move n
move go crev
move down
move down
move ne
move down
move e
move se
move down
move ne
setvariable juggle on
goto count
put .combat
to.gem:
action remove depleted of power to support your spells
gosub sewer.movement sw
gosub sewer.movement up
gosub sewer.movement nw
gosub sewer.movement w
gosub sewer.movement up
gosub sewer.movement sw
gosub sewer.movement up
gosub sewer.movement up
gosub sewer.movement go crevice
gosub sewer.movement s
gosub sewer.movement sw
gosub sewer.movement s
gosub sewer.movement s
gosub sewer.movement up
gosub sewer.movement go crev
if "%ranged" indexof "%used.weapon" then gosub ranged.unload
if "%melee" indexof "%used.weapon" then put sheath my %weapon in my %sheath
if "%thrown" indexof "%used.weapon" then put sheath my %weapon in my %sheath
pause 0.5
move out
climbing1:
match climbing1 You pick your way
match climbing1 You start down
match climbing1 Trying to judge
match climbing1 You attempt to climb
match continue1 Obvious Paths
match continue1 Obvious Exits
put climb slope
matchwait
continue1:
match continue1 You pick your way
match continue1 You start down
match continue1 Trying to judge
match continue1 You attempt to climb
match continue2 Obvious Paths
match continue2 Obvious Exits
put climb ledge
matchwait
continue2:
match continue2 You pick your way
match continue2 You start down
match continue2 Trying to judge
match continue2 You attempt to climb
match continue5 Obvious Paths
match continue5 Obvious Exits
put climb stair
matchwait
continue5:
move go path
move s
move s
move se
move e
move se
pause 0.5
move e
move climb trail
move climb path
move sw
move w
move climb trail
move n
move climb trail
move nw
move w
move climb road
move s
move climb trail
move sw
move climb path
move nw
move climb ramp
move w
move climb walk
move w
move w
move w
move climb lad
move s
move w
move go arch
move w
goto check.gwyd
put #abortscript
auto.path2:
pause 60
goto arch
put #abortscript
deposit.money:
setvariable copper 0
setvariable bronze 0
setvariable silver 0
setvariable gold 0
setvariable plat 0
action setvariable plat $1 when (\d+) platinum,
action setvariable gold $1 when (\d+) gold,
action setvariable gold $1 when platinum, and (\d+) gold
action setvariable silver $1 when (\d+) silver,
action setvariable silver $1 when gold, and (\d+) silver
action setvariable bronze $1 when (\d+) bronze,
action setvariable bronze $1 when silver, and (\d+) bronze
action setvariable copper $1 when , and (\d+) copper
move e
gosub power
pause 0.5
move go door
pause 0.5
gosub power
move e
pause 0.5
gosub power
move climb lad
pause 0.5
gosub power
move n
pause 0.5
gosub power
move e
pause 0.5
gosub power
move e
gosub power
pause 0.5
move e
pause 0.5
gosub power
move climb walk
pause 0.5
gosub power
move e
pause 0.5
gosub power
move climb ramp
pause 0.5
move se
pause 0.5
gosub power
move climb path
pause 0.5
gosub power
move ne
pause 0.5
gosub power
move climb trail
pause 0.5
gosub power
move n
pause 0.5
gosub power
move climb road
pause 0.5
gosub power
move e
gosub power
pause 0.5
gosub power
move se
pause 0.5
gosub power
move climb trail
pause 0.5
gosub power
move s
pause 0.5
gosub power
move climb trail
pause 0.5
gosub power
move e
pause 0.5
gosub power
move ne
pause 0.5
gosub power
move climb path
pause 0.5
gosub power
move e
pause 0.5
gosub power
move go gate
pause 0.5
gosub power
move e
pause 0.5
gosub power
move e
pause 0.5
gosub power
move climb stair
pause 0.5
gosub power
move e
pause 0.5
gosub power
move climb stair
pause 0.5
gosub power
move e
pause 0.5
gosub power
move climb stair
pause 0.5
gosub power
move e
pause 0.5
gosub power
move climb stair
pause 0.5
gosub power
move e
pause 0.5
gosub power
move climb stair
pause 0.5
gosub power
move e
pause 0.5
gosub power
move climb stair
pause 0.5
gosub power
move e
pause 0.5
gosub power
move climb stair
pause 0.5
gosub power
move e
pause 0.5
gosub power
move climb stair
pause 0.5
gosub power
move e
pause 0.5
gosub power
move e
pause 0.5
gosub power
move go gate
pause 0.5
gosub power
move e
pause 0.5
gosub power
move e
pause 0.5
gosub power
move go gate
pause 0.5
gosub power
move go door
pause 0.5
gosub power
move n
pause 0.5
gosub power
move w
pause 0.5
put exch all doko for lir
pause 0.5
put exch all kron for lir
pause 0.5
move e
pause 0.5
setvariable copper 0
setvariable bronze 0
setvariable silver 0
setvariable gold 0
setvariable plat 0
put check balance
pause 5
math bronze multiply 10
math silver multiply 100
math gold multiply 1000
math plat multiply 10000
setvariable pre.dep %copper
math pre.dep add %bronze
math pre.dep add %silver
math pre.dep add %gold
math pre.dep add %plat
echo %pre.dep
put dep all
pause 2
setvariable copper 0
setvariable bronze 0
setvariable silver 0
setvariable gold 0
setvariable plat 0
put
put check balance
pause 5
math bronze multiply 10
math silver multiply 100
math gold multiply 1000
math plat multiply 10000
setvariable post.dep %copper
math post.dep add %bronze
math post.dep add %silver
math post.dep add %gold
math post.dep add %plat
echo %post.dep
math post.dep subtract %pre.dep
pause 1
put #math Profit add %post.dep
pause 2
put #statusbar panel1 Total Profit: %Profit
move s
pause 0.5
move go door
pause 0.5
gosub power
move go gate
pause 0.5
gosub power
move w
pause 0.5
gosub power
move go gate
pause 0.5
gosub power
move w
pause 0.5
gosub power
move w
pause 0.5
gosub power
move w
pause 0.5
gosub power
move climb stair
pause 0.5
gosub power
move w
pause 0.5
gosub power
move climb stair
pause 0.5
gosub power
move w
pause 0.5
gosub power
move climb stair
pause 0.5
gosub power
move w
pause 0.5
gosub power
move climb stair
pause 0.5
gosub power
move w
pause 0.5
gosub power
move climb stair
pause 0.5
gosub power
move w
pause 0.5
gosub power
move climb stair
pause 0.5
gosub power
move w
pause 0.5
gosub power
move climb stair
pause 0.5
gosub power
move w
pause 0.5
gosub power
move climb step
pause 0.5
gosub power
move w
pause 0.5
gosub power
move go gate
pause 0.5
gosub power
move w
pause 0.5
gosub power
move w
pause 0.5
gosub power
move climb trail
pause 0.5
move w
pause 0.5
move nw
pause 0.5
move w
pause 0.5
move nw
pause 0.5
move n
pause 0.5
move n
pause 0.5
move go path
pause 0.5
move climb stair
pause 0.5
move climb ledge
pause 0.5
move climb slope
pause 0.5
move go fiss
pause 0.5
move go crev
pause 0.5
move down
pause 0.5
move n
pause 0.5
move n
pause 0.5
gosub sewer.movement ne
pause 0.5
gosub sewer.movement n
pause 0.5
move go crevice
pause 0.5
gosub sewer.movement down
pause 0.5
gosub sewer.movement down
pause 0.5
gosub sewer.movement ne
pause 0.5
gosub sewer.movement down
pause 0.5
gosub sewer.movement e
pause 0.5
gosub sewer.movement se
pause 0.5
gosub sewer.movement down
pause 0.5
gosub sewer.movement ne
pause 0.5
goto count
put .combat
put #abortscript
Tortured Souls
to.heal:
action remove depleted of power to support your spells
move north
move north
move climb stair
move south
move go door
move go lawn
move go gate
move southeast
move southeast
move southeast
move southeast
move east
move go arch
move west
goto arch
leave.arch:
move e
gosub power
move go door
gosub power
move w
gosub power
move nw
gosub power
move nw
gosub power
move nw
gosub power
move nw
gosub power
move go gate
move go por
move go door
move n
move climb stair
move s
move s
setvariable juggle on
goto count
leave.auto:
put stand
move w
gosub power
move out
gosub power
move s
gosub power
move w
gosub power
move sw
gosub power
move nw
gosub power
move go gate
move go por
move go door
move n
move climb stair
move s
move s
setvariable juggle on
goto count
auto.path2:
move east
move go door
move north
move north
move north
move north
move north
move north
move north
move go hospital
move go arch
action remove prone
goto auto
Sand Sprites
if_1 goto %1
to.heal:
action remove depleted of power to support your spells
move s
move sw
move go open
move ne
move go gap
move ne
move ne
move e
move ne
move ne
move e
move e
move ne
move e
move ne
move e
move e
move go arch
move w
goto arch
to.gem:
move sw
move go open
move ne
gosub power
move go gap
gosub power
move ne
gosub power
move ne
gosub power
move e
gosub power
move ne
gosub power
move ne
gosub power
move e
gosub power
move e
gosub power
move ne
gosub power
move e
gosub power
move ne
gosub power
move e
gosub power
move e
gosub power
move go arch
gosub power
move w
goto check.gwyd
to.box:
action remove depleted of power to support your spells
move s
move sw
move go open
move ne
move go gap
move ne
move ne
move e
move ne
move ne
move e
move e
move ne
move e
move ne
move e
move e
move go dock
goto disarm
leave.arch:
setvariable juggle on
move e
gosub power
move go door
gosub power
move w
gosub power
move w
gosub power
move sw
gosub power
move w
gosub power
move sw
gosub power
move w
gosub power
move w
gosub power
move sw
gosub power
move sw
gosub power
move w
gosub power
move sw
gosub power
move sw
gosub power
move go gap
gosub power
move sw
move go cave
move ne
move n
goto count
leave.auto:
put stand
pause 0.5
action put stand when prone
setvariable juggling on
put go disp
gosub power
move w
gosub power
put out
gosub power
move w
gosub power
move sw
gosub power
move sw
gosub power
move s
gosub power
move sw
gosub power
move s
gosub power
move e
gosub power
move se
gosub power
move se
gosub power
move se
gosub power
move s
gosub power
move s
gosub power
move se
gosub power
move e
gosub power
move s
gosub power
move se
gosub power
move s
gosub power
move s
gosub power
move ne
gosub power
move e
gosub power
move e
gosub power
put go arch
gosub power
move w
gosub power
goto leave.arch
deposit.money:
setvariable copper 0
setvariable bronze 0
setvariable silver 0
setvariable gold 0
setvariable plat 0
action setvariable plat $1 when (\d+) platinum,
action setvariable gold $1 when (\d+) gold,
action setvariable gold $1 when platinum, and (\d+) gold
action setvariable silver $1 when (\d+) silver,
action setvariable silver $1 when gold, and (\d+) silver
action setvariable bronze $1 when (\d+) bronze,
action setvariable bronze $1 when silver, and (\d+) bronze
action setvariable copper $1 when , and (\d+) copper
gosub power
put e
nextroom
gosub power
put go door
nextroom
gosub power
put e
nextroom
gosub power
put ne
nextroom
gosub power
put e
nextroom
gosub power
put se
nextroom
gosub power
put e
nextroom
gosub power
put n
nextroom
gosub power
put n
nextroom
gosub power
put n
nextroom
gosub power
put ne
nextroom
gosub power
put climb stair
nextroom
gosub power
put go door
nextroom
gosub power
put go bur
nextroom
gosub power
put exch all kron for lir
pause 2
put exch all doko for lir
pause 2
put go atri
nextroom
gosub power
put go cash
nextroom
gosub power
setvariable copper 0
setvariable bronze 0
setvariable silver 0
setvariable gold 0
setvariable plat 0
put check balance
pause 5
math bronze multiply 10
math silver multiply 100
math gold multiply 1000
math plat multiply 10000
setvariable pre.dep %copper
math pre.dep add %bronze
math pre.dep add %silver
math pre.dep add %gold
math pre.dep add %plat
echo %pre.dep
put dep all
pause 2
setvariable copper 0
setvariable bronze 0
setvariable silver 0
setvariable gold 0
setvariable plat 0
put
put check balance
pause 5
math bronze multiply 10
math silver multiply 100
math gold multiply 1000
math plat multiply 10000
setvariable post.dep %copper
math post.dep add %bronze
math post.dep add %silver
math post.dep add %gold
math post.dep add %plat
echo %post.dep
math post.dep subtract %pre.dep
pause 1
put #math Profit add %post.dep
pause 2
put #statusbar panel1 Total Profit: %Profit
gosub power
put go atri
nextroom
gosub power
put go door
nextroom
gosub power
put climb stair
nextroom
gosub power
put sw
nextroom
gosub power
put s
nextroom
gosub power
put s
nextroom
gosub power
put s
nextroom
gosub power
put w
nextroom
gosub power
put nw
nextroom
gosub power
put w
nextroom
gosub power
put sw
nextroom
gosub power
put w
nextroom
gosub power
put go arch
nextroom
gosub power
put w
nextroom
gosub power
goto leave.arch
auto.path2:
move e
move go door
move w
move w
move sw
move n
move n
move nw
move n
move w
move nw
move n
move n
move nw
move nw
move nw
move w
move n
move ne
move n
move ne
move ne
move e
move go clinic
move e
move go one
action remove prone
goto auto
runforempath:
put drop %disarmit
math box.carry subtract 1
move n
move go arch
move w
goto arch
leave.box:
move n
move go arch
move w
goto deposit.money
Bawdy Swains
if_1 goto %1
to.heal:
action remove depleted of power to support your
move w
move w
move s
move e
move go door
move out
move w
move w
move w
move w
move w
move nw
move w
move sw
move w
move go arch
move w
if "%rhand" = "%weapon1" then put sheath %weapon1 in %sheath
if "%rhand" = "%weapon2" then put sheath %weapon2 in %sheath
if "%rhand" = "%weapon3" then put sheath %weapon3 in %sheath
if "%rhand" = "%weapon4" then put sheath %weapon4 in %sheath
goto arch
put #abortscript
to.gem:
move w
move w
move s
move e
move go door
move out
move w
move w
move w
move w
move w
move nw
move w
move sw
move w
move go arch
move w
goto check.gwyd
put #abortscript
leave.arch:
setvariable juggle on
move e
move go door
move e
move ne
move e
move se
move e
move e
move e
move e
move e
move go tav
move go door
move w
move n
move e
move e
goto count
put #abortscript
leave.auto:
put stand
pause 0.5
action put stand when prone
setvariable juggle on
move go disp
move w
move out
move w
move sw
move sw
move s
move sw
move s
move e
move se
move se
move se
move s
move s
move se
move e
move s
move se
move s
move s
move ne
move e
move e
move go arch
move w
goto leave.arch
put #abortscript
deposit.money:
setvariable copper 0
setvariable bronze 0
setvariable silver 0
setvariable gold 0
setvariable plat 0
action setvariable plat $1 when (\d+) platinum,
action setvariable gold $1 when (\d+) gold,
action setvariable gold $1 when platinum, and (\d+) gold
action setvariable silver $1 when (\d+) silver,
action setvariable silver $1 when gold, and (\d+) silver
action setvariable bronze $1 when (\d+) bronze,
action setvariable bronze $1 when silver, and (\d+) bronze
action setvariable copper $1 when , and (\d+) copper
pause 0.5
move e
move go door
move e
move ne
move e
move se
move e
move n
move n
move n
move ne
move climb stair
move go door
move go bur
put exch all kron for lir
pause 2
put exch all doko for lir
pause 2
move go atri
move go cash
setvariable copper 0
setvariable bronze 0
setvariable silver 0
setvariable gold 0
setvariable plat 0
put check balance
pause 5
math bronze multiply 10
math silver multiply 100
math gold multiply 1000
math plat multiply 10000
setvariable pre.dep %copper
math pre.dep add %bronze
math pre.dep add %silver
math pre.dep add %gold
math pre.dep add %plat
echo %pre.dep
put dep all
pause 2
setvariable copper 0
setvariable bronze 0
setvariable silver 0
setvariable gold 0
setvariable plat 0
put check balance
pause 5
math bronze multiply 10
math silver multiply 100
math gold multiply 1000
math plat multiply 10000
setvariable post.dep %copper
math post.dep add %bronze
math post.dep add %silver
math post.dep add %gold
math post.dep add %plat
echo %post.dep
math post.dep subtract %pre.dep
pause 1
put #math Profit add %post.dep
pause 2
put #statusbar panel1 Total Profit: %Profit
pause 0.5
move go atri
move go door
move climb stair
move sw
move s
move s
move s
move w
move nw
move w
move sw
move w
move go arch
move w
goto leave.arch
put #abortscript
auto.path2:
move e
move go door
move w
move w
move sw
move n
move n
move nw
move n
move w
move nw
move n
move n
move nw
move nw
move nw
move w
move n
move ne
move n
move ne
move ne
move e
move go clinic
move e
move go one
action remove prone
goto auto
put #abortscript
Blood Wolves
to.heal:
action remove depleted of power to support your spells
move w
move w
move sw
move sw
move w
move sw
move go water
move sw
move w
move w
move w
move go arch
move w
goto arch
leave.arch:
move e
move go door
move e
move e
move e
move ne
move go trail
move ne
move e
move ne
move ne
move e
move e
setvariable juggle on
goto count
leave.auto:
put stand
move out
move e
move s
move s
move go gate
move s
move se
move sw
move sw
move s
move s
move w
move sw
move s
move sw
move sw
move sw
move se
move sw
move sw
move s
move s
move sw
move s
move s
move w
move sw
move se
move sw
move s
move s
move sw
move s
move se
move s
move s
move sw
move sw
move s
move se
move s
move s
move se
move e
move s
move go arch
move w
setvariable juggle on
goto leave.arch
auto.path2:
move e
move go door
move n
move w
move nw
move n
move n
move nw
move n
move ne
move ne
move n
move n
move nw
move n
move ne
move n
move n
move ne
move nw
move ne
move e
move n
move n
move ne
move n
move n
move ne
move ne
move nw
move ne
move ne
move ne
move n
move ne
move e
move n
move n
move ne
move ne
move nw
move n
move go gate
move n
move n
move w
move go cot
goto auto
