@;@ RHP_Name: LORD Cavern Test Program #2
@;@ Written_by: Donald Tidmore
@;@ Script based on OTSAMPLE.SRP file made by Dennis Collins.
@;@ Feel free to use this in writing your own random happening.
@;@ Introduction stuff.    ** Created LCSAMP3.RHP 01/17/2009.
@;@
@;@  Fidonet Email:  1:/123/450
@;@  Email: ktidmore@bellsouth.net, donald.tidmore@usa.net
@;@  URL: http://camelot.legendarydragons.com/Scripts/
@;@
@;@@PROGRAM@ LORDCAVE
@;@@VERSION@ 1.80
@;@@NAME@ Sample Program
@;@@SCRIPTVERSION@ 1.15
@;@

@SHOW@
@#BUBUY
@CLEAR@

`@The Language!`6
`6-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
`3This new language lets people write thier own random happenings!

`6This is a sample of `!LORD Cavern's `9built
`6in programing language, `5|n`9.

   `6(`%2`6) `!Set SKILL = 40
   `6(`%3`6) `!Show stats screen! {ACTIVE IN SORCERER, RHPTEST ONLY}

   `6(`%5`6) `!Divide SKILL by 500.
   `6(`%6`6) `!Multiply SKILL by 500.
   `6(`%7`6) `!Subtract 500 from SKILL.
   `6(`%8`6) `!Add 500 to SKILL!

   `0(`%E`0) `%Test SKILL +LEVEL+5 command.
   `0(`%F`0) `%Test SKILL +LEVEL-5 command.
   `0(`%G`0) `%Test SKILL +LEVEL*2 command.
   `0(`%H`0) `%Test SKILL +LEVEL/2 command.

   `0(`%I`0) `%Grant player FAIRY for igm tests.

   `6(`%9,Q`6) `!Quit running script test session!

`6
@;@ Example of prompt!
@PROMPT@ 235678EFGHI9Q

@##2

`6  Setting SKILL to 40 Skill Points.
@SKILL@ =40
@SHOW@

@MORE@
`6  Setting Skill Class to Death Knight using FIGHTER code.
@FIGHTER@
@SHOW@
`%  You now have `$@*@SKILL@*@ `@ `%Skill Points.

@STATS@
@MORE@
@GOTO@ @#BUBUY

@##3
@STATS@
@GOTO@ @#BUBUY

@##5
`%Dividing SKILL stat by 500.
@SKILL@ \500
`%  You now have `$@*@SKILL@*@ `@ `%Skill Points.
@MORE@
@GOTO@ @#BUBUY
@END@

@##6
`%Multiplying SKILL stat by 500.
@SKILL@ *500
`%  You now have `$@*@SKILL@*@ `@ `%Skill Points.
@MORE@
@GOTO@ @#BUBUY
@END@

@##7
`%Subtracting 500 from SKILL.
@SKILL@ -500
`%  You now have `$@*@SKILL@*@ `@ `%Skill Points.
@MORE@
@GOTO@ @#BUBUY
@END@

@##8
`%Adding 500 to SKILL.
@SKILL@ +500
`%  You now have `$@*@SKILL@*@ `@ `%Skill Points.
@MORE@
@GOTO@ @#BUBUY
@END@

@##E
`%  Test of SKILL +LEVEL+5 Command.  Adds 5 to Game Level.
`%  Adds result to SKILL stat. Resets SKILL to value of final result.
`!    Initial value of SKILL:  `$@*@SKILL@*@ `@ `%Skill Points.
@SKILL@ +LEVEL+5
`%  You now have `$@*@SKILL@*@ `@ `%Skill Points.
`%  Your Game Level is `$@*@LEVEL@*@ `%currently.
@MORE@
@GOTO@ @#BUBUY
@END@

@##F
`%  Test of SKILL +LEVEL-5 Command.  Subtracts 5 from Game Level.
`%  Adds result to SKILL stat. Resets SKILL to value of final result.
`!    Initial value of SKILL:  `$@*@SKILL@*@ `@ `%Skill Points.
@SKILL@ +LEVEL-5
`%  You now have `$@*@SKILL@*@ `@ `%Skill Points.
`%  Your Game Level is `$@*@LEVEL@*@ `%currently.
@MORE@
@GOTO@ @#BUBUY
@END@

@##G
`%  Test of SKILL +LEVEL*2 Command.  Multiplies Game Level by 2.
`%  Adds result to SKILL stat. Resets SKILL to value of final result.
`!    Initial value of SKILL:  `$@*@SKILL@*@ `@ `%Skill Points.
@SKILL@ +LEVEL*2
`%  You now have `$@*@SKILL@*@ `@ `%Skill Points.
`%  Your Game Level is `$@*@LEVEL@*@ `%currently.
@MORE@
@GOTO@ @#BUBUY
@END@

@##H
`%  Test of SKILL +LEVEL/2 Command.  Divides Game Level by 2.
`%  Adds result to SKILL stat. Resets SKILL to value of final result.
`!    Initial value of SKILL:  `$@*@SKILL@*@ `@ `%Skill Points.
@SKILL@ +LEVEL/2
`%  You now have `$@*@SKILL@*@ `@ `%Skill Points.
`%  Your Game Level is `$@*@LEVEL@*@ `%currently.
@MORE@
@GOTO@ @#BUBUY
@END@

@##I
`#   Player is granted a Fairy for IGM test purposes.
`#   Should only work if player doesn't have a Fairy already.
@;@   Verified code works correctly 12/05/09 3:19 am.

@IFNOT@ FAIRY @FAIRY@

@MORE@
@GOTO@ @#BUBUY

@##Q
@##9
@END@

@;@ =========================================================
@;@ 01/17/09: v1.00 - Tests using SKILL done in RHPTEST.
@;@ 04/19/09 - minor editing
@;@  09/04/09: Revised to use v1.10.

@;@ 12/05/09: Changed VERSION to 1.80.  Added FAIRY test code.
@;@    Changed ScriptVersion to 1.15.