; Made by Silver for RoT - Scenes 300 - 399 (random encounters from scene 2).
; 
;
; Summon gorgath is in qs1300.txt - scene 1385

SCENE 300

	LOCK 1
	IF V99,@fighta5
	IF V75,@fighta4
	IF V50,@fighta3
	IF V20,@fighta2
	IF V1, @fighta1
@fighta1
	FIGHT2 506
	IF WIN,@winfighta
	IF LOSE,@losefighta
@fighta2
	FIGHT2 507
	IF WIN,@winfighta
	IF LOSE,@losefighta
@fighta3
	FIGHT2 508
	IF WIN,@winfighta
	IF LOSE,@losefighta
@fighta4
	FIGHT2 509
	IF WIN,@winfighta
	IF LOSE,@losefighta
@fighta5
	FIGHT2 510
	IF WIN,@winfighta
	IF LOSE,@losefighta
@winfighta
	HOST_GIVE T168
	GOTO @finalend
	END
@losefighta
	HOST_GIVE T169	
	SOUND "villaugh.wav"
	WAIT 5.0
	GOTO SCENE 1

@finalend
; include the after fight reward script
#include R0004.txt

SCENE 301
	LOCK 1
	N: You receive help from a mysterious stranger.
	FIGHT2 *,*,*,-511
	HOST_GIVE T170
	WAIT 3.0
	GOTO SCENE 1

@finalend
; include the after fight reward script
#include R0004.txt

SCENE 302

	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
	IF T331, @finishlonenow
	IF T332, @finishlonenow
	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
	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...
	6: Please, either heal me or end my missery...
	END
@eventActorClick6
	6: help me... 
	WAIT 10.0
	END
@finishlonenow
	GOTO EXIT

@eventActorSpell6
	IF T331, @finishlonenow
	IF T332, @finishlonenow
	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
	WAIT 30.0
	END
@finalend
; include the after fight reward script
#include R0004.txt

SCENE 303

	ACTOR 1, "Angelica",pet001,1,-10,80

	POSE 1,4

	MOVE 1, 20,90
	WAIT 5.0
	1: Hiya sweetie!
	1: Say since you have a Golden Soul I have a little something here for ya.
	1: I think you'll like it!
	N: You learned %S199
	HOST_GIVE S199
	WAIT 3.0
	1: I have to go now.
	1: Cya later, %1!
	MOVE 1,-20,80
	N: In memory of Angelica, may she live on forever in our hearts...
	WAIT 5.0
	N: Summon Mini Me gets auto summoned!
	WAIT 2.0
	SOUND "summon1.wav"
	WAIT 2.0
	SOUND "travel13.wav"
	WAIT 2.0
	SOUND "splash1.wav"
	WAIT 2.0
	FIGHT2 *,*,*,-1316
	WAIT 10
	GOTO EXIT
@finalend
; include the after fight reward script
#include R0004.txt

SCENE 304

	IF R50, @fightterry
@fightmary
	IF T302, @terryandmaryend
	IF T309, @terryandmaryend
	IF T311, @terryandmaryend
	N: Watch out! 
	N: Mary is attacking you!
	FIGHT2 15
	GOTO @finalend

@fightterry
	IF T303, @terryandmaryend
	IF T310, @terryandmaryend
	IF T312, @terryandmaryend
	N: Watch out!
	N: Terry is attacking you!
	FIGHT2 14
	GOTO @finalend

@terryandmaryend
	GOTO EXIT

@finalend
; include the after fight reward script
#include R0004.txt


SCENE 305

	LOCK 1
	ACTOR 5, "Slaver",boss014, 4, 15,85

	IF C20,@fellowslaver
	OFFER 794,795,796,797,798,799,649,650,651
	5: Hi %2, I have several nice slaves for sale.
	5: Their level is the highest you can get in RoT.
	END
@fellowslaver
	OFFER 794,795,796,797,798,799,649,650,651
	5: I see you are a fellow %C.
	5: Keep up your good evil work, all of our slavers benefit from your actions.
	IF T440, @endslavefi
	5: In fact... 
	5: because of you my profits went up so much I can easily give you some money...
	HOST_GIVE G10000
	HOST_GIVE T440
@endslavefi
	END
@eventActorGive5
	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	
	5: I'll give #<itemcost> GP for this #<item.name>.
	HOST_GIVE G#<itemcost>
	END
@endfi
	5: I only trade with %C10s %1, you are a %C.
	END
@banfi
	HOST_GIVE T172
	PARTY T172 
	GOTO LINK 99,0,1
	END
END
@eventActorClick5
	COMPARE #<num.g>, "1"
	IF= @slavegendera
	IF> @slavegenderb
	END
@slavegendera
	5: You like touching me don't you?
	5: Please go on...
	END
@slavegenderb
	5: Ahem...
	5: I only want to be touched by males...
	END
@eventActorSpell5
	5: That tickles, please stop it.
	END
@eventActorAttack5
	5: WHOA THERE!
	5: No need for getting hostile!
	WAIT 3.0
	GOTO EXIT

@finalend
	END

SCENE 306

	LOCK 1

ACTOR 4 "Master Merchant", monster029, 4, 20,80

	LOCK 1
	IF C10,@mastermerch
	IF C51,@mastermerch
	IF C52,@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"
	COMPARE #<clevel1>, "0"
	IF> @mastercheck
	SET clevel1, "1"
	COMPARE #<clevel2>, "100"
	IF< @mastercheck 
	SET clevel2, "99"

;	OFFER2 #<clevel1>,#<clevel2>, 
;	#<clevel1>,#<clevel2>,10, #<clevel1>,#<clevel2>,11, #<clevel1>,#<clevel2>,20,	#<clevel1>,#<clevel2>,21, #<clevel1>,#<clevel2>,22, #<clevel1>,#<clevel2>,23,
#include weaponscriptb.txt
@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 C51, @mastermerchskill
	IF C52, @mastermerchskill
	IF -C10, @endfi
@mastermerchskill
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

@finalend
	END

SCENE 307

	FIGHT2 1503
	IF DEAD, @finalend
	HOST_GIVE I8
	N: %1 found a %I8!
	GOTO @finalend

@finalend
; include the after fight reward script
#include R0004.txt
	END

SCENE 308

#include R0006.txt
	END

@finalend
; include the after fight reward script
#include R0004.txt


SCENE 309

@finalend
; include the after fight reward script
#include R0004.txt


; CAMP SCENE HAVEN + NEW HAVEN
SCENE 310, ,SCENE, 			

	FLAGS 0

	COMPARE "#<num.closestLinkStyle>", "1"
	IF= @style1
	COMPARE "#<num.closestLinkStyle>", "2"
	IF= @style2


	END

@style1
	FX 5
	END
@style2
	FX 2
	END

#include qspotions.txt 


SCENE 311, aaaleft, SCENE, "Birthday present",0,0

	MUSIC axel_theme.mid

	ACTOR	1,	"RoT's Protector",monster002, 4, -15, 85

	MOVE 1,30,85

	WAIT 3.0 

	SET temp, #<num.hostAge>
	DIV temp, "60"

	1: Congratulations %1!
	1: Your character is #<temp> hours old and we want to congratulate you with this great achievement!
	1: Since this is sort of your birthday we can't let this event pass by without a proper birthday present.

	WAIT 5.0

	HOST_GIVE T663
	HOST_GIVE I2056
	N: You received a %I2056!
	WAIT 3.0
	1: I hope many more hours will follow!
	WAIT 11.0
	GOTO EXIT


SCENE 312, 

	SET bjskin, "10"
	ADD bjskin, "%R80"


	COMPARE #<customer>, "19"
	IF> @donequest
	COMPARE #<flyer>, "0"
	IF= @donequest

	COMPARE #<flyer>, "5"
	IF> @skip
	N: You spread enough flyers for Lucky Jack, 
	N: but maybe if you spread more he'll give you a bonus!
	WAIT 3.0
@skip

	ADD customer, "1"
	ACTOR 1, "Potential Customer", "a#<bjskin>",4, -5,80
	POSE 1,4
	
	MOVE 1,30,80
	SET rcomment, "%R10"
	GOTO @c#<rcomment>
	1: Who are you..?
	END

@c1
	1: Peanuts... peanuts...
	1: Where did I leave my peanuts..?
	END
@c2
	1: Hi there.
	END
@c3
	1: I wonder if the apple does not fall far from the tree or if the tree doesn't grow far from the apple...
	END
@c4
	1: Argh.. another master plan to get rich that failed, like usual!
	END
@c5
	1: Slice 'm and dice 'm I always say!
	END
@c6
	1: 3 + 4 is... 34!
	END
@c7
	1: I wish I were a cow...
	1: Just standing all day around eating and once in awhile say... moo... mooo...
	END
@c8
	1: Someday... if only... but you know...
	1: Actually what do you know..?
	1: Cause I surely don't know what I know that you know.
	H: Well I know something...
	END
@c9
	1: So good to be outside again without any war going on.
	END
@c10
	1: *wink* Where do you come from..?
	1: Cause you dog tag says "Made in Heaven"... *blush*
	H: Erm...
	END

@donequest
	N: You met enough Potential Customers, 
	N: return to Lucky Jack in Arakari!
	END

@eventActorAttack1
@eventActorSpell1
	SOUND pain1.wav
	WAIT 3.0
	MOVE 1,-50,50,1
	H: Ack... I think I wasn't supposed to kill the customer...
	H: Oh well... better luck next time.
	GOTO @finish

@eventActorClick1
	IF R50, @tickle2
	1: Please don't do that, it tickles!
	END
@tickle2
	1: Oh my gosh...
	1: You must be that clicktomaniac Kempto warned me about!
	END

@eventActorGive1
	COMPARE #<item.id>, "777"
	IF= @questing
	1: What am I supposed to do with this..?
	1: Hmmm....
	MOVE 1,-50,80
	WAIT 30.0
	GOTO EXIT

@questing
	SUB flyer, "1"
	COMPARE #<flyer>, "6"
	IF< @skiptoken
	HOST_GIVE T667
@skiptoken
	SET rcomment, "%R5"
	GOTO @rc#<rcomment>
	H: You should visit Lucky Jacks Casino in Arakari!
	H: Tell him I sent you and you'll even get a free drink!
	1: Hey cool, I'll definately check it out!
	GOTO @finish
@rc1
	H: You better visit Lucky Jacks Casino,
	H: or you be sleepin' with tha fish, capice?
	1: Erm... sure!
	GOTO @finish
@rc2
	H: Visit Lucky Jacks Casino and get rich and famous!	
	1: Sounds good...
	1: Count me in!
	GOTO @finish
@rc3	
	H: Visit Lucky Jacks Casino in Arakari, 
	H: it's THE place to be for everybody that wants to be somebody!
	GOTO @finish
@rc4
	H: Now in Arakari, Lucky Jacks Casino!
	1: Sweet!
	1: Me and my friends will surely come!
	GOTO @finish
@rc5
	H: Come to Lucky Jacks Casino in Arakari!
	H: First 3 rounds are on the house!
	1: Count me in!
	1: I'm gonna beat Iori's drinking record!
	GOTO @finish

@finish
	WAIT 5.0
	GOTO EXIT



; Comment: Ehm, some random comment here, I just woke up. >.<
