/*              Written by: Anakin @ California BBS                    */
/* This is a 'roaming' script for the first level of the Crypt for the */
/* Amiga program Terminus, written for a ranger but should work for    */
/* any class. If being used for a non-druid, just change mend to mihe  */
/* or take it out all together. Send any comments, questions, improve- */
/* ments, ect. to: Internet: anakin@calbbs.com  MajorNET: Anakin@URB   */

init:
ONCARRIER GOTO blah
goto parta

parta:
GOSUB mons
gosub n
gosub n
gosub n
gosub n
gosub w
gosub w
gosub s
gosub s
gosub s
gosub s
gosub n
gosub n
gosub n
gosub n
gosub e
gosub e
gosub e
gosub e
gosub s
gosub s
gosub s
gosub s
gosub n
gosub n
gosub n
gosub n
gosub w
gosub w
gosub n
gosub n
gosub n
gosub w
gosub w
gosub n
gosub n
gosub n
gosub n
gosub n
gosub e
gosub e
gosub s
gosub s
gosub s
gosub s
gosub s
gosub e
gosub e
gosub n
gosub n
gosub n
gosub n
gosub n
gosub w
gosub w
gosub s
gosub s
gosub s
gosub s
gosub s
gosub s
gosub s
gosub s
gosub s
gosub s
gosub s
gosub s
goto parta

n:
SEND "sn^Mnorth^M"
WAIT "Crypt"
WAIT "Obvious"
GOSUB mons
GOSUB heal
RETURN

s:
SEND "sn^Msouth^M"
WAIT "Crypt"
WAIT "Obvious"
GOSUB mons
GOSUB heal
RETURN

e:
SEND "sn^Meast^M"
WAIT "Crypt"
WAIT "Obvious"
GOSUB mons
GOSUB heal
RETURN

w:
SEND "sn^Mwest^M"
WAIT "Crypt"
WAIT "Obvious"
GOSUB mons
GOSUB heal
RETURN

mons:
SEND "^M"
WHEN 1 "zombie" GOTO zom
WHEN 2 "skeleton" GOTO skel
WAIT "Obvious"
return

zom:
SEND "bs zombie^M"
WHEN 1 "Well Spoken..." GOTO mons
WHEN 2 "you for" GOTO mend
WAIT "gain"
GOTO mons

skel:
SEND "bs skel^M"
WHEN 1 "Well Spoken..." GOTO mons
WHEN 2 "you for" GOTO mend
WAIT "gain"
GOTO mons

mend:
SEND "mend^M"
GOTO mons

heal:
SEND "health^M"
WHEN 2 "Health:    29/76" GOTO rest
WHEN 3 "Health:    28/76" GOTO rest
WHEN 4 "Health:    27/76" GOTO rest
WHEN 5 "Health:    26/76" GOTO rest
WHEN 6 "Health:    25/76" GOTO rest
WHEN 7 "Health:    24/76" GOTO rest
WHEN 8 "Health:    23/76" GOTO rest
WHEN 9 "Health:    22/76" GOTO rest
WHEN 10 "Health:    21/76" GOTO rest
WHEN 11 "Health:    20/76" GOTO rest
WHEN 12 "Health:    19/76" GOTO rest
WHEN 13 "Health:    18/76" GOTO rest
WHEN 14 "Health:    17/76" GOTO rest
WHEN 15 "Health:    16/76" GOTO rest
WHEN 16 "Health:    15/76" GOTO rest
WHEN 17 "Health:    14/76" GOTO rest
WHEN 18 "Health:    13/76" GOTO rest
WHEN 19 "Health:    12/76" GOTO rest
WHEN 20 "Health:    11/76" GOTO rest
WHEN 21 "Health:    10/76" GOTO rest
WHEN 22 "Health:     9/76" GOTO rest
WHEN 23 "Health:     8/76" GOTO rest
WHEN 24 "Health:     7/76" GOTO rest
WHEN 25 "Health:     6/76" GOTO rest
WHEN 26 "Health:     5/76" GOTO rest
WHEN 27 "Health:     4/76" GOTO rest
WHEN 28 "Health:     3/76" GOTO rest
WHEN 29 "Health:     2/76" GOTO rest
WHEN 30 "Health:    30/76" GOTO rest
WAIT "Mana:"
RETURN

rest:
SEND "rest^M"
WHEN 1 "skeleton" GOTO mons
WHEN 2 "zombie" GOTO mons
WAIT 45 "blajhdjhf"
GOTO check

check:
SEND "health^M"
WHEN 1 "Health:    70/76" GOTO mons
WHEN 2 "Health:    71/76" GOTO mons
WHEN 3 "Health:    72/76" GOTO mons
WHEN 4 "Health:    73/76" GOTO mons
WHEN 5 "Health:    74/76" GOTO mons
WHEN 6 "Health:    75/76" GOTO mons
WHEN 7 "Health:    76/76" GOTO mons
WAIT "Mana:"
GOTO rest

crap:
SEND "break^M"
SEND "~~~+++~~~"
WAIT "OK"
SEND "ATH^M"
END

blah:
END