; Coliseum

SCENE 430 rome1, SCENE, "Coliseum"
	FLAGS 2048
IF -C38, @thend



	IF E1100, @th10
	IF E1101, @th20
	IF E1102, @th30
	IF E1103, @th40
	IF E1104, @th50
	IF E1105, @th60
	IF E1106, @th70
	IF E1107, @th80
	IF E1108, @th90
	IF E1109, @th95
	IF E1121, @thquest

	GOTO @thend
@th10
	SET chancerob, "5"
	GOTO @thnext
@th20
	SET chancerob, "10"
	GOTO @thnext
@th30
	SET chancerob, "15"
	GOTO @thnext
@th40
	SET chancerob, "20"
	GOTO @thnext
@th50
	SET chancerob, "25"
	GOTO @thnext
@th60
	SET chancerob, "30"
	GOTO @thnext
@th70
	SET chancerob, "35"
	GOTO @thnext
@th80
	SET chancerob, "40"
	GOTO @thnext
@th90
	SET chancerob, "40"
	GOTO @thnext
@th95
	SET chancerob, "45"
	GOTO @thnext
@thquest
	SET chancerob, 	#<num.hostLevel>
	ADD chancerob, "10"
	COMPARE #<chancerob>, "50"
	IF> @thquest1
	GOTO @thnext
@thquest1
	SET chancerob, "50"
	GOTO @thnext
@thnext





	ACTOR	1,	"Fight Master",	josh19,	1,	25,	90
	IF -T62, @if
	ACTOR	2,	"Fight Master's pet gryphon",	pic007a,	1,	55,	50
@if
	IF T63, @ask1
	IF T62, @succeed
	IF T61, @fail
	IF T60-T61, @empty
@ask1
	OFFER 106
	1: Welcome to the Coliseum!
	1: You may choose between LOW, MID, and HIGH level fights.
	1: Or perhaps you'd like to GAMBLE for a while?
	1: If you need further explanation of the Coliseum, just say HELP.
	ASK 1000
	IF Qlow, @low
	IF Qhigh, @high
	IF Qmid, @mid
	IF Qgamble, @gamble
	IF Qhelp, @help
	GOTO @ask
	END
@ask
	OFFER 106
	1: Choose the next fight's level.
	ASK 1000
	IF Qlow, @low
	IF Qhigh, @high
	IF Qmid, @mid
	IF Qgamble, @gamble
	IF Qhelp, @help
	GOTO @ask1
	END
;------------------------------------
; help file
;------------------------------------
@help

	OFFER 106
	1: The Coliseum pits you in combat against monsters, with prizes for the winners.
	1: Some of the equipment you can get here can't be found anywhere else in the land!
	1: There are three levels of fights to choose from, and they are LOW, MID, and HIGH.
	1: If you want better prizes, you'll have to compete in higher level fights.
	1: LOW monsters are levels 5 through 35, and the entry fee is 15 Silver per fight.
	1: MID monsters are levels 47 through 84, and the entry fee is 25 Silver per fight.
	1: HIGH monsters are levels 72 through 150, and the entry fee is 40 Silver per fight.
	1: If you lose, you'll have to find someone who can resurrect you. I'm not a healer.
	1: A blackjack dealer also set up shop here, but watch out for his house rules.
	1: So, what do you want to do?
	ASK 1000
	IF Qlow, @low
	IF Qhigh, @high
	IF Qmid, @mid
	IF Qgamble, @gamble
	IF Qhelp, @help
	GOTO @ask1
	END
	END
;------------------------------------
@lost
	MOVE  1, 25,90, 1
	MOVE  2, 55, 50, 1
	GIVE	L1
	GIVE	H5000
	GIVE	M5000 
	GOTO @ask
	END
;------------------------------------

@low
	COMPARE   #<num.item40>, "10"
	IF< @poor
	HOST_TAKE I40.10
	MOVE  1, -20,0, 1
	MOVE  2, -20,0, 1
	GOTO @low1
	END
@poor
	1: You don't have enough Silver to cover the entry fee.
	GOTO @ask
	END

;------------------------------------
;low  1 monster
;------------------------------------
@low1
	ACTOR	3,	"Pixie",	Pic008b,	1,	25,	60
	WAIT 3
	IF R#<chancerob>, @lowreward
	N: You failed to rob the monster.
	Wait 1
	MOVE 3, -20, -20, 1
	GOTO @ask
;------------------------------------
@lowreward

	MOVE  1, 25,90, 1
	MOVE 2, 55, 50, 1
	1: Congratulations!!!
	IF R33, @lowequip
	IF R50, @lowitem
	GOTO @lowmoney
	END
;------------------------------------
@lowmoney
	
	IF R10, @lowjackpot
	1: You've won 20 Silver!
	HOST_GIVE I40.20
	GOTO @ask
	END
@lowjackpot
	1: You've won the jackpot-- 30 Silver!!
	HOST_GIVE I40.30
	GOTO @ask
	END
;------------------------------------
@lowitem
	IF R33, @lowgooditem
	IF R50, @lowheal
	GOTO @lowmagic
	END
@lowgooditem
	1: You've won some Dream Crystals!
	HOST_GIVE I15
	HOST_GIVE I15
	HOST_GIVE I15
	HOST_GIVE I15
	GOTO @ask
	END
@lowheal
	1: You've won some Blood Crystals!
	HOST_GIVE I6
	HOST_GIVE I6
	HOST_GIVE I6
	HOST_GIVE I6
	HOST_GIVE I6
	GOTO @ask
	END
@lowmagic
	1: You've won some Star Crystals!
	HOST_GIVE I7
	HOST_GIVE I7
	HOST_GIVE I7
	HOST_GIVE I7
	HOST_GIVE I7
	GOTO @ask
	END
;------------------------------------
@lowequip

	IF I1000+I1001+I1002+I1003+I1004+I1005+I1006+I1007+I1008, @lowequipall
	IF R10, @lowequip1
	IF R11, @lowequip2
	IF R13, @lowequip3
	IF R14, @lowequip4
	IF R17, @lowequip5
	IF R20, @lowequip6
	IF R25, @lowequip7
	IF R33, @lowequip8
	IF R50, @lowequip9
	GOTO @lowequip10	
	END
@lowequip1
	IF I1000, @lowequip2
	1: You've won a %I1000!
	HOST_GIVE I1000
	GOTO @ask
	END
@lowequip2
	IF I1001, @lowequip3
	1: You've won a %I1001!
	HOST_GIVE I1001
	GOTO @ask
	END
@lowequip3
	IF I1002, @lowequip4
	1: You've won a %I1002!
	HOST_GIVE I1002
	GOTO @ask
	END
@lowequip4
	IF I1003, @lowequip5
	1: You've won the %I1003!
	HOST_GIVE I1003
	GOTO @ask
	END
@lowequip5
	IF I1004, @lowequip6
	1: You've won an %I1004!
	HOST_GIVE I1004
	GOTO @ask
	END
@lowequip6
	IF I1005, @lowequip7
	1: You've won a %I1005!
	HOST_GIVE I1005
	GOTO @ask
	END
@lowequip7
	IF I1006, @lowequip8
	1: You've won a %I1006!
	HOST_GIVE I1006
	GOTO @ask
	END
@lowequip8
	IF I1007, @lowequip9
	1: You've won the %I1007!
	HOST_GIVE I1007
	GOTO @ask
	END
@lowequip9
	IF I1008, @lowequip1
	1: You've won a %I1008!
	HOST_GIVE I1008
	GOTO @ask
	END
@lowequip10
	1: You've won a %I1009!
	HOST_GIVE I1009
	GOTO @ask
	END
;------------------------------------
@lowequipall

	IF R10, @lowequip1all
	IF R11, @lowequip2all
	IF R13, @lowequip3all
	IF R14, @lowequip4all
	IF R17, @lowequip5all
	IF R20, @lowequip6all
	IF R25, @lowequip7all
	IF R33, @lowequip8all
	IF R50, @lowequip9all
	GOTO @lowequip10all
	END
@lowequip1all

	1: You've won a %I1000!
	HOST_GIVE I1000
	GOTO @ask
	END
@lowequip2all
	1: You've won a %I1001!
	HOST_GIVE I1001
	GOTO @ask
	END
@lowequip3all
	1: You've won a %I1002!
	HOST_GIVE I1002
	GOTO @ask
	END
@lowequip4all
	1: You've won the %I1003!
	HOST_GIVE I1003
	GOTO @ask
	END
@lowequip5all
	1: You've won an %I1004!
	HOST_GIVE I1004
	GOTO @ask
	END
@lowequip6all
	1: You've won a %I1005!
	HOST_GIVE I1005
	GOTO @ask
	END
@lowequip7all
	1: You've won a %I1006!
	HOST_GIVE I1006
	GOTO @ask
	END
@lowequip8all
	1: You've won the %I1007!
	HOST_GIVE I1007
	GOTO @ask
	END
@lowequip9all
	1: You've won a %I1008!
	HOST_GIVE I1008
	GOTO @ask
	END
@lowequip10all
	1: You've won a %I1009!
	HOST_GIVE I1009
	GOTO @ask
	END

;------------------------------------

@mid
	COMPARE   #<num.item40>, "25"
	IF< @poor
	HOST_TAKE I40.25
	MOVE  1, -20,0, 1
	MOVE  2, -20,0, 1
	GOTO @mid1
	END

;------------------------------------
;mid  1 monster
;------------------------------------
@mid1
	ACTOR	4,	"Eyeball",	Pic050b,	1,	25,	60
	WAIT 3
	IF R#<chancerob>, @midreward
	N: You failed to rob the monster.
	Wait 1
	MOVE 4, -20, -20, 1
	GOTO @ask
;------------------------------------
@midreward

	MOVE  1, 25,90, 1
	MOVE  2, 55, 50, 1
	1: Congratulations!!!
	IF R33, @midequip
	IF R50, @miditem
	GOTO @midmoney
	END
;------------------------------------
@midmoney
	
	IF R10, @midjackpot
	1: You've won 30 Silver!
	HOST_GIVE I40.30
	GOTO @ask
	END
@midjackpot
	1: You've won the jackpot--40 Silver!!!
	HOST_GIVE I40.40
	GOTO @ask
	END
;------------------------------------
@miditem
	IF R33, @midgooditem
	IF R50, @midheal
	GOTO @midmagic
	END
@midgooditem
	1: You've won some Crystals of the Heavens!
	HOST_GIVE I17
	HOST_GIVE I17
	GOTO @ask
	END
@midheal
	1: You've won some Dragon Crystals!
	HOST_GIVE I8
	HOST_GIVE I8
	HOST_GIVE I8
	GOTO @ask
	END
@midmagic
	1: You've won some Nova Crystals!
	HOST_GIVE I13
	HOST_GIVE I13
	HOST_GIVE I13
	GOTO @ask
	END
;------------------------------------
@midequip

	IF I1010+I1011+I1012+I1013+I1014+I1015+I1016+I1017+I1018, @midequipall
	IF R10, @midequip1
	IF R11, @midequip2
	IF R13, @midequip3
	IF R14, @midequip4
	IF R17, @midequip5
	IF R20, @midequip6
	IF R25, @midequip7
	IF R33, @midequip8
	IF R50, @midequip9
	GOTO @midequip10	
	END
@midequip1
	IF I1010, @midequip2
	1: You've won a %I1010!
	HOST_GIVE I1010
	GOTO @ask
	END
@midequip2
	IF I1011, @midequip3
	1: You've won the %I1011!
	HOST_GIVE I1011
	GOTO @ask
	END
@midequip3
	IF I1012, @midequip4
	1: You've won an %I1012!
	HOST_GIVE I1012
	GOTO @ask
	END
@midequip4
	IF I1013, @midequip5
	1: You've won a %I1013!
	HOST_GIVE I1013
	GOTO @ask
	END
@midequip5
	IF I1014, @midequip6
	1: You've won a %I1014!
	HOST_GIVE I1014
	GOTO @ask
	END
@midequip6
	IF I1015, @midequip7
	1: You've won an %I1015!
	HOST_GIVE I1015
	GOTO @ask
	END
@midequip7
	IF I1016, @midequip8
	1: You've won a %I1016!
	HOST_GIVE I1016
	GOTO @ask
	END
@midequip8
	IF I1017, @midequip9
	1: You've won an %I1017!
	HOST_GIVE I1017
	GOTO @ask
	END
@midequip9
	IF I1018, @midequip1
	1: You've won a pair of %I1018!
	HOST_GIVE I1018
	GOTO @ask
	END
@midequip10
	1: You've won a %I1019!
	HOST_GIVE I1019
	GOTO @ask
	END
;------------------------------------
@midequipall

	IF R10, @midequip1all
	IF R11, @midequip2all
	IF R13, @midequip3all
	IF R14, @midequip4all
	IF R17, @midequip5all
	IF R20, @midequip6all
	IF R25, @midequip7all
	IF R33, @midequip8all
	IF R50, @midequip9all
	GOTO @midequip10all
	END
@midequip1all

	1: You've won a %I1010!
	HOST_GIVE I1010
	GOTO @ask
	END
@midequip2all
	1: You've won the %I1011!
	HOST_GIVE I1011
	GOTO @ask
	END
@midequip3all
	1: You've won an %I1012!
	HOST_GIVE I1012
	GOTO @ask
	END
@midequip4all
	1: You've won a %I1013!
	HOST_GIVE I1013
	GOTO @ask
	END
@midequip5all
	1: You've won a %I1014!
	HOST_GIVE I1014
	GOTO @ask
	END
@midequip6all
	1: You've won a %I1015!
	HOST_GIVE I1015
	GOTO @ask
	END
@midequip7all
	1: You've won a %I1016!
	HOST_GIVE I1016
	GOTO @ask
	END
@midequip8all
	1: You've won an %I1017!
	HOST_GIVE I1017
	GOTO @ask
	END
@midequip9all
	1: You've won a pair of %I1018!
	HOST_GIVE I1018
	GOTO @ask
	END
@midequip10all
	1: You've won a %I1019!
	HOST_GIVE I1019
	GOTO @ask
	END




;------------------------------------

@high
	COMPARE   #<num.item40>, "40"
	IF< @poor
	HOST_TAKE I40.40
	MOVE  1, -20,0, 1
	MOVE  2, -20,0, 1
	GOTO @high1
	END

;------------------------------------
;high  1 monster
;------------------------------------
@high1

	ACTOR	5,	"Crab",	Pic049d,	1,	25,	60
	WAIT 3
	IF R#<chancerob>, @highreward
	N: You failed to rob the monster.
	Wait 1
	MOVE 5, -20, -20, 1
	GOTO @ask

;------------------------------------
@highreward

	MOVE  1, 25,90, 1
	MOVE  2, 55, 50, 1
	1: Congratulations!!!
@highrewardloop
	IF T99, @highrewardloop2
	IF -T63, @highrewardloop2
	IF R01, @keys
@highrewardloop2
	IF R33, @highequip
	IF R50, @highitem
	GOTO @highmoney
	END
;------------------------------------
@keys
	HOST_GIVE I44
	1: You've won Mark's Keys!
	END
@highmoney
	
	IF R10, @highjackpot
	1: You've won 45 Silver!
	HOST_GIVE I40.45
	GOTO @ask
	END
@highjackpot
	1: You've won the jackpot-- 60 Silver!
	HOST_GIVE I40.60
	GOTO @ask
	END
;------------------------------------
@highitem
	IF R33, @highgooditem
	IF R50, @highheal
	GOTO @highmagic
	END
@highgooditem
	1: You've won a Nature Crystal!
	HOST_GIVE I18
	GOTO @ask
	END
@highheal
	1: You've won some Earth Crystals!
	HOST_GIVE I20
	HOST_GIVE I20
	GOTO @ask
	END
@highmagic
	1: You've won some Sky Crystals!
	HOST_GIVE I19
	HOST_GIVE I19
	GOTO @ask
	END
;------------------------------------
@highequip

	IF I151+I152+I153+I154+I155+I156+I165+I166+I167+I168+I169+I170+I171+I172, @highequipall
	IF R07, @highequip14
	IF R07, @highequip13
	IF R08, @highequip12
	IF R09, @highequip11
	IF R10, @highequip1
	IF R11, @highequip2
	IF R13, @highequip3
	IF R14, @highequip4
	IF R17, @highequip5
	IF R20, @highequip6
	IF R25, @highequip7
	IF R33, @highequip8
	IF R50, @highequip9
	GOTO @highequip10	
	END

@highequip1
	IF I151, @highequip2
	1: You've won a %I151!
	HOST_GIVE I151
	GOTO @ask
	END
@highequip2
	IF I152, @highequip3
	1: You've won an %I152!
	HOST_GIVE I152
	GOTO @ask
	END
@highequip3
	IF I153, @highequip4
	1: You've won a pair of %I153!
	HOST_GIVE I153
	GOTO @ask
	END
@highequip4
	IF I154, @highequip5
	1: You've won a suit of %I154!
	HOST_GIVE I154
	GOTO @ask
	END
@highequip5
	IF I155, @highequip6
	1: You've won a %I155!
	HOST_GIVE I155
	GOTO @ask
	END
@highequip6
	IF I156, @highequip7
	1: You've won an %I156!
	HOST_GIVE I156
	GOTO @ask
	END
@highequip7
	IF I165, @highequip8
	1: You've won a %I165!
	HOST_GIVE I165
	GOTO @ask
	END
@highequip8
	IF I166, @highequip9
	1: You've won a %I166!
	HOST_GIVE I166
	GOTO @ask
	END
@highequip9
	IF I167, @highequip10
	1: You've won a %I167!
	HOST_GIVE I167
	GOTO @ask
	END
@highequip10
	IF I168, @highequip11
	1: You've won an %I168!
	HOST_GIVE I168
	GOTO @ask
	END
@highequip11
	IF I169, @highequip12
	1: You've won some %I169!
	HOST_GIVE I169
	GOTO @ask
	END
@highequip12
	IF I170, @highequip13
	1: You've won a %I170!
	HOST_GIVE I170
	GOTO @ask
	END
@highequip13
	IF I171, @highequip14
	1: You've won a %I171!
	HOST_GIVE I171
	GOTO @ask
	END
@highequip14
	IF I172, @highequip1
	1: You've won a %I172!
	HOST_GIVE I172
	GOTO @ask
	END

;------------------------------------
@highequipall

	IF T63, @highrewardloop
	1: I have a request of you, warrior!
	1: You've already won all the best prizes the Coliseum offers.
	1: I have nothing left to give you but my help.
	1: One of my pet gryphons has been stolen.
	1: My collection of fighting gryphons is the largest in the land.
	1: However, the gryphon stolen from me is my most powerful.
	1: Unfortunately, my job here takes up most of my time.
	1: I can only spare ten minutes to rescue my pet...
	1: Will you help me?
	ASK 99999
	IF YES, @start
	1: I see...
	END
@start
	HOST_GIVE T60
	COUNTDOWN 600
	1: Thank you!
	1: Let's go! My gryphon is being held on the lower level of the Coastal Keep of Cathair!
	END
@empty
	MOVE 1, -25, -25, 1
	END
@fail
	1: I can't spare any more time.
	1: You'll have to continue on your own. I'll reward you greatly if you succeed. Good luck!
	END
@succeed
	COUNTDOWN 0
	1: Finally, my gryphon is back where it belongs.
	1: My reward to you is my personal Mystical Cloak.
	1: Thank you again!
	HOST_GIVE I219
	HOST_GIVE T63
	END
;------------------------------------
@gamble
	GAME 4
	END

;end of file comment