@;@RHP_Name: The Abandoned Mines #2
@;@By Gary Hartzell
@;@@PROGRAM@ GW13MAIN
@;@@VERSION@ 1.5
@;@@NAME@ The Abandoned Mines #2
@;@@LIMIT@ 1
@;@@SCRIPTVERSION 1.30
@;@Script Info: (v1.30, 11/02/2009. DGT)

@SHOW@
@;@user1 - 1 if used mine today, 0 if not
@;@USER2 - total digs - 10 max

@IF@ USER1=1 @GOTO@ @#ALREADY
@USER1@ =0
@USER2@ =0

`%The Abandoned Mines #2
`%
`%
`%Version 1.30 By Gary Hartzell
`%
`%for The Gateway IGM Version 1.30+ by Jason Brown
`%
`%Note:  This script requires usage of The Gateway v1.3+ Betas.
`%
`%
`%
`7You travel far to the fabled Abandoned Mines.  It is rumored
that unimaginable amounts of gold still remain in the mines
centuries after they have been forsaken.
`7
`7It is also rumored that many ghosts also reside in the
mines.  The legend goes that a mine fire trapped and eventually
burnt to death over 400 miners.  So many accounts of hauntings
were reported, that miners went on to other mines to search
for riches.
`7
`7Not feeling especially superstitious, you light your torch
and descend into the mines.
@MORE@

@#MENU
@CLEAR@
`$
`$
`$What do you do now?
`$
`$(D)ig for gold
`$(V)iew stats
`$(G)et out of here
`$
@PROMPT@ DVG

@##G
@IF@ USER2=0 @END@
@GOTO@ @#ENDING
	
@##V
@STATS@
@GOTO@ @#MENU

@##D
@IF@ USER2>9 @GOTO@ @#NODIGS
@RANDOM@ 6
@##1
@##3
@GOTO@ @#AVERAGE
@##2
@GOTO@ @#LOW
@##4
@GOTO@ @#AVERAGE2
@##5
@GOTO@ @#HIGH
@##6
@GOTO@ @#BAD

@#LOW
`$
`$
`$You chip away at the wall of the mine `%... `$and find a
`$small amount of Gold!
`$
@RANDOM@ 5
@##1
@IF@ LEVEL=1 @GOLD@ +300
@IF@ LEVEL=2 @GOLD@ +960
@IF@ LEVEL=3 @GOLD@ +2119
@IF@ LEVEL=4 @GOLD@ +2871
@IF@ LEVEL=5 @GOLD@ +2308
@IF@ LEVEL=6 @GOLD@ +401
@IF@ LEVEL=7 @GOLD@ +3317
@IF@ LEVEL=8 @GOLD@ +901
@IF@ LEVEL=9 @GOLD@ +7612
@IF@ LEVEL=10 @GOLD@ +550
@IF@ LEVEL=11 @GOLD@ +9957
@IF@ LEVEL=12 @GOLD@ +8025
@GOTO@ @#AFTERDIG

@##2
@IF@ LEVEL=1 @GOLD@ +500
@IF@ LEVEL=2 @GOLD@ +300
@IF@ LEVEL=3 @GOLD@ +1679
@IF@ LEVEL=4 @GOLD@ +616
@IF@ LEVEL=5 @GOLD@ +300
@IF@ LEVEL=6 @GOLD@ +1090
@IF@ LEVEL=7 @GOLD@ +300
@IF@ LEVEL=8 @GOLD@ +4021
@IF@ LEVEL=9 @GOLD@ +300
@IF@ LEVEL=10 @GOLD@ +9014
@IF@ LEVEL=11 @GOLD@ +11317
@IF@ LEVEL=12 @GOLD@ +954
@GOTO@ @#AFTERDIG

@##3
@IF@ LEVEL=1 @GOLD@ +373
@IF@ LEVEL=2 @GOLD@ +809
@IF@ LEVEL=3 @GOLD@ +1922
@IF@ LEVEL=4 @GOLD@ +2433
@IF@ LEVEL=5 @GOLD@ +2558
@IF@ LEVEL=6 @GOLD@ +2800
@IF@ LEVEL=7 @GOLD@ +2099
@IF@ LEVEL=8 @GOLD@ +3545
@IF@ LEVEL=9 @GOLD@ +5126
@IF@ LEVEL=10 @GOLD@ +6313
@IF@ LEVEL=11 @GOLD@ +5621
@IF@ LEVEL=12 @GOLD@ +3980
@GOTO@ @#AFTERDIG

@##4
@IF@ LEVEL=1 @GOLD@ +497
@IF@ LEVEL=2 @GOLD@ +1015
@IF@ LEVEL=3 @GOLD@ +1812
@IF@ LEVEL=4 @GOLD@ +300
@IF@ LEVEL=5 @GOLD@ +1572
@IF@ LEVEL=6 @GOLD@ +2617
@IF@ LEVEL=7 @GOLD@ +2290
@IF@ LEVEL=8 @GOLD@ +300
@IF@ LEVEL=9 @GOLD@ +4406
@IF@ LEVEL=10 @GOLD@ +2167
@IF@ LEVEL=11 @GOLD@ +3934
@IF@ LEVEL=12 @GOLD@ +8427
@GOTO@ @#AFTERDIG

@##5
@IF@ LEVEL=1 @GOLD@ +715
@IF@ LEVEL=2 @GOLD@ +892
@IF@ LEVEL=3 @GOLD@ +1170
@IF@ LEVEL=4 @GOLD@ +2878
@IF@ LEVEL=5 @GOLD@ +2229
@IF@ LEVEL=6 @GOLD@ +2923
@IF@ LEVEL=7 @GOLD@ +3482
@IF@ LEVEL=8 @GOLD@ +4461
@IF@ LEVEL=9 @GOLD@ +2458
@IF@ LEVEL=10 @GOLD@ +3499
@IF@ LEVEL=11 @GOLD@ +7685
@IF@ LEVEL=12 @GOLD@ +10340
@GOTO@ @#AFTERDIG

@#AVERAGE
`$
`$
`$You chip away at the wall of the mine `%... `$and find a
`$decent amount of gold!
`$
@RANDOM@ 8

@##1
@IF@ LEVEL=1 @GOLD@ +975
@IF@ LEVEL=2 @GOLD@ +1644
@IF@ LEVEL=3 @GOLD@ +2549
@IF@ LEVEL=4 @GOLD@ +3317
@IF@ LEVEL=5 @GOLD@ +4196
@IF@ LEVEL=6 @GOLD@ +5721
@IF@ LEVEL=7 @GOLD@ +6189
@IF@ LEVEL=8 @GOLD@ +8122
@IF@ LEVEL=9 @GOLD@ +10442
@IF@ LEVEL=10 @GOLD@ +16751
@IF@ LEVEL=11 @GOLD@ +25455
@IF@ LEVEL=12 @GOLD@ +33641
@GOTO@ @#AFTERDIG

@##2
@IF@ LEVEL=1 @GOLD@ +882
@IF@ LEVEL=2 @GOLD@ +1863
@IF@ LEVEL=3 @GOLD@ +2738
@IF@ LEVEL=4 @GOLD@ +3411
@IF@ LEVEL=5 @GOLD@ +4680
@IF@ LEVEL=6 @GOLD@ +5366
@IF@ LEVEL=7 @GOLD@ +6985
@IF@ LEVEL=8 @GOLD@ +8444
@IF@ LEVEL=9 @GOLD@ +13775
@IF@ LEVEL=10 @GOLD@ +21580
@IF@ LEVEL=11 @GOLD@ +30919
@IF@ LEVEL=12 @GOLD@ +41228
@GOTO@ @#AFTERDIG

@##3
@IF@ LEVEL=1 @GOLD@ +1106
@IF@ LEVEL=2 @GOLD@ +1620
@IF@ LEVEL=3 @GOLD@ +1994
@IF@ LEVEL=4 @GOLD@ +2990
@IF@ LEVEL=5 @GOLD@ +4018
@IF@ LEVEL=6 @GOLD@ +5194
@IF@ LEVEL=7 @GOLD@ +6672
@IF@ LEVEL=8 @GOLD@ +8223
@IF@ LEVEL=9 @GOLD@ +12863
@IF@ LEVEL=10 @GOLD@ +19626
@IF@ LEVEL=11 @GOLD@ +32570
@IF@ LEVEL=12 @GOLD@ +45027
@GOTO@ @#AFTERDIG

@##4
@IF@ LEVEL=1 @GOLD@ +959
@IF@ LEVEL=2 @GOLD@ +1789
@IF@ LEVEL=3 @GOLD@ +2587
@IF@ LEVEL=4 @GOLD@ +3091
@IF@ LEVEL=5 @GOLD@ +3981
@IF@ LEVEL=6 @GOLD@ +5510
@IF@ LEVEL=7 @GOLD@ +6255
@IF@ LEVEL=8 @GOLD@ +7800
@IF@ LEVEL=9 @GOLD@ +13398
@IF@ LEVEL=10 @GOLD@ +24780
@IF@ LEVEL=11 @GOLD@ +32188
@IF@ LEVEL=12 @GOLD@ +39902
@GOTO@ @#AFTERDIG

@##5
@IF@ LEVEL=1 @GOLD@ +1490
@IF@ LEVEL=2 @GOLD@ +2066
@IF@ LEVEL=3 @GOLD@ +2652
@IF@ LEVEL=4 @GOLD@ +3517
@IF@ LEVEL=5 @GOLD@ +4714
@IF@ LEVEL=6 @GOLD@ +6002
@IF@ LEVEL=7 @GOLD@ +7003
@IF@ LEVEL=8 @GOLD@ +8325
@IF@ LEVEL=9 @GOLD@ +10380
@IF@ LEVEL=10 @GOLD@ +22352
@IF@ LEVEL=11 @GOLD@ +30076
@IF@ LEVEL=12 @GOLD@ +42771
@GOTO@ @#AFTERDIG

@##6
@IF@ LEVEL=1 @GOLD@ +1217
@IF@ LEVEL=2 @GOLD@ +1904
@IF@ LEVEL=3 @GOLD@ +2805
@IF@ LEVEL=4 @GOLD@ +3378
@IF@ LEVEL=5 @GOLD@ +4265
@IF@ LEVEL=6 @GOLD@ +5719
@IF@ LEVEL=7 @GOLD@ +6864
@IF@ LEVEL=8 @GOLD@ +8382
@IF@ LEVEL=9 @GOLD@ +11148
@IF@ LEVEL=10 @GOLD@ +18090
@IF@ LEVEL=11 @GOLD@ +34416
@IF@ LEVEL=12 @GOLD@ +38100
@GOTO@ @#AFTERDIG

@##7
@IF@ LEVEL=1 @GOLD@ +914
@IF@ LEVEL=2 @GOLD@ +1711
@IF@ LEVEL=3 @GOLD@ +2480
@IF@ LEVEL=4 @GOLD@ +3614
@IF@ LEVEL=5 @GOLD@ +4476
@IF@ LEVEL=6 @GOLD@ +5367
@IF@ LEVEL=7 @GOLD@ +6787
@IF@ LEVEL=8 @GOLD@ +8009
@IF@ LEVEL=9 @GOLD@ +9979
@IF@ LEVEL=10 @GOLD@ +22788
@IF@ LEVEL=11 @GOLD@ +33765
@IF@ LEVEL=12 @GOLD@ +40557
@GOTO@ @#AFTERDIG

@##8
@IF@ LEVEL=1 @GOLD@ +1064
@IF@ LEVEL=2 @GOLD@ +1833
@IF@ LEVEL=3 @GOLD@ +2665
@IF@ LEVEL=4 @GOLD@ +3675
@IF@ LEVEL=5 @GOLD@ +4668
@IF@ LEVEL=6 @GOLD@ +5740
@IF@ LEVEL=7 @GOLD@ +6460
@IF@ LEVEL=8 @GOLD@ +8518
@IF@ LEVEL=9 @GOLD@ +14460
@IF@ LEVEL=10 @GOLD@ +20544
@IF@ LEVEL=11 @GOLD@ +29971
@IF@ LEVEL=12 @GOLD@ +38894
@GOTO@ @#AFTERDIG

@#AVERAGE2
`$
`$
`$You chip away at the wall of the mine `%... `$and find a
`$nice amount of Gold!
`$
@RANDOM@ 4

@##1
@IF@ LEVEL=1 @GOLD@ +1553
@IF@ LEVEL=2 @GOLD@ +2100
@IF@ LEVEL=3 @GOLD@ +2940
@IF@ LEVEL=4 @GOLD@ +3500
@IF@ LEVEL=5 @GOLD@ +4545
@IF@ LEVEL=6 @GOLD@ +5378
@IF@ LEVEL=7 @GOLD@ +6914
@IF@ LEVEL=8 @GOLD@ +8273
@IF@ LEVEL=9 @GOLD@ +11270
@IF@ LEVEL=10 @GOLD@ +23880
@IF@ LEVEL=11 @GOLD@ +32200
@IF@ LEVEL=12 @GOLD@ +44135
@GOTO@ @#AFTERDIG

@##2
@IF@ LEVEL=1 @GOLD@ +1150
@IF@ LEVEL=2 @GOLD@ +1995
@IF@ LEVEL=3 @GOLD@ +2648
@IF@ LEVEL=4 @GOLD@ +3227
@IF@ LEVEL=5 @GOLD@ +4791
@IF@ LEVEL=6 @GOLD@ +5595
@IF@ LEVEL=7 @GOLD@ +7017
@IF@ LEVEL=8 @GOLD@ +8336
@IF@ LEVEL=9 @GOLD@ +12758
@IF@ LEVEL=10 @GOLD@ +20016
@IF@ LEVEL=11 @GOLD@ +31874
@IF@ LEVEL=12 @GOLD@ +41119
@GOTO@ @#AFTERDIG

@##3
@IF@ LEVEL=1 @GOLD@ +1488
@IF@ LEVEL=2 @GOLD@ +1787
@IF@ LEVEL=3 @GOLD@ +2279
@IF@ LEVEL=4 @GOLD@ +3092
@IF@ LEVEL=5 @GOLD@ +4447
@IF@ LEVEL=6 @GOLD@ +5096
@IF@ LEVEL=7 @GOLD@ +6650
@IF@ LEVEL=8 @GOLD@ +8552
@IF@ LEVEL=9 @GOLD@ +12546
@IF@ LEVEL=10 @GOLD@ +18500
@IF@ LEVEL=11 @GOLD@ +30221
@IF@ LEVEL=12 @GOLD@ +40493
@GOTO@ @#AFTERDIG

@##4
@IF@ LEVEL=1 @GOLD@ +982
@IF@ LEVEL=2 @GOLD@ +1819
@IF@ LEVEL=3 @GOLD@ +2554
@IF@ LEVEL=4 @GOLD@ +3410
@IF@ LEVEL=5 @GOLD@ +4170
@IF@ LEVEL=6 @GOLD@ +5513
@IF@ LEVEL=7 @GOLD@ +6784
@IF@ LEVEL=8 @GOLD@ +8430
@IF@ LEVEL=9 @GOLD@ +9845
@IF@ LEVEL=10 @GOLD@ +22010
@IF@ LEVEL=11 @GOLD@ +35990
@IF@ LEVEL=12 @GOLD@ +42107
@GOTO@ @#AFTERDIG

@#HIGH
@RANDOM@ 7

@##1
@##2
@##5
`$
`$
`$You chip away at the wall of the mine `%... `$and find a
`$large amount of Gold!
@IF@ LEVEL=1 @GOLD@ +2169
@IF@ LEVEL=2 @GOLD@ +2721
@IF@ LEVEL=3 @GOLD@ +3706
@IF@ LEVEL=4 @GOLD@ +4172
@IF@ LEVEL=5 @GOLD@ +5120
@IF@ LEVEL=6 @GOLD@ +7018
@IF@ LEVEL=7 @GOLD@ +8200
@IF@ LEVEL=8 @GOLD@ +10594
@IF@ LEVEL=9 @GOLD@ +18976
@IF@ LEVEL=10 @GOLD@ +29034
@IF@ LEVEL=11 @GOLD@ +40144
@IF@ LEVEL=12 @GOLD@ +55214
@GOTO@ @#AFTERDIG

@##3
`$
`$
`$You chip away at the wall of the mine `%... `$and
`$hit the jackpot!!!
@IF@ LEVEL=1 @GOLD@ +20000
@IF@ LEVEL=2 @GOLD@ +30000
@IF@ LEVEL=3 @GOLD@ +40000
@IF@ LEVEL=4 @GOLD@ +50000
@IF@ LEVEL=5 @GOLD@ +70000
@IF@ LEVEL=6 @GOLD@ +100000
@IF@ LEVEL=7 @GOLD@ +200000
@IF@ LEVEL=8 @GOLD@ +300000
@IF@ LEVEL=9 @GOLD@ +400000
@IF@ LEVEL=10 @GOLD@ +500000
@IF@ LEVEL=11 @GOLD@ +1000000
@IF@ LEVEL=12 @GOLD@ +5000000
@USER1@ 1
@USER2@ 10
@NEWS@
`n hit the jackpot in The Abandoned Mines #2!
@NEWSLINE@
@NEWSEND@
@GOTO@ @#ENDING

@##4
@##6
`$
`$
`$You chip away at the wall of the mine `%... `$and find a
`$large amount of Gold!
@IF@ LEVEL=1 @GOLD@ +1884
@IF@ LEVEL=2 @GOLD@ +2309
@IF@ LEVEL=3 @GOLD@ +3668
@IF@ LEVEL=4 @GOLD@ +4093
@IF@ LEVEL=5 @GOLD@ +5119
@IF@ LEVEL=6 @GOLD@ +6789
@IF@ LEVEL=7 @GOLD@ +9115
@IF@ LEVEL=8 @GOLD@ +12479
@IF@ LEVEL=9 @GOLD@ +22104
@IF@ LEVEL=10 @GOLD@ +31787
@IF@ LEVEL=11 @GOLD@ +39230
@IF@ LEVEL=12 @GOLD@ +64298
@GOTO@ @#AFTERDIG

@##7
`$
`$
`$You chip away at the wall of the mine `%... `$and find a
`$large amount of Gold!
@IF@ LEVEL=1 @GOLD@ +1921
@IF@ LEVEL=2 @GOLD@ +2355
@IF@ LEVEL=3 @GOLD@ +3755
@IF@ LEVEL=4 @GOLD@ +4404
@IF@ LEVEL=5 @GOLD@ +5673
@IF@ LEVEL=6 @GOLD@ +7144
@IF@ LEVEL=7 @GOLD@ +8333
@IF@ LEVEL=8 @GOLD@ +9985
@IF@ LEVEL=9 @GOLD@ +17912
@IF@ LEVEL=10 @GOLD@ +31140
@IF@ LEVEL=11 @GOLD@ +38950
@IF@ LEVEL=12 @GOLD@ +78425
@GOTO@ @#AFTERDIG

@#AFTERDIG
@MORE@
@USER2@ 1
@GOTO@ @#MENU

@#BAD
@RANDOM@ 8

@##1
`$
`$
`$It's an earthquake!  Mud and debris fall everywhere.  You barely make it 
`$out alive.  You notice that you dropped your gold in your panic to escape!
@VARIABLE1@ =HITPOINTS%40
@HITPOINTS@ -VARIABLE1
`0  Your HitPoints dropped by `@40 `%percent.
`0  You now have `$@*@HITPOINTS@*@ `%Hit-Points.

@VARIABLE2@ =GOLD*1
@GOLD@ =0
`0  You lost `!@*@@GOLD@*@ `%Gold Coins!

@USER1@ 1
@USER2@ 10
@NEWS@
`n was almost killed in The Abandoned Mines #2 today!
@NEWSLINE@
@NEWSEND@
@END@

@##2
@##6
`$
`$
`$You hear a voice ahead of you shouting "Fire!  Fire! Fire!"  You are so 
`$frightened, you drop some gold!
@VARIABLE3@ =GOLD%10
@GOLD@ -VARIABLE3
`0  Your lose 10 percent of your Gold Coins.
`0  You now have `$@*@GOLD@*@ `%Gold in Hand.

@GOTO@ @#AFTERDIG

@##3
@##7
`$
`$
`$A blood-curdling scream fills the cavern!
You nearly drop all your `$gold!
@VARIABLE4@ =GOLD%20
@GOLD@ -VARIABLE4
`0  Your lose 20 percent of your Gold Coins.
`0  You now have `$@*@GOLD@*@ `%Gold in Hand.

@GOTO@ @#AFTERDIG

@##4
@##5
@##8
`$
`$
`$You stumble, injuring your leg.  You also dropped some
`$of your gold in the fall.
@VARIABLE5@ =HITPOINTS%20
@HITPOINTS@ -VARIABLE5
@VARIABLE6@ =GOLD%5
@GOLD@ -VARIABLE6
`0  Your HitPoints dropped by `@20 `%percent.
`0  You now have `$@*@HITPOINTS@*@ `%Hit-Points.
`0    Your Gold Coins dropped by `@5 `%percent.
`0    You now have `$@*@GOLD@*@ `%Gold in Hand.
@GOTO@ @#AFTERDIG

@#ALREADY
`7You are too tired to make the long journey again today.
@END@

@#NODIGS
`$You are too tired to dig anymore today.
@GOTO@ @#ENDING

@#ENDING
@MORE@
@USER1@ 1
@CLEAR@
`$
`$
`$You gather all your earnings and return to the surface.
`$The extra gold will surely come in handy in your quest
`$for the Red Dragon.
`$
`$
`$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@

@;@ 06/23/03 edit: replaced web-site address info for Gary Hartzell.
@;@ 06/23/03 edit: replaced web-site address info for Gary Hartzell.

@;@ Added ScriptVersion line.  Version changed to 1.10. 09/01/05
@;@ Updated web-site info, Added Script Info line. 09/01/05.

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

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

@;@ 11/04/09: Worked on fixing invalid math formulas used by script.