Landing Warrior Guild - Berserk Training

[Augie]

The only thing this script won't do is go ask for a promotion, you'd have to check for that on yourself. Otherwise it's an automated script that will keep going through your reps until you get to critter reps:
-------------------------------------


#Warrior Guild - Berserk ~ Landing Only
#by Augie ~ FENIX825@play.net
#Please email me if you find any hangups with this script.

Begin:
if_1 goto PRESTART
echo
echo Usage for this script is .berserk (yourname)
echo
exit

PRESTART:
put gld
match ASKKLIDEL 0 repetitions to complete this task
match SAUNA sauna
match DARKCHAMBER Dark Chamber
match ICETUB ice
match CRITTERS critter
matchwait

#**************************************
SAUNA:
move east
move east
move go sauna
goto SAUNASTART

SAUNASTART:
put kneel
put meditate
match SAUNAREST are still too weakened
match SAUNABERSERK start berserking!
match SAUNABERSERK slip into a fit of rage
match SAUNASTART thoughts veer from slipping
matchwait

SAUNABERSERK:
put berserk %1%
match SAUNAREST are still too weakened
match SAUNABERSERKMORE remaining
match SAUNADONE have completed
matchwait

SAUNABERSERKMORE:
waitfor weakened feeling
goto SAUNABERSERK

SAUNAREST:
waitfor weakened feeling
goto SAUNASTART

SAUNADONE:
put stand
match SAUNA2KLIDEL stand back up
match SAUNADONE struggle to stand
matchwait

SAUNA2KLIDEL:
move out
move w
move w
put ask klidel about train berserk
waitfor You
put ask Klidel about train berserk
goto PRESTART
#**************************************
DARKCHAMBER:
move go door
move north
move east
move go stair
move west
goto DCSTART

DCSTART:
put kneel
put berserk %1%
match DCREST are still too weakened
match DCREST redness fades from the world
match DCSTOP have completed
matchwait

DCREST:
waitfor weakened feeling slowly fades
goto DCSTART

DCSTOP:
put stop berserk
match DCSTOP rage is too strong
match DCDONE redness fades from the world
matchwait

DCDONE:
put stand
match DCKLIDEL stand back up
match DCDONE struggle to stand
matchwait

DCKLIDEL:
move e
move go stair
move w
move s
move go door
put ask Klidel about train berserk
waitfor You
put ask Klidel about train berserk
goto PRESTART
#**************************************
ICETUB:
move go door
move north
move east
move go step
move west
move go tub
goto ICESTART

ICESTART:
put splash
match ICEREST are still too weakened
match ICEBERSERK start berserking!
match ICEBERSERK have quit shivering
match ICESTART balks at this treatment
matchwait

ICEBERSERK:
put berserk %1%
match ICEREST are still too weakened
match ICEBERSERKMORE remaining
match ICEDONE have completed
matchwait

ICEBERSERKMORE:
waitfor weakened feeling
goto ICEBERSERK

ICEREST:
waitfor weakened feeling
goto ICESTART

ICEDONE:
put stand
match ICEKLIDEL stand back up
match ICEDONE struggle to stand
matchwait

ICEKLIDEL:
move out
move east
move go step
move west
move south
move go door
put ask Klidel about train berserk
waitfor You
put ask Klidel about train berserk
goto PRESTART
#**************************************
ASKKLIDEL:
put ask klidel about training berserk
goto PRESTART
#**************************************
CRITTERS:
put hide
pause 1
echo
echo **************************************************
echo * *
echo * Yer on yer own for this one buddy. *
echo * *
echo * Time to go work on a live critter. Get goin! *
echo * *
echo **************************************************
echo
exit