@;@ RHP_Name: The Gateway 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 GWSAMP2.RHP 06/09/2008.
@;@
@;@  Fidonet Email:  1:/123/450
@;@  Email: ktidmore@bellsouth.net, donald.tidmore@usa.net
@;@  URL: http://camelot.legendarydragons.com/Scripts/
@;@
@;@@PROGRAM@ GATEWAY
@;@@VERSION@ 1.3
@;@@NAME@ Sample Program
@;@@SCRIPTVERSION@ 1.34
@;@

`6This is a sample of `!The Gateway's `9built
`6in programing language, `5|n`9.
@SHOW@

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

@;@ test for user 2 variable
@VISITS@ =100
@;@ 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@

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

   `6(`%2`6) `!Set SKILL = 40, SKILLUSE = 40.
   `6(`%3`6) `!Show stats screen! {ACTIVE IN SORCERER, RHPTEST ONLY}
   `6(`%5`6) `!Divide SKILL by 10.            `6(`%6`6) `!Multiply SKILL by 10.
   `6(`%7`6) `!Subtract 10 from SKILL.        `6(`%8`6) `!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.         `6(`%J`6) `!Multiply SKILLUSE by 10.
   `6(`%K`6) `!Subtract 10 from SKILLUSE.     `6(`%L`6) `!Add 10 to SKILLUSE!

   `#(`%M`#) `!Divide SKILLUSE by 25.        `6(`%N`6) `!Multiply SKILLUSE by 25.
   `6(`%O`6) `!Subtract 25 from SKILLUSE.    `6(`%P`6) `!Add 25 to SKILLUSE!
   `#(`%9,Q`#) `!Quit running script test session!

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

@##2

`6  Setting SKILL to `@40 `!Skill Points.
@SKILL@ =40
`6  Setting SKILLUSE to `$40 `!Skill Use Points.
@SKILLUSE@ =40
@SHOW@

@MORE@
`6  Setting Skill Class to Death Knight using FIGHTER code.
@FIGHTER@
@SHOW@
`%  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
@SHOW@
`%  You have `$@*@SKILL@*@ `%Skill Points.
`%Dividing SKILL stat by 10.
@SKILL@ \10
`%  You now have `$@*@SKILL@*@ `@ `%Skill Points.
@MORE@
@GOTO@ @#BUBUY
@END@

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

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

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

@##E
@SHOW@
`%  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
@SHOW@
`%  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
@SHOW@
`%  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
@SHOW@
`%  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
@SHOW@
`%  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
@SHOW@
`%  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
@SHOW@
`%  You have `$@*@SKILLUSE@*@ `%Skill Use Points.
`%Subtracting 10 from SKILLUSE.
@SKILLUSE@ -10
`%  You now have `$@*@SKILLUSE@*@ `@ `%Skill Use Points.
@MORE@
@GOTO@ @#BUBUY
@END@

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

@##M
@SHOW@
`%  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
@SHOW@
`%  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
@SHOW@
`%  You have `$@*@SKILLUSE@*@ `%Skill Use Points.
`%Subtracting 25 from SKILLUSE.
@SKILLUSE@ -25
`%  You now have `$@*@SKILLUSE@*@ `@ `%Skill Use Points.
@MORE@
@GOTO@ @#BUBUY
@END@

@##P
@SHOW@
`%  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