ACTOR	1,	"Monster morpher", devil, 1, 25, 90
POSE 1, 4, 2
WEATHER 3
FX 9
COMPARE #<num.hostclass>, 35
IF< @nonmonstercannotmorph
IF= @nonmonstercannotmorphdevil
@classselect
COMPARE #<num.peopleInScene>, 1
IF> @exit
@repask
1: Right click me to select a level of monster to possess, or select 'info' to get more information.
END
@exit
1: Please return ALONE to possess OK?
1: See you whan you are alone.
GOTO EXIT
@nonmonstercannotmorphdevil
1: You are a devil, a sinner!
@nonmonstercannotmorph
1: NON MONSTERS CANNOT POSSESS!
1: Dont try this again.
GOTO EXIT


@moreinformation
1: As a monster you can possess any monster of a level lower than your own current level.
1: At level 1 only a base level 'monster' is available.
1: At each level, more and more monsters are available.
1: Is there a paticular level you want to know more about, 10, 20, 30, 50, 80, special?
@repinfoask
ASK 1000
IF Q10 @info10
IF Q20 @info20
IF Q30 @info30
IF Q50 @info50
IF Q80 @info80
IF Qspecial @infospec
GOTO @repinfoask

@info10
SET monsterlevelrequiredformorph, 10
COMPARE #<num.hostlevel>, 10
IF< @leveltoolow
1: Level 10 monster classes are Drilltude, Eggtude and Goblin
1: Drilltude skills: 	Dig 						HAND 30 	MAGIC 10 	MAX: HP 1250 MP 100
1: "Drilltudes are blind worm-like creatures, they burrow underground, eating anything that gets in thier path..."
1: Eggtude skills: 	Dig, Find+ 					HAND 10 	MAGIC 30 	MAX: HP 1000 MP 500
1: "Eggtudes are bizzare creatures, weak, and near defencless, they carry a huge egg within them, as this hatches it kills the 'mother' releacing 20 or more young"
1: Goblin skills: 	Dig, Steal+, Run				HAND 20 	MAGIC 20 	MAX: HP 1000 MP 200
1: "As weak as a goblin is, they are master thieves, dont turn ya back on em, or they might just steal it!"
GOTO @repask

@info20
SET monsterlevelrequiredformorph, 20
COMPARE #<num.hostlevel>, 20
IF< @leveltoolow
1: Level 20 monster classes are Hell Spider, Dus Ghost and Deadly Vine
1: Hell Spider skills: 	Dig, Climb					HAND 50 	MAGIC 10 	MAX: HP 1500 MP 200
1: "These spiders are large enouth to eat a man, and in fact they do... whenever one dares to enter its dark cavern"
1: Dus Ghost skills: 	Dig, Climb, Run				HAND 10 	MAGIC 50 	MAX: HP 1250 MP 1000
1: "Each Dusghost is not one, but many tiny creatures, these clump together to hunt, creating giant semi-solid masses. They can quickly disperse to escape"
1: Deadly Vine skills: 	Dig, Slash, climb,			HAND 30 	MAGIC 30 	MAX: HP 1500 MP 500
1: "Deadly vines hang from trees in ambush, as prey arrives they drop down wrapping the prey in thier tenticles and carrying it off into the forest."
GOTO @repask

@info30
SET monsterlevelrequiredformorph, 30
COMPARE #<num.hostlevel>, 30
IF< @leveltoolow
1: Level 30 monster classes are Venus Man trap, Celtude, Armoured Hog and Mite
1: Venus Man Trap skills: 	Dig, Slash, Climb, Drill, Hunt	HAND 60 	MAGIC 10 	MAX: HP 1500 MP 500
1: "Venus man traps are rooted to the ground, like giant flowers they sit and wait, any human foolish enouth to stray near is snapped up to be slowly digested"
1: Celtude skills: 		Dig, Slash, Climb, Drill		HAND 10 	MAGIC 60 	MAX: HP 1500 MP 1000
1: "Celtudes are no more than a single huge cell, they can quickly evolve to survive near anywhere."
1: Armoured Hog skills: 	Dig, Climb, Drill, Eat			HAND 30 	MAGIC 40 	MAX: HP 1250 MP 750
1: "Armoured hogs are like giant rats with armoured plating, unplesent but hard to kill, they are well known for the fact they will eat almost anything."
1: Mite skills: 			Dig, Climb, Drill, Assasin		HAND 40 	MAGIC 30 	MAX: HP 1500 MP 750
1: "The mite may well be small, but those who try and squash one will quickly pay the consequences."
GOTO @repask

@info50
SET monsterlevelrequiredformorph, 50
COMPARE #<num.hostlevel>, 50
IF< @leveltoolow
1: Level 50 monster classes are Tribeast, Hexipuss and Crocodile
1: Tribeast skills: 		Dig, Sprint, Swim, Eat			HAND 70 	MAGIC 10 	MAX: HP 2000 MP 750
1: "Three headed sharks with a bloodlust, the kings of the sea, and great diners of the ocean."
1: Hexipuss skills: 		Dig, Sprint, Swim, Hunt			HAND 10 	MAGIC 70 	MAX: HP 1500 MP 1500
1: "Giant jellyfish with magical movement, and devestating magic."
1: Crocodile skills: 		Dig, Sprint, Swim, Eat, Hunt		HAND 40 	MAGIC 40 	MAX: HP 1750 MP 1000
1: "Crocodiles are the most advanced of hunters, even on land they can be a feared foe, in water little can stand in thier path."
GOTO @repask

@info80
SET monsterlevelrequiredformorph, 80
COMPARE #<num.hostlevel>, 80
IF< @leveltoolow
1: Level 80 monster classes are Robobeast, Robosnake and Robospider
1: Robobeast skills: 		Dig, Sprint, Steal+, Assasin		HAND 80 	MAGIC 20 	MAX: HP 2500 MP 1000
1: "Robotic beasts left by the feugians to defend thier secrets, using brute force over all else to force thier foes to surcome."
1: Robosnake skills: 		Dig, Sprint, Assasin, Eat		HAND 20 	MAGIC 80 	MAX: HP 2000 MP 2000
1: "Giant robot snakes cant always defeat thier enemys, in stead they crush them with spells and swallow them whole."
1: Robospider skills: 		Dig, Sprint, Eat, Run, Hunt		HAND 50 	MAGIC 50 	MAX: HP 2000 MP 1500
1: "Robotic spiders, catch thier prey with spells, before tearing they appart left behind by the feugians."
GOTO @repask

@infospec
1: Special monster classes require the killing of the monster to morph into one.
1: Special monster classes are Red Dragon, Blue Dragon, Orange Dragon, White Dragon, Black Dragon, Light Deamon and Dark Deamon.
SET monsterlevelrequiredformorph, 30
COMPARE #<num.hostlevel>, 30
IF< @leveltoolow
1: Red Dragon skills: 		Dig, Climb, Drill, Eat, Hunt					HAND 70 	MAGIC 10 	MAX: HP 2000 MP 1000 level 30+
1: "The great red dragon of flame."
SET monsterlevelrequiredformorph, 50
COMPARE #<num.hostlevel>, 50
IF< @leveltoolow
1: Blue Dragon skills: 		Dig, Sprint, Swim, Steal, Eat, Run				HAND 20 	MAGIC 60 	MAX: HP 2000 MP 2000 level 50+
1: "The great blue dragon of ice."
SET monsterlevelrequiredformorph, 70
COMPARE #<num.hostlevel>, 70
IF< @leveltoolow
1: Orange Dragon skills: 	Dig, Sprint, Assasin, Eat					HAND 60 	MAGIC 40 	MAX: HP 2500 MP 2000 level 70+
1: "The great orange dragon of lightning."
SET monsterlevelrequiredformorph, 90
COMPARE #<num.hostlevel>, 90
IF< @leveltoolow
1: White Dragon skills: 	Sprint, Fly, Assasin, Eat					HAND 90 	MAGIC 20 	MAX: HP 3000 MP 3000 level 90+
1: "The great white dragon of spirit."
SET monsterlevelrequiredformorph, 99
COMPARE #<num.hostlevel>, 99
IF< @leveltoolow
1: Black Dragon skills: 	Sprint, Fly, Steal+, Assasin, Eat, Run, Find+, Hunt	HAND 30 	MAGIC 90 	MAX: HP 4000 MP 3000 level 100
1: "The great black dragon of choas."
SET monsterlevelrequiredformorph, 90
COMPARE #<num.hostlevel>, 90
IF< @leveltoolow
1: Light Deamon skills: 	Sprint, Fly, Steal+, Assasin, Eat, Run, Find+, Hunt	HAND 60 	MAGIC 60 	MAX: HP 3000 MP 4000 level 100
1: "The ultimate summon, light deamon, originally created by the greatest feugian summoner."
SET monsterlevelrequiredformorph, 90
COMPARE #<num.hostlevel>, 90
IF< @leveltoolow
1: Dark Deamon skills: 	Sprint, Fly, Steal+, Assasin, Eat, Run, Find+, Hunt		HAND 90 	MAGIC 30 	MAX: HP 4000 MP 3000 level 100
1: "The ultimate summon, dark deamon, originally created by the greatest feugian summoner."
GOTO @repask

@eventActorclick1
	MENU "level 10=@morph10", "level 20=@morph20", "level 30=@morph30", "level 50=@morph50", "level 80=@morph80", "Special=@morphspec", "Info=@moreinformation"
END
;---------------
;level 10 morphs
;---------------
@morph10
SET monsterlevelrequiredformorph, 10
COMPARE #<num.hostlevel>, 10
IF< @leveltoolow
1: Please select a monster: Drilltude, Eggtude or Goblin, or say none to choose another option.
ASK 100
IF Q1 @morphdrilltude
IF Qdrilltude @morphdrilltude
IF Q2 @morpheggtude
IF Qeggtude @morpheggtude
IF Q3 @morphgoblin
IF Qgoblin @morphgoblin
IF Qinfo @info10
IF Qnone @repask
GOTO @morph10

@morphdrilltude
1: Drilltude skills: 	Dig 						HAND 30 	MAGIC 10 	MAX: HP 1250 MP 100
1: "Drilltudes are blind worm-like creatures, they burrow underground, eating anything that gets in thier path..."
1: Are you sure you wish to become a Drilltude? You have 30 secconds to say 'no' before you are morphed into a Drilltude.
ASK 30
If Qno @morph10
SET num.hostClass, 37
;dig
GIVE I715
;slash
TAKE I712
;climb
TAKE I710
;sprint
TAKE I709
;drill
TAKE I714
;swim
TAKE I708
;hyperjump
TAKE I711
;fly
TAKE I713
;steal
SET skillsteal, "0"
;assasin
SET skillassasin, "0"
;eat
SET skilleat, "0"
;run
SET skillrun, "0"
;find+
SET skillfind, "0"
;hunt
SET skillhunt, "0"
END	

@morpheggtude
1: Eggtude skills: 	Dig, Find+ 					HAND 10 	MAGIC 30 	MAX: HP 1000 MP 500
1: "Eggtudes are bizzare creatures, weak, and near defencless, they carry a huge egg within them, as this hatches it kills the 'mother' releacing 20 or more young"
1: Are you sure you wish to become a Eggtude? You have 30 secconds to say 'no' before you are morphed into a Eggtude.
ASK 30
If Qno @morph10
SET num.hostClass, 38
;dig
GIVE I715
;slash
TAKE I712
;climb
TAKE I710
;sprint
TAKE I709
;drill
TAKE I714
;swim
TAKE I708
;hyperjump
TAKE I711
;fly
TAKE I713
;steal
SET skillsteal, "0"
;assasin
SET skillassasin, "0"
;eat
SET skilleat, "0"
;run
SET skillrun, "0"
;find+
SET skillfind, "1"
;hunt
SET skillhunt, "0"
END

@morphgoblin
1: Goblin skills: 	Dig, Steal+, Run				HAND 20 	MAGIC 20 	MAX: HP 1000 MP 200
1: "As weak as a goblin is, they are master thieves, dont turn ya back on em, or they might just steal it!"
1: Are you sure you wish to become a Goblin? You have 30 secconds to say 'no' before you are morphed into a Goblin.
ASK 30
If Qno @morph10
SET num.hostClass, 39
;dig
GIVE I715
;slash
TAKE I712
;climb
TAKE I710
;sprint
TAKE I709
;drill
TAKE I714
;swim
TAKE I708
;hyperjump
TAKE I711
;fly
TAKE I713
;steal
SET skillsteal, "1"
;assasin
SET skillassasin, "0"
;eat
SET skilleat, "0"
;run
SET skillrun, "1"
;find+
SET skillfind, "0"
;hunt
SET skillhunt, "0"
END

;---------------
;level 20 morphs
;---------------
@morph20
SET monsterlevelrequiredformorph, 20
COMPARE #<num.hostlevel>, 20
IF< @leveltoolow
1: Please select a monster: Hell Spider, Dusghost, or Vine, or right click me to choose another option.
ASK 100
IF Q1 @morphHellspider
IF Qhell @morphHellspider
IF Qspider @morphHellspider
IF Q2 @morphdusghost
IF Qdusghost @morphdusghost
IF Q3 @morphvine
IF Qvine @morphvine
IF Qinfo @info20
IF Qnone @repask
GOTO @morph20

@morphHellspider
1: Hell Spider skills: 	Dig, Climb					HAND 50 	MAGIC 10 	MAX: HP 1500 MP 200
1: "These spiders are large enouth to eat a man, and in fact they do... whenever one dares to enter its dark cavern"
1: Are you sure you wish to become a Hell Spider? You have 30 secconds to say 'no' before you are morphed into a Hell Spider.
ASK 30
If Qno @morph20
SET num.hostClass, 40
;dig
GIVE I715
;slash
TAKE I712
;climb
GIVE I710
;sprint
TAKE I709
;drill
TAKE I714
;swim
TAKE I708
;hyperjump
TAKE I711
;fly
TAKE I713
;steal
SET skillsteal, "0"
;assasin
SET skillassasin, "0"
;eat
SET skilleat, "0"
;run
SET skillrun, "0"
;find+
SET skillfind, "0"
;hunt
SET skillhunt, "0"
END	

@morphdusghost
1: Dus Ghost skills: 	Dig, Climb, Run				HAND 10 	MAGIC 50 	MAX: HP 1250 MP 1000
1: "Each Dusghost is not one, but many tiny creatures, these clump together to hunt, creating giant semi-solid masses. They can quickly disperse to escape"
1: Are you sure you wish to become a Dusghost? You have 30 secconds to say 'no' before you are morphed into a Dusghost.
ASK 30
If Qno @morph20
SET num.hostClass, 41
;dig
GIVE I715
;slash
TAKE I712
;climb
GIVE I710
;sprint
TAKE I709
;drill
TAKE I714
;swim
TAKE I708
;hyperjump
TAKE I711
;fly
TAKE I713
;steal
SET skillsteal, "0"
;assasin
SET skillassasin, "0"
;eat
SET skilleat, "0"
;run
SET skillrun, "1"
;find+
SET skillfind, "0"
;hunt
SET skillhunt, "0"
END	

@morphvine
1: Deadly Vine skills: 	Dig, Slash, climb,			HAND 30 	MAGIC 30 	MAX: HP 1500 MP 500
1: "Deadly vines hang from trees in ambush, as prey arrives they drop down wrapping the prey in thier tenticles and carrying it off into the forest."
1: Are you sure you wish to become a Deadly Vine? You have 30 secconds to say 'no' before you are morphed into a Deadly Vine.
ASK 30
If Qno @morph20
SET num.hostClass, 42
;dig
GIVE I715
;slash
GIVE I712
;climb
GIVE I710
;sprint
TAKE I709
;drill
TAKE I714
;swim
TAKE I708
;hyperjump
TAKE I711
;fly
TAKE I713
;steal
SET skillsteal, "0"
;assasin
SET skillassasin, "0"
;eat
SET skilleat, "0"
;run
SET skillrun, "0"
;find+
SET skillfind, "0"
;hunt
SET skillhunt, "0"
END	

;---------------
;level 30 morphs
;---------------
@morph30
SET monsterlevelrequiredformorph, 30
COMPARE #<num.hostlevel>, 30
IF< @leveltoolow
1: Please select a monster: venus Man Trap, Celtude, Armoured Hog or Mite, or right click me to choose another option.
ASK 100
IF Q1 @morphvenus
IF Qvenus @morphvenus
IF Qman @morphvenus
IF Qtrap @morphvenus
IF Q2 @morphceltude
IF QCeltude @morphceltude
IF Q3 @morphhog
IF QArmoured @morphhog
IF Qhog @morphhog
IF Q4 @morphmite
IF Qmite @morphmite
IF Qinfo @info30
IF Qnone @repask
GOTO @morph30

@morphvenus
1: Venus Man Trap skills: 	Dig, Slash, Climb, Drill, Hunt	HAND 60 	MAGIC 10 	MAX: HP 1500 MP 500
1: "Venus man traps are rooted to the ground, like giant flowers they sit and wait, any human foolish enouth to stray near is snapped up to be slowly digested"
1: Are you sure you wish to become a venus Man Trap? You have 30 secconds to say 'no' before you are morphed into a Venus Man Trap.
ASK 30
If Qno @morph30
SET num.hostClass, 43
;dig
GIVE I715
;slash
GIVE I712
;climb
GIVE I710
;sprint
TAKE I709
;drill
GIVE I714
;swim
TAKE I708
;hyperjump
TAKE I711
;fly
TAKE I713
;steal
SET skillsteal, "0"
;assasin
SET skillassasin, "0"
;eat
SET skilleat, "0"
;run
SET skillrun, "0"
;find+
SET skillfind, "0"
;hunt
SET skillhunt, "1"
END

@morphceltude
1: Celtude skills: 		Dig, Slash, Climb, Drill		HAND 10 	MAGIC 60 	MAX: HP 1500 MP 1000
1: "Celtudes are no more than a single huge cell, they can quickly evolve to survive near anywhere."
1: Are you sure you wish to become a Celtude? You have 30 secconds to say 'no' before you are morphed into a Celtude.
ASK 30
If Qno @morph30
SET num.hostClass, 44
;dig
GIVE I715
;slash
GIVE I712
;climb
GIVE I710
;sprint
TAKE I709
;drill
GIVE I714
;swim
TAKE I708
;hyperjump
TAKE I711
;fly
TAKE I713
;steal
SET skillsteal, "0"
;assasin
SET skillassasin, "0"
;eat
SET skilleat, "0"
;run
SET skillrun, "0"
;find+
SET skillfind, "0"
;hunt
SET skillhunt, "0"
END

@morphhog
1: Armoured Hog skills: 	Dig, Climb, Drill, Eat			HAND 30 	MAGIC 40 	MAX: HP 1250 MP 750
1: "Armoured hogs are like giant rats with armoured plating, unplesent but hard to kill, they are well known for the fact they will eat almost anything."
1: Are you sure you wish to become a Armoured Hog? You have 30 secconds to say 'no' before you are morphed into a Armoured Hog.
ASK 30
If Qno @morph30
SET num.hostClass, 45
;dig
GIVE I715
;slash
TAKE I712
;climb
GIVE I710
;sprint
TAKE I709
;drill
GIVE I714
;swim
TAKE I708
;hyperjump
TAKE I711
;fly
TAKE I713
;steal
SET skillsteal, "0"
;assasin
SET skillassasin, "0"
;eat
SET skilleat, "1"
;run
SET skillrun, "0"
;find+
SET skillfind, "0"
;hunt
SET skillhunt, "0"
END

@morphmite
1: Mite skills: 			Dig, Climb, Drill, Assasin		HAND 40 	MAGIC 30 	MAX: HP 1500 MP 750
1: "The mite may well be small, but those who try and squash one will quickly pay the consequences."
1: Are you sure you wish to become a Mite? You have 30 secconds to say 'no' before you are morphed into a Mite.
ASK 30
If Qno @morph30
SET num.hostClass, 46
;dig
GIVE I715
;slash
TAKE I712
;climb
GIVE I710
;sprint
TAKE I709
;drill
GIVE I714
;swim
TAKE I708
;hyperjump
TAKE I711
;fly
TAKE I713
;steal
SET skillsteal, "0"
;assasin
SET skillassasin, "1"
;eat
SET skilleat, "0"
;run
SET skillrun, "0"
;find+
SET skillfind, "0"
;hunt
SET skillhunt, "0"
END

;---------------
;level 50 morphs
;---------------
@morph50
SET monsterlevelrequiredformorph, 50
COMPARE #<num.hostlevel>, 50
IF< @leveltoolow
1: Please select a monster: Tribeast, Hexipuss or Crocodile, or right click me to choose another option.
ASK 100
IF Q1 @morphtri
IF Qtri @morphtri
IF Q2 @morphhex
IF Qhex @morphhex
IF Q3 @morphcroc
IF Qcroc @morphcroc
IF Qinfo @info50
IF Qnone @repask
GOTO @morph50

@morphtri
1: Tribeast skills: 		Dig, Sprint, Swim, Eat			HAND 70 	MAGIC 10 	MAX: HP 2000 MP 750
1: "Three headed sharks with a bloodlust, the kings of the sea, and great diners of the ocean."
1: Are you sure you wish to become a Tribeast? You have 30 secconds to say 'no' before you are morphed into a Tribeast.
ASK 30
If Qno @morph50
SET num.hostClass, 47
;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, "0"
;assasin
SET skillassasin, "0"
;eat
SET skilleat, "1"
;run
SET skillrun, "0"
;find+
SET skillfind, "0"
;hunt
SET skillhunt, "0"
END


@morphhex
1: Hexipuss skills: 		Dig, Sprint, Swim, Hunt			HAND 10 	MAGIC 70 	MAX: HP 1500 MP 1500
1: "Giant jellyfish with magical movement, and devestating magic."
1: Are you sure you wish to become a Hexipuss? You have 30 secconds to say 'no' before you are morphed into a Hexipuss.
ASK 30
If Qno @morph50
SET num.hostClass, 48
;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, "0"
;assasin
SET skillassasin, "0"
;eat
SET skilleat, "0"
;run
SET skillrun, "0"
;find+
SET skillfind, "0"
;hunt
SET skillhunt, "1"
END

@morphcroc
1: Crocodile skills: 		Dig, Sprint, Swim, Eat, Hunt		HAND 40 	MAGIC 40 	MAX: HP 1750 MP 1000
1: "Crocodiles are the most advanced of hunters, even on land they can be a feared foe, in water little can stand in thier path."
1: Are you sure you wish to become a Crocodile? You have 30 secconds to say 'no' before you are morphed into a Crocodile.
ASK 30
If Qno @morph50
SET num.hostClass, 49
;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, "0"
;assasin
SET skillassasin, "0"
;eat
SET skilleat, "1"
;run
SET skillrun, "0"
;find+
SET skillfind, "0"
;hunt
SET skillhunt, "1"
END

;---------------
;level 80 morphs
;---------------
@morph80
SET monsterlevelrequiredformorph, 80
COMPARE #<num.hostlevel>, 80
IF< @leveltoolow
1: Please select a monster: Robobeast, Robosnake or Robospider, or right click me to choose another option.
ASK 100
IF Q1 @morphrobobeast
IF Qbeast @morphrobobeast
IF Q2 @morphrobosnake
IF Qsnake @morphrobosnake
IF Q3 @morphrobospider
IF Qspider @morphrobospider
IF Qinfo @info80
IF Qnone @repask
GOTO @morph80

@morphrobobeast
1: Robobeast skills: 		Dig, Sprint, Steal+, Assasin		HAND 80 	MAGIC 20 	MAX: HP 2500 MP 1000
1: "Robotic beasts left by the feugians to defend thier secrets, using brute force over all else to force thier foes to surcome."
1: Are you sure you wish to become a Robobeast? You have 30 secconds to say 'no' before you are morphed into a Robobeast.
ASK 30
If Qno @morph80
SET num.hostClass, 50
;dig
GIVE I715
;slash
TAKE I712
;climb
TAKE I710
;sprint
GIVE I709
;drill
TAKE I714
;swim
TAKE I708
;hyperjump
TAKE I711
;fly
TAKE I713
;steal
SET skillsteal, "1"
;assasin
SET skillassasin, "1"
;eat
SET skilleat, "0"
;run
SET skillrun, "0"
;find+
SET skillfind, "0"
;hunt
SET skillhunt, "0"
END

@morphrobosnake
1: Robosnake skills: 		Dig, Sprint, Assasin, Eat		HAND 20 	MAGIC 80 	MAX: HP 2000 MP 2000
1: "Giant robot snakes cant always defeat thier enemys, in stead they crush them with spells and swallow them whole."
1: Are you sure you wish to become a Robosnake? You have 30 secconds to say 'no' before you are morphed into a Robosnake.
ASK 30
If Qno @morph80
SET num.hostClass, 51
;dig
GIVE I715
;slash
TAKE I712
;climb
TAKE I710
;sprint
GIVE I709
;drill
TAKE I714
;swim
TAKE I708
;hyperjump
TAKE I711
;fly
TAKE I713
;steal
SET skillsteal, "0"
;assasin
SET skillassasin, "1"
;eat
SET skilleat, "1"
;run
SET skillrun, "0"
;find+
SET skillfind, "0"
;hunt
SET skillhunt, "0"
END

@morphrobospider
1: Robospider skills: 		Dig, Sprint, Eat, Run, Hunt		HAND 50 	MAGIC 50 	MAX: HP 2000 MP 1500
1: "Robotic spiders, catch thier prey with spells, before tearing they appart left behind by the feugians."
1: Are you sure you wish to become a Robospider? You have 30 secconds to say 'no' before you are morphed into a Robospider.
ASK 30
If Qno @morph80
SET num.hostClass, 52
;dig
GIVE I715
;slash
TAKE I712
;climb
TAKE I710
;sprint
GIVE I709
;drill
TAKE I714
;swim
TAKE I708
;hyperjump
TAKE I711
;fly
TAKE I713
;steal
SET skillsteal, "0"
;assasin
SET skillassasin, "0"
;eat
SET skilleat, "1"
;run
SET skillrun, "1"
;find+
SET skillfind, "0"
;hunt
SET skillhunt, "1"
END

;---------------
;Special morphs
;---------------
@morphspec
1: Please select a monster: Red Dragon, Blue Dragon, Orange Dragon, White Dragon, Black Dragon, Light Deamon or Dark Deamon, or right click me to choose another option.
ASK 100
IF Q1 @morphreddrag
IF QRed @morphreddrag
IF Q2 @morphbluedrag
IF QBlue @morphbluedrag
IF Q3 @morphorangedrag
IF QOrange @morphorangedrag
IF Q4 @morphwhitedrag
IF QWhite @morphwhitedrag
IF Q5 @morphblackdrag
IF QBlack @morphblackdrag
IF Q6 @morphlightdeamon
IF QLight @morphlightdeamon
IF Q7 @morphdarkdeamon
IF QDark @morphdarkdeamon
IF Qinfo @infospec
IF Qnone @repask
GOTO @morphspec

@morphreddrag
SET specmonstermorph, Red_dragon
IF -T1302 @notkilledtomorph
SET monsterlevelrequiredformorph, 30
COMPARE #<num.hostlevel>, 30
IF< @leveltoolow
1: Red Dragon skills: 		Dig, Climb, Drill, Eat, Hunt					HAND 70 	MAGIC 10 	MAX: HP 2000 MP 1000 level 30+
1: "The great red dragon of flame."
1: Are you sure you wish to become a Red Dragon? You have 30 secconds to say 'no' before you are morphed into a Red Dragon.
ASK 30
If Qno @morphspec
SET num.hostClass, 53
;dig
GIVE I715
;slash
TAKE I712
;climb
GIVE I710
;sprint
TAKE I709
;drill
GIVE I714
;swim
TAKE I708
;hyperjump
TAKE I711
;fly
TAKE I713
;steal
SET skillsteal, "0"
;assasin
SET skillassasin, "0"
;eat
SET skilleat, "1"
;run
SET skillrun, "0"
;find+
SET skillfind, "0"
;hunt
SET skillhunt, "1"
END

@morphbluedrag
SET specmonstermorph, Blue_dragon
IF -T1303 @notkilledtomorph
SET monsterlevelrequiredformorph, 50
COMPARE #<num.hostlevel>, 50
IF< @leveltoolow
1: Blue Dragon skills: 		Dig, Sprint, Swim, Steal, Eat, Run				HAND 20 	MAGIC 60 	MAX: HP 2000 MP 2000 level 50+
1: "The great blue dragon of ice."
1: Are you sure you wish to become a Blue Dragon? You have 30 secconds to say 'no' before you are morphed into a Blue Dragon.
ASK 30
If Qno @morphspec
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"
END

@morphorangedrag
SET specmonstermorph, Orange_dragon
IF -T1304 @notkilledtomorph
SET monsterlevelrequiredformorph, 70
COMPARE #<num.hostlevel>, 70
IF< @leveltoolow
1: Orange Dragon skills: 	Dig, Sprint, Assasin, Eat					HAND 60 	MAGIC 40 	MAX: HP 2500 MP 2000 level 70+
1: "The great orange dragon of lightning."
1: Are you sure you wish to become a Orange Dragon? You have 30 secconds to say 'no' before you are morphed into a Orange Dragon.
ASK 30
If Qno @morphspec
SET num.hostClass, 55
;dig
GIVE I715
;slash
TAKE I712
;climb
TAKE I710
;sprint
GIVE I709
;drill
TAKE I714
;swim
TAKE I708
;hyperjump
TAKE I711
;fly
TAKE I713
;steal
SET skillsteal, "0"
;assasin
SET skillassasin, "1"
;eat
SET skilleat, "1"
;run
SET skillrun, "0"
;find+
SET skillfind, "0"
;hunt
SET skillhunt, "0"
END

@morphwhitedrag
SET specmonstermorph, White_dragon
IF -T1305 @notkilledtomorph
SET monsterlevelrequiredformorph, 90
COMPARE #<num.hostlevel>, 90
IF< @leveltoolow
1: White Dragon skills: 	Sprint, Fly, Assasin, Eat					HAND 90 	MAGIC 20 	MAX: HP 3000 MP 3000 level 90+
1: "The great white dragon of spirit."
1: Are you sure you wish to become a White Dragon? You have 30 secconds to say 'no' before you are morphed into a White Dragon.
ASK 30
If Qno @morphspec
SET num.hostClass, 56
;dig
TAKE I715
;slash
TAKE I712
;climb
TAKE I710
;sprint
GIVE I709
;drill
TAKE I714
;swim
TAKE I708
;hyperjump
TAKE I711
;fly
GIVE I713
;steal
SET skillsteal, "0"
;assasin
SET skillassasin, "1"
;eat
SET skilleat, "1"
;run
SET skillrun, "0"
;find+
SET skillfind, "0"
;hunt
SET skillhunt, "0"
END

@morphblackdrag
SET specmonstermorph, Black_dragon
IF -T1306 @notkilledtomorph
SET monsterlevelrequiredformorph, 99
COMPARE #<num.hostlevel>, 99
IF< @leveltoolow
1: Black Dragon skills: 	Sprint, Fly, Steal+, Assasin, Eat, Run, Find+, Hunt	HAND 30 	MAGIC 90 	MAX: HP 4000 MP 3000 level 100
1: "The great black dragon of choas."
1: Are you sure you wish to become a Black Dragon? You have 30 secconds to say 'no' before you are morphed into a Black Dragon.
ASK 30
If Qno @morphspec
SET num.hostClass, 57
;dig
TAKE I715
;slash
TAKE I712
;climb
TAKE I710
;sprint
GIVE I709
;drill
TAKE I714
;swim
TAKE I708
;hyperjump
TAKE I711
;fly
GIVE I713
;steal
SET skillsteal, "1"
;assasin
SET skillassasin, "1"
;eat
SET skilleat, "1"
;run
SET skillrun, "1"
;find+
SET skillfind, "1"
;hunt
SET skillhunt, "1"
END

@morphlightdeamon
SET specmonstermorph, Light_Demon
IF -T1701 @notkilledtomorph
SET monsterlevelrequiredformorph, 99
COMPARE #<num.hostlevel>, 99
IF< @leveltoolow
1: Light Deamon skills: 	Sprint, Fly, Steal+, Assasin, Eat, Run, Find+, Hunt	HAND 60 	MAGIC 60 	MAX: HP 3000 MP 4000 level 100
1: "The ultimate summon, light deamon, originally created by the greatest feugian summoner."
1: Are you sure you wish to become a Light Deamon? You have 30 secconds to say 'no' before you are morphed into a Light Deamon.
ASK 30
If Qno @morphspec
SET num.hostClass, 58
;dig
TAKE I715
;slash
TAKE I712
;climb
TAKE I710
;sprint
GIVE I709
;drill
TAKE I714
;swim
TAKE I708
;hyperjump
TAKE I711
;fly
GIVE I713
;steal
SET skillsteal, "1"
;assasin
SET skillassasin, "1"
;eat
SET skilleat, "1"
;run
SET skillrun, "1"
;find+
SET skillfind, "1"
;hunt
SET skillhunt, "1"
END

@morphdarkdeamon
SET specmonstermorph, Dark_Demon
IF -T1702 @notkilledtomorph
SET monsterlevelrequiredformorph, 99
COMPARE #<num.hostlevel>, 99
IF< @leveltoolow
1: Dark Deamon skills: 	Sprint, Fly, Steal+, Assasin, Eat, Run, Find+, Hunt		HAND 90 	MAGIC 30 	MAX: HP 4000 MP 3000 level 100
1: "The ultimate summon, dark deamon, originally created by the greatest feugian summoner."
1: Are you sure you wish to become a Dark Deamon? You have 30 secconds to say 'no' before you are morphed into a Dark Deamon.
ASK 30
If Qno @morphspec
SET num.hostClass, 59
;dig
TAKE I715
;slash
TAKE I712
;climb
TAKE I710
;sprint
GIVE I709
;drill
TAKE I714
;swim
TAKE I708
;hyperjump
TAKE I711
;fly
GIVE I713
;steal
SET skillsteal, "1"
;assasin
SET skillassasin, "1"
;eat
SET skilleat, "1"
;run
SET skillrun, "1"
;find+
SET skillfind, "1"
;hunt
SET skillhunt, "1"
END
@repask
END

@notkilledtomorph
1: Im afraid you need to kill a #<specmonstermorph> to possess one
1: Come back when you have killed it
GOTO @repask

@leveltoolow
1: your level is too low to possess that monster level
1: Please return when you have gained level #<monsterlevelrequiredformorph>
GOTO @repask
