;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX	MAIN COMMON STUFF   0 - 99	XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
;
;
SCENE 0	splash, WELL, "Well of Souls", 0, 0
N: SEND COMMENTS OR SUGGESTIONS TO....
N: GAMETWEEKA@AOL.COM
END
;
;
SCENE 1
#include all.txt
#include assist.txt
#include helpout.txt
SET shf,"0"
WAIT 0.5
COMPARE #<shf>,"0"
IF= @bnchk1ok
GOTO @hell
@bnchk1ok
SET shf,"1"
WAIT 0.5
COMPARE #<shf>,"1"
IF= @bnchk2ok
GOTO @hell
@bnchk2ok
STRCMP #<str.soul>, "SOUL 1881"
IF= @skipban666
IF M0,@hell
IF M2,@hell
IF T666,@hell
IF S666,@hell
@skipban666
COMPARE #<num.isPKAttack>, 1
IF= @pk
COMPARE #<num.isPKAttack>, 2
IF= @pk
SET sceneLock,"0"
IF DEAD,@iconson
IF #665,@pkmapbuttons
ACTOR 16,"Lock",danNoFloat,6,98,6
WAIT 0.5	
COMPARE #<campmenu>,"1"
IF= @iconson
COMPARE #<campmenu>,"2"
IF= @iconsoff
@iconson
ACTOR 1,"Helmets",CampMenu,1,8,23
ACTOR 2,"Armor",CampMenu,2,20,23
ACTOR 3,"Boots",CampMenu,3,32,23
ACTOR 4,"Shields",CampMenu,4,44,23
ACTOR 5,"Cannons",CampMenu,5,56,23
ACTOR 6,"Light Blades",CampMenu,6,68,23
ACTOR 7,"Energy Capsules",CampMenu,7,80,23
ACTOR 8,"Weapon Pods",CampMenu,8,92,23
ACTOR 9,".....Rebuild Body",CampMenu,9,8,41
ACTOR 10,".....Repair Armor",CampMenu,10,8,59
ACTOR 11,"...........Charge Weapons",CampMenu,11,8,78
@pkmapbuttons
ACTOR 13,"Features",CampMenu,12,8,100
END
@iconsoff
ACTOR 1,"Helmets",CampMenu,16,8,23
ACTOR 2,"Armor",CampMenu,16,20,23
ACTOR 3,"Boots",CampMenu,16,32,23
ACTOR 4,"Shields",CampMenu,16,44,23
ACTOR 5,"Cannons",CampMenu,16,56,23
ACTOR 6,"Light Blades",CampMenu,16,68,23
ACTOR 7,"Energy Capsules",CampMenu,16,80,23
ACTOR 8,"Weapon Pods",CampMenu,16,92,23
ACTOR 9,"Rebuild Body",CampMenu,16,8,41
ACTOR 10,"Repair Armor",CampMenu,16,8,59
ACTOR 11,"......Charge Weapons",CampMenu,16,8,78
ACTOR 13,"Features",CampMenu,16,8,100
END

@pk
IF #665,@pkmap
MUSIC PKAttack
LOCK 1
N: Maverik Attack!!!!
N: FIGHT!!! 
END
@eventPkAttackDone
LOCK 0
END

@eventActorClick1
@eventActorAttack1
@eventActorSpell1
OFFER2 2,98,10
N: Helmets now being offered.
END

@eventActorClick2
@eventActorAttack2
@eventActorSpell2
OFFER2 2,98,11
N: Armor now being offered.
END

@eventActorClick3
@eventActorAttack3
@eventActorSpell3
OFFER2 2,98,20
N: Boots now being offered.
END

@eventActorClick4
@eventActorAttack4
@eventActorSpell4
OFFER2 2,98,21
N: Shields now being offered.
END

@eventActorClick5
@eventActorAttack5
@eventActorSpell5
OFFER2 2,98,12
N: Cannons now being offered.
END

@eventActorClick6
@eventActorAttack6
@eventActorSpell6
OFFER2 2,98,13
N: Light Blades now being offered.
END

@eventActorClick7
@eventActorAttack7
@eventActorSpell7
OFFER 1,2,3,4,5
N: Energy Recharges now being offered.
END

@eventActorClick8
@eventActorAttack8
@eventActorSpell8
OFFER 11,12,13,14,15
N: Weapon Recharges now being offered.
END

@eventActorClick9
@eventActorAttack9
@eventActorSpell9
SOUND thunder1.wav
GIVE L1
N: You have been rebuilt.
ACTOR 12,"",ChargeBeam,1,#<num.hostX>,#<num.hostY>
WAIT 1.0
ACTOR 12,"",ChargeBeam,0,#<num.hostX>,#<num.hostY>
END

@eventActorClick10
@eventActorAttack10
@eventActorSpell10
SOUND thunder1.wav
GIVE H6000
N: Your armor is being repaired.
ACTOR 12,"",ChargeBeam,2,#<num.hostX>,#<num.hostY>
WAIT 1.0
ACTOR 12,"",ChargeBeam,0,#<num.hostX>,#<num.hostY>
END

@eventActorClick11
@eventActorAttack11
@eventActorSpell11
SOUND thunder1.wav
GIVE M6000
N: Your special weapons are recharged.
ACTOR 12,"",ChargeBeam,3,#<num.hostX>,#<num.hostY>
WAIT 1.0
ACTOR 12,"",ChargeBeam,0,#<num.hostX>,#<num.hostY>
END

@eventActorClick13
@eventActorAttack13
@eventActorSpell13
MUSIC DrLight
ACTOR 14,"Dr Light",DrLight,1,23,100
SEL 14
WAIT 0.1
POSE 2
WAIT 0.1
POSE 3
WAIT 0.1
POSE 4
WAIT 0.1
POSE 5
WAIT 0.1
@eventActorClick14
@eventActorAttack14
@eventActorSpell14
IF T500,@inccc
IF -I901,@inccc
IF -I902,@inccc
IF -I903,@inccc
IF -I904,@inccc
IF -I905,@inccc
IF -I906,@inccc
IF -I907,@inccc
IF -I908,@inccc
IF -I909,@inccc
IF -I910,@inccc
IF -I911,@inccc
IF -I912,@inccc
IF -I913,@inccc
IF -I914,@inccc
IF -I915,@inccc
IF -I916,@inccc
IF -I917,@inccc
IF -I918,@inccc
IF -I919,@inccc
IF -I920,@inccc
IF -I921,@inccc
IF -I922,@inccc
IF -I923,@inccc
IF -I924,@inccc
IF -I925,@inccc
IF -I926,@inccc
IF -I927,@inccc
IF -I928,@inccc
IF -I929,@inccc
IF -I930,@inccc
IF -I931,@inccc
IF -I932,@inccc
IF -I933,@inccc
IF -I934,@inccc
IF -I935,@inccc
IF -I936,@inccc
IF -I937,@inccc
IF -I938,@inccc
IF -I939,@inccc
IF -I940,@inccc
IF -I941,@inccc
IF -I942,@inccc
IF -I943,@inccc
IF -I944,@inccc
IF -I945,@inccc
IF -I946,@inccc
IF -I947,@inccc
IF -I948,@inccc
IF -I949,@inccc
IF -I950,@inccc
IF -I951,@inccc
IF -I952,@inccc
IF -I953,@inccc
IF -I954,@inccc
IF -I955,@inccc
IF -I956,@inccc
IF -I957,@inccc
IF -I958,@inccc
IF -I959,@inccc
IF -I960,@inccc
IF -I961,@inccc
IF -I962,@inccc
IF -I963,@inccc
IF -I964,@inccc
IF -I965,@inccc
IF -I966,@inccc
IF -I967,@inccc
IF -I968,@inccc
IF -I969,@inccc
IF -I970,@inccc
IF -I971,@inccc
IF -I972,@inccc
IF -I973,@inccc
IF -I974,@inccc
IF -I975,@inccc
IF -I976,@inccc
IF -I977,@inccc
IF -I978,@inccc
IF -I979,@inccc
IF -I980,@inccc
IF -I981,@inccc
IF -I982,@inccc
IF -I983,@inccc
IF -I984,@inccc
IF -I985,@inccc
IF -I986,@inccc
IF -I987,@inccc
IF -I988,@inccc
IF -I989,@inccc
IF -I990,@inccc
IF -I991,@inccc
IF -I992,@inccc
IF -I993,@inccc
IF -I994,@inccc
IF -I995,@inccc
IF -I996,@inccc
IF -I997,@inccc
IF -I998,@inccc
IF -I999,@inccc
IF -I1000,@inccc
N: You have completed a card collection!
HOST_TAKE I1000
HOST_TAKE I999
HOST_TAKE I998
HOST_TAKE I997
HOST_TAKE I996
HOST_TAKE I995
HOST_TAKE I994
HOST_TAKE I993
HOST_TAKE I992
HOST_TAKE I991
WAIT 0.5
N: Wait....
HOST_TAKE I990
HOST_TAKE I989
HOST_TAKE I988
HOST_TAKE I987
HOST_TAKE I986
HOST_TAKE I985
HOST_TAKE I984
HOST_TAKE I983
HOST_TAKE I982
HOST_TAKE I981
WAIT 0.5
HOST_TAKE I980
HOST_TAKE I979
HOST_TAKE I978
HOST_TAKE I977
HOST_TAKE I976
HOST_TAKE I975
HOST_TAKE I974
HOST_TAKE I973
HOST_TAKE I972
HOST_TAKE I971
WAIT 0.5
N: Processing....
HOST_TAKE I970
HOST_TAKE I969
HOST_TAKE I968
HOST_TAKE I967
HOST_TAKE I966
HOST_TAKE I965
HOST_TAKE I964
HOST_TAKE I963
HOST_TAKE I962
HOST_TAKE I962
HOST_TAKE I961
WAIT 0.5
HOST_TAKE I960
HOST_TAKE I959
HOST_TAKE I958
HOST_TAKE I957
HOST_TAKE I956
HOST_TAKE I955
HOST_TAKE I954
HOST_TAKE I953
HOST_TAKE I952
HOST_TAKE I951
WAIT 0.5
N: Reward....
HOST_TAKE I950
HOST_TAKE I949
HOST_TAKE I948
HOST_TAKE I947
HOST_TAKE I946
HOST_TAKE I945
HOST_TAKE I944
HOST_TAKE I943
HOST_TAKE I942
HOST_TAKE I941
WAIT 0.5
HOST_TAKE I940
HOST_TAKE I939
HOST_TAKE I938
HOST_TAKE I937
HOST_TAKE I936
HOST_TAKE I935
HOST_TAKE I934
HOST_TAKE I933
HOST_TAKE I932
HOST_TAKE I931
WAIT 0.5
N: Varifying Completion....
HOST_TAKE I930
HOST_TAKE I929
HOST_TAKE I928
HOST_TAKE I927
HOST_TAKE I926
HOST_TAKE I925
HOST_TAKE I924
HOST_TAKE I923
HOST_TAKE I922
HOST_TAKE I921
WAIT 0.5
HOST_TAKE I920
HOST_TAKE I919
HOST_TAKE I918
HOST_TAKE I917
HOST_TAKE I916
HOST_TAKE I915
HOST_TAKE I914
HOST_TAKE I913
HOST_TAKE I912
HOST_TAKE I911
HOST_TAKE I910
WAIT 0.5
N: Process Complete
HOST_TAKE I909
HOST_TAKE I908
HOST_TAKE I907
HOST_TAKE I906
HOST_TAKE I905
HOST_TAKE I904
HOST_TAKE I903
HOST_TAKE I902
HOST_TAKE I901
HOST_GIVE T500
WAIT 0.5
HOST_GIVE I110.5
1: I got 5 %I110 for a set of cards!
@inccc

IF T213,@enablerestart
@restartready
MENU "Enlist Allies=@bosslist","Parts Collecting=@parts","Ability Upgrades=@ability","Show Card=@showcards","Music Player=@jukebox","Background Viewer=@background","Games=@games","View Movies=@movies","Teleport To/From PK Arena=@pkmapgo","Teleport To World Map=@teleport","Lock/Unlock Camp=@lock","Hide / Unhide Camp Icons=@icons","Setup PK Preferences=@prefs",#<optionsmenu1>,"Update Version=@update","View / Sign The MMX Guestbook=@guestbook","Leave Suggestions and Comments=@suggest"
END
#include progress.txt
#include entertainment.txt
#include options.txt
END

@hell
HOST_GIVE T666
HOST_GIVE S666
EJECT T666
GOTO LINK 666,0,0
END

@pkmap
MUSIC PKAttack
LOCK 1
N: No heal, pk res, or teleport...
FLAGS #<pkflags>
N: #<pkprefs>
N: FIGHT!!! 
END
;
;
SCENE 2
#include all.txt
#include assist.txt
STRCMP #<str.soul>, "SOUL 1881"
IF= @hellok 
STRCMP #<str.soul>, "SOUL 1758"
IF= @hellok 
STRCMP #<str.soul>, "SOUL 1388"
IF= @hellok 
IF #666,@inhell
IF T666,@gotohell
IF S666,@gotohell
FIGHT
IF DEAD,@dead
END
@gotohell
HOST_GIVE T666
HOST_GIVE S666
EJECT T666
GOTO LINK 666,0,0
END
@inhell
@dieagain
GIVE L1
GIVE H5000
GIVE M5000
FIGHT2 666,666,666,666,666
IF DEAD,@dieagain
END
@hellok 
FIGHT
IF DEAD,@dead
END
@dead
SOUND Death
END
;
;
SCENE 3	splash
END
;
;
SCENE 4 CardViewer CUT
SET timesthrucardcheck,"0"
SET cardcheck,"1"
ACTOR 1,"Back",CampMenu,13,35,100
ACTOR 2,"Forward",CampMenu,15,65,100
ACTOR 3,"Exit",CampMenu,14,50,100
END

@eventActorClick1
@eventActorSpell1
@eventActorAttack1
@downmore
COMPARE #<cardcheck>,"1"
IF= @set100
SUB cardcheck,"1"
ADD timesthrucardcheck,"1"
COMPARE #<timesthrucardcheck>,"100"
IF= ,@stopnow
@reset100
SET cardcheck2,#<cardcheck>
ADD cardcheck2,"900"
IF I#<cardcheck2>,@gotdown
GOTO @downmore
@gotdown
SET timesthrucardcheck,"0"
SET cardshow,"Card#<cardcheck>"
ACTOR 4,"Card #<cardcheck>",#<cardshow>,0,50,60
END
@set100
SET cardcheck,"100"
GOTO @reset100
END

@eventActorClick2
@eventActorSpell2
@eventActorAttack2
@upmore
ADD cardcheck,"1"
ADD timesthrucardcheck,"1"
COMPARE #<timesthrucardcheck>,"100"
IF= ,@stopnow
COMPARE #<cardcheck>,"101"
IF= @set1
@reset1
SET cardcheck2,#<cardcheck>
ADD cardcheck2,"900"
IF I#<cardcheck2>,@gotup
GOTO @upmore
@gotup
SET timesthrucardcheck,"0"
SET cardshow,"Card#<cardcheck>"
ACTOR 4,"Card #<cardcheck>",#<cardshow>,0,50,60
END
@set1
SET cardcheck,"1"
GOTO @reset1
END

@eventActorClick3
@eventActorSpell3
@eventActorAttack3
@stopnow
GOTO SCENE 1
END



#include 100-199.txt
;
#include 200-299.txt
;
#include 300-399.txt
;
#include 400-499.txt
;
#include 500-599.txt
;
#include 600-699.txt
;
#include 700-799.txt
;