@;@RHP_Name: Mystic Coast
@;@By Gary Hartzell
@;@@PROGRAM@ GATEWAY
@;@@VERSION@ 1.80
@;@@NAME@ Mystic Coast
@;@@SCRIPTVERSION 1.25

@SHOW@
@;@Variables
@;@
@;@ user1 - if visited today (0 = no, 1 = yes)
@;@ user2 - walks down the beach (max 10)
@;@ variable1 - seen sunbather


@;@Intro Screen

`!
`!
`!
`!                                  Mystic Coast
`!
`2
`2
`2                       Version 1.25  (Nov. 2009)
`2                       By Gary Hartzell
`2                       Concept by Nancy Hartzell
`2                       (c) Copyright 2002-2009 Gary Hartzell
`2
`%
`%Note:  This script requires usage of The Gateway v1.3+ Betas.

`2
`2
`2
`2
`2
@MORE@
@USER2@ =0
@VARIABLE1@ =0

@#MAIN_MENU
@CLEAR@
`$The Mystic Coast
`$-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
`!It's a beautiful summer day -- hot, low humidity, and not a cloud in the
sky; the perfect day to visit the Coast.  Now that you are here, what do you 
want to do?
`!
`!
`!
(`#W`!) Walk down the beach
(`#Q`!) Head back to town
`!
`!`l
@PROMPT@ WQ

@##Q
@CLEAR@
`1
`1
`1Thanks for visiting Mystic Coast.  Have a nice day!
`1
`1
`$
`$
`$
`$
`$For more fun LORD add-ons by Gary Hartzell, visit:
`$
`$          http://arena.lordlegacy.org/igms.shtml
`$
@END@

@##W
@IF@ USER2>15 @GOTO@ @#WALK_ALREADY
@USER2@ 1
@RANDOM@ 9
@##1
@##9
@GOTO@ @#WALK_GOLD
@##2
@##6
@##7
@GOTO@ @#WALK_OYSTER
@##3
@IF@ MALE @GOTO@ @#WALK_SUNBATHER_M
@IF@ FEMALE @GOTO@ @#WALK_SUNBATHER_F
@##4
@##5
@GOTO@ @#WALK_NOTHING
@##8
@GOTO@ @#WALK_SAND_DEMON
	
@#WALK_ALREADY
@CLEAR@
`$
`$
`$
`$You've walked the length of the beach.
@MORE@
@GOTO@ @#MAIN_MENU

@#WALK_GOLD
@RANDOM@ 3
@##1
@GOTO@ @#WALK_GOLD_SCATTERED
@##2
@GOTO@ @#WALK_GOLD_PURSE
@##3
@GOTO@ @#WALK_GOLD_POUCH

@#WALK_GOLD_SCATTERED
@CLEAR@
`$
`$
`$
As you walk along the beach, you come across the remains of what might have 
been a beach party.  Littered across the sand are cigarette butts, beer cans, 
food wrappers, other items, and is that -- yep, gold.  Not much gold, just 
some spilt change scattered in the sand.  You gather up the gold and throw it 
in your gym bag.
@RANDOM@ 5
@##1
@GOLD@ +LEVEL*190
@MORE@
@GOTO@ @#MAIN_MENU
@##2
@GOLD@ +LEVEL*538
@MORE@
@GOTO@ @#MAIN_MENU
@##3
@GOLD@ +LEVEL*710
@MORE@
@GOTO@ @#MAIN_MENU
@##4
@GOLD@ +LEVEL*841
@MORE@
@GOTO@ @#MAIN_MENU
@##5
@GOLD@ +LEVEL*293
@MORE@
@GOTO@ @#MAIN_MENU

@#WALK_GOLD_PURSE
@CLEAR@
`$
`$
`$
As you are strolling down the beach, your leg gets tangled in something, and 
you almost go down.  You look down to see a woman's purse with its shoulder 
strap wrapped around your ankle.  You pick up the purse and look inside...
@DELAY@
@DELAY@
@RANDOM@ 3
@##1
The purse is empty!  You toss the purse aside  and walk on.
@MORE@
@GOTO@ @#MAIN_MENU
@##2
There is a large amount of gold inside!
@IF@ LEVEL<9 @GOLD@ +LEVEL*5000
@IF@ LEVEL>8 @GOLD@ +LEVEL*10000
@MORE@
@GOTO@ @#MAIN_MENU
@##3
@GOLD@ +LEVEL*400
@MORE@
@GOTO@ @#MAIN_MENU

@#WALK_GOLD_POUCH
@CLEAR@
`$
`$
`$
You come across a pouch identical to those you are accustomed to finding in 
the forest.  Excited, you quickly throw it into your gym bag!
@GOLD@ +LEVEL*1500
@MORE@
@GOTO@ @#MAIN_MENU

@#WALK_OYSTER
@CLEAR@
`$
`$
`$
You see an oyster in the sand.  You open it...`l
@DELAY@
@DELAY@
@DELAY@
@RANDOM@ 3
@##1
and get a hand full of sand.
@MORE@
@GOTO@ @#MAIN_MENU
@##2
@##3
and find a jewel!
@GEMS@ +1
@MORE@
@GOTO@ @#MAIN_MENU

@#WALK_SUNBATHER_M
@if@ VARIABLE1>0 @GOTO@ @#WALK_GOLD
@VARIABLE1@ 1
@CLEAR@
`$
`$
`$
You come across a beautiful red-head sunbathing on a beach towel...in the nude!
`$
She is lying on her stomach and props herself up on her elbows when she hears 
you approach.  You smile as you raise your gaze from her breasts and the 
two of you make eye contact.
`$
@MORE@
`$
@IF@ CHARM<20 @GOTO@ @#WALK_SUNBATHER_M0
@IF@ CHARM<50 @GOTO@ @#WALK_SUNBATHER_M20
@IF@ CHARM>49 @GOTO@ @#WALK_SUNBATHER_M50

@#WALK_SUNBATHER_M0
She barely gives you a glance before laying back down.  Ouch!
`$
@GOTO@ @#MAIN_MENU

@#WALK_SUNBATHER_M20
The two of you shoot the breeze for a while.  You leave feeling good about 
yourself!
`$
@IF@ LEVEL<5 @EXPERIENCE@ +LEVEL*40
@IF@ LEVEL =5 @EXPERIENCE@ +LEVEL*300
@IF@ LEVEL =6 @EXPERIENCE@ +LEVEL*300
@IF@ LEVEL =7 @EXPERIENCE@ +LEVEL*1200
@IF@ LEVEL =8 @EXPERIENCE@ +LEVEL*1200
@IF@ LEVEL>8 @EXPERIENCE@ +LEVEL*3600
@MORE@
@GOTO@ @#MAIN_MENU

@#WALK_SUNBATHER_M50
She invites you to lay naked with her, and soon enough, tanning is 
the last thing on either one of your minds.
`$
@LAYS@ 1
@IF@ LEVEL<5 @EXPERIENCE@ +LEVEL*70
@IF@ LEVEL =5 @EXPERIENCE@ +LEVEL*450
@IF@ LEVEL =6 @EXPERIENCE@ +LEVEL*450
@IF@ LEVEL =7 @EXPERIENCE@ +LEVEL*2300
@IF@ LEVEL =8 @EXPERIENCE@ +LEVEL*2300
@IF@ LEVEL>8 @EXPERIENCE@ +LEVEL*6000
@MORE@
@NEWS@
`n got laid on the beach!
@NEWSLINE@
@NEWSEND@
@GOTO@ @#MAIN_MENU

@#WALK_SUNBATHER_F
@if@ VARIABLE1>0 @GOTO@ @#WALK_GOLD
@VARIABLE1@ 1
@CLEAR@
`$
`$
`$
You come across a hunky blond sunbathing on a beach towel...in the nude!
`$
He is lying on his stomach and props himself up on his elbows when he hears 
you approach.  You smile as the two of you make eye contact.
`$
@MORE@
`$
@IF@ CHARM<20 @GOTO@ @#WALK_SUNBATHER_F0
@IF@ CHARM<50 @GOTO@ @#WALK_SUNBATHER_F20
@IF@ CHARM>49 @GOTO@ @#WALK_SUNBATHER_F50

@#WALK_SUNBATHER_F0
He barely gives you a glance before laying back down.  Ouch!
`$
@GOTO@ @#MAIN_MENU

@#WALK_SUNBATHER_F20
The two of you shoot the breeze for a while.  You leave feeling good about 
yourself!
`$
@IF@ LEVEL<5 @EXPERIENCE@ +LEVEL*40
@IF@ LEVEL =5 @EXPERIENCE@ +LEVEL*300
@IF@ LEVEL =6 @EXPERIENCE@ +LEVEL*300
@IF@ LEVEL =7 @EXPERIENCE@ +LEVEL*1200
@IF@ LEVEL =8 @EXPERIENCE@ +LEVEL*1200
@IF@ LEVEL>8 @EXPERIENCE@ +LEVEL*360
@MORE@
@GOTO@ @#MAIN_MENU

@#WALK_SUNBATHER_F50
He invites you to lay naked with him, and soon enough, tanning is 
the last thing on either one of your minds.
`$
@LAYS@ 1
@IF@ LEVEL<5 @EXPERIENCE@ +LEVEL*70
@IF@ LEVEL =5 @EXPERIENCE@ +LEVEL*450
@IF@ LEVEL =6 @EXPERIENCE@ +LEVEL*450
@IF@ LEVEL =7 @EXPERIENCE@ +LEVEL*2300
@IF@ LEVEL =8 @EXPERIENCE@ +LEVEL*2300
@IF@ LEVEL>8 @EXPERIENCE@ +LEVEL*6000
@MORE@
@news@
`n got laid on the beach!
@NEWSLINE@
@NEWSEND@
@GOTO@ @#MAIN_MENU

@#WALK_NOTHING
@CLEAR@
`$
`$
`$
You walk a short distance, but don't find anything of interest.
`$
@MORE@
@GOTO@ @#MAIN_MENU

@#WALK_SAND_DEMON
@CLEAR@
`$
`$
`$
You are walking along, minding your own business, when suddenly...
@DELAY@
@DELAY@
A sand demon rises out of the sand and rushes towards you!
@MORE@
`$
`$
@RANDOM@ 2
@##1
Thinking fast, you draw your `w and slice the monster in two!
@IF@ LEVEL =1 @EXPERIENCE@ 5
@IF@ LEVEL =2 @EXPERIENCE@ 20
@IF@ LEVEL =3 @EXPERIENCE@ 50
@IF@ LEVEL =4 @EXPERIENCE@ 200
@IF@ LEVEL =5 @EXPERIENCE@ 500
@IF@ LEVEL =6 @EXPERIENCE@ 2000
@IF@ LEVEL =7 @EXPERIENCE@ 5000
@IF@ LEVEL =8 @EXPERIENCE@ 10000
@IF@ LEVEL =9 @EXPERIENCE@ 20000
@IF@ LEVEL =10 @EXPERIENCE@ 30000
@IF@ LEVEL =11 @EXPERIENCE@ 100000
@IF@ LEVEL =12 @EXPERIENCE@ 200000
@MORE@
@GOTO@ @#MAIN_MENU

@##2
Before you can react, the little beast takes a chunk out of your leg!
@VARIABLE1@ =HITPOINTS%10
@HITPOINTS@ -VARIABLE1

@IF@ LEVEL =1 @EXPERIENCE@ -3
@IF@ LEVEL =2 @EXPERIENCE@ -10
@IF@ LEVEL =3 @EXPERIENCE@ -30
@IF@ LEVEL =4 @EXPERIENCE@ -100
@IF@ LEVEL =5 @EXPERIENCE@ -300
@IF@ LEVEL =6 @EXPERIENCE@ -1000
@IF@ LEVEL =7 @EXPERIENCE@ -3000
@IF@ LEVEL =8 @EXPERIENCE@ -5000
@IF@ LEVEL =9 @EXPERIENCE@ -10000
@IF@ LEVEL =10 @EXPERIENCE@ -20000
@IF@ LEVEL =11 @EXPERIENCE@ -50000
@IF@ LEVEL =12 @EXPERIENCE@ -100000
@MORE@
@GOTO@ @#MAIN_MENU


@;@ June 23, 2003 Testing with RHPTest/32 program.  Fixed errors.
@;@ Capitalized the RHP Codes. Added space before use of = sign.
@;@ Removed spaces between math formula components.

@;@ 06/07/08: Fixed glitches with use of LEVEL command. v1.10 DGT
@;@ 04/19/09: added SHOW command.

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

@;@ 11/23/09: Fixed Math codes to work with GATEWAY.EXE v1.33+ betas.

@;@ 11/30/09: Changed VERSION to 1.80.  Use Script Version 1.25.