;Main Quest part 2
;The blue dragon

;Statue
Scene 43 forest
#Include prtychk.txt
#include steal.txt
COMPARE #<num.hostClass> "35"
IF> @monster
IF= @monster
ACTOR 1 "Statue", Statue, 2, 25, 90
If T35 @skippose
POSE 1
H: There is a statue here.
H: It looks like a piece was broken off.
GIVE T34
@skippose
If T31+T32 @continue
END

@continue
COMPARE #<num.hostClass> "35"
IF> @monster
IF= @monster
H: Well the statue is supposed to have something to do with that dragon, but what should I do?
H: Right click the statue and decide what to do.
END

@eventactorclick1
COMPARE #<num.hostClass> "35"
IF> @monster
IF= @monster
If T31+T32+T33+T34+T35 @Mthree
If T31+T32+T34+T33-T35 @Mtwo
If T31+T32 @Mone
END

@Mone
COMPARE #<num.hostClass> "35"
IF> @monster
IF= @monster
MENU "Hit it=@hit", "Push it=@push", "Look at it=@look", "Talk to it=@talk", "Touch it=@touch"
END

@Mtwo
COMPARE #<num.hostClass> "35"
IF> @monster
IF= @monster
MENU "Hit it=@hit", "Push it=@push", "Look at it=@look", "Talk to it=@talk", "Touch it=@touch", "Use the statue piece=@Use"
END

@Mthree
COMPARE #<num.hostClass> "35"
IF> @monster
IF= @monster
MENU "Hit it=@hit", "Push it=@push", "Look at it=@look", "Talk to it=@talk", "Touch it=@touch"
END

@hit
COMPARE #<num.hostClass> "35"
IF> @monster
IF= @monster
H: Die Statue!!
TAKE H100
H: That hurts, and the statue looks untouched....
H: Lets NOT do that again
END

@push
COMPARE #<num.hostClass> "35"
IF> @monster
IF= @monster
H: It wont budge, its too big.
END

@look
COMPARE #<num.hostClass> "35"
IF> @monster
IF= @monster
H: Looks like a statue to me.
END

@talk
COMPARE #<num.hostClass> "35"
IF> @monster
IF= @monster
H: Hello Mrs Statue
H: No answer, wait a minute, why am I talking to a statue?
1: I dunno
H: HUH????
H: Hello?
H: Must be halucinating.
WAIT 2
ACTOR 2 "Boy", joshtownsfolk, 9, 25, 90
MOVE 2, -10, 90
WAIT 2
H: Hmmm someone was behind the statue, well at least Im not going insane!
END

@touch
COMPARE #<num.hostClass> "35"
IF> @monster
IF= @monster
If -T35 @nothing
If T35 @teleport
END

@nothing
COMPARE #<num.hostClass> "35"
IF> @monster
IF= @monster
H: Feels cold, a bit like stone, but then it is stone!
END

@teleport
COMPARE #<num.hostClass> "35"
IF> @monster
IF= @monster
H: Well its cold...
H: WHAT????
FX 9
Weather 3
WAIT 10
H: Im being teleported somewhere!
GIVE T36
WAIT 20
GOTO link 8, 5
END

@use
COMPARE #<num.hostClass> "35"
IF> @monster
IF= @monster
H: Hey what do ya know, it FITS!
H: But now what?
GIVE T35
POSE 34
TAKE I100
END

;--------------------------
;STATUE FOR MONSTERS!!!!
;--------------------------

@monster
IF -T114 @endmonster
IF T114-T115 @monsterfoundstatue
IF T114+T115-T117 @monsterfindmissingpiece
IF T114+T115+T117 @Monsterstatueready
@endmonster
ACTOR 2 "Statue", Statue, 2, 25, 90
POSE 1
END

@Monsterfoundstatue
ACTOR 2 "Statue", Statue, 2, 25, 90
If T117 @skippose
POSE 1
@Skipose
H: What an unusual statue to find in the woods.
H: But what use could it be to me?
HOST_GIVE T115
@Monsterfindmissingpiece
ACTOR 2 "Statue", Statue, 2, 25, 90
If T117 @skippose
POSE 1
H: It appears a piece is missing
@Skipose
H: What should I do?
N: Right-click the statue to determine a course of action
END

@eventactorclick2
If T115+T117 @MonsterMthree
If T115+I100 @MonsterMtwo
If T115 @MonsterMone
END

@MonsterMone
MENU "Hit it=@Monsterhit", "Push it=@Monsterpush", "Look at it=@Monsterlook", "Talk to it=@Monstertalk", "Touch it=@Monstertouch"
END

@MonsterMtwo
MENU "Hit it=@Monsterhit", "Push it=@Monsterpush", "Look at it=@Monsterlook", "Talk to it=@Monstertalk", "Touch it=@Monstertouch", "Use the statue piece=@MonsterUse"
END

@MonsterMthree
MENU "Hit it=@Monsterhit", "Push it=@Monsterpush", "Look at it=@Monsterlook", "Talk to it=@Monstertalk", "Touch it=@Monstertouch"
END

@Monsterhit
H: Die Statue you %3!!
TAKE H100
H: AHHH! that hurt and the statue looks untouched....
H: Lets NOT do that again
END

@Monsterpush
H: It wont budge, its far too big.
END

@Monsterlook
H: On closer examination my final dyagnosis is that you maddam are a statue!
H: Ahem
END

@Monstertalk
H: Hello Mrs Statue
WAIT 2
H: No answer, You ignorant %3!
H: Oh, wait your a statue.. you can't talk!
2: Sure I can!
H: HUH????
H: Hello?
H: I must be halucinating.
WAIT 2
ACTOR 3 "Boy", joshtownsfolk, 9, 25, 90
MOVE 3, -10, 90
WAIT 2
H: Hmmm a %3 was behind the statue, well at least Im not insane!
END

@Monstertouch
If -T117 @Monsternothing
If T117 @Monsterteleport
END

@Monsternothing
H: Feels cold, a bit like stone, but then it is stone!
END

@Monsterteleport
H: Well its cold...
H: WHAT????
FX 9
Weather 3
WAIT 10
H: Im being teleported somewhere!
GIVE T118
WAIT 20
GOTO link 8, 5
END

@Monsteruse
H: Hey what do ya know, it FITS!
H: But now what?
GIVE T117
POSE 34
TAKE I100
END

;--------------------------
;Blue Dragon
;--------------------------
SCENE 44 lane
#Include prtychk.txt
#include steal.txt
COMPARE #<num.hostClass> "35"
IF> @monster
IF= @monster
#include class1.txt
If T37-T38 @Rematch2
If T38 @done2
MUSIC "Dragon's Cave.mid"
ACTOR 1 "Blue gem", Bluegem, 1, 25, 90
POSE 1, 2, 3
H: Hey what do you know, its the Blue Gem.
WAIT 10
GIVE T37
@Rematch2
ACTOR 1 "Blue Dragon", josh66, 1, 25, 90
POSE 1, 2, 3
1: GRRRRRRRRROOOOOOOOOOAAAAAAAAAARRRRRRRRRRRRR!!!!!!
H: And the dragon!
H: Here we go
WAIT 2
MOVE 1, -50, 90, 1
FIGHT 203
IF ALIVE @won
WAIT 5
MOVE 1, 25, 90, 1
1: GROOOAR!
@done2
END

@won
GIVE T1203
H: Well it was tough but I did it
H: Theres the gem!
ACTOR 1 "Blue gem", Bluegem, 1, 25, 90
WAIT 5
MOVE 1, -50, 90, 1
GIVE I40
H: I found a %I189
H: Now back to the old man
GIVE T1203
GIVE T38
GIVE I189
END

@Monster
If T124 @Monsterdone2
If T123 @Monsterdone2
IF T120 @Monsterdone2
IF T122 @Monsterdone2
IF T119 @MonsterBLUESUMfight
MUSIC "Dragon's Cave.mid"
ACTOR 1 "Blue gem", Bluegem, 1, 25, 90
POSE 1, 2, 3
H: Hey what do you know, its the Blue Gem.
WAIT 1
ACTOR 1 "Blue Dragon", josh66, 1, 25, 90
POSE 1, 2, 3
1: GRRRRRRRRROOOOOOOOOOAAAAAAAAAARRRRRRRRRRRRR!!!!!!
H: And the dragon!
H: Here we go
WAIT 1
MOVE 1, -50, 90, 1
#include running.txt
FIGHT 203
#include eat.txt
IF ALIVE @MonsterwonDRAG
GOTO @MonsterlostDRAG
@Monsterdone2
END

@MonsterwonDRAG
ACTOR 1 "Blue Dragon", josh66, 1, 25, 90
POSE 1, 2, 3
H: DIE DRAGON!
1: GROOOarggggghhhh
MOVE 1, -30, 90, 1
H: /a takes the blue gem
FX 9
WEATHER 3
H: Whats happening?
H: Im changing!
HOST_GIVE T1303
SET num.hostClass, 54
;dig
GIVE I715
;slash
TAKE I712
;climb
TAKE I710
;sprint
GIVE I709
;drill
TAKE I714
;swim
GIVE I708
;hyperjump
TAKE I711
;fly
TAKE I713
;steal
SET skillsteal, "1"
;assasin
SET skillassasin, "0"
;eat
SET skilleat, "1"
;run
SET skillrun, "1"
;find+
SET skillfind, "0"
;hunt
SET skillhunt, "0"
H: Im now a blue dragon!
HOST_GIVE T119
FX 0
WEATHER 0
GOTO @MonsterBLUESUMfight
END

@MonsterlostDRAG
GIVE T120
H: AGGGGghhhh
1: GROAR!
MOVE 1, 25, 90
ACTOR 3 "Summoner", Summoner, 1, 130, 90
MOVE 3, 40, 90
WAIT 1
3: Dragon hand over the gem!
1: RRRROAAAAR!
3: Fine lets do this your way...
H: Looks like this one is the summoner's too...
GOTO EXIT

@MonsterBLUESUMfight
IF T121 @done2
IF T122 @done2
ACTOR 3 "Summoner", Summoner, 1, -30, 90
MOVE 3, 30, 90
3: Yes you are.
3: Hand over the gem you fiend
H: Ha, never fool!
ACTOR 3 "Summoner", Summoner, 1, -30, 90

;Now for the first time we calculate the summoners power, based on the gems he has, in this case weather he has the red gem or not.

IF T112 @MonsterBLUESUM2fight
@MonsterBLUESUM1fight
FIGHT2 187, 201
IF ALIVE @MonsterwonSUM
GOTO @MonsterlostSUM
END

@MonsterBLUESUM2fight
;They failed the first quest so the summoner is slightly tougher and has the red dragon to help him
FIGHT2 188, 201, 202
IF ALIVE @MonsterwonSUM
GOTO @MonsterlostSUM
END

@MonsterwonSUM
ACTOR 3 "Summoner", Summoner, 1, 30, 90
3: No... Ive lost another gem... but I wont die here
3: /a casts paralyze on %1
H: Damn you summoner cowardish %3!
3: Ill be back for you later fiend!
3: /a Runs
MOVE 3, -30, 90
H: Oh well, we have the seccond gem
HOST_GIVE T121
END

@MonsterlostSUM
HOST_GIVE T122
HOST_TAKE I40
ACTOR 3 "Summoner", Summoner, 1, 30, 90
3: DIE BEAST!
H: It cannot be, defeated by a %3!
3: /a takes the blue gem
MOVE 3, -30, 90
3: You will never stop me fiend, the people of the island deserve to be freed!
END
