@;@ RHP_name: The Goblin v1.00
@;@ For: The Forest Outhouse v2.15+
@;@ Written_by: Donald Tidmore
@;@ Email: ktidmore@bellsouth.net, donald.tidmore@usa.net
@;@  URL: http://camelot.legendarydragons.com/Scripts/
@;@ For testing July 2003 RHP codes work.  Created 02/20/2005.
@;@
@;@@PROGRAM@ OUTHOUSE
@;@@VERSION@ 2.15
@;@@NAME@ The Goblin
@;@@SCRIPTVERSION@ 1.05

    `%Event In The Forest`2
  `#---------------------------------------------------------
  `!It is a nice day as you ramble through the dense forest.

@;@     ---------------- For Testing new SEENDRAGON math coding:
  `%You think about your last meeting with the `@RED DRAGON ...
@VARIABLE1@ =0
@VARIABLE2@ =0
@VARIABLE1@ LEVEL*3
@VARIABLE2@ SEENDRAGON*VARIABLE1
`2  You look down and find a `!Black Crystal `2on the ground.
`%    You wonder if the gem-stone one has any special value.

@IF@ SEENDRAGON @GOTO@ @#Crystal
`#  Nothing happens, but you keep it. Someone in town will buy it.
@GOTO@ @#NoValue5

@#Crystal
`#    It is a `!magical crystal!  `0It grants you some `$Forest Fights.

@FOREST@ +VARIABLE2
@#NoValue5
`0 ----------------------------------------------------------------
@MORE@

@;@     ---------------- For Testing new FAIRY math coding:
  `%Your thoughts are about `2Fairies `%now.
  `%  You feel odd like someone is watching you. ,,,

@IF@ FAIRY @GOTO@ @#HasFairy
`0  Turns out to be your imagination and you move on ...
@GOTO@ @#FairyEnd

@#HasFairy
`0  Spotting a `%Goblin, `0you chase him awhile.  After a brief fight,
`0  you kill him.  `!You feel a surge in `%Health `!as you add the
`!  few treasures he was carrying to your pouch.

@VARIABLE1@ =0
@VARIABLE2@ =0
@VARIABLE1@ LEVEL*3
@VARIABLE2@ FAIRY*VARIABLE1
    `#Some of the treasure is magical, and you are granted
    `#some `$Max Hitpoints.  `%That was worth the exercise!

@HITMAX@ +VARIABLE2

@#FairyEnd
`0 ----------------------------------------------------------------

@;@     ---------------- For Testing new SETHVIOLET math coding:
`%  Thoughts of the lovely time spent earlier at the `0Inn
@IF@ FEMALE @GOTO@ @#Bard
`%  with the luscious `0Lady Violet, `%occupy your mind.
@GOTO@ @#SV_Ending
@#Bard
`%  with the handsome `0Bard, Seth Able, `%fill your head.

@#SV_Ending
`0    You find another gem-stone ... a `#Red crystal.

@IF@ SETHVIOLET @GOTO@ @#SV_Reward
`!  Turns out to be worthless, and you toss it away.
@END@

@#SV_Reward
@VARIABLE1@ =0
@VARIABLE2@ =0
@VARIABLE1@ LEVEL*1000
@VARIABLE2@ SETHVIOLET*VARIABLE1
`!  You trigger a magical spell when you look into it.
`!    Suddenly a small pile of `$Gold Coins `!appears at your feet.

@GOLD@ +VARIABLE2

`!  You quickly pick up the `0Gold Coins `!and move onward.
@END@

@;@ Burlap.rhp: Created 07/01/03 for usage in RHP code testing.
@;@ -- Use of BARDSONG in Math command. - Grants 0 or 5 defense. CONFIRMED
@'@ -- Use of WEIRDEVENT code - Grants 0 or 7 Strength points.   CONFIRMED
@;@ -- Use of SEENMASTER code - Grants GOLD Points.              CONFIRMED
@;@ -- use of SEENDRAGON code - Grants some Forest Fights.       CONFIRMED
@;@ -- 07/02: SETHVIOLET code - Gold reward.                     CONFIRMED
@;@ 07/03: worked on fine-tuning the dialogue. v1.01

@;@ 02/20/05: Moved code for using SEENDRAGON, FAIRY, and
@;@   SETHVIOLET from Burlap.rhp into new Goblin.rhp file.
@;@ 04/21/2007: updated email info in headers.
@;@ 06/27/2007: Added web-site URL header line.  v1.05.