@;@ RHP_name: The Burlap Bag v1.05
@;@ For: The Forest Outhouse v2.15+
@;@ Written_by: Donald Tidmore
@;@ Email: ktidmore@bellsouth.net, donald.tidmore@usa.net
@;@ For testing July 2003 RHP codes work.  Created 07/01/03.
@;@  URL: http://camelot.legendarydragons.com/Scripts/
@;@
@;@@PROGRAM@ OUTHOUSE
@;@@VERSION@ 2.15
@;@@NAME@ The Burlag Bag
@;@@SCRIPTVERSION@ 1.05

    `%Event In The Forest`6
  `#---------------------------------------------------------
  `6You come across a burlap bag someone has dropped.
  `#  As you open it, you wonder what could be inside ...

@;@     ---------------- For Testing new BARDSONG math coding:
@IF@ BARDSONG   `%You remember how lovely `@Seth's `%song was earlier.
@VARIABLE1@ =0
@VARIABLE1@ BARDSONG*5
`6    You find an `!Orange Crystal `6lying inside ...

@IF@ BARDSONG @GOTO@ @#Orange
`#      It doesn't have any value, and you throw it away.
@GOTO@ @#NoValue1

@#Orange
`#      It is a `!magical amulet!  `0It grants you some `$Defense points.

@DEFENSE@ +VARIABLE1
@#NoValue1
`0 ----------------------------------------------------------------

@;@     ---------------- For Testing new WEIRDEVENT math coding:
@IF@ WEIRDEVENT   `%You think about the `!Angels in the Forest ...
@VARIABLE1@ =0
@VARIABLE1@ WEIRDEVENT*7
`0  You look a second time inside.  You find a `!Green Crystal,
`%    and look into it.

@IF@ WEIRDEVENT @GOTO@ @#White
`#  ... Nothing special happens, so you toss it away.
@GOTO@ @#NoValue3

@#White
`$  .., `$You feel the `$power of your `0`w `!increase.

@STRENGTH@ +VARIABLE1

`0  You stash the crystal in a pocket.  `%Violet `0might like it.
@#NoValue3
`0 ----------------------------------------------------------------
@MORE@

@;@     ---------------- For Testing new SEENMASTER math coding:
@IF@ SEENMASTER   `%You remember that last fight with your `!Master.
@VARIABLE1@ =0
@VARIABLE2@ =0
@VARIABLE1@ LEVEL*500
@VARIABLE2@ SEENMASTER*VARIABLE1
`0  You look a third time into the bag.  You find a `!Yellow Crystal,
`%    raise it up to your eyes, and look into it.

@IF@ SEENMASTER @GOTO@ @#Crystal
`#  ... You throw it at a pesky crow, and move onward.
@GOTO@ @#NoValue4

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

@EXPERIENCE@ +VARIABLE2
@#NoValue4

@END@

@;@ 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/2005: Moved SEENDRAGON, FAIRY, and SETHVIOLET code
@;@   to new GOBLIN.RHP script file. Changed version to 1.03.
@;@ 04/21/2007: updated email info in headers.
@;@ 06/27/2007: Added web-site URL line.  v1.05.

@;@ 06/07/2008: LORD color code tweaking