; made by Silver
;
; W O R K   F I L E 
;
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; info for atsu:
;
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
;
;
SCENE 1103 aaabrown, SCENE, "Closed Shop" 0,0

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

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

	COLOR 1013
	COLOR 2014
	COMPARE #<num.timeYear>, "2023"
	IF< @ban
	IF I750,@special
;	STRCMP #<str.soul> "SOUL 1329"
;	IF= @S131check
;	STRCMP #<str.soul> "6273E0A4" 
;	IF= @S121check
;	STRCMP #<str.soul> "SOUL 1515"
;	IF= @S141check
	STRCMP #<str.soul> "SOUL 1373"
	IF= @S151check
@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
@ban
	GOTO LINK 99,0,1
	END	
@S12check
	COMPARE #<num.peopleInScene>, "1"
	IF>, @noparty
	SET num.hostClass, 12
	GOTO @continue
	END
@S13check
	COMPARE #<num.peopleInScene>, "1"
	IF>, @noparty	
	SET num.hostClass, 13
	GOTO @continue
	END
@S14check	
	COMPARE #<num.peopleInScene>, "1"
	IF>, @noparty	
	SET num.hostClass, 14
	GOTO @continue
	END
@S15check
	COMPARE #<num.peopleInScene>, "1"
	IF>, @noparty	
	SET num.hostClass, 15
	GOTO @continue
	END
@S121check
	COMPARE #<num.peopleInScene>, "1"
	IF>, @noparty
	STRCMP #<str.name>, "Devil"
	IF= @S122check
	GOTO @hi
	END
@S122check
	1: Do you wish to morph into your %C12 class?
	ASK 30.0
	IF YES,@S12check
	IF NO, @exit
	END
@S131check
	COMPARE #<num.peopleInScene>, "1"
	IF>, @noparty
	STRCMP #<str.name>, "Atsumori"
	IF= @S132check
	GOTO @hi
	END
@S132check
	1: Do you wish to morph into your %C13 class?
	ASK 30.0
	IF YES,@S13check
	IF NO, @exit
	END
@S141check
	COMPARE #<num.peopleInScene>, "1"
	IF>, @noparty
	STRCMP #<str.name>, "Daemonium"
	IF= @S142check
	GOTO @hi
	END
@S142check
	1: Do you wish to morph into your %C14 class?
	ASK 30.0
	IF YES,@S14check
	IF NO, @exit
	END
@S151check
	COMPARE #<num.peopleInScene>, "1"
	IF>, @noparty
	STRCMP #<str.name>, "Silver"
	IF= @S152check
	GOTO @hi
	END
@S152check
	1: Do you wish to morph into your %C15 class?
	ASK 30.0
	IF YES,@S15check
	IF NO, @exit
	END
@continue
	1: Welcome at the checkpoint master %1.
	1: Please give me a few seconds to get your char up to date.
	1: To Prevent WoS from locking up I suggest you click on Map or Stats first.
	1: You have 5 seconds to do so.
	COUNTDOWN 5
	WAIT 5.0
	1: Here goes...
	WAIT 3.0
	HOST_TAKE T114
	HOST_TAKE T115
	HOST_TAKE T116
	HOST_TAKE T117	
	HOST_TAKE T167
	HOST_GIVE T129
	HOST_GIVE T153
	HOST_GIVE T154
	HOST_GIVE S7
	HOST_GIVE S8
	HOST_GIVE S20
	HOST_GIVE S21
	HOST_GIVE S22
	HOST_GIVE S23
	HOST_GIVE S24	
	HOST_GIVE S35
	HOST_GIVE S36
	HOST_GIVE S61
	HOST_GIVE S65
	HOST_GIVE S66
	HOST_GIVE S69
	HOST_GIVE S78
	HOST_GIVE S79
	HOST_GIVE S80
	HOST_GIVE S81
	HOST_GIVE S82
	HOST_GIVE S83
	HOST_GIVE S84
	HOST_GIVE S94
	HOST_GIVE S95
	HOST_GIVE S96
	HOST_GIVE S111
	HOST_GIVE S115
	HOST_GIVE S116
	HOST_GIVE S130
	HOST_GIVE S135
	HOST_GIVE S136
	HOST_GIVE S150
	HOST_GIVE S151
	HOST_GIVE S155
	HOST_GIVE S156
	HOST_GIVE S161
	HOST_GIVE S170
	HOST_GIVE S171
	HOST_GIVE S175
	HOST_GIVE S176
	HOST_GIVE S189
	HOST_GIVE S191
	HOST_GIVE S197
	HOST_GIVE S198
	HOST_GIVE I750	
	HOST_GIVE I751	
	HOST_GIVE I752
	HOST_GIVE I753	
	HOST_GIVE I754
	HOST_GIVE I755	
	HOST_GIVE I756	
	HOST_GIVE I757	
	HOST_GIVE I758	
	HOST_GIVE I759	
	HOST_GIVE I761
	HOST_GIVE I762
	HOST_GIVE I763
	HOST_GIVE I764			
	HOST_GIVE I765
	HOST_GIVE I1750
	HOST_GIVE T178
	HOST_GIVE T179
;	HOST_GIVE I766
	HOST_GIVE I767
	
	WAIT 2.0
	1: Aight, I'm done.
	1: You can only pick your special class with this name.
	1: It's to prevent that we only make hidden classes cause it's so easy.
	1: You can always remake your hidden class, 
	1: as long as you keep the same name.
	1: Have fun in your world master %1.
	WAIT 6.0
	END
@special
	COMPARE #<num.peopleInScene>, "1"
	IF>, @noparty
	OFFER 760,761,768
	1: Welcome back master %1.
	1: Specially for you the best of the best items.
	1: Please keep in mind that you shouldn't give away any %I761s
	1: Normal classes won't be banned for it, but they're not supposed to have it.
	1: Same goes for all %I768.
	END
@exit
	1: Please return later master %1.
	WAIT 5.0
	EXIT	
@eventActorClick1
	STRCMP #<str.soul>, "SOUL 1373"
	IF= @eventcont
	END
@eventcont
	STRCMP #<str.name>, "Silver"
	IF= @givesp
	END
@givesp
	HOST_GIVE I766
	END
@noparty
	GOTO @hi
	WAIT 6.0
	GOTO EXIT
@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 99999
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; RECHARGE SCENE
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

@begin
	GIVE L1
	COUNTDOWN 5
@start
	IF XP, @second
	WAIT 0.1
	GIVE H5
	GIVE M5	
	GOTO @start
@second
	COUNTDOWN 10
@start2
	IF XP, @third
	WAIT 0.1
	GIVE H10
	GIVE M10	
	GOTO @start2
@third
	COUNTDOWN 15
@start3
	IF XP, @end
	WAIT 0.1
	GIVE H15
	GIVE M15	
	GOTO @start3
	END
@end
	END

; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; RECHARGE SCENE IMPROVED
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

; xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
; This script rezzes you and restores 4500 HP/ 3000 MP 
	GIVE L1
	COUNTDOWN 300
@start
	IF XP, @end
	WAIT 1.0
	GIVE H15
	GIVE M10	
	GOTO @start
@end
	END
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; REGENERATION SCENE RENEWED
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

; xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
; This script rezzes and heals full HP/ MP in 30 seconds
; an Actor is needed

	SET hpnew, #<num.hostMaxHP>
	SET mpnew, #<num.hostMaxMP>

	SUB hpnew, "#<num.hostHP>"
	SUB mpnew, "#<num.hostMP>"

	COMPARE #<hpnew>, 1
	IF< @stop1
	COMPARE #<mpnew>, 1
	IF< @stop2

	DIV hpnew, "30"
	DIV mpnew, "30"

	HOST_GIVE L1
@heal
	WAIT 1.0
	HOST_GIVE H#<hpnew>
	HOST_GIVE M#<mpnew>
	COMPARE #<num.hostMaxHP> ,#<num.hostHP>  
	IF= @mp
@mp
	COMPARE #<num.hostMaxMP> ,#<num.hostMP>
	IF= @hp
	GOTO @heal
@hp
	COMPARE #<num.hostMaxHP> ,#<num.hostHP>  
	IF= @end
	GOTO @heal
@end
	1: I healed #<hpnew> HP and #<mpnew> MP every second.
	END
@stop1
	1: You are not injured enough to be healed.
	END
@stop2
	1: Are you trying to fool me?
	1: You have more then enough MP to heal yourself.
	END
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; RENERATION SCENE RENEWED AND IMPROVED (last few bugs are out too now)
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; You heal 1% of the HP every second now, MP heals near the same time.
	IF ALIVE,@start
	HOST_GIVE L1

@start
	IF -V20, @stop1
	SET hpnew, "#<num.hostMaxHP>"
	SET mpnew, "#<num.hostMaxMP>"

	SUB hpnew, "#<num.hostHP>"
	SUB mpnew, "#<num.hostMP>"

	SET hpnews, #<hpnew>
	SET mpnews, #<mpnew>

	SET hptime, "#<num.hostHP>"
	MUL hptime, 100
	DIV hptime,"#<num.hostMaxHP>"

	SET hptimes,"100"
	SUB hptimes,"#<hptime>"  

	DIV hpnew, "#<hptimes>"
	DIV mpnew, "#<hptimes>"

	COMPARE #<hpnew>, 1
	IF< @stop1
	COMPARE #<mpnew>, 1
	IF< @stop1

@heal
	WAIT 0.5
	HOST_GIVE H#<hpnew>
	HOST_GIVE M#<mpnew>
	COMPARE #<num.hostMaxHP> ,#<num.hostHP>  
	IF= @mp
@mp
	COMPARE #<num.hostMaxMP> ,#<num.hostMP>
	IF= @hp
	GOTO @heal
@hp
	COMPARE #<num.hostMaxHP> ,#<num.hostHP>  
	IF= @end
	GOTO @heal
@end
	DIV hptimes, "2"
	N: You healed #<hpnew> HP and #<mpnew> MP every second for #<hptimes> seconds.
	END
@stop1
	HOST_GIVE H#<hpnews>
	HOST_GIVE M#<mpnews>
	N: You healed #<hpnews> HP and #<mpnews> MP.
	END

; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; SHOP SCENE WEAPONS
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; This script offers the right weapons for the right classes. 0 = min. level, 10 = max. level
@check
	IF C1 ,@1	
	IF C2 ,@2
	IF C3 ,@3	
	IF C5 ,@7	
	IF C6 ,@5	
	IF C8 ,@5	
	IF C9 ,@all	
	IF C10 ,@6	
	IF C11 ,@4	
	IF C16 ,@1	
	IF C17 ,@2	
	IF C18 ,@7	
	IF C20 ,@4
	IF C23 ,@7	
	IF C25 ,@6	
@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
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; MERCHANT CLASS SHOP SCENES
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; This is the standard script to give merchants 50% more back of the item value when they give it to an actor.
; Script update: The only way to hack it will be secured now. 
;
; Standard actor is 1.

@eventActorGive1
	IF -C10, @endfi
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
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; WANDERING MERCHANT QUEST
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
;
ACTOR 4 "Master Merchant", monster029, 4, 20,80
	LOCK 1
	IF C10,mastermerch
	4: Hi there.	
	4: I am the Master Merchant.
	IF T118, @gunslingerOffer
	4: I offer all useful items 5 levels above and 5 levels below your own level.
@masteroffer
	SET clevel, #<num.hostLevel>
	SET clevel1,#<clevel>
	SUB clevel1, "5"
	SET clevel2,#<clevel>
	ADD clevel2, "5"

;	OFFER2 #<clevel1>,#<clevel2>, 
;	#<clevel1>,#<clevel2>,10, #<clevel1>,#<clevel2>,11, #<clevel1>,#<clevel2>,20,	#<clevel1>,#<clevel2>,21, #<clevel1>,#<clevel2>,22, #<clevel1>,#<clevel2>,23
	IF C1 ,@master1	
	IF C2 ,@master2
	IF C3 ,@master3	
	IF C5 ,@master7	
	IF C6 ,@master5	
	IF C8 ,@master5	
	IF C9 ,@masterall	
	IF C10 ,@master6	
	IF C11 ,@master4	
	IF C16 ,@master1	
	IF C17 ,@master2	
	IF C18 ,@master7	
	IF C20 ,@master4
	IF C23 ,@master7	
	IF C25 ,@master6	
@masterall
	OFFER2 #<clevel1>,#<clevel2> 
	END
@master1
	OFFER2 #<clevel1>,#<clevel2>,12, #<clevel1>,#<clevel2>,10, #<clevel1>,#<clevel2>,11, #<clevel1>,#<clevel2>,20,	#<clevel1>,#<clevel2>,21, #<clevel1>,#<clevel2>,22, #<clevel1>,#<clevel2>,23
	END
@master2
	OFFER2 #<clevel1>,#<clevel2>,13, #<clevel1>,#<clevel2>,10, #<clevel1>,#<clevel2>,11, #<clevel1>,#<clevel2>,20,	#<clevel1>,#<clevel2>,21, #<clevel1>,#<clevel2>,22, #<clevel1>,#<clevel2>,23
	END
@master3
	OFFER2 #<clevel1>,#<clevel2>,14, #<clevel1>,#<clevel2>,10, #<clevel1>,#<clevel2>,11, #<clevel1>,#<clevel2>,20,	#<clevel1>,#<clevel2>,21, #<clevel1>,#<clevel2>,22, #<clevel1>,#<clevel2>,23
	END
@master4
	OFFER2 #<clevel1>,#<clevel2>,15, #<clevel1>,#<clevel2>,10, #<clevel1>,#<clevel2>,11, #<clevel1>,#<clevel2>,20,	#<clevel1>,#<clevel2>,21, #<clevel1>,#<clevel2>,22, #<clevel1>,#<clevel2>,23
	END
@master5
	OFFER2 #<clevel1>,#<clevel2>,16, #<clevel1>,#<clevel2>,10, #<clevel1>,#<clevel2>,11, #<clevel1>,#<clevel2>,20,	#<clevel1>,#<clevel2>,21, #<clevel1>,#<clevel2>,22, #<clevel1>,#<clevel2>,23
	END
@master6
	OFFER2 #<clevel1>,#<clevel2>,17, #<clevel1>,#<clevel2>,10, #<clevel1>,#<clevel2>,11, #<clevel1>,#<clevel2>,20,	#<clevel1>,#<clevel2>,21, #<clevel1>,#<clevel2>,22, #<clevel1>,#<clevel2>,23
	END
@master7
	OFFER2 #<clevel1>,#<clevel2>,18, #<clevel1>,#<clevel2>,10, #<clevel1>,#<clevel2>,11, #<clevel1>,#<clevel2>,20,	#<clevel1>,#<clevel2>,21, #<clevel1>,#<clevel2>,22, #<clevel1>,#<clevel2>,23
	END
	
@gunslingerOffer
	LOCK 1
	EJECT T118
	OFFER 975, 976
	4: Ah, a special customer who hails from ancient times.
	4: I have heard of %Cs, I'm sure I can interest you in these items.
	END	
	
@mastermerch
	IF T251, @masterfinished
	4: I see you are a fellow %C10.
	4: It is for me a great honor to meet you, your reputation went ahead of you.
	4: Do you happen to have a %I952 for me?
	IF -I952,@masterno
	H: Actually yes, I have a %I952 with me.
	4: Nice, I have been looking over for one everywhere!
	4: I will offer you 50,000 GP if you sell it to me.
	4: Will you sell it?
	ASK 300.0
	IF YES, @masteryes1
	4: To bad...
	4: Maybe another time, I really need that belt.
	END
@masteryes1
	4: Great!
	HOST_TAKE I952
	HOST_GIVE G50000
	HOST_GIVE T251
	GOTO @masteroffer
	END
@masterno
	H: I'm sorry but I do not have a %I952 with me right now.
	4: To bad...
	4: Maybe another time.
	GOTO @masteroffer
	END
@masterfinished
	4: Hi again %1, it is a pleasure to find you here.
	4: Thanks again for the %I952 I was able to sell it to a rich man for 150,000 GP.
	GOTO @masteroffer
	END

@eventActorGive4
	IF -C10, @endfi
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
	4: Since you are a fellow %C10 I will give you back the full price of each item.
;	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
	4: 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

; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; LONE WARRIOR QUEST
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
;
	IF #11, @lonewarrior

@lonewarrior
	IF T331, @fightcommand 
	IF T332, @fightcommand

	IF R5, @lonewarriors
	GOTO @fightcommand

@lonewarriors
	ACTOR 6, "Lone Warrior", a31,3,-10,70

	LOCK 1
	MOVE	6,20,80
	WAIT 5.0	
	6: AAAAHH!
	SOUND "pain15.wav"
	6: Please...
	6: HeLP .... me....
	6: I am dYing...
	6: Help...  mE... eNd tHIs MIsserY... ENd thiS PAin!
	6: You caNn eiTher cure Me witHhh a God speLL Or kILl mE wITh an attACK or SPEll.
	6: But please...
	6: Helpp meee....
	END

@eventActorAttack6
	HOST_GIVE T332
	SOUND "pain1.wav"
	6: Thank... you....
	WAIT 5.0
	MOVE 11,-100,100,1
	N: You find a %I952.
	HOST_GIVE I952
	WAIT 5.0
	N: You searched through the dead corpse and found 5,000 GP.
	HOST_GIVE G5000
	END
@eventActorGive6
	6: Thank... you.... but that doesn't help me much right now...
	END
@eventActorClick6
	6: help me... 
	END
@eventActorSpell6
	COMPARE #<spell.id> ,"8"
	IF< @savelone
	HOST_GIVE T332
	SOUND "pain1.wav"
	6: Thank... you....
	WAIT 5.0
	MOVE 6,-100,100,1
	N: You find a %I952.
	HOST_GIVE I952
	END	
@savelone
	HOST_GIVE T331
	WAIT 3.0
	6: AAAAHH!
	SOUND "pain15.wav"
	POSE 4
	WAIT 0.2
	POSE 1
	6: Thank you!
	6: I'm feeling a lot better now.
	6: You can have this %I952 of mine, it's the least I can give.
	HOST_GIVE I952
	WAIT 3.0
	N: You received a %I952.
	6: I'll be going now.
	6: Maybe I see you sometime later.
	WAIT 3.0
	MOVE 6,-30,-70
	END


; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; EXPLOSION SCRIPT
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
;

	ACTOR 8, "", explosion,1, -150,100

;
; explosion script, this baby will rock you all!
;
	MOVE 8,50,50,1
	SOUND explosion

	SEL 8
	POSE 1
	WAIT 0.2
	POSE 2
	WAIT 0.2
	POSE 3
	WAIT 0.2
	POSE 4
	WAIT 0.2
	MOVE 8,-150,100,1
	WAIT 2.0
;
; End of explosion script
;
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; OPTIONAL EXPLOSION SCRIPT --> EXPLODING SCENE HOST
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
;
	ACTOR 8, "", explosion,1, -150,100

	SET hptaker, #<num.hostHP>
	SET mptaker, #<num.hostMP>
	SET hptake, #<num.hostHP>
	SET mptake, #<num.hostMP>

	DIV hptaker, "100"
	DIV mptaker, "100"

	SUB hptake, #<hptaker>
	SUB mptake, #<mptaker>
;
; explosion script, this baby will rock you all!
;
	MOVE 8,#<num.hostX>,#<num.hostY>,1
	SOUND explosion

	SEL 8
	POSE 1
	WAIT 0.2
	POSE 2
	WAIT 0.2
	POSE 3
	WAIT 0.2
	POSE 4
	HOST_TAKE H#<hptake>
	HOST_TAKE M#<mptake>
	WAIT 0.2
	MOVE 8,-150,100,1

	END
;
; End of explosion script
;
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; Well tricks and scripts:
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
;
@eventActorClick1
	MENU "Story Line=@story","Information=@info","Help=@help","Credits=@credit","Cheating?=@cheat","Contact us=@contact","Quote=@quote"," =@hidden"
	END
@quote
	1: Be ready to enter a world of fantasy, not ruled by reason or logic, by thought or emotion.
	1: Just you and your imagination...
	1: 'Quote from Silver.
	END
@story
	1: Revolution of Terror plays on an island called Kagoshima. 
	1: Right now there is a war going on.
	1: The population is divided in two sides, the side of Warlord Keithuso and the side of Emperor Shinzobi.
	1: You are a recruit in the army of Empiror Shinzobi and you will fight Warlord Keithuso.
	1: There are many ways to acchieve your goal, you should do what suits you best.
	1: Don't let others tell you which path to take, be free and make your own decissions.
	1: Have fun!
	END
@contact
	1: If you experience bugs in quests or in scripts then you should contact Silver.
	1: You can e-mail him at silver@wos-rot.com
	1: In case you need to speak with Atsumori then you can e-mail him at heavymetal567@hotmail.com
	1: In case you need to contact Devil then you can e-mail him at devil@wos-rot.com
	1: In case you need to speak with Daemonium then you can contact him at admin@wos-rot.com
	1: For questions about solving quests you can post a reply in the Revolution of Terror topic in the world developers forum on the Bulletin Board.
	1: Try solving the quest on every way possible first though, the quests are made in such a way that they're challenging.
	1: If you don't like quests you might consider stop playing right now, you'll don't know what you miss out on though...
	1: Have fun!
	END
@info
	1: As you requested I shall give some information about RoT.
	1: RoT is short for Revolution of Terror, the world is based on a Japanese medieval world.
	1: Most of the quests are based on single player mode,
	1: but often people can help you out on your quests.
	1: Some quests are for multiplayer mode only, that is because they are to hard to beat alone.
	1: These quests are optional though.
	1: Every quest can be solved on different ways, generally good or evil ways.
	1: Each quest can solve a slight variation in the story line caused by how you behave yourself in RoT.
	1: The rewards are generally the same, sometimes evil pays better, other times good pays better.
	1: I guess I could also reveal some of the special features...
	1: There are a lot of new small mini games
	1: most of the times they're hidden in small quests.
	1: Almost every mini game can be done at any level, some require higher levels to finish though.
	1: One of the classes, the Slaver class is a class that starts with a pet, 
	1: you can choose between 2 different pets after visiting the Home scene in Elliair.
	1: Another class, the Amazones is made for girls only, 
	1: most classes are neutral in sex but often a WoS world seems to be based on males only.
	1: RoT has therefore a class that is girls only!
	1: A third interesting class is the Merchant class, 
	1: they have to trade items with other players and can sell items back to shops with a larger profit then normal classes can.
	1: A fourth interesting class might be the Missionair class.
	1: If you like to do things the easier way and you're not into PKing then you should pick this class.
	1: However this is the only class that isn't balanced to 0,0 hits advantage compared with the other classes.
	1: All other classes are equal in strenght at level 99.
	1: There has also been an improvement in PK camps, 
	1: there are now 6 new types of PKing, forcing you to adept your strategies and hopefully giving more fun.
	1: You will learn more about the special features while you're playing the world.
	1: The creators of this world believe strongly in giving gamers what they want,
	1: if you have quest idea's or idea's for improvement then you can mail them to silver@wos-rot.com.
	1: You will receive a reply a.s.a.p. and maybe the idea will be put in.
	1: I can't make any promises though.
	1: However if your idea is put in then you will be contacted and your name will be put in the credits scene.
	1: That's about all the information I'm giving you right now, the rest you'll have to find out yourself.
	1: Have fun!
	END
@help	
	1: Right now you are in the Well, you have not incarnated yet into the real world.
	1: On the left you see a button called Map, if you click on it then you can see who is on the server.
	1: If you play in solo mode then you will only see yourself.
	1: On the right of the Map button you see the Restore button.
	1: If you already made a character then you can select this character and press on the Incarnate button to incarnate in RoT.
	1: The Incarnate button is the button on the right.
	1: In the middle you see the New button, to make a new character you have to press this button.
	1: A pop up will appear, here you can select your gender, Hero or Heroine, you can type your name and you can select if you're a PKer or Non PKer.
	1: PKer, or Player Killer, means that you can kill people, but they can also kill you.
	1: Non PKers cannot kill people unless they are in PK arena.
	1: PK arena is called Dark arena in RoT.
	1: Both PKers and Non PKers can resurrect people who died.
	1: After that you can pick your Ability Points.
	1: If you have no idea what they are then press Okay and the system will set them randomly for you.
	1: After picking the Ability Points you can choose a skin and incarnate in RoT automatically.
	1: Left of the Incarnate button you see the Haunt button, this feature only works on line.
	1: You must have an existing character to haunt, 
	1: after picking your existing character you have to select somebody on the Map that you wish to haunt.
	1: After that you can press the haunt button and you will incarnate as a ghost.
	1: To return to the well you can press on the Well button.
	1: After incarnating you're on your own, I advise you to visit the link you start on.
	1: Have fun!
	END
@credit
	1: There is a credits scene in Elliair, 
	1: if you're intrested in who helped building this world then I suggest you visit that scene.
	1: Have fun!
	END
@cheat
	1: Well of Souls may support cheat codes, however RoT does not.
	1: If you use cheat codes your characters will be banned to Unknown Hell and they can't be unbanned anymore.
	1: Maybe you know how to modify worlds, that's great for you but RoT does not support this either.
	1: Your characters will be banned to Unknown Hell or you end up playing in a different version.
	1: If you play in a different version you can't enter other peoples camp and they can't enter yours.
	1: Maybe you have some evil knowledge about how to break worlds, generally this isn't appreciated.
	1: If you're spotted on line then your soul ID will be banned in the next patch.
	1: Also will your character most likely be banned to Unknown Hell.
	1: Maybe you gained some knowledge about how to use Hex Editors or Game Trainers.
	1: Generally this isn't appreciated and RoT does not support it either.
	1: Your characters will most likely end up being banned to Unknown Hell.
	1: If you're spotted using a Game Trainer on line then your soul ID will be banned next patch.
	1: If you never do any of this then you don't have to fair anything.
	1: However if you do end up being banned, while you played legitly, then please send an e-mail to silver@wos-rot.com
	1: Please explain exactly what you did and when you did it, also put in the statistics about your character:
	1: such as hours played, monsters killed, mods you have traveled through and so on.
	1: Your character can not be unbanned, but you can help preventing it in the future.
	1: As long as you play legit you don't have to fear anything.
	1: Have fun!
	END
@hidden
	MOVE 1, -100,100,1
	FX 1
	WEATHER 0
	BKGND nightmare
	ACTOR 2, "",monster014, 1,-20,95
	SEL 2
	POSE 1,4
	MOVE 2,35,65
	WAIT 6.0
	2: All your fears will soon come true...
	SOUND "evillaugh.wav"
	ACTOR 8, "", explosion,1, -150,100
	ACTOR 9, "", explosion,1, -150,100

;
; explosion script, this baby will rock you all!
;
	MOVE 8,50,50,1
	SOUND explosion

	SEL 8
	POSE 1
	WAIT 0.2
	POSE 2
	WAIT 0.2
	POSE 3
	WAIT 0.2
	POSE 4
	WAIT 0.2
	MOVE 8,-150,100,1

	MOVE 8,30,80,1
	SOUND explosion

	SEL 8
	POSE 1
	WAIT 0.2
	POSE 2
	WAIT 0.2
	POSE 3
	WAIT 0.2
	POSE 4
	WAIT 0.2
	MOVE 8,-150,100,1

	MOVE 9,80,70,1
	SOUND explosion

	SEL 9
	POSE 1
	WAIT 0.2
	POSE 2
	WAIT 0.2
	POSE 3
	WAIT 0.2
	POSE 4
	WAIT 0.2
	MOVE 9,-150,100,1

	MOVE 2,-20,95,1	
	FX 2
	WEATHER 7
	BKGND crystal
	MOVE 1,25,70,1
	END
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; BLACK SMITH :
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
;
; 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 T1001, @beltared

	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
	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
	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"
	SET bsquest, "Imperial Blades=@specialbs"
	GOTO @list

@belta
	1: I can upgrade your %I952 to a %I961.
	1: To make the %I961 I need 1 %I952, 3 %I706 and 10 %I203.
	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.
	END	
@beltc
	1: I can upgrade your %I953 to a %I969.
	END
@beltd
	1: I can upgrade your %I955 to a %I972.
	END
@specialbs
	H: I need 5 %I738s for the Emperor, the Emperor said you could 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 a list of the things I require.
	1: Use that list as an item and you'll see how many more items you need.
	HOST_GIVE I740
	H: I'm a bit curious, what is the main ingredient for the %I738?
	1: As long as you don't tell others, I'm using the %I739s as main ingredient.
	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
;
; Note: ban script isn't working properly and the item check isn't working either.
;
;
;
@specialback 
@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.
	END
@specialback 
	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>
	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
	HOST_TAKE I739
	HOST_TAKE I739
	HOST_TAKE I739
	HOST_TAKE I739
; I9
	HOST_TAKE I9
	HOST_TAKE I9
	HOST_TAKE I9
	HOST_TAKE I9
	HOST_TAKE I9
	HOST_TAKE I9
	HOST_TAKE I9
	HOST_TAKE I9
	HOST_TAKE I9
	HOST_TAKE I9
	HOST_TAKE I9
	HOST_TAKE I9
	HOST_TAKE I9
	HOST_TAKE I9
	HOST_TAKE I9
; I808
	HOST_TAKE I808
	HOST_TAKE I808
	HOST_TAKE I808
	HOST_TAKE I808
	HOST_TAKE I808
	HOST_TAKE I808
; I307
	HOST_TAKE I307
	HOST_TAKE I307
	HOST_TAKE I307
	HOST_TAKE I307
; I308
	HOST_TAKE I308
	HOST_TAKE I308
	HOST_TAKE I308
; I262
	HOST_TAKE I262
	HOST_TAKE I262
; I902
	HOST_TAKE I902
	HOST_TAKE I902
	HOST_TAKE I902
	HOST_TAKE I902
	HOST_TAKE I902
	HOST_TAKE I902
	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 hg, "p"
	SET ki, "ime"
	SET rl, "kt"
	SET gu, "#"
	SET import1, #<rl>#<ki> 
	SET import2, #<gu>#<hg>
	SET import3, #<import2>#<import1>
	SUB mptotal, #<hago>
	SUB mob, #<newte>
	SET kIt0, #<num.hostAge>
	SET lI11, "30"
	ADD kIt0, #<lI11>
	SET kItO, #<num.hostAge>
	SUB lI11, #<kItO>
	ADD kItO, "30"
	SET 1I1I, #<kIt0>
	ADD kItO, #<kIt0>
	SET 1l1l, "SOUL"
	SET l1l1, #<1l1l>
	SUB 1l1l, #<l1l1>	
	ADD 1l1l, #<kIt0>
	MUL kItO, "2"
	SET 1111, #<num.hostAge>
	SUB kItO, #<kIt0>
	ADD 1I1I, #<l1l1>
	ADD 1111, #<lI11>
	SUB kItO, #<kIt0>	
	SET I11l, #<num.hostAge>
	ADD lI11, #<I11l>
	DIV I11l, #<kItO>	
	ADD lI11, #<1111>
	SUB kItO, #<kIt0>
	SUB 1I1I, #<1111>
	DIV lI11, "2"
	SET mptotalxo, #<gu>#<hg>#<rl>#<ki>
	1: If you give me 30 minutes then I'll have all 5 %I738s ready.
	END

@specialblade
	IF T30, @banfi
	HOST_GIVE T#<1111>
	COMPARE #<1l1l>, #<kItO>
	IF< @banfi
	IF> @banfi
	COMPARE #<kItO>,#<kIt0>
	IF> @banfi
	IF< @banfi
	SET rok, 	#<mob>
	ADD rok,	#<mptotalxu>
	SUB rok,	#<hpamountxu>
	COMPARE #<lI11>, #<1111>
	IF> @banfi
	IF< @banfi
;	COMPARE #<num.hostAge>, #<1I1I>
;	IF< @banfi
;	IF> @banfi
;	STRSTR T#<1111>, #<lI11>
;	IF> @banfi
;	IF< @banfi
	SET 11ll, #<1I1I>
	COMPARE #<pktime>, #<11ll>
	IF< @banfi
	IF> @banfi
	ADD 11ll, #<1111>
	COMPARE #<11ll>, #<1l1l>
	IF> @banfi
	IF< @banfi
	IF -T30,@banfi
	COMPARE #<mptotalxo>, #pktime
	IF< @banfi
	IF> @banfi
	COMPARE #<mptotalxo>, #<import3>
	IF< @banfi
	IF> @banfi
	COMPARE #<rok>, #<pktime>
	IF< @banfi
	IF> @banfi
	SET cutime, #<num.hostAge>
	SUB cutime, "30"
	COMPARE #<cutime>, #<pktime>
	IF< @notdo

	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
	HOST_GIVE I738
	HOST_GIVE I738
	HOST_GIVE I738
	HOST_GIVE I738
	HOST_GIVE I738
	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 Empiror.
	1: Good luck with your mission, it was a pleasure doing business with you.
	END	

@makebelta
	ADD bsimp, "1"
;	IF -I952, @noreq
;	IF -I706.3, @noreq
;	IF -I203.10, @noreq
;	IF -G35000, @nomo
	1: I see you have everything I need.
	SET bstime, #<num.hostAge>
	ADD bstime, "15"
	HOST_GIVE T1001
	HOST_TAKE I952
	HOST_TAKE I706
	HOST_TAKE I706
	HOST_TAKE I706
	HOST_TAKE G35000
	HOST_TAKE I201
	HOST_TAKE I201
	HOST_TAKE I201
	HOST_TAKE I201
	HOST_TAKE I201
	HOST_TAKE I201
	HOST_TAKE I201
	HOST_TAKE I201
	HOST_TAKE I201
	HOST_TAKE I201
	1: Return in 15 minutes and I got your belt ready.
	END


@beltared
	COMPARE #<bstime>,#<num.hostAge>
	IF< @notdo
	1: Ah %1 you returned, I have your belt ready here.
	HOST_TAKE T3001
	WAIT 5.0
	1: Here you go.
	HOST_GIVE I962
	END













; ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo
; ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo
@noreq
	1: I'm sorry but it seems you don't have all required items.
	1: Please return later.
	END
@nomo
	1: I'm sorry but it seems you don't have enough money.
	1: Please return later.
	END
@notdo
	1: I'm not ready yet, have some patience please.
	END	
@eventActorGive1
	IF -C10, @endfi
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



; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; c u r r e n t   s t a t u s :
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
;
; SOUL ID'S THAT WILL BE BANNED TO UNKNOWN HELL
; 1188 - Inferno (Banned for Silver) (note: if Inferno really stops playing he claims to do then I nominate Morgitsu aka Arca, that dumb mother fucker need to learn some respect for RoT)
; I ban Arca instead of Inferno, Inferno appologized for his actions and I hate Arca more now. So bye bye Arca tha faggot
;
; 1251 - Fujikura (Banned for Devil)
; 
; Kon artist gs's: 1163, 1181, 1469, 1488, 1498, 1666


; c u r r e n t   s t a t u s :
;
; x Need to adept Mech's Pet quest, pets will be slaves, add backgrounds, add monsters in the fights (need all be tested too)
;   o Quest won't be put in, I'll make something way better instead. 
; x Green Destiny quests aren't ready yet, chat bot will take to much time to make right now
; - Need to work on Atsu's Sleepy Hallow quest some more, quest is almost ready, test it for bugs though. Mirror scene far from ready.
;   o Quest isn't story line related, maybe putting it in in an adepted version which fits more in the story line.
; Dazman gave tips about the mirror scene, don't remember where I left those tips =S
;   o Figured it out alone already.
; - Still have to make most mini games, especially testing will take much time.
;   o About 6 of 11 mini games are done!
; x Fastoms edit quest has not been tested yet, should be bug free, don't know if it's typo free.
; x Need to adept the Home scene for the new classes
; x New classes need still to be balanced
; - Write a script that will automatically organize tournaments in Dark Arena/ Placid Arena (idea is a tournament for 4, 8, 16 and 32 ppl)
;   o Takes to much time right now, probably won't be put in in the first RoT version.
; - Adding smuggler quest, smuggle something into the Empire without the Imperial Guards noticing it. Neither Lands would be the best place to put it in.
;
; STORY LINE:
;
; - Need to work on the Flashback scenes, still haven't made them :-(
; - The past will take a lot of time to make, haven't done anything about the rot wars either yet.
; - Final battle will take some time to make as well, maybe Atsu can make a few ending movies with Bryce. Dae will work on it too
; Need one movie where devil gets sealed in his hell and one movie where atsu gets sealed in his heaven.
;
; OTHER:
;
; x Need to do the special effects for all magic. Need to add tokens to certain summon monster spells.
;
; Estimated time before RoT is ready: 9 weeks (I hope...)
;
; Many quests haven't been put in yet when rot is ready, I'll make more and add them next patch.
;
; ATSU LEFT ROT, EXTRA WORK THAT HAS TO BE DONE:
;
; x fixing SCENES 
; x fixing MONSTER SKINS 
; x fixing links 
; x Theme buttons 
; x rebalancing classes 
; x rebalancing spells 
; x spell effects 
; - items
; - shops
; x improving hunt radar (Atsu fixed this, yay! ^_^)
;
; So much to do, so little time to do it in... :-(
;
; EXTRA CREDITS
; x Cerbus and atsu for the worlds name
; x dazman for the belts
; x sierra for helping with the pet names
; x Corpse Collecter for giving help with cookies and giving the idea for the heal script
; x Killalot for the explosion pic's.
;
;BABES:
; 4 for Devil
; 2 for Dae
; 1 for Silver
; 3 for Atsu
; Ghehe... and the nominy for biggest pimp goes to....
;
; NEW IDEA'S:
; - Trader class renaming to Merchant class, also special script that allows the merchants to receive 50% extra of their money
; when they throw an item to an actor.
; x As a bonus the pure Holy classes can morph into the Vampire Hunter class and the pure Dark Classes can morph into the Vampire class
; - Every neutral class will either morph into Holy or Dark, shouldn't give to much trouble addepting ^_^
;   o Neutral classes won't morph always, not needed to do so.
; You are who you choose to be. Now choose!
;
; QUEST LIST:
; - Fastom train quest
; - Fastom rebuff quest (hours are now fixed to)
; - Fastom debuff quest (hours are now fixed to)
; - Find widow Kinoa's daughter
; - Slaver quest (slavers only)
; - The fight between Jinar Family and Hago
; - Random quest: Lone warrior
; - Imperial quest: Get widow Kinoa's rent
; - Imperial quest: Kill disobeying citizens
; - Imperial quest: Kill the messenger, retrieve the documents
; - Imperial quest: Get the Imperial Blades
; - Imperial quest: Find Kamatari and get him to participate in the RoT war
; - Rebel quest: Kill general Shin
; - Rebel quest: Save Keithuso's daughter (or get her killed if you're evil!)
; - Rebel quest: Find Kamatari and get him to participate in the RoT war
; - The Challenges level 20
; - The Challenges level 30
; - The Challenges level 40
; - The Challenges level 50
; - The Challenges level 60
; - The Challenges level 70
; - The Challenges level 80 (group quest)
; - The Challenges level 90 (group quest)
; - The Mission (group quest)
; - Kamatari subquest: Surato 
; - Kamatari subquest: Kitana 
; - Kamatari subquest: Kutusori
; - Random quest: Merchant quest (merchants only)
; - Random quest: Master Slaver (slavers only)
; - Smuggler quest (mercenaries and thugs only)
; - Drunken Iori behind Lefty's 
; - Lefty's
; - Terry and Mary 
; - RoT war
; - Final Quest (group quest)
; - Make Hero boots mark 2
; - Catherina's mission in Demon Circle
; x I really need to update this list sometime... (29 nov 2004)
; - Werewolf quest
; - Random quest: save Kitty
; - Random quests: Kitty in shops
; - 5 Vampire missions
; - 5 Vampire Slayer missions
; - collect 6 demon keys to get in demon circle
; - subquest demon keys: collect 4 special katana for the dude in no rest
; - Ninja mission to earn the katana. 
;
; 55 QUESTS IN TOTAL?
;
; MINI GAME LIST:
; - The auction
; - The tournament (watch a fight)
; - The tournament (participate yourself)
; - Blacksmith
; - Date Kitana
; - Stock Exchange (Perhaps fixing some stock names)
; - Pet Shops (not a real mini game)
; x Lotto
; x Puzzle (enties)
; x The race
; - The Mission
; - The Challenges
; - Marry and devorce people with another person, or his/ her pet
; - Level your pet in Sky Lands. (Not a real minigame but the script is nice.)
; - Bug quest in elliair
; - Chibi wars
; - Ninja challenges
;
;
; ROT WAR:
; tot nu wordt aanval op rebels door emp. gesteund met token 295 en 297
; zelfde voor rebels
;
;
; geld bug in emp blade quest
;
;
;
; REVOLUTION OF TERROR
;
; dazmangroovess: Tell atsu to try Vue D' Espirit
; hours count as years.

; Comment: Hugh Heffner is the big man behind Playboy, right? We should thank him... =P

