; Made by Silver for RoT.
;
; SCENE 1200 (Pet development) in .... (already put in)
;
; SCENE 1201 (Cat Lover) place Elliair.
;
; xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
;
;

; WARNING: this scene isn't ready yet

SCENE 11103 aaabrown, SCENE, "Closed Shop" 0,0 ; used to be scene 1103

ACTOR	1,	"Oizo",monster004, 4, 30, 85

	COLOR 1013
	COLOR 2014
@hi
	IF T195,@back
	1: We're sold out right now.
	1: Maybe we can provide you with our goods later.
	GIVE T195	
	WAIT 3.0
	END
@back
	COMPARE #<num.peopleInScene>, "1"
	IF>, @hi	
	IF H15, @goon
	TAKE T195
	GOTO @hi
	END
@goon
	1: Welcome back %1!
	IF H35, @allbelts
	1: We finally received our supplies now.
	OFFER 959,960,962,964 
	END
@allbelts
	1: We were finally able to fill up our entire stock.
	OFFER 959,960,962,964,965,966,967,968,970,971,973 
	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 %C 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 1200	gateoftime&space,SCENE, "Monster Development",2,0


	MUSIC "xfilestrancemix.mid"
	ACTOR 1,  "Doctor Koghi", a73, 1, 40,80
	POSE 1,4

	IF T585, @endvampslayermission
	IF T584, @vampslayermission

	SET el0, "God"
	SET el1, "Angel"
	SET el2, "Ninja"
	SET el3, "Fallen and Risen"
	SET el4, "Devil"
	SET el5, "Demon"
	SET el6, "Samurai"
	SET el7, "Ice and Vengeance"
	SET el9, "Chaos"


	1: Hi %1, I am Doctor Koghi.
	1: I'm one of the scientist who researches monster abilities.
@checkos
	1: Which monster would you like to check out?
	COMPARE #<koghoin>, "1"
	IF= @enter
	N: Enter the monster ID:

@returnToQuestion	
	ASK 300
	1: Thank you.
	1: Statistics coming up in a few seconds...
	WAIT 4.0
	SET monster.id, #<LastAsk>
	SET temp, #<lastAsk>
	DIV temp, 2
	COMPARE #<temp>, "1"
	IF< @notAValidId
	ACTOR 2, "#<monster.name>","#<monster.skin>",1,-50,85
	COMPARE #<monster.hp>, "0" 
	IF= @nomonster
	1: Monster #<monster.name> is level #<monster.level>.
	MOVE 2, 50,85,1
	SEL 2
	POSE 1,4,2
	COMPARE #<monster.element>, "0"
	IF= @el0
	COMPARE #<monster.element>, "1"
	IF= @el1
	COMPARE #<monster.element>, 2
	IF= @el2
	COMPARE #<monster.element>, 3
	IF= @el3
	COMPARE #<monster.element>, 4
	IF= @el4
	COMPARE #<monster.element>, 5
	IF= @el5
	COMPARE #<monster.element>, 6
	IF= @el6	
	COMPARE #<monster.element>, 7
	IF= @el7
	COMPARE #<monster.element>, 9
	IF= @el9
	1: Monster belongs to element #<monster.element> 
	GOTO @goof
@el0
	1: Monster belongs to element #<el0>.
	GOTO @goof
@el1
	1: Monster belongs to element #<el1>.
	GOTO @goof
@el2
	1: Monster belongs to element #<el2>.
	GOTO @goof
@el3
	1: Monster belongs to element #<el3>.
	GOTO @goof
@el4
	1: Monster belongs to element #<el4>.
	GOTO @goof
@el5
	1: Monster belongs to element #<el5>.
	GOTO @goof
@el6
	1: Monster belongs to element #<el6>.
	GOTO @goof
@el7
	1: Monster belongs to element #<el7>.
	GOTO @goof
@el9
	1: Monster belongs to element #<el9>.
	GOTO @goof

@goof
	SET koghoin, "1"
	1: Monster has #<monster.hp> HP and #<monster.mp> MP.
	1: Due to many studies I recently gained new abilities.
	1: A colleague of mine, Doctor Troi, and myself found out how to scan for monster attack power, defense power and other statistics.
	1: Would you like to know more about the requested monster #<monster.name>?
	ASK 300.0
	IF YES, @goon
	MOVE 2,-50,85,1
	1: Alright, then we'll keep it like this for now.
	1: Return to me if you have more questions about monsters.
	END
@goon	
	1: Monster #<monster.name> has #<monster.attack> attack points and #<monster.defense> defense points.
	1: The monster has #<monster.str> strength, #<monster.wis> wisdom, #<monster.sta> stamina, #<monster.agi> agility and #<monster.dex> dexterity.
	1: If #<monster.name> gets killed then you will earn #<monster.expPts> experience points and #<monster.gold> gold coins.
	1: Those are all statistics I have available here right now.
	MOVE 2,-50,85,1
	1: Would you like to know more about another monster ID?
	ASK 300
	IF -YES, @end

@enter
	N: Enter the monster ID:
	ASK 3000.0
	1: Thank you.
	1: Its statistics are coming up in a few seconds...
	WAIT 5.0
	SET monster.id, #<LastAsk>
	ACTOR 2,	"#<monster.name>","#<monster.skin>",1,-50,85
	COMPARE #<monster.hp>, "0" 
	MOVE 2, 50,85,1
	SEL 2
	POSE 1,4,2	
	IF= @nomonster2
	1: Monster #<monster.name> is level #<monster.level>.
	COMPARE #<monster.element>, 0
	IF= @el01
	COMPARE #<monster.element>, 1
	IF= @el11
	COMPARE #<monster.element>, 2
	IF= @el21
	COMPARE #<monster.element>, 3
	IF= @el31
	COMPARE #<monster.element>, 4
	IF= @el41
	COMPARE #<monster.element>, 5
	IF= @el51
	COMPARE #<monster.element>, 6
	IF= @el61	
	COMPARE #<monster.element>, 7
	IF= @el71
	COMPARE #<monster.element>, 9
	IF= @el91
	1: Monster belongs to element #<monster.element>.
	GOTO @goof2
@el01
	1: Monster belongs to element #<el0>.
	GOTO @goof2
@el11
	1: Monster belongs to element #<el1>.
	GOTO @goof2
@el21
	1: Monster belongs to element #<el2>.
	GOTO @goof2
@el31
	1: Monster belongs to element #<el3>.
	GOTO @goof2
@el41
	1: Monster belongs to element #<el4>.
	GOTO @goof2
@el51
	1: Monster belongs to element #<el5>.
	GOTO @goof2
@el61
	1: Monster belongs to element #<el6>.
	GOTO @goof2
@el71
	1: Monster belongs to element #<el7>.
	GOTO @goof2
@el91
	1: Monster belongs to element #<el9>
	GOTO @goof2

@goof2 
	1: Monster has #<monster.hp> HP and #<monster.mp> MP.
	GOTO @goon
@end
	MOVE 2,-50,85,1
	1: I wish you a pleasant day and please come again if you have any questions about monster statistics.
	END
@nomonster
	1: I'm sorry but it appears there is currently no monster with this ID.
	GOTO @checkos
	END
@nomonster2
	1: I'm sorry but it appears there is currently no monster with this ID.
	GOTO @enter
	END

@vampslayermission
	1: Hi %1, is there something I can help you with?
	H: Yes, I just returned from Kutusori with a %I2155.
	H: He translated most of an %I2154, but had trouble understanding certain parts of it.
	H: He said you would be able to help me out further.
	1: Well, I mostly study monster abilities, but I'll see what I can do for you.
	WAIT 3.0
	N: Doctor Koghi starts studying the %I2155 you received from Kutusori.
	WAIT 8.0
	1: %C31s huh?
	1: This is very bad news.
	1: Well and good news as well.
	H: Well!?
	1: The good news is that according to this %C31 Prophecy there is an item called %I2146.
	1: The carier of this Amulet will instantly recover after all normal battles he or she fights.
	1: Another good thing about this Amulet is that it has been blessed with Angelic powers.
	1: This makes it impossible for %C31s to wear!
	H: That doesn't sound too bad so far.
	H: So what's the bad news?
	1: Well most likely the %C31s are guarding it with their undead lives in Haven.
	1: Other bad news is that there is also another item, called %I2143.
	1: This will cast auto life on %C31s that had their life drained, when they camp.
	1: If a powerful %C31 can get his hands on this amulet he will gain unimaginible power when it's full moon and all planets are lined up.
	H: Yikes!
	1: This only happens once every 263 years though.
	H: Oh well.
	H: In that case, what's there to worry about?
	1: Well...
	1: The planets are lined up AND it is full moon TONIGHT!
	1: According to the Prophecy the %I2143 can be found in Demon Circle.
	HOST_TAKE I2155
	HOST_GIVE T585
	1: I don't know the current situation there, but you better hurry!
	H: I'm already on my way!
	H: Oh and thanks for the help Doctor Koghi!
	WAIT 4.0
	GOTO EXIT
	
@notAValidId
	1: I am sorry, but that is not a valid number.
	1: Please enter a valid monster ID.
	GOTO @returnToQuestion

@endvampslayermission
	1: Welcome back %1, I hope everything went well for you.
	GOTO @checkos


SCENE 1201	newscenes019, SCENE, "Gizerkai's Home", 0,0

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

	MUSIC "U2beautifulday.mid"
	ACTOR 1, "Gizerkai" a4, 4, 15,85
	ACTOR 2, "Cat", kitty2, 4, 24,70
	ACTOR 3, "Cat", kitty, 1, 51,76
	ACTOR 4, "Cat", kitty3, 4, 56,93
	ACTOR 5, "Cat", kitty2, 4, 13,91
	ACTOR 6, "Cat", kitty3, 4, 64,73

	SEL 3
	POSE 1,3	

	OFFER 28, 31, 112, 113, 114, 771

	IF T506, @kittysaved
	IF T505, @cathater
	IF T504, @catlover

	1: Do you know why I like cats?
	ASK 30.0
	IF YES, @yes
	IF NO, @no
	1: Ow really?
	END
@kittysaved
	ACTOR 7, "Kitty", kitty, 4, 33, 92
	7: Meoww
	SEL 7
	POSE 2
	SOUND "meow.wav"
	WAIT 1.0
	POSE 4
	END
@yes
	1: Yeah...
	1: You're a cat lover too right?
	ASK 30.0
	IF YES,@yes1
	IF NO,@no1
@yes1
	1: I knew you like cats...
	1: Purrrrr....
	END
@no1
	1: WHAT!?
	1: You got something against our furry friends or something??
	1: You're not in that filthy anti cat conspiricy are you?
	1: WELL ARE YOU!?
	ASK 30.0
	IF YES,@yes2
	IF NO, @no2
	1: I knew it.
	END
@yes2
	1: Ow you!
	1: Grrr 
	1: Grrrr 
	1: Grrrrr grrrrr
	1: GRRRRRR
	1: Call out the Cats of War!
	1: Me and my furry mates are gonna teach you what it is to be discrimininated cause you got furrr.
	POSE 1
	1: Cats attack!
	WAIT 5.0
	3: Miauw?
	SOUND "meow.wav"
	POSE 2
	WAIT 1.0
	POSE 4
	SEL 1
	POSE 4
	1: Just kidding...
	1: Cats are gentle peaceful creatures.
	END
@no2
	1: Good.
	1: In that case the cats will let you go.
	1: Purrr....
	END
@no
	1: I like cats because they say purrrrr.
	1: Purrr Purrrrr...
	1: Purrrr.... 
	1: Purrrrrrrr
	1: PURRRRR!
	H: You're one psycho guy you know?
	1: Yeah I know
	1: But I also like cats cause they got furrr.
	1: Furrrr...
	1: Furrr... furrrrrr...
	1: FURRRR!...
	H: Alright that's it, I'm outta here!
	1: No wait!
	1: Cats are really gentle creatures.
	2: Purrr
	1: and someday they'll take over the world!
	1: No kidding, for real!
	SEL 5
	5: Meoww?
	POSE 2
	SOUND "meow.wav"
	WAIT 1.0
	POSE 4
	H: Eh-, yeah right.
	H: Cat lovers of these days.
	H: What is the world coming to.
	END
@eventActorClick1
	STRCMP #<str.soul>, "SOUL 1861"
	IF= @charmed
	1: What are you doing?
	1: Please don't touch me there...
	WAIT 10.0
	END
@charmed
	1: Emma!
	1: Finally you clicked on me!
	1: Please never leave me, you're the love of my life!
	1: Together with the cats we could start a new Cat Empire and you could be my queen!
	H: ....
	H: Ahem...
	H: Freak...
	H: I'll never find a decent guy in this world.
	WAIT 3.0
	N: Emma I might add the perfect guy for you somewhere here in RoT... ;-)
	WAIT 3.0
	N: I won't tell where he is though! :-p
	WAIT 3.0
	N: Good luck finding him...
	END
@eventActorAttack1
	1: Grrrr...
	1: Grrrr grrrrr.....	
	1: GRRRR!
	1: CHARGE!
	POSE 1
	WAIT 5.0
	SEL 2
	2: Meoww?
	POSE 2
	SOUND "meow.wav"
	WAIT 1.0
	POSE 4
	SEL 1
	POSE 4
	1: Okay because you're %1 I'll let you alone...
	WAIT 2.0
	1: For now...
	END
@eventActorGive1
	1: Thank you.
	1: I think..
	1: Where do I have to use this for?
	1: I'm a bit confuzzled now.
	H: Aren't we all?
	SEL 4
	4: Meowww
	POSE 2
	SOUND "meow.wav"
	WAIT 1.0
	POSE 4
	1: Eh-...
	1: Huh?
	1: What were we talking about again?
	END
@eventActorClick2
	IF R35,@meow2
	2: Purrrr.
	SOUND "purr.wav"
	WAIT 5.0
	END
@meow2
	SEL 2
	2: Meoww
	POSE 2
	SOUND "meow.wav"
	WAIT 1.0
	POSE 4
	WAIT 5.0
	END
@eventActorClick4
	IF R55,@meow4
	4: Purrrr.
	SOUND "purr.wav"
	WAIT 5.0
	END
@meow4
	SEL 4
	4: Meowww.
	POSE 2
	SOUND "meow.wav"
	WAIT 1.0
	POSE 4
	WAIT 5.0
	END
@eventActorClick5
	IF R25,@meow5
	5: Purrrr.
	SOUND "purr.wav"
	WAIT 5.0
	END
@meow5
	SEL 5
	5: Meoww.
	POSE 2
	SOUND "meow.wav"
	WAIT 1.0
	POSE 4
	WAIT 5.0
	END
@eventActorClick6
	IF R45,@meow6
	6: Purrrr.
	SOUND "purr.wav"
	WAIT 5.0
	END
@meow6
	SEL 6
	6: Meowwww.
	POSE 2
	SOUND "meow.wav"
	WAIT 1.0
	POSE 4
	WAIT 5.0
	END
@eventActorClick3
	IF R5,@purr
	3: Purrrr.
	SOUND "purr.wav"
	WAIT 5.0
	END
@purr
	3: Purrr, I say purrr.
	3: Purrr I say.
	3: Purrrr...
	SOUND "purr.wav"
	END
@eventActorAttack2
	GOTO @attacked
@eventActorAttack3
	GOTO @attacked
@eventActorAttack4
	GOTO @attacked
@eventActorAttack5
	GOTO @attacked
@eventActorAttack6
	GOTO @attacked
@attacked
	1: Grrrr
	WAIT 2.0
	TAKE H25000
	TAKE M25000
	1: Nobody attacks a harmless cat and lives through it...
	2: MIAUWW!
	SOUND "meow.wav"
	4: Meowwww.
	SOUND "meow.wav"
	5: MAAAUWWWW.
	SOUND "meow.wav"
	6: MAAAUW!
	SOUND "meow.wav"
	3: MEOWWW.
	SOUND "meow.wav"
	1: DON'T attack my cats!
	1: Grrrr grrr grrrrrr!
	COMPARE #<num.hostLevel>, "1"
	IF= @russian
	END
@russian
	IF R20, @ratnow
	END
@ratnow
	HOST_TAKE S83
	HOST_TAKE S84
	IF C9, @ratend
	SET num.hostClass, "61"
	WAIT 1.0
	HOST_GIVE L1
	HOST_GIVE H#<num.hostMaxHP>
	HOST_GIVE M#<num.hostMaxMP>
@ratend
	END

@cathater
	1: You better leave, you stinking cat hater.
	1: Drowning poor kitty like that will not go by unpunished.
	HOST_TAKE G10000
	N: Gizerkai steals 10,000 GP from you and kicks you out of his house!
	WAIT 3.0
	GOTO EXIT
@catlover
	HOST_GIVE T506
	WAIT 2.0
	H: Here you go kitty, you'll be safe here!
	ACTOR 7, "Kitty", kitty, 4, 110,90
	MOVE 7,87,97
	WAIT 3.0
	7: Meoww!
	SEL 7
	POSE 2
	SOUND "meow.wav"
	WAIT 1.0
	POSE 4
	H: Gizerkai, take good care of kitty for me please.
	1: Sure #<g.man>!
	1: Every cat loves me and I love every cat!
	END


SCENE 1202	newscenes019, SCENE, "Telbiro's Place", 0,0

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

	MUSIC "U2beautifulday.mid"
	ACTOR 1	"Telbiro",pet008, 4,7,67 
	ACTOR 2 "Ryan",	monster004, 4,20,92
	ACTOR 3 "Hirako", monster009,4, -51,61
	ACTOR 4 "Bagor", monster016, 4, 42,84
	ACTOR 5 "Whituso", monster018,4, -51,61
	ACTOR 6, "Kitty", kitty, 4, 56,93

	FACE 4,0
	FACE 2,0

	IF T333,@beenhere

	4: Did you hear about the new war that's coming?
	1: Yeah I heard some rumours, but don't worry to much about it.
	SEL 6
	6: meoww.
	SOUND "meow.wav"
	POSE 2
	WAIT 0.5
	POSE 4
	1: I'm more worried about those lazy bastards Hirako and Whituso.
	1: They're late for the Samurai training from Fastom.
	2: Yeah they're late for class again.
	4: Fastom will be pissed.
	1: ! HIRAKO!  
	1: ! WHITUSO!
	1: ! GET YOUR LAZY ASSES OUT NOW!
	MOVE 3,51,65,1
	MOVE 3,56,93
	3: Somebody called me?
	MOVE 5,51,65,1
	MOVE 5,66,72
	WAIT 1.0
	6: WAAAAUH!
	POSE 1
	MOVE 6,110,99
	3: Oops, sorry kitty.
	FACE 3,0
	5: Man, you're really messed up.
	FACE 5,0
	5: Now the poor cat's tail will hurt for days.
	1: HIRAKO AND WHITUSO!
	3: Huh, wha..?
	1: You're both late for class... AGAIN.
	5: Oh, shit! I totally forgot about class.
	POSE 3
	WAIT 1.0
	POSE 4
	2: *sniff sniff*
	WAIT 4.0
	2: What do I smell?
	2: Have you two been smoking weed again?
	3: I'm not high...
	3: Well, maybe a little bit.
	1: Ugh...
	1: I don't know what I should do with those boys.
	4: Maybe someday they'll learn their lesson.
	5: Do we have to go?
	1: YES!
	1: Now get moving! 
	3: Yes, Ma'am!
	5: Aya Si-, eh, Ma'am!
	MOVE 3,120,99
	MOVE 5,120,99
	WAIT 10.0
	2: Ugh, hopeless.
	1: Poor cat.
	FACE 4,0
	4: Kitty you can come back now!
	4: It's safe again!
	FACE 2,0
	MOVE 6, 56,93
	WAIT 5.0	
	6: Meow?
	WAIT 3.0
	POSE 4
	1: I'll get you some milk.
	MOVE 1, 51,61
	HOST_GIVE T333
	6: MEOW!
	POSE 1
	MOVE 6,51,61
	WAIT 3.0
	MOVE 1,-51,61,1
	WAIT 2.0
	MOVE 6,-51,61,1
	END
@beenhere
	MOVE 1,-100,10,1
	MOVE 6,-100,10,1
	
	FACE 4,1
	FACE 2,1

	4: Hey %1 how are you?
	ASK 60.0
	IF QFine,@fine
	IF QNot, @not
	IF QGood,@good
	IF QBad, @bad
	4: Aha.
	5: Well good luck on your journey %1.
	5: I have a feeling you'll need it...
	END
@fine
	4: I'm glad to hear so.
	GOTO @bena
@good
	4: Keep it up.
	GOTO @bena
@Not
	4: I'm sorry to hear so.
	GOTO @bena
@bad
	4: I wish I could help out.
	GOTO @bena
@bena
	2: Good luck on the rest of your quests %1.
	2: It won't be an easy journey...
	END
; Akira



; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; EMPEROR QUEST
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

SCENE 1203, japan, SCENE, "Imperial Outpost", 0,0

ACTOR 1, "General Shin", a1, 3,12,75
ACTOR 2, "General Shin", a1, 3,12,-75	
	
	IF T264, @killedgen
	IF T265, @nogen

	IF T279, @alljobs
	IF T259, @leave
@alljobs
	IF T299, @evacuate
	IF T296, @rotwarimp
	IF T295, @rotwarreb
	IF T134, @foundkamatari
	IF T260, @kamatari
	IF T248, @donemis
	IF T247, @finwel
	IF T246, @finnot
	IF T245, @finnot
	IF T244, @quest2
	IF T242, @quest
	1: Welcome %1, I don't know how you ended up here but you should speak with the Emperor first.
	END
@quest2
	1: I see you returned.
	H: Yes, could you explain my mission one more time?
	GOTO @summ
@quest
	WAIT 2.0
	H: The emperor sent me.
	1: Ah yes, he already informed me.
	1: An important undercover informant from Warlord Keithuso managed to infiltrate the Empire.
	1: He stole certain important documents and the Emperor wants them back.
	1: The problem is that most of the population supports the warlord here.
	1: So you need to assasinate him stealthily.
	1: You need a slave that reached at least level 15.
	1: When you spot the informant call out your slave and cast the spell %S121 on him.
	1: The spell is a level 1 Devil spell.
	1: You can't fight the monsters yourself, but you are allowed to heal yourself and your slave.
	1: The woods are large and you can easily hide or get lost in them.
	1: I have a pair of %I717 here that allow you to enter the forest at certain places.
	WAIT 2.0
	N: You received a pair of %I717.
	HOST_GIVE I717
	HOST_GIVE T244
	1: To get your slaves attack power and defense power up I have 2 %I28 for you.
	1: Feed them to your slave when you got it to at least level 15.
	N: You received two %I28.
	HOST_GIVE I28.2
@summ
	1: I shall give a short summary of what to do when you find the informant.
	1: You wait until you identified the informant from Warlord Keithuso. 
	WAIT 2.0
	1: When you identified him you call out your slave, your slave should be at least level 15.
	WAIT 2.0
	1: After calling out your slave you cast the spell %S121 on the informant.
	WAIT 2.0
	1: The spell %s121 is a level 1 Devil spell.
	WAIT 2.0
	1: You can only heal and your slave will have to do the rest of the job.
	WAIT 2.0
	1: After you killed the informant you will search his dead corpse for the documents.
	WAIT 2.0
	1: When you found the documents you bring them to me.
	WAIT 2.0
	1: You can recognize the informant by his white hair, his red white jacket and his green pants.
	WAIT 2.0
	1: You get most likely 10 seconds at max before the informant leaves with the documents.
	WAIT 2.0
	1: Be sure to have your slave and %S121 spell ready when you see the informant.
	WAIT 2.0
	1: You can enter the forest with the %I717 that I gave you.
;	1: In case you get hopelessly stuck in one of the forests you should type /terrain
;	1: It is NOT a cheat code and then you can see where you can leave or enter the forest.
;	1: Since its a rather annoying function you should turn it off when you don't need it.
;	1: To turn it off type /terrain again.
	1: Report to me once you fulfilled the mission.
	1: Please do not fail us, these documents are very important for the Emperor.
	END
@finnot
	1: Argh... 
	1: You let them get away with the documents!
	1: This will NOT please the Emperor...
	HOST_GIVE T248
	1: I'll let you tell him personally, I prefer not to be in his presence right now.
	END
@finwel
	1: Very good, I see you have the documents with you.
	HOST_GIVE T248
	1: You should bring them personally to the Emperor, he will be pleased.
	END

@kamatari
	IF T261, @kamatari2
	1: Ah good you're finally here.
	1: The men are getting nervous and this is generally not a good sign.
	1: We have to expect a rebel attack very soon.
	1: The Emperor send you to me to fill you in on your next mission.
	H: Yes, he said something about Kamatari?
	1: Kamatari indeed, Kamatari is one of the greatest soldiers still alive.
	1: His power is unimaginable.
	1: If we can get him to fight on our side our victory is almost certain.
	1: Kamatari left off to an unknown area to get some peace.
	1: Right now he lives as a clerk to get in touch with his inner-self.
	1: The only thing I know is that he lives somewhere in a cave.
	1: The cave is named after Kamatari's great grand father, who was also called Kamatari.
	1: You should be able to find the entrance to this cave in The Synth.
	H: The Synth huh? Can you tell me a bit more about that place?
	1: The Synth is a huge maze surrounded by lava.
	1: Iori guards that place with his brothers and they are all very strong.
	1: You should take enough supplies with you since you probably don't want to travel back.
	1: You also can not check the mini map, you need to memorize which path you took.
	1: As long as you are careful you should be fine.
	HOST_GIVE T293
	HOST_GIVE T261
	1: Good luck with your mission.
	END
@foundkamatari
	WAIT 1.0
	H: ! I found Kamatari!
	1: That's great, you should report to the Empiror at once!
	END

@rotwarimp
	WAIT 1.0
	1: I'll hold them off here soldier.
	1: Get back to the war!
	H: Sir, yes sir!
	WAIT 3.0
	GOTO EXIT
@rotwarreb
	WAIT 1.0
	1: Get out of here you rebel scum!
	WAIT 3.0
	GOTO EXIT	

@leave
	1: Leave you dirty scum!
	1: You are no longer welcome in the Empire!
	IF T263, @killgen
	WAIT 4.0
	GOTO EXIT
	END
@kamatari2
	IF T130, @kamatari3
	WAIT 2.0
	H: I have trouble finding Kamatari.
	1: Well I pretty much told you everything there is to know already...
	1: You should search for him in Kamatari's Cave, it's a maze in there.
	1: Try not to get lost and be sure you have a %I736 or %I737 with you.
	IF T263, @killgen
	END
@kamatari3
	IF T134, @kamatari4
	WAIT 2.0
	H: I have found Kamatari.
	1: Good will he help us?
	H: Euhm... not yet...
	1: What do you mean..?
	H: Well I have to find his sword first before he even considers joining us.
	1: Well then hurry up and find his sword!
	1: Without it I don't think he would be of much use to us anyway.
	H: Yes, sir!
	IF T263, @killgen
	END

@kamatari4
	WAIT 2.0
	H: I have found Kamatari and gained his support!
	1: Good, now go to the Emperor for your final mission.
	IF T263, @killgen
	END
@donemis
	1: The Emperor told me you finished your first mission.
	1: You should get back to your current mission.
	IF T263, @killgen
	END
@nogen
	HOST_GIVE T293
	IF T280, @nogenwait2
	IF T264, @end
	1: Get out of here you dirty rebel!
	1: Emperor Shinzobi has been informed about your betrayal and you're no longer welcome at the Imperial Palace either.
	IF T277,@nogenwait
	WAIT 4.0
	GOTO EXIT
@nogenwait
	H: No wait, I have good news for the Empire!
	1: Like we believe the word of a rebel.
	H: I killed Keithuso's daughter Deynata.
	1: Hmmm...
	1: That *is* good news...
@nogenwait2
	1: Go talk with the servant from Shinzobi.
	1: Maybe he can fix things up for you.
	HOST_GIVE T280
	H: I'll go try that, thanks for the advice.
	WAIT 3.0
	GOTO EXIT

@killedgen
	MOVE 1,12,-75,1 
	MOVE 2,12,-75,1
	WAIT 4.0
	N: There is nothing here anymore.
	END
@killgen
	MOVE 1,12,-75,1
	MOVE 2,12,75,1
	END
@eventActorAttack2
@attack1
	HOST_GIVE T265
	IF T266, @attack3
	IF T267, @attack2
	2: Guards, we're under attack!
	MOVE 2,-12,95
	WAIT 5.0
	FIGHT2 530,529,529,529,529
	IF WIN, @beatgen
	IF LOSE, @lostgen
	END
@lostgen
	HOST_GIVE T265
	MOVE 1, 12,75
	WAIT 6.0
	GOTO @nogen
	END
@beatgen
	HOST_TAKE T265
	N: You killed General Shin.
	HOST_GIVE T264
	END
	
@eventActorSpell2
	COMPARE #<spell.id>, "75"
	IF= @dizzgen
	COMPARE #<spell.id>, "73"
	IF= @silgen	
	COMPARE #<spell.id>, "71"
	IF= @virgen	
	IF T266, @dizzoff
	GOTO @attack1
@dizzoff
	N: You have awoken General Shin.
	HOST_TAKE T266
	END
@dizzgen
	N: You made General Shin dizzy.
	HOST_GIVE T266
	END
@silgen
	HOST_GIVE T267
	N: General Shin can no longer make any noise.
	IF -T266, @attack2
	GOTO @dizzoff
	END
@virgen
	IF T267-T266,@attack2
	IF -T267-T266,@attack4
	N: You performed the stealth attack perfectly!
	WAIT 3.0
	2: Kgggggg....
	SOUND pain1.wav	
	N: You watch how General Shin dies.
	HOST_GIVE T264
	WAIT 3.0
	MOVE 2,-12,-75,1
	WAIT 10.0
	N: You steal the %I955 from General Shin's dead body.
	HOST_GIVE I955
	WAIT 15.0
	N: You searched some more and found 4,500 GP.
	HOST_GIVE G4500
	WAIT 30.0
	N: You don't find anything else of value.
	WAIT 15.0
	N: General Shin's body completely has disintegrated.
	WAIT 60.0
	N: You have even kept a minute of silence, now get a move on!
	N: Nothing special is going to happen here anymore!
	WAIT 15.0
	N: Really you're wasting your time!
	WAIT 10.0
	N: I'm not kidding!
	WAIT 20.0
	N: You must be one really bored person that you want to wait this long...
	WAIT 30.0
	ACTOR 2, "RoT's Protector",monster002, 1, 20, 85
	2: Personally I'm getting bored by watching you the whole time doing nothing.
	2: Can you finally get a move on and do something *interesting*??
	WAIT 20.0
	2: Okay that's it!
	2: I'm going to kick you out!
	WAIT 3.0
	GOTO EXIT
@attack4
	HOST_GIVE T265
	2: guards... help me...
	N: The general died but called for back up just in time!
	MOVE 2,12,-75,1
	FIGHT2 529,529,529,529
	IF LOSE, @lostgen
	IF WIN, @beatgen
	END	

@attack3
	HOST_GIVE T265
	MOVE 2,-20,95
	N: General Shin is dizzy and won't call for back up!
	WAIT 5.0
	FIGHT2 530
	IF LOSE, @lostgen	
	IF WIN @beatgen
	END
@attack2
	HOST_GIVE T265
	2: Mmmm mmm!	
	MOVE 2,-20,95
	N: General Shin is silenced and can't call for back up!
	WAIT 5.0
	FIGHT2 530
	IF LOSE, @lostgen
	IF WIN, @beatgen
	END
 @evacuate
	MOVE 1,-50,50,1
	N: Looks like this place has been evacuated.
	END
@end
	END
	
; xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
SCENE 1204,	aaabright, CUT, "Restaurant",0,2

	ACTOR 1, "Watucho", monster016, 4,12,-65
	ACTOR 2, "Tai Cho", monster012, 1, 80,89
	ACTOR 3, "Specitia",  mirror,	  4,40,92
	ACTOR 4, "Kuto Lee", monster019, 1,54,96 

	FACE 2,0

	IF T246, @gotkicked
	IF T247, @gotkicked
	IF T245, @gotkicked
	SET petlevel, #<num.hostPetLevel>
	COMPARE #<petlevel>, "14"
	IF> @killa

@back	
	4: Sure is quiet here right now...
	2: Yeah I hope we don't have to wait to long before Watucho shows up.
	3: I'm getting tired of waiting all the time...
	END
@killa
	IF -S121, @back
	MOVE 1, 110,110,1
	4: Sure is quiet here right now...
	2: Yeah I hope we don't have to wait to long before Watucho shows up.
	3: I'm getting tired of waiting all the time...
	MOVE 1,94,91
	WAIT 4.0
	4: You made it!
	1: Sure did.
	1: Lets go before anybody sees me.
	2: Yes lets hurry.
	H: 'Hmmm.... white hair, red white jacket and green pants...
	H: 'That is the messenger!
	N: Prepare yourself to attack!
	WAIT 6.0
	MOVE 4, -20,74
	MOVE 3, -20,85
	MOVE 2, -20,80
	MOVE 1, -25,82
	HOST_GIVE T245
	END
@eventActorSpell1
	SET specil, #<spell.id>
	COMPARE #<specil>, "121"
	IF= @killar
	1: That tickles.
	1: Hmmm.. its probably nothing.
	END

@eventActorSpell2
	2: I felt something strange...
	END


@eventActorSpell3
	3: Grandpa is that you?
	END

@eventActorSpell4
	4: Tai Cho did you touch me?
	2: Heck no, I'm not gay.
	END
@killar
	FLAGS 3072
	1: AHHHHH!
	1: MY SOUL!!
	3: Quick we have to strike back!
	MOVE 2,-100,10,1
	MOVE 3,-100,10,1
	MOVE 4,-100,10,1
	WAIT 3.0
	MOVE 1,-100,10,1

	FIGHT2 525,526,527,528
	IF WIN, @finito
	HOST_GIVE T246
	2: Take Watucho with you, the emperor must have found us!
	END
@finito
	HOST_TAKE T245
	HOST_GIVE T247
	N: You searched the dead corpse of Watucho and found the documents.
	HOST_GIVE I733
	END

@gotkicked
	MOVE 1,-100,10,1
	MOVE 2,-100,10,1
	MOVE 3,-100,10,1
	MOVE 4,-100,10,1
	N: There is nothing left here worth exploring.
	END

; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; TELEPORT
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

SCENE 1205, check,CUT, "Teleport",0,0

	LOCK 1
	EJECT V20
	FLAGS 16448

#include banscripts.txt	

	STRCMP #<str.soul>, "SOUL 1373"
	IF= @skipexits

	IF I737-T414, @exitx
	EJECT V20+T254
	IF V20-T254, @eventActorClick5
	IF -V20, @eventActorClick5

@skipexits

	ACTOR 1, "Kagoshima Well", 	rotm2, 6,10,45	
	ACTOR 2, "Dark Arena", 		rotm2, 10,30,45	
	ACTOR 3, "Placid Arena", 	rotm2, 8,50,45	
	ACTOR 4, "Imperial Palace", 	rotm2, 7,70,45	
	ACTOR 5, "Elliair Home", 	rotm2, 9,10,65	
	ACTOR 6, "Maku's Tunner", 	rotm2, 12,30,65	

	IF -T130, @actor8
	ACTOR 7, "Kamatari's Cave", 	rotm2, 13,50,65
@actor8
	IF -T273, @actor9	
	ACTOR 8, "Arakaki", 		rotm2, 4,70,65	
@actor9
	IF -T429, @actor10
	ACTOR 9, "Destroyed Lands",	rotm2,11,90,65
@actor10
	IF I700, @actor10b
	IF I170, @actor10b
	IF I190, @actor10b
	GOTO @actor11
@actor10b
	ACTOR 10, "The Challenges",	rotm2,5,90,45

@actor11
	IF -T293, @actor12
	ACTOR 11, "The Synth",		rotm2,7,10,85

@actor12
	IF -T415 , @actor13
	ACTOR 12, "No Rest For The Wicked",rotm2,8,30,85

@actor13
	IF -T243, @actor14
	IF I746,  @actor14
	ACTOR 13, "Neither Lands",	rotm2,3,50,85

@actor14
	ACTOR 14, "Sky Land",		rotm2,10,70,85

@actor15
	ACTOR 15, "Support RoT",	rotm2,13,10,25

@actor16
	IF -T118, @actor17
	ACTOR 16, "Bunker 3", rotm2, 12,10,100

@actor17
	ACTOR 17, "Sacred Plaines", rotm2, 4, 30,25

@actor18
	IF -T289, @actor19
	ACTOR 18, "Green Destiny", rotm2, 6,50,25

@actor19
	IF -T507,@actor20
	ACTOR 19, "Demon Circle", rotm2, 11,70,25

@actor20
	STRCMP "#<str.soul>", "SOUL 1373"
	IF= @setactor20
	STRCMP "#<str.soul>", "SOUL 1455"
	IF= @setactor20
	GOTO @actor21
	
@setactor20
	ACTOR 20, "New Haven", rotm2, 12,90,25
	
@actor21
	IF -T865-T867, @actor22
	ACTOR 21, "Abandoned Research Lab",		rotm2,	5,30,100

@actor22
	IF -T904-T906, @actor23
	ACTOR 22, "Military Research Facility", rotm2, 4, 50,100

@actor23
	IF -T970, @actor24
	ACTOR 23, "Bunker 9", rotm2, 3, 70,100

@actor24

@actor63
	STRCMP #<str.soul>, "SOUL 1373"
	IF= @setactor63

	TAKE T1000
	END
@setactor63
	ACTOR 63, "Deep Sand", rotm2,9,90,85
	TAKE T1000
	END
@eventActorClick63
	MOVE 63,91,86,1
	WAIT 0.2
	GOTO LINK 22,0,0

@eventActorClick1
	MOVE 1, 11,46,1
	WAIT 0.2
	PARTY V20
	GOTO LINK 0,22,1
	END

@eventActorClick2
	MOVE 2, 31,46,1
	WAIT 0.2
	PARTY V20
	GOTO LINK 20,0,0
	END

@eventActorClick3
	MOVE 3, 51,46,1
	WAIT 0.2
	PARTY V20
	GOTO LINK 21,0,0
	END

@eventActorClick4
	MOVE 4, 71,46,1
	WAIT 0.2
	PARTY V20
	GOTO LINK 11,21,1

@eventActorClick5
	MOVE 5, 11,66,1
	WAIT 0.2
	PARTY V20
	GOTO LINK 14,18,1

@eventActorClick6
	MOVE 6,31,66,1
	WAIT 0.2
	PARTY V20
	GOTO LINK 26,0,0

@eventActorClick7
	MOVE 7,51,66,1
	WAIT 0.2
	PARTY T293
	GOTO LINK 4,0,0

@eventActorClick8
	MOVE 8,71,66,1
	IF C6, @actor8e
	IF C8, @actor8e
	IF T394-T429, @actor8a
@actor8b
	WAIT 0.2
	PARTY T273
	GOTO LINK 2,0,0
@actor8a
	SET ikakgel, "100"
	MUL ikakgel, #<num.hostLevel>
	N: Entering Arakaki costs #<ikakgel> GP.
	N: Proceed?
	ASK 300
	IF YES, @actor8c
	MOVE 8,70,65,1
	END
@actor8c	
	IF -G#<ikakgel>, @actor8d
	PARTY G#<ikakgel>
	TAKE G#<ikakgel>
	GOTO @actor8b
@actor8d
	MOVE 8,70,65,1
	N: Insufficient cash.
	END
@actor8e
	WAIT 0.2
	PARTY C#<num.hostClass>
	PARTY T273
	GOTO LINK 2,0,0

@eventActorClick9
	MOVE 9,91,66,1
	WAIT 0.2
	PARTY T429
	GOTO LINK 18,1,0

@eventActorClick10
	MOVE 10,91,46,1
	WAIT 0.2
	PARTY I700
	PARTY T254
	GOTO LINK 28,0,0

@eventActorClick11
	MOVE 11,11,86,1
	WAIT 0.2
	PARTY T293
	GOTO LINK 1,0,0

@eventActorClick12
	MOVE 12,31,86,1
	WAIT 0.2
	PARTY T415
	GOTO LINK 10,0,0

@eventActorClick13
	MOVE 13,51,86,1
	WAIT O.2
	PARTY T243
	PARTY -I746
	GOTO LINK 25,0,0

@eventActorClick14
	MOVE 14,71,86,1
	WAIT 0.2
	PARTY T254
	GOTO LINK 17,15,0

@eventActorClick15
	MOVE 15, 11,26,1
	WAIT 0.2
	GOTO SCENE 1365

@eventActorClick16
	MOVE 16, 11,101,1
	WAIT 0.2
	GOTO LINK 35,6,0

@eventActorClick17
	MOVE 17, 31,26,1
	WAIT 0.2
	GOTO LINK 23,0,0

@eventActorClick18
	EJECT T289
	MOVE 18, 51,26,1
	WAIT 0.2
	GOTO LINK 24,0,0
 
@eventActorClick19
	EJECT T507
	MOVE 19, 71,26,1
	WAIT 0.2
	GOTO LINK 29, 1,1

@eventActorClick20
	MOVE 20, 91,26,1
	WAIT 0.2
	GOTO LINK 36,0,0

@eventActorClick21
	MOVE 21, 31, 101, 1
	WAIT 0.2
	GOTO LINK 37, 11, 0

@eventActorClick22
	MOVE 22, 51, 101, 1
	WAIT 0.2
	GOTO LINK 38, 10, 0

@eventActorClick23
	MOVE 23, 71, 101, 1
	WAIT 0.2
	GOTO LINK 40, 0, 0

END

@exitx
	HOST_TAKE I737
	GOTO EXIT
@exit2
	GOTO EXIT

@exit
HOST_GIVE T172
PARTY T172
GOTO LINK 99,0,1
END

; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; BLACK SMITH :
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
;
; note: script is pretty fucked up after making the list.
;
SCENE 1206, morphious, SCENE, "Black Smith",0,0

	ACTOR 1, "Daniel San",monster054,1,25,83
	SEL 1
	POSE 1,4

	IF T257, @specialblade
	IF I740, @specialback

	IF T1004, @beltdred
	IF T1003, @beltcred
	IF T1002, @beltbred
	IF T1001, @beltared

	SET bstimelwarn, "WARNING: Do not touch the cookies or you will be banned!"
	COMPARE #<bsintro>, "1"
	IF= @skipin
	1: Welcome to my Black Smith %1.
	1: Is there anything you wish?
	ASK 30.0
	IF YES,@goon
	1: Ah okay, in that case I wish you a pleasant day.	
	END
@skipin
	1: Welcome back %1.
	GOTO @invencheck
	END
@goon
	WAIT 3.0
	SET bsintro, "1"
	1: Such as an... item?
	H: Actually, yes.
	1: Man I'm good!
	H: What kind of items can you make?
	1: I can upgrade certain belts.
@invencheck
	1: Let me check your inventory, maybe I can make something useful of your junk.
@itema
	SET check, "0"
	SET belta, "0"
	IF I952, @cooka
@itemb
	SET beltb, "0"
	IF I954, @cookb
@itemc
	SET beltc, "0"
	IF I953, @cookc
@itemd
	SET beltd, "0"
	IF I955, @cookd
@iteme
	SET bsquest, "0"
	IF T253, @bsquest
@list
	COMPARE #<check>, 0
	IF= @end
	WAIT 4.0
	1: I see you have some useful stuff for me to tinker with.
	1: Let me make a full list...
	SET bsimp, "3000"
	WAIT 5.0
	MENU	#<belta>,#<beltb>,#<beltc>,#<beltd>,#<bsquest>
	END
@end
	WAIT 4.0
	1: Nope I'm sorry, you got nothing useful for me to make.
	END
@cooka
	ADD check, "1"
	SET belta, "Leather Belt=@belta"
	GOTO @itemb
@cookb
	ADD check, "1"
	SET beltb, "Defense Belt=@beltb"
	GOTO @itemc
@cookc
	ADD check, "1"
	SET beltc, "Plate Belt=@beltc"
	GOTO @itemd
@cookd
	ADD check, "1"
	SET beltd, "Power Belt=@beltd"
	GOTO @iteme
@bsquest
	ADD check, "1"
	IF T258, @list
	SET bsquest, "Imperial Blades?=@specialbs"
	GOTO @list
	END
@belta
	1: I can upgrade your %I952 to a %I961.
	1: To make the %I961 I need 1 %I952, 3 %I706 and 10 %I203s.
	1: I also need 35,000 GP.
	1: Do you want me to make the %I961 for you?
	ASK 30.0
	IF YES, @makebelta
	1: Alright, perhaps another time.
	END
@beltb
	1: I can upgrade your %I954 to a %I963.
	1: To make the %I963 I will require a %I954, an %I823, a %I825, a pair of %I714, and a %I223.
	1: I also need 12,500 GP.
	1: Do you want me to make the %I963 for you?
	ASK 30.0
	IF YES, @makebeltb
	1: Okay, perhaps another time.
	END	
@beltc
	1: I can upgrade your %I953 to a %I969.
	1: To make the %I969 I need 1 %I953, a pair of %I715, an %I838, a %I837, a %I836, a %I239, a %I938, and a %I282.
	WAIT 6.0
	1: I also need 10,000 GP.
	1: Do you want me to make the %I969 for you?
	ASK 30.0
	IF YES, @makebeltc
	1: Alright, maybe some time later.
	END
@beltd
	1: I can upgrade your %I955 to a %I972.
	1: To make the %I972 I need a %I955, 1 %I20, a %I345, a pair of %I716, 1 %I945, and a %I246.
	1: I also need 35,000 GP.
	1: Do you want me to make the %I972 for you?
	ASK 30.0
	IF YES, @makebeltd
	1: Alright, maybe some time later.
	END
@specialbs
	H: I need 5 %I738s for the Emperor, the Emperor said you can make them.
	1: I sure can, I need certain items though, else its impossible to make the blades.
	1: I'm actually upgrading existing blades and improving those to a higher level.
	H: Tell me what you need and I'll get it.
	1: Alright, I'll give you an %I740 with the items I require.
	1: The %I740 works just as the %I732 only now you'll see how many more items you need.
	HOST_GIVE I740
	H: I'm a bit curious, what is the main item for the %I738?
	1: As long as you don't tell others, I'm using the %I739s as main blades.
	1: You randomly find them after monster fights, I need 5 of those blades in total.
	1: If you get trouble finding them then fight low level monsters. 
	1: You could also try trading for them with other people online.
	1: Good luck finding everything.
	END

@specino
	1: I see you're back, but you don't have all items yet.
	1: I can't help you unless you have all required items with you.
	1: You can use the %I740 to check which items you still need.
	END
@specialback 
	COMPARE #<num.item739>, "5"
	IF< @specino
	COMPARE #<num.item9>, "15"
	IF< @specino
	COMPARE #<num.item808>, "6"
	IF< @specino
	COMPARE #<num.item307>, "4"
	IF< @specino
	COMPARE #<num.item308>, "3"
	IF< @specino
	COMPARE #<num.item262>, "2"
	IF< @specino
	COMPARE #<num.item902>, "6"
	IF< @specino
	SET pktime, #<num.hostAge>
; need to take more stuff
	SET newte, "-#<pktime>"
	SUB newte, "56"
	1: Good you're back with the items I need.
	H: Here you go.
	WAIT 3.0
	N: You hand over the items.
; I739
	HOST_TAKE I739.5
; I9
	HOST_TAKE I9.15

; I808
	HOST_TAKE I808.6
; I307
	HOST_TAKE I307.4
; I308
	HOST_TAKE I308.3
; I262
	HOST_TAKE I262.2
; I902
	HOST_TAKE I902.6
	WAIT 4.0
	HOST_GIVE T257
	HOST_TAKE I740
;
; A little mod warning here... touch any of my cookies and you'll die a painful dead in Unknown Hell, I don't understand half
; of the cookies myself anymore, you'd better wait 30 minutes instead of touching a single cookie. Besides, trying to find out
; how they work takes a lot more time then waiting 30 minutes. Even experienced world developers need at least 45 minutes to 
; solve this puzzle. (and yes that is a tested value)
;
	SET ll11, "pktime"
	SET l1l1, "#pktime"
	SET I1l1, "879"
	SET 1l1l, "*#<ll11>"
	ADD 1l1l, #<I1l1>
	SUB 1l1l, "45"
	SET l111, "*#<ll11>"
	SUB l111, "78"
	SET 00OO, *#<ll11>
	SUB 00OO, "2"
	SET O00O, #<00OO>
	SET pktime2, "*#<ll11>"
	ADD pktime2, "-2"
	SET pktime3, "#<pktime2>
	ADD pktime3, "30"
	SET IllI, #<pktime3>
	SET 1III, "#<1l1l>"
	ADD 1III, "30"
	1: If you give me 30 minutes then I'll have all 5 %I738s ready.
	END

@specialblade
	STRCMP "#pktime","#<l1l1>"
	IF< @banfi
	IF> @banfi 
	SET IIll, #<1l1l>
	ADD IIll, "-834"
	SET 1llI, #<newte>
	ADD 1llI, "56"
	MUL 1llI, "-1"
	COMPARE #<IIll>,#<1llI>
	IF< @banfi
	IF> @banfi
	SET III1, "#<l111>"
	SUB III1, "-78"
	COMPARE #<III1>, #<1llI>
	IF> @banfi
	IF< @banfi
	SET 0O0O, #<00OO>
	SET I11l, #<pktime3>
	ADD 0O0O, "30"
	COMPARE #<I11l>,#<0O0O>
	IF< @banfi
	IF> @banfi
	COMPARE #<pktime2>, "0"
	IF= @banfi
	IF< @banfi
	SET llll, "#<pktime2>
	SUB llll, "-2"
	COMPARE #<llll>,#<1llI>
	IF< @banfi
	IF> @banfi
	SUB llll, "890"
	MUL llll, "3"
	SUB III1, "-1003"
	MUL III1, "7"
	DIV 0O0O, "3"
	MUL 0O0O, "5"
	ADD 0O0O, "590"
	DIV III1, "6"
	MUL IIll, "3"
	SUB 1llI, "-954"
	ADD IIll, "4890"
	DIV IIll, "7"
	SET cutime, #<num.hostAge>
	SUB cutime, "30"
	COMPARE #<cutime>, #<pktime>
	IF< @notdospe

	1: Welcome back %1.
	HOST_TAKE T#<1111>
	1: I have all 5 %I738s ready.
	1: Actually I was able to work so efficient that I could make 6 %I738s.
	1: Since I have no use of the sixth %I738 myself, I guess you can have it.
	1: Let me get them.
	MOVE 1,-15,65
	WAIT 15.0
	1: I found them!
	MOVE 1,25,83
	WAIT 5.0
	HOST_TAKE T257
	HOST_GIVE I738.6
	HOST_GIVE T258
	1: There you go.
	1: Be careful that you won't cut yourself.
	1: You can't use the %I738 until you delivered the others to the Emperor.
	1: Good luck with your mission, it was a pleasure doing business with you.
	END	
@notdospe
	1: I'm not ready yet, have some patience please.
	1: Why don't you go level in the meanwhile, or find some other quests to do?
	1: The time will be over before you realise it that way.
	END

@makebelta
	ADD bsimp, "1"
	COMPARE #<num.item952>, "1"
	IF< @noreq
	COMPARE #<num.item706>, "3"
	IF< @noreq
	COMPARE #<num.item203>, "10"
	IF< @noreq
	IF -G35000, @nomo
	1: I see you have everything I need.
	SET bstime, #<num.hostAge>
	ADD bstime, "15"
	SET kohp,	#<bstime>
	SUB kohp, "483"
	HOST_GIVE T1001
	HOST_TAKE I952
	HOST_TAKE I706.3
	HOST_TAKE G35000
	HOST_TAKE I203.10
	1: Return in 15 minutes and I got your belt ready.
	END
@beltared
	SET koph, #<kohp>
	ADD koph, "483"
	COMPARE #<koph>, #<bstime>
	IF> @banfi
	IF< @banfi
	COMPARE #<bstime>,#<num.hostAge>
	IF> @notdo
	1: Ah %1 you returned, I have your belt ready here.
	HOST_TAKE T1001
	1: Here you go.
	WAIT 3.0
	HOST_GIVE I961
	N: You received a %I961.
	END
@makebeltb
	IF -I954, @noreq
	IF -I823, @noreq
	IF -I825, @noreq
	IF -I714, @noreq
	IF -I223, @noreq
	IF -G12500,@nomo
	1: I see you have everything I need.
	SET bstime2, #<num.hostAge>
	SUB bstime2, "-30"
	SET bstime26, #<num.hostAge>
	SET bstime22, #<num.hostAge>
	ADD bstime22, "15"
	SET bstime21, "#<bstime2>"
	SET bstime2I, "-146"
	SUB bstime2I, "#<bstime22>"
	SET bstime25, "#<bstime2I>" 
	ADD bstime25, "-#<bstime26>"
	SET bstime20, "30"
	HOST_GIVE T1002
	HOST_TAKE I954
	HOST_TAKE I823
	HOST_TAKE I825
	HOST_TAKE I714
	HOST_TAKE I223
	HOST_TAKE G12500
	1: Return in 30 minutes and I will have your belt ready.
	END
@beltbred
	SET bstime23, #<bstime22>
	ADD bstime23, "15"
	COMPARE #<bstime2>, #<bstime23>
	IF> @banfi
	IF< @banfi
	COMPARE #<bstime2>,#<bstime21>
 	IF> @banfi
	IF< @banfi
	SET bstime24, "161"
	SET bstime27, "#<bstime20>"
	ADD bstime27, "#<bstime26>"
	SUB bstime24, "-#<bstime2I>"
	SET bstime29, #<bstime2I>
	SUB bstime24, "-#<bstime26>"
	DIV bstime29, "-1"
	ADD bstime29, "-#<bstime24>"
	ADD bstime24, "-#<bstime21>"
	MUL bstime24, "4"
	ADD bstime29, #<bstime23>
	ADD bstime24, "16"
	DIV bstime24, "18"
	COMPARE #<bstime29>,#<bstime21>
	IF> @banfi
	IF< @banfi
	COMPARE #<bstime27>, #<bstime2>
	IF> @banfi
	IF< @banfi
	COMPARE #<bstime24>, "30"
	IF> @banfi
	IF< @banfi
	COMPARE #<bstime20>, "30"
	IF> @banfi
	IF< @banfi
	COMPARE #<bstime2>,#<num.hostAge>
	IF> @notdo
	1: Ah %1 I see you came back.
	1: Your belt is ready.
	HOST_TAKE T1002
	WAIT 3.0
	N: You received a %I963.
	HOST_GIVE I963
	1: Good luck with your new belt, it gives an extreme high defense.
	END
@makebeltc
	IF -I953,@noreq
	IF -I715,@noreq
	IF -I838,@noreq
	IF -I837,@noreq
	IF -I836,@noreq
	IF -I239,@noreq
	IF -I938,@noreq
	IF -I282,@noreq
	IF -G10000, @nomo
	1: I see you have everything I need.
	SET bstime3, #<num.hostAge>
	SUB bstime3, "-45"
	SET bstime36, #<num.hostAge>
	SET bstime32, #<num.hostAge>
	ADD bstime32, "26"
	SET bstime31, "#<bstime3>"
	SET bstime3I, "-264"
	SUB bstime3I, "#<bstime32>"
	SET bstime35, "#<bstime3I>" 
	SET bstime3OO, #<num.hostAge>
	SET bstime300, #<bstime3OO>
	SET bstime311, #<bstime300>
	SET bstime3II, #<bstime3OO>
	ADD bstime35, "-#<bstime36>"
	ADD bstime3OO, "-879"
	SUB bstime3II, "1109"
	SET bstime3l1, "-956"
	MUL bstime3OO, "987"
	ADD bstime311, "587"
	SUB bstime300, "987"
	SET bstime30, "45"
	HOST_GIVE T1003
	HOST_TAKE I953
	HOST_TAKE I715
	HOST_TAKE I838
	HOST_TAKE I837
	HOST_TAKE I836
	HOST_TAKE I239
	HOST_TAKE I938
	HOST_TAKE I282
	HOST_TAKE G10000
	1: Return in 45 minutes and I will have your belt ready.
	END
@beltcred
	SET bstime33, #<bstime32>
	ADD bstime33, "19"
	SET bstime3x0, #<bstime3>
	COMPARE #<bstime3x0>, #<bstime33>
	IF> @banfi
	IF< @banfi
	COMPARE #<bstime3>,#<bstime31>
 	IF> @banfi
	IF< @banfi
	SET bstime34, "283"
	SET bstime37, "#<bstime30>"
	ADD bstime37, "#<bstime36>"
	SET bstime31O, "#<bstime300>"
	SUB bstime34, "-#<bstime3I>"
	SET bstime39, #<bstime3I>
	SUB bstime34, "-#<bstime36>"
	DIV bstime39, "-1"
	ADD bstime39, "-#<bstime34>"
	SET bstime30I, #<bstime3OO>
	ADD bstime34, "-#<bstime31>"
	MUL bstime34, "5"
	ADD bstime39, #<bstime33>
	ADD bstime34, "25"
	DIV bstime30I, "987"
	SET bstime3I1, #<bstime3II>
	DIV bstime34, "27"
	SUB bstime30I, "-879"
	ADD bstime31I, #<bstime3I1>
	SUB bstime39, "7"
	ADD bstime3I1, #<bstime311>
	ADD bstime31I, "522"
	ADD bstime3I1, "522"
	COMPARE #<bstime39>,#<bstime31>
	IF> @banfi
	IF< @banfi
	DIV bstime31I, "2"
	COMPARE #<bstime30I>, #<bstime31I>
	IF >@banfi
	IF <@banfi
	DIV bstime3I1, "2"
	COMPARE #<bstime30I>, #<bstime3I1>
	IF> @banfi
	IF< @banfi
	SUB bstime3I1, #<bstime3II>
	ADD bstime30I, "45"
	SET bstime31I, #<bstime311>
	COMPARE #<bstime37>, #<bstime3>
	IF> @banfi
	IF< @banfi
	COMPARE #<bstime34>, #<bstime30>
	IF> @banfi
	IF< @banfi
	ADD bstime31O, "987"
	ADD bstime31O, #<bstime30>
	COMPARE #<bstime34>, "45"
	IF> @banfi
	IF< @banfi
	COMPARE #<bstime31O>, #<bstime30I>
	IF> @banfi
	IF< @banfi
	ADD bstime3x0, #<bstime3l1>
	COMPARE #<bstime3l1>, "-956"
	IF> @banfi
	IF< @banfi
	COMPARE #<bstime30>, "45"
	IF> @banfi
	IF< @banfi
	COMPARE #<bstime37>,#<num.hostAge>
	IF> @notdo
	1: Good you returned, I just finished your belt.
	HOST_TAKE T1003
	WAIT 3.0
	N: You received a %I969.
	HOST_GIVE I969
	1: This belt has an optimized attack and defense.
	END
; Note, the 3rd cookie looks like (or will look like) choclat, treat it with respect to prevent balans.

@makebeltd
	IF -I955,@noreq
	IF  -I20,@noreq
	IF -I345,@noreq
	IF -I716,@noreq
	IF -I945,@noreq
	IF -I246,@noreq
	IF -G35000,@nomo
	1: I see you have everything I need.
	SET bstime4, #<num.hostAge>
	SET bstime4l, #<bstime4>
	ADD bstime4, "60"
	SET bstime41, #<bstime4l>
	SET bstime4l1, "8905"
	SET bstime4Il, #<bstime41>
	ADD bstime4Il, #<bstime4l1> 
	SET bstime4ll, "60"
	MUL bstime4Il, "4"
	SET bstime43, #<num.hostAge>
	SUB bstime4, "-365"
	SET bstime41I,"#<bstime4l>"
	SET bstime412, "#<bstime41I>" 
	MUL bstime412, "3"
	ADD bstime41I, "1098"
	SET bstime3, #<num.hostAge>
	SET bstime4O, #<bstime3>
	ADD bstime3, "278"
	SET bstime45, #<bstime43>
	SET bstime5, "1098"
	SUB bstime4, "954"
	SET bstime7, "#<num.hostAge>"
	SUB bstime7, "78"
	MUL bstime7, "272"
	SET bstime54, #<bstime43>
	SUB bstime43, "#<bstime5>"
	SUB bstime45, "837"
	ADD bstime54, "46"
	SET bstime84, "#<num.hostAge>"
	SET bstime40, #<bstime4O>
	HOST_GIVE T1004
	HOST_TAKE I955
	HOST_TAKE I20
	HOST_TAKE I345
	HOST_TAKE I716
	HOST_TAKE I945
	HOST_TAKE I246
	HOST_TAKE G35000
	1: Come back in one hour and I will have your belt ready.
	END
@beltdred
	COMPARE #<bstime4l>,#<num.hostAge>
	IF> @banfi
	COMPARE #<bstime4l1>, "8905"
	IF> @banfi
	IF< @banfi
	COMPARE #<bstime4ll>, "60"	
	IF> @banfi
	IF< @banfi
	SET bstime41z, "#<bstime4Il>"
	COMPARE #<bstime4Il>, "35996"
	IF= @banfi
	IF< @banfi
	SET bstime42z, #<bstime412>
	COMPARE #<bstime41z>, "36001"
	IF= @banfi
	IF< @banfi
	SET bstime42I, "-594"
	DIV bstime42z, "3"
	SET bstime47, #<bstime4l>
	ADD bstime42I, #<bstime41I>
	SUB bstime47, "78"
	SET bstime6, #<bstime3>
	DIV bstime41z, "4"
	MUL bstime47, "272"
	ADD bstime42I, "-504"
	COMPARE #<bstime47>, #<bstime7>
	IF> @banfi
	IF< @banfi
	SET bstime4I, #<bstime4>
	DIV bstime47, "56"
	ADD bstime41z, "-#<bstime4l1>"
	SET bstime5l1, #<bstime43>
	ADD bstime6, #<bstime4>
	ADD bstime5l1, #<bstime45>
	SUB bstime4I, "365"
	SUB bstime41z, "-#<bstime4ll>"
	SUB bstime6, "-251"
	SUB bstime5l1, "-#<bstime54>"
	COMPARE #<bstime4l2>, #<bstime42I>
	IF >@banfi
	IF <@banfi
	ADD bstime5l1, "1889"
	DIV bstime6, "2"
	ADD bstime42z, "697"
	DIV bstime5l1, "3"
	COMPARE #<bstime6>,#<bstime4l>
	IF> @banfi
	IF< @banfi
	DIV bstime42I, "89"
	ADD bstime4I, "954"
	COMPARE #<bstime5l1>, #<bstime84>
	IF> @banfi
	IF< @banfi
	DIV bstime6, "64"
	MUL bstime5l1, "-4,5"
	COMPARE #<bstime4I>,#<bstime41z>
	IF> @banfi
	IF< @banfi
	MUL bstime41z, "57"
	ADD bstime6, "3218"
	ADD bstime42I, "2354"

	COMPARE #<bstime4I>,#<num.hostAge>
	IF> @notdo
	1: Great you're back!
	1: Your belt is ready, I must say this is one of the most offensive belts I have ever seen.
	HOST_TAKE T1004
	WAIT 3.0
	N: You received a %I972.
	HOST_GIVE I972
	1: This belt has an almost maxed out attack, you'll love it!
	END




; ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo
; ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo
@noreq
	1: I'm sorry but it seems you don't have all required items.
	1: Please return later when you have everything I need.
	END
@nomo
	1: I'm sorry but it seems you don't have enough money.
	1: Please return later when you have all money.
	END
@notdo
	1: I'm not ready yet, have some patience please.
	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 1168
	SET newte, "-899"
	SET 899, "de"
	SET bla#<899>, "0"
	SET fan00x, "-950"
	GOTO SCENE 1169

; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; -= ORGANISE YOUR OWN TOURNAMENT =-
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
;
SCENE 1207	aaagloom, SCENE, "Organise your Tournament",6,0

ACTOR 1, "Lucitro", elemental011, 4, 20,80
	SEL 1
	POSE 1,4

	FLAGS
	MUSIC

	1: Welcome %1.
	1: Tournaments are an important event in the arts of PKing to match yourself with others.
	1: I allow you to organize your own tournament in minutes.
@tourmenu	
	"4 Participants=@tour4","8 Participants=@tour8","16 Participants=@tour16","Help=@help"
	END
@help
	1: This script will allow you to organize your own tournament.
	1: Right now only 4, 8 and 16 participants are supported.
	1: All you have to do is fill in the names of the participants
	1: I will generate who will have to fight who and in which order.
	1: After a battle is kept you will tell me who won,
	1: the winner will move on to the next round, the looser is out of the tournament.
	1: After telling me who won I will give you the 2 participants who have to fight next.
	1: The general accepted rules in a tournament are:
	1: 1. No healing 2. No running 3. No whining 
	1: You could also agree on continuing after magging or being magged and what you will do with lag tricks.
	1: Another option to leave out is equip switching.
	1: I hope this more or less covered all your questions.
	1: If you have more questions I suggest you e-mail Silver.
	1: You can contact him at silver@wos-rot.com, please explain what you want to know.
	1: How many participants would like to enter your tournament?
	GOTO @tourmenu


@eventActorClick1
	GOTO @tourmenu
	END
@eventActorAttack1
	COMPARE #<lucitro>, 1
	IF= @lucidie
	1: Don't try to kill me unless you want to die.
	SET lucitro,	1
	END
@lucidie
	1: You asked for it!
	HOST_TAKE H25000
	HOST_TAKE M25000
	SET lucitro, 0
	END

; Comment: My newest mini story... Kitty! The hero of all cats!
