@;@RHP_Name: Merry Christmas
@;@By Gary Hartzell
@;@@PROGRAM@ GATEWAY
@;@@VERSION@ 1.80
@;@@NAME@ Merry Christmas
@;@@LIMIT@ 1
@;@@SCRIPTVERSION 1.25

@SHOW@
`4MERRY CHRISTMAS
`%
`%
`%By Gary Hartzell
`%
`%for the Gateway version 1.0+ by Jason Brown
`%
@MORE@
@CLEAR@
@IF@ USER1=1 @GOTO@ @#ALREADY
@USER1@ =0
`0As if in a dream...
`0It's Christmas morning.  You and all of your brothers and sisters run 
`0downstairs to see what Santa has left during the night.
`0
`0Would you like to open a stocking?
@YESNO@
##N
`0Well, there's always next year!  
@GOTO@ @#ENDING
@##Y
@CLEAR@
`0Choose the stocking to open:
`0
`@(1) Red
`2(2) Green
`%(3) White
`$(4) Yellow
`7(5) Silver
@PROMPT@ 12345
@##1
@GOTO@ @#RED
@##2 
@GOTO@ @#GREEN
@##3
@GOTO@ @#WHITE
@##4
@GOTO@ @#GOLD
@##5
@GOTO@ @#SILVER

@#RED
`0  You open the red stocking `%...
@MORE@
@CLEAR@
@RANDOM@ 6
@##1
@##2
@##5

`!  It is filled with `0Gems.  `!There is a `$Santa Claus`%!
`!  All the children are enjoying their gifts and you
`!are happy to have the extra Gems.
@GEMS@ +LEVEL*4
@GOTO@ @#ENDING
@##3

`!  It is filled with `$Gold `!and `0Gems.  `!There is a
`$  Santa Claus!  `!All the children are enjoying their
`!  gifts and you are happy to have the extra `$Gold `!and `0Gems.
@GOLD@ +LEVEL*3500
@GEMS@ +LEVEL*3
@GOTO@ @#ENDING
@##4
@##6
`!  It is filled with `$Gold.  `!There is a `$Santa Claus!
`!  All the children are enjoying their gifts and you are
`!  happy to have the extra `$Gold.
@GOLD@ +LEVEL*5000
@GOTO@ @#ENDING

@#GREEN
`0  You open the green stocking `%...
@MORE@
@CLEAR@
@RANDOM@ 8
@##1
@##4
@##5
@##6

`!  It is filled with `$Gold.  `!There is a `$Santa Claus`%!
`!  All the children are enjoying their gifts and you are
`!  happy to have the extra `$Gold.
@GOLD@ +LEVEL*5000
@GOTO@ @#ENDING
@##2
@##3
@##8

`!  It is filled with `$Gold.  `!There is a `$Santa Claus`%!
`!  All the children are enjoying their gifts and you are
`!  happy to have the extra `$Gold.
@GOLD@ +LEVEL*7000
@GOTO@ @#ENDING
	
@##7
`!  It is stuffed with `$Gold.  `!There is a `$Santa Claus`%!
`!  All the children are enjoying their gifts and you are
`!  happy to have the extra `$Gold.
@GOLD@ +LEVEL*10000
@GOTO@ @#ENDING

@#WHITE
`0  You open the white stocking `%...
@MORE@
@CLEAR@
@RANDOM@ 9
@##1
@##2
@##3
@##8
`!  It is stuffed with `$Gold `!and `0Gems.  `!There is a
`$  Santa Claus`%!  `!All the children are enjoying their
`!  gifts and you are happy to have the extra `$Gold and Gems.
@GOLD@ +LEVEL*3500
@GEMS@ +LEVEL*3
@GOTO@ @#ENDING
@##4
@##5
@##6
@##9
`!  It is filled with `$Gold `!and `0Gems.  `!There is a
`$  Santa Claus`%!  `!All the children are enjoying their
`!  gifts and you are happy to have the extra `$Gold and Gems.
@GOLD@ +LEVEL*4000
@GEMS@ +LEVEL*5
@GOTO@ @#ENDING
@##7
@IFNOT@ SPIRITS @GOTO@ @#WHITE2
@IF@ FAIRY @GOTO@ @#WHITE2
@IF@ HORSE @GOTO@ @#WHITE2
@RANDOM@ 4
@##1
@##3
@##4
@GOTO@ @#WHITE2
@##2

`!  A `0fairy `!flies out`%!  `!There is a `$Santa Claus`%!
`!  All the children are enjoying their gifts and you are
`!  thrilled with your new `0Fairy.
@FAIRY@
@GOTO@ @#ENDING
@#WHITE2

`!  It is stuffed full of `0Gems`%!  `!There is a `$Santa Claus`%!
`!  All the children are enjoying their gifts and you are
`!  happy to have the extra `$Gems.
@GEMS@ +LEVEL*2
@GOTO@ @#ENDING

@#GOLD
`0  You open the gold stocking `%...
@MORE@
@CLEAR@
@RANDOM@ 5
@##1
@##3

`!  It is filled with `$Gold.  `!There is a `$Santa Claus`%!
`!  All the children are enjoying their gifts and you are
`!  happy to have the extra `$Gold.
@GOLD@ +LEVEL*5000
@GOTO@ @#ENDING
@##2
@##4
@##5

`!  It is filled with `$Gold.  `!There is a `$Santa Claus`%!
`!  All the children are enjoying their gifts and you are
`!  happy to have the extra `$Gold.
@GOLD@ +LEVEL*7000
@GOTO@ @#ENDING

@#SILVER
`0  You open the silver stocking `%...
@MORE@
@CLEAR@
@RANDOM@ 9
@##1
@##2
@##6
@##9

`!  It is filled with `$Gold `!and `0Gems.  `!There is a
`$  Santa Claus`%!  `!All the children are enjoying their
`!  gifts and you are happy to have the extra `$Gold and Gems.
@GOLD@ +LEVEL*5000
@GEMS@ +LEVEL*2
@GOTO@ @#ENDING
@##3
@##4
@##7
@##8

`!  It is filled with `$Gold `!and `0Gems.  `!There is a
`$  Santa Claus`%!  `!All the children are enjoying their
`!  gifts and you are happy to have the extra `$Gold and Gems.
@GOLD@ +LEVEL*7000
@GEMS@ +LEVEL*3
@GOTO@ @#ENDING
@##5
@IFNOT@ HORSE @GOTO@ @#SILVER2
@IF@ WEIRDEVENT @GOTO@ @#SILVER3
@RANDOM@ 4
@##1

`!  It's a bank note.  It states that a large sum of money
`!  has been wired to your account.  `!There is a `$Santa Claus`%!
`!  All the children are enjoying their gifts and you are
`!  happy to have the extra `$cash.
@BANK@ +LEVEL*4000
@GOTO@ @#ENDING
@##2
@##3
@##4

`!  It is crammed full of `$Gold `!and `0Gems.  `!There is a
`$  Santa Claus`%!   `!All the children are enjoying their gifts
`!  and you are happy to have the extra `$Gold `!and `0Gems.
@GOLD@ +6000*LEVEL
@GEMS@ +LEVEL*9
@GOTO@ @#ENDING

@#SILVER2

`!  You find a card.  It simply reads:  `0Look out your back
`0  door.  `!You run to your back door and look out anxiously.
`!  To your surprise, a beautiful horse looks back at you`%!
@HORSE@

`!  All the children are enjoying their gifts, and you are
`!  thrilled with your new `$Horse.
@GOTO@ @#ENDING

@#SILVER3

`!  It is overflowing with `0Gems`%!
`!  All the children enjoy their gifts and you are happy
`!  with the abundance of `0Gems.
@GEMS@ +LEVEL*4
@GOTO@ @#ENDING


@#ALREADY
`0  You already opened a stocking today.  Remember, `$Santa
`0  knows who's been naughty and who's been nice!
@MORE@
@EXIT@

@#ENDING
@MORE@
@CLEAR@
@USER1@ =1
`@
`@
`@
`$  Merry Christmas `!`n!
`0
`0Now, returning you to the `@Gateway `%...
`0
`0
`$
`$
`$
`$
`$For more fun LORD add-ons by Gary Hartzell, visit:
`$
`$          http://www.hartzell.us/lord
`$
`$Also visit his Legend of the Green Dragon site at:
`$          http://www.legendarydragons.com/
`$
@END@

@;@ Updated script with new web-site information. 07/08/05.
@;@ Added key word highlighting and lines indentation. 07/08/05.
@;@ Made Gold and Gems rewards level-based. 07/08/05.
@;@ Added ScriptVersion line.  Version changed to 1.05. 07/08/05

@;@ Reduced amounts of some Gold/Gems rewards. 09/01/05.
@;@ Changed version to 1.10. Added Script Info line. 09/01/05.

@;@ 06/08/08 v1.12. Fixed all formulas to use correct syntax.

@;@ 02/19/09 v1.14. Added SHOW command to start of script.
@;@     Script tested using new RHPTEST2.EXE utility.

@;@ 11/02/09: Minor edit during testing of Gateway.exe v1.31 Beta.
@;@    Script changed to v1.20.

@;@ 11/23/09: Verified script works with GATEWAY.EXE v1.33+ betas.

@;@ 11/30/09: Changed VERSION to 1.80.  Script version 1.25 used.