@;@ RHP_Name: Outlands Tavern Test Program #3
@;@ Written_by: Donald Tidmore
@;@ ** Created OTSAMP3.SRP 02/23/2009.
@;@
@;@  Fidonet Email:  1:/123/450
@;@  Email: ktidmore@bellsouth.net, donald.tidmore@usa.net
@;@  URL: http://camelot.legendarydragons.com/Scripts/
@;@
@;@@PROGRAM@ OUTLANDS
@;@@VERSION@ 1.8
@;@@NAME@ Sample Program
@;@@SCRIPTVERSION@ 1.00
@;@

@SHOW@

`6  Setting Hitpoints to 1. Max Hitpoints to 24,000. Granting fairy.
@HITPOINTS@ =1
@HITMAX@ =24000
`!  You curently have `$@*@HITPOINTS@*@ `%Hit-Points.
`!  You currently have `#@*@HITMAX@*@ `0Max Hit-Points.
@FAIRY@

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

@VARIABLE1@ =HITMAX
@VARIABLE1@ -HITPOINTS
@VARIABLE2@ =VARIABLE1
`0  Debug: Value of VARIABLE1 is:  `$@*@VARIABLE1@*@
`0  Debug: Value of VARIABLE2 is:  `$@*@VARIABLE2@*@
@MORE@

`!  Running example of HEAL code.
@HEAL@
@MORE@
@;@ ----------- end of 02/23/09 test code.

@#BUBUY
@CLEAR@

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

   `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 10.        `6(`%N`6) `!Multiply SKILLUSE by 10.
   `6(`%O`6) `!Subtract 10 from SKILLUSE.    `6(`%P`6) `!Add 10 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 10.
@SKILLUSE@ \10
`%  You now have `$@*@SKILLUSE@*@ `@ `%Skill Use Points.
@MORE@
@GOTO@ @#BUBUY
@END@

@##N
@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@

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

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


@##Q
@##9
@END@

@;@ =========================================================
@;@ 02/23/09: Created script using LCSAMP2.RHP code. v1.00