@;@ RHP_name: The Goblin v1.05
@;@ For: The Forest Outhouse v2.51+
@;@ Written_by: Donald Tidmore
@;@ Email: ktidmore@bellsouth.net, donald.tidmore@usa.net
@;@  URL: http://camelot.legendarydragons.com/Scripts/
@;@  This script was created on 02/20/2005.
@;@
@;@@PROGRAM@ OUTHOUSE
@;@@VERSION@ 2.70
@;@@NAME@ The Goblin
@;@@SCRIPTVERSION@ 1.05

@SHOW@
    `%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@ =CHARM
@VARIABLE2@ =CHARM%2
`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@ =LAYS
@VARIABLE2@ =LAYS%25

    `#Some of the treasure is magical, and you are granted
    `#some `$Max Hitpoints.  `%That was worth the exercise!
@HITMAX@ +VARIABLE2
@MORE@

@#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.
@GOTO@ @#Script_Exit

@#SV_Reward
@VARIABLE1@ =EXPERIENCE
@VARIABLE2@ =EXPERIENCE%4
`!  You trigger a magical spell when you look into it.
`!    It grants you `$4% `!of your `@Experience Points `!in `$Gold!

`!    Suddenly a small pile of `$Gold Coins `!appears at your feet.
@GOLD@ +VARIABLE2

`!  You quickly pick up the `0Gold Coins `!and move onward.
@#Script_Exit
@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.

@;@ 04/18/2009: Worked on fixing errors with RHP math commands.
@;@ 04/18/09: Added SHOW command.

@;@ 04/20/09: replaced MATH formulas that used SEENDRAGON, or
@;@    SETHVIOLET.  Event #1 now grants 2% of CHARM, which is
@;@    added to Forest Fights;  Event #2 grants 25% of LAYS,
@;@    which is added to Max HitPoints;  and Event #3 grants
@;@    4% of EXPERIENCE, which is added to Gold on Hand. v1.05 used.