@;@ RHP_Name: Forest Outhouse Test Program
@;@ 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 FOSAMP2.RHP 06/09/2008.
@;@
@;@  Fidonet Email:  1:/123/450
@;@  Email: ktidmore@bellsouth.net, donald.tidmore@usa.net
@;@  URL: http://camelot.legendarydragons.com/Scripts/
@;@
@;@@PROGRAM@ OUTHOUSE
@;@@VERSION@ 2.70
@;@@NAME@ Sample Program
@;@@SCRIPTVERSION@ 1.36
@;@

@SHOW@
`%This is a sample of `!Forest Outhouse's `!built
`%in programing language, `$|n`!.

`!Granted player a Fairy and a Horse for IGM tests.
@IFNOT@ FAIRY @FAIRY@
@IFNOT@ HORSE @HORSE@

`!  Setting the KIDS stat to 1,000, EXPERIENCE to 500 Million.
`!  Setting GOLD stat to 250 Million, GEMS to 2000.
@KIDS@ =1000
@EXPERIENCE@ =500000000
@GOLD@ =250000000
@GEMS@ =2000
@MORE@

`!  Player granted 25,000 Experience Points.
@EXPERIENCE@ +25000

`!  Player granted 25,000 Gold Coins.
@GOLD@ +25000

`!  Player granted 5,000 Gems.
@GEMS@ +5000

`!  Take away 10 Children from player.
@KIDS@ -10

@;@ test for user 2 variable
@VISITS@ =100
@MORE@

@;@ Ask yes / no.
`0Do you want to continue?|l
@YESNO@
@;@ Example of single character sections.

@##Y
@;@ If person chose 'Y', this is ran.

@#BUBUY
@CLEAR@

@SHOW@
`@The Language!`%
`%-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
`!This new language lets people write thier own random happenings!
`!You're a`0 |c `!|l
@;@ Example of new @IF@ command
`!, `$|n`!!
@IF@ MARRIED @GOTO@ @#Married
`!You're not married.  Bummer.
@GOTO@ @#Continue

@#Married
`!You're married to `5|m`!!
@#Continue

   `$(`%2`$) `!Set SKILL = 40, SKILLUSE = 40.
   `$(`%3`$) `!Show stats screen! {ACTIVE IN SORCERER, RHPTEST ONLY}
   `$(`%5`$) `!Divide SKILL by 10.            `$(`%6`$) `!Multiply SKILL by 10.
   `$(`%7`$) `!Subtract 10 from SKILL.        `$(`%8`$) `!Add 10 to SKILL!

   `#(`%E`#) `%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.
   `#(`%I`#) `!Divide SKILLUSE by 10.         `$(`%J`$) `!Multiply SKILLUSE by 10.
   `$(`%K`$) `!Subtract 10 from SKILLUSE.     `$(`%L`$) `!Add 10 to SKILLUSE!

   `#(`%M`#) `!Divide SKILLUSE by 25.        `$(`%N`$) `!Multiply SKILLUSE by 25.
   `$(`%O`$) `!Subtract 25 from SKILLUSE.    `$(`%P`$) `!Add 25 to SKILLUSE!

   `!(`01`!) `#Grant player a Fairy
   `#(`%9,Q`#) `!Quit running script test session!

`%
@;@ Example of prompt!
@PROMPT@ 1235678EFGHIJKLMNOP9Q

@##1
`0  Granting player a Fairy, if they don't have one already.

@IFNOT@ FAIRY @FAIRY@
@MORE@
@GOTO@ @#BUBUY

@##2
`%  Setting SKILL to `@40 `!Skill Points.
@SKILL@ =40
`%  Setting SKILLUSE to `$40 `!Skill Use Points.
@SKILLUSE@ =40

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

@;@  @STATS@          [disabled 01/20/09]
@MORE@
@GOTO@ @#BUBUY

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

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

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

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

@##8
`%  You have `$@*@SKILL@*@ `%Skill Points.
`%Adding 10 to SKILL.
@SKILL@ +10
`%  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
`%  You have `$@*@SKILLUSE@*@ `%Skill Use Points.
`%Dividing SKILLUSE stat by 10.
@SKILLUSE@ \10
`%  You now have `$@*@SKILLUSE@*@ `@ `%Skill Use Points.
@MORE@
@GOTO@ @#BUBUY
@END@

@##J
`%  You have `$@*@SKILLUSE@*@ `%Skill Use Points.
`%Multiplying SKILLUSE stat by 10.
@SKILLUSE@ *10
`%  You now have `$@*@SKILLUSE@*@ `@ `%Skill Use Points.
@MORE@
@GOTO@ @#BUBUY
@END@

@##K
`%  You have `$@*@SKILLUSE@*@ `%Skill Use Points.
`%Subtracting 10 from SKILLUSE.
@SKILLUSE@ -10
`%  You now have `$@*@SKILLUSE@*@ `@ `%Skill Use Points.
@MORE@
@GOTO@ @#BUBUY
@END@

@##L
`%  You have `$@*@SKILLUSE@*@ `%Skill Use Points.
`%Adding 10 to SKILLUSE.
@SKILLUSE@ +10
`%  You now have `$@*@SKILLUSE@*@ `@ `%Skill Use Points.
@MORE@
@GOTO@ @#BUBUY
@END@

@##M
`%  You have `$@*@SKILLUSE@*@ `%Skill Use Points.
`%Dividing SKILLUSE stat by 25.
@SKILLUSE@ \25
`%  You now have `$@*@SKILLUSE@*@ `@ `%Skill Use Points.
@MORE@
@GOTO@ @#BUBUY
@END@

@##N
`%  You have `$@*@SKILLUSE@*@ `%Skill Use Points.
`%Multiplying SKILLUSE stat by 25.
@SKILLUSE@ *25
`%  You now have `$@*@SKILLUSE@*@ `@ `%Skill Use Points.
@MORE@
@GOTO@ @#BUBUY
@END@

@##O
`%  You have `$@*@SKILLUSE@*@ `%Skill Use Points.
`%Subtracting 25 from SKILLUSE.
@SKILLUSE@ -25
`%  You now have `$@*@SKILLUSE@*@ `@ `%Skill Use Points.
@MORE@
@GOTO@ @#BUBUY
@END@

@##P
`%  You have `$@*@SKILLUSE@*@ `%Skill Use Points.
`%Adding 25 to SKILLUSE.
@SKILLUSE@ +25
`%  You now have `$@*@SKILLUSE@*@ `@ `%Skill Use Points.
@MORE@
@GOTO@ @#BUBUY
@END@


@##Q
@##9
@END@

@;@ ========================================================
@;@ 03/28/08: Deleted notes from 03/26-27/2008 testing.

@;@ 03/28/08: Test session #1. Used CHARM=10,000 base coding.
@;@   1-B. Use SEARCH code, base amount of 50.  v1.24
@;@   1-C. Use SKILL code. Base remains at 50.  v1.25
@;@   1-D. Use DEFENSE code. Base is 16,000.    v1.26
@;@   1-E. Use GOLD code. Base set at 500 Million.  v1.27
@;@        Add/Subtract formulas use 500, instead of 5.
@;@        All formulas changed to 25%, from 10%.
@;@   1-F. Use GOLD again. Base amount 1 Billion. 25% rate. v1.28

@;@ 03/30/08: Changed GOLD to CHARM. Base amt 16,000. 10% rate.
@;@ 06/04/08: v1.30. Changed Add/subtract formulas to 10.
@;@ 06/04/08:   Added I and J sections for GOLD & VARIABLE1 tests.
@;@ 06/07/08: v1.32. Changed cmd 2 to also set GEMS to 16,000.
@;@             Changed A-D options to test GEMS +10, GEMS -10,
@;@             GEMS *10, and GEMS /10 commands.

@;@ 02/19/09: Complete rewrite of file using LCSAMP2.RHP done.
@;@   Changed to version 1.34. 02/19/09

@;@ 04/18/09: added SHOW command.  04/19/09: fixed coding glitch

@;@ 12/07/09: Added code granting Fairy.  Script version 1.36