;This is all the shopping scenes used on the map
;
; 100x - MacGuyver
; 101x - Westin
; 102x - Stonetree
; 103x - N. Umbrage
; 104x - RoundTree
; 105x - Isle of Light
; 106x - Animal Kingdom
; 107x - Rust Rock
; 108x - SpringWell
; 109x - Grotto
; 110x - Shrimpee



;---------
; general armor shop

SCENE 1001 bwEuroStreet
	THEME	0
;	MUSIC	waltz2.mid
	ACTOR	1,	"Daniel", joshTownsFolk, 17, 5, 90
	SEL		1
	MOVE	1,	15, 80
	OFFER2	0,20,10,  0,20,11,  0,20,20,  0,20,21

	' Finest armor in Evergreen!
END

;---------
; general weapons shop

SCENE 1002 bwEuroStreet
	THEME	0
;	MUSIC	waltz2.mid
	ACTOR	1,	"Josh", joshTownsfolk, 9, 5, 90
	POSE	9,10
	SEL		1
	MOVE	1,	15, 80
	OFFER2	0,20,12,  0,20,13,  0,20,14,  0,20,15  0,20,16  0,20,17  0,20,18  0,20,19
	' Finest weapons in Evergreen!
END

;---------
; general baubles shop

SCENE 1003 bwEuroStreet
	THEME	0
;	MUSIC	waltz2.mid
	ACTOR	1,	"Michelle", joshTownsFolk, 24, 5, 90
	POSE	24,25
	SEL		1
	MOVE	1,	15, 80
	OFFER2	0,20,22,  0,20,23
	' Finest rings and amulets in Evergreen!
END


;---------
; general boot shop

SCENE 1004 bwEuroStreet
	THEME	0
;	MUSIC	waltz2.mid
	ACTOR	1,	"Michelle", joshTownsFolk, 24, 5, 90
	POSE	24,25
	SEL		1
	MOVE	1,	15, 80
	OFFER2	0,10,20
	' Shoes, Slippers, and General Toe-Warmers!
END

;--------------
; Generic Casino
;
SCENE 1005		aztec
	THEME	0
;	MUSIC	waltz2.mid
	ACTOR	1,	"Barker", joshRoyalty, 2, 5, 90
	SEL		1
	MOVE	1,	15, 80
	GAME	1
	' Try your luck!
	' Our slots pay the most!
END

;--------------
; Generic Casino
;
SCENE 1006		bazaar

;	MUSIC	waltz2.mid
	ACTOR	1,	"Dazman", decap, 1, 5, 90
	POSE	1,4
	MOVE	1,	25, 80
      OFFER	1000,1001, 1002,1003,1004,1005
      1: So you need some help to kill the ultimate gargoyle?
	1: Well you have come to the right place!!
      1: Sorry about the VERY high prices! These monsters are the strongest!
      1: They are the rarest monsters that I have ever seen and they are very strong!
      1: click the shop button to check em out but don't be put off by the prices!!
END





;================================ WESTIN 10-30 ==================================
;---------
; item/potion shop
;
SCENE 1010 bwEuroStreet
	THEME	0
;	MUSIC	waltz2.mid
	ACTOR	1,	"Saffron", joshTownsFolk, 32, 5, 90
	POSE	31,32,5
	SEL		1
	MOVE	1,	15, 80
	OFFER2	0,30,0
	' Hi sweetie, you look like you need a drink.
END


;---------
; general armor shop

SCENE 1011 bwEuroStreet
	THEME	0
;	MUSIC	waltz2.mid
	COMPARE #<dead(10-30)armour>, 1
	IF> @shopkeeperdead(10-30)armour
	IF= @shopkeeperdead(10-30)armour
	ACTOR	1,	"Kelly", joshTownsFolk, 24, 5, 90
	POSE	24,25
	SEL		1
	MOVE	1,	15, 80
	OFFER2	10,30,10,  10,30,11,  10,30,20,  10,30,21
	IF T445 @end
	IF T1212, @goodnews
@end
	END
   
@goodnews
	' Hey I've got some good news!
        ' We have just got some new stock in today but it's only on sale to friends!
        ' The new equipment that we have bought off this guy is a magical armour, shield and a helmet!
        H: Those items have been stolen!!! There is no way that you can sell them!
        1: How can you be so sure?
        h: I have just been to heaven and God has lost some magical items!
        1: Heaven??? How did you get there?
        h: I died!
        1: Are you ok? 
        h: Yeah i'm used to it by now
        1: Well if you are positive about the items being stolen I'd better give them to you
        Give I196
        Give I197
        GIve I199
        h: Thanks I am very grateful!
        1: I've just remembered something!
        1: The guy who was selling the items told me that he was going to sell the rest somewhere else!
        1: He said he was going somewhere where the sun shines and nobody visits unless they are lost!
        1: That baffles me because I haven't been to that place like that
        1: Since you are an adventurer you should have been there!
        1: Think of a place where the sun shines and nobody visits unless they are lost
        1: Hope that helps and you find all the items, cya
END
@normal
1:I see that you have helped God out and got his items back, well done
1:Now things in this shop can go back to normal
1:lol I was just about to say take a look at my items but since you helped God go you MUST be a high level!
1:Anyway thanks for visiting such a low lvl shop!
1:Cya
END
@EventActorclick1
IF DEAD @urdead!(10-30)armour
COMPARE #<steal>, 1
IF>,@menu2(10-30)armour
IF=,@menu2(10-30)armour
MENU "Talk=@talk(10-30)armour"
END
@talk(10-30)armour
IF T445 @normal
IF T1212, @goodnews
1: Perhaps I could do something about that armor you're wearing?
END
@menu2(10-30)armour
MENU "Talk=@talk(10-30)armour", "Steal=@steal(10-30)armour", "Fight=@fight(10-30)armour"
END
@steal(10-30)armour
add stealsuccess, 0
add stealfail, 0
add timesteal, 1
add murderfail, 0
add murder, 0
add Timedone, 0
@attempt
N: You are now attepting to steal from the shopkeeper!
WAIT 3
IF R#<steal>, @successful(10-30)armour
add stealfail, 1
N: YOU FAILED!!!
1:OI!!! I SO THAT GUARDS!!!!!
WAIT .5
SOUND jail.wav
wait .5
GOTO LINK 43,0 (goes to jail)
END
@fight(10-30)armour
ACTOR 2, "Your Conscience" , mirror, 1, 75,65
2:JUST WAIT 1 SECOND!!!
2:IF you murder this shop keeper you will NEVER see them again!
2:This means that there will be no shop too!!!
2:You MAY get the equipment you want but that will be it because they will die!
2:Also if you get caught you may be in jail for quite some time!!!
2:Will you still fight her or chicken out??
WAIT 1
@menu(10-30)armour
MENU "I'm gonna kill her, I don't have a conscience!!=@noconscience(10-30)armour", "I won't kill her then because bad things may happen=@goodchoice(10-30)armour""
2:WHICH WILL YOU DO???
GOTO @menu(10-30)armour
@noconscience(10-30)armour
2:DON'T SAY I DIDN'T WARN YOU!!!!
WAIT 2
ACTOR 2, "" , character, 4, -100,65
h: YOU ARE GOING DOWN BECAUSE I NEED SOME FREE EQUIPMENT!
1:HOW DARE YOU TRY AND RUIN MY SHOP AND STEAL MY GOODS!!!!
1:I'm not going to fight you like this!!!
1:I'm gonna morph into something much stronger to teach you a lesson!!!!
WAIT 3
IF V30 @fight30
IF V28 @fight28
IF V26 @fight26
IF V24 @fight24
IF V22 @fight22
IF V20 @fight20
IF V18 @fight18
IF V16 @fight16
IF V14 @fight14
IF V12 @fight12
IF V10 @fight10
h: Dang it! I think I'd better leave before starting a fight because my lvl is too low!
WAIT 5
GOTO EXIT
END

@goodchoice(10-30)armour
2:You made the best choice because killing is very bad!!
2:Happy shopping :)
WAIT 1
ACTOR 2, "" , character, 4, -100,65
END


@successful(10-30)armour
MUSIC smoothcriminal.mid
add stealsuccess, 1
add steal, 1
GIVE Inn
IF R25 @successful(10-30)armourfailed
N: You have successfully stolen from the shopkeeper!
N: Your skill has increased by 1
N: It is now at level #<steal>
N: They didn't even know!!
IF V30, @lvl30armour 
IF V28, @lvl28armour 
IF V26, @lvl26armour
IF V24, @lvl24armour 
IF V22, @lvl22armour 
IF V20, @lvl20armour
IF V18, @lvl18armour 
IF V16, @lvl16armour 
IF V14, @lvl14armour
IF V12, @lvl12armour 
IF V10, @lvl10armour
h: Damn! My level is too low! I need to be at least level 10 to get this equipment!!
1: GET OUT!!!!! NOWWWWWWW!!!
h: Ok! OK! I'm going, geesh!
WAIT 2
GOTO EXIT
END
@successful(10-30)armourfailed
ADD Stealfail, 1
N:Damn someone walking past so you doing it!
1:Guards!!!!
SOUND jail.wav
wait .5
GOTO LINK 43,0
END

@fight10
ACTOR	1,	"Kelly", Yeti, 1, 15, 80
MOVE 1, -15,80
1:I'm going to slaughter you!!!
WAIT 3.5
FIGHT2 17,17
IF Alive @endfight(10-30)armour
IF Dead @dead(10-30)armor
END

@fight12
ACTOR	1,	"Kelly", weirdo, 1, 15, 80
MOVE 1, -15,80
1:I will beat you as a weirdo!!!!
WAIT 3.5
FIGHT2 13,13
IF Alive @endfight(10-30)armour
IF Dead @dead(10-30)armor
END

@fight14
ACTOR	1,	"Kelly", ogre, 1, 15, 80
MOVE 1, -15,80
1:I'm gonna totally own you!!!
WAIT 3.5
FIGHT2 21,21
IF Alive @endfight(10-30)armour
IF Dead @dead(10-30)armor
END

@fight16
ACTOR	1,	"Kelly", mummy, 24, 15, 80
MOVE 1, -15,80
1:Don't go crying to your mummy now!!!
WAIT 3.5
FIGHT2 1000,1000
IF Alive @endfight(10-30)armour
IF Dead @dead(10-30)armor
END

@fight18
ACTOR	1,	"Kelly", toki, 24, 15, 80
MOVE 1, -15,80
1:Toki will kill you!
WAIT 3.5
FIGHT2 20,20
IF Alive @endfight(10-30)armour
IF Dead @dead(10-30)armor
END

@fight20
ACTOR	1,	"Kelly", mirror, 24, 15, 80
MOVE 1, -15,80
1:HEH! Now I'm you!!
WAIT 3.5
FIGHT2 2,2
IF Alive @endfight(10-30)armour
IF Dead @dead(10-30)armor
END

@fight22
ACTOR	1,	"Kelly", dracula, 24, 15, 80
MOVE 1, -15,80
1:My name is Dracula, Count Dracula!!! HA HA HA
WAIT 3.5
FIGHT2 22,22
IF Alive @endfight(10-30)armour
IF Dead @dead(10-30)armor
END

@fight24
ACTOR	1,	"Kelly", chaos, 24, 15, 80
MOVE 1, -15,80
1:I will bring chaos to you!!!!
WAIT 3.5
FIGHT2 37,37
IF Alive @endfight(10-30)armour
IF Dead @dead(10-30)armor
END

@fight26
ACTOR	1,	"Kelly", chaos, 24, 15, 80
1:I will now make myself turn into 3 monsters!
MOVE 1, -15,80
1:You are gonna die!!!
WAIT 3.5
FIGHT2 37,37,37
IF Alive @endfight(10-30)armour
IF Dead @dead(10-30)armor
END

@fight28
ACTOR	1,	"Kelly", skull, 24, 15, 80
MOVE 1, -15,80
1:Skully is gonna whip yur ass!!!
WAIT 3.5
FIGHT2 40,40
IF Alive @endfight(10-30)armour
IF Dead @dead(10-30)armor
END

@fight30
ACTOR	1,	"Kelly", ghost, 24, 15, 80
MOVE 1, -15,80
1:Ghosty is comming to get ya!!!!
WAIT 3.5
FIGHT2 45,45
IF Alive @endfight(10-30)armour
IF Dead @dead(10-30)armor
END

@endfight(10-30)armour
add murder, 1
SET dead(10-30)armour, 1
SET kellyMonth, #<num.timeMonth>
Compare #<kellyMonth>, 1
IF=, @jan(10-30)armour
Compare #<KellyMonth>, 2
IF=, @feb(10-30)armour
Compare #<KellyMonth>, 3
IF=, @mar(10-30)armour
Compare #<KellyMonth>, 4
IF=, @apr(10-30)armour
Compare #<KellyMonth>, 5
IF=, @may(10-30)armour
Compare #<KellyMonth>, 6
IF=, @jun(10-30)armour
Compare #<KellyMonth>, 7
IF=, @july(10-30)armour
Compare #<KellyMonth>, 8
IF=, @aug(10-30)armour
Compare #<KellyMonth>, 9
IF=, @sept(10-30)armour
Compare #<KellyMonth>, 10
IF=, @oct(10-30)armour
Compare #<KellyMonth>, 11
IF=, @nov(10-30)armour
Compare #<KellyMonth>, 12
IF=, @dec
@monthset(10-30)armour
SET KellyDate, #<num.timeDay>
SET kellyYear, #<num.timeYear>
IF R35 @caught(10-30)armour
IF V30, @lvl30armour 
IF V28, @lvl28armour 
IF V26, @lvl26armour
IF V24, @lvl24armour 
IF V22, @lvl22armour 
IF V20, @lvl20armour
IF V18, @lvl18armour 
IF V16, @lvl16armour 
IF V14, @lvl14armour
IF V12, @lvl12armour 
IF V10, @lvl10armour
N:You get no equipment because your lvl is too low!!
END

@lvl10armour
GIVE I205 (helmet)
GIVE I253 (armour)
GIVE I805 (shield)
N: You have recieved all of the level 10 armour
GOTO @hopeyouarehappy
END

@lvl12armour
GIVE I206 (helmet)
GIVE I254 (armour)
GIVE I806 (shield)
N: You have recieved all of the level 12 armour
GOTO @hopeyouarehappy
END

@lvl14armour
GIVE I207 (helmet)
GIVE I255 (armour)
GIVE I807 (shield)
N: You have recieved all of the level 14 armour
GOTO @hopeyouarehappy
END

@lvl16armour
GIVE I208 (helmet)
GIVE I256 (armour)
GIVE I808 (shield)
N: You have recieved all of the level 16 armour
GOTO @hopeyouarehappy
END

@lvl18armour
GIVE I209 (helmet)
GIVE I257 (armour)
GIVE I809 (shield)
N: You have recieved all of the level 18 armour
GOTO @hopeyouarehappy
END

@lvl20armour
GIVE I210 (helmet)
GIVE I258 (armour)
GIVE I810 (shield)
N: You have recieved all of the level 20 armour
GOTO @hopeyouarehappy
END

@lvl22armour
GIVE I211 (helmet)
GIVE I259 (armour)
GIVE I811 (shield)
N: You have recieved all of the level 22 armour
GOTO @hopeyouarehappy
END

@lvl24armour
GIVE I212 (helmet)
GIVE I260 (armour)
GIVE I812 (shield)
N: You have recieved all of the level 24 armour
GOTO @hopeyouarehappy
END

@lvl26armour
GIVE I213 (helmet)
GIVE I261 (armour)
GIVE I813 (shield)
N: You have recieved all of the level 26 armour
GOTO @hopeyouarehappy
END

@lvl28armour
GIVE I214 (helmet)
GIVE I262 (armour)
GIVE I814 (shield)
N: You have recieved all of the level 28 armour
GOTO @hopeyouarehappy
END

@lvl30armour
GIVE I215 (helmet)
GIVE I263 (armour)
GIVE I815 (shield)
N: You have recieved all of the level 30 armour
GOTO @hopeyouarehappy
END

@hopeyouarehappy
COMPARE #<dead(10-30)armour>, 1
	IF> @hopeyouarehappy2
	IF= @hopeyouarehappy2
END
@hopeyouarehappy2
n: The shopkeeper is now dead because of you!!!!
n: I hope you are happy!!!
n: IDIOT!!!
END

@dead(10-30)armor
MOVE	1,	15, 80
WAIT 2
1:HA HA HA!!! Just don't try killing me again!!!
1:Guards take this murderer away!!!
WAIT .5
SOUND jail.wav
ADD murderfail, 1
GOTO LINK 43,0
END

@caught(10-30)armour
n: The screams of the shopkeeper go off into the distance!!!
n: A person walking past hears the scream and calls for a guard!!!
WAIT 2
SET Timedone, 1
N: your steal skill has been lowered by 2
COMPARE #<steal>, 23
IF<, @skiptake(10-30)armour
IF=, @skiptake(10-30)armour
SUB steal,2
N: It is now at level #<steal>
@skiptake(10-30)armour
SOUND jail.wav
wait .5
GOTO LINK 43,0
END

@urdead!(10-30)armour
n: YOU ARE DEAD!!
n: HOW ARE YOU SUPPOSED TO DO ANYTHING????
n: LOL!! I'VE NEVER SEEN A DEAD PERSON FIGHT 
n: OR STEAL BEFORE!!!
n: You had better get healed and then come back!!
WAIT 6
GOTO EXIT
END

@shopkeeperdead(10-30)armour
ACTOR 4, "Kelly", characters4, 3, 15,90
WAIT 2
N: The shopkeeper is dead!
N: You look at his grave in disgrace of what you have done!
WAIT 2
h: DAMN!! I can't buy any items from here anymore!!
h: I guess I should have listened to my conscience!
h: The grave reads -
h: #<kellyMonth> #<kellyDate> , #<kellyYear>
h: Kelly Fran (formally of St methodist church, England),
h: Aged 26
h: R.I.P
h: Hmmmm what's this?? There is note left on the grave
h: It reads: "To whoever this concerns"
h: "HOW DARE YOU MURDER MY WIFE!!! I HOPE YOU ARE HAPPY THAT YOU HAVE DESTROYED A FAMILY!!!"
h: "HOW DO YOU EXPECT ME TO GO HOME AND TELL MY KIDS THAT THEIR MOTHER IS DEAD???"
h: "DO YOU HAVE NO HEART???"
h: signed "BUTCH"
h: ACK! I don't like the sound of him!! I'd better get outta here!
h: I was TOTALLY selfish when I killed her!!
h: I guess you could say that I have no heart :(
WAIT 2
GOTO EXIT
END
@jan(10-30)armour
SET kellyMonth, January
GOTO @monthset(10-30)armour
END
@feb(10-30)armour
SET kellyMonth, Feburary
GOTO @monthset(10-30)armour
END
@mar(10-30)armour
SET kellyMonth, March
GOTO @monthset(10-30)armour
END
@apr(10-30)armour
SET kellyMonth, April
GOTO @monthset(10-30)armour
END
@may(10-30)armour
SET kellyMonth, May
GOTO @monthset(10-30)armour
END
@jun(10-30)armour
SET kellyMonth, June
GOTO @monthset(10-30)armour
END
@july(10-30)armour
SET kellyMonth, July
GOTO @monthset(10-30)armour
END
@aug(10-30)armour
SET kellyMonth, August
GOTO @monthset(10-30)armour
END
@sept(10-30)armour
SET kellyMonth, September
GOTO @monthset(10-30)armour
END
@oct(10-30)armour
SET kellyMonth, October
GOTO @monthset(10-30)armour
END
@nov(10-30)armour
SET kellyMonth, November
GOTO @monthset(10-30)armour
END
@dec(10-30)armour
SET kellyMonth, December
GOTO @monthset(10-30)armour
END
;---------
; general weapons shop

SCENE 1012 bwEuroStreet
	THEME	0
;	MUSIC	waltz2.mid
	COMPARE #<dead(10-30)weapons>, 1
	IF> @shopkeeperdead(10-30)weapons
	IF= @shopkeeperdead(10-30)weapons
	ACTOR	1,	"Tseng", Characters, 6,  5, 90
	POSE	6, 7
	SEL		1
	MOVE	1,	15, 80
	OFFER2	10,30,12,  10,30,13,  10,30,14,  10,30,15,  10,30,16,  10,30,17,  10,30,18,  10,30,19
@end
	END
   
@EventActorclick1
IF DEAD @urdead!(10-30)weapons
COMPARE #<steal>, 1
IF>,@menu2(10-30)weapons
IF=,@menu2(10-30)weapons
MENU "Talk=@talk(10-30)weapons"
END
@talk(10-30)weapons
	' WAZZZZZUUUUPPPP! YOU NEED A BETTER WEAPON THAN THAT!!
	' Buy one of mine!! NOOOOOWWWWWWW!!!!!!
END

@menu2(10-30)weapons
MENU "Talk=@talk(10-30)weapons", "Steal=@steal(10-30)weapons", "Fight=@fight(10-30)weapons"
END
@steal(10-30)weapons
add stealsuccess, 0
add stealfail, 0
add timesteal, 1
add murderfail, 0
add murder, 0
add Timedone, 0
@attempt
N: You are now attepting to steal from the shopkeeper!
WAIT 3
IF R#<steal>, @successful(10-30)weapons
add stealfail, 1
N: YOU FAILED!!!
1:GUARDS, HEEEEELLLPPPP!!!!!
WAIT .5
SOUND jail.wav
wait .5
GOTO LINK 43,0 (goes to jail)
END
@fight(10-30)weapons
ACTOR 2, "Your Conscience" , mirror, 1, 75,65
2:JUST WAIT 1 SECOND!!!
2:IF you murder this shop keeper you will NEVER see them again!
2:This means that there will be no shop too!!!
2:You MAY get the equipment you want but that will be it because they will die!
2:Also if you get caught you may be in jail for quite some time!!!
2:Will you still fight him or chicken out??
WAIT 1
@menu(10-30)weapons
MENU "I'm gonna kill him, I don't have a conscience!!=@noconscience(10-30)weapons", "I won't kill him then because bad things may happen=@goodchoice(10-30)weapons""
2:WHICH WILL YOU DO???
GOTO @menu(10-30)weapons
@noconscience(10-30)weapons
2:DON'T SAY I DIDN'T WARN YOU!!!!
WAIT 2
ACTOR 2, "" , character, 4, -100,65
h: YOU ARE GOING DOWN BECAUSE I NEED SOME FREE EQUIPMENT!
SOUND notoneofus.wav
1:HOW DARE YOU TRY AND RUIN MY SHOP AND STEAL MY GOODS!!!!
1:I'm not going to fight you like this!!!
1:I'm gonna morph into something much stronger to teach you a lesson!!!!
WAIT 3
IF V30 @fight30
IF V28 @fight28
IF V26 @fight26
IF V24 @fight24
IF V22 @fight22
IF V20 @fight20
IF V18 @fight18
IF V16 @fight16
IF V14 @fight14
IF V12 @fight12
IF V10 @fight10
h: Dang it! I think I'd better leave before starting a fight because my lvl is too low!
WAIT 5
GOTO EXIT
END

@goodchoice(10-30)weapons
2:You made the best choice because killing is very bad!!
2:Happy shopping :)
WAIT 1
ACTOR 2, "" , character, 4, -100,65
END

@successful(10-30)weapons
MUSIC smoothcriminal.mid
add stealsuccess, 1
add steal, 1
GIVE Inn
IF R25 @successful(10-30)weaponsfailed
N: You have successfully stolen from the shopkeeper!
N: Your skill has increased by 1
N: It is now at level #<steal>
N: They didn't even know!!
IF V30, @lvl30weapons 
IF V28, @lvl28weapons 
IF V26, @lvl26weapons
IF V24, @lvl24weapons 
IF V22, @lvl22weapons 
IF V20, @lvl20weapons
IF V18, @lvl18weapons
IF V16, @lvl16weapons 
IF V14, @lvl14weapons
IF V12, @lvl12weapons 
IF V10, @lvl10weapons
h: Damn! My level is too low! I need to be at least level 10 to get this equipment!!
1: GET OUT!!!!! NOWWWWWWW!!!
h: Ok! OK! I'm going, geesh!
WAIT 2
GOTO EXIT
END
@successful(10-30)weaponsfailed
N:Damn someone walking past so you doing it!
ADD Stealfail, 1
SOUND Alarm.wav
1:Guards!!!!
SOUND jail.wav
wait .5
GOTO LINK 43,0
END

@fight10
ACTOR	1,	"Tseng", Yeti, 1, 15, 80
MOVE 1, -15,80
1:YOOUUUURRREEE GOING DOWN!!!
WAIT 3.5
FIGHT2 17,17
IF Alive @endfight(10-30)weapons
IF Dead @dead(10-30)weapons
END

@fight12
ACTOR	1,	"Tseng", weirdo, 1, 15, 80
MOVE 1, -15,80
1:WEIRDO'S GONNA GET YA!!!!!!!
WAIT 3.5
FIGHT2 13,13
IF Alive @endfight(10-30)weapons
IF Dead @dead(10-30)weapons
END

@fight14
ACTOR	1,	"Tseng", ogre, 1, 15, 80
MOVE 1, -15,80
1:hehhehehehehe
WAIT 3.5
FIGHT2 21,21
IF Alive @endfight(10-30)weapons
IF Dead @dead(10-30)weapons
END

@fight16
ACTOR	1,	"Tseng", mummy, 24, 15, 80
MOVE 1, -15,80
1:I am the mummy of the night!!! .....
WAIT 3.5
FIGHT2 1000,1000
IF Alive @endfight(10-30)weapons
IF Dead @dead(10-30)weapons
END

@fight18
ACTOR	1,	"Tseng", toki, 24, 15, 80
MOVE 1, -15,80
1:AHHH,AHHH,AHHHHHHH
WAIT 3.5
FIGHT2 20,20
IF Alive @endfight(10-30)weapons
IF Dead @dead(10-30)weapons
END

@fight20
ACTOR	1,	"Tseng", mirror, 24, 15, 80
MOVE 1, -15,80
1:I am the master of disguise!!!!!!
WAIT 3.5
FIGHT2 2,2
IF Alive @endfight(10-30)weapons
IF Dead @dead(10-30)weapons
END

@fight22
ACTOR	1,	"Tseng", dracula, 24, 15, 80
MOVE 1, -15,80
1:COUNT DRAAAAACCCCULA!!!
WAIT 3.5
FIGHT2 22,22
IF Alive @endfight(10-30)weapons
IF Dead @dead(10-30)weapons
END

@fight24
ACTOR	1,	"Tseng", chaos, 24, 15, 80
MOVE 1, -15,80
1:CHAOS IS THE WORD I'M THINKING OF!!!
WAIT 3.5
FIGHT2 37,37
IF Alive @endfight(10-30)weapons
IF Dead @dead(10-30)weapons
END

@fight26
ACTOR	1,	"Tseng", chaos, 24, 15, 80
1:ack! You are a higher lvl than I thought! I'd better mulitply even more!!!
MOVE 1, -15,80
1:You are gonna die!!!
WAIT 3.5
FIGHT2 37,37,37
IF Alive @endfight(10-30)weapons
IF Dead @dead(10-30)weapons
END

@fight28
ACTOR	1,	"Tseng", skull, 24, 15, 80
MOVE 1, -15,80
1:SKULLY WILL ROCK YA!!
WAIT 3.5
FIGHT2 40,40
IF Alive @endfight(10-30)weapons
IF Dead @dead(10-30)weapons
END

@fight30
ACTOR	1,	"Tseng", ghost, 24, 15, 80
MOVE 1, -15,80
1:BOOOOOOO!!!!!
WAIT 3.5
FIGHT2 45,45
IF Alive @endfight(10-30)weapons
IF Dead @dead(10-30)weapons
END

@endfight(10-30)weapons
SOUND bleeding.wav
add murder, 1
SET dead(10-30)weapons, 1
SET TsengMonth, #<num.timeMonth>
Compare #<TsengMonth>, 1
IF=, @jan(10-30)weapons
Compare #<TsengMonth>, 2
IF=, @feb(10-30)weapons
Compare #<TsengMonth>, 3
IF=, @mar(10-30)weapons
Compare #<TsengMonth>, 4
IF=, @apr(10-30)weapons
Compare #<TsengMonth>, 5
IF=, @may(10-30)weapons
Compare #<TsengMonth>, 6
IF=, @jun(10-30)weapons
Compare #<TsengMonth>, 7
IF=, @july(10-30)weapons
Compare #<TsengMonth>, 8
IF=, @aug(10-30)weapons
Compare #<TsengMonth>, 9
IF=, @sept(10-30)weapons
Compare #<TsengMonth>, 10
IF=, @oct(10-30)weapons
Compare #<TsengMonth>, 11
IF=, @nov(10-30)weapons
Compare #<TsengMonth>, 12
IF=, @dec
@monthset(10-30)weapons
SET TsengDate, #<num.timeDay>
SET TsengYear, #<num.timeYear>
IF R35 @caught(10-30)weapons
IF V30, @lvl30weapons 
IF V28, @lvl28weapons 
IF V26, @lvl26weapons
IF V24, @lvl24weapons 
IF V22, @lvl22weapons 
IF V20, @lvl20weapons
IF V18, @lvl18weapons
IF V16, @lvl16weapons 
IF V14, @lvl14weapons
IF V12, @lvl12weapons 
IF V10, @lvl10weapons
N:You get no equipment because your lvl is too low!!
END

@lvl10weapons
GIVE I305 (Sword)
GIVE I405 (Staff)
GIVE I505 (Bow)
GIVE I605 (Music)
GIVE I355 (Fist)
GIVE I455 (Dart)
GIVE I555 (Book)
GIVE I655 (Spirit)
N: You have recieved all of the level 10 Weapons
GOTO @hopeyouarehappy
END

@lvl12weapons
GIVE I306 (Sword)
GIVE I406 (Staff)
GIVE I506 (Bow)
GIVE I606 (Music)
GIVE I356 (Fist)
GIVE I456 (Dart)
GIVE I556 (Book)
GIVE I656 (Spirit)
N: You have recieved all of the level 12 Weapons
GOTO @hopeyouarehappy
END

@lvl14weapons
GIVE I307 (Sword)
GIVE I407 (Staff)
GIVE I507 (Bow)
GIVE I607 (Music)
GIVE I357 (Fist)
GIVE I457 (Dart)
GIVE I557 (Book)
GIVE I657 (Spirit)
N: You have recieved all of the level 14 Weapons
GOTO @hopeyouarehappy
END

@lvl16weapons
GIVE I308 (Sword)
GIVE I408 (Staff)
GIVE I508 (Bow)
GIVE I608 (Music)
GIVE I358 (Fist)
GIVE I458 (Dart)
GIVE I558 (Book)
GIVE I658 (Spirit)
N: You have recieved all of the level 16 Weapons
GOTO @hopeyouarehappy
END

@lvl18weapons
GIVE I309 (Sword)
GIVE I409 (Staff)
GIVE I509 (Bow)
GIVE I609 (Music)
GIVE I359 (Fist)
GIVE I459 (Dart)
GIVE I559 (Book)
GIVE I659 (Spirit)
N: You have recieved all of the level 18 Weapons
GOTO @hopeyouarehappy
END

@lvl20weapons
GIVE I310 (Sword)
GIVE I410 (Staff)
GIVE I510 (Bow)
GIVE I610 (Music)
GIVE I360 (Fist)
GIVE I460 (Dart)
GIVE I560 (Book)
GIVE I660 (Spirit)
N: You have recieved all of the level 20 Weapons
GOTO @hopeyouarehappy
END

@lvl22weapons
GIVE I311 (Sword)
GIVE I411 (Staff)
GIVE I511 (Bow)
GIVE I611 (Music)
GIVE I361 (Fist)
GIVE I461 (Dart)
GIVE I561 (Book)
GIVE I661 (Spirit)
N: You have recieved all of the level 22 Weapons
GOTO @hopeyouarehappy
END

@lvl24weapons
GIVE I312 (Sword)
GIVE I412 (Staff)
GIVE I512 (Bow)
GIVE I612 (Music)
GIVE I362 (Fist)
GIVE I462 (Dart)
GIVE I562 (Book)
GIVE I662 (Spirit)
N: You have recieved all of the level 24 Weapons
GOTO @hopeyouarehappy
END

@lvl26weapons
GIVE I313 (Sword)
GIVE I413 (Staff)
GIVE I513 (Bow)
GIVE I613 (Music)
GIVE I363 (Fist)
GIVE I463 (Dart)
GIVE I563 (Book)
GIVE I663 (Spirit)
N: You have recieved all of the level 26 Weapons
GOTO @hopeyouarehappy
END

@lvl28weapons
GIVE I314 (Sword)
GIVE I414 (Staff)
GIVE I514 (Bow)
GIVE I614 (Music)
GIVE I364 (Fist)
GIVE I464 (Dart)
GIVE I564 (Book)
GIVE I664 (Spirit)
N: You have recieved all of the level 28 Weapons
GOTO @hopeyouarehappy
END

@lvl30weapons
GIVE I315 (Sword)
GIVE I415 (Staff)
GIVE I515 (Bow)
GIVE I615 (Music)
GIVE I365 (Fist)
GIVE I465 (Dart)
GIVE I565 (Book)
GIVE I665 (Spirit)
N: You have recieved all of the level 30 Weapons
GOTO @hopeyouarehappy
END

@hopeyouarehappy
COMPARE #<dead(10-30)weapons>, 1
	IF> @hopeyouarehappy2
	IF= @hopeyouarehappy2
END
@hopeyouarehappy2
n: The shopkeeper is now dead because of you!!!!
n: I hope you are happy!!!
n: IDIOT!!!
END

@dead(10-30)weapons
MOVE	1,	15, 80
WAIT 2
1:HA HA HA!!! YOOOUUUUU DIEEEEDDDD!!!
1:Guards!!!
WAIT .3
SOUND jail.wav
ADD murderfail, 1
GOTO LINK 43,0
END

@caught(10-30)weapons
SOUND Alarm.wav
n: The screams of the shopkeeper go off into the distance!!!
n: A person walking past hears the scream and calls for a guard!!!
WAIT 2
SET Timedone, 1
N: your steal skill has been lowered by 2
COMPARE #<steal>, 23
IF<, @skiptake(10-30)weapons
IF=, @skiptake(10-30)weapons
SUB steal,2
N: It is now at level #<steal>
@skiptake(10-30)weapons
SOUND jail.wav
wait .5
GOTO LINK 43,0
END

@urdead!(10-30)weapons
n: YOU ARE DEAD!!
n: HOW ARE YOU SUPPOSED TO DO ANYTHING????
n: LOL!! I'VE NEVER SEEN A DEAD PERSON FIGHT 
n: OR STEAL BEFORE!!!
n: You had better get healed and then come back!!
WAIT 6
GOTO EXIT
END

@shopkeeperdead(10-30)weapons
ACTOR 4, "Tseng", characters4, 3, 15,90
WAIT 2
N: The shopkeeper is dead!
N: You look at his grave in disgrace of what you have done!
WAIT 2
h: DAMN!! I can't buy any items from here anymore!!
h: I guess I should have listened to my conscience!
h: The grave reads -
h: #<TsengMonth> #<TsengDate> , #<TsengYear>
h: Tseng Turtle (formally a respectable BlackSmith of Gargoyles),
h: Aged 19
h: R.I.P
h: Hmmmm what's this?? There is a boquet of flowers and note
h: It reads: "To Tseng"
h: "You will be loved and remembered forever"
h: "I can't believe that anyone with a heart could take you away from us"
h: "Forever rest in peace Tseng"
h: signed "Tseng's Family"
h: Oh man!! Look what I have done!!
h: I have destroyed a family :(
h: I'd better leave! 
WAIT 2
GOTO EXIT
END

@jan(10-30)weapons
SET TsengMonth, January
GOTO @monthset(10-30)weapons
END
@feb(10-30)weapons
SET TsengMonth, Feburary
GOTO @monthset(10-30)weapons
END
@mar(10-30)weapons
SET TsengMonth, March
GOTO @monthset(10-30)weapons
END
@apr(10-30)weapons
SET TsengMonth, April
GOTO @monthset(10-30)weapons
END
@may(10-30)weapons
SET TsengMonth, May
GOTO @monthset(10-30)weapons
END
@jun(10-30)weapons
SET TsengMonth, June
GOTO @monthset(10-30)weapons
END
@july(10-30)weapons
SET TsengMonth, July
GOTO @monthset(10-30)weapons
END
@aug(10-30)weapons
SET TsengMonth, August
GOTO @monthset(10-30)weapons
END
@sept(10-30)weapons
SET TsengMonth, September
GOTO @monthset(10-30)weapons
END
@oct(10-30)weapons
SET TsengMonth, October
GOTO @monthset(10-30)weapons
END
@nov(10-30)weapons
SET TsengMonth, November
GOTO @monthset(10-30)weapons
END
@dec(10-30)weapons
SET TsengMonth, December
GOTO @monthset(10-30)weapons
END

;---------
; general baubles shop

SCENE 1013 bwEuroStreet
	THEME	0
;	MUSIC	waltz2.mid
	COMPARE #<dead(10-30)jewelry>, 1
	IF> @shopkeeperdead(10-30)jewelry
	IF= @shopkeeperdead(10-30)jewelry
	ACTOR	1,	"Kitty", joshTownsFolk, 24, 5, 90
	POSE	24,25,4
	SEL		1
	MOVE	1,	15, 80
	OFFER2	10,30,22,  10,30,23
END
@end
	END
   
@EventActorclick1
IF DEAD @urdead!(10-30)jewelry
COMPARE #<steal>, 1
IF>,@menu2(10-30)jewelry
IF=,@menu2(10-30)jewelry
MENU "Talk=@talk(10-30)jewelry"
END
@talk(10-30)jewelry
	' Isn't this ring pretty?!
	' Why don't you buy it???
	' Come on.. you know you want to!!
END

@menu2(10-30)jewelry
MENU "Talk=@talk(10-30)jewelry", "Steal=@steal(10-30)jewelry", "Fight=@fight(10-30)jewelry"
END
@steal(10-30)jewelry
add stealsuccess, 0
add stealfail, 0
add timesteal, 1
add murderfail, 0
add murder, 0
add Timedone, 0
@attempt
N: You are now attepting to steal from the shopkeeper!
WAIT 3
IF R#<steal>, @successful(10-30)jewelry
add stealfail, 1
N: YOU FAILED!!!
1:Guards! Help me
WAIT .5
SOUND jail.wav
wait .5
GOTO LINK 43,0 (goes to jail)
END
@fight(10-30)jewelry
ACTOR 2, "Your Conscience" , mirror, 1, 75,65
2:JUST WAIT 1 SECOND!!!
2:IF you murder this shop keeper you will NEVER see them again!
2:This means that there will be no shop too!!!
2:You MAY get the equipment you want but that will be it because they will die!
2:Also if you get caught you may be in jail for quite some time!!!
2:Will you still fight her or chicken out??
WAIT 1
@menu(10-30)jewelry
MENU "I'm gonna kill her, I don't have a conscience!!=@noconscience(10-30)jewelry", "I won't kill Her because bad things may happen=@goodchoice(10-30)jewelry""
2:WHICH WILL YOU DO???
GOTO @menu(10-30)jewelry
@noconscience(10-30)jewelry
2:DON'T SAY I DIDN'T WARN YOU!!!!
WAIT 2
ACTOR 2, "" , character, 4, -100,65
h: YOU ARE GOING DOWN BECAUSE I NEED SOME FREE EQUIPMENT!
1:HOW DARE YOU TRY AND RUIN MY SHOP AND STEAL MY GOODS!!!!
1:I'm not going to fight you like this!!!
1:I'm gonna morph into something much stronger to teach you a lesson!!!!
WAIT 3
IF V30 @fight30
IF V28 @fight28
IF V26 @fight26
IF V24 @fight24
IF V22 @fight22
IF V20 @fight20
IF V18 @fight18
IF V16 @fight16
IF V14 @fight14
IF V12 @fight12
IF V10 @fight10
h: Dang it! I think I'd better leave before starting a fight because my lvl is too low!
WAIT 5
GOTO EXIT
END

@goodchoice(10-30)jewelry
2:You made the best choice because killing is very bad!!
2:Happy shopping :)
WAIT 1
ACTOR 2, "" , character, 4, -100,65
END

@successful(10-30)jewelry
MUSIC smoothcriminal.mid
add stealsuccess, 1
add steal, 1
GIVE Inn
IF R25 @successful(10-30)jewelryfailed
N: You have successfully stolen from the shopkeeper!
N: Your skill has increased by 1
N: It is now at level #<steal>
N: They didn't even know!!
IF V30, @lvl30jewelry
IF V28, @lvl28jewelry 
IF V26, @lvl26jewelry
IF V24, @lvl24jewelry 
IF V22, @lvl22jewelry 
IF V20, @lvl20jewelry
IF V18, @lvl18jewelry
IF V16, @lvl16jewelry 
IF V14, @lvl14jewelry
IF V12, @lvl12jewelry 
IF V10, @lvl10jewelry
h: Damn! My level is too low! I need to be at least level 10 to get this equipment!!
1: GET OUT!!!!! NOWWWWWWW!!!
h: Ok! OK! I'm going, geesh!
WAIT 2
GOTO EXIT
END
@successful(10-30)jewelryfailed
N:Damn someone walking past so you doing it!
ADD Stealfail, 1
1:Guards!!!!
SOUND jail.wav
wait .5
GOTO LINK 43,0
END

@fight10
ACTOR	1,	"Kitty", Yeti, 1, 15, 80
MOVE 1, -15,80	
1:I hope a yeti will be stronger than you!
WAIT 3.5
FIGHT2 17,17
IF Alive @endfight(10-30)jewelry
IF Dead @dead(10-30)jewelry
END

@fight12
ACTOR	1,	"Kitty", weirdo, 1, 15, 80
MOVE 1, -15,80
1:Ack I hate being a weirdo but if it helps I'm happy!
WAIT 3.5
FIGHT2 13,13
IF Alive @endfight(10-30)jewelry
IF Dead @dead(10-30)jewelry
END

@fight14
ACTOR	1,	"Kitty", ogre, 1, 15, 80
MOVE 1, -15,80
1:ROAAAARRRRRR
WAIT 3.5
FIGHT2 21,21
IF Alive @endfight(10-30)jewelry
IF Dead @dead(10-30)jewelry
END

@fight16
ACTOR	1,	"Kitty", mummy, 24, 15, 80
MOVE 1, -15,80
1:MUMMY,MUMMY,MUUUUMMMMMMMYYYYY
WAIT 3.5
FIGHT2 1000,1000
IF Alive @endfight(10-30)jewelry
IF Dead @dead(10-30)jewelry
END

@fight18
ACTOR	1,	"Kitty", toki, 24, 15, 80
MOVE 1, -15,80
1:I'm an evil monkey!!!!
WAIT 3.5
FIGHT2 20,20
IF Alive @endfight(10-30)jewelry
IF Dead @dead(10-30)jewelry
END

@fight20
ACTOR	1,	"Kitty", mirror, 24, 15, 80
MOVE 1, -15,80
1:NOOOOOO!!!!! I've turned into you!! (sob)
WAIT 3.5
FIGHT2 2,2
IF Alive @endfight(10-30)jewelry
IF Dead @dead(10-30)jewelry
END

@fight22
ACTOR	1,	"Kitty", dracula, 24, 15, 80
MOVE 1, -15,80
1:I'm the dracula that will put an end to your reign!
WAIT 3.5
FIGHT2 22,22
IF Alive @endfight(10-30)jewelry
IF Dead @dead(10-30)jewelry
END

@fight24
ACTOR	1,	"Kitty", chaos, 24, 15, 80
MOVE 1, -15,80
1:This is absolute Choas!!
WAIT 3.5
FIGHT2 37,37
IF Alive @endfight(10-30)jewelry
IF Dead @dead(10-30)jewelry
END

@fight26
ACTOR	1,	"Kitty", chaos, 24, 15, 80
1:ack! You are a higher lvl than I thought! I'd better mulitply into 3!!!
MOVE 1, -15,80
1:It's even more Chaotic!!!
WAIT 3.5
FIGHT2 37,37,37
IF Alive @endfight(10-30)jewelry
IF Dead @dead(10-30)jewelry
END

@fight28
ACTOR	1,	"Kitty", skull, 24, 15, 80
MOVE 1, -15,80
1:Another one will bite the dust like skully here!!
WAIT 3.5
FIGHT2 40,40
IF Alive @endfight(10-30)jewelry
IF Dead @dead(10-30)jewelry
END

@fight30
ACTOR	1,	"Kitty", ghost, 24, 15, 80
MOVE 1, -15,80
1:WAAAAAAAAHHHHHHH
WAIT 3.5
FIGHT2 45,45
IF Alive @endfight(10-30)jewelry
IF Dead @dead(10-30)jewelry
END

@endfight(10-30)jewelry
add murder, 1
SET dead(10-30)jewelry, 1
SET KittyMonth, #<num.timeMonth>
Compare #<KittyMonth>, 1
IF=, @jan(10-30)jewelry
Compare #<KittyMonth>, 2
IF=, @feb(10-30)jewelry
Compare #<KittyMonth>, 3
IF=, @mar(10-30)jewelry
Compare #<KittyMonth>, 4
IF=, @apr(10-30)jewelry
Compare #<KittyMonth>, 5
IF=, @may(10-30)jewelry
Compare #<KittyMonth>, 6
IF=, @jun(10-30)jewelry
Compare #<KittyMonth>, 7
IF=, @july(10-30)jewelry
Compare #<KittyMonth>, 8
IF=, @aug(10-30)jewelry
Compare #<KittyMonth>, 9
IF=, @sept(10-30)jewelry
Compare #<KittyMonth>, 10
IF=, @oct(10-30)jewelry
Compare #<KittyMonth>, 11
IF=, @nov(10-30)jewelry
Compare #<KittyMonth>, 12
IF=, @dec
@monthset(10-30)jewelry
SET KittyDate, #<num.timeDay>
SET KittyYear, #<num.timeYear>
IF R35 @caught(10-30)jewelry
IF V30, @lvl30jewelry 
IF V28, @lvl28jewelry 
IF V26, @lvl26jewelry
IF V24, @lvl24jewelry 
IF V22, @lvl22jewelry 
IF V20, @lvl20jewelry
IF V18, @lvl18jewelry
IF V16, @lvl16jewelry 
IF V14, @lvl14jewelry
IF V12, @lvl12jewelry 
IF V10, @lvl10jewelry
N:You get no equipment because your lvl is too low!!
END

@lvl10jewelry
GIVE I905 (ring)
GIVE I954 (amulet)
N: You have recieved all of the level 10 Weapons
GOTO @hopeyouarehappy
END

@lvl12jewelry
GIVE I906 (ring)
GIVE I955 (amulet)
N: You have recieved all of the level 12 Weapons
GOTO @hopeyouarehappy
END

@lvl14jewelry
GIVE I907 (ring)
GIVE I956 (amulet)
N: You have recieved all of the level 14 Weapons
GOTO @hopeyouarehappy
END

@lvl16jewelry
GIVE I908 (ring)
GIVE I957 (amulet)
N: You have recieved all of the level 16 Weapons
GOTO @hopeyouarehappy
END

@lvl18jewelry
GIVE I909 (ring)
GIVE I958 (amulet)
N: You have recieved all of the level 18 Weapons
GOTO @hopeyouarehappy
END

@lvl20jewelry
GIVE I910 (ring)
GIVE I959 (amulet)
N: You have recieved all of the level 20 Weapons
GOTO @hopeyouarehappy
END

@lvl22jewelry
GIVE I911 (ring)
GIVE I960 (amulet)
N: You have recieved all of the level 22 Weapons
GOTO @hopeyouarehappy
END

@lvl24jewelry
GIVE I912 (ring)
GIVE I961 (amulet)
N: You have recieved all of the level 24 Weapons
GOTO @hopeyouarehappy
END

@lvl26jewelry
GIVE I913 (ring)
GIVE I962 (amulet)
N: You have recieved all of the level 26 Weapons
GOTO @hopeyouarehappy
END

@lvl28jewelry
GIVE I914 (ring)
GIVE I963 (amulet)
N: You have recieved all of the level 28 Weapons
GOTO @hopeyouarehappy
END

@lvl30jewelry
GIVE I915 (ring)
GIVE I964 (amulet)
N: You have recieved all of the level 30 Weapons
GOTO @hopeyouarehappy
END

@hopeyouarehappy
COMPARE #<dead(10-30)jewelry>, 1
	IF> @hopeyouarehappy2
	IF= @hopeyouarehappy2
END
@hopeyouarehappy2
n: The shopkeeper is now dead because of you!!!!
n: I hope you are happy!!!
n: IDIOT!!!
END

@dead(10-30)jewelry
MOVE	1,	15, 80
WAIT 2
1:HA HA HA!!! YOOOUUUUU DIEEEEDDDD!!!
1:Guards!!!
WAIT .3
SOUND jail.wav
ADD murderfail, 1
GOTO LINK 43,0
END

@caught(10-30)jewelry
n: The screams of the shopkeeper go off into the distance!!!
n: A person walking past hears the scream and calls for a guard!!!
WAIT 2
SET Timedone, 1
N: your steal skill has been lowered by 2
COMPARE #<steal>, 23
IF<, @skiptake(10-30)jewelry
IF=, @skiptake(10-30)jewelry
SUB steal,2
N: It is now at level #<steal>
@skiptake(10-30)jewelry
SOUND jail.wav
wait .5
GOTO LINK 43,0
END

@urdead!(10-30)jewelry
n: YOU ARE DEAD!!
n: HOW ARE YOU SUPPOSED TO DO ANYTHING????
n: LOL!! I'VE NEVER SEEN A DEAD PERSON FIGHT 
n: OR STEAL BEFORE!!!
n: You had better get healed and then come back!!
WAIT 6
GOTO EXIT
END

@shopkeeperdead(10-30)jewelry
ACTOR 4, "Kitty", characters4, 3, 15,90
WAIT 2
N: The shopkeeper is dead!
N: You look at his grave in disgrace of what you have done!
WAIT 2
h: DAMN!! I can't buy any items from here anymore!!
h: I guess I should have listened to my conscience!
h: The grave reads -
h: #<KittyMonth> #<KittyDate> , #<KittyYear>
h: Kitty Meldrew (A very popular lady with the lads),
h: Aged 17
h: R.I.P
h: Hmmmm what's this?? Someone has left a note by the gravestone!
h: It reads: "To Kitty"
h: "When you were alive I always had dreams about you and found you very attractive"
h: "I have only just found the guts to tell you this but now you are dead (sob)
h: "Today I was on my round to your house to tell you but you were gone!"
h: "I really miss you and wish I had been with you when you got murdered in your shop"
h: "I could have been there to kill that disgrace of a #<g.male>
h: "I hope #<g.he> dies and horrible death and rots in hell!"
h: "Forever loving you"
h: "Signed Billy"
h: (SOB) I deserve everything I get for doing this now kitty will never know about the love billy had
h: I am a total idiot and I should have thought about what I was doing before I killed her
h: (sob) I'd better leave before Billy has my guts for garters!!
WAIT 4
GOTO EXIT
END

@jan(10-30)jewelry
SET KittyMonth, January
GOTO @monthset(10-30)jewelry
END
@feb(10-30)jewelry
SET KittyMonth, Feburary
GOTO @monthset(10-30)jewelry
END
@mar(10-30)jewelry
SET KittyMonth, March
GOTO @monthset(10-30)jewelry
END
@apr(10-30)jewelry
SET KittyMonth, April
GOTO @monthset(10-30)jewelry
END
@may(10-30)jewelry
SET KittyMonth, May
GOTO @monthset(10-30)jewelry
END
@jun(10-30)jewelry
SET KittyMonth, June
GOTO @monthset(10-30)jewelry
END
@july(10-30)jewelry
SET KittyMonth, July
GOTO @monthset(10-30)jewelry
END
@aug(10-30)jewelry
SET KittyMonth, August
GOTO @monthset(10-30)jewelry
END
@sept(10-30)jewelry
SET KittyMonth, September
GOTO @monthset(10-30)jewelry
END
@oct(10-30)jewelry
SET KittyMonth, October
GOTO @monthset(10-30)jewelry
END
@nov(10-30)jewelry
SET KittyMonth, November
GOTO @monthset(10-30)jewelry
END
@dec(10-30)jewelry
SET KittyMonth, December
GOTO @monthset(10-30)jewelry
END
;---------
; general boot shop

SCENE 1014 bwEuroStreet
	THEME	0
;	MUSIC	waltz2.mid
	ACTOR	1,	"Tom", joshTownsFolk, 15, 5, 90
	POSE	15,14,13
	SEL		1
	MOVE	1,	15, 80
	OFFER2	0,30,20
	END
@end
	END
   
@EventActorclick1
IF DEAD @urdead!(10-30)boots
MENU "Talk=@talk(10-30)boots"
END
@talk(10-30)boots
	' You look like you could use some leather!
	' I mean it you do!
	' Hey! You seem different to most people! Most people who come to this shop try to steal off me
	' It's sad really I lose loads of business that way, hey could you promise me something?
     H: What is it
	' Promise me that you won't steal from me?
     H: Sure! I promise, it looks like you need a little money
	' Thanks!
     H: (Talking to himself) I can't steal from him now! I'd better buy something from him since his business is going Downhill!
END

@urdead!(10-30)boots
N: YOU ARE DEAD! YOU NEED TO HEAL YOURSELF FIRST!
END

;--------------
; Generic Casino
;
SCENE 1015		aztec
	THEME	0
;	MUSIC	waltz2.mid
	ACTOR	1,	"Barker", joshRoyalty, 2, 5, 90
	SEL		1
	MOVE	1,	15, 80
	GAME	1
	' Try your luck!
	' Our slots pay the most!
END

;================================ STONETREE 30-50 ==================================
;---------
; item/potion shop
;
SCENE 1020 bwEuroStreet
	THEME	0
;	MUSIC	waltz2.mid
	ACTOR	1,	"Phil", joshTownsFolk, 19, 5, 90
	SEL		1
	MOVE	1,	15, 80
	OFFER2	0,50,0
	' Get that elephant OUT of here!

END


;---------
; general armor shop

SCENE 1021 bwEuroStreet
	THEME	0
;	MUSIC	waltz2.mid
	COMPARE #<dead(30-50)armour>, 1
	IF> @shopkeeperdead(30-50)armour
	IF= @shopkeeperdead(30-50)armour
	ACTOR	1,	"Buddy", joshMiscellaneous, 10, 5, 90
	POSE	10,11
	SEL		1
	MOVE	1,	15, 80
	OFFER2	30,50,10,  30,50,11,  30,50,20,  30,50,21
END
@end
	END
   
@EventActorclick1
IF DEAD @urdead!(30-50)armour
COMPARE #<steal>, 1
IF>,@menu2(30-50)armour
IF=,@menu2(30-50)armour
MENU "Talk=@talk(30-50)armour"
END
@talk(30-50)armour
' You know how HEAVY some of this stuff is, sonny?
' Please do the old man a favour and take some weight off!
END
@menu2(30-50)armour
MENU "Talk=@talk(30-50)armour", "Steal=@steal(30-50)armour", "Fight=@fight(30-50)armour"
END
@steal(30-50)armour
add stealsuccess, 0
add stealfail, 0
add timesteal, 1
add murderfail, 0
add murder, 0
add Timedone, 0
@attempt
N: You are now attepting to steal from the shopkeeper!
WAIT 3
IF R#<steal>, @successful(30-50)armour
add stealfail, 1
N: YOU FAILED!!!
1:HELP!!! AHHHHH
WAIT .5
SOUND jail.wav
wait .5
GOTO LINK 43,0 (goes to jail)
END
@fight(30-50)armour
ACTOR 2, "Your Conscience" , mirror, 1, 75,65
2:JUST WAIT 1 SECOND!!!
2:IF you murder this shop keeper you will NEVER see them again!
2:This means that there will be no shop too!!!
2:You MAY get the equipment you want but that will be it because they will die!
2:Also if you get caught you may be in jail for quite some time!!!
2:Will you still fight him or chicken out??
WAIT 1
@menu(30-50)armour
MENU "I'm gonna kill him, I don't have a conscience!!=@noconscience(30-50)armour", "I won't kill him because bad things may happen=@goodchoice(30-50)armour""
2:WHICH WILL YOU DO???
GOTO @menu(30-50)armour
@noconscience(30-50)armour
2:DON'T SAY I DIDN'T WARN YOU!!!!
WAIT 2
ACTOR 2, "" , character, 4, -100,65
h: YOU ARE GOING DOWN BECAUSE I NEED SOME FREE EQUIPMENT!
SOUND notoneofus.wav
1:HOW DARE YOU TRY AND RUIN MY SHOP AND STEAL MY GOODS!!!!
1:I'm not going to fight you like this!!!
1:I'm gonna morph into something much stronger to teach you a lesson!!!!
1:My bones are too brittle to fight like this!!
WAIT 3
IF V50 @fight50
IF V48 @fight48
IF V46 @fight46
IF V44 @fight44
IF V42 @fight42
IF V40 @fight40
IF V38 @fight38
IF V36 @fight36
IF V34 @fight34
IF V32 @fight32
IF V30 @fight30
h: Dang it! I think I'd better leave before starting a fight because my lvl is too low!
WAIT 5
GOTO EXIT
END

@goodchoice(30-50)armour
2:You made the best choice because killing is very bad!!
2:Happy shopping :)
WAIT 1
ACTOR 2, "" , character, 4, -100,65
END

@successful(30-50)armour
MUSIC smoothcriminal.mid
add stealsuccess, 1
add steal, 1
GIVE Inn
IF R25 @successful(30-50)armourfailed
N: You have successfully stolen from the shopkeeper!
N: Your skill has increased by 1
N: It is now at level #<steal>
N: They didn't even know!!
IF V50, @lvl50armour 
IF V48, @lvl48armour 
IF V46, @lvl46armour
IF V44, @lvl44armour 
IF V42, @lvl42armour 
IF V40, @lvl40armour
IF V38, @lvl38armour 
IF V36, @lvl36armour 
IF V34, @lvl34armour
IF V32, @lvl32armour 
IF V30, @lvl30armour
h: Damn! My level is too low! I need to be at least level 30 to get this equipment!!
1: GET OUT!!!!! NOWWWWWWW!!!
h: Ok! OK! I'm going, geesh!
WAIT 2
GOTO EXIT
END
@successful(30-50)armourfailed
SOUND Alarm.wav
N:Damn someone walking past so you doing it!
ADD Stealfail, 1
1:Guards!!!!
SOUND jail.wav
wait .5
GOTO LINK 43,0
END

@fight30
ACTOR	1,	"Buddy", Icecold, 1, 15, 80
MOVE 1, -15,80
1:ICE TO SEE YOU!
WAIT 3.5
FIGHT2 1001,1001
IF Alive @endfight(30-50)armour
IF Dead @dead(30-50)armor
END

@fight32
ACTOR	1,	"Buddy", piranha, 1, 15, 80
MOVE 1, -15,80
1:Snap! Snap!
WAIT 3.5
FIGHT2 46,46
IF Alive @endfight(30-50)armour
IF Dead @dead(30-50)armor
END

@fight34
ACTOR	1,	"Buddy", spectre, 1, 15, 80
MOVE 1, -15,80
1:WOOOOOO! WOOOOOOOOOOOOO!
WAIT 3.5
FIGHT2 55,55
IF Alive @endfight(30-50)armour
IF Dead @dead(30-50)armor
END

@fight36
ACTOR	1,	"Buddy", spectre, 24, 15, 80
MOVE 1, -15,80
1:I'm gonna muliply to kill you this time!
WAIT 3.5
FIGHT2 55,55,55
IF Alive @endfight(30-50)armour
IF Dead @dead(30-50)armor
END

@fight38
ACTOR	1,	"Buddy", crawler, 24, 15, 80
MOVE 1, -15,80
1:CRAWLING IN YOUR SKIN, THESE WOUNDS THEY DO NOT HEAL.......
WAIT 3.5
FIGHT2 57,57
IF Alive @endfight(30-50)armour
IF Dead @dead(30-50)armor
END

@fight40
ACTOR	1,	"Buddy", eyeball, 24, 15, 80
MOVE 1, -15,80
1:EYE see you!!
WAIT 3.5
FIGHT2 59,59
IF Alive @endfight(30-50)armour
IF Dead @dead(30-50)armor
END

@fight42
ACTOR	1,	"Buddy", wolf, 24, 15, 80
MOVE 1, -15,80
1:Wolf, WOLF,WOLF,WOLF
WAIT 3.5
FIGHT2 61,61
IF Alive @endfight(30-50)armour
IF Dead @dead(30-50)armor
END

@fight44
ACTOR	1,	"Buddy", dog, 24, 15, 80
MOVE 1, -15,80
1:WOOF!
WAIT 3.5
FIGHT2 73,73
IF Alive @endfight(30-50)armour
IF Dead @dead(30-50)armor
END

@fight46
ACTOR	1,	"Buddy", tidal, 24, 15, 80
1:Gargle! SPLASH
MOVE 1, -15,80
WAIT 3.5
FIGHT2 74,74
IF Alive @endfight(30-50)armour
IF Dead @dead(30-50)armor
END

@fight48
ACTOR	1,	"Buddy", aqua, 24, 15, 80
MOVE 1, -15,80
1:Hey! I'm Aqua!
WAIT 3.5
FIGHT2 75,75
IF Alive @endfight(30-50)armour
IF Dead @dead(30-50)armor
END

@fight50
ACTOR	1,	"Buddy", collect, 24, 15, 80
MOVE 1, -15,80
1:Wanna see some magic???
WAIT 3.5
FIGHT2 79,79
IF Alive @endfight(30-50)armour
IF Dead @dead(30-50)armor
END

@endfight(30-50)armour
SOUND bleeding.wav
add murder, 1
SET dead(30-50)armour, 1
SET BuddyMonth, #<num.timeMonth>
Compare #<BuddyMonth>, 1
IF=, @jan(30-50)armour
Compare #<BuddyMonth>, 2
IF=, @feb(30-50)armour
Compare #<BuddyMonth>, 3
IF=, @mar(30-50)armour
Compare #<BuddyMonth>, 4
IF=, @apr(30-50)armour
Compare #<BuddyMonth>, 5
IF=, @may(30-50)armour
Compare #<BuddyMonth>, 6
IF=, @jun(30-50)armour
Compare #<BuddyMonth>, 7
IF=, @july(30-50)armour
Compare #<BuddyMonth>, 8
IF=, @aug(30-50)armour
Compare #<BuddyMonth>, 9
IF=, @sept(30-50)armour
Compare #<BuddyMonth>, 10
IF=, @oct(30-50)armour
Compare #<BuddyMonth>, 11
IF=, @nov(30-50)armour
Compare #<BuddyMonth>, 12
IF=, @dec
@monthset(30-50)armour
SET BuddyDate, #<num.timeDay>
SET BuddyYear, #<num.timeYear>
IF R35 @caught(30-50)armour
IF V50, @lvl50armour 
IF V48, @lvl48armour 
IF V46, @lvl46armour
IF V44, @lvl44armour 
IF V42, @lvl42armour 
IF V40, @lvl40armour
IF V38, @lvl38armour 
IF V36, @lvl36armour 
IF V34, @lvl34armour
IF V32, @lvl32armour 
IF V30, @lvl30armour
N:You get no equipment because your lvl is too low!!
END

@lvl30armour
GIVE I215 (helmet)
GIVE I263 (armour)
GIVE I815 (shield)
N: You have recieved all of the level 30 armour
GOTO @hopeyouarehappy
END

@lvl32armour
GIVE I216 (helmet)
GIVE I264 (armour)
GIVE I816 (shield)
N: You have recieved all of the level 32 armour
GOTO @hopeyouarehappy
END

@lvl34armour
GIVE I227 (helmet)
GIVE I265 (armour)
GIVE I817 (shield)
N: You have recieved all of the level 34 armour
GOTO @hopeyouarehappy
END

@lvl36armour
GIVE I218 (helmet)
GIVE I266 (armour)
GIVE I818 (shield)
N: You have recieved all of the level 36 armour
GOTO @hopeyouarehappy
END

@lvl38armour
GIVE I219 (helmet)
GIVE I267 (armour)
GIVE I819 (shield)
N: You have recieved all of the level 38 armour
GOTO @hopeyouarehappy
END

@lvl40armour
GIVE I220 (helmet)
GIVE I268 (armour)
GIVE I820 (shield)
N: You have recieved all of the level 40 armour
GOTO @hopeyouarehappy
END

@lvl42armour
GIVE I221 (helmet)
GIVE I269 (armour)
GIVE I821 (shield)
N: You have recieved all of the level 42 armour
GOTO @hopeyouarehappy
END

@lvl44armour
GIVE I222 (helmet)
GIVE I270 (armour)
GIVE I822 (shield)
N: You have recieved all of the level 44 armour
GOTO @hopeyouarehappy
END

@lvl46armour
GIVE I223 (helmet)
GIVE I271 (armour)
GIVE I823 (shield)
N: You have recieved all of the level 46 armour
GOTO @hopeyouarehappy
END

@lvl48armour
GIVE I224 (helmet)
GIVE I272 (armour)
GIVE I824 (shield)
N: You have recieved all of the level 48 armour
GOTO @hopeyouarehappy
END

@lvl50armour
GIVE I225 (helmet)
GIVE I273 (armour)
GIVE I825 (shield)
N: You have recieved all of the level 50 armour
GOTO @hopeyouarehappy
END

@hopeyouarehappy
COMPARE #<dead(30-50)armour>, 1
	IF> @hopeyouarehappy2
	IF= @hopeyouarehappy2
END
@hopeyouarehappy2
n: The shopkeeper is now dead because of you!!!!
n: I hope you are happy!!!
n: IDIOT!!!
END

@dead(30-50)armor
MOVE	1,	15, 80
WAIT 2
1:Try to take advantage of an old man eh??
1:Guards!
WAIT .5
SOUND jail.wav
ADD murderfail, 1
GOTO LINK 43,0
END

@caught(30-50)armour
SOUND Alarm.wav
n: The screams of the shopkeeper go off into the distance!!!
n: A person walking past hears the scream and calls for a guard!!!
WAIT 2
SET Timedone, 1
N: your steal skill has been lowered by 2
COMPARE #<steal>, 23
IF<, @skiptake(30-50)armour
IF=, @skiptake(30-50)armour
SUB steal,2
N: It is now at level #<steal>
@skiptake(30-50)armour
SOUND jail.wav
wait .5
GOTO LINK 43,0
END

@urdead!(30-50)armour
n: YOU ARE DEAD!!
n: HOW ARE YOU SUPPOSED TO DO ANYTHING????
n: LOL!! I'VE NEVER SEEN A DEAD PERSON FIGHT 
n: OR STEAL BEFORE!!!
n: You had better get healed and then come back!!
WAIT 6
GOTO EXIT
END

@shopkeeperdead(30-50)armour
ACTOR 4, "Buddy", characters4, 3, 15,90
WAIT 2
N: The shopkeeper is dead!
N: You look at his grave in disgrace of what you have done!
WAIT 2
h: DAMN!! I can't buy any items from here anymore!!
h: I guess I should have listened to my conscience!
h: The grave reads -
h: #<BuddyMonth> #<BuddyDate> , #<BuddyYear>
h: Buddy Holly (formally a rock Star),
h: Aged 98
h: R.I.P
h: Hmmmm what's this?? There is note left on the grave
h: It reads: "To Buddy"
h: "You were a great rockstar in your days!"
h: "I can't believe that you came to an end because of some idiot!"
h: "You will alway be remembered as you were and not what you have become"
h: signed "A loyal fan"
h: Damn! I should have got buddy's autograph!
h: I'd better leave before this fan of his finds me here and beats me up!
WAIT 2
GOTO EXIT
END
@jan(30-50)armour
SET BuddyMonth, January
GOTO @monthset(30-50)armour
END
@feb(30-50)armour
SET BuddyMonth, Feburary
GOTO @monthset(30-50)armour
END
@mar(30-50)armour
SET BuddyMonth, March
GOTO @monthset(30-50)armour
END
@apr(30-50)armour
SET BuddyMonth, April
GOTO @monthset(30-50)armour
END
@may(30-50)armour
SET BuddyMonth, May
GOTO @monthset(30-50)armour
END
@jun(30-50)armour
SET BuddyMonth, June
GOTO @monthset(30-50)armour
END
@july(30-50)armour
SET BuddyMonth, July
GOTO @monthset(30-50)armour
END
@aug(30-50)armour
SET BuddyMonth, August
GOTO @monthset(30-50)armour
END
@sept(30-50)armour
SET BuddyMonth, September
GOTO @monthset(30-50)armour
END
@oct(30-50)armour
SET BuddyMonth, October
GOTO @monthset(30-50)armour
END
@nov(30-50)armour
SET BuddyMonth, November
GOTO @monthset(30-50)armour
END
@dec(30-50)armour
SET BuddyMonth, December
GOTO @monthset(30-50)armour
END

;---------
; general weapons shop

SCENE 1022 bwEuroStreet
	THEME	0
;	MUSIC	waltz2.mid
	COMPARE #<dead(30-50)weapons>, 1
	IF> @shopkeeperdead(30-50)weapons
	IF= @shopkeeperdead(30-50)weapons
	ACTOR	1,	"Scott", joshTownsfolk, 29, 5, 90
	SEL		1
	MOVE	1,	15, 80
	OFFER2	30,50,12,  30,50,13,  30,50,14,  30,50,15,  30,50,16,  30,50,17,  30,50,18,  30,50,19
	
END
@end
	END
   
@EventActorclick1
IF DEAD @urdead!(30-50)weapons
COMPARE #<steal>, 1
IF>,@menu2(30-50)weapons
IF=,@menu2(30-50)weapons
MENU "Talk=@talk(30-50)weapons"
END
@talk(30-50)weapons
	' Just let me know what you'd like.
	' I Can get you it ;)
END

@menu2(30-50)weapons
MENU "Talk=@talk(30-50)weapons", "Steal=@steal(30-50)weapons", "Fight=@fight(30-50)weapons"
END
@steal(30-50)weapons
add stealsuccess, 0
add stealfail, 0
add timesteal, 1
add murderfail, 0
add murder, 0
add Timedone, 0
@attempt
N: You are now attepting to steal from the shopkeeper!
WAIT 3
IF R#<steal>, @successful(30-50)weapons
add stealfail, 1
N: YOU FAILED!!!
1:GUARDS, HEEEEELLLPPPP!!!!!
WAIT .5
SOUND jail.wav
wait .5
GOTO LINK 43,0 (goes to jail)
END
@fight(30-50)weapons
ACTOR 2, "Your Conscience" , mirror, 1, 75,65
2:JUST WAIT 1 SECOND!!!
2:IF you murder this shop keeper you will NEVER see them again!
2:This means that there will be no shop too!!!
2:You MAY get the equipment you want but that will be it because they will die!
2:Also if you get caught you may be in jail for quite some time!!!
2:Will you still fight him or chicken out??
WAIT 1
@menu(30-50)weapons
MENU "I'm gonna kill him, I don't have a conscience!!=@noconscience(30-50)weapons", "I won't kill him then because bad things may happen=@goodchoice(30-50)weapons""
2:WHICH WILL YOU DO???
GOTO @menu(30-50)weapons
@noconscience(30-50)weapons
2:DON'T SAY I DIDN'T WARN YOU!!!!
WAIT 2
ACTOR 2, "" , character, 4, -100,65
h: YOU ARE GOING DOWN BECAUSE I NEED SOME FREE EQUIPMENT!
WAIT 1
SOUND notoneofus.wav
1:HOW DARE YOU TRY AND RUIN MY SHOP AND STEAL MY GOODS!!!!
1:I'm not going to fight you like this!!!
1:I'm gonna morph into something much stronger to teach you a lesson!!!!
WAIT 3
IF V50 @fight50
IF V48 @fight48
IF V46 @fight46
IF V44 @fight44
IF V42 @fight42
IF V40 @fight40
IF V38 @fight38
IF V36 @fight36
IF V34 @fight34
IF V32 @fight32
IF V30 @fight30
h: Dang it! I think I'd better leave before starting a fight because my lvl is too low!
WAIT 5
GOTO EXIT
END

@goodchoice(30-50)weapons
2:You made the best choice because killing is very bad!!
2:Happy shopping :)
WAIT 1
ACTOR 2, "" , character, 4, -100,65
END

@successful(30-50)weapons
MUSIC smoothcriminal.mid
add stealsuccess, 1
add steal, 1
GIVE Inn
IF R25 @successful(30-50)weaponsfailed
N: You have successfully stolen from the shopkeeper!
N: Your skill has increased by 1
N: It is now at level #<steal>
N: They didn't even know!!
IF V50, @lvl50weapons 
IF V48, @lvl48weapons 
IF V46, @lvl46weapons
IF V44, @lvl44weapons 
IF V42, @lvl42weapons 
IF V40, @lvl40weapons
IF V38, @lvl38weapons
IF V36, @lvl36weapons 
IF V34, @lvl34weapons
IF V32, @lvl32weapons 
IF V30, @lvl30weapons
h: Damn! My level is too low! I need to be at least level 30 to get this equipment!!
1: GET OUT!!!!! NOWWWWWWW!!!
h: Ok! OK! I'm going, geesh!
WAIT 2
GOTO EXIT
END
@successful(30-50)weaponsfailed
N:Damn someone walking past so you doing it!
ADD Stealfail, 1
1:Guards!!!!
SOUND jail.wav
wait .5
GOTO LINK 43,0
END

@fight30
ACTOR	1,	"Scott", Icecold, 1, 15, 80
MOVE 1, -15,80
1:I will freeze you
WAIT 3.5
FIGHT2 1001,1001
IF Alive @endfight(30-50)weapons
IF Dead @dead(30-50)weapons
END

@fight32
ACTOR	1,	"Scott", piranha, 1, 15, 80
MOVE 1, -15,80
1:LET ME BITE YOUR LEG OFF
WAIT 3.5
FIGHT2 46,46
IF Alive @endfight(30-50)weapons
IF Dead @dead(30-50)weapons
END

@fight34
ACTOR	1,	"Scott", spetre, 1, 15, 80
MOVE 1, -15,80
1:What a specre I will make of you!
WAIT 3.5
FIGHT2 55,55
IF Alive @endfight(30-50)weapons
IF Dead @dead(30-50)weapons
END

@fight36
ACTOR	1,	"Scott", spectre, 24, 15, 80
MOVE 1, -15,80
1:I'm gonna muliply to kill you this time!
WAIT 3.5
FIGHT2 55,55,55
IF Alive @endfight(30-50)weapons
IF Dead @dead(30-50)weapons
END

@fight38
ACTOR	1,	"Scott", crawler, 24, 15, 80
MOVE 1, -15,80
1:I Will crawl right over your skin!
WAIT 3.5
FIGHT2 57,57
IF Alive @endfight(30-50)weapons
IF Dead @dead(30-50)weapons
END

@fight40
ACTOR	1,	"Scott", eyeball, 24, 15, 80
MOVE 1, -15,80
1:Eye, eye!
WAIT 3.5
FIGHT2 59,59
IF Alive @endfight(30-50)weapons
IF Dead @dead(30-50)weapons
END

@fight42
ACTOR	1,	"Scott", wolf, 24, 15, 80
MOVE 1, -15,80
1:OOOOWWWWWWWWWW!
WAIT 3.5
FIGHT2 61,61
IF Alive @endfight(30-50)weapons
IF Dead @dead(30-50)weapons
END

@fight44
ACTOR	1,	"Scott", dog, 24, 15, 80
MOVE 1, -15,80
1:WOOF! BARK BARK!!
WAIT 3.5
FIGHT2 73,73
IF Alive @endfight(30-50)weapons
IF Dead @dead(30-50)weapons
END

@fight46
ACTOR	1,	"Scott", tidal, 24, 15, 80
1:I'm gonna make you drown
MOVE 1, -15,80
WAIT 3.5
FIGHT2 74,74
IF Alive @endfight(30-50)weapons
IF Dead @dead(30-50)weapons
END

@fight48
ACTOR	1,	"Scott", aqua, 24, 15, 80
MOVE 1, -15,80
1:Aqua fresh!
WAIT 3.5
FIGHT2 75,75
IF Alive @endfight(30-50)weapons
IF Dead @dead(30-50)weapons
END

@fight50
ACTOR	1,	"Scott", collect, 24, 15, 80
MOVE 1, -15,80
1:I'll stick this magic wand up your A**
WAIT 3.5
FIGHT2 79,79
IF Alive @endfight(30-50)weapons
IF Dead @dead(30-50)weapons
END

@endfight(30-50)weapons
SOUND bleeding.wav
add murder, 1
SET dead(30-50)weapons, 1
SET ScottMonth, #<num.timeMonth>
Compare #<ScottMonth>, 1
IF=, @jan(30-50)weapons
Compare #<ScottMonth>, 2
IF=, @feb(30-50)weapons
Compare #<ScottMonth>, 3
IF=, @mar(30-50)weapons
Compare #<ScottMonth>, 4
IF=, @apr(30-50)weapons
Compare #<ScottMonth>, 5
IF=, @may(30-50)weapons
Compare #<ScottMonth>, 6
IF=, @jun(30-50)weapons
Compare #<ScottMonth>, 7
IF=, @july(30-50)weapons
Compare #<ScottMonth>, 8
IF=, @aug(30-50)weapons
Compare #<ScottMonth>, 9
IF=, @sept(30-50)weapons
Compare #<ScottMonth>, 10
IF=, @oct(30-50)weapons
Compare #<ScottMonth>, 11
IF=, @nov(30-50)weapons
Compare #<ScottMonth>, 12
IF=, @dec
@monthset(30-50)weapons
SET ScottDate, #<num.timeDay>
SET ScottYear, #<num.timeYear>
IF R35 @caught(30-50)weapons
IF V50, @lvl50weapons 
IF V48, @lvl48weapons 
IF V46, @lvl46weapons
IF V44, @lvl44weapons 
IF V42, @lvl42weapons 
IF V40, @lvl40weapons
IF V38, @lvl38weapons
IF V36, @lvl36weapons 
IF V34, @lvl34weapons
IF V32, @lvl32weapons 
IF V30, @lvl30weapons
N:You get no equipment because your lvl is too low!!
END

@lvl30weapons
GIVE I315 (Sword)
GIVE I415 (Staff)
GIVE I515 (Bow)
GIVE I615 (Music)
GIVE I365 (Fist)
GIVE I465 (Dart)
GIVE I565 (Book)
GIVE I665 (Spirit)
N: You have recieved all of the level 30 Weapons
GOTO @hopeyouarehappy
END

@lvl32weapons
GIVE I316 (Sword)
GIVE I416 (Staff)
GIVE I516 (Bow)
GIVE I616 (Music)
GIVE I366 (Fist)
GIVE I466 (Dart)
GIVE I566 (Book)
GIVE I666 (Spirit)
N: You have recieved all of the level 32 Weapons
GOTO @hopeyouarehappy
END

@lvl34weapons
GIVE I317 (Sword)
GIVE I417 (Staff)
GIVE I517 (Bow)
GIVE I617 (Music)
GIVE I367 (Fist)
GIVE I467 (Dart)
GIVE I567 (Book)
GIVE I667 (Spirit)
N: You have recieved all of the level 34 Weapons
GOTO @hopeyouarehappy
END

@lvl36weapons
GIVE I318 (Sword)
GIVE I418 (Staff)
GIVE I518 (Bow)
GIVE I618 (Music)
GIVE I368 (Fist)
GIVE I468 (Dart)
GIVE I568 (Book)
GIVE I668 (Spirit)
N: You have recieved all of the level 36 Weapons
GOTO @hopeyouarehappy
END

@lvl38weapons
GIVE I319 (Sword)
GIVE I419 (Staff)
GIVE I519 (Bow)
GIVE I619 (Music)
GIVE I369 (Fist)
GIVE I469 (Dart)
GIVE I569 (Book)
GIVE I669 (Spirit)
N: You have recieved all of the level 38 Weapons
GOTO @hopeyouarehappy
END

@lvl40weapons
GIVE I320 (Sword)
GIVE I420 (Staff)
GIVE I520 (Bow)
GIVE I620 (Music)
GIVE I370 (Fist)
GIVE I470 (Dart)
GIVE I570 (Book)
GIVE I670 (Spirit)
N: You have recieved all of the level 40 Weapons
GOTO @hopeyouarehappy
END

@lvl42weapons
GIVE I321 (Sword)
GIVE I421 (Staff)
GIVE I521 (Bow)
GIVE I621 (Music)
GIVE I371 (Fist)
GIVE I471 (Dart)
GIVE I571 (Book)
GIVE I671 (Spirit)
N: You have recieved all of the level 42 Weapons
GOTO @hopeyouarehappy
END

@lvl44weapons
GIVE I322 (Sword)
GIVE I422 (Staff)
GIVE I522 (Bow)
GIVE I622 (Music)
GIVE I372 (Fist)
GIVE I472 (Dart)
GIVE I572 (Book)
GIVE I672 (Spirit)
N: You have recieved all of the level 44 Weapons
GOTO @hopeyouarehappy
END

@lvl46weapons
GIVE I323 (Sword)
GIVE I423 (Staff)
GIVE I523 (Bow)
GIVE I623 (Music)
GIVE I373 (Fist)
GIVE I473 (Dart)
GIVE I573 (Book)
GIVE I673 (Spirit)
N: You have recieved all of the level 46 Weapons
GOTO @hopeyouarehappy
END

@lvl48weapons
GIVE I324 (Sword)
GIVE I424 (Staff)
GIVE I524 (Bow)
GIVE I624 (Music)
GIVE I374 (Fist)
GIVE I474 (Dart)
GIVE I574 (Book)
GIVE I674 (Spirit)
N: You have recieved all of the level 48 Weapons
GOTO @hopeyouarehappy
END

@lvl50weapons
GIVE I325 (Sword)
GIVE I425 (Staff)
GIVE I525 (Bow)
GIVE I625 (Music)
GIVE I375 (Fist)
GIVE I475 (Dart)
GIVE I575 (Book)
GIVE I675 (Spirit)
N: You have recieved all of the level 50 Weapons
GOTO @hopeyouarehappy
END

@hopeyouarehappy
COMPARE #<dead(30-50)weapons>, 1
	IF> @hopeyouarehappy2
	IF= @hopeyouarehappy2
END
@hopeyouarehappy2
n: The shopkeeper is now dead because of you!!!!
n: I hope you are happy!!!
n: IDIOT!!!
END

@dead(30-50)weapons
MOVE	1,	15, 80
WAIT 2
1:LOL! I thought I was the one who was supposed to be beamed up!
WAIT 1
SOUND alarm.wav
1:Guards!!!
WAIT .3
SOUND jail.wav
ADD murderfail, 1
GOTO LINK 43,0
END

@caught(30-50)weapons
n: The screams of the shopkeeper go off into the distance!!!
SOUND alarm.wav
n: A person walking past hears the scream and calls for a guard!!!
WAIT 2
SET Timedone, 1
N: your steal skill has been lowered by 2
COMPARE #<steal>, 23
IF<, @skiptake(30-50)weapons
IF=, @skiptake(30-50)weapons
SUB steal,2
N: It is now at level #<steal>
@skiptake(30-50)weapons
SOUND jail.wav
wait .5
GOTO LINK 43,0
END

@urdead!(30-50)weapons
n: YOU ARE DEAD!!
n: HOW ARE YOU SUPPOSED TO DO ANYTHING????
n: LOL!! I'VE NEVER SEEN A DEAD PERSON FIGHT 
n: OR STEAL BEFORE!!!
n: You had better get healed and then come back!!
WAIT 6
GOTO EXIT
END

@shopkeeperdead(30-50)weapons
ACTOR 4, "Scott", characters4, 3, 15,90
WAIT 2
N: The shopkeeper is dead!
N: You look at his grave in disgrace of what you have done!
WAIT 2
h: DAMN!! I can't buy any items from here anymore!!
h: I guess I should have listened to my conscience!
h: The grave reads -
h: #<ScottMonth> #<ScottDate> , #<ScottYear>
h: Scott Trekky (A Former blacksmith who loved star trek),
h: Aged 49
h: R.I.P
h: Hmmmm what's this?? There is a boquet of flowers and note
h: It reads: "To Scott"
h: "I will remember you always"
h: "LOL, do you remember when I kept saying "beam my up Scotty" Just to take the mick? "
h: "You were one of the biggest star Trek fans ever!! Everyone will miss your wit and sense of humour"
h: Signed: "
h: Hmmm? Nobody left their name, oh well!
h: I can see that I killed enough people! 
h: I have destroyed a true friendship
h: I'd better leave! 
WAIT 2
GOTO EXIT
END

@jan(30-50)weapons
SET ScottMonth, January
GOTO @monthset(30-50)weapons
END
@feb(30-50)weapons
SET ScottMonth, Feburary
GOTO @monthset(30-50)weapons
END
@mar(30-50)weapons
SET ScottMonth, March
GOTO @monthset(30-50)weapons
END
@apr(30-50)weapons
SET ScottMonth, April
GOTO @monthset(30-50)weapons
END
@may(30-50)weapons
SET ScottMonth, May
GOTO @monthset(30-50)weapons
END
@jun(30-50)weapons
SET ScottMonth, June
GOTO @monthset(30-50)weapons
END
@july(30-50)weapons
SET ScottMonth, July
GOTO @monthset(30-50)weapons
END
@aug(30-50)weapons
SET ScottMonth, August
GOTO @monthset(30-50)weapons
END
@sept(30-50)weapons
SET ScottMonth, September
GOTO @monthset(30-50)weapons
END
@oct(30-50)weapons
SET ScottMonth, October
GOTO @monthset(30-50)weapons
END
@nov(30-50)weapons
SET ScottMonth, November
GOTO @monthset(30-50)weapons
END
@dec(30-50)weapons
SET ScottMonth, December
GOTO @monthset(30-50)weapons
END

;---------
; general baubles shop

SCENE 1023 bwEuroStreet
	THEME	0
;	MUSIC	waltz2.mid
	COMPARE #<dead(30-50)jewelry>, 1
	IF> @shopkeeperdead(30-50)jewelry
	IF= @shopkeeperdead(30-50)jewelry
	ACTOR	1,	"Burner", joshTownsFolk, 20, 5, 90
	SEL		1
	MOVE	1,	15, 80
	OFFER2	30,50,22,  30,50,23
END

@end
	END
   
@EventActorclick1
IF DEAD @urdead!(30-50)jewelry
COMPARE #<steal>, 1
IF>,@menu2(30-50)jewelry
IF=,@menu2(30-50)jewelry
MENU "Talk=@talk(30-50)jewelry"
END
@talk(30-50)jewelry
	1: Hey! You need a couple of scripting ideas?
      h: Yes please!!
      1: Well you can't!!! This is a jewelry shop not a scripting class!!
END

@menu2(30-50)jewelry
MENU "Talk=@talk(30-50)jewelry", "Steal=@steal(30-50)jewelry", "Fight=@fight(30-50)jewelry"
END
@steal(30-50)jewelry
add stealsuccess, 0
add stealfail, 0
add timesteal, 1
add murderfail, 0
add murder, 0
add Timedone, 0
@attempt
N: You are now attepting to steal from the shopkeeper!
WAIT 3
IF R#<steal>, @successful(30-50)jewelry
add stealfail, 1
N: YOU FAILED!!!
1:Guards! Help me
WAIT .5
SOUND jail.wav
wait .5
GOTO LINK 43,0 (goes to jail)
END
@fight(30-50)jewelry
ACTOR 2, "Your Conscience" , mirror, 1, 75,65
2:JUST WAIT 1 SECOND!!!
2:IF you murder this shop keeper you will NEVER see them again!
2:This means that there will be no shop too!!!
2:You MAY get the equipment you want but that will be it because they will die!
2:Also if you get caught you may be in jail for quite some time!!!
2:Will you still fight him or chicken out??
WAIT 1
@menu(30-50)jewelry
MENU "I'm gonna kill him, I don't have a conscience!!=@noconscience(30-50)jewelry", "I won't kill him because bad things may happen=@goodchoice(30-50)jewelry""
2:WHICH WILL YOU DO???
GOTO @menu(30-50)jewelry
@noconscience(30-50)jewelry
2:DON'T SAY I DIDN'T WARN YOU!!!!
WAIT 2
ACTOR 2, "" , character, 4, -100,65
h: YOU ARE GOING DOWN BECAUSE I NEED SOME FREE EQUIPMENT!
1:HOW DARE YOU TRY AND RUIN MY SHOP AND STEAL MY GOODS!!!!
WAIT 1
SOUND notoneofus.wav
1:I'm not going to fight you like this!!!
1:I'm gonna morph into something much stronger to teach you a lesson!!!!
WAIT 3
IF V50 @fight50
IF V48 @fight48
IF V46 @fight46
IF V44 @fight44
IF V42 @fight42
IF V40 @fight40
IF V38 @fight38
IF V36 @fight36
IF V34 @fight34
IF V32 @fight32
IF V30 @fight30
h: Dang it! I think I'd better leave before starting a fight because my lvl is too low!
WAIT 5
GOTO EXIT
END

@goodchoice(30-50)jewelry
2:You made the best choice because killing is very bad!!
2:Happy shopping :)
WAIT 1
ACTOR 2, "" , character, 4, -100,65
END

@successful(30-50)jewelry
MUSIC smoothcriminal.mid
add stealsuccess, 1
add steal, 1
GIVE Inn
IF R25 @successful(30-50)jewelryfailed
N: You have successfully stolen from the shopkeeper!
N: Your skill has increased by 1
N: It is now at level #<steal>
N: They didn't even know!!
IF V50, @lvl50jewelry
IF V48, @lvl48jewelry 
IF V46, @lvl46jewelry
IF V44, @lvl44jewelry 
IF V42, @lvl42jewelry 
IF V40, @lvl40jewelry
IF V38, @lvl38jewelry
IF V36, @lvl36jewelry 
IF V34, @lvl34jewelry
IF V32, @lvl32jewelry 
IF V30, @lvl30jewelry
h: Damn! My level is too low! I need to be at least level 30 to get this equipment!!
1: GET OUT!!!!! NOWWWWWWW!!!
h: Ok! OK! I'm going, geesh!
WAIT 2
GOTO EXIT
END
@successful(30-50)jewelryfailed
N:Damn someone walking past so you doing it!
ADD Stealfail, 1
SOUND alarm.wav
1:Guards!!!!
SOUND jail.wav
wait .5
GOTO LINK 43,0
END

@fight30
ACTOR	1,	"Burner", Icecold, 1, 15, 80
MOVE 1, -15,80
1:I am Ice cold!
WAIT 3.5
FIGHT2 1001,1001
IF Alive @endfight(30-50)jewelry
IF Dead @dead(30-50)jewelry
END

@fight32
ACTOR	1,	"Burner", piranha, 1, 15, 80
MOVE 1, -15,80
1:heh! I'm a fish!
WAIT 3.5
FIGHT2 46,46
IF Alive @endfight(30-50)jewelry
IF Dead @dead(30-50)jewelry
END

@fight34
ACTOR	1,	"Burner", spetre, 1, 15, 80
MOVE 1, -15,80
1:You are a spectre to look at!!!
WAIT 3.5
FIGHT2 55,55
IF Alive @endfight(30-50)jewelry
IF Dead @dead(30-50)jewelry
END

@fight36
ACTOR	1,	"Burner", spectre, 24, 15, 80
MOVE 1, -15,80
1:I'm gonna muliply to kill you this time!
WAIT 3.5
FIGHT2 55,55,55
IF Alive @endfight(30-50)jewelry
IF Dead @dead(30-50)jewelry
END

@fight38
ACTOR	1,	"Burner", crawler, 24, 15, 80
MOVE 1, -15,80
1:I'm gonna kill you!
WAIT 3.5
FIGHT2 57,57
IF Alive @endfight(30-50)jewelry
IF Dead @dead(30-50)jewelry
END

@fight40
ACTOR	1,	"Burner", eyeball, 24, 15, 80
MOVE 1, -15,80
1:Your eyeballs will burn with the size of my scripts!!!
WAIT 3.5
FIGHT2 59,59
IF Alive @endfight(30-50)jewelry
IF Dead @dead(30-50)jewelry
END

@fight42
ACTOR	1,	"Burner", wolf, 24, 15, 80
MOVE 1, -15,80
1:I'm gonna bite you in half!
WAIT 3.5
FIGHT2 61,61
IF Alive @endfight(30-50)jewelry
IF Dead @dead(30-50)jewelry
END

@fight44
ACTOR	1,	"Burner", dog, 24, 15, 80
MOVE 1, -15,80
1:WOOOOOOOOOFFFFFFF!!!!!
WAIT 3.5
FIGHT2 73,73
IF Alive @endfight(30-50)jewelry
IF Dead @dead(30-50)jewelry
END

@fight46
ACTOR	1,	"Burner", tidal, 24, 15, 80
1:You won't survive long!
MOVE 1, -15,80
WAIT 3.5
FIGHT2 74,74
IF Alive @endfight(30-50)jewelry
IF Dead @dead(30-50)jewelry
END

@fight48
ACTOR	1,	"Burner", aqua, 24, 15, 80
MOVE 1, -15,80
1:I'm sick of your games!!!
WAIT 3.5
FIGHT2 75,75
IF Alive @endfight(30-50)jewelry
IF Dead @dead(30-50)jewelry
END

@fight50
ACTOR	1,	"Burner", collect, 24, 15, 80
MOVE 1, -15,80
1:I'm gonna make you dissapear!
WAIT 3.5
FIGHT2 79,79
IF Alive @endfight(30-50)jewelry
IF Dead @dead(30-50)jewelry
END


@endfight(30-50)jewelry
SOUND bleeding.wav
add murder, 1
SET dead(30-50)jewelry, 1
SET BurnerMonth, #<num.timeMonth>
Compare #<BurnerMonth>, 1
IF=, @jan(30-50)jewelry
Compare #<BurnerMonth>, 2
IF=, @feb(30-50)jewelry
Compare #<BurnerMonth>, 3
IF=, @mar(30-50)jewelry
Compare #<BurnerMonth>, 4
IF=, @apr(30-50)jewelry
Compare #<BurnerMonth>, 5
IF=, @may(30-50)jewelry
Compare #<BurnerMonth>, 6
IF=, @jun(30-50)jewelry
Compare #<BurnerMonth>, 7
IF=, @july(30-50)jewelry
Compare #<BurnerMonth>, 8
IF=, @aug(30-50)jewelry
Compare #<BurnerMonth>, 9
IF=, @sept(30-50)jewelry
Compare #<BurnerMonth>, 10
IF=, @oct(30-50)jewelry
Compare #<BurnerMonth>, 11
IF=, @nov(30-50)jewelry
Compare #<BurnerMonth>, 12
IF=, @dec
@monthset(30-50)jewelry
SET BurnerDate, #<num.timeDay>
SET BurnerYear, #<num.timeYear>
IF R35 @caught(30-50)jewelry
IF V50, @lvl50jewelry
IF V48, @lvl48jewelry 
IF V46, @lvl46jewelry
IF V44, @lvl44jewelry 
IF V42, @lvl42jewelry 
IF V40, @lvl40jewelry
IF V38, @lvl38jewelry
IF V36, @lvl36jewelry 
IF V34, @lvl34jewelry
IF V32, @lvl32jewelry 
IF V30, @lvl30jewelry
N:You get no equipment because your lvl is too low!!
END

@lvl30jewelry
GIVE I915 (ring)
GIVE I964 (amulet)
N: You have recieved all of the level 10 Weapons
GOTO @hopeyouarehappy
END

@lvl32jewelry
GIVE I916 (ring)
GIVE I965 (amulet)
N: You have recieved all of the level 12 Weapons
GOTO @hopeyouarehappy
END

@lvl34jewelry
GIVE I917 (ring)
GIVE I966 (amulet)
N: You have recieved all of the level 14 Weapons
GOTO @hopeyouarehappy
END

@lvl36jewelry
GIVE I918 (ring)
GIVE I967 (amulet)
N: You have recieved all of the level 16 Weapons
GOTO @hopeyouarehappy
END

@lvl38jewelry
GIVE I919 (ring)
GIVE I968 (amulet)
N: You have recieved all of the level 18 Weapons
GOTO @hopeyouarehappy
END

@lvl40jewelry
GIVE I920 (ring)
GIVE I969 (amulet)
N: You have recieved all of the level 20 Weapons
GOTO @hopeyouarehappy
END

@lvl42jewelry
GIVE I921 (ring)
GIVE I970 (amulet)
N: You have recieved all of the level 22 Weapons
GOTO @hopeyouarehappy
END

@lvl44jewelry
GIVE I922 (ring)
GIVE I971 (amulet)
N: You have recieved all of the level 24 Weapons
GOTO @hopeyouarehappy
END

@lvl46jewelry
GIVE I923 (ring)
GIVE I972 (amulet)
N: You have recieved all of the level 26 Weapons
GOTO @hopeyouarehappy
END

@lvl48jewelry
GIVE I924 (ring)
GIVE I973 (amulet)
N: You have recieved all of the level 28 Weapons
GOTO @hopeyouarehappy
END

@lvl50jewelry
GIVE I925 (ring)
GIVE I974 (amulet)
N: You have recieved all of the level 30 Weapons
GOTO @hopeyouarehappy
END

@hopeyouarehappy
COMPARE #<dead(30-50)jewelry>, 1
	IF> @hopeyouarehappy2
	IF= @hopeyouarehappy2
END
@hopeyouarehappy2
n: The shopkeeper is now dead because of you!!!!
n: I hope you are happy!!!
n: IDIOT!!!
END

@dead(30-50)jewelry
MOVE	1,	15, 80
WAIT 2
1:You will never doubt my scripting powers again!!!
SOUND alarm
1:Guards!!!
WAIT .3
SOUND jail.wav
ADD murderfail, 1
GOTO LINK 43,0
END

@caught(30-50)jewelry
n: The screams of the shopkeeper go off into the distance!!!
SOUND alarm
n: A person walking past hears the scream and calls for a guard!!!
WAIT 2
SET Timedone, 1
N: your steal skill has been lowered by 2
COMPARE #<steal>, 23
IF<, @skiptake(30-50)jewelry
IF=, @skiptake(30-50)jewelry
SUB steal,2
N: It is now at level #<steal>
@skiptake(30-50)jewelry
SOUND jail.wav
wait .5
GOTO LINK 43,0
END

@urdead!(30-50)jewelry
n: YOU ARE DEAD!!
n: HOW ARE YOU SUPPOSED TO DO ANYTHING????
n: LOL!! I'VE NEVER SEEN A DEAD PERSON FIGHT 
n: OR STEAL BEFORE!!!
n: You had better get healed and then come back!!
WAIT 6
GOTO EXIT
END

@shopkeeperdead(30-50)jewelry
ACTOR 4, "Burner", characters4, 3, 15,90
WAIT 2
N: The shopkeeper is dead!
N: You look at his grave in disgrace of what you have done!
WAIT 2
h: DAMN!! I can't buy any items from here anymore!!
h: I guess I should have listened to my conscience!
h: The grave reads -
h: #<BurnerMonth> #<BurnerDate> , #<BurnerYear>
h: Lord Michel (A former script writer, art developer and world creator who worked in a jewelry shop),
h: Aged 13
h: R.I.P
h: Hmmmm what's this?? Someone has left a note by the gravestone!
h: It reads: "To michel"
h: "Everyone will miss you and you will no longer be able to annoy people in WoS"
h: "You were a great script writer and a good world developer"
h: "I should have created the worlds you did since they were my ideas but I never got round to it"
h: "I let you do all the work and I shouldn't have :("
h: "Rest in peace Michel"
h: "Signed "Lord Danny"
h: (SOB) I such an IDOIT!! WHY DID I KILL HIM??? I WANTED SOME ITEMS NOT A LIFE!
h: I'd better leave before I start anymore trouble!!
WAIT 4
GOTO EXIT
END

@jan(30-50)jewelry
SET BurnerMonth, January
GOTO @monthset(30-50)jewelry
END
@feb(30-50)jewelry
SET BurnerMonth, Feburary
GOTO @monthset(30-50)jewelry
END
@mar(30-50)jewelry
SET BurnerMonth, March
GOTO @monthset(30-50)jewelry
END
@apr(30-50)jewelry
SET BurnerMonth, April
GOTO @monthset(30-50)jewelry
END
@may(30-50)jewelry
SET BurnerMonth, May
GOTO @monthset(30-50)jewelry
END
@jun(30-50)jewelry
SET BurnerMonth, June
GOTO @monthset(30-50)jewelry
END
@july(30-50)jewelry
SET BurnerMonth, July
GOTO @monthset(30-50)jewelry
END
@aug(30-50)jewelry
SET BurnerMonth, August
GOTO @monthset(30-50)jewelry
END
@sept(30-50)jewelry
SET BurnerMonth, September
GOTO @monthset(30-50)jewelry
END
@oct(30-50)jewelry
SET BurnerMonth, October
GOTO @monthset(30-50)jewelry
END
@nov(30-50)jewelry
SET BurnerMonth, November
GOTO @monthset(30-50)jewelry
END
@dec(30-50)jewelry
SET BurnerMonth, December
GOTO @monthset(30-50)jewelry
END

;---------
; general boot shop

SCENE 1024 bwEuroStreet
	THEME	0
;	MUSIC	waltz2.mid
	ACTOR	1,	"Muddy", josh5, 1, 5, 90
	POSE	1,3,2
	SEL		1
	MOVE	1,	15, 80
	OFFER2	0,50,20
END

@EventActorclick1
IF DEAD @urdead!(30-50)boots
MENU "Talk=@talk(30-50)boots"
END
@talk(30-50)boots
	' You call those boots?!
	h: Yes I do actually!!
      ' OH MAN! Why does everyone have to argue and steal from me??? (sob)
	' I hate it! I want at least one customer that doesn't steal off me :(
	h: (talking to himself) I can't steal off this customer when he's like this!
	h: I should buy something from him!
	1:You say something???
	h: No
	1:Good! I thought you were planning to steal from me	
 END

@urdead!(30-50)boots
N: YOU ARE DEAD! YOU NEED TO HEAL YOURSELF FIRST!
END

;--------------
; Generic Casino
;
SCENE 1025		aztec
	THEME	0
;	MUSIC	waltz2.mid
	ACTOR	1,	"Barker", joshRoyalty, 2, 5, 90
	SEL		1
	MOVE	1,	15, 80
	GAME	1
	' Try your luck!
	' Our slots pay the most!
END


;================================ RUST ROCK 50-70 ==================================
;---------
; item/potion shop
;
SCENE 1070 bwEuroStreet
	THEME	0
;	MUSIC	waltz2.mid
	ACTOR	1,	"Drax", josh32, 1, 5, 90
	POSE	1,4,2
	SEL		1
	MOVE	1,	15, 80
	OFFER2	0,70,0
	' (Must... not... kill.......customers!)
	' Please let me know how I may be of service...
END


;---------
; general armor shop

SCENE 1071 bwEuroStreet
	THEME	0
;	MUSIC	waltz2.mid
	COMPARE #<dead(50-70)armour>, 1
	IF> @shopkeeperdead(50-70)armour
	IF= @shopkeeperdead(50-70)armour
	ACTOR	1,	"Sarcat", josh37, 1, 5, 90
	POSE	1,4,2
	SEL		1
	MOVE	1,	15, 80
	OFFER2	50,70,10,  50,70,11,  50,70,20,  50,70,21
END
@end
	END
   
@EventActorclick1
IF DEAD @urdead!(50-70)armour
COMPARE #<steal>, 1
IF>,@menu2(50-70)armour
IF=,@menu2(50-70)armour
MENU "Talk=@talk(50-70)armour"
END
@talk(50-70)armour
' WHAT DID YOU SAY?
	' I CAN'T HEAR A THING IN HERE?
	' YOU TALKIN' TO ME?
	' I DON'T SEE ANYONE ELSE HERE!
	' I CAN'T HEAR YOU!!!
	' PLEASE BUY SOME ARMOUR!
END
@menu2(50-70)armour
MENU "Talk=@talk(50-70)armour", "Steal=@steal(50-70)armour", "Fight=@fight(50-70)armour"
END
@steal(50-70)armour
add stealsuccess, 0
add stealfail, 0
add timesteal, 1
add murderfail, 0
add murder, 0
add Timedone, 0
@attempt
N: You are now attepting to steal from the shopkeeper!
WAIT 3
IF R#<steal>, @successful(50-70)armour
add stealfail, 1
N: YOU FAILED!!!
SOUND alarm.wav
1:I CAN'T HEAR BUT I CAN SEE! GUARDS!
WAIT .5
SOUND jail.wav
wait .5
GOTO LINK 43,0 (goes to jail)
END
@fight(50-70)armour
ACTOR 2, "Your Conscience" , mirror, 1, 75,65
2:JUST WAIT 1 SECOND!!!
2:IF you murder this shop keeper you will NEVER see them again!
2:This means that there will be no shop too!!!
2:You MAY get the equipment you want but that will be it because they will die!
2:Also if you get caught you may be in jail for quite some time!!!
2:Will you still fight him or chicken out??
WAIT 1
@menu(30-50)armour
MENU "I'm gonna kill him, I don't have a conscience!!=@noconscience(50-70)armour", "I won't kill him because bad things may happen=@goodchoice(50-70)armour""
2:WHICH WILL YOU DO???
GOTO @menu(50-70)armour
@noconscience(50-70)armour
2:DON'T SAY I DIDN'T WARN YOU!!!!
WAIT 2
ACTOR 2, "" , character, 4, -100,65
h: YOU ARE GOING DOWN BECAUSE I NEED SOME FREE EQUIPMENT!
1:PARDON???? WHAT WAS THAT? I CAN'T HEAR YOU!!!
WAIT 1
SOUND notoneofus.wav
h: I SAID YOU ARE AN IDIOT AND YOU ARE GOING DOWN!
1:DAMN IT!! I CAN'T LIP READ!!!
H: HEH! YOU HAVE S*** FOR BRAINS!!
1:LISTEN I CAN'T HEAR YOU AND I DON'T LIKE THE EXPRESSION ON YOUR FACE SO I'M GONNA ASK YOU TO LEAVE!
1:LEAVE!!! LEAVE NOOOOOWWWW!!!
WAIT 3
1:NOT LEAVING EH???? WELL I GUESS I'M GOING TO HAVE TO MORPH AND THEN KILL YOU!!
1:THIS ARMOUR WILL HELP ME REAL GOOD! I HAVE THE BEST PROTECTION EVER!!
WAIT 3
IF V70 @fight70
IF V68 @fight68
IF V66 @fight66
IF V64 @fight64
IF V62 @fight62
IF V60 @fight60
IF V58 @fight58
IF V56 @fight56
IF V54 @fight54
IF V52 @fight52
IF V50 @fight50
h: Dang it! I think I'd better leave before starting a fight because my lvl is too low!
WAIT 5
GOTO EXIT
END

@goodchoice(50-70)armour
2:You made the best choice because killing is very bad!!
2:Happy shopping :)
WAIT 1
ACTOR 2, "" , character, 4, -100,65
END

@successful(50-70)armour
MUSIC smoothcriminal.mid
add stealsuccess, 1
add steal, 1
GIVE Inn
IF R25 @successful(50-70)armourfailed
N: You have successfully stolen from the shopkeeper!
N: Your skill has increased by 1
N: It is now at level #<steal>
N: They didn't even know!!
IF V70, @lvl70armour 
IF V68, @lvl68armour 
IF V66, @lvl66armour
IF V64, @lvl64armour 
IF V62, @lvl62armour 
IF V60, @lvl60armour
IF V58, @lvl58armour 
IF V56, @lvl56armour 
IF V54, @lvl54armour
IF V52, @lvl52armour 
IF V50, @lvl50armour
h: Damn! My level is too low! I need to be at least level 50 to get this equipment!!
1: GET OUT!!!!! NOWWWWWWW!!!
h: Ok! OK! I'm going, geesh!
WAIT 2
GOTO EXIT
END
@successful(50-70)armourfailed
N:Damn someone walking past so you doing it!
ADD Stealfail, 1
SOUND alarm.wav
1:Guards!!!!
SOUND jail.wav
wait .5
GOTO LINK 43,0
END

@fight50
ACTOR	1,	"Sarcat", Alien, 1, 15, 80
MOVE 1, -15,80
1:I coooome in peace! LOL
WAIT 3.5
FIGHT2 80,80
IF Alive @endfight(50-70)armour
IF Dead @dead(50-70)armor
END

@fight52
ACTOR	1,	"Sarcat", Mirror, 1, 15, 80
MOVE 1, -15,80
1:Mighty, Mighty me!!!
WAIT 3.5
FIGHT2 81,81
IF Alive @endfight(50-70)armour
IF Dead @dead(50-70)armor
END

@fight54
ACTOR	1,	"Sarcat", Aerial, 1, 15, 80
MOVE 1, -15,80
1:WOOOOOO! WOOOOOOOOOOOOO!
WAIT 3.5
FIGHT2 84,84
IF Alive @endfight(50-70)armour
IF Dead @dead(50-70)armor
END

@fight56
ACTOR	1,	"Sarcat", Aerial, 24, 15, 80
MOVE 1, -15,80
1:I'm gonna muliply to kill you this time! Two aerials should do!
WAIT 3.5
FIGHT2 84,84,84
IF Alive @endfight(50-70)armour
IF Dead @dead(50-70)armor
END

@fight58
ACTOR	1,	"Sarcat", Griffen, 24, 15, 80
MOVE 1, -15,80
1:Would you like some Ginger ale???
WAIT 3.5
FIGHT2 88,88
IF Alive @endfight(50-70)armour
IF Dead @dead(50-70)armor
END

@fight60
ACTOR	1,	"Sarcat", hell, 24, 15, 80
MOVE 1, -15,80
1:Hehe! You want to be cursed by me???
WAIT 3.5
FIGHT2 89,89
IF Alive @endfight(50-70)armour
IF Dead @dead(50-70)armor
END

@fight62
ACTOR	1,	"Sarcat", crab, 24, 15, 80
MOVE 1, -15,80
1:Let me hug your face! Cmon!!
WAIT 3.5
FIGHT2 92,92
IF Alive @endfight(50-70)armour
IF Dead @dead(50-70)armor
END

@fight64
ACTOR	1,	"Sarcat", Scorpion, 24, 15, 80
MOVE 1, -15,80
1:I'm going to sting you real bad
WAIT 3.5
FIGHT2 93,93
IF Alive @endfight(50-70)armour
IF Dead @dead(50-70)armor
END

@fight66
ACTOR	1,	"Sarcat", hound, 24, 15, 80
1:I will shock you!
MOVE 1, -15,80
WAIT 3.5
FIGHT2 95,95
IF Alive @endfight(50-70)armour
IF Dead @dead(50-70)armor
END

@fight68
ACTOR	1,	"Sarcat", Slave, 24, 15, 80
MOVE 1, -15,80
1:You will be the slave, not me!!
WAIT 3.5
FIGHT2 98,98
IF Alive @endfight(50-70)armour
IF Dead @dead(50-70)armor
END

@fight70
ACTOR	1,	"Sarcat", zombiesci, 24, 15, 80
MOVE 1, -15,80
1:CU is the formula for copper!!
WAIT 3.5
FIGHT2 100,100
IF Alive @endfight(50-70)armour
IF Dead @dead(50-70)armor
END

@endfight(50-70)armour
SOUND bleeding.wav
add murder, 1
SET dead(50-70)armour, 1
SET SarcatMonth, #<num.timeMonth>
Compare #<SarcatMonth>, 1
IF=, @jan(50-70)armour
Compare #<SarcatMonth>, 2
IF=, @feb(50-70)armour
Compare #<SarcatMonth>, 3
IF=, @mar(50-70)armour
Compare #<SarcatMonth>, 4
IF=, @apr(50-70)armour
Compare #<SarcatMonth>, 5
IF=, @may(50-70)armour
Compare #<SarcatMonth>, 6
IF=, @jun(50-70)armour
Compare #<SarcatMonth>, 7
IF=, @july(50-70)armour
Compare #<SarcatMonth>, 8
IF=, @aug(50-70)armour
Compare #<SarcatMonth>, 9
IF=, @sept(50-70)armour
Compare #<SarcatMonth>, 10
IF=, @oct(50-70)armour
Compare #<SarcatMonth>, 11
IF=, @nov(50-70)armour
Compare #<SarcatMonth>, 12
IF=, @dec
@monthset(50-70)armour
SET SarcatDate, #<num.timeDay>
SET SarcatYear, #<num.timeYear>
IF R35 @caught(50-70)armour
IF V70, @lvl70armour 
IF V68, @lvl68armour 
IF V66, @lvl66armour
IF V64, @lvl64armour 
IF V62, @lvl62armour 
IF V60, @lvl60armour
IF V58, @lvl58armour 
IF V56, @lvl56armour 
IF V54, @lvl54armour
IF V52, @lvl52armour 
IF V50, @lvl50armour
N:You get no equipment because your lvl is too low!!
END

@lvl50armour
GIVE I225 (helmet)
GIVE I273 (armour)
GIVE I825 (shield)
N: You have recieved all of the level 50 armour
GOTO @hopeyouarehappy
END

@lvl52armour
GIVE I226 (helmet)
GIVE I274 (armour)
GIVE I826 (shield)
N: You have recieved all of the level 52 armour
GOTO @hopeyouarehappy
END

@lvl54armour
GIVE I227 (helmet)
GIVE I275 (armour)
GIVE I827 (shield)
N: You have recieved all of the level 54 armour
GOTO @hopeyouarehappy
END

@lvl56armour
GIVE I228 (helmet)
GIVE I276 (armour)
GIVE I828 (shield)
N: You have recieved all of the level 56 armour
GOTO @hopeyouarehappy
END

@lvl58armour
GIVE I229 (helmet)
GIVE I277 (armour)
GIVE I829 (shield)
N: You have recieved all of the level 58 armour
GOTO @hopeyouarehappy
END

@lvl60armour
GIVE I230 (helmet)
GIVE I278 (armour)
GIVE I830 (shield)
N: You have recieved all of the level 60 armour
GOTO @hopeyouarehappy
END

@lvl62armour
GIVE I231 (helmet)
GIVE I279 (armour)
GIVE I831 (shield)
N: You have recieved all of the level 62 armour
GOTO @hopeyouarehappy
END

@lvl64armour
GIVE I232 (helmet)
GIVE I280 (armour)
GIVE I832 (shield)
N: You have recieved all of the level 64 armour
GOTO @hopeyouarehappy
END

@lvl66armour
GIVE I233 (helmet)
GIVE I281 (armour)
GIVE I833 (shield)
N: You have recieved all of the level 66 armour
GOTO @hopeyouarehappy
END

@lvl68armour
GIVE I234 (helmet)
GIVE I282 (armour)
GIVE I834 (shield)
N: You have recieved all of the level 68 armour
GOTO @hopeyouarehappy
END

@lvl70armour
GIVE I235 (helmet)
GIVE I283 (armour)
GIVE I835 (shield)
N: You have recieved all of the level 70 armour
GOTO @hopeyouarehappy
END

@hopeyouarehappy
COMPARE #<dead(50-70)armour>, 1
	IF> @hopeyouarehappy2
	IF= @hopeyouarehappy2
END
@hopeyouarehappy2
n: The shopkeeper is now dead because of you!!!!
n: I hope you are happy!!!
n: IDIOT!!!
END

@dead(50-70)armor
MOVE	1,	15, 80
WAIT 2
1:I might not be able to hear but I sure can fight!
SOUND alarm.wav
1:Guards!
WAIT .5
SOUND jail.wav
ADD murderfail, 1
GOTO LINK 43,0
END

@caught(50-70)armour
n: The screams of the shopkeeper go off into the distance!!!
n: A person walking past hears the scream and calls for a guard!!!
SOUND alarm.wav
WAIT 2
SET Timedone, 1
N: your steal skill has been lowered by 2
COMPARE #<steal>, 23
IF<, @skiptake(50-70)armour
IF=, @skiptake(50-70)armour
SUB steal,2
N: It is now at level #<steal>
@skiptake(50-70)armour
SOUND jail.wav
wait .5
GOTO LINK 43,0
END

@urdead!(50-70)armour
n: YOU ARE DEAD!!
n: HOW ARE YOU SUPPOSED TO DO ANYTHING????
n: LOL!! I'VE NEVER SEEN A DEAD PERSON FIGHT 
n: OR STEAL BEFORE!!!
n: You had better get healed and then come back!!
WAIT 6
GOTO EXIT
END

@shopkeeperdead(50-70)armour
ACTOR 4, "Sarcat", characters4, 3, 15,90
WAIT 2
N: The shopkeeper is dead!
N: You look at his grave in disgrace of what you have done!
WAIT 2
h: DAMN!! I can't buy any items from here anymore!!
h: I guess I should have listened to my conscience!
h: The grave reads -
h: #<SarcatMonth> #<SarcatDate> , #<SarcatYear>
h: Sarcat (A former Karate student and Shopkeeper in an armour store),
h: Aged 10
h: R.I.P
h: Hmmmm what's this?? There is note left on the grave
h: It reads: "To Sarcat"
h: "I cannot believe that some idoit is so cruel to finish you off so early in your life"
h: "(sob) You never got the change to live! You should be happy in heaven though"
h: "You will be remembered forever and ever"
h: signed "Sarcat's Family"
h: Damn! If I don't leave I'll probably have the mafia or someone after me for this crime!!
h: I'm outta here!!
WAIT 2
GOTO EXIT
END
@jan(50-70)armour
SET SarcatMonth, January
GOTO @monthset(50-70)armour
END
@feb(50-70)armour
SET SarcatMonth, Feburary
GOTO @monthset(50-70)armour
END
@mar(50-70)armour
SET SarcatMonth, March
GOTO @monthset(50-70)armour
END
@apr(50-70)armour
SET SarcatMonth, April
GOTO @monthset(50-70)armour
END
@may(50-70)armour
SET SarcatMonth, May
GOTO @monthset(50-70)armour
END
@jun(50-70)armour
SET SarcatMonth, June
GOTO @monthset(50-70)armour
END
@july(50-70)armour
SET SarcatMonth, July
GOTO @monthset(50-70)armour
END
@aug(50-70)armour
SET SarcatMonth, August
GOTO @monthset(50-70)armour
END
@sept(50-70)armour
SET SarcatMonth, September
GOTO @monthset(50-70)armour
END
@oct(50-70)armour
SET SarcatMonth, October
GOTO @monthset(50-70)armour
END
@nov(50-70)armour
SET SarcatMonth, November
GOTO @monthset(50-70)armour
END
@dec(50-70)armour
SET SarcatMonth, December
GOTO @monthset(50-70)armour
END

;---------
; general weapons shop

SCENE 1072 bwEuroStreet
	THEME	0
;	MUSIC	waltz2.mid
	COMPARE #<dead(50-70)weapons>, 1
	IF> @shopkeeperdead(50-70)weapons
	IF= @shopkeeperdead(50-70)weapons
	ACTOR	1,	"Zax", josh33, 1, 5, 90
	POSE	1,4,2
	SEL		1
	MOVE	1,	15, 80
	OFFER2	50,70,12,  50,70,13,  50,70,14,  50,70,15,  50,70,16,  50,70,17,  50,70,18,  50,70,19
END
@end
	END
   
@EventActorclick1
IF DEAD @urdead!(50-70)weapons
COMPARE #<steal>, 1
IF>,@menu2(50-70)weapons
IF=,@menu2(50-70)weapons
MENU "Talk=@talk(50-70)weapons"
END
@talk(50-70)weapons
	' Hee hee, sharp fingers slice!
	' Toes hurt, too!
	' Teeth Bite!
	' Pleeeeeeezzzzz...
END

@menu2(50-70)weapons
MENU "Talk=@talk(50-70)weapons", "Steal=@steal(50-70)weapons", "Fight=@fight(50-70)weapons"
END
@steal(50-70)weapons
add stealsuccess, 0
add stealfail, 0
add timesteal, 1
add murderfail, 0
add murder, 0
add Timedone, 0
@attempt
N: You are now attepting to steal from the shopkeeper!
WAIT 3
IF R#<steal>, @successful(50-70)weapons
add stealfail, 1
N: YOU FAILED!!!
sound alarm.wav
1:GUARDS, HEEEEELLLPPPP!!!!!
WAIT .5
SOUND jail.wav
wait .5
GOTO LINK 43,0 (goes to jail)
END
@fight(50-70)weapons
ACTOR 2, "Your Conscience" , mirror, 1, 75,65
2:JUST WAIT 1 SECOND!!!
2:IF you murder this shop keeper you will NEVER see them again!
2:This means that there will be no shop too!!!
2:You MAY get the equipment you want but that will be it because they will die!
2:Also if you get caught you may be in jail for quite some time!!!
2:Will you still fight him or chicken out??
WAIT 1
@menu(50-70)weapons
MENU "I'm gonna kill him, I don't have a conscience!!=@noconscience(50-70)weapons", "I won't kill him then because bad things may happen=@goodchoice(50-70)weapons""
2:WHICH WILL YOU DO???
GOTO @menu(30-50)weapons
@noconscience(50-70)weapons
2:DON'T SAY I DIDN'T WARN YOU!!!!
WAIT 2
ACTOR 2, "" , character, 4, -100,65
h: YOU ARE GOING DOWN BECAUSE I NEED SOME FREE EQUIPMENT!
1:HOW DARE YOU TRY AND RUIN MY SHOP AND STEAL MY GOODS!!!!
WAIT 1
SOUND notoneofus.wav
1:I'm not going to fight you like this!!!
1:I'm gonna morph into something much stronger to teach you a lesson!!!!
WAIT 3
IF V70 @fight70
IF V68 @fight68
IF V66 @fight66
IF V64 @fight64
IF V62 @fight62
IF V60 @fight60
IF V58 @fight58
IF V56 @fight56
IF V54 @fight54
IF V52 @fight52
IF V50 @fight50
h: Dang it! I think I'd better leave before starting a fight because my lvl is too low!
WAIT 5
GOTO EXIT
END

@goodchoice(50-70)weapons
2:You made the best choice because killing is very bad!!
2:Happy shopping :)
WAIT 1
ACTOR 2, "" , character, 4, -100,65
END

@successful(50-70)weapons
MUSIC smoothcriminal.mid
add stealsuccess, 1
add steal, 1
GIVE Inn
IF R25 @successful(50-70)weaponsfailed
N: You have successfully stolen from the shopkeeper!
N: Your skill has increased by 1
N: It is now at level #<steal>
N: They didn't even know!!
IF V50, @lvl50weapons 
IF V48, @lvl48weapons 
IF V46, @lvl46weapons
IF V44, @lvl44weapons 
IF V42, @lvl42weapons 
IF V40, @lvl40weapons
IF V38, @lvl38weapons
IF V36, @lvl36weapons 
IF V34, @lvl34weapons
IF V32, @lvl32weapons 
IF V30, @lvl30weapons
h: Damn! My level is too low! I need to be at least level 30 to get this equipment!!
1: GET OUT!!!!! NOWWWWWWW!!!
h: Ok! OK! I'm going, geesh!
WAIT 2
GOTO EXIT
END
@successful(50-70)weaponsfailed
N:Damn someone walking past so you doing it!
ADD Stealfail, 1
1:Guards!!!!
SOUND jail.wav
wait .5
GOTO LINK 43,0
END

@fight50
ACTOR	1,	"Zax", Alien, 1, 15, 80
MOVE 1, -15,80
1:I'm an Alien! I'm an Alien!		
WAIT 3.5
FIGHT2 80,80
IF Alive @endfight(50-70)Weapons
IF Dead @dead(50-70)Weapons
END

@fight52
ACTOR	1,	"Zax", Mirror, 1, 15, 80
MOVE 1, -15,80
1:I'm going to show you real might!
WAIT 3.5
FIGHT2 81,81
IF Alive @endfight(50-70)Weapons
IF Dead @dead(50-70)Weapons
END

@fight54
ACTOR	1,	"Zax", Aerial, 1, 15, 80
MOVE 1, -15,80
1:I believe I can fly!!
WAIT 3.5
FIGHT2 84,84
IF Alive @endfight(50-70)Weapons
IF Dead @dead(50-70)Weapons
END

@fight56
ACTOR	1,	"Zax", Aerial, 24, 15, 80
MOVE 1, -15,80
1:I'm gonna muliply to kill you this time! Three aerials should do!
WAIT 3.5
FIGHT2 84,84,84
IF Alive @endfight(50-70)Weapons
IF Dead @dead(50-70)Weapons
END

@fight58
ACTOR	1,	"Zax", Griffen, 24, 15, 80
MOVE 1, -15,80
1:Swaark
WAIT 3.5
FIGHT2 88,88
IF Alive @endfight(50-70)Weapons
IF Dead @dead(50-70)Weapons
END

@fight60
ACTOR	1,	"Zax", hell, 24, 15, 80
MOVE 1, -15,80
1:(howls)
WAIT 3.5
FIGHT2 89,89
IF Alive @endfight(50-70)Weapons
IF Dead @dead(50-70)Weapons
END

@fight62
ACTOR	1,	"Zax", crab, 24, 15, 80
MOVE 1, -15,80
1:I'm going to Face hug you if you don't get outta my sight!!
WAIT 3.5
FIGHT2 92,92
IF Alive @endfight(50-70)Weapons
IF Dead @dead(50-70)Weapons
END

@fight64
ACTOR	1,	"Zax", Scorpion, 24, 15, 80
MOVE 1, -15,80
1:You want to be poisoned??
WAIT 3.5
FIGHT2 93,93
IF Alive @endfight(50-70)Weapons
IF Dead @dead(50-70)Weapons
END

@fight66
ACTOR	1,	"Zax", hound, 24, 15, 80
1:ooooooooooo!!
MOVE 1, -15,80
WAIT 3.5
FIGHT2 95,95
IF Alive @endfight(50-70)Weapons
IF Dead @dead(50-70)Weapons
END

@fight68
ACTOR	1,	"Zax", Slave, 24, 15, 80
MOVE 1, -15,80
1:I will electricute you
WAIT 3.5
FIGHT2 98,98
IF Alive @endfight(50-70)Weapons
IF Dead @dead(50-70)Weapons
END

@fight70
ACTOR	1,	"Zax", zombiesci, 24, 15, 80
MOVE 1, -15,80
1:I'm a dead scientist!!!
WAIT 3.5
FIGHT2 100,100
IF Alive @endfight(50-70)Weapons
IF Dead @dead(50-70)Weapons
END

@endfight(50-70)weapons
SOUND bleeding.wav
add murder, 1
SET dead(50-70)weapons, 1
SET ZaxMonth, #<num.timeMonth>
Compare #<ZaxMonth>, 1
IF=, @jan(50-70)weapons
Compare #<ZaxMonth>, 2
IF=, @feb(50-70)weapons
Compare #<ZaxMonth>, 3
IF=, @mar(50-70)weapons
Compare #<ZaxMonth>, 4
IF=, @apr(50-70)weapons
Compare #<ZaxMonth>, 5
IF=, @may(50-70)weapons
Compare #<ZaxMonth>, 6
IF=, @jun(50-70)weapons
Compare #<ZaxMonth>, 7
IF=, @july(50-70)weapons
Compare #<ZaxMonth>, 8
IF=, @aug(50-70)weapons
Compare #<ZaxMonth>, 9
IF=, @sept(50-70)weapons
Compare #<ZaxMonth>, 10
IF=, @oct(50-70)weapons
Compare #<ZaxMonth>, 11
IF=, @nov(50-70)weapons
Compare #<ZaxMonth>, 12
IF=, @dec
@monthset(50-70)weapons
SET ZaxDate, #<num.timeDay>
SET ZaxYear, #<num.timeYear>
IF R35 @caught(50-70)weapons
IF V70, @lvl70weapons 
IF V68, @lvl68weapons 
IF V66, @lvl66weapons
IF V64, @lvl64weapons 
IF V62, @lvl62weapons 
IF V60, @lvl60weapons
IF V58, @lvl58weapons
IF V56, @lvl56weapons 
IF V54, @lvl54weapons
IF V52, @lvl52weapons 
IF V50, @lvl50weapons
N:You get no equipment because your lvl is too low!!
END

@lvl50weapons
GIVE I325 (Sword)
GIVE I425 (Staff)
GIVE I525 (Bow)
GIVE I625 (Music)
GIVE I375 (Fist)
GIVE I475 (Dart)
GIVE I575 (Book)
GIVE I675 (Spirit)
N: You have recieved all of the level 50 Weapons
GOTO @hopeyouarehappy
END

@lvl52weapons
GIVE I326 (Sword)
GIVE I426 (Staff)
GIVE I526 (Bow)
GIVE I626 (Music)
GIVE I376 (Fist)
GIVE I476 (Dart)
GIVE I576 (Book)
GIVE I676 (Spirit)
N: You have recieved all of the level 52 Weapons
GOTO @hopeyouarehappy
END

@lvl54weapons
GIVE I327 (Sword)
GIVE I427 (Staff)
GIVE I527 (Bow)
GIVE I627 (Music)
GIVE I377 (Fist)
GIVE I477 (Dart)
GIVE I577 (Book)
GIVE I677 (Spirit)
N: You have recieved all of the level 54 Weapons
GOTO @hopeyouarehappy
END

@lvl56weapons
GIVE I328 (Sword)
GIVE I428 (Staff)
GIVE I528 (Bow)
GIVE I628 (Music)
GIVE I378 (Fist)
GIVE I478 (Dart)
GIVE I578 (Book)
GIVE I678 (Spirit)
N: You have recieved all of the level 56 Weapons
GOTO @hopeyouarehappy
END

@lvl58weapons
GIVE I329 (Sword)
GIVE I429 (Staff)
GIVE I529 (Bow)
GIVE I629 (Music)
GIVE I379 (Fist)
GIVE I479 (Dart)
GIVE I579 (Book)
GIVE I679 (Spirit)
N: You have recieved all of the level 58 Weapons
GOTO @hopeyouarehappy
END

@lvl60weapons
GIVE I330 (Sword)
GIVE I430 (Staff)
GIVE I530 (Bow)
GIVE I630 (Music)
GIVE I380 (Fist)
GIVE I480 (Dart)
GIVE I580 (Book)
GIVE I680 (Spirit)
N: You have recieved all of the level 60 Weapons
GOTO @hopeyouarehappy
END

@lvl62weapons
GIVE I331 (Sword)
GIVE I431 (Staff)
GIVE I531 (Bow)
GIVE I631 (Music)
GIVE I381 (Fist)
GIVE I481 (Dart)
GIVE I581 (Book)
GIVE I681 (Spirit)
N: You have recieved all of the level 62 Weapons
GOTO @hopeyouarehappy
END

@lvl64weapons
GIVE I332 (Sword)
GIVE I432 (Staff)
GIVE I532 (Bow)
GIVE I632 (Music)
GIVE I382 (Fist)
GIVE I482 (Dart)
GIVE I582 (Book)
GIVE I682 (Spirit)
N: You have recieved all of the level 64 Weapons
GOTO @hopeyouarehappy
END

@lvl66weapons
GIVE I333 (Sword)
GIVE I433 (Staff)
GIVE I533 (Bow)
GIVE I633 (Music)
GIVE I383 (Fist)
GIVE I483 (Dart)
GIVE I583 (Book)
GIVE I683 (Spirit)
N: You have recieved all of the level 66 Weapons
GOTO @hopeyouarehappy
END

@lvl68weapons
GIVE I334 (Sword)
GIVE I434 (Staff)
GIVE I534 (Bow)
GIVE I634 (Music)
GIVE I384 (Fist)
GIVE I484 (Dart)
GIVE I584 (Book)
GIVE I684 (Spirit)
N: You have recieved all of the level 68 Weapons
GOTO @hopeyouarehappy
END

@lvl70weapons
GIVE I335 (Sword)
GIVE I435 (Staff)
GIVE I535 (Bow)
GIVE I635 (Music)
GIVE I385 (Fist)
GIVE I485 (Dart)
GIVE I585 (Book)
GIVE I685 (Spirit)
N: You have recieved all of the level 70 Weapons
GOTO @hopeyouarehappy
END

@hopeyouarehappy
COMPARE #<dead(50-70)weapons>, 1
	IF> @hopeyouarehappy2
	IF= @hopeyouarehappy2
END
@hopeyouarehappy2
n: The shopkeeper is now dead because of you!!!!
n: I hope you are happy!!!
n: IDIOT!!!
END

@dead(50-70)weapons
MOVE	1,	15, 80
WAIT 2
1:LOL! 
SOUND alarm.wav
1:Guards!!!
WAIT .3
SOUND jail.wav
ADD murderfail, 1
GOTO LINK 43,0
END

@caught(50-70)weapons
n: The screams of the shopkeeper go off into the distance!!!
n: A person walking past hears the scream and calls for a guard!!!
SOUND alarm.wav
WAIT 2
SET Timedone, 1
N: your steal skill has been lowered by 2
COMPARE #<steal>, 23
IF<, @skiptake(50-70)weapons
IF=, @skiptake(50-70)weapons
SUB steal,2
N: It is now at level #<steal>
@skiptake(50-70)weapons
SOUND jail.wav
wait .5
GOTO LINK 43,0
END

@urdead!(50-70)weapons
n: YOU ARE DEAD!!
n: HOW ARE YOU SUPPOSED TO DO ANYTHING????
n: LOL!! I'VE NEVER SEEN A DEAD PERSON FIGHT 
n: OR STEAL BEFORE!!!
n: You had better get healed and then come back!!
WAIT 6
GOTO EXIT
END

@shopkeeperdead(50-70)weapons
ACTOR 4, "Zax", characters4, 3, 15,90
WAIT 2
N: The shopkeeper is dead!
N: You look at his grave in disgrace of what you have done!
WAIT 2
h: DAMN!! I can't buy any items from here anymore!!
h: I guess I should have listened to my conscience!
h: The grave reads -
h: #<ZaxMonth> #<ZaxDate> , #<ZaxYear>
h: Zax (A Former blacksmith who was world developer for WoS),
h: Aged 14
h: R.I.P
h: Hmmmm what's this?? There is a boquet of flowers and note
h: It reads: "To Zax"
h: "I remember when you were a newbie at creating quests and worlds in WoS"
h: "Now you are getting pretty good at creating them since you are past the basics "
h: "You were creating a cool new world too (sob)"
h: Signed: "
h: Hmmm? Nobody left their name, oh well!
h: I can see that I killed enough people! 
h: I'd better leave! 
WAIT 2
GOTO EXIT
END

@jan(50-70)weapons
SET ZaxMonth, January
GOTO @monthset(30-50)weapons
END
@feb(50-70)weapons
SET ZaxMonth, Feburary
GOTO @monthset(50-70)weapons
END
@mar(50-70)weapons
SET ZaxMonth, March
GOTO @monthset(50-70)weapons
END
@apr(50-70)weapons
SET ZaxMonth, April
GOTO @monthset(50-70)weapons
END
@may(50-70)weapons
SET ZaxMonth, May
GOTO @monthset(50-70)weapons
END
@jun(50-70)weapons
SET ZaxMonth, June
GOTO @monthset(50-70)weapons
END
@july(50-70)weapons
SET ZaxMonth, July
GOTO @monthset(50-70)weapons
END
@aug(50-70)weapons
SET ZaxMonth, August
GOTO @monthset(50-70)weapons
END
@sept(50-70)weapons
SET ZaxMonth, September
GOTO @monthset(50-70)weapons
END
@oct(50-70)weapons
SET ZaxMonth, October
GOTO @monthset(50-70)weapons
END
@nov(50-70)weapons
SET ZaxMonth, November
GOTO @monthset(50-70)weapons
END
@dec(50-70)weapons
SET ZaxMonth, December
GOTO @monthset(50-70)weapons
END

;---------
; general baubles shop

SCENE 1073 bwEuroStreet
	THEME	0
;	MUSIC	waltz2.mid
	COMPARE #<dead(50-70)jewelry>, 1
	IF> @shopkeeperdead(50-70jewelry
	IF= @shopkeeperdead(50-70)jewelry
	ACTOR	1,	"Flair", josh52, 1, 5, 90
	POSE	1,4,2
	SEL		1
	MOVE	1,	15, 80
	OFFER2	50,70,22,  50,70,23
END
@end
	END
   
@EventActorclick1
IF DEAD @urdead!(50-70)jewelry
COMPARE #<steal>, 1
IF>,@menu2(50-70)jewelry
IF=,@menu2(50-70)jewelry
MENU "Talk=@talk(50-70)jewelry"
END
@talk(50-70)jewelry
	' You must be the one my sister spoke of!
	' I should apologize for her.
	' She's just feeling bad about her boyfriend.
	' You know goblins.
END

@menu2(50-70)jewelry
MENU "Talk=@talk(50-70)jewelry", "Steal=@steal(50-70)jewelry", "Fight=@fight(50-70)jewelry"
END
@steal(50-70)jewelry
add stealsuccess, 0
add stealfail, 0
add timesteal, 1
add murderfail, 0
add murder, 0
add Timedone, 0
@attempt
N: You are now attepting to steal from the shopkeeper!
WAIT 3
IF R#<steal>, @successful(50-70)jewelry
add stealfail, 1
N: YOU FAILED!!!
1:Guards! Help me
WAIT .5
SOUND jail.wav
wait .5
GOTO LINK 43,0 (goes to jail)
END
@fight(50-70)jewelry
ACTOR 2, "Your Conscience" , mirror, 1, 75,65
2:JUST WAIT 1 SECOND!!!
2:IF you murder this shop keeper you will NEVER see them again!
2:This means that there will be no shop too!!!
2:You MAY get the equipment you want but that will be it because they will die!
2:Also if you get caught you may be in jail for quite some time!!!
2:Will you still fight her or chicken out??
WAIT 1
@menu(50-70)jewelry
MENU "I'm gonna kill her, I don't have a conscience!!=@noconscience(50-70)jewelry", "I won't kill her because bad things may happen=@goodchoice(50-70)jewelry""
2:WHICH WILL YOU DO???
GOTO @menu(50-70)jewelry
@noconscience(50-70)jewelry
2:DON'T SAY I DIDN'T WARN YOU!!!!
WAIT 2
ACTOR 2, "" , character, 4, -100,65
h: YOU ARE GOING DOWN BECAUSE I NEED SOME FREE EQUIPMENT!
1:HOW DARE YOU TRY AND RUIN MY SHOP AND STEAL MY GOODS!!!!
1:I'm not going to fight you like this!!!
1:I'm gonna morph into something much stronger to teach you a lesson!!!!
WAIT 3
IF V70 @fight70
IF V68 @fight68
IF V66 @fight66
IF V64 @fight64
IF V62 @fight62
IF V60 @fight60
IF V58 @fight58
IF V56 @fight56
IF V54 @fight54
IF V52 @fight52
IF V50 @fight50
h: Dang it! I think I'd better leave before starting a fight because my lvl is too low!
WAIT 5
GOTO EXIT
END

@goodchoice(50-70)jewelry
2:You made the best choice because killing is very bad!!
2:Happy shopping :)
WAIT 1
ACTOR 2, "" , character, 4, -100,65
END

@successful(50-70)jewelry
MUSIC smoothcriminal.mid
add stealsuccess, 1
add steal, 1
GIVE Inn
IF R25 @successful(50-70)jewelryfailed
N: You have successfully stolen from the shopkeeper!
N: Your skill has increased by 1
N: It is now at level #<steal>
N: They didn't even know!!
IF V70, @lvl70jewelry
IF V68, @lvl68jewelry 
IF V66, @lvl66jewelry
IF V64, @lvl64jewelry 
IF V62, @lvl62jewelry 
IF V60, @lvl60jewelry
IF V58, @lvl58jewelry
IF V56, @lvl56jewelry 
IF V54, @lvl54jewelry
IF V52, @lvl52jewelry 
IF V50, @lvl50jewelry
h: Damn! My level is too low! I need to be at least level 50 to get this equipment!!
1: GET OUT!!!!! NOWWWWWWW!!!
h: Ok! OK! I'm going, geesh!
WAIT 2
GOTO EXIT
END
@successful(50-70)jewelryfailed
N:Damn someone walking past so you doing it!
ADD Stealfail, 1
1:Guards!!!!
SOUND jail.wav
wait .5
GOTO LINK 43,0
END

@fight50
ACTOR	1,	"Flair", Alien, 1, 15, 80
MOVE 1, -15,80
1:I bring you war!	
WAIT 3.5
FIGHT2 80,80
IF Alive @endfight(50-70)jewelry
IF Dead @dead(50-70)jewelry
END

@fight52
ACTOR	1,	"Flair", Mirror, 1, 15, 80
MOVE 1, -15,80
1:I am sick of you  now!
WAIT 3.5
FIGHT2 81,81
IF Alive @endfight(50-70)jewelry
IF Dead @dead(50-70)jewelry
END

@fight54
ACTOR	1,	"Flair", Aerial, 1, 15, 80
MOVE 1, -15,80
1:I can't be bothered with you!
WAIT 3.5
FIGHT2 84,84
IF Alive @endfight(50-70)jewelry
IF Dead @dead(50-70)jewelry
END

@fight56
ACTOR	1,	"Flair", Aerial, 24, 15, 80
MOVE 1, -15,80
1:I'm gonna muliply to kill you this time! Two aerials should do!
WAIT 3.5
FIGHT2 84,84,84
IF Alive @endfight(50-70)jewelry
IF Dead @dead(50-70)jewelry
END

@fight58
ACTOR	1,	"Flair", Griffen, 24, 15, 80
MOVE 1, -15,80
1:I'm going to flatten you
WAIT 3.5
FIGHT2 88,88
IF Alive @endfight(50-70)jewelry
IF Dead @dead(50-70)jewelry
END

@fight60
ACTOR	1,	"Flair", hell, 24, 15, 80
MOVE 1, -15,80
1:hehhehe
WAIT 3.5
FIGHT2 89,89
IF Alive @endfight(50-70)jewelry
IF Dead @dead(50-70)jewelry
END

@fight62
ACTOR	1,	"Flair", crab, 24, 15, 80
MOVE 1, -15,80
1:FACE HUUUUGGGGGG! Arrr cmon!!!
WAIT 3.5
FIGHT2 92,92
IF Alive @endfight(50-70)jewelry
IF Dead @dead(50-70)jewelry
END

@fight64
ACTOR	1,	"Flair", Scorpion, 24, 15, 80
MOVE 1, -15,80
1:I'm going to use my tail on you
WAIT 3.5
FIGHT2 93,93
IF Alive @endfight(50-70)jewelry
IF Dead @dead(50-70)jewelry
END

@fight66
ACTOR	1,	"Flair", hound, 24, 15, 80
1:I'll shock you
MOVE 1, -15,80
WAIT 3.5
FIGHT2 95,95
IF Alive @endfight(50-70)jewelry
IF Dead @dead(50-70)jewelry
END

@fight68
ACTOR	1,	"Flair", Slave, 24, 15, 80
MOVE 1, -15,80
1:Does my bum look big in this????
WAIT 3.5
FIGHT2 98,98
IF Alive @endfight(50-70)jewelry
IF Dead @dead(50-70)jewelry
END

@fight70
ACTOR	1,	"Flair", zombiesci, 24, 15, 80
MOVE 1, -15,80
1:You like my white coat??
WAIT 3.5
FIGHT2 100,100
IF Alive @endfight(50-70)jewelry
IF Dead @dead(50-70)jewelry
END

@endfight(50-70)jewelry
add murder, 1
SET dead(50-70)jewelry, 1
SET FlairMonth, #<num.timeMonth>
Compare #<FlairMonth>, 1
IF=, @jan(50-70)jewelry
Compare #<FlairMonth>, 2
IF=, @feb(50-70)jewelry
Compare #<FlairMonth>, 3
IF=, @mar(50-70)jewelry
Compare #<FlairMonth>, 4
IF=, @apr(50-70)jewelry
Compare #<FlairMonth>, 5
IF=, @may(50-70)jewelry
Compare #<FlairMonth>, 6
IF=, @jun(50-70)jewelry
Compare #<FlairMonth>, 7
IF=, @july(50-70)jewelry
Compare #<FlairMonth>, 8
IF=, @aug(50-70)jewelry
Compare #<FlairMonth>, 9
IF=, @sept(50-70)jewelry
Compare #<FlairMonth>, 10
IF=, @oct(50-70)jewelry
Compare #<FlairMonth>, 11
IF=, @nov(50-70)jewelry
Compare #<FlairMonth>, 12
IF=, @dec
@monthset(50-70)jewelry
SET FlairDate, #<num.timeDay>
SET FlairYear, #<num.timeYear>
IF R35 @caught(50-70)jewelry
IF V70, @lvl70jewelry
IF V68, @lvl68jewelry 
IF V66, @lvl66jewelry
IF V64, @lvl64jewelry 
IF V62, @lvl62jewelry 
IF V60, @lvl60jewelry
IF V58, @lvl58jewelry
IF V56, @lvl56jewelry 
IF V54, @lvl54jewelry
IF V52, @lvl52jewelry 
IF V50, @lvl50jewelry
N:You get no equipment because your lvl is too low!!
END

@lvl50jewelry
GIVE I925 (ring)
GIVE I974 (amulet)
N: You have recieved all of the level 50 Weapons
GOTO @hopeyouarehappy
END

@lvl52jewelry
GIVE I926 (ring)
GIVE I975 (amulet)
N: You have recieved all of the level 52 Weapons
GOTO @hopeyouarehappy
END

@lvl54jewelry
GIVE I927 (ring)
GIVE I976 (amulet)
N: You have recieved all of the level 54 Weapons
GOTO @hopeyouarehappy
END

@lvl56jewelry
GIVE I928 (ring)
GIVE I977 (amulet)
N: You have recieved all of the level 56 Weapons
GOTO @hopeyouarehappy
END

@lvl58jewelry
GIVE I929 (ring)
GIVE I978 (amulet)
N: You have recieved all of the level 58 Weapons
GOTO @hopeyouarehappy
END

@lvl60jewelry
GIVE I930 (ring)
GIVE I979 (amulet)
N: You have recieved all of the level 60 Weapons
GOTO @hopeyouarehappy
END

@lvl62jewelry
GIVE I931 (ring)
GIVE I980 (amulet)
N: You have recieved all of the level 62 Weapons
GOTO @hopeyouarehappy
END

@lvl64jewelry
GIVE I932 (ring)
GIVE I981 (amulet)
N: You have recieved all of the level 64 Weapons
GOTO @hopeyouarehappy
END

@lvl66jewelry
GIVE I933 (ring)
GIVE I982 (amulet)
N: You have recieved all of the level 66 Weapons
GOTO @hopeyouarehappy
END

@lvl68jewelry
GIVE I934 (ring)
GIVE I983 (amulet)
N: You have recieved all of the level 68 Weapons
GOTO @hopeyouarehappy
END

@lvl70jewelry
GIVE I935 (ring)
GIVE I984 (amulet)
N: You have recieved all of the level 70 Weapons
GOTO @hopeyouarehappy
END

@hopeyouarehappy
COMPARE #<dead(50-70)jewelry>, 1
	IF> @hopeyouarehappy2
	IF= @hopeyouarehappy2
END
@hopeyouarehappy2
n: The shopkeeper is now dead because of you!!!!
n: I hope you are happy!!!
n: IDIOT!!!
END

@dead(50-70)jewelry
MOVE	1,	15, 80
WAIT 2
1:I take back my apology about my sister!!!!
1:Guards!!!
WAIT .3
SOUND jail.wav
ADD murderfail, 1
GOTO LINK 43,0
END

@caught(50-70)jewelry
n: The screams of the shopkeeper go off into the distance!!!
n: A person walking past hears the scream and calls for a guard!!!
WAIT 2
SET Timedone, 1
N: your steal skill has been lowered by 2
COMPARE #<steal>, 23
IF<, @skiptake(50-70)jewelry
IF=, @skiptake(50-70)jewelry
SUB steal,2
N: It is now at level #<steal>
@skiptake(50-70)jewelry
SOUND jail.wav
wait .5
GOTO LINK 43,0
END

@urdead!(50-70)jewelry
n: YOU ARE DEAD!!
n: HOW ARE YOU SUPPOSED TO DO ANYTHING????
n: LOL!! I'VE NEVER SEEN A DEAD PERSON FIGHT 
n: OR STEAL BEFORE!!!
n: You had better get healed and then come back!!
WAIT 6
GOTO EXIT
END

@shopkeeperdead(50-70)jewelry
ACTOR 4, "Flair", characters4, 3, 15,90
WAIT 2
N: The shopkeeper is dead!
N: You look at his grave in disgrace of what you have done!
WAIT 2
h: DAMN!! I can't buy any items from here anymore!!
h: I guess I should have listened to my conscience!
h: The grave reads -
h: #<FlairMonth> #<FlairDate> , #<FlairYear>
h: Flair (formally a worker in a jewelry shop but had aspirations to become an actor),
h: Aged 27
h: R.I.P
h: Hmmmm what's this?? Someone has left a note by the gravestone!
h: It reads: "To Flair"
h: "You were such a great kid and never strayed from good unlike your sister"
h: "I never had a bad thing to say about you it was all good"
h: "You were great at acting and you had only just realised it (sob)"
h: "You would have looked great on the television"
h: "Now the only fame you get is on this gravestone!!"
h: "If I could turn back time I would have told you to go into acting instead of working in the shop"
h: "Then the idiot who killed you couldn't have done it :("!
h: "I'll meet you in heaven when I die (sob) Have a great time there"
h: "signed Angeler(Blair's mother)"
h: Damn! I didn't know I'd have caused so much trouble!
h: I'd better leave now before the police come to investigate!
WAIT 4
GOTO EXIT
END

@jan(50-70)jewelry
SET FlairMonth, January
GOTO @monthset(50-70)jewelry
END
@feb(50-70)jewelry
SET FlairMonth, Feburary
GOTO @monthset(50-70)jewelry
END
@mar(50-70)jewelry
SET FlairMonth, March
GOTO @monthset(50-70)jewelry
END
@apr(50-70)jewelry
SET FlairMonth, April
GOTO @monthset(50-70)jewelry
END
@may(50-70)jewelry
SET FlairMonth, May
GOTO @monthset(50-70)jewelry
END
@jun(50-70)jewelry
SET FlairMonth, June
GOTO @monthset(50-70)jewelry
END
@july(50-70)jewelry
SET FlairMonth, July
GOTO @monthset(50-70)jewelry
END
@aug(50-70)jewelry
SET FlairMonth, August
GOTO @monthset(50-70)jewelry
END
@sept(50-70)jewelry
SET FlairMonth, September
GOTO @monthset(50-70)jewelry
END
@oct(50-70)jewelry
SET FlairMonth, October
GOTO @monthset(50-70)jewelry
END
@nov(50-70)jewelry
SET FlairMonth, November
GOTO @monthset(50-70)jewelry
END
@dec(50-70)jewelry
SET FlairMonth, December
GOTO @monthset(50-70)jewelry
END

;---------
; general boot shop

SCENE 1074 bwEuroStreet
	THEME	0
;	MUSIC	waltz2.mid
	ACTOR	1,	"Sarge", josh53, 1, 5, 90
	POSE	1,4,2
	SEL		1
	MOVE	1,	15, 80
	OFFER2	0,50,20
	
END

@EventActorclick1
IF DEAD @urdead!(50-70)boots
MENU "Talk=@talk(50-70)boots"
END
@talk(70-50)boots
	' Hah! You pedestrians!
	' The cavalry needs no boots to crush you!
	' Death to you all!
	' But at reasonable rates!
	' No Refunds!
	' And no stealing because if you do I'll personally kill you and lock you up for LIFE!!
	h: (I don't won't to go to jail for life so I won't bother stealing!)
	' cmon! Hurry up I ain't got all day
 END

@urdead!(70-50)boots
N: YOU ARE DEAD! YOU NEED TO HEAL YOURSELF FIRST!
END


;--------------
; Generic Casino
;
SCENE 1075		aztec
	THEME	0
;	MUSIC	waltz2.mid
	ACTOR	1,	"Barker", joshRoyalty, 2, 5, 90
	SEL		1
	MOVE	1,	15, 80
	GAME	1
	' Try your luck!
	' Our slots pay the most!
END

;================================ SPRINGWELL 40-60 ==================================
;---------
; item/potion shop
;
SCENE 1080 bwEuroStreet
	THEME	0
;	MUSIC	waltz2.mid
	ACTOR	1,	"Reuben", joshTownsFolk, 1, 5, 90
	POSE	1,7
	SEL		1
	MOVE	1,	15, 80
	OFFER2	0,60,0

	' Hey, you look a little flat. Try some of our private reserve.
END


;---------
; general armor shop

SCENE 1081 bwEuroStreet
	THEME	0
;	MUSIC	waltz2.mid
	ACTOR	1,	"Daniel", joshTownsFolk, 29, 5, 90
	POSE	29,29,16
	SEL		1
	MOVE	1,	15, 80
	OFFER2	40,60,10,  40,60,11,  40,60,20,  40,60,21

	' Say, welcome!
	' Don't mind me.
	' These glasses of mine! 
	' I need an opti-grab!
END

;---------
; general weapons shop

SCENE 1082 bwEuroStreet
	THEME	0
;	MUSIC	waltz2.mid
	ACTOR	1,	"Juliette", joshTownsfolk, 2, 5, 90
	POSE	2,3
	SEL		1
	MOVE	1,	15, 80
	OFFER2	40,60,12,  40,60,13,  40,60,14,  40,60,15,  40,60,16,  40,60,17,  40,60,18,  40,60,19
	' Ooo, you're cute!
END

;---------
; general baubles shop

SCENE 1083 bwEuroStreet
	THEME	0
;	MUSIC	waltz2.mid
	ACTOR	1,	"Kathryn", joshTownsFolk, 32, 5, 90
	POSE	32,31,5
	SEL		1
	MOVE	1,	15, 80
	OFFER2	40,60,22,  40,60,23
	' I just work here in my spare time.
	' Actually, I am a banjo player.
	' Bluegrass, mostly.
END


;---------
; Special item and boot shop

SCENE 1084 bwEuroStreet
	THEME	0
;	MUSIC	waltz2.mid
	ACTOR	1,	"Obi Wan", obi-bySham, 1, 5, 90
	SEL 1
	POSE 1,2
	SEL		1
	MOVE	1,	15, 80
;	OFFER2	0,60,20,705
	OFFER	700,701,702,703,704,705,39,41,99,44,7,45,46,48,100,60,61,118
      IF T444 @normalshop
      IF T300 @ghostlike
      If T523 @normalshop
      ' Hang on a minute, DON'T GO!
      ' I've just recived some new equipment, It's a portable teleportation device!
      ' What it does is make teleportation devices available from anywhere as long as you camp.
      ' Well in other words it is a portable shop which sells special teleportation devices.
      ' You still have to pay for them but it makes it much more Convenient!
      ' It helps me with my business too because all the money is sent to me!
      ' I'll give you one for free if you want? (type yes or no)
      ASK 1000
      IF yes @here
      IF NO  @comebackl8r
END 
@normalshop
IF c11 @boots
1:hi %1 how are you doing?
H: Fine thanks!
1:Good! Hey check outmy items you may like something!
END
@boots
IF T511 @noboots
1:don't go yet I want a word with you!!!
1:I've heard that scavengers are wanting some sky boots but are not able to get them!
1:because of this the pyschopath quest cannot be completed :(
1:Well I'm feeling generous so If you need some sky boots I will give you some for free!!!
1:Do you want some free sky boots? (type yes or no)
ASK 9999
IF Yes @sky
IF No @ok
1:I didn't understand that answer, please tell me again
WAIT 2
GOTO @sky
END
@sky
1:Here are the boots that you requested! You can now complete all quests!!
GIVE I705
GIVE T511
1:cya
END
@ok
1:come back when you need the boots
END
@noboots
1:Sorry but I have already given you some boots!
1:If you have given them away to someone to sell then it's your fault and you won't get anymore
1:Get your mate who you gave them to give you some more.
1:Oh no I forgot, you can't, well I guess you are stuck then :( Sorry
END
@here
        GIVE T523
        1: Here It is! Now when you enter a camp just press the shop button.
        1: Hope you like it :)
        1: Oh we also have a special "portable dow bones device"
        1: For a commision we can help you visit the dow bones from where ever you want.
        1: This item will give you a direct link to the dow bones in the arcade!
        1: It's available in the shop if you want to check it out!
END
@comebackl8r
        1: If you want it come back later.
@ghostlike
1:What has happened to you? You look seriously ill! It looks like you have seen a ghost or something!
1:You also have some serious red eyes!! dang! Are you ok friend?
H: Friend??? I DON'T THINK SO!!! I DON'T EVEN KNOW YOU! I DON'T KNOW WHO TO TRUST ANYMORE!!
1:%1!!! What is wrong? Have you seen a doctor?? I thought we were mates? I guess I was wrong, I thought you were different!
h: I have seen a doctor and I have amnesia!
1: Sorry %1 I didn't realise. Oh man no wonder you got mad at me since you can't remember me (sob)
h: Are we really friends?
1:Of course! I wish you could remember me. I had a friend who had amnesia! He slowly got his memory back after a while
1:He used a technique. All he did was have a rest for a while and he would suddenly remember something in his past
1:He had many flashbacks, they scared him but gave him valuable information about his life
1:Try and remember where you lost your memory! Then maybe that will help you, can you remember anything?
h: ahhhhh!!!!
1:WHAT'S UP????
h: Ahhhh my head!!!! Everthing is blured!!!
1:Oh no! the flashbacks have started! Keep calm
h: Ouch!! Ahhhhh!!! I can see a picture of someone, I can't make it out....
1:Try %1, try!
h: It's becoming clearer now! I can make out.... SOULREAVER?????
1:Who is that???
H: A guy who said to me that we were buddies!! I can see him and he is sucking some lifeforce from me!!!
H: HE IS BEHIND IT!! I AM GOING TO VISIT HIM!!
1: I hope you sort him out!! He deserves it for what he has done to you!
GIVE T444
1: Cya %1 and remember we will always be friends whatever happens!
END

;--------------
; Generic Casino
;
SCENE 1085		aztec
	THEME	0
;	MUSIC	waltz2.mid
	ACTOR	1,	"Barker", joshRoyalty, 2, 5, 90
	SEL		1
	MOVE	1,	15, 80
	GAME	1
	' Try your luck!
	' Our slots pay the most!
END

;================================ SEA GROTTO 70-90 ==================================
;---------
; item/potion shop
;
SCENE 1090 bgUnderWater1, SHOP,	"",	1
	THEME	0
;	MUSIC	waltz2.mid
	ACTOR	1,	"Clown", joshAnimals, 27, 5, 90
	SEL		1
	MOVE	1,	15, 80
	OFFER2	0,90,0
	' You'll have to serve yourself... 
	' I have no hands.
END

;---------
; general armor shop

SCENE 1091 bgUnderWater1, SHOP,	"",	1
	THEME	0
;	MUSIC	waltz2.mid
	COMPARE #<dead(70-90)armour>, 1
	IF> @shopkeeperdead(70-90)armour
	IF= @shopkeeperdead(70-90)armour
	ACTOR	1,	"Sammy", joshAnimals, 13, 5, 90
	SEL		1
	MOVE	1,	15, 80
	OFFER2	70,90,10,  70,90,11,  70,90,20,  70,90,21
END

@end
	END
   
@EventActorclick1
IF DEAD @urdead!(70-90)armour
COMPARE #<steal>, 1
IF>,@menu2(70-90)armour
IF=,@menu2(70-90)armour
MENU "Talk=@talk(70-90)armour"
END
@talk(70-90)armour
	' Arf Arf!
	' Got any abalone on you?
	' I SAID! ARF ARF!
	' HAVE YOU GOT ANY ABALONE????
	h: NO!!! I HAVEN'T
	' Why did you come then??
	H: To buy some armour! Want did yo think????
	' Nevermind! Just hurry up and buy some!
END
@menu2(70-90)armour
MENU "Talk=@talk(70-90)armour", "Steal=@steal(70-90)armour", "Fight=@fight(70-90)armour"
END
@steal(70-90)armour
add stealsuccess, 0
add stealfail, 0
add timesteal, 1
add murderfail, 0
add murder, 0
add Timedone, 0
@attempt
N: You are now attepting to steal from the shopkeeper!
WAIT 3
IF R#<steal>, @successful(70-90)armour
add stealfail, 1
N: YOU FAILED!!!
SOUND alarm.wav
1: GUARDS!
WAIT .5
SOUND jail.wav
wait .5
GOTO LINK 43,0 (goes to jail)
END
@fight(70-90)armour
ACTOR 2, "Your Conscience" , mirror, 1, 75,65
2:JUST WAIT 1 SECOND!!!
2:IF you murder this shop keeper you will NEVER see them again!
2:This means that there will be no shop too!!!
2:You MAY get the equipment you want but that will be it because they will die!
2:Also if you get caught you may be in jail for quite some time!!!
2:Will you still fight him or chicken out??
WAIT 1
@menu(70-90)armour
MENU "I'm gonna kill him, I don't have a conscience!!=@noconscience(70-90)armour", "I won't kill him because bad things may happen=@goodchoice(70-90)armour""
2:WHICH WILL YOU DO???
GOTO @menu(70-90)armour
@noconscience(70-90)armour
2:DON'T SAY I DIDN'T WARN YOU!!!!
WAIT 2
ACTOR 2, "" , character, 4, -100,65
h: YOU ARE GOING DOWN BECAUSE I NEED SOME FREE EQUIPMENT!
1:Well I'm not going to take your bleep so I'm going to bleeeping kill you!!!
WAIT 1
SOUND notoneofus.wav
h: Well bleep you then!!! 
1: I'm going to morph into a monster and you will bleeping die!!!!!
WAIT 3
IF V90 @fight90
IF V88 @fight88
IF V86 @fight86
IF V84 @fight84
IF V82 @fight82
IF V70 @fight70
IF V78 @fight78
IF V76 @fight76
IF V74 @fight74
IF V72 @fight72
IF V70 @fight70
h: Dang it! I think I'd better leave before starting a fight because my lvl is too low!
WAIT 5
GOTO EXIT
END

@goodchoice(70-90)armour
2:You made the best choice because killing is very bad!!
2:Happy shopping :)
WAIT 1
ACTOR 2, "" , character, 4, -100,65
END

@successful(70-90)armour
MUSIC smoothcriminal.mid
add stealsuccess, 1
add steal, 1
GIVE Inn
IF R25 @successful(70-90)armourfailed
N: You have successfully stolen from the shopkeeper!
N: Your skill has increased by 1
N: It is now at level #<steal>
N: They didn't even know!!
IF V90, @lvl70armour 
IF V88, @lvl88armour 
IF V86, @lvl86armour
IF V84, @lvl84armour 
IF V82, @lvl82armour 
IF V70, @lvl70armour
IF V78, @lvl78armour 
IF V76, @lvl76armour 
IF V74, @lvl74armour
IF V72, @lvl72armour 
IF V70, @lvl70armour
h: Damn! My level is too low! I need to be at least level 70 to get this equipment!!
1: GET OUT!!!!! NOWWWWWWW!!!
h: Ok! OK! I'm going, geesh!
WAIT 2
GOTO EXIT
END
@successful(70-90)armourfailed
N:Damn someone walking past so you doing it!
ADD Stealfail, 1
SOUND alarm.wav
1:Guards!!!!
SOUND jail.wav
wait .5
GOTO LINK 43,0
END

@fight70
ACTOR	1,	"Sammy", Zombiesci, 1, 15, 80
MOVE 1, -15,80
1:I'll get my coat!
WAIT 3.5
FIGHT2 100,100
IF Alive @endfight(70-90)armour
IF Dead @dead(70-90)armor
END

@fight72
ACTOR	1,	"Sammy", dragon2, 1, 15, 80
MOVE 1, -15,80
1:You don't wanna get me Angry!!!
WAIT 3.5
FIGHT2 102,102
IF Alive @endfight(70-90)armour
IF Dead @dead(70-90)armor
END

@fight74
ACTOR	1,	"Sammy", seal, 1, 15, 80
MOVE 1, -15,80
1:I feel like mulitplying myself!
WAIT 3.5
FIGHT2 104,104,104
IF Alive @endfight(70-90)armour
IF Dead @dead(70-90)armor
END

@fight76
ACTOR	1,	"Sammy", legend, 24, 15, 80
MOVE 1, -15,80
1:I don't think one of me is enough!!
WAIT 3.5
FIGHT2 105,105,105
IF Alive @endfight(70-90)armour
IF Dead @dead(70-90)armor
END

@fight78
ACTOR	1,	"Sammy", drag, 24, 15, 80
MOVE 1, -15,80
1:Bring it on!!
WAIT 3.5
FIGHT2 111,111
IF Alive @endfight(70-90)armour
IF Dead @dead(70-90)armor
END

@fight80
ACTOR	1,	"Sammy", archer, 24, 15, 80
MOVE 1, -15,80
1:I am a real demon!
WAIT 3.5
FIGHT2 123,123
IF Alive @endfight(70-90)armour
IF Dead @dead(70-90)armor
END

@fight82
ACTOR	1,	"Sammy", archer, 24, 15, 80
MOVE 1, -15,80
1:Why don't you fight 2 of me??
WAIT 3.5
FIGHT2 123,123,123
IF Alive @endfight(70-90)armour
IF Dead @dead(70-90)armor
END

@fight84
ACTOR	1,	"Sammy", archer, 24, 15, 80
MOVE 1, -15,80
1:I feel like muliplying!!!
WAIT 3.5
FIGHT2 123,123,123,123
IF Alive @endfight(70-90)armour
IF Dead @dead(70-90)armor
END

@fight86
ACTOR	1,	"Sammy", butterfly, 24, 15, 80
1:I will shock you!
MOVE 1, -15,80
WAIT 3.5
FIGHT2 128,128
IF Alive @endfight(70-90)armour
IF Dead @dead(70-90)armor
END

@fight88
ACTOR	1,	"Sammy", lion, 24, 15, 80
MOVE 1, -15,80
1:Just TRY and kill me! ha ha
WAIT 3.5
FIGHT2 1005,1005
IF Alive @endfight(70-90)armour
IF Dead @dead(70-90)armor
END

@fight90
ACTOR	1,	"Sammy", snake, 24, 15, 80
MOVE 1, -15,80
1:Hey I'm Sammy the Snake! How's that for alliteration??
WAIT 3.5
FIGHT2 213,213
IF Alive @endfight(70-90)armour
IF Dead @dead(70-90)armor
END

@endfight(70-90)armour
SOUND bleeding.wav
add murder, 1
SET dead(70-90)armour, 1
SET SammyMonth, #<num.timeMonth>
Compare #<SammyMonth>, 1
IF=, @jan(70-90)armour
Compare #<SammyMonth>, 2
IF=, @feb(70-90)armour
Compare #<SammyMonth>, 3
IF=, @mar(70-90)armour
Compare #<SammyMonth>, 4
IF=, @apr(70-90)armour
Compare #<SammyMonth>, 5
IF=, @may(70-90)armour
Compare #<SammyMonth>, 6
IF=, @jun(70-90)armour
Compare #<SammyMonth>, 7
IF=, @july(70-90)armour
Compare #<SammyMonth>, 8
IF=, @aug(70-90)armour
Compare #<SammyMonth>, 9
IF=, @sept(70-90)armour
Compare #<SammyMonth>, 10
IF=, @oct(70-90)armour
Compare #<SammyMonth>, 11
IF=, @nov(70-90)armour
Compare #<SammyMonth>, 12
IF=, @dec
@monthset(70-90)armour
SET SammyDate, #<num.timeDay>
SET SammyYear, #<num.timeYear>
IF R35 @caught(70-90)armour
IF V90, @lvl70armour 
IF V88, @lvl88armour 
IF V86, @lvl86armour
IF V84, @lvl84armour 
IF V82, @lvl82armour 
IF V70, @lvl70armour
IF V78, @lvl78armour 
IF V76, @lvl76armour 
IF V74, @lvl74armour
IF V72, @lvl72armour 
IF V70, @lvl70armour
N:You get no equipment because your lvl is too low!!
END

@lvl70armour
GIVE I235 (helmet)
GIVE I283 (armour)
GIVE I835 (shield)
N: You have recieved all of the level 70 armour
GOTO @hopeyouarehappy
END

@lvl72armour
GIVE I236 (helmet)
GIVE I284 (armour)
GIVE I836 (shield)
N: You have recieved all of the level 72 armour
GOTO @hopeyouarehappy
END

@lvl74armour
GIVE I237 (helmet)
GIVE I285 (armour)
GIVE I837 (shield)
N: You have recieved all of the level 74 armour
GOTO @hopeyouarehappy
END

@lvl76armour
GIVE I238 (helmet)
GIVE I286 (armour)
GIVE I838 (shield)
N: You have recieved all of the level 76 armour
GOTO @hopeyouarehappy
END

@lvl78armour
GIVE I239 (helmet)
GIVE I287 (armour)
GIVE I839 (shield)
N: You have recieved all of the level 78 armour
GOTO @hopeyouarehappy
END

@lvl80armour
GIVE I240 (helmet)
GIVE I288 (armour)
GIVE I840 (shield)
N: You have recieved all of the level 80 armour
GOTO @hopeyouarehappy
END

@lvl82armour
GIVE I241 (helmet)
GIVE I289 (armour)
GIVE I841 (shield)
N: You have recieved all of the level 82 armour
GOTO @hopeyouarehappy
END

@lvl84armour
GIVE I242 (helmet)
GIVE I290 (armour)
GIVE I842 (shield)
N: You have recieved all of the level 84 armour
GOTO @hopeyouarehappy
END

@lvl86armour
GIVE I243 (helmet
GIVE I291 (armour)
GIVE I843 (shield)
N: You have recieved all of the level 86 armour
GOTO @hopeyouarehappy
END

@lvl88armour
GIVE I244 (helmet)
GIVE I292 (armour)
GIVE I844 (shield)
N: You have recieved all of the level 88 armour
GOTO @hopeyouarehappy
END

@lvl90armour
GIVE I245 (helmet)
GIVE I293 (armour)
GIVE I845 (shield)
N: You have recieved all of the level 90 armour
GOTO @hopeyouarehappy
END

@hopeyouarehappy
COMPARE #<dead(70-90)armour>, 1
	IF> @hopeyouarehappy2
	IF= @hopeyouarehappy2
END
@hopeyouarehappy2
n: The shopkeeper is now dead because of you!!!!
n: I hope you are happy!!!
n: IDIOT!!!
END

@dead(70-90)armor
MOVE	1,	15, 80
WAIT 2
1:LOL I WASTED YOU
SOUND alarm.wav
1:Guards!
WAIT .5
SOUND jail.wav
ADD murderfail, 1
GOTO LINK 43,0
END

@caught(70-90)armour
n: The screams of the shopkeeper go off into the distance!!!
n: A person walking past hears the scream and calls for a guard!!!
SOUND alarm.wav
WAIT 2
SET Timedone, 1
N: your steal skill has been lowered by 2
COMPARE #<steal>, 23
IF<, @skiptake(70-90)armour
IF=, @skiptake(70-90)armour
SUB steal,2
N: It is now at level #<steal>
@skiptake(70-90)armour
SOUND jail.wav
wait .5
GOTO LINK 43,0
END

@urdead!(70-90)armour
n: YOU ARE DEAD!!
n: HOW ARE YOU SUPPOSED TO DO ANYTHING????
n: LOL!! I'VE NEVER SEEN A DEAD PERSON FIGHT 
n: OR STEAL BEFORE!!!
n: You had better get healed and then come back!!
WAIT 6
GOTO EXIT
END

@shopkeeperdead(70-90)armour
ACTOR 4, "Sammy", characters4, 3, 15,90
WAIT 2
N: The shopkeeper is dead!
N: You look at his grave in disgrace of what you have done!
WAIT 2
h: DAMN!! I can't buy any items from here anymore!!
h: I guess I should have listened to my conscience!
h: The grave reads -
h: #<SammyMonth> #<SammyDate> , #<SammyYear>
h: Sammy the Seal (A reject from a local circus due to excess abalone ),
h: Aged 30
h: R.I.P
h: Hmmmm what's this?? There is note left on the grave
h: It reads: "To Sammy"
h: "I'm sorry that you had to the leave the circus so suddenly but you were having too much fun!!"
h: "(sob) I didn't think you'd get a new job and then get murdered in cold blood!"
h: "You didn't deserve that!"
h: "(Sob) I was going to do it for you!"
H: "I would have put you out of your misery but someone did it for me (sob)
h: "Anyway rest in peace"
h: "signed the cirus trainer"
h: I'm outta here!!
h: That circus Trainer sounds like a Psycho!!
WAIT 3
GOTO EXIT
END
@jan(70-90)armour
SET SammyMonth, January
GOTO @monthset(70-90)armour
END
@feb(70-90)armour
SET SammyMonth, Feburary
GOTO @monthset(70-90)armour
END
@mar(70-90)armour
SET SammyMonth, March
GOTO @monthset(70-90)armour
END
@apr(70-90)armour
SET SammyMonth, April
GOTO @monthset(70-90)armour
END
@may(70-90)armour
SET SammyMonth, May
GOTO @monthset(70-90)armour
END
@jun(70-90)armour
SET SammyMonth, June
GOTO @monthset(70-90)armour
END
@july(70-90)armour
SET SammyMonth, July
GOTO @monthset(70-90)armour
END
@aug(70-90)armour
SET SammyMonth, August
GOTO @monthset(70-90)armour
END
@sept(70-90)armour
SET SammyMonth, September
GOTO @monthset(70-90)armour
END
@oct(70-90)armour
SET SammyMonth, October
GOTO @monthset(70-90)armour
END
@nov(70-90)armour
SET SammyMonth, November
GOTO @monthset(70-90)armour
END
@dec(70-90)armour
SET SammyMonth, December
GOTO @monthset(70-90)armour
END

;---------
; general weapons shop

SCENE 1092 bgUnderWater1, SHOP,	"",	1
	THEME	0
;	MUSIC	waltz2.mid
	COMPARE #<dead(70-90)weapons>, 1
	IF> @shopkeeperdead(70-90)weapons
	IF= @shopkeeperdead(70-90)weapons
	ACTOR	1,	"Bruce Lee", Bruce, 1, 5, 90
	POSE	1,4,2
	SEL		1
	MOVE	1,	15, 80
	OFFER2	70,90,12,  70,90,13,  70,90,14,  70,90,15,  70,90,16,  70,90,17,  70,90,18,  70,90,19
END
@end
	END
   
@EventActorclick1
IF DEAD @urdead!(70-90)weapons
COMPARE #<steal>, 1
IF>,@menu2(70-90)weapons
IF=,@menu2(70-90)weapons
MENU "Talk=@talk(70-90)weapons"
END
@talk(70-90)weapons
	' I AM A GENIUS!
	' Hi %1
	' Choose you weapons wisely! I recommend fists but afterall it's your choice!!
END

@menu2(70-90)weapons
MENU "Talk=@talk(70-90)weapons", "Steal=@steal(70-90)weapons", "Fight=@fight(70-90)weapons"
END
@steal(70-90)weapons
add stealsuccess, 0
add stealfail, 0
add timesteal, 1
add murderfail, 0
add murder, 0
add Timedone, 0
@attempt
N: You are now attepting to steal from the shopkeeper!
WAIT 3
IF R#<steal>, @successful(70-90)weapons
add stealfail, 1
N: YOU FAILED!!!
SOUND alarm.wav
1:GUARDS, HEEEEELLLPPPP!!!!!
WAIT .5
SOUND jail.wav
wait .5
GOTO LINK 43,0 (goes to jail)
END
@fight(70-90)weapons
ACTOR 2, "Your Conscience" , mirror, 1, 75,65
2:JUST WAIT 1 SECOND!!!
2:IF you murder this shop keeper you will NEVER see them again!
2:This means that there will be no shop too!!!
2:You MAY get the equipment you want but that will be it because they will die!
2:Also if you get caught you may be in jail for quite some time!!!
2:Will you still fight him or chicken out??
WAIT 1
@menu(70-90)weapons
MENU "I'm gonna kill him, I don't have a conscience!!=@noconscience(70-90)weapons", "I won't kill him then because bad things may happen=@goodchoice(70-90)weapons""
2:WHICH WILL YOU DO???
GOTO @menu(70-90)weapons
@noconscience(70-90)weapons
2:DON'T SAY I DIDN'T WARN YOU!!!!
WAIT 2
ACTOR 2, "" , character, 4, -100,65
h: YOU ARE GOING DOWN BECAUSE I NEED SOME FREE EQUIPMENT!
1:HOW DARE YOU TRY AND RUIN MY SHOP AND STEAL MY GOODS!!!!
WAIT 1
SOUND notoneofus.wav
1:I'm not going to fight you like this!!!
1:I'm gonna morph into something much stronger to teach you a lesson!!!!
WAIT 3
IF V90 @fight90
IF V88 @fight88
IF V86 @fight86
IF V84 @fight84
IF V82 @fight82
IF V70 @fight70
IF V78 @fight78
IF V76 @fight76
IF V74 @fight74
IF V72 @fight72
IF V70 @fight70
h: Dang it! I think I'd better leave before starting a fight because my lvl is too low!
WAIT 5
GOTO EXIT
END

@goodchoice(70-90)weapons
2:You made the best choice because killing is very bad!!
2:Happy shopping :)
WAIT 1
ACTOR 2, "" , character, 4, -100,65
END

@successful(70-90)weapons
MUSIC smoothcriminal.mid
add stealsuccess, 1
add steal, 2
GIVE Inn
IF R25 @successful(70-90)weaponsfailed
N: You have successfully stolen from the shopkeeper!
N: Your skill has increased by 2
N: It is now at level #<steal>
N: They didn't even know!!
IF V90, @lvl90weapons
IF V88, @lvl88weapons 
IF V86, @lvl86weapons
IF V84, @lvl84weapons
IF V82, @lvl82weapons
IF V70, @lvl70weapons
IF V78, @lvl78weapons
IF V76, @lvl76weapons
IF V74, @lvl74weapons
IF V72, @lvl72weapons
IF V70, @lvl70weapons
h: Damn! My level is too low! I need to be at least level 70 to get this equipment!!
1: GET OUT!!!!! NOWWWWWWW!!!
h: Ok! OK! I'm going, geesh!
WAIT 2
GOTO EXIT
END
@successful(70-90)weaponsfailed
N:Damn someone walking past so you doing it!
ADD Stealfail, 1
SOUND alarm.wav
1:Guards!!!!
SOUND jail.wav
wait .5
GOTO LINK 43,0
END

@fight70
ACTOR	1,	"Bruce Lee", Zombiesci, 1, 15, 80
MOVE 1, -15,80
1:I'm going to hit you square in the balls
WAIT 3.5
FIGHT2 100,100
IF Alive @endfight(70-90)weapons
IF Dead @dead(70-90)weapons
END

@fight72
ACTOR	1,	"Bruce Lee", dragon2, 1, 15, 80
MOVE 1, -15,80
1:ROAAR
WAIT 3.5
FIGHT2 102,102
IF Alive @endfight(70-90)weapons
IF Dead @dead(70-90)weapons
END

@fight74
ACTOR	1,	"Bruce Lee", seal, 1, 15, 80
MOVE 1, -15,80
1:I feel like mulitplying myself!
WAIT 3.5
FIGHT2 104,104,104
IF Alive @endfight(70-90)weapons
IF Dead @dead(70-90)weapons
END

@fight76
ACTOR	1,	"Bruce Lee", legend, 24, 15, 80
MOVE 1, -15,80
1:I am a legend!!
WAIT 3.5
FIGHT2 105,105,105
IF Alive @endfight(70-90)weapons
IF Dead @dead(70-90)weapons
END

@fight78
ACTOR	1,	"Bruce Lee", drag, 24, 15, 80
MOVE 1, -15,80
1:I'm going to DRAG you through the dirt
WAIT 3.5
FIGHT2 111,111
IF Alive @endfight(70-90)weapons
IF Dead @dead(70-90)weapons
END

@fight80
ACTOR	1,	"Bruce Lee", archer, 24, 15, 80
MOVE 1, -15,80
1:I'll show you archery!
WAIT 3.5
FIGHT2 123,123
IF Alive @endfight(70-90)weapons
IF Dead @dead(70-90)weapons
END

@fight82
ACTOR	1,	"Bruce Lee", archer, 24, 15, 80
MOVE 1, -15,80
1:Cmon! Try and kill 3 of me! :)
WAIT 3.5
FIGHT2 123,123,123
IF Alive @endfight(70-90)weapons
IF Dead @dead(70-90)weapons
END

@fight84
ACTOR	1,	"Bruce Lee", archer, 24, 15, 80
MOVE 1, -15,80
1:I'm going to quadruple myself!
WAIT 3.5
FIGHT2 123,123,123,123
IF Alive @endfight(70-90)weapons
IF Dead @dead(70-90)weapons
END

@fight86
ACTOR	1,	"Bruce Lee", butterfly, 24, 15, 80
1:*flutter* *Flutter*
MOVE 1, -15,80
WAIT 3.5
FIGHT2 128,128
IF Alive @endfight(70-90)weapons
IF Dead @dead(70-90)weapons
END

@fight88
ACTOR	1,	"Bruce Lee", lion, 24, 15, 80
MOVE 1, -15,80
1:I am a lion inside!
WAIT 3.5
FIGHT2 1005,1005
IF Alive @endfight(70-90)weapons
IF Dead @dead(70-90)weapons
END

@fight90
ACTOR	1,	"Bruce Lee", snake, 24, 15, 80
MOVE 1, -15,80
1:I'm going to make you cringe in fear
WAIT 3.5
FIGHT2 213,213
IF Alive @endfight(70-90)weapons
IF Dead @dead(70-90)weapons
END

@endfight(70-90)weapons
SOUND bleeding.wav
add murder, 1
SET dead(70-90)weapons, 1
SET BruceMonth, #<num.timeMonth>
Compare #<BruceMonth>, 1
IF=, @jan(70-90)weapons
Compare #<BruceMonth>, 2
IF=, @feb(70-90)weapons
Compare #<BruceMonth>, 3
IF=, @mar(70-90)weapons
Compare #<BruceMonth>, 4
IF=, @apr(70-90)weapons
Compare #<BruceMonth>, 5
IF=, @may(70-90)weapons
Compare #<BruceMonth>, 6
IF=, @jun(70-90)weapons
Compare #<BruceMonth>, 7
IF=, @july(70-90)weapons
Compare #<BruceMonth>, 8
IF=, @aug(70-90)weapons
Compare #<BruceMonth>, 9
IF=, @sept(70-90)weapons
Compare #<BruceMonth>, 10
IF=, @oct(70-90)weapons
Compare #<BruceMonth>, 11
IF=, @nov(70-90)weapons
Compare #<BruceMonth>, 12
IF=, @dec
@monthset(70-90)weapons
SET BruceDate, #<num.timeDay>
SET BruceYear, #<num.timeYear>
IF R35 @caught(70-90)weapons
IF V90, @lvl90weapons
IF V88, @lvl88weapons 
IF V86, @lvl86weapons
IF V84, @lvl84weapons
IF V82, @lvl82weapons
IF V70, @lvl70weapons
IF V78, @lvl78weapons
IF V76, @lvl76weapons
IF V74, @lvl74weapons
IF V72, @lvl72weapons
IF V70, @lvl70weapons
N:You get no equipment because your lvl is too low!!
END

@lvl70weapons
GIVE I335 (Sword)
GIVE I435 (Staff)
GIVE I535 (Bow)
GIVE I635 (Music)
GIVE I385 (Fist)
GIVE I485 (Dart)
GIVE I585 (Book)
GIVE I685 (Spirit)
N: You have recieved all of the level 70 Weapons
GOTO @hopeyouarehappy
END

@lvl72weapons
GIVE I336 (Sword)
GIVE I436 (Staff)
GIVE I536 (Bow)
GIVE I636 (Music)
GIVE I386 (Fist)
GIVE I486 (Dart)
GIVE I586 (Book)
GIVE I686 (Spirit)
N: You have recieved all of the level 72 Weapons
GOTO @hopeyouarehappy
END

@lvl74weapons
GIVE I337 (Sword)
GIVE I437 (Staff)
GIVE I537 (Bow)
GIVE I637 (Music)
GIVE I387 (Fist)
GIVE I487 (Dart)
GIVE I587 (Book)
GIVE I687 (Spirit)
N: You have recieved all of the level 74 Weapons
GOTO @hopeyouarehappy
END

@lvl76weapons
GIVE I338 (Sword)
GIVE I438 (Staff)
GIVE I538 (Bow)
GIVE I638 (Music)
GIVE I388 (Fist)
GIVE I488 (Dart)
GIVE I588 (Book)
GIVE I688 (Spirit)
N: You have recieved all of the level 76 Weapons
GOTO @hopeyouarehappy
END

@lvl78weapons
GIVE I339 (Sword)
GIVE I439 (Staff)
GIVE I539 (Bow)
GIVE I639 (Music)
GIVE I389 (Fist)
GIVE I489 (Dart)
GIVE I589 (Book)
GIVE I689 (Spirit)
N: You have recieved all of the level 78 Weapons
GOTO @hopeyouarehappy
END

@lvl80weapons
GIVE I340 (Sword)
GIVE I440 (Staff)
GIVE I540 (Bow)
GIVE I640 (Music)
GIVE I390 (Fist)
GIVE I490 (Dart)
GIVE I590 (Book)
GIVE I690 (Spirit)
N: You have recieved all of the level 80 Weapons
GOTO @hopeyouarehappy
END

@lvl82weapons
GIVE I341 (Sword)
GIVE I441 (Staff)
GIVE I541 (Bow)
GIVE I641 (Music)
GIVE I391 (Fist)
GIVE I491 (Dart)
GIVE I591 (Book)
GIVE I691 (Spirit)
N: You have recieved all of the level 82 Weapons
GOTO @hopeyouarehappy
END

@lvl84weapons
GIVE I342 (Sword)
GIVE I442 (Staff)
GIVE I542 (Bow)
GIVE I642 (Music)
GIVE I392 (Fist)
GIVE I492 (Dart)
GIVE I592 (Book)
GIVE I692 (Spirit)
N: You have recieved all of the level 84 Weapons
GOTO @hopeyouarehappy
END

@lvl86weapons
GIVE I343 (Sword)
GIVE I443 (Staff)
GIVE I543 (Bow)
GIVE I643 (Music)
GIVE I393 (Fist)
GIVE I493 (Dart)
GIVE I593 (Book)
GIVE I693 (Spirit)
N: You have recieved all of the level 86 Weapons
GOTO @hopeyouarehappy
END

@lvl88weapons
GIVE I344 (Sword)
GIVE I444 (Staff)
GIVE I544 (Bow)
GIVE I644 (Music)
GIVE I394 (Fist)
GIVE I494 (Dart)
GIVE I594 (Book)
GIVE I694 (Spirit)
N: You have recieved all of the level 88 Weapons
GOTO @hopeyouarehappy
END

@lvl90weapons
GIVE I345 (Sword)
GIVE I445 (Staff)
GIVE I545 (Bow)
GIVE I645 (Music)
GIVE I395 (Fist)
GIVE I495 (Dart)
GIVE I595 (Book)
GIVE I695 (Spirit)
N: You have recieved all of the level 90 Weapons
GOTO @hopeyouarehappy
END

@hopeyouarehappy
COMPARE #<dead(70-90)weapons>, 1
	IF> @hopeyouarehappy2
	IF= @hopeyouarehappy2
END
@hopeyouarehappy2
n: The shopkeeper is now dead because of you!!!!
n: I hope you are happy!!!
n: IDIOT!!!
END

@dead(70-90)weapons
MOVE	1,	15, 80
WAIT 2
1:LOL! you died!
SOUND alarm.wav
1:Guards!!!
WAIT .3
SOUND jail.wav
ADD murderfail, 1
GOTO LINK 43,0
END

@caught(70-90)weapons
n: The screams of the shopkeeper go off into the distance!!!
n: A person walking past hears the scream and calls for a guard!!!
SOUND alarm.wav
WAIT 2
SET Timedone, 1
N: your steal skill has been lowered by 2
COMPARE #<steal>, 23
IF<, @skiptake(70-90)weapons
IF=, @skiptake(70-90)weapons
SUB steal,2
N: It is now at level #<steal>
@skiptake(70-90)weapons
SOUND jail.wav
wait .5
GOTO LINK 43,0
END

@urdead!(70-90)weapons
n: YOU ARE DEAD!!
n: HOW ARE YOU SUPPOSED TO DO ANYTHING????
n: LOL!! I'VE NEVER SEEN A DEAD PERSON FIGHT 
n: OR STEAL BEFORE!!!
n: You had better get healed and then come back!!
WAIT 6
GOTO EXIT
END

@shopkeeperdead(70-90)weapons
ACTOR 4, "Bruce Lee", characters4, 3, 15,90
WAIT 2
N: The shopkeeper is dead!
N: You look at his grave in disgrace of what you have done!
WAIT 2
h: DAMN!! I can't buy any items from here anymore!!
h: I guess I should have listened to my conscience!
h: The grave reads -
h: #<BruceMonth> #<BruceDate> , #<BruceYear>
h: Brue Lee (A Former karate expect and WoS player),
h: Aged 35
h: R.I.P
h: Hmmmm what's this?? There is a boquet of flowers and note
h: It reads: "To Bruce"
h: "You were great actor and nobody can forget all of your famous fight scenes!"
h: "People always hoped that you could have teamed up with Jackie Chan but this never happened "
h: "Rest in peace and always enjoy your kong foo forever!"
h: Signed: Bruce's mate John"
h: lol I wondered who he was!
h: I didn't realise that he was bruce lee though. I'm surprised a man of his talent didn't beat me!!"
h: Oh well! I'd better leave before he comes back from the dead!
WAIT 4
GOTO EXIT
END

@jan(70-90)weapons
SET BruceMonth, January
GOTO @monthset(70-90)weapons
END
@feb(70-90)weapons
SET BruceMonth, Feburary
GOTO @monthset(70-90)weapons
END
@mar(70-90)weapons
SET BruceMonth, March
GOTO @monthset(70-90)weapons
END
@apr(70-90)weapons
SET BruceMonth, April
GOTO @monthset(70-90)weapons
END
@may(70-90)weapons
SET BruceMonth, May
GOTO @monthset(70-90)weapons
END
@jun(70-90)weapons
SET BruceMonth, June
GOTO @monthset(70-90)weapons
END
@july(70-90)weapons
SET BruceMonth, July
GOTO @monthset(70-90)weapons
END
@aug(70-90)weapons
SET BruceMonth, August
GOTO @monthset(70-90)weapons
END
@sept(70-90)weapons
SET BruceMonth, September
GOTO @monthset(70-90)weapons
END
@oct(70-90)weapons
SET BruceMonth, October
GOTO @monthset(70-90)weapons
END
@nov(70-90)weapons
SET BruceMonth, November
GOTO @monthset(70-90)weapons
END
@dec(70-90)weapons
SET BruceMonth, December
GOTO @monthset(70-90)weapons
END

;---------
; general baubles shop

SCENE 1093 bgUnderWater1, SHOP,	"",	1
	THEME	0
;	MUSIC	waltz2.mid
	COMPARE #<dead(70-90)jewelry>, 1
	IF> @shopkeeperdead(70-90)jewelry
	IF= @shopkeeperdead(70-90)jewelry
	ACTOR	1,	"Octavia", josh47, 1, 5, 90
	POSE	1,4,3
	SEL		1
	MOVE	1,	15, 80
	OFFER2	70,90,22,  70,90,23
END

@end
	END
   
@EventActorclick1
IF DEAD @urdead!(70-90)jewelry
COMPARE #<steal>, 1
IF>,@menu2(70-90)jewelry
IF=,@menu2(70-90)jewelry
MENU "Talk=@talk(70-90)jewelry"
END
@talk(70-90)jewelry
	' I can wear 8 rings at once!
	' That's my secret to being pretty!
	' I could just HUG you.. and SQUEEZE you...
	' Where are you going?
END

@menu2(70-90)jewelry
MENU "Talk=@talk(70-90)jewelry", "Steal=@steal(70-90)jewelry", "Fight=@fight(70-90)jewelry"
END
@steal(70-90)jewelry
add stealsuccess, 0
add stealfail, 0
add timesteal, 1
add murderfail, 0
add murder, 0
add Timedone, 0
@attempt
N: You are now attepting to steal from the shopkeeper!
WAIT 3
IF R#<steal>, @successful(70-90)jewelry
add stealfail, 1
N: YOU FAILED!!!
1:Guards! Help me
WAIT .5
SOUND jail.wav
wait .5
GOTO LINK 43,0 (goes to jail)
END
@fight(70-90)jewelry
ACTOR 2, "Your Conscience" , mirror, 1, 75,65
2:JUST WAIT 1 SECOND!!!
2:IF you murder this shop keeper you will NEVER see them again!
2:This means that there will be no shop too!!!
2:You MAY get the equipment you want but that will be it because they will die!
2:Also if you get caught you may be in jail for quite some time!!!
2:Will you still fight her or chicken out??
WAIT 1
@menu(50-70)jewelry
MENU "I'm gonna kill her, I don't have a conscience!!=@noconscience(70-90)jewelry", "I won't kill her because bad things may happen=@goodchoice(70-90)jewelry""
2:WHICH WILL YOU DO???
GOTO @menu(70-90)jewelry
@noconscience(70-90)jewelry
2:DON'T SAY I DIDN'T WARN YOU!!!!
WAIT 2
ACTOR 2, "" , character, 4, -100,65
h: YOU ARE GOING DOWN BECAUSE I NEED SOME FREE EQUIPMENT!
1:HOW DARE YOU TRY AND RUIN MY SHOP AND STEAL MY GOODS!!!!
1:I'm not going to fight you like this!!!
1:I'm gonna morph into something much stronger to teach you a lesson!!!!
WAIT 3
IF V90 @fight90
IF V88 @fight88
IF V86 @fight86
IF V84 @fight84
IF V82 @fight82
IF V70 @fight70
IF V78 @fight78
IF V76 @fight76
IF V74 @fight74
IF V72 @fight72
IF V70 @fight70
h: Dang it! I think I'd better leave before starting a fight because my lvl is too low!
WAIT 5
GOTO EXIT
END

@goodchoice(70-90)jewelry
2:You made the best choice because killing is very bad!!
2:Happy shopping :)
WAIT 1
ACTOR 2, "" , character, 4, -100,65
END

@successful(70-90)jewelry
MUSIC smoothcriminal.mid
add stealsuccess, 1
add steal, 1
GIVE Inn
IF R25 @successful(70-90)jewelryfailed
N: You have successfully stolen from the shopkeeper!
N: Your skill has increased by 1
N: It is now at level #<steal>
N: They didn't even know!!
IF V90, @lvl70jewelry
IF V88, @lvl88jewelry 
IF V86, @lvl86jewelry
IF V84, @lvl84jewelry
IF V82, @lvl82jewelry
IF V70, @lvl70jewelry
IF V78, @lvl78jewelry
IF V76, @lvl76jewelry
IF V74, @lvl74jewelry
IF V72, @lvl72jewelry
IF V70, @lvl70jewelry
h: Damn! My level is too low! I need to be at least level 70 to get this equipment!!
1: GET OUT!!!!! NOWWWWWWW!!!
h: Ok! OK! I'm going, geesh!
WAIT 2
GOTO EXIT
END
@successful(70-90)jewelryfailed
N:Damn someone walking past so you doing it!
ADD Stealfail, 1
1:Guards!!!!
SOUND jail.wav
wait .5
GOTO LINK 43,0
END

@fight70
ACTOR	1,	"Octavia", Zombiesci, 1, 15, 80
MOVE 1, -15,80
1:This is kinda weird for me since I usually have more arms!!!
WAIT 3.5
FIGHT2 100,100
IF Alive @endfight(70-90)jewelry
IF Dead @dead(70-90)jewelry
END

@fight72
ACTOR	1,	"Octavia", dragon2, 1, 15, 80
MOVE 1, -15,80
1:LET ME BURN YOU! PLEAAASSEEEE!!!
WAIT 3.5
FIGHT2 102,102
IF Alive @endfight(70-90)jewelry
IF Dead @dead(70-90)jewelry
END

@fight74
ACTOR	1,	"Octavia", seal, 1, 15, 80
MOVE 1, -15,80
1:I feel like mulitplying myself!
WAIT 3.5
FIGHT2 104,104,104
IF Alive @endfight(70-90)jewelry
IF Dead @dead(70-90)jewelry
END

@fight76
ACTOR	1,	"Octavia", legend, 24, 15, 80
MOVE 1, -15,80
1:Wanna see a REAL legend in action???
WAIT 3.5
FIGHT2 105,105,105
IF Alive @endfight(70-90)jewelry
IF Dead @dead(70-90)jewelry
END

@fight78
ACTOR	1,	"Octavia", drag, 24, 15, 80
MOVE 1, -15,80
1:CMON! LET ME BURN YOU JUST ONCE???
WAIT 3.5
FIGHT2 111,111
IF Alive @endfight(70-90)jewelry
IF Dead @dead(70-90)jewelry
END

@fight80
ACTOR	1,	"Octavia", archer, 24, 15, 80
MOVE 1, -15,80
1:LOOK AT ME!!!
WAIT 3.5
FIGHT2 123,123
IF Alive @endfight(70-90)jewelry
IF Dead @dead(70-90)jewelry
END

@fight82
ACTOR	1,	"Octavia", archer, 24, 15, 80
MOVE 1, -15,80
1:Try 2 of me!
WAIT 3.5
FIGHT2 123,123,123
IF Alive @endfight(70-90)jewelry
IF Dead @dead(70-90)jewelry
END

@fight84
ACTOR	1,	"Octavia", archer, 24, 15, 80
MOVE 1, -15,80
1:Don't worry you won't be imagining 4!!
WAIT 3.5
FIGHT2 123,123,123,123
IF Alive @endfight(70-90)jewelry
IF Dead @dead(70-90)jewelry
END

@fight86
ACTOR	1,	"Octavia", butterfly, 24, 15, 80
1:*flutter* *Flutter*, *COUGH* *WEEEZE*
MOVE 1, -15,80
WAIT 3.5
FIGHT2 128,128
IF Alive @endfight(70-90)jewelry
IF Dead @dead(70-90)jewelry
END

@fight88
ACTOR	1,	"Octavia", lion, 24, 15, 80
MOVE 1, -15,80
1:I will rip you apart!
WAIT 3.5
FIGHT2 1005,1005
IF Alive @endfight(70-90)jewelry
IF Dead @dead(70-90)jewelry
END

@fight90
ACTOR	1,	"Octavia", snake, 24, 15, 80
MOVE 1, -15,80
1:SSSSSSSSIIIIISSTTTT!
WAIT 3.5
FIGHT2 213,213
IF Alive @endfight(70-90)jewelry
IF Dead @dead(70-90)jewelry
END

@endfight(70-90)jewelry
add murder, 1
SET dead(70-90)jewelry, 1
SET OctaviaMonth, #<num.timeMonth>
Compare #<OctaviaMonth>, 1
IF=, @jan(70-90)jewelry
Compare #<OctaviaMonth>, 2
IF=, @feb(70-90)jewelry
Compare #<OctaviaMonth>, 3
IF=, @mar(70-90)jewelry
Compare #<OctaviaMonth>, 4
IF=, @apr(70-90)jewelry
Compare #<OctaviaMonth>, 5
IF=, @may(70-90)jewelry
Compare #<OctaviaMonth>, 6
IF=, @jun(70-90)jewelry
Compare #<OctaviaMonth>, 7
IF=, @july(70-90)jewelry
Compare #<OctaviaMonth>, 8
IF=, @aug(70-90)jewelry
Compare #<OctaviaMonth>, 9
IF=, @sept(70-90)jewelry
Compare #<OctaviaMonth>, 10
IF=, @oct(70-90)jewelry
Compare #<OctaviaMonth>, 11
IF=, @nov(70-90)jewelry
Compare #<OctaviaMonth>, 12
IF=, @dec
@monthset(70-90)jewelry
SET OctaviaDate, #<num.timeDay>
SET OctaviaYear, #<num.timeYear>
IF R35 @caught(70-90)jewelry
IF V90, @lvl70jewelry
IF V88, @lvl88jewelry 
IF V86, @lvl86jewelry
IF V84, @lvl84jewelry
IF V82, @lvl82jewelry
IF V70, @lvl70jewelry
IF V78, @lvl78jewelry
IF V76, @lvl76jewelry
IF V74, @lvl74jewelry
IF V72, @lvl72jewelry
IF V70, @lvl70jewelry
N:You get no equipment because your lvl is too low!!
END

@lvl70jewelry
GIVE I935 (ring)
GIVE I984 (amulet)
N: You have recieved all of the level 70 Weapons
GOTO @hopeyouarehappy
END

@lvl72jewelry
GIVE I936 (ring)
GIVE I985 (amulet)
N: You have recieved all of the level 72 Weapons
GOTO @hopeyouarehappy
END

@lvl74jewelry
GIVE I937 (ring)
GIVE I986 (amulet)
N: You have recieved all of the level 74 Weapons
GOTO @hopeyouarehappy
END

@lvl76jewelry
GIVE I938 (ring)
GIVE I987 (amulet)
N: You have recieved all of the level 76 Weapons
GOTO @hopeyouarehappy
END

@lvl78jewelry
GIVE I939 (ring)
GIVE I988 (amulet)
N: You have recieved all of the level 78 Weapons
GOTO @hopeyouarehappy
END

@lvl80jewelry
GIVE I940 (ring)
GIVE I989 (amulet)
N: You have recieved all of the level 80 Weapons
GOTO @hopeyouarehappy
END

@lvl82jewelry
GIVE I941 (ring)
GIVE I990 (amulet)
N: You have recieved all of the level 82 Weapons
GOTO @hopeyouarehappy
END

@lvl84jewelry
GIVE I942 (ring)
GIVE I991 (amulet)
N: You have recieved all of the level 84 Weapons
GOTO @hopeyouarehappy
END

@lvl86jewelry
GIVE I943 (ring)
GIVE I992 (amulet)
N: You have recieved all of the level 86 Weapons
GOTO @hopeyouarehappy
END

@lvl88jewelry
GIVE I944 (ring)
GIVE I993 (amulet)
N: You have recieved all of the level 88 Weapons
GOTO @hopeyouarehappy
END

@lvl90jewelry
GIVE I945 (ring)
GIVE I994 (amulet)
N: You have recieved all of the level 90 Weapons
GOTO @hopeyouarehappy
END

@hopeyouarehappy
COMPARE #<dead(70-90)jewelry>, 1
	IF> @hopeyouarehappy2
	IF= @hopeyouarehappy2
END
@hopeyouarehappy2
n: The shopkeeper is now dead because of you!!!!
n: I hope you are happy!!!
n: IDIOT!!!
END

@dead(70-90)jewelry
MOVE	1,	15, 80
WAIT 2
1:I take back my apology about my sister!!!!
1:Guards!!!
WAIT .3
SOUND jail.wav
ADD murderfail, 1
GOTO LINK 43,0
END

@caught(70-90)jewelry
n: The screams of the shopkeeper go off into the distance!!!
n: A person walking past hears the scream and calls for a guard!!!
WAIT 2
SET Timedone, 1
N: your steal skill has been lowered by 2
COMPARE #<steal>, 23
IF<, @skiptake(70-90)jewelry
IF=, @skiptake(70-90)jewelry
SUB steal,2
N: It is now at level #<steal>
@skiptake(70-90)jewelry
SOUND jail.wav
wait .5
GOTO LINK 43,0
END

@urdead!(70-90)jewelry
n: YOU ARE DEAD!!
n: HOW ARE YOU SUPPOSED TO DO ANYTHING????
n: LOL!! I'VE NEVER SEEN A DEAD PERSON FIGHT 
n: OR STEAL BEFORE!!!
n: You had better get healed and then come back!!
WAIT 6
GOTO EXIT
END

@shopkeeperdead(70-90)jewelry
ACTOR 4, "Octavia", characters4, 3, 15,90
WAIT 2
N: The shopkeeper is dead!
N: You look at his grave in disgrace of what you have done!
WAIT 2
h: DAMN!! I can't buy any items from here anymore!!
h: I guess I should have listened to my conscience!
h: The grave reads -
h: #<OctaviaMonth> #<OctaviaDate> , #<OctaviaYear>
h: Octavia (a former shopkeeper and octopus),
h: Aged 41
h: R.I.P
h: Hmmmm what's this?? Someone has left a note by the gravestone!
h: It reads: "To Octavia"
h: "You were the best fish that I have ever put my eyes on"
h: "You were a great catch with the lads"
h: "They are always used to say that they would have loved you round for dinner"
h: "You will be missed very greatly and we will miss seeing your many talents with your arms"
h: "I hope to see you in heaven some day!"
h: "Signed: An admirer of Octavia"
h: Talk about ruining a good catch! MAN!!
h: I'm gonna go and think about what I have done!"
WAIT 4
GOTO EXIT
END

@jan(70-90)jewelry
SET OctaviaMonth, January
GOTO @monthset(70-90)jewelry
END
@feb(70-90)jewelry
SET OctaviaMonth, Feburary
GOTO @monthset(70-90)jewelry
END
@mar(70-90)jewelry
SET OctaviaMonth, March
GOTO @monthset(70-90)jewelry
END
@apr(70-90)jewelry
SET OctaviaMonth, April
GOTO @monthset(70-90)jewelry
END
@may(70-90)jewelry
SET OctaviaMonth, May
GOTO @monthset(70-90)jewelry
END
@jun(70-90)jewelry
SET OctaviaMonth, June
GOTO @monthset(70-90)jewelry
END
@july(70-90)jewelry
SET OctaviaMonth, July
GOTO @monthset(70-90)jewelry
END
@aug(70-90)jewelry
SET OctaviaMonth, August
GOTO @monthset(70-90)jewelry
END
@sept(70-90)jewelry
SET OctaviaMonth, September
GOTO @monthset(70-90)jewelry
END
@oct(70-90)jewelry
SET OctaviaMonth, October
GOTO @monthset(70-90)jewelry
END
@nov(70-90)jewelry
SET OctaviaMonth, November
GOTO @monthset(70-90)jewelry
END
@dec(70-90)jewelry
SET OctaviaMonth, December
GOTO @monthset(70-90)jewelry
END

;---------
; general boot shop

SCENE 1094 bgUnderWater1, SHOP,	"",	1
	THEME	0
;	MUSIC	waltz2.mid
	ACTOR	1,	"Jenna", josh48, 1, 5, 90
	POSE	1,4,2
	SEL		1
	MOVE	1,	15, 80
	OFFER2	0,90,20
END

@EventActorclick1
IF DEAD @urdead!(70-90)boots
MENU "Talk=@talk(70-90)boots"
END
@talk(70-90)boots
	' People don't understand me!
	' I don't know why!
	' Everyone just steals from me
	' I hope you won't do that
	' It looks as if i can trust you?
	h: Sure I promise not to steal from you
	' Thanks! So which boots you need?
 END
@urdead!(70-90)boots
N: YOU ARE DEAD! YOU NEED TO HEAL YOURSELF FIRST!
END

;--------------
; Generic Casino
;
SCENE 1095		aztec
	THEME	0
;	MUSIC	waltz2.mid
	ACTOR	1,	"Barker", joshRoyalty, 2, 5, 90
	SEL		1
	MOVE	1,	15, 80
	GAME	1
	' Try your luck!
	' Our slots pay the most!
END




;================================ Equipment place 90+ ==================================
;---------
; item/potion shop
;
SCENE 1100 bwEuroStreet
	THEME	0
;	MUSIC	waltz2.mid
	ACTOR	1,	"Boozer", joshTownsFolk, 18, 5, 90
	SEL		1
	MOVE	1,	15, 80
	OFFER2	0,99,0

	' Hic' Umm.. wassaproblem?
	' Hmmf <urp>
END


;---------
; general armor shop

SCENE 1101 bwEuroStreet
	THEME	0
;	MUSIC	waltz2.mid
	COMPARE #<dead(90+)armour>, 1
	IF> @shopkeeperdead(90+)armour
	IF= @shopkeeperdead(90+)armour
	ACTOR	1,	"Ben", joshTownsFolk, 20, 5, 90
	SEL		1
	MOVE	1,	15, 80
	OFFER2	90,99,10,  90,99,11,  90,99,20,  90,99,21
END
@end
	END
   
@EventActorclick1
IF DEAD @urdead!(90+)armour
COMPARE #<steal>, 1
IF>,@menu2(90+)armour
IF=,@menu2(90+)armour
MENU "Talk=@talk(90+)armour"
END
@talk(90+)armour
	' Hey, pleased to meet you!
	' We got your armor right here!
	' No... I AM the armory guy.
END
@menu2(90+)armour
MENU "Talk=@talk(90+)armour", "Steal=@steal(90+)armour", "Fight=@fight(90+)armour"
END
@steal(90+)armour
add stealsuccess, 0
add stealfail, 0
add timesteal, 1
add murderfail, 0
add murder, 0
add Timedone, 0
@attempt
N: You are now attepting to steal from the shopkeeper!
WAIT 3
IF R#<steal>, @successful(90+)armour
add stealfail, 1
N: YOU FAILED!!!
1: You IDIOT!!!
SOUND alarm.wav
WAIT .5
SOUND jail.wav
wait .5
GOTO LINK 43,0 (goes to jail)
END
@fight(90+)armour
ACTOR 2, "Your Conscience" , mirror, 1, 75,65
2:JUST WAIT 1 SECOND!!!
2:IF you murder this shop keeper you will NEVER see them again!
2:This means that there will be no shop too!!!
2:You MAY get the equipment you want but that will be it because they will die!
2:Also if you get caught you may be in jail for quite some time!!!
2:Will you still fight him or chicken out??
WAIT 1
@menu(90+)armour
MENU "I'm gonna kill him, I don't have a conscience!!=@noconscience(90+)armour", "I won't kill him because bad things may happen=@goodchoice(90+)armour""
2:WHICH WILL YOU DO???
GOTO @menu(90+)armour
@noconscience(90+)armour
2:DON'T SAY I DIDN'T WARN YOU!!!!
WAIT 2
ACTOR 2, "" , character, 4, -100,65
h: YOU ARE GOING DOWN BECAUSE I NEED SOME FREE EQUIPMENT!
1:I think you are the one going down!!
1: You thought the other shopkeepers were weak, eh??
WAIT 1
SOUND notoneofus.wav
1: Well I am not going to be weak! YOU will be the one dying
1: I am now going to morph into a powerful monster!!
WAIT 3
IF V96 @fight96
IF V94 @fight94
IF V92 @fight92
IF V90 @fight90
h: Dang it! I think I'd better leave before starting a fight because my lvl is too low!
WAIT 5
GOTO EXIT
END

@goodchoice(90+)armour
2:You made the best choice because killing is very bad!!
2:Happy shopping :)
WAIT 1
ACTOR 2, "" , character, 4, -100,65
END

@successful(90+)armour
MUSIC smoothcriminal.mid
add stealsuccess, 1
add steal, 1
GIVE Inn
IF R25 @successful(90+)armourfailed
N: You have successfully stolen from the shopkeeper!
N: Your skill has increased by 1
N: It is now at level #<steal>
N: They didn't even know!!
IF V96, @lvl96armour 
IF V94, @lvl94armour 
IF V92, @lvl92armour
IF V90, @lvl90armour 
h: Damn! My level is too low! I need to be at least level 70 to get this equipment!!
1: GET OUT!!!!! NOWWWWWWW!!!
h: Ok! OK! I'm going, geesh!
WAIT 2
GOTO EXIT
END
@successful(90+)armourfailed
N:Damn someone walking past so you doing it!
ADD Stealfail, 1
SOUND alarm.wav
1:Guards!!!!
SOUND jail.wav
wait .5
GOTO LINK 43,0
END

@fight96
ACTOR	1,	"Ben", firedemon, 1, 15, 80
MOVE 1, -15,80
1:I WILL NOT BE AS WEAK AS THE OTHER LAME SHOP KEEPERS!!!!
WAIT 3.5
FIGHT2 44, 205,
IF Alive @endfight(90+)armour
IF Dead @dead(90+)armor
END

@fight94
ACTOR	1,	"Ben", knight, 1, 15, 80
MOVE 1, -15,80
1:You can TRY and beat me!! But I doubt it!
WAIT 3.5
FIGHT2 206
IF Alive @endfight(90+)armour
IF Dead @dead(90+)armor
END

@fight92
ACTOR	1,	"Ben", gold, 1, 15, 80
MOVE 1, -15,80
1:I feel like mulitplying myself!
WAIT 3.5
FIGHT2 203
IF Alive @endfight(90+)armour
IF Dead @dead(90+)armor
END

@fight90
ACTOR	1,	"Ben", jester, 24, 15, 80
MOVE 1, -15,80
1:I don't think one of me is enough!!
WAIT 3.5
FIGHT2 190
IF Alive @endfight(90+)armour
IF Dead @dead(90+)armor
END

@endfight(90+)armour
SOUND bleeding.wav
add murder, 1
SET dead(90+)armour, 1
SET BenMonth, #<num.timeMonth>
Compare #<BenMonth>, 1
IF=, @jan(90+)armour
Compare #<BenMonth>, 2
IF=, @feb(90+)armour
Compare #<BenMonth>, 3
IF=, @mar(90+)armour
Compare #<BenMonth>, 4
IF=, @apr(90+)armour
Compare #<BenMonth>, 5
IF=, @may(90+)armour
Compare #<BenMonth>, 6
IF=, @jun(90+)armour
Compare #<BenMonth>, 7
IF=, @july(90+)armour
Compare #<BenMonth>, 8
IF=, @aug(90+)armour
Compare #<BenMonth>, 9
IF=, @sept(90+)armour
Compare #<BenMonth>, 10
IF=, @oct(90+)armour
Compare #<BenMonth>, 11
IF=, @nov(90+)armour
Compare #<BenMonth>, 12
IF=, @dec
@monthset(90+)armour
SET BenDate, #<num.timeDay>
SET BenYear, #<num.timeYear>
IF R35 @caught(90+)armour
IF V96, @lvl96armour 
IF V94, @lvl94armour 
IF V92, @lvl92armour
IF V90, @lvl90armour 
N:You get no equipment because your lvl is too low!!
END

@lvl90armour
GIVE I245 (helmet) *done
GIVE I295 (armour) *done
GIVE I845 (shield) *done
N: You have recieved all of the level 90 armour
GOTO @hopeyouarehappy
END

@lvl92armour
GIVE I246 (helmet) *done
GIVE I296 (armour) *done
GIVE I846 (shield) *done
N: You have recieved all of the level 92 armour
GOTO @hopeyouarehappy
END

@lvl94armour
GIVE I247 (helmet) *done
GIVE I297 (armour) *done
GIVE I847 (shield) *done
N: You have recieved all of the level 94 armour
GOTO @hopeyouarehappy
END

@lvl96armour
GIVE I248 (helmet) *done
GIVE I298 (armour) *done
GIVE I848 (shield) *done
N: You have recieved all of the level 96 armour
GOTO @hopeyouarehappy
END

@hopeyouarehappy
COMPARE #<dead(90+)armour>, 1
	IF> @hopeyouarehappy2
	IF= @hopeyouarehappy2
END
@hopeyouarehappy2
n: The shopkeeper is now dead because of you!!!!
n: I hope you are happy!!!
n: IDIOT!!!
END

@dead(90+)armor
MOVE	1,	15, 80
WAIT 2
1:HA HA HA, I TOLD YOU!!
SOUND alarm.wav
1:Guards!
WAIT .5
SOUND jail.wav
ADD murderfail, 1
GOTO LINK 43,0
END

@caught(90+)armour
n: The screams of the shopkeeper go off into the distance!!!
n: A person walking past hears the scream and calls for a guard!!!
SOUND alarm.wav
WAIT 2
SET Timedone, 1
N: your steal skill has been lowered by 2
COMPARE #<steal>, 23
IF<, @skiptake(90+)armour
IF=, @skiptake(90+)armour
SUB steal,2
N: It is now at level #<steal>
@skiptake(70-90)armour
SOUND jail.wav
wait .5
GOTO LINK 43,0
END

@urdead!(90+)armour
n: YOU ARE DEAD!!
n: HOW ARE YOU SUPPOSED TO DO ANYTHING????
n: LOL!! I'VE NEVER SEEN A DEAD PERSON FIGHT 
n: OR STEAL BEFORE!!!
n: You had better get healed and then come back!!
WAIT 6
GOTO EXIT
END

@shopkeeperdead(90+)armour
ACTOR 4, "Ben", characters4, 3, 15,90
WAIT 2
N: The shopkeeper is dead!
N: You look at his grave in disgrace of what you have done!
WAIT 2
h: DAMN!! I can't buy any items from here anymore!!
h: I guess I should have listened to my conscience!
h: The grave reads -
h: #<BenMonth> #<BenDate> , #<BenYear>
h: Ben (A great guy who worked in the armoury),
h: Aged 26
h: R.I.P
h: There is nothing here???
h: Wasn't he loved by anyone??
h: I feel really bad about killing him now!
h: He must have been lonely enough and then I go and kill him (sob)
h: *Shouts* Rest in peace Ben, Sorry for what I have done!
h: *Shouts* I never meant to kill yoooooooouuuuuu! (starts weeping)
h: Damn! did I just say that out loud???
h: I think someone is comming!
h: Since they heard that they will want me dead or try to capture me!
H: I'm outta here!!!
WAIT 3
GOTO EXIT
END
@jan(90+)armour
SET BenMonth, January
GOTO @monthset(90+)armour
END
@feb(90+)armour
SET BenMonth, Feburary
GOTO @monthset(90+)armour
END
@mar(90+)armour
SET BenMonth, March
GOTO @monthset(90+)armour
END
@apr(90+)armour
SET BenMonth, April
GOTO @monthset(90+)armour
END
@may(90+)armour
SET BenMonth, May
GOTO @monthset(90+)armour
END
@jun(90+)armour
SET BenMonth, June
GOTO @monthset(90+)armour
END
@july(90+)armour
SET BenMonth, July
GOTO @monthset(90+)armour
END
@aug(90+)armour
SET BenMonth, August
GOTO @monthset(90+)armour
END
@sept(90+)armour
SET BenMonth, September
GOTO @monthset(90+)armour
END
@oct(90+)armour
SET BenMonth, October
GOTO @monthset(90+)armour
END
@nov(90+)armour
SET BenMonth, November
GOTO @monthset(90+)armour
END
@dec(90+)armour
SET BenMonth, December
GOTO @monthset(90+)armour
END

;---------
; general weapons shop

SCENE 1102 bwEuroStreet
	THEME	0
;	MUSIC	waltz2.mid
	COMPARE #<dead(90+)weapons>, 1
	IF> @shopkeeperdead(90+)weapons
	IF= @shopkeeperdead(90+)weapons
	ACTOR	1,	"Josh", joshTownsfolk, 9, 5, 90
	POSE	9,10
	SEL		1
	MOVE	1,	15, 80
	OFFER2	90,99,12,  90,99,13,  90,99,14,  90,99,15,  90,99,16,  90,99,17,  90,99,18,  90,99,19
END
@end
	END
   
@EventActorclick1
IF DEAD @urdead!(90+)weapons
COMPARE #<steal>, 1
IF>,@menu2(90+)weapons
IF=,@menu2(90+)weapons
MENU "Talk=@talk(90+)weapons"
END
@talk(90+)weapons
	' Finest weapons in Evergreen!
	' THEY ARE!!
	' WHAT?? You don't believe me???
	' Well! Ok I guess I lied, the soul weapons are better!
	' But I have never seen any soul items in my life and there is only one set
	' This makes them very RARE!!
END

@menu2(90+)weapons
MENU "Talk=@talk(90+)weapons", "Steal=@steal(90+)weapons", "Fight=@fight(90+)weapons"
END
@steal(90+)weapons
add stealsuccess, 0
add stealfail, 0
add timesteal, 1
add murderfail, 0
add murder, 0
add Timedone, 0
@attempt
N: You are now attepting to steal from the shopkeeper!
WAIT 3
IF R#<steal>, @successful(90+)weapons
add stealfail, 1
N: YOU FAILED!!!
SOUND alarm.wav
1:HEELLPPP! GUARDSSSS!!!
WAIT .5
SOUND jail.wav
wait .5
GOTO LINK 43,0 (goes to jail)
END
@fight(90+)weapons
ACTOR 2, "Your Conscience" , mirror, 1, 75,65
2:JUST WAIT 1 SECOND!!!
2:IF you murder this shop keeper you will NEVER see them again!
2:This means that there will be no shop too!!!
2:You MAY get the equipment you want but that will be it because they will die!
2:Also if you get caught you may be in jail for quite some time!!!
2:Will you still fight him or chicken out??
WAIT 1
@menu(90+)weapons
MENU "I'm gonna kill him, I don't have a conscience!!=@noconscience(90+)weapons", "I won't kill him then because bad things may happen=@goodchoice(90+)weapons""
2:WHICH WILL YOU DO???
GOTO @menu(90+)weapons
@noconscience(90+)weapons
2:DON'T SAY I DIDN'T WARN YOU!!!!
WAIT 2
ACTOR 2, "" , character, 4, -100,65
h: YOU ARE GOING DOWN BECAUSE I NEED SOME FREE EQUIPMENT!
1:HOW DARE YOU TRY AND RUIN MY SHOP AND STEAL MY GOODS!!!!
WAIT 1
SOUND notoneofus.wav
1:I'm not going to fight you like this!!!
1:I'm gonna morph into something much stronger to teach you a lesson!!!!
WAIT 3
IF V96 @fight96
IF V94 @fight94
IF V92 @fight92
IF V90 @fight90
h: Dang it! I think I'd better leave before starting a fight because my lvl is too low!
WAIT 5
GOTO EXIT
END

@goodchoice(90+)weapons
2:You made the best choice because killing is very bad!!
2:Happy shopping :)
WAIT 1
ACTOR 2, "" , character, 4, -100,65
END

@successful(90+)weapons
MUSIC smoothcriminal.mid
add stealsuccess, 1
add steal, 1
GIVE Inn
IF R25 @successful(90+)weaponsfailed
N: You have successfully stolen from the shopkeeper!
N: Your skill has increased by 1
N: It is now at level #<steal>
N: They didn't even know!!
IF V96, @lvl96weapons
IF V94, @lvl94weapons 
IF V92, @lvl92weapons
IF V90, @lvl90weapons
h: Damn! My level is too low! I need to be at least level 70 to get this equipment!!
1: GET OUT!!!!! NOWWWWWWW!!!
h: Ok! OK! I'm going, geesh!
WAIT 2
GOTO EXIT
END
@successful(90+)weaponsfailed
N:Damn someone walking past so you doing it!
ADD Stealfail, 1
SOUND alarm.wav
1:Guards!!!!
SOUND jail.wav
wait .5
GOTO LINK 43,0
END

@fight96
ACTOR	1,	"Josh", firedemon, 1, 15, 80
MOVE 1, -15,80
1:I WILL NOT BE AS WEAK AS THE OTHER LAME SHOP KEEPERS!!!!
1:MY SECRET IS MULIPLE MORPH!!!
WAIT 3.5
FIGHT2 44, 205
IF Alive @endfight(90+)weapons
IF Dead @dead(90+)weapons
END

@fight94
ACTOR	1,	"Josh", knight, 1, 15, 80
MOVE 1, -15,80
1:You can TRY and beat me!! But I doubt it!
WAIT 3.5
FIGHT2 206
IF Alive @endfight(90+)weapons
IF Dead @dead(90+)weapons
END

@fight92
ACTOR	1,	"Josh", gold, 1, 15, 80
MOVE 1, -15,80
1:I will destroy you
WAIT 3.5
FIGHT2 203
IF Alive @endfight(90+)weapons
IF Dead @dead(90+)weapons
END

@fight90
ACTOR	1,	"Josh", jester, 24, 15, 80
MOVE 1, -15,80
1:you are going down
WAIT 3.5
FIGHT2 190
IF Alive @endfight(90+)weapons
IF Dead @dead(90+)weapons
END

@endfight(90+)weapons
SOUND bleeding.wav
add murder, 1
SET dead(90+)weapons, 1
SET JoshMonth, #<num.timeMonth>
Compare #<JoshMonth>, 1
IF=, @jan(90+)weapons
Compare #<JoshMonth>, 2
IF=, @feb(90+)weapons
Compare #<JoshMonth>, 3
IF=, @mar(90+)weapons
Compare #<JoshMonth>, 4
IF=, @apr(90+)weapons
Compare #<JoshMonth>, 5
IF=, @may(90+)weapons
Compare #<JoshMonth>, 6
IF=, @jun(90+)weapons
Compare #<JoshMonth>, 7
IF=, @july(90+)weapons
Compare #<JoshMonth>, 8
IF=, @aug(90+)weapons
Compare #<JoshMonth>, 9
IF=, @sept(90+)weapons
Compare #<JoshMonth>, 10
IF=, @oct(90+)weapons
Compare #<JoshMonth>, 11
IF=, @nov(90+)weapons
Compare #<JoshMonth>, 12
IF=, @dec
@monthset(90+)weapons
SET JoshDate, #<num.timeDay>
SET JoshYear, #<num.timeYear>
IF R35 @caught(90+)weapons
IF V96, @lvl96weapons
IF V94, @lvl94weapons 
IF V92, @lvl92weapons
IF V90, @lvl90weapons
N:You get no equipment because your lvl is too low!!
END

@lvl90weapons
GIVE I345 (Sword) *done 
GIVE I445 (Staff) *done 
GIVE I545 (Bow) *done 
GIVE I645 (Music) *done 
GIVE I395 (Fist) *done 
GIVE I495 (Dart) *done 
GIVE I595 (Book) *done 
GIVE I695 (Spirit) *done 
N: You have recieved all of the level 90 Weapons
GOTO @hopeyouarehappy
END

@lvl92weapons
GIVE I346 (Sword) *done 
GIVE I446 (Staff) *done 
GIVE I546 (Bow) *done 
GIVE I646 (Music) *done 
GIVE I396 (Fist) *done 
GIVE I496 (Dart) *done 
GIVE I596 (Book) *done 
GIVE I696 (Spirit) *done 
N: You have recieved all of the level 92 Weapons
GOTO @hopeyouarehappy
END

@lvl94weapons
GIVE I347 (Sword) *done 
GIVE I447 (Staff) *done 
GIVE I547 (Bow) *done 
GIVE I647 (Music) *done 
GIVE I397 (Fist) *done 
GIVE I497 (Dart) *done 
GIVE I597 (Book) *done 
GIVE I697 (Spirit) *done 
N: You have recieved all of the level 94 Weapons
GOTO @hopeyouarehappy
END

@lvl96weapons
GIVE I348 (Sword) *done 
GIVE I448 (Staff) *done 
GIVE I548 (Bow) *done 
GIVE I648 (Music) *done 
GIVE I398 (Fist) *done 
GIVE I498 (Dart) *done 
GIVE I598 (Book) *done 
GIVE I698 (Spirit)
N: You have recieved all of the level 96 Weapons
GOTO @hopeyouarehappy
END

@hopeyouarehappy
COMPARE #<dead(90+)weapons>, 1
	IF> @hopeyouarehappy2
	IF= @hopeyouarehappy2
END
@hopeyouarehappy2
n: The shopkeeper is now dead because of you!!!!
n: I hope you are happy!!!
n: IDIOT!!!
END

@dead(90+)weapons
MOVE	1,	15, 80
WAIT 2
1:HA! You shouldn't have tried messing with THE MASTER!
SOUND alarm.wav
1:Guards!!!
WAIT .3
SOUND jail.wav
ADD murderfail, 1
GOTO LINK 43,0
END

@caught(90+)weapons
n: The screams of the shopkeeper go off into the distance!!!
n: A person walking past hears the scream and calls for a guard!!!
SOUND alarm.wav
WAIT 2
SET Timedone, 1
N: your steal skill has been lowered by 2
COMPARE #<steal>, 23
IF<, @skiptake(90+)weapons
IF=, @skiptake(90+)weapons
SUB steal,2
N: It is now at level #<steal>
@skiptake(90+)weapons
SOUND jail.wav
wait .5
GOTO LINK 43,0
END

@urdead!(90+)weapons
n: YOU ARE DEAD!!
n: HOW ARE YOU SUPPOSED TO DO ANYTHING????
n: LOL!! I'VE NEVER SEEN A DEAD PERSON FIGHT 
n: OR STEAL BEFORE!!!
n: You had better get healed and then come back!!
WAIT 6
GOTO EXIT
END

@shopkeeperdead(90+)weapons
ACTOR 4, "Josh", characters4, 3, 15,90
WAIT 2
N: The shopkeeper is dead!
N: You look at his grave in disgrace of what you have done!
WAIT 2
h: DAMN!! I can't buy any items from here anymore!!
h: I guess I should have listened to my conscience!
h: The grave reads -
h: #<JoshMonth> #<JoshDate> , #<JoshYear>
h: Josh (A Former Skin creator and overall sound guy),
h: Aged 27
h: R.I.P
h: Hmmmm what's this?? There is a boquet of flowers and note
h: It reads: "To Josh"
h: "Your skin creating skills will be missed greatly"
h: "I don't know what I am going to do now that you are not here! "
h: "I might have to regurgitate loads of your skins to use for new monsters :("
h: "You have always created the best skins you can and never once did you complain"
h: "I think I'm going to Ban the idiot who killed you!"
h: "I will make sure that he doesn't play WoS again!"
h: "Signed Dan samuels"
h: You mean I just killed THE JOSH???
h: OH NO!! I am in BIG trouble here!!
h: I'd better leave now before anyone like Dan turns up!
WAIT 4
GOTO EXIT
END

@jan(90+)weapons
SET JoshMonth, January
GOTO @monthset(90+)weapons
END
@feb(90+)weapons
SET JoshMonth, Feburary
GOTO @monthset(90+)weapons
END
@mar(90+)weapons
SET JoshMonth, March
GOTO @monthset(90+)weapons
END
@apr(90+)weapons
SET JoshMonth, April
GOTO @monthset(90+)weapons
END
@may(90+)weapons
SET JoshMonth, May
GOTO @monthset(90+)weapons
END
@jun(90+)weapons
SET JoshMonth, June
GOTO @monthset(90+)weapons
END
@july(90+)weapons
SET JoshMonth, July
GOTO @monthset(90+)weapons
END
@aug(90+)weapons
SET JoshMonth, August
GOTO @monthset(90+)weapons
END
@sept(90+)weapons
SET JoshMonth, September
GOTO @monthset(90+)weapons
END
@oct(90+)weapons
SET JoshMonth, October
GOTO @monthset(90+)weapons
END
@nov(90+)weapons
SET JoshMonth, November
GOTO @monthset(90+)weapons
END
@dec(90+)weapons
SET JoshMonth, December
GOTO @monthset(90+)weapons
END

;---------
; general baubles shop

SCENE 1103 bwEuroStreet
	THEME	0
;	MUSIC	waltz2.mid
	COMPARE #<dead(90+)jewelry>, 1
	IF> @shopkeeperdead(90+)jewelry
	IF= @shopkeeperdead(90+)jewelry
	ACTOR	1,	"Michelle", joshTownsFolk, 24, 5, 90
	POSE	24,25
	SEL		1
	MOVE	1,	15, 80
	OFFER2	90,99,22,  90,99,23
END
@end
	END
   
@EventActorclick1
IF DEAD @urdead!(90+)jewelry
COMPARE #<steal>, 1
IF>,@menu2(90+)jewelry
IF=,@menu2(90+)jewelry
MENU "Talk=@talk(90+)jewelry"
END
@talk(90+)jewelry
	' Finest rings and amulets in Evergreen!
	' ....Why does no-one belive me????
	' Cmon! Tell me WHY?
	' *shouts* WHHHYYYY????
	h: Gesse!! Queit will ya!!! I think you are lying!!
	h: This is because Soul Armour is much better!
	' What is soul Armour?
	h: Well the are very powerful and very rare items!
	' Cool! maybe I should start selling them! That way I would have the finest weapons!
	h: You can't because they are one of a kind and I will be the first to find them
	' I'll create replicas then!
	h: GOOD LUCK, LOL!!! You will never Even touch one!! ha ha ha
END

@menu2(90+)jewelry
MENU "Talk=@talk(90+)jewelry", "Steal=@steal(90+)jewelry", "Fight=@fight(90+)jewelry"
END
@steal(90+)jewelry
add stealsuccess, 0
add stealfail, 0
add timesteal, 1
add murderfail, 0
add murder, 0
add Timedone, 0
@attempt
N: You are now attepting to steal from the shopkeeper!
WAIT 3
IF R#<steal>, @successful(90+)jewelry
add stealfail, 1
N: YOU FAILED!!!
1:Guards! Help me
WAIT .5
SOUND jail.wav
wait .5
GOTO LINK 43,0 (goes to jail)
END
@fight(90+)jewelry
ACTOR 2, "Your Conscience" , mirror, 1, 75,65
2:JUST WAIT 1 SECOND!!!
2:IF you murder this shop keeper you will NEVER see them again!
2:This means that there will be no shop too!!!
2:You MAY get the equipment you want but that will be it because they will die!
2:Also if you get caught you may be in jail for quite some time!!!
2:Will you still fight her or chicken out??
WAIT 1
@menu(90+)jewelry
MENU "I'm gonna kill her, I don't have a conscience!!=@noconscience(90+)jewelry", "I won't kill her because bad things may happen=@goodchoice(90+)jewelry""
2:WHICH WILL YOU DO???
GOTO @menu(90+)jewelry
@noconscience(90+)jewelry
2:DON'T SAY I DIDN'T WARN YOU!!!!
WAIT 2
ACTOR 2, "" , character, 4, -100,65
h: YOU ARE GOING DOWN BECAUSE I NEED SOME FREE EQUIPMENT!
1:HOW DARE YOU TRY AND RUIN MY SHOP AND STEAL MY GOODS!!!!
1:I'm not going to fight you like this!!!
1:I'm gonna morph into something much stronger to teach you a lesson!!!!
WAIT 3
IF V98 @fight98
IF V96 @fight96
IF V94 @fight94
IF V92 @fight92
IF V90 @fight90
h: Dang it! I think I'd better leave before starting a fight because my lvl is too low!
WAIT 5
GOTO EXIT
END

@goodchoice(90+)jewelry
2:You made the best choice because killing is very bad!!
2:Happy shopping :)
WAIT 1
ACTOR 2, "" , character, 4, -100,65
END

@successful(90+)jewelry
MUSIC smoothcriminal.mid
add stealsuccess, 1
add steal, 1
GIVE Inn
IF R25 @successful(90+)jewelryfailed
N: You have successfully stolen from the shopkeeper!
N: Your skill has increased by 1
N: It is now at level #<steal>
N: They didn't even know!!
IF V98, @lvl98jewelry
IF V96, @lvl96jewelry
IF V94, @lvl94jewelry 
IF V92, @lvl92jewelry
IF V90, @lvl90jewelry
h: Damn! My level is too low! I need to be at least level 70 to get this equipment!!
1: GET OUT!!!!! NOWWWWWWW!!!
h: Ok! OK! I'm going, geesh!
WAIT 2
GOTO EXIT
END
@successful(90+)jewelryfailed
N:Damn someone walking past so you doing it!
ADD Stealfail, 1
1:Guards!!!!
SOUND jail.wav
wait .5
GOTO LINK 43,0
END

@fight98
ACTOR	1,	"Michelle", gargoyle, 1, 15, 80
MOVE 1, -15,80
1:I WILL TOTALLY ANNIHILATE YOU!!!!! GET READY!!!
WAIT 3.5
FIGHT2 205,205
IF Alive @endfight(90+)jewelry
IF Dead @dead(90+)jewelry
END

@fight96
ACTOR	1,	"Michelle", firedemon, 1, 15, 80
MOVE 1, -15,80
1:I WILL NOT BE AS WEAK AS THE OTHER LAME SHOP KEEPERS!!!!
1:MY SECRET IS MULIPLE MORPH!!!
WAIT 3.5
FIGHT2 44, 205
IF Alive @endfight(90+)jewelry
IF Dead @dead(90+)jewelry
END

@fight94
ACTOR	1,	"Michelle", knight, 1, 15, 80
MOVE 1, -15,80
1:You can TRY and beat me!! But I doubt it!
WAIT 3.5
FIGHT2 206
IF Alive @endfight(90+)jewelry
IF Dead @dead(90+)jewelry
END

@fight92
ACTOR	1,	"Michelle", gold, 1, 15, 80
MOVE 1, -15,80
1:I'm sick of you!
WAIT 3.5
FIGHT2 203
IF Alive @endfight(90+)jewelry
IF Dead @dead(90+)jewelry
END

@fight90
ACTOR	1,	"Michelle", jester, 24, 15, 80
MOVE 1, -15,80
1:Want a joke????????????????????..........TOUGH!!!!
WAIT 3.5
FIGHT2 190
IF Alive @endfight(90+)jewelry
IF Dead @dead(90+)jewelry
END

@endfight(90+)jewelry
add murder, 1
SET dead(90+)jewelry, 1
SET MichelleMonth, #<num.timeMonth>
Compare #<MichelleMonth>, 1
IF=, @jan(90+)jewelry
Compare #<MichelleMonth>, 2
IF=, @feb(90+)jewelry
Compare #<MichelleMonth>, 3
IF=, @mar(90+)jewelry
Compare #<MichelleMonth>, 4
IF=, @apr(90+)jewelry
Compare #<MichelleMonth>, 5
IF=, @may(90+)jewelry
Compare #<MichelleMonth>, 6
IF=, @jun(90+)jewelry
Compare #<MichelleMonth>, 7
IF=, @july(90+)jewelry
Compare #<MichelleMonth>, 8
IF=, @aug(90+)jewelry
Compare #<MichelleMonth>, 9
IF=, @sept(90+)jewelry
Compare #<MichelleMonth>, 10
IF=, @oct(90+)jewelry
Compare #<MichelleMonth>, 11
IF=, @nov(90+)jewelry
Compare #<MichelleMonth>, 12
IF=, @dec
@monthset(90+)jewelry
SET MichelleDate, #<num.timeDay>
SET MichelleYear, #<num.timeYear>
IF R35 @caught(90+)jewelry
IF V98, @lvl98jewelry
IF V96, @lvl96jewelry 
IF V94, @lvl94jewelry
IF V92, @lvl92jewelry
IF V90, @lvl90jewelry
N:You get no equipment because your lvl is too low!!
END

@lvl90jewelry
GIVE I945 (ring) *done
GIVE I994 (amulet) *done
N: You have recieved all of the level 90 jewelry
GOTO @hopeyouarehappy
END

@lvl92jewelry 
GIVE I946 (ring) *done
GIVE I995 (amulet) *done
N: You have recieved all of the level 92 jewelry
GOTO @hopeyouarehappy
END

@lvl94jewelry
GIVE I947 (ring) *done
GIVE I996 (amulet) *done
N: You have recieved all of the level 94 jewelry
GOTO @hopeyouarehappy
END

@lvl96jewelry
GIVE I948 (ring) *done
GIVE I997 (amulet) *done
N: You have recieved all of the level 96 jewelry
GOTO @hopeyouarehappy
END

@lvl98jewelry
GIVE I998 (amulet) *done
N: You have recieved all of the level 98 jewelry
GOTO @hopeyouarehappy
END

@hopeyouarehappy
COMPARE #<dead(90+)jewelry>, 1
	IF> @hopeyouarehappy2
	IF= @hopeyouarehappy2
END
@hopeyouarehappy2
n: The shopkeeper is now dead because of you!!!!
n: I hope you are happy!!!
n: IDIOT!!!
END

@dead(90+)jewelry
MOVE	1,	15, 80
WAIT 2
1:HEH!!
1:Guards!!!
WAIT .3
SOUND jail.wav
ADD murderfail, 1
GOTO LINK 43,0
END

@caught(90+)jewelry
n: The screams of the shopkeeper go off into the distance!!!
n: A person walking past hears the scream and calls for a guard!!!
WAIT 2
SET Timedone, 1
N: your steal skill has been lowered by 2
COMPARE #<steal>, 23
IF<, @skiptake(90+)jewelry
IF=, @skiptake(90+)jewelry
SUB steal,2
N: It is now at level #<steal>
@skiptake(90+)jewelry
SOUND jail.wav
wait .5
GOTO LINK 43,0
END

@urdead!(90+)jewelry
n: YOU ARE DEAD!!
n: HOW ARE YOU SUPPOSED TO DO ANYTHING????
n: LOL!! I'VE NEVER SEEN A DEAD PERSON FIGHT 
n: OR STEAL BEFORE!!!
n: You had better get healed and then come back!!
WAIT 6
GOTO EXIT
END

@shopkeeperdead(90+)jewelry
ACTOR 4, "Michelle", characters4, 3, 15,90
WAIT 2
N: The shopkeeper is dead!
N: You look at his grave in disgrace of what you have done!
WAIT 2
h: DAMN!! I can't buy any items from here anymore!!
h: I guess I should have listened to my conscience!
h: The grave reads -
h: #<MichelleMonth> #<MichelleDate> , #<MichelleYear>
h: Michelle (a former shopkeeper and a singer),
h: Aged 20
h: R.I.P
h: Hmmmm what's this?? Someone has left a note by the gravestone!
h: It reads: "To Michelle"
h: "Michelle, you were a great singer and you had just started to record your first record!"
h: "Your song would have gone to number 1! It was great!!"
h: "(I am an Alien flying in space) That was the name!"
h: "I will strangle The killer if I ever meet him!!"
h: "Rest in peace my darling
h: "Signed: Michelle's husband"
h: I don't want to be strangled so I'm leaving this dump!!!!
WAIT 4
GOTO EXIT
END

@jan(90+)jewelry
SET MichelleMonth, January
GOTO @monthset(90+)jewelry
END
@feb(90+)jewelry
SET MichelleMonth, Feburary
GOTO @monthset(90+)jewelry
END
@mar(90+)jewelry
SET MichelleMonth, March
GOTO @monthset(90+)jewelry
END
@apr(90+)jewelry
SET MichelleMonth, April
GOTO @monthset(90+)jewelry
END
@may(90+)jewelry
SET MichelleMonth, May
GOTO @monthset(90+)jewelry
END
@jun(90+)jewelry
SET MichelleMonth, June
GOTO @monthset(90+)jewelry
END
@july(90+)jewelry
SET MichelleMonth, July
GOTO @monthset(90+)jewelry
END
@aug(90+)jewelry
SET MichelleMonth, August
GOTO @monthset(90+)jewelry
END
@sept(90+)jewelry
SET MichelleMonth, September
GOTO @monthset(90+)jewelry
END
@oct(90+)jewelry
SET MichelleMonth, October
GOTO @monthset(90+)jewelry
END
@nov(90+)jewelry
SET MichelleMonth, November
GOTO @monthset(90+)jewelry
END
@dec(90+)jewelry
SET MichelleMonth, December
GOTO @monthset(90+)jewelry
END

;---------
; general boot shop

SCENE 1104 bwEuroStreet
	THEME	0
;	MUSIC	waltz2.mid
	ACTOR	1,	"Donna", joshTownsFolk, 24, 5, 90
	POSE	24,25
	SEL		1
	MOVE	1,	15, 80
	OFFER2	0,99,20
	
END

@EventActorclick1
IF DEAD @urdead!(90+)boots
MENU "Talk=@talk(90+)boots"
END
@talk(90+)boots
	' You'll find nothing better, for your weary feet!
	' Trust me! Like I trust you!
	' Can I trust you?
	H: Yeah I don't steal from boot shops! I guess boots are not as important
	' Does that mean you won't buy anything off me?
	H: No, I will buy boots off you but only when I need them!
	' OK, so choose you boots then
 END
@urdead!(70-90)boots
N: YOU ARE DEAD! YOU NEED TO HEAL YOURSELF FIRST!
END


;--------------
; Generic Casino
;
SCENE 1105		aztec
	THEME	0
;	MUSIC	waltz2.mid
	ACTOR	1,	"Barker", joshRoyalty, 2, 5, 90
	SEL		1
	MOVE	1,	15, 80
	GAME	1
	' Try your luck!
	' Our slots pay the most!
END


; we need a comment at the end, or bad things happen



