@;@ RHP_name: The Cloth Bag
@;@ For: The LORD Cavern v1.7+
@;@ Written_by: Donald Tidmore
@;@ Email: ktidmore@bellsouth.net, donald.tidmore@usa.net
@;@ For testing April 2009 RHP Library unit codes work.  Created 07/01/03.
@;@  URL: http://camelot.legendarydragons.com/Scripts/
@;@
@;@@PROGRAM@ LORDCAVE
@;@@VERSION@ 1.80
@;@@NAME@ The Cloth Bag
@;@@SCRIPTVERSION 1.20

@SHOW@
    `%Event in the Cavern`6
  `#---------------------------------------------------------
  `6You come across a small `#Cloth Bag `6someone has dropped.
  `#  As you open it, you wonder what could be inside ...

@IF@ FEMALE `%You remember how lovely `@Seth's `%song was earlier.
`6    You find an `!Orange Crystal `6lying inside ...

@IF@ FEMALE @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 `$Max HitPoints.
  `0  You now have `$@*@HITMAX@*@ `0Max Hit-Points.
@VARIABLE1@ =HITMAX
@VARIABLE2@ =HITMAX%2
@HITMAX@ +VARIABLE2
@;@ ==========================================================

@#NoValue1
`0 ----------------------------------------------------------------

@;@     -------- Testing of WEIRDEVENT code and DEFENSE stat:
@;@     Following code sets WEIRDEVENT to TRUE.
@WEIRDEVENT@ =TRUE
@IF@ WEIRDEVENT   `%You think about the `!Angels in the Forest ...
`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.
  `0  You now have `$@*@STRENGTH@*@ `0Strength Points.
@VARIABLE1@ =STRENGTH
@VARIABLE2@ =STRENGTH%2
@STRENGTH@ +VARIABLE2
@;@ ==========================================================

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

@;@     ---------------- For Testing new SEENMASTER math coding:
@;@     Following code sets SEENMASTER to TRUE.
@SEENMASTER@ =TRUE
@IF@ SEENMASTER   `%You remember that last fight with your `!Master.
`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.

  `0  You now have `$@*@EXPERIENCE@*@ `0Experience Points.
@VARIABLE1@ =LEVEL
@VARIABLE2@ =LEVEL*250
@EXPERIENCE@ +VARIABLE2
@;@ ==========================================================
@#NoValue4

@END@

@;@ Created ClothBag.rhp 04/20/2009 for LORD Cavern usage while
@;@   working on fixing math code processing glitches in the
@;@   Forest Outhouse burlap.rhp script.

@;@ 04/20/09: added debug statements for script testing. v1.10
@;@   Notes: BARDSONG, WEIRDEVENT, & SEENMASTER are *NOT*
@;@   usable in math formulas now. Verified usage of FEMALE
@;@   code with HITMAX math statements.
@;@ 04/21/09: Verified usage of WEIRDEVENT code with STRENGTH
@;@   math statements. 12:03 am  Verified usage of SEENMASTER
@;@   code with LEVEL-based EXPERIENCE math statements. 12:09 am.

@;@  09/04/09: Revised to use v1.20.
@;@  11/21/09: Deleted STRENGTH rhp code debug lines.
@;@  11/21/09: Deleted HITMAX, EXPERIENCE rhp code debug lines.

@;@ 11/30/09: Changed VERSION to 1.80.  No SCRIPTVERSION change.