;Main Quest part 3

;Tower
Scene 46 tower2
#Include prtychk.txt
#include steal.txt
#include class1.txt
COMPARE #<num.hostClass> "35"
IF> @monster
IF= @monster
If -T41 @end
If T41+T43 @noenter
If T44 @44
H: Maybe the dragon is in this tower!
Wait 2
H: Hmmmmm the door wont open.
H: Some kind of magic seal.
@end
END 
@noenter
H: Heres the tower
WAIT 2
H: Dad is right, it wont open. I think there is a magic seal
Give T44
@44
If -T45 @nospell
If T47 @nospell
ASK 30
IF Qteletrans @teleport
@nospell
END

@monster
H: Nothing but an old tower here
H: And the door is inpenetrable
END

@teleport
WEATHER 3
FX 9
H: Here we go again....
WAIT 2
ACTOR 1 "orange gem", orangegem, 1, 25, 90
POSE 1, 2, 3
H: Huh, the gem, but Im still transporting!
WAIT 0.3
MOVE 1, 20, 90
WAIT 0.3
MOVE 1, 20, 85 
WAIT 0.3
MOVE 1, 25, 85 
WAIT 0.3
MOVE 1, 25, 90 
WAIT 0.3
MOVE 1, 20, 90   
WAIT 0.3
MOVE 1, 20, 85 
WAIT 0.3
MOVE 1, 25, 90, 1 
ACTOR 1 "Orange Dragon" 1, 25, 90
H: The dragon!!!
1: GROOOOOAR!!!
H: Here we go!
MOVE 1, -50, 90, 1
GIVE T46
#include running.txt
FIGHT 204
#include eat.txt
If alive @Owon
MOVE 1, 25, 90, 1
1: GROOOOOOAR!
H: How did it get me mid teleport?
wait 2
GOTO link 10, 1
END
@Owon
H: I won!
H: But how did it attack during teleport?
H: these dragons are getting stronger.
ACTOR 1 "orange gem", orangegem, 1, 25, 90
H: The gem!
wait 1
GIVE T1204
GIVE I41
GIVE T47
GIVE I190
MOVE 1, -50, 90, 1
H: Once again I return victorious.
WAIT 1
GOTO link 10, 1
END

;treasure scene 4(503)
SCENE 47 monumentarch
#Include prtychk.txt
#include steal.txt
ACTOR 1 "Chest", chest, 1, 25, 90
IF T503 @done
H: A Chest.
END
@Eventactorclick1
MENU "Examine=@examine", "Pick up=@pick", "Open=@open"
END
@Examine
H: Looks like a treasure chest.
END
@Pick
H: I cant DRAG it never find pick it up!!
END
@Open
IF T503 @done
N: You find 100000 gold
H: Cool 100000 gold, Im RICH!
GIVE G100000
GIVE T503
@done
POSE 2
END