; SHOPS IN ROT
;
; Made by Silver for RoT
;
SCENE 900 aaahappy, SCENE, "Helm Shop" 0,0

ACTOR	1,	"Jinar",a16, 4, 30, 85

#include R0900.txt

	IF T193,@job3
	IF T190,@job2
	IF T192,@peace2
	IF T191,@peace
	IF T188,@job
	IF T186,@jidi
	IF T187,@jidii
	GIVE T181
	1: Hmmm...
	1: You'd be better off with a nice helm with your hair cut...
	OFFER2 0,10,10
	END
@jidi
	1: My poor little bro...
	1: We told him so often: "Never eat potions you don't know!"
	OFFER2 0,10,10
	END
@jidii
	1: I will not rest until you're dead.
	WAIT 3.0
	SOUND "sword1.wav"
	HOST_TAKE H15
	1: Die!
	END

@job
	1: My little bro told me you wiped out the compition for us.
	1: Here is 5000 GP as agreed.
	HOST_GIVE G5000
	HOST_GIVE T190
	HOST_GIVE T194	
	OFFER2 0,10,10
	END
@job2
	1: Profits went up with 125%% thanks to your help.
	1: Without the compition we can ask higher prices for our goods.
	1: You'll pay the normal price of course, you're a friend of the family now.
	OFFER2 0,10,10
	END
@job3
	1: Profits went up with 135%% thanks to your help.
	1: Since we work together we get more customers even though the prices increased.
	1: You'll pay the normal price of course, you're a friend of the family now.
	OFFER2 0,10,10
	END
@peace
	H: Your little brother told me to talk with you about your "situation"...
	1: You're gonna kill Hago for us?
	H: No, not at all!
	H: I have a better solution from which you both benefit.
	1: ?
	H: What if you to start working together instead of working against each other?
	1: What's the benefit in that?
	H: Well, instead of having to reduce the price the whole time to compete with each other.
	H: You could join each other and raise prices together.
	H: Alternatively, you start advertisement campaigns together to get more customers.
	1: I like the sound of that.
	1: Alright, go talk with Hago, if he agrees you have a deal.
	HOST_GIVE T192
	OFFER2 0,10,10
	WAIT 5.0
	1: %1, here is 1000 GP for your trouble.
	HOST_GIVE G1000
	END
@peace2
	1: You should go talk with Hago.
	OFFER2 0,10,10
	END	

@eventActorGive1
	IF  C51, @traderskill
	IF  C52, @traderskill
	IF -C10, @endfi
@traderskill
SET itemsell, #<item.id>
SET itemcost, #<item.price>
MUL itemcost, "6"
DIV itemcost, "4"
DIV itemcost, "2"
SET itemcostn,#<item.price>
DIV itemcostn, "2"
COMPARE #<item.price>,#<itemcost>
IF< 	@banfi	
	1: Ah a #<item.name>, normally I would give you #<itemcostn> GP for it, but since you are a %C10 I will give you #<itemcost> GP.
	HOST_GIVE G#<itemcost>
	END
@endfi
	1: I'm sorry but I won't give you anything back for that.
	END
@banfi
	HOST_GIVE T172
	PARTY T172 
	GOTO LINK 99,0,1
	END
 
SCENE 901 aaahappy, SCENE, "Armor Shop" 0,0

ACTOR	1,	"Jinar's brother",a16, 4, 30, 85

#include R0900.txt

	IF T193,@solveda
	IF T187,@jinadi
	IF T186,@poor
	IF T188,@hagodi
	1: I have some nice Armor for you.
	1: Visit my little bro Jinar for helms.
@offer
	OFFER2 0,10,11
	END
@jinadi
	1: I'm not selling to you anymore...
	END
@poor
	1: Poor little bro...
	1: He was so young.
	GOTO @offer
@hagodi
	1: You rock!
	1: Never thought anybody had the guts to kill Hago.
	GOTO @offer
@solveda
	1: Thanks to you both Hago and the Jinar family make a lot of profits.
	GOTO @offer
@eventActorGive1
	IF  C51, @traderskill
	IF  C52, @traderskill
	IF -C10, @endfi
@traderskill
SET itemsell, #<item.id>
SET itemcost, #<item.price>
MUL itemcost, "6"
DIV itemcost, "4"
DIV itemcost, "2"
SET itemcostn,#<item.price>
DIV itemcostn, "2"
COMPARE #<item.price>,#<itemcost>
IF< 	@banfi	
	1: Ah a #<item.name>, normally I would give you #<itemcostn> GP for it, but since you are a %C10 I will give you #<itemcost> GP.
	HOST_GIVE G#<itemcost>
	END
@endfi
	1: I'm sorry but I won't give you anything back for that.
	END
@banfi
	HOST_GIVE T172
	PARTY T172 
	GOTO LINK 99,0,1
	END
@end
	1: I'm sorry but I won't give you anything back for that.
	END

SCENE 905, aaahappy, SCENE, "Boot Shop" 0,0

#include R0900.txt

ACTOR	1,	"Jinar's lil brother",a26, 1, 30, 85
ACTOR	2,	"Jinar's lil brother",a26, 1, -30, 85

	IF T193,@peaceb
	IF T192,@peacea
	IF T191,@peace
	IF T186,@died
	IF T187,@died
	IF T190,@reward
	IF T188,@donejob
	IF T184,@acceptedqu
	IF T183,@save
	IF T182,@mission
	MOVE 1,-100,10,1
	MOVE 2,30,85,1
	2: Want to boot somebody?
	2: Use Jinar's Happy Family Boots!
@offerall
	OFFER2 0,50,20
	IF -I700, @challengesTip
	END

@challengesTip
	2: Did you know that once you hit level 20 you can do The Challenges to win powerful summon spells?
	2: You'll need a pair %I700 to cross the water south of Tajuin Rock.
	END
	
@peace
	MOVE 1,-100,10,1
	MOVE 2,30,85,1
	2: You should talk with Jinar.
	GOTO @offerall
@peacea
	MOVE 1,-100,10,1
	MOVE 2,30,85,1
	2: Hey you convinced my bro!
	2: You should go talk with Hago now.
	GOTO @offerall
@peaceb
	MOVE 1,-100,10,1
	MOVE 2,30,85,1
	2: Really nice...
	2: You even convinced that stubborn head Hago!
	2: You rock %1!
	GOTO @offerall
@save
	MOVE 1,-100,10,1
	MOVE 2,30,85,1		
	WAIT 3.0
	H: Hago wanted me to kill you.
	2: ...
	2: Will you ... kill me?
	H: Don't worry, I refused.
	2: *Pwefff*
	2: What if you kill him for me instead?
	2: Jinar would be happy if the compitition is whiped out.
	2: He will pay 5000 GP if you accept.
@ask
	MOVE 1,-100,10,1
	MOVE 2,30,85,1	
	2: Do you want to kill Hago for us?
	ASK 30.0
	IF YES, @accept
	IF NO, @refuse
	2: Huh?
	GOTO @ask
@acceptedqu
	MOVE 1,-100,10,1
	MOVE 2,30,85,1
	2: Did you kill Hago already?
	GOTO @offerall

@accept
	MOVE 1,-100,10,1
	MOVE 2,30,85,1
	HOST_GIVE T184
	2: One quick hit in his back is enough.
	2: Oh yeah, you can have these %I700 
	HOST_GIVE I700
	2: It's the least I can do for sparing my life.
	OFFER2 0,50,20	
	END
@refuse
	MOVE 1,-100,10,1
	MOVE 2,30,85,1
	2: You're a peace loving type aren't ya?
	2: Ah well, it's an honorable path.
	2: Since you didn't kill me I have something to thank you.
	2: I have a pair of %I700 here.
	2: You can have them if you want.
	HOST_GIVE I700
	HOST_GIVE T185
	HOST_GIVE T191
	H: Isn't there a solution from which you both benefit?
	2: I don't know, you have to talk to Jinar for that stuff.
	OFFER2 0,50,20
	END	
@donejob
	MOVE 1,-100,10,1
	MOVE 2,30,85,1
	2: I heard you killed Hago!
	2: Visit Jinar for your reward.
	OFFER2 0,50,20
	END	
@reward
	MOVE 1,-100,10,1
	MOVE 2,30,85,1
	2: I see Jinar gave you your reward.
	OFFER2 0,50,20
	END	
@mission
	WAIT 2.0
	MENU "talk=@s1","Give potion(/ or kill)=@s2"
	GOTO @mission
@s1
	H: I'm here to kill you for Hago.
	1: What!?
	H: Well I was actually wondering if you have a better offer.
	1: What does he pay you?
@menu2
	MENU "3000 GP=@gp1","4000 GP=@gp2","5000 GP=@gp3","7500 GP=@gp4","10000 GP=@gp5" 
	GOTO @menu2
@gp1
	H: 3000 GP
@bastard
	1: That cheap bastard...
	1: Jinar pays you 5000 GP to get rid of him.
@bas2
	1: Will you kill him for us?
	WAIT 3
	MENU "Yes=@accept","No=@ref"
	GOTO @bas2
@gp2
	H: 4000 GP
	GOTO @bastard
@gp3
	H: 5000 GP
	1: Jinar would pay the same...
	GOTO @bas2
@gp4
	H: 7500 GP
	1: That much huh?
	1: Jinar can only pay 5000 GP...
	GOTO @bas2
@gp5
	H: 10000 GP
	1: You liar!
	1: Hago doesn't even have that much money.
	1: Anyway Jinar can pay you 5000 GP
	GOTO @bas2
@ref
	1: Will you kill me or leave me alone?
	MENU "Kill him=@sz","Leave him alone=@refuse"
	GOTO @ref
@s2
	OFFER2 0,50,20
	END

@eventActorGive1
	GOTO @randompojo#<randompojo>

@randompojo1
	COMPARE #<item.id>, "18"
	IF= @s4
	GOTO @s2
@randompojo2
	COMPARE #<item.id>, "1"
	IF= @s4
	GOTO @s2
	@randompojo3
	COMPARE #<item.id>, "2"
	IF= @s4
	GOTO @s2
@randompojo4
	COMPARE #<item.id>, "12"
	IF= @s4
	GOTO @s2
@randompojo5
	COMPARE #<item.id>, "13"
	IF= @s4
	GOTO @s2
@randompojo6
	COMPARE #<item.id>, "36"
	IF= @s4
	GOTO @s2

@eventActorAttack1
GOTO @s3

@s3
	1: Heeelp!!
	HOST_GIVE T187	
	SET weapon, "%E0"
	Wait 3.0
	MOVE 1,-100,50,1
	N: You killed Jinar's little brother.
	N: You found a pair of %I700 on his dead body.
	HOST_GIVE I700
	OFFER 5000
	END
@sz
	1: Heeelp!!
	HOST_GIVE T187	
	SET weapon, "%E0"
	wait 2.0
	SOUND "sword1.wav"
	WAIT 2.0
	SOUND "pain1.wav"
	Wait 3.0
	MOVE 1,-100,50,1
	N: You killed Jinar's little brother.
	N: You found a pair of %I700 on his dead body.
	HOST_GIVE I700
	OFFER 5000
	END
@s4
	1: This looks yummie...
	1: Aaah!
	1: I can't breath... 
	1: ... my allergy...
	1: Kgggg....
	SOUND "pain1.wav"
	HOST_GIVE T186
	Wait 3.0
	MOVE 1,-100,50,1
	N: You killed Jinar's little brother with a %I#<item.id>.
	N: You found a pair of %I700 on his dead body.
	HOST_GIVE I700
	OFFER 5000
	END
@died
	MOVE 1,-100,10,1
	END
@eventActorGive2
	IF  C51, @traderskill
	IF  C52, @traderskill
		IF  C51, @traderskill
	IF  C52, @traderskill
	IF -C10, @endfi
@traderskill
@traderskill
SET itemsell, #<item.id>
SET itemcost, #<item.price>
MUL itemcost, "6"
DIV itemcost, "4"
DIV itemcost, "2"
SET itemcostn,#<item.price>
DIV itemcostn, "2"
COMPARE #<item.price>,#<itemcost>
IF< 	@banfi	
	2: Ah a #<item.name>, normally I would give you #<itemcostn> GP for it, but since you are a %C10 I will give you #<itemcost> GP.
	HOST_GIVE G#<itemcost>
	END
@endfi
	2: I'm sorry but I won't give you anything back for that.
	END
@banfi
	HOST_GIVE T172
	PARTY T172 
	GOTO LINK 99,0,1
	END
SCENE 902 aaahappy, SCENE, "Shield Shop" 0,0

ACTOR	1,	"Jinar's Father",a21, 4, 30, 85

#include R0900.txt

	IF T193,@solveda
	IF T187,@jinadi
	IF T186,@poor
	IF T188,@hagodi
	1: Best Shields in town!
	1: Buy now and make me and my family rich!
@offer
	OFFER2 0,10,21
	END
@solveda
	1: Welcome to the family.
	1: Never thought this would end with out spilling blood...
	GOTO @offer
@jinadi
	1: YOU!
	1: You killed my favorite son!
	WAIT 3.0
	N: You run just in time to prevent being slashed to pieces.
	WAIT 2.0
	N: Jinar's Fathers only tears your shirt
	TAKE H5
	WAIT 2.0
	GOTO EXIT
@poor
	1: My favorite son...
	GOTO @offer
@hagodi
	1: Welcome to the family %1!
	1: You solved the situation exactly as I wanted it to be solved!
	GOTO @offer
@eventActorGive1
	IF  C51, @traderskill
	IF  C52, @traderskill
	IF -C10, @endfi
@traderskill
SET itemsell, #<item.id>
SET itemcost, #<item.price>
MUL itemcost, "6"
DIV itemcost, "4"
DIV itemcost, "2"
SET itemcostn,#<item.price>
DIV itemcostn, "2"
COMPARE #<item.price>,#<itemcost>
IF< 	@banfi	
	1: Ah a #<item.name>, normally I would give you #<itemcostn> GP for it, but since you are a %C10 I will give you #<itemcost> GP.
	HOST_GIVE G#<itemcost>
	END
@endfi
	1: I'm sorry but I won't give you anything back for that.
	END
@banfi
	HOST_GIVE T172
	PARTY T172 
	GOTO LINK 99,0,1
	END

SCENE 903 aaahappy, SCENE, "Ring Shop" 0,0

ACTOR	1,	"Jinar's Sister",a17, 4, 30, 85

#include R0900.txt
	POSE 1,4
	IF T193,@solveda
	IF T187,@jinadi
	IF T186,@poor
	IF T188,@hagodi
	1: Buy Jinar Rings, they make you look *dangerous*.
@offer
	OFFER2 0,10,22
	END
@solveda
	1: You handled things pretty well.
	1: Luckily it didn't end up in a war...
	GOTO @offer
@jinadi
	1: You'd better leave...
	WAIT 4.0
	GOTO EXIT
@poor
	1: Poor little bro...
	1: He knew he was allergic to potions...
	1: Why did he eat it?
	GOTO @offer
@hagodi
	1: Never thought you'd actually kill Hago.
	1: You're pretty cool %1.
	GOTO @offer
@eventActorGive1
	IF  C51, @traderskill
	IF  C52, @traderskill
	IF -C10, @endfi
@traderskill
SET itemsell, #<item.id>
SET itemcost, #<item.price>
MUL itemcost, "6"
DIV itemcost, "4"
DIV itemcost, "2"
SET itemcostn,#<item.price>
DIV itemcostn, "2"
COMPARE #<item.price>,#<itemcost>
IF< 	@banfi	
	1: Ah a #<item.name>, normally I would give you #<itemcostn> GP for it, but since you are a %C10 I will give you #<itemcost> GP.
	HOST_GIVE G#<itemcost>
	END
@endfi
	1: I'm sorry but I won't give you anything back for that.
	END
@banfi
	HOST_GIVE T172
	PARTY T172 
	GOTO LINK 99,0,1
	END

SCENE 904 aaahappy, SCENE, "Rope Shop" 0,0

	ACTOR	1,	"Jinar's lil Sis",a18, 4, 30, 85

#include R0900.txt

	IF T193,@solveda
	IF T187,@jinadi
	IF T186,@poor
	IF T188,@hagodi

	OFFER 950,951
	1: Best ropes for YOU!
@offer
	OFFER2 0,10,23
	END
@solveda
	1: My #<g.hero>!
	1: You solved the problem without spilling blood!
	GOTO @offer
@jinadi
	1: Ahhh!
	1: Somebody please help me!
	1: %1 has come to kill me to!
	MOVE 1,-25,65
	WAIT 10.0
	END
@poor
	1: *sniff*
	1: My poor brother...
	GOTO @offer
@hagodi
	1: Normally I don't like it when people die...
	1: But you kicked Hago's ass!
	GOTO @offer
@eventActorGive1
	IF  C51, @traderskill
	IF  C52, @traderskill
	IF -C10, @endfi
@traderskill
SET itemsell, #<item.id>
SET itemcost, #<item.price>
MUL itemcost, "6"
DIV itemcost, "4"
DIV itemcost, "2"
SET itemcostn,#<item.price>
DIV itemcostn, "2"
COMPARE #<item.price>,#<itemcost>
IF< 	@banfi	
	1: Ah a #<item.name>, normally I would give you #<itemcostn> GP for it, but since you are a %C10 I will give you #<itemcost> GP.
	HOST_GIVE G#<itemcost>
	END
@endfi
	1: I'm sorry but I won't give you anything back for that.
	END
@banfi
	HOST_GIVE T172
	PARTY T172 
	GOTO LINK 99,0,1
	END

SCENE 906 aaahappy, SCENE, "Weapon Shop" 0,0

ACTOR	1,	"Hago",rotm, 2, 25, 85
ACTOR	2,	"Hago",rotm, 2, -25, -85

#include R0900.txt

	IF T193, @jobz
	IF T189, @donejob
	IF T192, @peace
	IF T188, @hagodied
	IF T187,@rewa
	IF T186,@rewb
	IF T184, @kill
	IF T181, @quest
@go
	MOVE 1,-100,-100,1
	MOVE 2,25,85,1
	IF V11,@shop
	2: I have just what you need.
	2: That Jinar Family is ruining my business...
#include weaponscript.txt
@all
	OFFER2 0,10,12,0,10,13,0,10,14,0,10,15,0,10,16,0,10,17,0,10,18
	END
@1
	OFFER2 0,10,12
	END
@2
	OFFER2 0,10,13
	END
@3
	OFFER2 0,10,14
	END
@4
	OFFER2 0,10,15
	END
@5
	OFFER2 0,10,16
	END
@6
	OFFER2 0,10,17
	END
@7
	OFFER2 0,10,18
	END
@shop
	MOVE 1,-100,-100,1
	MOVE 2,25,85,1
	2: I don't think I have something you need, but feel free to check my store.
	GOTO @check
	END
@quest
	MOVE 1,-100,-100,1
	MOVE 2,25,85,1
	IF T183, @check
	IF T182, @accept2
	2: Hey %1!	
	2: Maybe you can help me out a bit...
	2: I need somebody to assassinate Jinar's little brother.
	2: If he dies then the whole family has to go to the funeral.
	2: Then I can rob their stores.
	2: I can pay you 3000 GP if you help me.
@s1	
	2: Will you help me?
	ASK 30.0
	IF YES, @accept
	IF NO, @reject
	2: Huh?
	GOTO @s1
@reject
	HOST_GIVE T183
	2: You'd better not tell anybody about this...
	GOTO @check
@accept 
	2: Good,
	2: Here is the plan, I heard that Jinar's little brother is allergic for a certain potion.
	2: I don't know which potion though, that's up to you to find out.
	SET	randompojo, "%R6"
	2: Of course you could just kill him, 
	2: but then you end up pissing off Jinar's whole family and you won't be able to buy anything from them anymore.
	2: You can find Jinar's little brother at the boot shop in Sacred Plaines.	
	HOST_GIVE T182 
	2: In the meantime you can take a look at my weapons.
	GOTO @check
	END
@accept2
	MOVE 1,-100,-100,1
	MOVE 2,25,85,1
	2: Did you kill him already?
	2: You can find Jinar's little brother at the boot shop in Sacred Plaines.
	GOTO @check
	END
@kill
	1: Did you come back for more weapons?
	GOTO @check
END
@eventActorSpell1
@eventActorAttack1
	HOST_GIVE T188
	1: YOU DIRTY bastaaaa...
	SOUND "pain1.wav"
	WAIT 3.0
	OFFER 5000
	SET weapon "%E0"
	N: Hago dies with your %I#<weapon> in his back.
	MOVE 1, -100,10,1
	END
@hagodied
	MOVE 1,-100,10,1
	END
@rewa
	MOVE 1,-100,-100,1
	MOVE 2,25,85,1
	2: To bad you killed him with your %I#<weapon>, 
	2: now they start looking for the assassin...
	2: Here is your 3000 GP as agreed.
	HOST_GIVE G3000
	HOST_GIVE T189
	HOST_GIVE T194
	GOTO @check
@rewb
	MOVE 1,-100,-100,1
	MOVE 2,25,85,1
	2: Ha!
	2: You're fantastic, the Jinar Family believes that Jinar's little brother died cause of his allergy.
	2: I was able to steal so much that I can give you 5000 GP instead of 3000 GP.
	HOST_GIVE G5000
	HOST_GIVE T189
	HOST_GIVE T194
	GOTO @check
@donejob
	MOVE 1,-100,-100,1
	MOVE 2,25,85,1
	2: The Jinar Families business slowed down since you killed Jinar's little brother.
	GOTO @check
	END
@peace
	MOVE 1,-100,-100,1
	MOVE 2,25,85,1
	WAIT 2.0
	H: I just came back from Jinar and agreed with a peaceful solution.
	2: What's the deal?
	H: You two start working together.
	2: WHAT!?
	WAIT 3.0
	2: That is the most ridicul-...
	2: No wait...
	WAIT 4.0
	2: It makes sense, together we probably get more customers then we ever had before when we still worked alone.
	H: Yup, that's the general idea.
	2: Alright, here is 2,500 GP for solving the problem.
	HOST_GIVE G2500
	HOST_GIVE T193
	HOST_GIVE T194
	WAIT 3.0
	2: Thank you for the all trouble you've gone through for us, %1.
	GOTO @check
	END	
@jobz
	MOVE 1,-100,-100,1
	MOVE 2,25,85,1
	2: Profits went up with 145%% since there is peace with the Jinar Family.
	2: Thanks again %1.
	GOTO @check
@eventActorGive1
	IF  C51, @traderskill
	IF  C52, @traderskill
	IF -C10, @endfi
@traderskill
SET itemsell, #<item.id>
SET itemcost, #<item.price>
MUL itemcost, "6"
DIV itemcost, "4"
DIV itemcost, "2"
SET itemcostn,#<item.price>
DIV itemcostn, "2"
COMPARE #<item.price>,#<itemcost>
IF< 	@banfi	
	1: Ah a #<item.name>, normally I would give you #<itemcostn> GP for it, but since you are a %C10 I will give you #<itemcost> GP.
	HOST_GIVE G#<itemcost>
	END
@endfi
	1: I'm sorry but I won't give you anything back for that.
	END
@banfi
	HOST_GIVE T172
	PARTY T172 
	GOTO LINK 99,0,1
	END

@eventActorGive2
		IF  C51, @traderskill
	IF  C52, @traderskill
	IF -C10, @endfi
@traderskill
SET itemsell, #<item.id>
SET itemcost, #<item.price>
MUL itemcost, "6"
DIV itemcost, "4"
DIV itemcost, "2"
SET itemcostn,#<item.price>
DIV itemcostn, "2"
COMPARE #<item.price>,#<itemcost>
IF< 	@banfi	
	2: Ah a #<item.name>, normally I would give you #<itemcostn> GP for it, but since you are a %C10 I will give you #<itemcost> GP.
	HOST_GIVE G#<itemcost>
	END
@endfi
	2: I'm sorry but I won't give you anything back for that.
	END
@banfi
	HOST_GIVE T172
	PARTY T172 
	GOTO LINK 99,0,1
	END
SCENE 907 aaahappy, SCENE, "Potion Shop" 0,0

ACTOR	1,	"Jinar's Oldest Bro",a25, 4, 25, 85

#include R0900.txt

	IF T193,@solveda
	IF T187,@jinadi
	IF T186,@poor
	IF T188,@hagodi	
	1: Buy Jinar's Potions!
	1: We need your money!
@offer
	OFFER2 0,4,0
	END
@solveda
	1: Hey %1.
	1: Thanks for taking care of our problem.
	GOTO @offer
@jinadi
	1: Screw you!
	1: Just be glad I don't kill you.
	1: Don't expect me to sell anything to *YOU*.
	END
@poor 
	1: Poor little bro
	1: ...
	1: Poor little us...
	1: Somebody robbed us when we where at the funeral.
	1: Only an evil villain would do something like that.
	GOTO @offer
@hagodi
	1: Wooo Hooo!
	1: %1 you rock!
	1: We're finally taking over Hago's business.
	GOTO @offer
	END
@eventActorGive1
	IF  C51, @traderskill
	IF  C52, @traderskill
	IF -C10, @endfi
@traderskill
SET itemsell, #<item.id>
SET itemcost, #<item.price>
MUL itemcost, "6"
DIV itemcost, "4"
DIV itemcost, "2"
SET itemcostn,#<item.price>
DIV itemcostn, "2"
COMPARE #<item.price>,#<itemcost>
IF< 	@banfi	
	1: Ah a #<item.name>, normally I would give you #<itemcostn> GP for it, but since you are a %C10 I will give you #<itemcost> GP.
	HOST_GIVE G#<itemcost>
	END
@endfi
	1: I'm sorry but I won't give you anything back for that.
	END
@banfi
	HOST_GIVE T172
	PARTY T172 
	GOTO LINK 99,0,1
	END

SCENE 910, bar, SCENE, "Sparkster's Slave House", 0,0

SET slavaon, #<rating>	
#include banscripts.txt

ACTOR 1,	"Sparkster", boss018, 4, 10,90

#include R0900.txt

	IF T221, @done
	IF C20, @quest

@done
	OFFER 785,786,787,788,789,790,791,792,793, 28, 734, 773, 774, 775
	1: Welcome to Sparkster's Slave House.
	1: We got the finest selection of slaves here, fresh from the wastelands.
@offer
	OFFER 785,786,787,788,789,790,791,792,793, 28, 734, 773, 774, 775
	END
@quest
	IF T220,@questa
	1: Good, I see you are a %C, in other words, precisely what I'm looking for.
	1: A few slaves broke free and I need you to kill them to set an example for other slaves.
	H: Sure, depends on what it pays.
	1: Haha!
	1: You're a #<g.man> to my heart.
	1: You'll get 3000 GP if you accomplish your task.
	H: Sounds good enough.
	1: Good, here is what I want dead.
	1: 15 %m1, 10 %m2, 8 %m3,  5 %m4 and 2 %m6.
	1: Here is a %I731 that allows you to check your progress.
	1: In the meanwhile you can take a look of the slaves I have left.
	HOST_GIVE T220
	HOST_GIVE I731
	GOTO @offer
@questa
	1: Ah you returned %1.
	1: Let me check your progress...
	WAIT 4.0
	IF -KM1.15, @notyet
	IF -KM2.10, @notyet
	IF -KM3.8, @notyet
	IF -KM4.5, @notyet
	IF -KM6.2, @notyet
	1: Fabulous job!
	1: That shall teach those filthy slaves to run away!
	1: Here is your reward, 3000 GP as agreed.
	HOST_GIVE G3000
	HOST_GIVE T221
	HOST_TAKE I731
	1: Take a look at my slaves, you got money enough to buy one more now.
	GOTO @offer
	END
@notyet
	1: You haven't killed enough runaway slaves yet.
	1: Come back later get your reward.
	1: In the meanwhile, check my slaves.
	GOTO @offer
	END
@eventActorGive1
	IF  C51, @traderskill
	IF  C52, @traderskill
	IF -C10, @endfi
@traderskill
SET itemsell, #<item.id>
SET itemcost, #<item.price>
MUL itemcost, "6"
DIV itemcost, "4"
DIV itemcost, "2"
SET itemcostn,#<item.price>
DIV itemcostn, "2"
COMPARE #<item.price>,#<itemcost>
IF< 	@banfi	
	1: Ah a #<item.name>, normally I would give you #<itemcostn> GP for it, but since you are a %C10 I will give you #<itemcost> GP.
	HOST_GIVE G#<itemcost>
	END
@endfi
	1: I'm sorry but I won't give you anything back for that.
	END
@banfi
	HOST_GIVE T172
	PARTY T172 
	GOTO LINK 99,0,1
	END


SCENE 911,  check, CUT, "Progress checker", 0,0

	N: ~~~~~~~~~
	N: Progress Checker
	N: ~~~~~~~~~
	WAIT 2.0
	 N: You have to kill: 15 %m1s, you killed %k1 %m1s
	WAIT 4.0
	 N: You have to kill: 10 %m2s, you killed %k2 %m2s
	WAIT 4.0
	 N: You have to kill: 8 %m3's, you killed %k3 %m3's
	WAIT 4.0
	 N: You have to kill: 5 %m4s, you killed %k4 %m4s
	WAIT 4.0
	 N: You have to kill: 2 %m6's, you killed %k6 %m6's
	WAIT 8.0
	GOTO SCENE 1
	END


SCENE 912,  check, CUT, "Progress checker", 0,0

	N: ~~~~~~~~~
	N: Progress Checker
	N: ~~~~~~~~~
	WAIT 2.0
	 N: You have to kill: 5 %m8's, you killed %k8 %m8's
	WAIT 4.0
	 N: You have to kill: 4 %m9's, you killed %k9 %m9's
	WAIT 4.0
	 N: You have to kill: 3 %m11s, you killed %k11 %m11s
	WAIT 4.0
	 N: You have to kill: 4 %m51, you killed %k51 %m51
	WAIT 4.0
	 N: You have to kill: 2 %m50's, you killed %k50 %m50's
	WAIT 8.0
	GOTO SCENE 1


SCENE 913, unknownhell, CUT, "Documents",0,0

	ACTOR 1, "Emperor Shinzobi", boss010, 1, 46,90

	HOST_GIVE T250
	MOVE 1,89,76
	1: Today I received word from our best spy that Warlord Keithuso is planning on an attack on the Empire.
	MOVE 1,43,96
	WAIT 6.0
	1: He will most likely concentrate his attack on the Imperial Palace and on me personally.
	MOVE 1,56,67
	WAIT 6.0
	1: We can and shall not tolerate this!
	MOVE 1,67,56
	WAIT 6.0
	1: I already ordered to increase the security near the Palace and I placed two Imperial Guards on my side.
	MOVE 1,25,87
	WAIT 4.0
	1: For the first time in my life I really fear that Keithuso will succeed this time....
	WAIT 5.0
	1: It is still to early...
	MOVE 1,45,45
	WAIT 4.0
	1: I have not rebuilt my forces since the last attack yet...
	WAIT 3.0
	MOVE 1, 71,76
	WAIT 6.0
	1: I ordered for an increase in recruits I heard a promising young #<g.man> lives in Elliair.
	FACE 1,0
	1: #<g.He> might be my last hope...
	WAIT 3.0
	GOTO EXIT
	END
	
	
SCENE 914, 	check, CUT, "RoT War Progress Checker", 0,0

	N: ~~~~~~~~~~~~~~~~~
	N: RoT War Progress Checker
	N: ~~~~~~~~~~~~~~~~~
	WAIT 2.0
	N: Battles won: #<nudfynw>
	N: Battles lost: #<nudfynl>
	N: Total battles fought: #<nudfynt2>/99
	WAIT 2.0
	N: ~~~~~~~~
	N: MAP STATUS
	N: ~~~~~~~~
	N: Kagoshima: #<nudfyn1>/17
	N: Tajuin Rock: #<nudfyn2>/7
	N: Lock And Load: #<nudfyn3>/15
	N: No Remorse: #<nudfyn4>/10
	N: Sacred Plaines: #<nudfyn5>/13
	N: Green Destiny: #<nudfyn6>/12
	N: Neither Lands: #<nudfyn7>/13
	N: Maku's Tunner: #<nudfyn8>/12	
	WAIT 8.0
	GOTO SCENE 1
	

SCENE 915, 	,	SCENE, "Slave Trainer",0,0

	FLAGS 261448
#include lpscript.txt
	IF T451, @exit2
	GIVE T451
	N: Call your slave out to train it.
	N: You can NOT participate in the fight!
	FIGHT2 500
	FIGHT2 500
	FIGHT2 500
	FIGHT2 500
	FIGHT2 500
	WAIT 3.0
@exit2
	TAKE T451
#include lpscript3.txt
	GOTO LINK 0,22,0
	
@exit
	GOTO EXIT
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; SHOPS NEITHER LANDS
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

SCENE 920, 	inside, SCENE, "Rebel Weapons",0,0

	ACTOR 1, "Kuto Shi", monster035,1,40,90

#include R0900.txt

	1: Be a rebel buy rebel weapons today!

;	STRCMP #<str.serverName>, "Solo Channel"
;	IF= @all

	GOTO @all

#include weaponscript.txt	
@all
	OFFER2 10,20,12,  10,20,13,  10,20,14,  10,20,15,  10,20,16,  10,20,17,  10,20,18, 998,999,19
	END
@1
	OFFER2 10,20,12, 998,999,19
	END
@2
	OFFER2 10,20,13, 998,999,19
	END
@3
	OFFER2 10,20,14, 998,999,19
	END
@4
	OFFER2 10,20,15, 998,999,19
	END
@5
	OFFER2 10,20,16, 998,999,19
	END
@6
	OFFER2 10,20,17, 998,999,19
	END
@7
	OFFER2 10,20,18, 998,999,19
	END

@eventActorGive1
	IF  C51, @traderskill
	IF  C52, @traderskill
	IF -C10, @endfi
@traderskill
SET itemsell, #<item.id>
SET itemcost, #<item.price>
MUL itemcost, "6"
DIV itemcost, "4"
DIV itemcost, "2"
SET itemcostn,#<item.price>
DIV itemcostn, "2"
COMPARE #<item.price>,#<itemcost>
IF< 	@banfi	
	1: Ah a #<item.name>, normally I would give you #<itemcostn> GP for it, but since you are a %C10 I will give you #<itemcost> GP.
	HOST_GIVE G#<itemcost>
	END
@endfi
	1: I'm sorry but I won't give you anything back for that.
	END
@banfi
	HOST_GIVE T172
	PARTY T172 
	GOTO LINK 99,0,1
	END

SCENE 921, 	inside, SCENE, "Rebel Shields",0,0

	ACTOR 1, "Katoru", monster046,4,40,90

#include R0900.txt

	1: Buy your rebellion shields today!
	OFFER2 10,20,21
	END

@eventActorGive1
	IF  C51, @traderskill
	IF  C52, @traderskill
	IF -C10, @endfi
@traderskill
SET itemsell, #<item.id>
SET itemcost, #<item.price>
MUL itemcost, "6"
DIV itemcost, "4"
DIV itemcost, "2"
SET itemcostn,#<item.price>
DIV itemcostn, "2"
COMPARE #<item.price>,#<itemcost>
IF< 	@banfi	
	1: Ah a #<item.name>, normally I would give you #<itemcostn> GP for it, but since you are a %C10 I will give you #<itemcost> GP.
	HOST_GIVE G#<itemcost>
	END
@endfi
	1: I'm sorry but I won't give you anything back for that.
	END
@banfi
	HOST_GIVE T172
	PARTY T172 
	GOTO LINK 99,0,1
	END

SCENE 922, 	inside, SCENE, "Rebel Armor",0,0

	ACTOR 1, "Pergitu", monster045,4,40,90

#include R0900.txt

	1: Be free, be armored!
	OFFER2 10,20,11
	END

@eventActorGive1
	IF  C51, @traderskill
	IF  C52, @traderskill
	IF -C10, @endfi
@traderskill
SET itemsell, #<item.id>
SET itemcost, #<item.price>
MUL itemcost, "6"
DIV itemcost, "4"
DIV itemcost, "2"
SET itemcostn,#<item.price>
DIV itemcostn, "2"
COMPARE #<item.price>,#<itemcost>
IF< 	@banfi	
	1: Ah a #<item.name>, normally I would give you #<itemcostn> GP for it, but since you are a %C10 I will give you #<itemcost> GP.
	HOST_GIVE G#<itemcost>
	END
@endfi
	1: I'm sorry but I won't give you anything back for that.
	END
@banfi
	HOST_GIVE T172
	PARTY T172 
	GOTO LINK 99,0,1
	END

SCENE 923, 	inside, SCENE, "Rebel Rings",0,0

	ACTOR 1, "Fagodir", monster044,4,40,90

#include R0900.txt

	1: Special Rebel Rings, feel the force, it makes you look pretty!
	OFFER2 10,20,22
	END

@eventActorGive1
	IF  C51, @traderskill
	IF  C52, @traderskill
	IF -C10, @endfi
@traderskill
SET itemsell, #<item.id>
SET itemcost, #<item.price>
MUL itemcost, "6"
DIV itemcost, "4"
DIV itemcost, "2"
SET itemcostn,#<item.price>
DIV itemcostn, "2"
COMPARE #<item.price>,#<itemcost>
IF< 	@banfi	
	1: Ah a #<item.name>, normally I would give you #<itemcostn> GP for it, but since you are a %C10 I will give you #<itemcost> GP.
	HOST_GIVE G#<itemcost>
	END
@endfi
	1: I'm sorry but I won't give you anything back for that.
	END
@banfi
	HOST_GIVE T172
	PARTY T172 
	GOTO LINK 99,0,1
	END

SCENE 924, 	inside, SCENE, "Rebel Helms",0,0

	ACTOR 1, "Toriko", monster043,1,40,90

#include R0900.txt

	1: Scare your enemies away with our first class Rebel Helms!
	OFFER2 10,20,10
	END

@eventActorGive1
	IF  C51, @traderskill
	IF  C52, @traderskill
	IF -C10, @endfi
@traderskill
SET itemsell, #<item.id>
SET itemcost, #<item.price>
MUL itemcost, "6"
DIV itemcost, "4"
DIV itemcost, "2"
SET itemcostn,#<item.price>
DIV itemcostn, "2"
COMPARE #<item.price>,#<itemcost>
IF< 	@banfi	
	1: Ah a #<item.name>, normally I would give you #<itemcostn> GP for it, but since you are a %C10 I will give you #<itemcost> GP.
	HOST_GIVE G#<itemcost>
	END
@endfi
	1: I'm sorry but I won't give you anything back for that.
	END
@banfi
	HOST_GIVE T172
	PARTY T172 
	GOTO LINK 99,0,1
	END

SCENE 925, 	inside, SCENE, "Rebel Boots",0,0

	ACTOR 1, "Tori", monster040,4,40,90

#include R0900.txt

	1: Kick that empy trash, buy our rebel boots today!
	IF -I700, @challengesTip
	OFFER	700, 703,704,708,709,710
	END
	
@challengesTip
	1: Did you know that once you hit level 20 you can go south to Tajuin Rock to do The Challenges?
	1: You can win awesome summon spells there once every ten levels.
	END

@eventActorGive1
	IF  C51, @traderskill
	IF  C52, @traderskill
	IF -C10, @endfi
@traderskill
SET itemsell, #<item.id>
SET itemcost, #<item.price>
MUL itemcost, "6"
DIV itemcost, "4"
DIV itemcost, "2"
SET itemcostn,#<item.price>
DIV itemcostn, "2"
COMPARE #<item.price>,#<itemcost>
IF< 	@banfi	
	1: Ah a #<item.name>, normally I would give you #<itemcostn> GP for it, but since you are a %C10 I will give you #<itemcost> GP.
	HOST_GIVE G#<itemcost>
	END
@endfi
	1: I'm sorry but I won't give you anything back for that.
	END
@banfi
	HOST_GIVE T172
	PARTY T172 
	GOTO LINK 99,0,1
	END

SCENE 926, 	inside, SCENE, "Rebel Slaves",0,0

	ACTOR 1, "Slaver", monster039,4,40,90
	POSE 4,1

#include R0900.txt

	1: Hi %1, I have the best slaves of Neither Lands.
	OFFER 652,653,654,655,656,657,658,659,660, 28, 734, 773, 774, 775
	END

@eventActorGive1
	IF  C51, @traderskill
	IF  C52, @traderskill
	IF -C10, @endfi
@traderskill
SET itemsell, #<item.id>
SET itemcost, #<item.price>
MUL itemcost, "6"
DIV itemcost, "4"
DIV itemcost, "2"
SET itemcostn,#<item.price>
DIV itemcostn, "2"
COMPARE #<item.price>,#<itemcost>
IF< 	@banfi	
	1: Ah a #<item.name>, normally I would give you #<itemcostn> GP for it, but since you are a %C10 I will give you #<itemcost> GP.
	HOST_GIVE G#<itemcost>
	END
@endfi
	1: I'm sorry but I won't give you anything back for that.
	END
@banfi
	HOST_GIVE T172
	PARTY T172 
	GOTO LINK 99,0,1
	END

SCENE 927, 	inside, SCENE, "Rebel Potions",0,0

	ACTOR 1, "Rakusho", monster054,1,40,90

#include R0900.txt

	1: A potion everyday keeps that empy scum away!
	OFFER2 0,4,0
	END

@eventActorGive1
	IF  C51, @traderskill
	IF  C52, @traderskill
	IF -C10, @endfi
@traderskill
SET itemsell, #<item.id>
SET itemcost, #<item.price>
MUL itemcost, "6"
DIV itemcost, "4"
DIV itemcost, "2"
SET itemcostn,#<item.price>
DIV itemcostn, "2"
COMPARE #<item.price>,#<itemcost>
IF< 	@banfi	
	1: Ah a #<item.name>, normally I would give you #<itemcostn> GP for it, but since you are a %C10 I will give you #<itemcost> GP.
	HOST_GIVE G#<itemcost>
	END
@endfi
	1: I'm sorry but I won't give you anything back for that.
	END
@banfi
	HOST_GIVE T172
	PARTY T172 
	GOTO LINK 99,0,1
	END

SCENE 928, 	inside, SCENE, "Rebel Bank",0,0

	ACTOR 1, "Shagoi", monster056,4,40,90

#include R0900.txt

	OFFER 5119
	1: Buy rebel Bank Notes and support the good cause!
	1: To buy Bank Notes click on me.
	END
#include R0901.txt

;
; This stock exchange is placed in Elliair
;
SCENE 929, 	bar, SCENE, "Bank",0,0

SET slavaon, #<rating>	
#include banscripts.txt

	ACTOR 1, "Mr. Bank", monster057,4,20,99

#include R0900.txt

	OFFER 5119
	1: To buy Bank Notes or for more information, click on me.
	END
#include R0901.txt


SCENE 932	inside, "SCENE", Rebel Cures",0,0

	ACTOR 1, "Killalot",pet015,4,40,90

#include R0900.txt

	1: Buy your rebel cures here to cure that nasty Empy disease!
	OFFER2 0,4,1
	END 


SCENE 930	newscenes018, SCENE, "Nokiro's Place", 0,0

	ACTOR 1, "Nokiro", monster058, 1, 3,90

	IF T252,@donethis
	1: Hi %1, how are you doing?
	H: Pretty good.
	H: I was wondering, why is everybody so much against the emperor?
	1: Isn't it obvious?
	1: The emperor randomly orders to capture citizens or even orders their death.
	1: He is so afraid of terrorism that might hit his empire that he's actually causing it himself with his actions.
	1: Just because a few people don't like what he does with the empire doesn't mean the whole population is against him.
	H: So why doesn't everybody join the rebel side in that case and overthrow the emperor?
	1: That's the problem, who says life will be better if Warlord Keithuso rules the country?
	1: The emperor might be doing a lot of bad things but he does it for the sake of the empire.
	1: We have to choose between two evils and personally I don't know which one is better to pick.
	H: It's a tough choice, yeah.
	IF -I700,@noboots
	1: Hey I see you have a pair of %I700 with you.
	1: Did you know you can use those to cross the water with in the south east section of the world map?
	H: Euh... no?
	1: Well you might want to do that when you reach level 20.
	H: Why is that?
	1: Well it appears you are a talented young #<g.man> and I think you have the ability to summon monsters for aid.
	H: Huh?
	1: Everytime when you beat a challenge you win a special summon spell, 
	1: the monsters you can summon vary between level 85 and level 125 and they are really useful against strong monsters.
	1: There is 1 challenge available for every 10 levels.
	1: I don't know everything about the challenges though, I just heard of it.
	1: You should check it out when you reach level 20.
	1: It's in the south east corner of the world map.
	1: The challenges are entirely optional though, but if you're in for a real challenge then you should try them.
	1: As a precaution, you get a warning if you didn't do a challenge yet 1 level before reaching the next bracket.
	1: You can talk to Chin Toi at the Challenges' Exit to turn this warning on or off.
	HOST_GIVE T252
	IF -S71, @extraTips
	1: I hope you have a pleasant day and good luck with the rest of your journey.
	END
@noboots
	1: Hmmm strange...
	1: Most #<g.hero>'s who come here have the %I700 by now.
	1: You should buy the %I700 first before talking with me again.
	END
@donethis
	MOVE 1,-20,80,1
	END
	
@extraTips
	1: I also have a couple of extra tips for you.
	1: You may want to get the spell %S71 to help you in fights against God monsters.
	1: In general, if you're a spell caster it's also a wise idea to level up your God and Devil element, and Angel or Ice and Vengeance.
	1: Those spells give you a good spread with damage against whatever you may end up facing.
	1: I hope you have a pleasant day and good luck with the rest of your journey.
	END
	
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; ITEM CHECKER Imperial BLADE QUEST
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

SCENE 931,  check, CUT, "Item checker", 0,0

	N: ~~~~~~~
	N: Item Checker
	N: ~~~~~~~

	WAIT 2.0
	 N: You have to get 5 %I739s, you have #<num.item739> %I739s.
	WAIT 4.0
	 N: You have to get 15 %I9, you have #<num.item9> %I9.
	WAIT 4.0
	 N: You have to get 6 %I808, you have #<num.item808> %I808.
	WAIT 4.0
	 N: You have to get 4 %I307s, you have #<num.item307> %I307s.
	WAIT 4.0
	 N: You have to get 3 %I308s, you have #<num.item308> %I308s.
	WAIT 4.0
	 N: You have to get 2 %I262, you have #<num.item262> %I262.
	WAIT 4.0
	 N: You have to get 6 %I902, you have #<num.item902> %I902.
	WAIT 8.0
	 N: Do you wish detailed information about each item?
	ASK 300
	IF -YES,@no
;iteminfo needed
	SET item.id, "739"
	N: #<item.name> is a blade with #<item.attack> attack power 
	N: and #<item.defense> defense
	WAIT 5.0
	SET item.id, "9"
	N: #<item.name> is a level #<item.level> healing item that heals 
	N: disease Handcuffer 
	WAIT 5.0
	SET item.id, "808"
	N: #<item.name> is a level #<item.level> shield with #<item.defense> defense
	WAIT 5.0
	SET item.id, "307"
	N: #<item.name> is a level #<item.level> blade with #<item.attack> attack power 
	WAIT 5.0
	SET item.id, "308"
	N: #<item.name> is a level #<item.level> blade with #<item.attack> attack power 
	WAIT 5.0
	SET item.id, "262"
	N: #<item.name> is a level #<item.level> armor with #<item.defense> defense. 
	WAIT 5.0
	SET item.id, "902"
	N: #<item.name> is a level #<item.level> ring with #<item.attack> attack power 
	N: and #<item.defense> defense. 

	WAIT 8.0
	N: Places to purchase these items are: 
	WAIT 2.0
	N: o  Random monster fights or trading with humans
	WAIT 2.0
	N: o  Sacred Plaines
	WAIT 2.0
	N: o  Neither Lands 
	WAIT 2.0
	N: o  Maku's Tunner
	WAIT 6.0
@no
	 N: Thank you for using Item Checker.
	WAIT 8.0
	GOTO SCENE 1
	END

; SCENE 932 IS TAKEN!

; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; SHOPS MAKU'S TUNNER
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

SCENE 933	aaabrown, SCENE, "Slave Store",0,0

ACTOR 1 "Simbai" a11,1,35,95

#include R0900.txt

	1: Buy your slaves here, the best you ever seen!
	OFFER 661,662,663,664,665,666,667,668,669, 28, 734, 773, 774, 775 
	END
@eventActorGive1
		IF  C51, @traderskill
	IF  C52, @traderskill
	IF -C10, @endfi
@traderskill
SET itemsell, #<item.id>
SET itemcost, #<item.price>
MUL itemcost, "6"
DIV itemcost, "4"
DIV itemcost, "2"
SET itemcostn,#<item.price>
DIV itemcostn, "2"
COMPARE #<item.price>,#<itemcost>
IF< 	@banfi	
	1: Ah a #<item.name>, normally I would give you #<itemcostn> GP for it, but since you are a %C10 I will give you #<itemcost> GP.
	HOST_GIVE G#<itemcost>
	END
@endfi
	1: I'm sorry but I won't give you anything back for that.
	END
@banfi
	HOST_GIVE T172
	PARTY T172 
	GOTO LINK 99,0,1
	END

SCENE 934	aaabrown,SCENE, "Helm Shop",0,0

ACTOR 1, "Mr. Hat",a29,4,10,80

#include R0900.txt

	1: You need...
	1: A HAT!
	OFFER2 20,30,10
	END
@eventActorGive1
		IF  C51, @traderskill
	IF  C52, @traderskill
	IF -C10, @endfi
@traderskill
SET itemsell, #<item.id>
SET itemcost, #<item.price>
MUL itemcost, "6"
DIV itemcost, "4"
DIV itemcost, "2"
SET itemcostn,#<item.price>
DIV itemcostn, "2"
COMPARE #<item.price>,#<itemcost>
IF< 	@banfi	
	1: Ah a #<item.name>, normally I would give you #<itemcostn> GP for it, but since you are a %C10 I will give you #<itemcost> GP.
	HOST_GIVE G#<itemcost>
	END
@endfi
	1: I'm sorry but I won't give you anything back for that.
	END
@banfi
	HOST_GIVE T172
	PARTY T172 
	GOTO LINK 99,0,1
	END

SCENE 935	aaabrown,SCENE, "Armor Shop",0,0

ACTOR 1	"Raphael", a31,1,10,80

#include R0900.txt

	1: Armor it is...
	OFFER2 20,30,11
	END

@eventActorGive1
		IF  C51, @traderskill
	IF  C52, @traderskill
	IF -C10, @endfi
@traderskill
SET itemsell, #<item.id>
SET itemcost, #<item.price>
MUL itemcost, "6"
DIV itemcost, "4"
DIV itemcost, "2"
SET itemcostn,#<item.price>
DIV itemcostn, "2"
COMPARE #<item.price>,#<itemcost>
IF< 	@banfi	
	1: Ah a #<item.name>, normally I would give you #<itemcostn> GP for it, but since you are a %C10 I will give you #<itemcost> GP.
	HOST_GIVE G#<itemcost>
	END
@endfi
	1: I'm sorry but I won't give you anything back for that.
	END
@banfi
	HOST_GIVE T172
	PARTY T172 
	GOTO LINK 99,0,1
	END

SCENE 936	aaabrown,SCENE, "Weapon Shop",0,0

ACTOR 1 "Boadicca"	a30, 1, 35,95
	POSE 1,2

#include R0900.txt

	1: Can you handle weapons just as good as I can?
#include weaponscript.txt
@all
	OFFER2 20,30,12,  20,30,13,  20,30,14,  20,30,15,  20,30,16,  20,30,17,  20,30,18
	END
@1
	OFFER2 20,30,12
	END
@2
	OFFER2 20,30,13
	END
@3
	OFFER2 20,30,14
	END
@4
	OFFER2 20,30,15
	END
@5
	OFFER2 20,30,16
	END
@6
	OFFER2 20,30,17
	END
@7
	OFFER2 20,30,18
	END

@eventActorGive1
		IF  C51, @traderskill
	IF  C52, @traderskill
	IF -C10, @endfi
@traderskill
SET itemsell, #<item.id>
SET itemcost, #<item.price>
MUL itemcost, "6"
DIV itemcost, "4"
DIV itemcost, "2"
SET itemcostn,#<item.price>
DIV itemcostn, "2"
COMPARE #<item.price>,#<itemcost>
IF< 	@banfi	
	1: Ah a #<item.name>, normally I would give you #<itemcostn> GP for it, but since you are a %C10 I will give you #<itemcost> GP.
	HOST_GIVE G#<itemcost>
	END
@endfi
	1: I'm sorry but I won't give you anything back for that.
	END
@banfi
	HOST_GIVE T172
	PARTY T172 
	GOTO LINK 99,0,1
	END
#include champ.dll
SCENE 937	aaabrown,SCENE, "Boot Shop",0,0

	ACTOR 1 "Slapigo"	a36,1,35,95

#include R0900.txt

	COMPARE #<num.timeDoW>, "7"
	IF= @saturday

	1: I have the boots you need.
	OFFER2 20,30,20
	END
@saturday
	1: Since it is saturday I will offer all boots.
	1: It's the special saturday offer!
	OFFER2 0,50,20
	END

@eventActorGive1
		IF  C51, @traderskill
	IF  C52, @traderskill
	IF -C10, @endfi
@traderskill
SET itemsell, #<item.id>
SET itemcost, #<item.price>
MUL itemcost, "6"
DIV itemcost, "4"
DIV itemcost, "2"
SET itemcostn,#<item.price>
DIV itemcostn, "2"
COMPARE #<item.price>,#<itemcost>
IF< 	@banfi	
	1: Ah a #<item.name>, normally I would give you #<itemcostn> GP for it, but since you are a %C10 I will give you #<itemcost> GP.
	HOST_GIVE G#<itemcost>
	END
@endfi
	1: I'm sorry but I won't give you anything back for that.
	END
@banfi
	HOST_GIVE T172
	PARTY T172 
	GOTO LINK 99,0,1
	END

SCENE 938	aaabrown,SCENE, "Shield Shop",0,0

	ACTOR 1, "Locki", a39, 4,35,95
	POSE 4,3	

#include R0900.txt
 
	1: The best offensive is sometimes defense.
	OFFER2 20,30,21
	END	
@eventActorGive1
		IF  C51, @traderskill
	IF  C52, @traderskill
	IF -C10, @endfi
@traderskill
SET itemsell, #<item.id>
SET itemcost, #<item.price>
MUL itemcost, "6"
DIV itemcost, "4"
DIV itemcost, "2"
SET itemcostn,#<item.price>
DIV itemcostn, "2"
COMPARE #<item.price>,#<itemcost>
IF< 	@banfi	
	1: Ah a #<item.name>, normally I would give you #<itemcostn> GP for it, but since you are a %C10 I will give you #<itemcost> GP.
	HOST_GIVE G#<itemcost>
	END
@endfi
	1: I'm sorry but I won't give you anything back for that.
	END
@banfi
	HOST_GIVE T172
	PARTY T172 
	GOTO LINK 99,0,1
	END


SCENE 939	aaabrown,SCENE, "Cure Shop",0,0

	ACTOR 1, "Zombie", a38, 1,10,80
	POSE 1,4

#include R0900.txt

	1: I have all cures for you...
	OFFER2 0,4,1
	WAIT 3.0
	N: He looks at you in a very disturbing way...
	END

@eventActorGive1
		IF  C51, @traderskill
	IF  C52, @traderskill
	IF -C10, @endfi
@traderskill
SET itemsell, #<item.id>
SET itemcost, #<item.price>
MUL itemcost, "6"
DIV itemcost, "4"
DIV itemcost, "2"
SET itemcostn,#<item.price>
DIV itemcostn, "2"
COMPARE #<item.price>,#<itemcost>
IF< 	@banfi	
	1: Ah a #<item.name>, normally I would give you #<itemcostn> GP for it, but since you are a %C10 I will give you #<itemcost> GP.
	HOST_GIVE G#<itemcost>
	END
@endfi
	1: I'm sorry but I won't give you anything back for that.
	END
@banfi
	HOST_GIVE T172
	PARTY T172 
	GOTO LINK 99,0,1
	END

SCENE 940	aaabrown,SCENE, "Potion Shop",0,0

	ACTOR 1, "Capso" a4,4,35,95

#include R0900.txt

	1: Today I sell only health potions to recharge your HP.
	OFFER2 0,4,0
	1: Well actually I sell them every day....
	1: Life is boring as hell.
	END
@eventActorGive1
		IF  C51, @traderskill
	IF  C52, @traderskill
	IF -C10, @endfi
@traderskill
SET itemsell, #<item.id>
SET itemcost, #<item.price>
MUL itemcost, "6"
DIV itemcost, "4"
DIV itemcost, "2"
SET itemcostn,#<item.price>
DIV itemcostn, "2"
COMPARE #<item.price>,#<itemcost>
IF< 	@banfi	
	1: Ah a #<item.name>, normally I would give you #<itemcostn> GP for it, but since you are a %C10 I will give you #<itemcost> GP.
	HOST_GIVE G#<itemcost>
	END
@endfi
	1: I'm sorry but I won't give you anything back for that.
	END
@banfi
	HOST_GIVE T172
	PARTY T172 
	GOTO LINK 99,0,1
	END

SCENE 941	aaabrown,SCENE, "Ring Shop",0,0

	ACTOR 1, "Baldiso" a41,4,35,95

#include R0900.txt

	1: Best rings in Maku's Tunner.
	OFFER2 20,30,22
	END

@eventActorGive1
		IF  C51, @traderskill
	IF  C52, @traderskill
	IF -C10, @endfi
@traderskill
SET itemsell, #<item.id>
SET itemcost, #<item.price>
MUL itemcost, "6"
DIV itemcost, "4"
DIV itemcost, "2"
SET itemcostn,#<item.price>
DIV itemcostn, "2"
COMPARE #<item.price>,#<itemcost>
IF< 	@banfi	
	1: Ah a #<item.name>, normally I would give you #<itemcostn> GP for it, but since you are a %C10 I will give you #<itemcost> GP.
	HOST_GIVE G#<itemcost>
	END
@endfi
	1: I'm sorry but I won't give you anything back for that.
	END
@banfi
	HOST_GIVE T172
	PARTY T172 
	GOTO LINK 99,0,1
	END

SCENE 942	aaabrown,	SCENE, "Bank",0,0

 	ACTOR 1, "Mr. Bank", monster057,4,35,95

	OFFER 5119
	1: Welcome at our branche office in Maku's Tunner.
	1: To buy Bank Notes or for more information, click on me.
	END
#include R0901.txt

;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; TERRY AND MARY QUEST
;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

SCENE 943	newscenes012, SCENE, "Shop Keeper Corporation", 0,0

	ACTOR 1, "Mitchel", boss022, 1,50,85

	IF T313, @solved
	IF T309+T310, @killedboth
	IF T309+T312, @killedmary
	IF T310+T311, @killedterry
	IF T312+T311, @savedboth
	IF T303, @markilledter
	IF T302, @terkilledmar
	IF T301, @solve
	IF T300, @nonsolve

	WAIT 2.0
	N: You see Mitchel, leader of the Shop Keeper Corporation in Maku's Tunner.
	WAIT 3.0
	1: /a mumbles
	1: I hate these gang wars...
	1: Well gang war... it's brother versus sister, EVEN WORSE!
	1: Mary versus Terry here in Maku's Tunner.
	1: If they just fought it out at home we wouldn't be bothered with it.
	1: But since they fight things out on the street they break a lot of shop windows.
	1: They even randomly attack customers!
	1: Somebody should do something about them...
	WAIT 5.0
	1: Hey %1, you look like a #<g.mister> Fixit.
	1: Can't you help us out a bit?
	1: All the shop keepers will bring money together for you if you fix this brother versus sister fight.
	1: It's a lot cheaper then if the situation stays the same.
	1: So... will you help us out or not?
	ASK 45.0
	IF NO,@refuse
	HOST_GIVE T301
	1: Good luck solving this problem...
	1: I think you'll need it.
	END
@refuse
	HOST_GIVE T300
	SET terandmarkill, #<num.hostAge>
	ADD terandmarkill, "60"
	1: Argh... *great*
	1: Ah well, I understand, personally I wouldn't want to be bothered with solving this either.
	1: That's why I asked you in the first place.
	END
@nonsolve
	R60, @terkilledmar
	GOTO @markilledter
	END
@nonsolve2
	1: The war is getting worse... 
	1: I'm afraid it will end up in Terry killing Mary or Mary killing Terry.
	END
@markilledter
	HOST_GIVE T303
	COMPARE #<terandmarkill>, #<num.hostAge>
	IF< @nonsolve2
	1: Mary ended up killing Terry.
	1: She felt so horrible that she committed suicide after doing so.
	1: Talking it out might have saved them both...
	END	
@terkilledmar
	HOST_GIVE T302
	COMPARE #<terandmarkill>, #<num.hostAge>
	IF< @nonsolve2
	1: Terry ended up killing Mary.
	1: After doing so he felt so horrible that he smashed up a few shopkeepers,
	1: burned down the Bank and killed himself after that.
	1: We rebuilt the Bank already, but it took some time...
	END
@solved
	1: It's quiet now since you solved the problem.
	1: No more customers that are being bothered and no more shops that are being broken down.
	1: You have our gratitude for taking care of the problem.
	END
@solve
	IF T309+T310, @killedboth
	IF T309+T312, @killedmary
	IF T310+T311, @killedterry
	IF T312+T311, @savedboth

	1: Did you solve the problem already %1?
	H: Nope, I'm still working on it.
	END
@killedboth
	1: Did you solve the problem between Mary and Terry already %1?
	H: Yes, I did...
	H: I just killed them both and stopped the whining.
	H: They won't cause any problems anymore now.
	1: ...
	WAIT 3.0
	1: I would have rather seen a more peaceful solution, but I guess this will have to do.
@givereward
	1: Here is your reward 60,000 GP and a %I957.
	HOST_GIVE T313
	HOST_GIVE G60000
	HOST_GIVE I957
	1: Thanks for taking care of the problem %1.
	H: Believe me, it was my pleasure...
	END
@killedmary
	1: Did you solve the problem between Mary and Terry already %1?
	H: Yup, I did.	
	H: I just killed Mary and gave Terry his %I213 back.
	H: That seems to fix everything.
	1: ....
	1: *sigh*
	1: There goes the love of my life...
	1: I would have prefered another solution, but I guess you took the best course of action.
	GOTO @givereward
@killedterry
	1: Did you solve the problem between Mary and Terry already %1?
	H: Yup, I sure did.	
	H: I killed Terry for stealing Maries %I213 and gave it back to her.
	H: After that I had a happy Mary and a pretty dead Terry.
	H: He might not have been very pleased with his death, though.
	H: I think he's haunting the house I killed him in.
	1: *yikes* A ghost!?
	1: I guess this was the best thing to do.
	1: I hope he won't cause the town any more trouble.
	GOTO @givereward
@savedboth
	1: Did you solve the problem between Mary and Terry already %1?
	H: Yeah, it's all fixed now.
	H: I just bought them both a %I213 and gave it to them.
	H: It seemed to fix everything.
	1: Glad you solved the whole thing peacefully.
	GOTO @givereward


SCENE 946 	newscenes018, SCENE, "Terry's House",0,0

	ACTOR 1, "Terry", a25, 4,7,86
	SEL 1
	POSE 1,4

	EJECT T172

	IF T312, @hatback
	IF T310, @terrydead
	IF T308, @back2
	IF T305, @marytalk
	IF T304, @back
	IF T303, @terrydead
	IF T300, @nothing
	IF -T301,@nothing

	WAIT 2.0
	H: Hi Terry.
	COMPARE #<g.num>, "2"
	IF= @changeg
	1: Yo yo yo mannn!
@terrynow
	1: Whaaat's upp?
	H: I hear you and your sister are having a fight?
	1: Yeah duuude!
	1: She's just totally crazy mannn!
	H: So euhm.. 
	H: What did she do?
	1: She lost my %I213.
	1: MY %I213!!
	1: *sniff*
	1: Life just isn't the same without it mann.
	1: It all suuucks!
	H: Hmmm... well I'll talk with your little sister alright?
	HOST_GIVE T304
	1: Yeahhh!
	END 
@changeg
	1: Hi hottie!
	GOTO @terrynow
@back
	1: You talked with my nutty sista already?
	END
@marytalk
	WAIT 2.0
	H: Hi Terry
	1: Yoo...
	H: I just talked with your sister.
	H: She says you stole her %I213 and then sold it.
	1: No man, she's totally lying dude!
	1: I didn't steal her %I213, she lost mine!
	H: Mm... it seems to me the only solution to end this problem is to either kill you both, kill one of you two and get the other a %I213, or get you both a %I213.
	HOST_GIVE T308
	1: Does it look like I care what you do?
	1: I want my %I213 back!
	END
@back2
	IF R50, @back2a
	1: You found my %I213 already?
	END
@back2a
	1: When do I get my %I213 back?
	END
@eventActorSpell1
@eventActorAttack1
	IF T312, @hatback
	HOST_GIVE T310
	WAIT 2.0
	H: Die, you stupid inbred!
	SET tmkill, "%E0"
	WAIT 3.0
	IF -T118, @regularKill
	N: You blast Terry's skull apart with the bullets from your %I#<tmkill>.
	
@regularKill
	IF T118, @skipRegularKill
	N: You watch how Terry dies with his skull crashed by your %I#<tmkill>.

@skipRegularKill	
	MOVE 1,-20,80,1
	WAIT 3.0
	N: You found a %I213!
	HOST_GIVE I213
	WAIT 3.0
	N: You found a %I8!
	HOST_GIVE I8
	END
@terrydead
	MOVE 1,-20,80,1
	N: Nothing lives here anymore...
	WAIT 25.0
	N: You feel a cold chill...
	WAIT 4.0
	1: 'Stupid %1, I'm going to haunt you now for killing mee!
	WAIT 3.0
	N: You start to feel "slightly" uncomfortable...
	END

@eventActorGive1
	IF T312, @hatback
	COMPARE #<item.id>, "213"
	IF= @silverhat
	1: What the heck is this supposed to be...?
	1: I WANT *MY* %I213!!
	END
@silverhat
	1: Thank ya sooo much %1!
	1: I have my %I213 back now!
	1: Here is a %I8 for your trouble.
	HOST_GIVE T312
	HOST_GIVE I8
	1: I knew Mary had my %I213...
	END
@hatback
	1: Whoo Hooo!
	1: I have my %I213 finally back!
	END
@nothing	
	MOVE 1,-20,80,1
	END


SCENE 947	newscenes019, SCENE, "Mary's House",0,0
;reserved for Mary
	ACTOR 1, "Mary", a18, 1, 10,70

	EJECT T172

	IF T311, @hatback
	IF T309, @killed
	IF T307, @back2
	IF T304, @terrytalk
	IF T305, @back
	IF T302, @killed
	IF T300, @nothing
	IF -T301,@nothing

	WAIT 2.0
	H: Hi Mary.
	COMPARE #<g.num>, "2"
	IF= @changeg
	1: Hi sweetie!
@marycnow
	H: Why are you and your brother having such big a fight?
	WAIT 3.0
	N: You receive a dirty look back...
	WAIT 3.0
	1: That punk stole my %I213 and then sold it!
	1: Now I'm getting all wet when it rains.
	H: I'll see what I can do for you okay?
	HOST_GIVE T305
	1: Yeah I'd better get that %I213 back, else I'm gonna beat up some shopkeepers...
	H: *mumbles* That girl got quite a temper..
	1: You said something?
	H: Huh? Me?
	H: No... Nothing at all!
	H: I better get going now.
	WAIT 4.0
	GOTO EXIT
@changeg
	1: Hi %1.
	GOTO @marycnow
	END
@back
	1: Did you talk with Terry already?
	1: I WANT MY %I213 BACK!
	1: *sobs*
	END
@terrytalk
	WAIT 2.0
	1: Hiya sugar!
	H: Hi Mary.
	H: I just talked with your brother and he says you lost his %I213?
	1: HIS %I213!?
	1: IT'S MINE!
	H: Hey go easy on me!
	H: I'm just the messenger you know!
	H: Hmmm...
	WAIT 2.0
	N: You think the whole situation over for a bit...
	WAIT 8.0	
	H: So you says it's your %I213 and he says it's his %I213?
	H: Seems to me the only solution to end this problem is to either kill you both,
	H: kill one of you two and get the other a %I213, or get you both a %I213.
	HOST_GIVE T307
	1: I don't care what you do, I want my %I213 back!
	END
@back2
	IF R50, @back2a
	1: ...
	1: I want my %I213...
	END
@back2a
	1: When do I get my %I213..?
	END

@killed
	MOVE 1,-20,80,1
	END

@eventActorSpell1
@eventActorAttack1
	IF T311, @hatback
	HOST_GIVE T309
	WAIT 3.0
	H: Die!
	WAIT 2.0
	SET tmdead, "%E0"
	COMPARE #<tmdead> "2499"
	IF> @gunslingerText
	N: You watch how Mary dies with your %I#<tmdead> pierced through her ribs and heart.
	
@gunslingerText
	COMPARE #<tmdead> "2500"
	IF< @skipGunslingerText
	N: You watch how Mary dies as the bullets of your %I#<tmdead> rip through her ribs and heart.
	
@skipGunslingerText	
	MOVE 1,-20,80,1
	WAIT 3.0
	N: You found a %I213
	HOST_GIVE I213
	WAIT 3.0
	N: You found 50,000 GP
	HOST_GIVE G50000
	END
@eventActorGive1
	IF T311, @hatback
	COMPARE #<item.id>, "213"
	IF= @silverhat
	1: !!?
	1: What are you!?
	1: BLIND!?!?
	1: this is *not* my %I213 you dummy!
	END
@silverhat
	1: !!
	1: My %I213!
	1: Thank you soooo much!
	1: *Smoooch*
	N: Mary gives you a big kiss.
	WAIT 4.0
	1: You're such a cute #<g.guy>!
	HOST_GIVE T311
	1: As a reward you can have this useless %I734.
	HOST_GIVE I734
	1: Thanks for getting my %I213 back, I knew Terry stole it!
	1: See ya later, %1!
	END
@hatback
	1: Tee-hee!
	1: I have my pretty looking %I213ty back!
	END
@nothing
	MOVE 1,-20,80,1
	END

;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; LEFTY'S QUEST
;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

SCENE 944	bar, SCENE, "Behind Lefty's", 0,0

	ACTOR 1, "Drunken Iori", a27, 1,15,95

	IF T406, @dead
	IF T405, @healed
	IF T401, @backquest
	IF T400, @backnon

	1: Ughhhh...
	1: *hick*
	1: I don't feel too well.
	H: What is up with you?
	H: You look pretty sick.
	1: I ehm eh-...
	1: I think...
	1: No wait I can't think anymore.
	WAIT 3.0
	N: You start counting empty Beer bottles.
	WAIT 5.0
	H: So ehm... what are these thirty empty Beer bottles doing here?
	1: *hick*
	1: Well how should I know?
	1: Anyway fix me up please, either get some medication or more booze or for all I care you hit me with a life spell.
	1: I'll give you some nice GP in return.
	1: deal?
	WAIT 3.0
	N: Do you want to help Drunken Iori out?
	ASK 30.0
	IF YES, @acceptquest
	HOST_GIVE T400
	1: Yeah just great... 
	1: Now I'll never get rid of this giant headache...
	1: Ugh...
	1: I think I, I-...
	1: I gotta puke!
	WAIT 3.0
	N: Drunken Iori pukes all over you!
	END
@backnon
	1: I feeell soo sickkk...
	END
@acceptquest
	HOST_GIVE T401
	1: Great!
	1: Just get me some medication to cure me, heal me with a life spell several times or get me more booze so I'll be to drunk to remember where I am.
	END
@backquest
	1: Gimme my boozzee...
	1: Or else the medications or one of those nifty God spells of yours.
@end
	END
@dead
	MOVE 1,-80,20,1
	WAIT 4.0
	N: Nothing is here anymore since the time you killed Iori.
	END
@healed
	ACTOR 1, "Iori", a27, 1,15,95
	
	1: Thank you for helping me %1.
	END

@eventActorSpell1
	IF -T401, @end
	IF T405, @healed
	COMPARE #<spell.element>, "0"
	IF> @eventActorAttack1
	IF T402, @heal2s
	HOST_GIVE T402
	1: Thank you...
	1: I feel slightly better now.
	1: Please heal me more.
	SET drunk, "#<spell.pp>"
	MUL drunk, "5"
	DIV drunk, "2"
	WAIT 3.0
	HOST_GIVE G#<drunk>
	N: You received #<drunk> GP for healing Drunken Iori.
	END
@heal2s
	IF T403, @heal3s
	HOST_GIVE T403
	1: I feel even better now.
	1: Please keep healing me.
	SET drunk, "#<spell.pp>"
	MUL drunk, "5"
	DIV drunk, "2"
	WAIT 3.0
	HOST_GIVE G#<drunk>
	N: You received #<drunk> GP for healing Drunken Iori.
	END
@heal3s 
	IF T404, @heal4s
	HOST_GIVE T404
	1: I feel a lot better now, but please heal me one more time.
	SET drunk, "#<spell.pp>"
	MUL drunk, "5"
	DIV drunk, "2"
	WAIT 3.0
	HOST_GIVE G#<drunk>
	N: You received #<drunk> GP for healing Drunken Iori.
	END
@heal4s
	HOST_GIVE T405
	1: I am completely healed now.
	1: Thank you so much!
	SET drunk, "#<spell.pp>"
	MUL drunk, "3"
	ACTOR 1, "Iori", a27, 1,15,95
	1: Here is #<drunk> GP for your help.
	HOST_GIVE G#<drunk>
	END
@idiotitem
	1: You idiot!
	1: This isn't helping me at all.
	1: Try again and do a better job this time.
	1: My poor headache...
	END
@eventActorGive1
	IF -T401, @end
	IF T405, @healed

	COMPARE #<item.id>,"96"
	IF> @idiotitem

	IF T402, @heal2i
	HOST_GIVE T402
	1: I feel slightly better...
	1: Please give me more.
	SET drunk, #<item.price>
	MUL drunk, "3"
	WAIT 3.0
	N: You received #<drunk> GP for helping out Iori.
	HOST_GIVE G#<drunk>
	END
@heal2i
	IF T403, @heal3i
	HOST_GIVE T403
	1: My headache is decreasing.
	1: Please give me more.
	SET drunk, #<item.price>
	MUL drunk, "3"
	WAIT 3.0
	N: You received #<drunk> GP for helping out Iori.
	HOST_GIVE G#<drunk>
	END
@heal3i
	IF T404, @heal4i
	HOST_GIVE T404
	1: I feel a lot better now...
	1: Please give me some more.
	SET drunk, #<item.price>
	MUL drunk, "3"
	WAIT 3.0
	N: You received #<drunk> GP for helping out Iori.
	HOST_GIVE G#<drunk>
	END
@heal4i
	HOST_GIVE T405
	1: I feel completely fine again.
	SET drunk, #<item.price>
	MUL drunk, "5"
	1: Here is #<drunk> GP for helping me out.
	HOST_GIVE G#<drunk>
	END
@eventActorClick1
	1: What are you doing?
	1: This isn't helping me one bit...
	1: Stop clicking on me you pervert!
	END
	
@eventActorAttack1
	IF T429, @nodieingtoday
	HOST_GIVE T406
	SOUND "pain1.wav"
	1: Ahhhh!
	1: YOU BASTARD!
	WAIT 4.0
	N: Drunken Iori bleeds all over you until he dies.
	WAIT 2.0
	MOVE 1,-80,20,1
	WAIT 15.0
	N: You find 5,000 GP on the ground where Drunken Iori used to stand.
	HOST_GIVE G5000
	END

@nodieingtoday
	1: Hey now, no need for getting hostile anymore you know...
	WAIT 3.0
	N: Drunken Iori pukes all over you!
	WAIT 3.0
	1: Now look at what you made me do!
	1: You punk!
	1: I'm gonna clean myself up a bit...
	WAIT 3.0
	MOVE 1,-25,90
	WAIT 10.0
	END
	

SCENE 945, aaaleft, SCENE, "Lefty's",0,0

	ACTOR 1, "Bouncer",monster001, 4, 47,77

	OFFER2, 16,16,0

	SEL 1
	POSE 4,1
	COMPARE, #<num.timeHour>, "7"
	IF< @peace
	COMPARE, #<num.timeHour>, "17"
	IF> @peace

@contx
	IF V40, @nofights
	IF T409, @accepted
	IF T408, @war
	IF T407, @altintro
	HOST_GIVE T407
	1: By the looks of it... I'd say you're %1, am I right or not?
	H: Yup that's me.
@cont1
	IF V35, @quest
	IF R35, @alt1
	IF R35, @alt2
	1: Hmmm...
	1: You should return to me when you're level 35, I have an interesting offer for you.
	1: Right now you're not strong enough though.
	1: Before I forget, take care you have a strong slave, you'll probably need its help.
	END
@war
	1: The situation in Lefty is getting worse.
	1: If only somebody could help us out.
	END
@altintro
	1: Welcome back, %1.
	GOTO @cont1
@alt1
	1: It's too bad you're too weak right now, I have an interesting job for you at level 35.
	1: You'll probably like the work.
	1: Oh yeah, don't forget to bring a slave with you at level 35, most likely you'll need its help.
	END
@alt2
	1: Once you get to level 35 I have interesting work for you.
	1: I think you will need a good slave to do the job though, so take care you have a strong one.
	END
@quest
	1: It seems you're strong enough for a small job that I have.
	1: As you probably heard the violence in Revolution of Terror is increasing.
	1: Lefty is probably one of the most violent places of all.
	1: I want you to change that, you'll have to kick everybody's ass who doesn't know how to behave.
	1: I'll pay you 1,000 GP for every freak you took care off.
	1: Do you want the job?
	ASK 300
	IF YES, @accept
	HOST_GIVE T408
	1: Too bad, guess I'll have to give it to somebody else then.
	END
@accept
	HOST_GIVE T409
	1: Good!
	1: Just come back when it's between 6 pm and 6 am, that's when Lefty is open.
	1: The rest of the time there isn't much happening here.
	END
@accepted
	COMPARE #<num.timeHour>, "7"
	IF< @fight
	COMPARE #<num.timeHour>,"17"
	IF> @fight

	IF R30, @acceptedxb
	IF R30, @acceptedxc
	IF R30, @acceptedxd

	1: It's too early to do anything right now.
@acceptedxa
	SET bouncetime, "18"
	SUB bouncetime, "#<num.timeHour>"
	COMPARE #<bouncetime>, "1"
	IF= @acceptedtime
	1: You have to wait #<bouncetime> hours before you can get started.
	END 
@acceptedtime
	1: You have to wait 1 more hour before you can get started.
	END
@acceptedxb
	1: Lefty is closed at the moment.
	GOTO @acceptedxa
@acceptedxc
	1: You're too early.
	GOTO @acceptedxa
@acceptedxd
	1: Nobody is here to cause trouble since Lefty is closed at the moment.
	GOTO @acceptedxa

@fight
	IF V45, @nofights
	COMPARE #<num.PeopleInScene>, "1"
	IF> @tomanyppl
	IF R45, @notrouble
	1: Ah great you're here.
	1: A few trouble makers just showed up.
	MOVE 1, -47,77, 1
	MOVE 2, -16,99, 1
	MOVE 3, -70,95, 1
	MOVE 4, -27,82, 1
	WAIT 5.0
	EJECT T172
@random
	IF R5, @rebels1
	IF R5, @araki1
	IF R5, @Imperial1
	IF R5, @locals1
	IF R5, @rebels2
	IF R5, @araki2
	IF R5, @Imperial2
	IF R5, @locals2	
	IF R5, @rebels3
	IF R5, @araki3
	IF R5, @Imperial3
	IF R5, @locals3
	IF R5, @rebels4
	IF R5, @araki4
	IF R5, @Imperial4
	IF R5, @locals4
	IF R5, @rebels5
	IF R5, @araki5
	IF R5, @Imperial5
	IF R5, @mix
	GOTO @random
@rebels1
	FIGHT2 555,556,557,-562
	IF ALIVE, @victory3
	GOTO @died
@rebels2
	FIGHT2 556,557,557,554,-560
	IF ALIVE, @victory4
	GOTO @died
@rebels3
	FIGHT2 559,558,556
	IF ALIVE, @victory3
	GOTO @died
@rebels4
	FIGHT2 559,557,558,556,559, -552
	IF ALIVE, @victory5
	GOTO @died
@rebels5
	FIGHT2 559,556
	IF ALIVE, @victory2
	GOTO @died
@araki1
	FIGHT2 550,550,551
	IF ALIVE, @victory3
	GOTO @died
@araki2
	FIGHT2 551,552,552,553
	IF ALIVE, @victory4
	GOTO @died
@araki3
	FIGHT2 554,550,553
	IF ALIVE, @victory3
	GOTO @died
@araki4
	FIGHT2 552,552,551,550,554,553,-559,-562
	IF ALIVE, @victory6
	GOTO @died
@araki5
	FIGHT2 553,552,550,557
	IF ALIVE, @victory4
	GOTO @died
@mix
	FIGHT2 561,554,564,552
	IF ALIVE, @victory4
	GOTO @died
@locals1
	FIGHT2 565,564,552
	IF ALIVE, @victory3
	GOTO @died
@locals2
	FIGHT2 560,564,558
	IF ALIVE, @victory3
	GOTO @died
@locals3
	FIGHT2 567,566,565,-563
	IF ALIVE, @victory3
	GOTO @died
@locals4	
	FIGHT2 560,550,567,-566
	IF ALIVE, @victory3
	GOTO @died
@Imperial1
	FIGHT2 561,561,562,-558
	IF ALIVE, @victory3
	GOTO @died
@Imperial2
	FIGHT2 563,563,561,562,-564,-554
	IF ALIVE, @victory4
	GOTO @died
@Imperial3
	FIGHT2 561,562,562,-559
	IF ALIVE, @victory3
	GOTO @died
@Imperial4
	FIGHT2 561,561,550,565,-553
	IF ALIVE, @victory4
	GOTO @died
@Imperial5
	FIGHT2 561,562,563,563,561,-556,-567
	IF ALIVE, @victory5
	GOTO @died

@died
	CALL @moveActorsBack
	IF R20, @dead1
	IF R20, @dead2
	IF R20, @dead3
	IF R20, @dead4
	IF R20, @dead5
	GOTO @died
@dead1
	1: Looks like they got the better out of you.
	1: Better luck next time, I can't reward dead people.
	END
@dead2
	1: Ouch...
	1: That must be painful, better luck next time.
	END
@dead3
	1: I think you should visit a doctor or something.
	END
@dead4
	1: That last hit did it huh..?
	1: Better luck next time, I can't reward you for doing a job like this you know.
	END
@dead5
	1: Sorry %1, but I don't have any first aid kits with me here.
	1: Perhaps you should visit the Inn.
	END
@victory2
	CALL 984@rewardMissionPP
	CALL @moveActorsBack
	HOST_GIVE T446
	1: You'll get 2,000 GP for killing 2 of those punks.
	HOST_GIVE G2000
	GOTO @victend
@victory3
	CALL 984@rewardMissionPP
	CALL @moveActorsBack
	HOST_GIVE T446
	1: You killed 3 trouble makers, meaning you'll get 3,000 GP.
	HOST_GIVE G3000
	GOTO @victend
@victory4
	CALL 984@rewardMissionPP
	CALL @moveActorsBack
	HOST_GIVE T446
	1: Nice, I see you killed all 4 of them.
	1: Here is your reward, 4,000 GP as agreed.
	HOST_GIVE G4000
	GOTO @victend
@victory5
	CALL 984@rewardMissionPP
	CALL @moveActorsBack
	HOST_GIVE T446
	1: Impressive!
	1: Here is 5,000 GP for 5 scumbags.
	HOST_GIVE G5000
	GOTO @victend
@victory6
	CALL 984@rewardMissionPP
	CALL @moveActorsBack
	HOST_GIVE T446
	1: That was one hell of a fight.
	1: Here is your 6,000 GP you earned it.
	HOST_GIVE G6000
	GOTO @victend
@victend
	IF R15, @victa
	IF R15, @victb
	IF R15, @victc
	IF R15, @victd
	IF R15, @victe
	IF R15, @victf
	IF R15, @victg
	IF R15, @victh
	GOTO @victend
@victa
	1: Thanks for the help %1.
	END
@victb
	1: Don't spend it all in one place %1.
	END
@victc
	1: That was a pretty tough battle you had just there.
	END
@victd
	1: Let's hope they'll stay away for some time now.
	END
@victe
	1: I wonder how long they'll stay away.
	END
@victf
	1: These fights are costing me too much money.
	END
@victg
	1: Let's hope these fights won't scare the customers away.
	END
@victh
	1: Maybe there finally be some peace now.
	END	

@notrouble
	1: Everything seems to be peaceful right now.
	1: Return later though, you never know when new trouble makers might show up.
	END
@nofights
	1: It seems that all problems are solved now, nobody dares to make any problems anymore.
	IF T410, @skipbonus
	IF -T446,@skipbonus2
	1: You can have this 10,000 GP bonus for all the work that you did.
	HOST_GIVE T410
	HOST_GIVE G10000
@skipbonus
	1: Thanks for taking care of the situation, %1.
	END
@skipbonus2
	1: We solved the situation, it would have helped if you actually kept your promise though.
	1: Better luck next time, I guess.
	END	
@peace
	ACTOR 2, "Windesheim",monster009, 4,16,99
	SEL 2
	POSE 4,1
	ACTOR 3, "Sleutor", monster019,4,70,95
	SEL 3
	POSE 4,1
	FACE 3,4
	ACTOR 4, "Mog",monster028, 1, 27,82
	SEL 4
	POSE 1,3
 	GOTO @contx
@tomanyppl
	1: I'm only paying you to help me out %1.
	1: You'll friends have to take care of themselves.
	1: If you come back alone you can get started with your job.
	END

@moveActorsBack
	MOVE 1, 47,77, 1
	MOVE 2, 16,99, 1
	MOVE 3, 70,95, 1
	MOVE 4, 27,82, 1
	RETURN


;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; SHOP SCENES DESERT CITY
;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

SCENE 950 backstreet, SCENE, "Weapon Shop",0,0
	THEME	0
	ACTOR	1,	"Harry", a25, 4, 25, 90
#include R0900.txt
	SEL		1
	MOVE	1,	15, 85
	1: If you ask me we're worse off with both the Empire *and* the Rebels..
	1: But heck, that's just my opinion about it.
	FACE 1,1
#include weaponscript.txt		
@all
	OFFER2 30,40,12,  30,40,13,  30,40,14,  30,40,15,  30,40,16,  30,40,17,  30,40,18
	END
@1
	OFFER2 30,40,12
	END
@2
	OFFER2 30,40,13
	END
@3
	OFFER2 30,40,14
	END
@4
	OFFER2 30,40,15
	END
@5
	OFFER2 30,40,16
	END
@6
	OFFER2 30,40,17
	END
@7
	OFFER2 30,40,18
	END
	END

@eventActorGive1
		IF  C51, @traderskill
	IF  C52, @traderskill
	IF -C10, @endfi
@traderskill
SET itemsell, #<item.id>
SET itemcost, #<item.price>
MUL itemcost, "6"
DIV itemcost, "4"
DIV itemcost, "2"
SET itemcostn,#<item.price>
DIV itemcostn, "2"
COMPARE #<item.price>,#<itemcost>
IF< 	@banfi	
	1: #<item.name>, hmm.. I give #<itemcost> GP for it my #<g.brother>.
	HOST_GIVE G#<itemcost>
	END
@endfi
	1: Only fellow merchants receive goodies back for that.
	END
@banfi
	HOST_GIVE T172
	PARTY T172 
	GOTO LINK 99,0,1
	END

SCENE 951 backstreet, SCENE,"Helm Shop",0,0
	THEME	0
	ACTOR	1,	"Kaju", a11, 4, 25, 90
#include R0900.txt
	MOVE 1, 45,95
	OFFER2	30,40,10
	1: Rebels ... or Empire... 
	1: We're bad off no matter what we pick, if the Rebels take over it'd be happiness AND chaos for everybody.
	1: If we go with the Empire it'd be law and order only, something we don't like either. 
	1: If you ask me we're best off with a mix of those two.	
	END
@eventActorGive1
		IF  C51, @traderskill
	IF  C52, @traderskill
	IF -C10, @endfi
@traderskill
SET itemsell, #<item.id>
SET itemcost, #<item.price>
MUL itemcost, "6"
DIV itemcost, "4"
DIV itemcost, "2"
SET itemcostn,#<item.price>
DIV itemcostn, "2"
COMPARE #<item.price>,#<itemcost>
IF< 	@banfi	
	1: #<item.name>, hmm.. I give #<itemcost> GP for it my #<g.brother>.
	HOST_GIVE G#<itemcost>
	END
@endfi
	1: Only fellow merchants receive goodies back for that.
	END
@banfi
	HOST_GIVE T172
	PARTY T172 
	GOTO LINK 99,0,1
	END

SCENE 952 backstreet, SCENE,"Armor & shield shop",0,0

	ACTOR	1,	"Wazi", a24, 4, 25, 90
#include R0900.txt
	MOVE	1,	10, 85
	OFFER2	30,40,11,30,40,21

	1: This coming war is getting totally into me.
	1: Sales increased dramatically, 
	1: everybody wants to protect themselves and people don't even trust their own neighbours anymore. 
	FACE 1,1
	1: What is this world going to?
	1: Anyway, if you need some decent armor or a shield then you can buy it here.
	END
@eventActorGive1
		IF  C51, @traderskill
	IF  C52, @traderskill
	IF -C10, @endfi
@traderskill
SET itemsell, #<item.id>
SET itemcost, #<item.price>
MUL itemcost, "6"
DIV itemcost, "4"
DIV itemcost, "2"
SET itemcostn,#<item.price>
DIV itemcostn, "2"
COMPARE #<item.price>,#<itemcost>
IF< 	@banfi	
	1: #<item.name>, hmm.. I give #<itemcost> GP for it my #<g.brother>.
	HOST_GIVE G#<itemcost>
	END
@endfi
	1: Only fellow merchants receive goodies back for that.
	END
@banfi
	HOST_GIVE T172
	PARTY T172 
	GOTO LINK 99,0,1
	END

SCENE 953 backstreet,SCENE,"Ring Shop",0,0

	THEME 0
	ACTOR 1, "Jamy",pet008, 4, 25,80
#include R0900.txt
	POSE 1,4
	OFFER2 30,40,22
	1: Those guys ruling the world should let a female handle all business, 
	1: there would be no more war and everybody would have a pretty ring!
	END
@eventActorGive1
		IF  C51, @traderskill
	IF  C52, @traderskill
	IF -C10, @endfi
@traderskill
SET itemsell, #<item.id>
SET itemcost, #<item.price>
MUL itemcost, "6"
DIV itemcost, "4"
DIV itemcost, "2"
SET itemcostn,#<item.price>
DIV itemcostn, "2"
COMPARE #<item.price>,#<itemcost>
IF< 	@banfi	
	1: Oehhhh a #<item.name>, I'll give you #<itemcost> GP for it darling.
	HOST_GIVE G#<itemcost>
	END
@endfi
	1: You're not pretty enough to get anything back from me!
	END
@banfi
	HOST_GIVE T172
	PARTY T172 
	GOTO LINK 99,0,1
	END

SCENE 954 backstreet,SCENE,"Pharmacy",0,0
	THEME	0
	ACTOR	1,	"Sanuske", rotm, 2, 25, 90
#include R0900.txt
	MOVE	1,	35, 80
	OFFER2	0,99,0, 0,99,1
	1: A lot of people will be needing my services soon...
	1: I only have this pharmacy part time, I'm also a doctor.
	COMPARE #<num.hostHP>, #<num.hostMaxHP>
	IF< @healing
	1: I just wished people would never need me anymore so I could spend more time on my hobbies.
	1: Bah I'll never be able to translate Kutusori's riddles.
	FACE 1,4
	END
@healing
	1: It looks like you could use my doctor services.
	FACE 1,4
	1: For 150 GP I'll give you a full recovery.
	1: Do you want to be healed?
	ASK 30
	IF YES, @healingx
	1: Alright, maybe sometime later.
	END
@healingx
	1: Here you go.
	IF -G150, @notEnoughMoney
	HOST_TAKE G150
	HOST_GIVE L1
	HOST_GIVE H25000
	HOST_GIVE M25000
	END
	
@notEnoughMoney
	1: Ahem, it would appear you don't have enough money.
	END
	
@eventActorGive1
	IF  C51, @traderskill
	IF  C52, @traderskill
	IF -C10, @endfi
@traderskill
	SET itemsell, #<item.id>
	SET itemcost, #<item.price>
	MUL itemcost, "6"
	DIV itemcost, "4"
	DIV itemcost, "2"
	SET itemcostn,#<item.price>
	DIV itemcostn, "2"
	COMPARE #<item.price>,#<itemcost>
	IF< @banfi	
	1: This #<item.name> looks interesting... I'll give #<itemcost> GP for it.
	HOST_GIVE G#<itemcost>
	END
@endfi
	1: Only merchants can trade with me.
	END
@banfi
	HOST_GIVE T172
	PARTY T172 
	GOTO LINK 99,0,1
	END

SCENE 955 backstreet, SCENE, "Boot Shop",0,0
	THEME	0
	ACTOR	1,	"Demonor", a87, 4, 25, 90
#include R0900.txt
	SEL		1
	MOVE	1,	15, 80
	OFFER2	25,40,20
	1: If you ask me we should go with the Rebels, to avoid chaos we could make our own rules!
	1: Oh yeah if you're planning on going through the desert you'll be needing some %I744.
	END
@eventActorGive1
	IF  C51, @traderskill
	IF  C52, @traderskill
	IF -C10, @endfi
@traderskill
	SET itemsell, #<item.id>
	SET itemcost, #<item.price>
	MUL itemcost, "6"
	DIV itemcost, "4"
	DIV itemcost, "2"
	SET itemcostn,#<item.price>
	DIV itemcostn, "2"
	COMPARE #<item.price>,#<itemcost>
	IF< @banfi	
	1: This #<item.name> looks interesting... I'll give you #<itemcost> GP for it.
	HOST_GIVE G#<itemcost>
	END
@endfi
	1: Only merchants can trade here.
	END
@banfi
	HOST_GIVE T172
	PARTY T172 
	GOTO LINK 99,0,1
	END

SCENE 956 backstreet, SCENE, "Slave Shop",0,0

	THEME 0
	ACTOR 1, "Kintigai",pet001, 4, 25,90
	ACTOR 2, "Tjilay", pet002, 4, 10,85
#include R0900.txt
	SEL 1
	POSE 1,4
	SEL 2
	POSE 1,4
	OFFER 670,671,672,673,674,675,676,677,678, 28, 734, 773, 774, 775
	1: Hmmm.. this one looks cute...
	2: We're one of the few female slavers you'll meet, perhaps the only ones.
	1: Don't give us that weird look, anybody with a whip can be a slaver!
	END
	
@eventActorGive1
	IF  C51, @traderskill
	IF  C52, @traderskill
	IF -C10, @endfi
@traderskill
	SET itemsell, #<item.id>
	SET itemcost, #<item.price>
	MUL itemcost, "6"
	DIV itemcost, "4"
	DIV itemcost, "2"
	SET itemcostn,#<item.price>
	DIV itemcostn, "2"
	COMPARE #<item.price>,#<itemcost>
	IF< @banfi	
	1: I'll give you #<itemcost> GP for this #<item.name>.
	HOST_GIVE G#<itemcost>
	END
@endfi
	1: Only merchants can trade here honey.
	END
@banfi
	HOST_GIVE T172
	PARTY T172 
	GOTO LINK 99,0,1
	END

;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; MERCENARY QUEST
;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

SCENE 957, terrorz,SCENE,"Desert?",0,0

	THEME 0

	ACTOR 1, "Kodoki", pet006, 4,  12,92
	ACTOR 2, "Gingora", pet011, 1, 17,70
	ACTOR 3, "Chatan",  pet015, 4, 30,99
	ACTOR 4, "Cassandra",pet021,4, 92,80
	ACTOR 5, "Sparkster",boss018,1,45,84
	ACTOR 6, "Deruto",   boss012,1,80,98

	SEL 1
	POSE 1,4
	SEL 3
	POSE 1,4
	SEL 4
	POSE 1,4
	SEL 5
	POSE 1,3
	FACE 6,0
	FACE 4,0

	IF C6, @special
	IF C8, @special
	IF C49, @special
	IF C50, @special
	IF C47, @special
	IF C48, @special



@start
	IF T429, @endstart
	IF T391+T392+T393+T394,@endstart
	SET araran, %R4
	GOTO @link#<araran>

@link1
	IF T391, @start
	4: The world got into quite a chaos, didn't it?	
	6: I heard the rebels are recruiting more soldiers from the empire.
	2: Is that so?
	2: More cannon food I guess?
	3: Well who cares anyway, it's not like they'll be able to take over Arakaki.
	5: Yeah, we'll beat the living hell out of them when they mess with us.
	1: The mercenaries, merchants, slavers and thugs could take over Kagoshima if they were better organized.
	1: The merchants together with the slavers have the money, the mercenaries the skills and the thugs power. 
	1: Combine those four and you have one hell of an army.
	6: Hehe, me and my thug boys are ready for everything.
	3: Ow yeah...
	5: We could let the slaves do all the stupid work for us, they're replaceble anyway.
	1: For now we should just let the rebels and the Empire fight their war, let them slaughter and weaken each other.
	4: Yes...
	4: Seems to be best to lay low for now.
	4: Somehow I think the future will have a few more nasty surprises.
	2: I have also a bad feeling about the future.
	2: It's the uncertainty about the future that bugs me.
	2: I wish I knew what is going to happen.
	HOST_GIVE T391
	END
@link2
	IF T392, @start
	HOST_GIVE T392
	5: Man, I bought one of the most beautiful relics a few days ago at the auction.
	6: What kind of thing?
	5: Well it's some sort of blood thing, I haven't figured out yet what you can do with it.
	2: You mean a %I23?
	5: Yeah that's it!
	H: Hahaha, a %I23!?
	H: Those are completely useless!
	1: How much money did you pay for it?
	5: Well, euhm, eh... 
	5: 109,000 GP....
	H: It's not even worth 500 GP.
	1: Looks like Sparkster got swindled.
	6: Smart move Sparky boy!
	5: Alright I got caught up in the bidding, okay!?
	IF -G10900, @link2a
	5: Tell you what, if you give me 10,900 GP you can have this worthless %I23, %1.
	5: Do you want to buy it from me?
	ASK 300
	IF -YES, @link2aa
	5: Nice, here you go.
	HOST_TAKE G10900
	HOST_GIVE I23
	N: You received a %I23.
	GOTO @link2a
@link2aa
	5: Great...
	5: Just great.
	5: Now I can't even make up the loss a little bit.
	4: Don't worry, I'll but it from you Sparkster.
	4: I'll give you 21,800 GP for it.
@link2a
	4: Those %I23s are very rare and if something is rare the price will go up.
	4: I usually get what I want for the price I want.
	4: I can sell it four times higher anyway.
	3: Girl, you have to teach me how to do that!
	2: Sometimes I try to get something and I just keep bidding but others always overbid me.
	4: Yes, that is very annoying, it happens to me often enough.
	4: You need to hope for more luck next time.
	H: Where is this auction you talk about located?
	6: It's in Maku's Tunner, north east from the Bank.
	1: As long as you have enough cash, you'll mostly get what you want.
	1: Often you just need some luck to get what you want.
	3: They sell a lot of things there, from summon spells to rare items, mostly everything you can't buy in shops is for sale there.
	2: It costs 5,000 GP just to get in, though.
	2: Only rich people should go there.
	5: Well you won't see me there for awhile anymore.
	H: Thanks for the help.
	END
@link3
	IF T393, @start
	5: Last week I was in Lefty's.
	5: Some Imperial punk walks up to me and says: 	
	5: "You are hereby recruited for the Imperial Army, you have to report at 1700 at General Shin's office."
	3: So then what?
	5: Well I kicked his ass to badly that he didn't even remember what his mothers name was.
	5: Man, that guy was so bruised up, that he begged me for mercy and gave me 1,000 GP if I left him alone.
	6: Hahahaha!
	1: No shit!?
	1: He really gave you 1,000 GP!?
	5: Yeah man, so I met my old buddy Iori and bought him a few beer, 
	5: we were so drunk at the end of the evening that we didn't even know anymore who we were or where we were.
	5: I think I even threw up over some rebel guy, but since my memory is completely black I don't clearly remember what I did.
	6: Boy you had it badly that eve.
	5: It's still a mystery to me how I got home safely.
	5: I wonder what happened with Iori.
	1: Well a few days ago I was in Lefty's and some rebels and entered the bar, but a few Imperial soldiers were already there.
	1: It became one of those good old knock out evenings.
	1: I was surprised the emps lasted longer then 70 minutes this time, normally they get completely beaten up by the rebels within 60 minutes.
	3: The record is currently 14 minutes, that fight was 8 emps versus 7 rebels.
	3: Of course, the emps got beaten up pretty badly again.
	3: They may have stood a better chance if they weren't so drunk already.
	5: If the emps didn't had so many more men they would have lost the war a long time ago.
	6: Probably yeah.
	HOST_GIVE T393
	END
@link4
	IF T394, @start
	HOST_GIVE T394
	5: It's getting more dangerous everyday to get to travel in Kagoshima.
	2: Tell me about it, the world map goes directly through no man's land.
	4: I thought I saw Imperial Soldiers marching there a few days ago.
	3: Well yesterday I spotted a few rebels moving fast there.
	6: If this keeps up it will be war within a few days.
	1: Everybody is getting more and more restless, something is definitely going to happen.
	3: Shouldn't we take precautions?
	5: Like?
	3: Well we could put a few guards at the entrance of the city.
	4: Hmmm...
	4: Not a bad idea at all.
	1: In that case we should also charge tribute for entering the city.
	1: That way the people who enter pay for the guard.
	5: Hey I like that idea.
	6: I wouldn't mind guarding.
	6: I'd just ask whatever I want to hahaha!
	1: Agreed, we'll ask tribute each time somebody wants to enter the city from now on.
	2: %c6s and %c8s should go for free though since it's their city too.
	1: Alright, we'll make an exception for though Mercenaries and %c8s, but everybody else has to pay tribute from now on.
	1: Even %C10s and %C20s!
	END
@endstart
	MOVE 1,-40,80,1
	MOVE 2,-40,80,1
	MOVE 3,-40,80,1
	MOVE 4,-40,80,1
	MOVE 5,-40,80,1
	MOVE 6,-40,80,1
	N: There is nothing here anymore...
	END 
@special
	IF T398, @start
	IF T397, @back2
	IF T396, @back1
	IF T395, @start

	1: Any of you guys know how I can get my drugs in Neither Lands?
	4: Well you would need somebody to smuggle it there for you.
	6: Yeah you can't go there yourself, they'll arrest you on sight.
	5: Or the Imperial scum just excecutes you immediately.
	1: Hey %1, can't you help me out?
	1: You'll get some nice cash and a few %I8s if you can smuggle some stuff for me to Neither Lands.
	1: What do you say, are you up for it?
	ASK 300
	IF YES, @acceptsm
	HOST_GIVE T395
	1: Shit...
	1: Hey man, don't worry, I'll do it for ya.
	1: Alright then, as long as the job gets done I don't care who does it.
	END
@acceptsm
	HOST_GIVE T396
	SET smugnu,	"%R6"
	1: Alright!
	1: The job is pretty easy, all you have to do is go to Kamatari's Cave and look for my contact person there.
	1: He didn't exactly tell whether he'd show up East, North or West so I'm afraid you'll have to do some searching.
	1: Because of safety reasons we switch places constantly.
	1: Once you got the drugs from him you have to go to Neither Lands and take it to Doctor Luke.
	1: Doctor Luke will give you your rewards.
	H: That's all?
	1: Yup, that's all.
	END
@back1
	1: Did you finish the job already?
	H: Not yet, I'm still working on it.
	H: Where did I have to look again?
	1: My contact person will show up somewhere in Kamatari's Cave, there are 6 places in total where he can show up.
	1: Those places show up on your map as ????.
	1: Shouldn't be to hard to find.
	1: Good luck %1.
	H: Thanks.
	END
@back2
	1: Good, I see you met my contact person.
	1: All you have to do next is visit Doctor Luke in Neither Lands and get him his drugs.
	1: He will give you your rewards.
	H: Any idea how I should handle the Imperial Guards...?
	1: You can bribe them, kill them, talk with them, I don't care!
	1: Those guards are your problem now.
	H: Yeah... thanks.
	END

SCENE 813
	COMPARE #<num.timeYear>, "2005"
	IF< @exit
;#include lpscript.txt
	FLAGS 1024

	IF -T394, @skipactors 
	IF T429, @skipactors2

	IF R20, @deruto
	IF R45, @kodandcha

	ACTOR 1, "Guard", a61, 4,5,90
	ACTOR 2, "Guard", a61, 4,15,80
	ACTOR 3, "Guard", boss009, 4,30,85
	SEL 1
	POSE 4,1
	SEL 2
	POSE 4,1
	IF C6, @pass
	IF C47,@pass
	IF C48,@pass
	IF C8, @pass
	IF C49,@pass
	IF C50,@pass

	SET artribute, #<num.hostLevel>
	MUL artribute, "100"
	ADD artribute, "%R2000"
	SET artritest, #<num.hostLevel>
	MUL artritest, "100"
	COMPARE #<artribute>, #<atritest>
	IF< @banfi
	3: If you want to enter Arakaki you'll have to pay #<artribute> GP tribute.
	3: Do you want to enter?
	ASK 30
	IF -YES, @noenter
	IF -G#<artribute>, @nomoney
	TAKE G#<artribute>
	3: Enjoy your stay.
	GOTO @enter
@pass
	3: You may pass for free %1, seeing you're one of us. 
	GOTO @specialpass
@noenter
	3: Fine with me...
	GOTO @exit

@nomoney
	3: ...
	3: First you should get the money, else you can't enter.
	GOTO @exit

@specialpass
	PARTY T273
	PARTY C#<num.hostClass>
#include lpscript3.txt
	GOTO LINK 2,0,0

@kodandcha
	ACTOR 4, "Kodoki", pet006, 4,  12,95
	ACTOR 5, "Chatan",  pet015, 4, 30,80
	SEL 4
	POSE 4,1
	SEL 5
	POSE 4,1

	IF C6, @pass2
	IF C47,@pass2
	IF C48,@pass2
	IF C8, @pass2
	IF C49,@pass2
	IF C50,@pass2

	4: So you want to enter Arakaki eh?
	5: We won't let you enter unless you pay us tribute.
	SET artribute, #<num.hostLevel>
	MUL artribute, "105"
	ADD artribute, "%R1500"
	SET artritest, #<num.hostLevel>
	MUL artritest, "105"
	COMPARE #<artribute>, #<atritest>
	IF< @banfi
	5: The tribute is #<artribute> GP.
	5: Do you want to enter?
	ASK 30
	IF -YES, @noenter2
	IF -G#<artribute>, @nomoney2
	TAKE G#<artribute>
	GOTO @enter

@noenter2
	4: Well maybe another then.
	4: See you later %1.
	GOTO @exit
@pass2
	4: Since you're one of us you can pass for free.
	5: Enjoy your stay %1.
	GOTO @specialpass
@nomoney2
	4: Seems like you don't have enough money %1.
	4: No money means not entering.
	GOTO @exit

@deruto
	ACTOR 6, "Deruto",   boss012,1,20,98

	COMPARE #<num.peopleInScene>, "1"
	IF= @setelse
	SET artribute, #<num.hostLevel>
	MUL artribute, "125"
	ADD artribute, "%R3500"
	SET artritest, #<num.hostLevel>
	MUL artritest, "125"
	COMPARE #<artribute>, #<atritest>
	IF< @banfi

	
	IF C6, @pass3
	IF C47,@pass3
	IF C48,@pass3
	IF C8, @pass3
	IF C49,@pass3
	IF C50,@pass3
@startpay	
	6: Hi there %1.
	6: If you want to enter Arakaki you'll have to pay #<artribute> GP or give me items of that value.
	6: Once you gave me enough I'll let you pass.
	END

@pass3
	6: Seeing you're a %C I guess I should let you pass for free.
	GOTO @enter
@startelse
	SET artribute, #<num.hostLevel>
	MUL artribute, "95"
	ADD artribute, "%R3000"
	SET artritest, #<num.hostLevel>
	MUL artritest, "95"
	COMPARE #<artribute>, #<atritest>
	IF< @banfi
	GOTO @startpay

@eventActorGive6
	COMPARE #<item.id>, "0"
	IF= @goldgiven
	SUB artribute, #<item.price>
	COMPARE #<artribute>, "0"
	IF= @enoughpaid
	IF< @enoughpaid
	6: Keep it coming, you still have to pay me #<artribute> GP.
	END

@goldgiven
	SUB artribute, #<item.goldGiven>
	COMPARE #<artribute>, "0"
	IF= @enoughpaid
	IF< @enoughpaid
	6: Keep it coming, you still have to pay me #<artribute> GP.
	END

@enoughpaid
	6: Aight, you paid me enough now, I'll let you pass.
	6: Have fun %1.

@enter
	WAIT 4.0
	PARTY T273
#include lpscript3.txt
	GOTO LINK 2,0,0
@skipactors
	WAIT 4.0
	PARTY  T273
	PARTY -T394
#include lpscript3.txt
	GOTO LINK 2,0,0
@skipactors2
	WAIT 4.0
	PARTY  T273
	PARTY  T429
#include lpscript3.txt
	GOTO LINK 2,0,0

@exit
	WAIT 4.0
	GOTO EXIT
@banfi
	HOST_GIVE T172
	PARTY T172
	GOTO LINK 99,0,1



SCENE 960, terrorz,SCENE,"Life Shop",0,0

	ACTOR 1, "Lady Citra",pet013,4,20,80
#include R0900.txt

	POSE 1,4

	COMPARE #<scene960>, 1
	IF= @back

	1: Hi there!
	OFFER2 0,4,0
	1: You're the first customer I had in weeks!
	1: Not many people come out here, too many bad guys crawl around...
	SET scene960, 1
	END
@back
	1: Welcome back!
	OFFER2 0,4,0
	1: You need more life items?
	END

;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; SHOPS NO REST FOR THE WICKED
;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

SCENE 970, meadow, SCENE, "Cures and Potions",0,0

	ACTOR 1, "Ninja",a95,4,20,90
#include R0900.txt

	1: I wish we could sell herbs instead of potions, but I guess both will do.
	OFFER2 0,100,0,0,100,1
	END

@eventActorGive1
#include merchant.txt
END
SCENE 971, meadow,SCENE,"Weapons",0,0

	ACTOR 1, "Hasu Kuro",a95,4,20,90
#include R0900.txt

	1: I have the weapons you will need during your adventures.
	SET ninweap1, #<num.hostLevel>
	SET ninweap2, #<num.hostLevel>
	SUB ninweap1, "10"
	ADD ninweap2, "10"
	COMPARE #<ninweap2>, "90"
	IF< @noreset
	SET ninweap1, "70"
	SET ninweap2, "89"
@noreset

#include weaponscript.txt	
@all
	OFFER2 #<ninweap1>,#<ninweap2>,12,  #<ninweap1>,#<ninweap2>,13,  #<ninweap1>,#<ninweap2>,14,  #<ninweap1>,#<ninweap2>,15,  #<ninweap1>,#<ninweap2>,16,  #<ninweap1>,#<ninweap2>,17,  #<ninweap1>,#<ninweap2>,18
	END
@1
	OFFER2 #<ninweap1>,#<ninweap2>,12
	END
@2
	OFFER2 #<ninweap1>,#<ninweap2>,13
	END
@3
	OFFER2 #<ninweap1>,#<ninweap2>,14
	END
@4
	OFFER2 #<ninweap1>,#<ninweap2>,15
	END
@5
	OFFER2 #<ninweap1>,#<ninweap2>,16
	END
@6
	OFFER2 #<ninweap1>,#<ninweap2>,17
	END
@7
	OFFER2 #<ninweap1>,#<ninweap2>,18
	END


@eventActorGive1
#include merchant.txt
END

SCENE 972, meadow,SCENE,"Belts and Rings",0,0

	ACTOR 1, "Ninja",a95,4,20,90
#include R0900.txt

	1: I have the belts and rings that you will need.
	SET ninweap1, #<num.hostLevel>
	SET ninweap2, #<num.hostLevel>
	SUB ninweap1, "10"
	ADD ninweap2, "10"

	COMPARE #<ninweap2>, "90"
	IF< @noreset
	SET ninweap1, "70"
	SET ninweap2, "89"
@noreset
	
	OFFER2 0,100,23, #<ninweap1>,#<ninweap2>,22
	END

@eventActorGive1
#include merchant.txt
END

SCENE 973, meadow,SCENE,"Helms and Boots",0,0

	ACTOR 1, "Myst",a95,4,20,90
#include R0900.txt

	1: I have the right gear for your feet and for your hair.
	SET ninweap1, #<num.hostLevel>
	SET ninweap2, #<num.hostLevel>
	SUB ninweap1, "10"
	ADD ninweap2, "10"

	COMPARE #<ninweap2>, "90"
	IF< @noreset
	SET ninweap1, "70"
	SET ninweap2, "89"
@noreset

	OFFER2 0,50,20,#<ninweap1>,#<ninweap2>,10
	END 

@eventActorGive1
#include merchant.txt
END

SCENE 974, meadow,SCENE,"Armor and Shields",0,0

	ACTOR 1, "Jasikuro",a95,4,20,90
#include R0900.txt

	1: Armor and shields are what I sell.
	SET ninweap1, #<num.hostLevel>
	SET ninweap2, #<num.hostLevel>
	SUB ninweap1, "10"
	ADD ninweap2, "10"

	COMPARE #<ninweap2>, "90"
	IF< @noreset
	SET ninweap1, "70"
	SET ninweap2, "89"
@noreset

	OFFER2 #<ninweap1>,#<ninweap2>,11,#<ninweap1>,#<ninweap2>,21
	END
@eventActorGive1
#include merchant.txt
END

SCENE 975, standingstones,SCENE,"",0,0

	ACTOR 1, "Sakurambo",a95,4,25,85
	ACTOR 2, "Ninja",a95,4,50,97
	ACTOR 3, "Ninja",a95,4,15,98
	ACTOR 4, "Ninja",a95,4,67,87
	ACTOR 5, "Messenger",a46,4,110,85

	FACE 2,0
	FACE 4,0

	IF T415, @alt

	1: Agreed, we'll remain neutral for now.
	4: Yes it's better that nobody learns our identity.
	3: We have a guest, we'll discuss the rest later.
	2: Welcome to our humble village #<g.ssir> %1.
	FACE 2,2
	IF C36, @ninja
	IF C37, @ninja
	IF C38, @ninja
	IF T118, @gunslinger

	1: As you can see we are Ninja.
	1: We expect you to keep our identity secret, in exchange we will sell you all the weapons and items that you need on your journey.
	3: If you wish to level up further than your current level, then I suggest you accept our offer.
	3: We are the one of the few towns that sells equipment higher than you can get in Arakaki.
	3: There is one dark and evil place that sells the best equipment shops have to offer.
	3: However, you probably want to stay out of there, that is if you value your life.
	H: It seems like I don't have much choice when you put it like that.
	HOST_GIVE T415
	1: Good, you should visit Kinjo if you need healing, all healing is for free.
	END
@ninja
	HOST_GIVE T415
	1: If you need equipment or items then you should visit the various shops we have.
	1: If you are in need of healing you should visit Kinjo.
	1: Seeing you are a %C you should visit Kinjo anyways once you reached level 9 in all hands, elements and your hunt radar.
	1: Kinjo will have a special reward for all the training you did.
	1: Just click on him once he is done healing you.
	END
@alt
	1: Welcome back #<g.ssir> %1.
	1: I hope you're enjoying your time in our village.
	1: If you want to test your abilities then you should visit the Trial Master once you reach level 75,
	1: or if you're up for a challenge once you reach level 100 then you should do the Mission.
	1: It's rumored you can earn a good summon spell for completing the mission.
	END

@gunslinger	
	HOST_GIVE T415
	1: I see that you are a %C63. 
	1: Our people once worked together with your people to defeat a great evil, a shadow that was cast upon us all.
	1: We will continue to honor the pact once made.
	1: Although you can access our shops, you cannot use our items.
	1: You have access to everything our shops have to offer, although they will likely offer you anything of value.
	H: Thank you, honored Ninja, I appreciate the offer and I value your kindness.
	1: You should visit Kinjo if you require healing, all healing is for free.
	END	


SCENE 976, terrain,SCENE,"Slaver",0,1

	ACTOR 1, "Matt",monster039,4,14,89
#include R0900.txt
	POSE 4,1

	1: Sup rookie?
	1: If you're looking for a slave, then this is your lucky day! 
	OFFER 2000,2001,2002,2003,2004,2005,2006,2007,2008,2010,2011,2012,2013,2014,2015,2016,2017,2018, 28, 734, 773, 774, 775
	1: I have the finest selection here, the strongest ones for sale in a shop.
	END
@eventActorGive1
#include merchant.txt
	END

SCENE 977, stenbyggarnas_rike, SCENE,"Slave Trainer",0,0

	ACTOR 1, "Slave Trainer",a32,1,20,80
	
	POSE 3,1

	IF T411, @back
	1: Hi %1, in case you're wondering what this place is allow me to clear up a few things.
	1: First of all, if you entered Sky Land from No Remorse then I'm afraid you can't return there the easy way.
	1: The only exit leads back to Placid Arena.
@adv
	1: This map is specially designed to improve the team work between masters and slaves. 
	SET monster.id, #<num.hostPetId>	
;	1: In this case to improve the team work between you, %1 and #<monster.name> your slave.
	1: Of course nothing in this world is free. 
	1: Everytime one of you two beats a monster automatically 20 times the monsters level GP will be taken away from you.
	IF GS, @gsinfo
	1: You need to have a constant minimum of 15000 GP else no monsters will show up at all.
	1: The monsters are also slightly weaker then all other monsters in Revolution of Terror and your slave gains more experience points.
	SET monster.id, "570"
	1: For example #<monster.name> is a level #<monster.level> monster that gives #<monster.expPts> experience points.
	SET takesltr, #<monster.level>
	MUL takesltr, "20"
	1: If you manage to beat #<monster.name> then it will cost you #<takesltr> GP.
	SET monster.id, "577"
	1: #<monster.name> is a level #<monster.level> monster that gives #<monster.expPts> experience points.
	SET takesltr, #<monster.level>
	MUL takesltr, "20"
	1: If you beat #<monster.name> then it will cost you #<takesltr> GP.
	1: #<takesltr> GP for #<monster.expPts> experience points, not a bad deal huh? 
	1: %I734s will probably cost you more...
	1: Leveling slaves up will probably go a lot faster here. 
	1: If you think you can't take on a monster then hit the FLEE button and you'll leave the fight immediately.
;and since you can fight here too you can earn some nice PP.
	1: Team work is the key word, work well together with your slave and you'll be a great team.
	HOST_GIVE T411
	1: Good luck with leveling your slave %1.
	END
@gsinfo
	1: Well at least that's what happens with normal souls.
	1: Golden Souls only have to pay 10 times the monster levels GP.
	1: You need to have a constant minimum of 10000 GP else no monsters will show up at all.
	1: The monsters are also slightly weaker then all other monsters in Revolution of Terror and your slave gains more experience points.
	SET monster.id, "570"
	1: For example #<monster.name> is a level #<monster.level> monster that gives #<monster.expPts> experience points.
	SET takesltr, #<monster.level>
	MUL takesltr, "10"
	1: If you manage to beat #<monster.name> then it will cost you #<takesltr> GP.
	SET monster.id, "577"
	1: #<monster.name> is a level #<monster.level> monster that gives #<monster.expPts> experience points.
	SET takesltr, #<monster.level>
	MUL takesltr, "10"
	1: If you beat #<monster.name> then it will cost you #<takesltr> GP.
	1: #<takesltr> GP for #<monster.expPts> experience points, not a bad deal huh? 
	1: %I734s will probably cost you more...
	1: Leveling slaves up will probably go a lot faster here.
	1: If you think you can't take on a monster then hit the FLEE button and you'll leave the fight immediately.	
	1: Team work is the key word, work well together with your slave and you'll be a great team.
	HOST_GIVE T411
	1: Good luck with levelling your slave %1.
	END
@back
	1: Welcome back %1.
	1: Want me to give the explanation again?
	ASK 30
	IF YES, @adv
	1: No? 
	1: Well perhaps some other time then.
	END

; xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
; SCENE 978 is legacy code now, it used to feature the Sky Lands fight scene, 
;  but is now completely taken out of SCENE 2 and rewritten.
SCENE 978, standingstones,SCENE,"",0,0
	FLAGS 2048
	ACTOR 1, "FLEE!", rotm2, 10,90,15
	
	LOCK 1
	IF GS, @golden
	IF -G15000,@nomo
	SET compasltr, #<num.hostKills>
	FIGHT 
	IF DEAD, @end
	SET compasltrB, #<num.hostKills>
;	COMPARE #<compasltr>,#<compasltrB>
;	IF= @banfi
	SUB compasltrB, #<compasltr>
	SET takesltr, #<monster.level>
	MUL takesltr, "20"
	COMPARE #<compasltrB>, "1"
	IF< @takeboth
	MUL takesltr, #<compasltrB>
;	MUL takesltr, #<monster.lastFightCount>
;	COMPARE #<takesltr>, "200"
;	IF< @banfi
	GOTO @takeboth

@end
	END
@nomo
	N: You don't have enough money left to fight!
	END
@golden
	IF -G10000,@nomo
	SET compasltr, #<num.hostKills>
	FIGHT 
	IF DEAD, @end
	SET compasltrB, #<num.hostKills>
;	COMPARE #<compasltr>,#<compasltrB>
;	IF= @banfi
	SUB compasltrB, #<compasltr>
	SET takesltr, #<monster.level>
	MUL takesltr, "10"
	COMPARE #<compasltrB>, "1"
	IF< @takeboth
	MUL takesltr, #<compasltrB>
;	MUL takesltr, #<monster.lastFightCount>
;	COMPARE #<takesltr>, "100"
;	IF< @banfi
	GOTO @takeboth

@takeboth
	DIV takesltr, #<num.peopleInScene>
	TAKE G#<takesltr>
	GIVE H25000
	GIVE M25000
	END

@banfi
	HOST_GIVE T172
	PARTY T172
	GOTO LINK 99,0,1
	
@eventActorAttack1
@eventActorSpell1
@eventActorGive1
@eventActorClick1
	GOTO EXIT
; xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx	
	

SCENE 979, pinarascene, SCENE, "Hunter Special",0,0

	EJECT T172
	IF T453, @end
	ACTOR	1,	"Hadrijo",	a21, 4, 20, 85

	1: I have a special gift for you %1.
	1: Like all other %C's you were raised by wolves, because you took such good care of the pack in the past they have a special gift for you.
	1: You are one of the few select humans that get to pick a %I2020.
	1: There are in total 3 different %I2020's you can pick, a Normal %I2020, a %I2021, or a %I2022.
	1: Please pick your wolf.
@menu
	MENU "Normal Wolf=@a","White Wolf=@b","Dark Wolf=@c"
	GOTO @menu
@a
	1: So shall it be, you will get a Normal %I2020.
	HOST_GIVE I2020
	HOST_GIVE T453
	GOTO @end2
@b
	1: So shall it be, you will get a %I2021.
	HOST_GIVE I2021
	HOST_GIVE T453
	GOTO @end2

@c
	1: So shall it be, you will get a %I2022.
	HOST_GIVE I2022
	HOST_GIVE T453
	GOTO @end2
@end
	N: There is nothing here...
	END
@end2
	WAIT 5.0
	1: Don't let the pack down and take good care of your %I2020.
	1: We might meet again, until we do I wish you to best of luck %1.
	WAIT 5.0
	MOVE 1,-20,90
	END

SCENE 980, sunrise,SCENE,"RoT Bulletin Board",0,0

SET slavaon, #<rating>	
#include banscripts.txt

	HTML http://rotboard.board.dk3.com/2/index.php
	END

SCENE 982, aaaleft, SCENE, "Casino",0,0

	ACTOR 1, "Lucky Jack",boss016,4,35,90

	POSE 1,4

	IF T666, @noblackjack
	IF T665, @blackjack
	IF T664, @doingquest
	IF T429, @startquest

	WAIT 2.0
	1: *mumbles* This war is ruining my business...
	1: Customers are simply to afraid to travel without an armed escort.
	1: If only somebody could put a stop to it...
	1: Oh, hi %1.
	1: I don't suppose you can put an end to this war between the rebels and the empire..?
	END

@startquest
	1: Fabulous!
	1: You managed to put an end to the war!
	1: Now I all I need is customers to get my Casino going again!
	1: Tell you what, 
	1: if you spread at least 10 %I777s to the first potential customers you see I will grant you free life time access to my Casino.
	1: What do you say about that, are you up for the job?
	ASK 300
	IF YES, @acceptquest
	1: Well maybe some other time.
	END

@acceptquest
	1: Perfect!
	1: All you have to do is hand out 10 %I777s to potential customers, they will show up in your fight scene randomly.
	1: When they do just throw them a %I777!
	1: When  you used them all up return to me.
	SET customer, "0"
	SET flyer, "15"
	HOST_GIVE I777.15
	HOST_GIVE T664
	WAIT 10.0
	1: Well what are you waiting for?
	1: Get going!
	WAIT 4.0
	GOTO EXIT

@noblackjack
	EJECT T172
	1: It'll be 1000 GP If you wanna play Blackjack.
	1: Want to pay the money?
	ASK 300
	IF YES, @paymoney
	1: Figured...
	END
@paymoney
	IF G1000, @paymoney2
	1: Erm... how do you wanna pay if you don't even have money?
	END
@paymoney2
	HOST_TAKE G1000
	GOTO @blackjack
	
@doingquest

; check that at least 10 customers received the item, also add in stuff in scene 2 to support it. 
	COMPARE #<num.item777>, "6"
	IF< @check2
	1: You haven't spread enough %I777s around yet!
	1: You won't be getting free access if you don't work for it first #<g.mister>.
	END

@check2
	IF -T667, @failedquest
	COMPARE #<flyer>, "0"
	IF= @questbonus
	1: Ah great, I see you spread at least 10 %I777s to potential customers!
	HOST_TAKE I777.15
	HOST_GIVE T665
	1: Welcome to my Casino %1.
	GOTO @blackjack
	END

@questbonus
	1: Seems like you spread all %I777s around!
	1: I'll give you a nice bonus of 1000 GP for every extra %I777 you spread.
	WAIT 3.0
	HOST_GIVE G5000
	HOST_GIVE T665
	N: You received 5000 GP bonus for the excellent work you did!
	WAIT 3.0
	1: Welcome to my Casino %1.
	GOTO @blackjack
	END

@failedquest
	GIVE T666
	1: Looks like you sold the %I777s or something or just ditched them to the wrong people...
	1: You think you can feel me #<g.mister>?
	1: I don't think I can trust you know so you'll to pay me 1000 GP each time you wanna play a good old game of Blackjack.
	END

@blackjack
	EJECT T172

	SET bjintro, "%R4"
	GOTO @bjintro#<bjintro>

@bjintro1
	1: Ready to lose some money eh?
	GOTO @play
@bjintro2
	1: Throw me some cash if you want to change the currently playing music.
	GOTO @play
@bjintro3
	1: Business is finally returning to normal.
	GOTO @play
@bjintro4
	1: Someday I'm gonna open a huge Casino and call it Las Vicas.
	GOTO @play

@play
	GAME 4
	END

@eventActorGive1
	IF T665, @jukebox
	END
@jukebox
	COMPARE #<item.goldGiven>, "0"
	IF> @playjukebox1
	1: Eh now, don't be so cheap, 
	1: if you want to hear some music then give me some decent cash, capice?
	END
@playjukebox1
	COMPARE #<item.goldGiven>, "99"
	IF> @playjukebox2
	END
@playjukebox2
	1: Just tell me what song you want to hear and I'll play it for you.
	1: If you don't like the song just throw me some cash again and I'll change it for you.
	ASK 300
	MUSIC #<lastAsk>
	END


; xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  
; Trophy mission shop
; xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  


SCENE 983, shop, SCENE, "PP Coin Exchange"

	ACTOR 1, "Isamu", a94, 4, 15, 95

	CALL 984@setUpScene
	END

	
; xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  
; Trophy pp rewards
; xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  

SCENE 984,,CUT
	END	

@setUpScene
	CALL @setUpBagSlots
	
	COMPARE #<num.peopleInScene>, "1"
	IF> @noParty
	MISSIONS 1

	IF V99, @isLevel99
	IF JA1, @skipStartMission 
	IF J1, @restartMission
	HOST_GIVE J1

@skipStartMission 
	IF -T797, @giveIntroduction
	1: Welcome back, %1.
	
@jobLoop	
	SET temp, "10"
	WAIT 3
	HOST_TAKE J1
	HOST_GIVE J1
	SUB temp, 1
	COMPARE #<temp>, "1"
	IF< @end
	GOTO @jobLoop
	
@end	
	RETURN
	
@restartMission
	HOST_TAKE J1
	HOST_GIVE J1
	GOTO @skipStartMission
	
@noParty
	1: I'm terribly sorry, but you cannot turn in PP Coins while you're in a party.
	1: Your party member will most likely be unable to accept the mission again.
	1: Please re-enter this scene alone.
	RETURN

@giveIntroduction
	1: Welcome to the PP Exchange, %1.
	1: You can exchange your %Z1s here as often you want. 
	1: When you turned your %Z1s in, you will have to re-enter the scene to turn more coins in.	
	1: That is basically all there is to it!
	1: To get you started, I will give the first 50 %Z1s for free. 
	HOST_GIVE T797
	HOST_GIVE Z1.50
	N: You received 50 %Z1s.
	WAIT 2.0
	1: You can earn more %Z1s by fighting monsters. 
	1: Monsters within two levels of you 1 %Z1 while monsters that are at least three levels higher than you give 2 %Z1s.
	1: The total number of %Z1s is based on the average monster level that you fought.
	1: This means that if you fight one very low monster and two monsters of your own level, that you likely won't receive any %Z1s.
	1: This is usually not an issue, though.
	1: Please note that monsters you fight during quests typically don't give %Z1s. 
	1: WARNING: if you turned a job in, then revisit this scene to accept the mission again.
	1: If you close WoS before doing so, then you won't be able to accept the mission anymore.
	1: Should that happen, then just delete your 'character.mis' file to solve the bug, WoS will automatically add a new one for you.
	1: Alternatively, you can open the 'character.mis' file with Notepad and Change 'Status=3' to 'Status=1'.
	RETURN
	
@isLevel99
	IF T3, @noLongerEligible
	SET temp, 100
	SUB temp, #<num.trophy1>  
	HOST_GIVE Z1.#<temp>
	HOST_GIVE T3
	HOST_GIVE J1
	1: You received #<temp> additional %Z1s so you have a total of #<num.trophy1> %Z1s to turn in.
	1: WARNING: You can only turn your %Z1s in one more time.
	RETURN

@noLongerEligible
	1: You are no longer eligible to turn in PP Coins.
	WAIT 1.0
	RETURN
	
@setUpBagSlots
	IF T4, @skipSetUpBagSlots
	SET num.TrophyBagWidth,		10
	SET num.TrophyBagHeight, 	10
	HOST_GIVE T4

@skipSetUpBagSlots	
	RETURN		

@rewardMissionPP
	CALL @setUpBagSlots
	
	IF V99, @noReward 
	IF LOSE, @noReward
	SET monsterCount, #<monster.lastFightCount>
	SET monsterAverage, 0

@calculateTotalMonsterLevel	
	COMPARE #<monsterCount>, "1"
	IF< @continuePPReward
	SET foughtMonster, "monster.lastFightId#<monsterCount>"
	SET monster.id,	"*#<foughtMonster>"
	ADD monsterAverage,	#<monster.level>		
	SUB monsterCount, 1
	GOTO @calculateTotalMonsterLevel
	
@continuePPReward
	DIV monsterAverage, #<monster.lastFightCount>
	SET temp, #<num.hostLevel>
	SUB temp, 2
	COMPARE #<monsterAverage>, #<temp>
	IF< @noReward
	
	COMPARE #<num.peopleInScene>, 1
	IF> @rewardPP1
	
	SET temp, #<num.HostLevel>
	ADD temp, 2
	COMPARE #<monsterAverage>, #<temp>
	IF> @rewardPP2
	GOTO @rewardPP1

@rewardPP1
	COMPARE #<monster.lastFightCount>, 1
	IF> @rewardPP1plural
	GIVE Z1.#<monster.lastFightCount>
	N: You received 1 %Z1.
	RETURN

@rewardPP1plural
	HOST_GIVE Z1.#<monster.lastFightCount>
	N: You received #<monster.lastFightCount> %Z1s.
	RETURN	

@rewardPP2
	SET temp, #<monster.lastFightCount>
	MUL temp, 2
	HOST_GIVE Z1.#<temp>
	N: You received #<temp> %Z1s.
	RETURN
	
@noReward
	RETURN	


; xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  

SCENE 985, standingstones, SCENE, "PP Coin Exchange"

	ACTOR 1, "Heiko", a95, 4, 15, 95

	CALL 984@setUpScene
	END


; xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  
; Extra shop that sells speed rings
SCENE 986, magentinecrystal, SCENE, "Ring of Flux Shop", 1

	ACTOR 1, "Christal" pet012, 4, 15, 90

	POSE 4, 1
	
	OFFER 2800, 2801, 2802, 2803, 2804, 2805, 2806, 2807, 2808, 2809, 2810, 2811, 2812, 2813
	
	1: The gems in my flux rings double your speed, however, beauty and functionality combined come at a price.
	END




; Comment: I love to go shopping with some heart buddies of mine, especially Nadide, Sierra and Kate can confirm this. ^_^