Novice Fourfold-Survival (script)

Novice Fourfold-Survival (script)
Category	training
Front-end	StormFront
Author	Kraelyst

#=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
#      Documentation Beginning
#=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
# This is a multi-skill script designed to train Climbing, Swimming, Foraging and Perception.
# -- The climbing function, written by the player of Kraelyst, begins outside the Crossing Bank.
# -- The swimming function runs the character to the swimming hole in Arthe Dale and trains
#      low-levels of swimming and appraisal.
# -- The foraging function runs the caracter from the swimming hole to the community garden
#      in Arthe Dale, where the character will forage for an item to be set below.  The script is
#      written to take advantage of "forage careful."  Survival tertiary guilds will need to re-
#      write this function.
# -- The perception function, based heavily off of Aveda's, juggles an item to be set below and
#    then runs the character from Arthe Dale's community garden back to the Crossing bank and 
#    loops back to the climbing.
#
# The script can be started from any of the following three locations:
# -- Outside the Crossing Bank (Begins from the Climbing Function)
# -- The Northeast Room of the Swimming Hole (Begins from the Swimming Function)
# -- The East-most room of the Community Garden (Begins with the Foraging Function)

setvariable juggle pebbles
setvariable forage stem

#=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
#        Documentation Ending
#=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

identifylocation:
match climbingstart The hustle of crowds making their way between
match swimmingstart Clear water fills this natural swimming hole
match foragestart A modwyn vine arbor stands on the eastern
match invalid Obvious
put look
matchwait

invalid:
echo You have chosen to begin at an invalid location.  Please refer to the script documentation.
exit

#=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
#   Beginning of Climbing Function
#=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

climbingstart:
put set roomname
put awake

CLIMB:
pause
move NoRTHWEST
move NoRTH
move NoRTH
move NoRTH
move NoRTH
move NoRTH
move NoRTH
move EaST
move EaST
move NoRTH
move EaST
move EaST
move NoRTH
move NoRTH
move EaST
move gO stair
move SoUTH

CLIMB-001:
match PASS-001 [Outside East Wall, Footpath]
match FAIL-001 You must be standing
match FAIL-001 steepness is intimidating
match FAIL-001 can't seem to find purchase
match FAIL-001 find it hard going.
match FAIL-001 your footing is questionable
match FAIL-001 slip after a few feet
match FAIL-001 A wave of dizziness hits you
match FAIL-001 Struck by vertigo
put climb break
matchwait

PASS-001:
move NoRTH
move gO gate
move WeST
move gO stair
move SoUTH
goto CLIMB-002

FAIL-001:
pause
goto CLIMB-002

CLIMB-002:
match PASS-002 [Northeast Wilds, Outside Northeast Gate]
match FAIL-002 You must be standing
match FAIL-002 steepness is intimidating
match FAIL-002 can't seem to find purchase
match FAIL-002 find it hard going.
match FAIL-002 your footing is questionable
match FAIL-002 slip after a few feet
match FAIL-002 A wave of dizziness hits you
match FAIL-002 Struck by vertigo
put ClIMB embrasure
matchwait

FAIL-002:
move n
move go stair
move e
move go gate
PASS-002:
move gO footpath
goto CLIMB-01

CLIMB-01:
SAVE FAIL-01
match PASS-01 [Crossing, East Wall Battlements]
match FAIL-01 You must be standing
match FAIL-01 steepness is intimidating
match FAIL-01 can't seem to find purchase
match FAIL-01 find it hard going.
match FAIL-01 your footing is questionable
match FALLEN slip after a few feet
match FAIL-01 A wave of dizziness hits you
match FAIL-01 Struck by vertigo
put ClIMB wall
matchwait

PASS-01:
move n
move gO stair
move e
move gO gate
move gO footpath
goto FAIL-01

FAIL-01:
move s
move down
move s
move s
move sw
goto CLIMB-02

CLIMB-02:
SAVE FAIL-02
match PASS-02 [Crossing, East Wall Battlements]
match FAIL-02 You must be standing
match FAIL-02 steepness is intimidating
match FAIL-02 can't seem to find purchase
match FAIL-02 find it hard going.
match FAIL-02 your footing is questionable
match FALLEN slip after a few feet
match FAIL-02 A wave of dizziness hits you
match FAIL-02 Struck by vertigo
put ClIMB wall
matchwait

PASS-02:
move s
move gO stair
move gO gate
move gO bush
move n
goto CLIMB-03

FAIL-02:
move s
goto CLIMB-03

CLIMB-03:
SAVE FAIL-03
match PASS-03 [Crossing, East Wall Battlements]
match FAIL-03 You must be standing
match FAIL-03 steepness is intimidating
match FAIL-03 can't seem to find purchase
match FAIL-03 find it hard going.
match FAIL-03 your footing is questionable
match FALLEN slip after a few feet
match FAIL-03 A wave of dizziness hits you
match FAIL-03 Struck by vertigo
put ClIMB wall
matchwait

PASS-03:
move s
move gO stair
move gO gate
goto CLIMB-04

FAIL-03:
move s
goto CLIMB-04

CLIMB-04:
SAVE FAIL-04
match PASS-04 [Crossing, East Gate Battlements]
match FAIL-04 You must be standing
match FAIL-04 steepness is intimidating
match FAIL-04 can't seem to find purchase
match FAIL-04 find it hard going.
match FAIL-04 your footing is questionable
match FALLEN slip after a few feet
match FAIL-04 A wave of dizziness hits you
match FAIL-04 Struck by vertigo
put ClIMB wall
matchwait

PASS-04:
pause
goto CLIMB-05

FAIL-04:
move gO gate
move gO stair
goto CLIMB-05

CLIMB-05:
SAVE FAIL-05
match PASS-05 [Eastern Tier, Outside Gate]
match FAIL-05 You must be standing
match FAIL-05 steepness is intimidating
match FAIL-05 can't seem to find purchase
match FAIL-05 find it hard going.
match FAIL-05 your footing is questionable
match FALLEN slip after a few feet
match FAIL-05 A wave of dizziness hits you
match FAIL-05 Struck by vertigo
put ClIMB embrasure
matchwait

PASS-05:
move gO gate
move gO stair
FAIL-05:
move n
goto CLIMB-06

CLIMB-06:
SAVE FAIL-06
match PASS-06 [Outside East Wall, Footpath]
match FAIL-06 You must be standing
match FAIL-06 steepness is intimidating
match FAIL-06 can't seem to find purchase
match FAIL-06 find it hard going.
match FAIL-06 your footing is questionable
match FALLEN slip after a few feet
match FAIL-06 A wave of dizziness hits you
match FAIL-06 Struck by vertigo
put ClIMB break
matchwait

PASS-06:
move s
move gO gate
move gO stair
move n
goto CLIMB-07

FAIL-06:
pause
goto CLIMB-07

CLIMB-07:
SAVE FAIL-07
match PASS-07 [Outside East Wall, Footpath]
match FAIL-07 You must be standing
match FAIL-07 steepness is intimidating
match FAIL-07 can't seem to find purchase
match FAIL-07 find it hard going.
match FAIL-07 your footing is questionable
match FALLEN slip after a few feet
match FAIL-07 A wave of dizziness hits you
match FAIL-07 Struck by vertigo
put ClIMB embrasure
matchwait

PASS-07:
move s
move s
move gO gate
goto TRAVEL-08

FAIL-07:
move s
move gO stair
goto TRAVEL-08

TRAVEL-08:
move w
move w
move w
move w
move nw
move n
move n
move n
move n
move n
move n
move w
move w
move w
move w
move gO bridge
move w
move w
move w
move w
move gO stair
move s

CLIMB-08:
SAVE FAIL-08
match PASS-08 [Mycthengelde, Flatlands]
match FAIL-08 You must be standing
match FAIL-08 steepness is intimidating
match FAIL-08 can't seem to find purchase
match FAIL-08 find it hard going.
match FAIL-08 your footing is questionable
match FALLEN slip after a few feet
match FAIL-08 A wave of dizziness hits you
match FAIL-08 Struck by vertigo
put ClIMB embrasure
matchwait

PASS-08:
pause
goto CLIMB-09

FAIL-08:
move n
move go stair
move go gate
move nw
goto CLIMB-09

CLIMB-09:
SAVE FAIL-09
match PASS-09 [Crossing, West Wall Battlements]
match FAIL-09 You must be standing
match FAIL-09 steepness is intimidating
match FAIL-09 can't seem to find purchase
match FAIL-09 find it hard going.
match FAIL-09 your footing is questionable
match FALLEN slip after a few feet
match FAIL-09 A wave of dizziness hits you
match FAIL-09 Struck by vertigo
put ClIMB wall
matchwait

PASS-09:
move n
goto CLIMB-10

FAIL-09:
move se
move gO gate
move gO stair
goto CLIMB-10

CLIMB-10:
SAVE FAIL-10
match PASS-10 [Mycthengelde, Flatlands]
match FAIL-10 You must be standing
match FAIL-10 steepness is intimidating
match FAIL-10 can't seem to find purchase
match FAIL-10 find it hard going.
match FAIL-10 your footing is questionable
match FALLEN slip after a few feet
match FAIL-10 A wave of dizziness hits you
match FAIL-10 Struck by vertigo
put ClIMB embrasure
matchwait

PASS-10:
move gO gate
move gO stair
FAIL-10:
move e
goto CLIMB-11

CLIMB-11:
SAVE FAIL-11
match PASS-11 [Northwall Trail, Wooded Grove]
match FAIL-11 You must be standing
match FAIL-11 steepness is intimidating
match FAIL-11 can't seem to find purchase
match FAIL-11 find it hard going.
match FAIL-11 your footing is questionable
match FALLEN slip after a few feet
match FAIL-11 A wave of dizziness hits you
match FAIL-11 Struck by vertigo
put ClIMB break
matchwait

PASS-11:
move s
move gO gate
move gO stair
move e
goto CLIMB-12

FAIL-11:
pause
goto CLIMB-12

CLIMB-12:
SAVE FAIL-12
match PASS-12 [Northwall Trail, Wooded Grove]
match FAIL-12 You must be standing
match FAIL-12 steepness is intimidating
match FAIL-12 can't seem to find purchase
match FAIL-12 find it hard going.
match FAIL-12 your footing is questionable
match FALLEN slip after a few feet
match FAIL-12 A wave of dizziness hits you
match FAIL-12 Struck by vertigo
put ClIMB embrasure
matchwait

PASS-12:
pause
goto CLIMB-13

FAIL-12:
move w
move gO stair
move gO gate
move gO trail
move ne
goto CLIMB-13

CLIMB-13:
SAVE FAIL-13
match PASS-13 [Crossing, North Wall Battlements]
match FAIL-13 You must be standing
match FAIL-13 steepness is intimidating
match FAIL-13 can't seem to find purchase
match FAIL-13 find it hard going.
match FAIL-13 your footing is questionable
match FALLEN slip after a few feet
match FAIL-13 A wave of dizziness hits you
match FAIL-13 Struck by vertigo
put ClIMB wall
matchwait

PASS-13:
move w
move gO stair
move gO gate
move gO trail
goto CLIMB-14

FAIL-13:
move sw
goto CLIMB-14

CLIMB-14:
SAVE FAIL-14
match PASS-14 [Crossing, North Wall Battlements]
match FAIL-14 You must be standing
match FAIL-14 steepness is intimidating
match FAIL-14 can't seem to find purchase
match FAIL-14 find it hard going.
match FAIL-14 your footing is questionable
match FALLEN slip after a few feet
match FAIL-14 A wave of dizziness hits you
match FAIL-14 Struck by vertigo
put ClIMB wall
matchwait

PASS-14:
move w
move gO stair
move gO gate
goto CLIMB-15

FAIL-14:
move s
goto CLIMB-15

CLIMB-15:
SAVE FAIL-15
match PASS-15 [Crossing, West Gate Battlements]
match FAIL-15 You must be standing
match FAIL-15 steepness is intimidating
match FAIL-15 can't seem to find purchase
match FAIL-15 find it hard going.
match FAIL-15 your footing is questionable
match FALLEN slip after a few feet
match FAIL-15 A wave of dizziness hits you
match FAIL-15 Struck by vertigo
put ClIMB wall
matchwait

PASS-15:
move gO stair
goto TRAVEL-15

FAIL-15:
move gO gate
goto TRAVEL-15

TRAVEL-15:
move e
move e
move e
move e
move e
move e
move e
move e
move e
move s
move s
move s
move s
move s
move s
move se
pause
put exp climb
match climb EXP HELP
match climbquit mind lock
match climbquit dazed
match climbquit bewilder
matchwait 

FALLEN:
pause
match STOOD You stand
match STOOD You are already standing
match FALLEN cannot manage to stand.
match FALLEN The weight of all your possessions
match FALLEN ...wait
put StAND
matchwait

STOOD:
goto %s

climbquit:
goto movetoswim

#=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
#     Ending of Climbing Function
#=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=


#=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
#    Beginning of Swimming Function
#=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
movetoswim:
move NoRTHWEST
move NoRTH
move NoRTH
move NoRTH
move NoRTH
move NoRTH
move NoRTH
move EaST
move EaST
move NoRTH
move EaST
move EaST
move NoRTH
move NoRTH
move EaST
move east
move go gate
move n
move n
move n
move ne
move ne
move n
move nw
move nw
move n
move n
move ne
move nw
move n
move n
move e
move d
move d
move go gate
move n
move n
move w
move s
move dive hole

swimmingstart:
counter set 0

appcheck:
counter add 1
match move%c mind lock
match appraise state of mind
put exp appraisal
matchwait

appraise:
match move%c roundtime
match apppause ...wait
put appraise water
matchwait

apppause:
pause 1
goto appraise

move1:
match appcheck roundtime
match movepause ...wait
put w
matchwait

move2:
match appcheck roundtime
match movepause ...wait
put s
matchwait

move3:
match appcheck roundtime
match movepause ...wait
put e
matchwait

move4:
match swimcheck roundtime
match movepause ...wait
put n
matchwait

move5:
counter subtract 4
goto move%c

movepause:
pause 1
goto move%c

swimcheck:
match swimquit mind lock
match appcheck state of mind
put exp swimming
matchwait

swimquit:
SAVE swimquit
match movetoforage [Arthe Dale, Greensward]
match swimquit You must be standing
match swimquit steepness is intimidating
match swimquit can't seem to find purchase
match swimquit find it hard going.
match swimquit your footing is questionable
match swimquit A wave of dizziness hits you
match swimquit Struck by vertigo
match fallen slip after a few feet
put climb embankment
matchwait
#=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
#      Ending of Swimming Function
#=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

#=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
#    Beginning of Foraging Function
#=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

movetoforage:
move n
move e
move e
move go path
move e
move e

foragestart:
put forage %forage careful
waitfor roundtime
pause 1
put put %forage in bucket
goto forageexpcheck

forageexpcheck:
match forageend % mind lock
match forageend % dazed
match foragestart Time Development
put exp foraging
matchwait

forageend:
goto getjuggle:

#=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
#      Ending of Foraging Function
#=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

#=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
#  Beginning of Perception Function
#=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

getjuggle:
 put get my %juggle
 wait

juggle:
 match juggle ...wait
 match jugstop It's easier to juggle if you start
 match jugstop Your injuries make juggling impossible.
 match percexpcheck Roundtime:
 put juggle my %juggle
 matchwait

percexpcheck:
 pause
 match jugdone perplex 
 match jugdone bewilder
 match jugdone mind lock
 match jugdone dazed
 match juggle EXP HELP
 put exp perception
 matchwait

jugstop:
echo You were unable to fulfill the juggling function for some reason.
jugdone:
put stow my %juggle

movetoclimb:
move w
move w
move go path
move w
move s
move s
move go gate
move up
move up
move w
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 s
move s
move s
move se
goto climbingstart
#=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
#    Ending of Perception Function
#=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=