#Hunting: Manticores, Thraks, Grey Orcs
Hunt:
move w
move w
move w
move s
move go gate
move s
move s
move s
move se
move e
move e
move go bridge
move climb bank
move ne
move ne
move n
move w
move ne
move n
move ne
move ne
move n
move n
move ne
move n
move climb rock
move e
move sw
move se
move s
move go foot
COUNTER SET 1
GOTO 1room
1Room:
save u
GOTO RoomCheck
2Room:
save se
GOTO RoomCheck
3Room:
save e
GOTO RoomCheck
4Room:
save ne
GOTO RoomCheck
5Room:
save e
GOTO RoomCheck
6Room:
save ne
GOTO RoomCheck
7Room:
save e
GOTO RoomCheck
8Room:
save se
GOTO RoomCheck
9Room:
save sw
GOTO RoomCheck
10Room:
save sw
GOTO RoomCheck
11Room:
save w
GOTO RoomCheck
12Room:
save nw
GOTO RoomCheck
13Room:
save nw
GOTO RoomCheck
14Room:
save w
GOTO RoomCheck
15Room:
save nw
GOTO RoomCheck
16Room:
save d
GOTO RoomCheck
17Room:
COUNTER SET 1
GOTO ExpCheck
Skip:
put %s
WAITFOR Obvious
COUNTER ADD 1
GOTO %CSkip
1Skip:
save u
GOTO Skip
2Skip:
save se
GOTO Skip
3Skip:
save e
GOTO Skip
4Skip:
save ne
GOTO Skip
5Skip:
save e
GOTO Skip
6Skip:
save ne
GOTO Skip
7Skip:
save e
GOTO Skip
8Skip:
save se
GOTO Skip
9Skip:
save sw
GOTO Skip
10Skip:
save sw
GOTO Skip
11Skip:
save w
GOTO Skip
12Skip:
save nw
GOTO Skip
13Skip:
save nw
GOTO Skip
14Skip:
save w
GOTO Skip
15Skip:
save nw
GOTO Skip
16Skip:
save d
GOTO Skip
17Skip:
COUNTER SET 1
GOTO [cond]Rest
ExpCheck:
PUT exper
MATCH %CRoom Your mind is as clear as a bell
MATCH %CRoom Your mind is fresh and clear.
MATCH %CRoom Your mind is clear.
MATCH %CRoom Your mind is muddled.
MATCH %CRoom Your mind is becoming numbed.
MATCH %CRoom Your mind is numbed.
MATCH SetExp must rest!
MATCHWAIT
SetExp:
VARIABLE [cond] "Exp"
GOTO %CSkip
RoomCheck:
COUNTER ADD 1
put %s
Moved:
MATCH Dead Game
MATCH Dead You are a ghost
MATCH AloneMant manticore,
MATCH AloneMant manticore.
MATCH AloneMant manticore and
MATCH AloneOrc grey orc
MATCH AloneThrak thrak,
MATCH AloneThrak thrak.
MATCH AloneThrak thrak and
MATCH %CRoom Obvious
MATCHWAIT
AnyMore:
PUT l
GOTO Moved
AttackMant:
put at mant
MATCH ExpCheck I could not find what you were referring to.
MATCH QuickDeadMant is already dead.
MATCH DeadMant and dies
MATCH PauseMant ...wait
MATCH PauseMant Roundtime:
MATCHWAIT
AttackThrak:
put at thrak
MATCH ExpCheck I could not find what you were referring to.
MATCH QuickDeadThrak is already dead.
MATCH DeadThrak and dies
MATCH PauseThrak ...wait
MATCH PauseThrak Roundtime:
MATCHWAIT
AttackOrc:
put at orc
MATCH ExpCheck I could not find what you were referring to.
MATCH QuickDeadOrc is already dead.
MATCH DeadOrc and dies
MATCH PauseOrc ...wait
MATCH PauseOrc Roundtime:
MATCHWAIT
Pausemant:
PAUSE 5
GOTO AttackMant
PauseThrak:
PAUSE 5
GOTO AttackThrak
PauseOrc:
PAUSE 5
GOTO AttackOrc
QuickDeadMant:
put search mant
WAITFOR compost.
goto AnyMore
QuickDeadThrak:
put search thrak
WAITFOR compost.
goto AnyMore
QuickDeadOrc:
put search orc
WAITFOR compost.
goto AnyMore
DeadMant:
PAUSE 5
put search mant
WAITFOR compost.
goto AnyMore
DeadThrak:
PAUSE 5
put search thrak
WAITFOR compost.
goto AnyMore
DeadOrc:
PAUSE 5
put search orc
WAITFOR compost.
goto AnyMore
AloneMant:
MATCH Moved tail
MATCH Moved leg
MATCH %CRoom Also here:
MATCH AttackMant Obvious
MATCHWAIT
AloneThrak:
MATCH Moved hide
MATCH %CRoom Also here:
MATCH AttackThrak Obvious
MATCHWAIT
AloneOrc:
MATCH %CRoom Also here:
MATCH AttackOrc Obvious
MATCHWAIT
ExpRest:
move go foot
move n
move nw
move ne
move w
move climb rock
move s
move sw
move s
move s
move sw
move sw
move s
move sw
move e
move s
move sw
move sw
move climb bank
move go bridge
move w
move w
move nw
move n
move n
move n
move n
move n
move ne
move go gate
move s
move w
move s
move s
move s
move go bank
move go arch
VARIABLE [money]
PUT wealth
WAITFOR You have [money] coins with you
PUT deposit [money]
move go arch
move out
move n
ExpRest:
VARIABLE [restplace]
MATH [restplace] RANDOM 10
IF [restplace] = 0 GOTO RestWellSouth
IF [restplace] = 1 GOTO RestWellEast
IF [restplace] = 2 GOTO RestWellWest
IF [restplace] = 3 GOTO RestWellNorth
IF [restplace] = 4 GOTO RestInn
IF [restplace] = 5 GOTO RestPark
IF [restplace] = 6 GOTO RestNiche
IF [restplace] = 7 GOTO RestTSC
IF [restplace] = 8 GOTO RestTSSE
IF [restplace] = 9 GOTO RestEastTower
RestWellSouth:
move se
move go well
VARIABLE [location] "WellSouth"
GOTO Resting
RestWellEast:
move se
move go well
move ne
VARIABLE [location] "WellEast"
GOTO Resting
RestWellWest:
move se
move go well
move nw
VARIABLE [location] "WellWest"
GOTO Resting
RestWellNorth:
move se
move go well
move ne
move nw
VARIABLE [location] "WellNorth"
GOTO Resting
RestInn:
GOSUB RestTown
move go inn
move s
VARIABLE [location] "Inn"
GOTO Resting
RestPark:
move s
move s
move s
VARIABLE [location] "Park"
GOTO Resting
RestNiche:
move s
move s
move s
move w
VARIABLE [location] "Niche"
GOTO Resting
RestTSC:
move se
VARIABLE [location] "TSC"
GOTO RESTING
RestTSSE:
move se
move se
VARIABLE [location] "TSSE"
GOTO Resting
RestEastTower:
move n
move n
move e
move n
move go e tower
VARIABLE [location] "EastTower"
GOTO Resting
Resting:
PAUSE 120
put exp
MATCH Hunt[location] Your mind is as clear as a bell
MATCH Hunt[location] Your mind is fresh and clear.
MATCH Hunt[location] Your mind is clear.
MATCH Resting Your mind is muddled.
MATCH Resting Your mind is becoming numbed.
MATCH Resting Your mind is numbed.
MATCH Resting must rest!
MATCHWAIT
HuntWellSouth:
move s
GOTO Hunt
HuntWellEast:
move sw
move s
GOTO Hunt
HuntWellWest:
move se
move s
GOTO Hunt
HuntWellNorth:
move se
move sw
move s
GOTO Hunt
HuntInn:
move n
move out
move se
GOTO Hunt
HuntPark:
move n
move ne
GOTO Hunt
HuntNiche:
move e
move n
move ne
GOTO Hunt
HuntTSC:
GOTO Hunt
HuntTSSE:
move nw
GOTO Hunt
HuntEastTower:
move out
move s
move w
move s
move s
move se
GOTO Hunt
HuntCircle:
move out
move w
move d
move n
move e
move n
move ne
move n
move go path
move go foot
GOTO Counter
Dead:
put quit reg