' "book test"
' Created with QDK 3.53 - UNREGISTERED VERSION
define game <book test>
asl-version <350>
gametype singleplayer
start <room1>
game info <Created with QDK 3.53 - UNREGISTERED EVALUATION VERSION.>
end define
define synonyms
end define
define room <room1>
look <This is a big room.>
command <cast spell> if got <spell book> then do <cast_spell> else msg <You have no powers.>
define object <spell book>
take {
give <spell book>
do <get_book>
}
use on <wizard> do <cast_spell>
end define
define object <wizard>
look <The wizard is evil.>
speak <He is not going to talk to you.>
prefix <the>
gender <he>
end define
end define
define procedure <cast_spell>
msg <You wave your hand and cast one the available spells from the spell book:|n>
choose <book>
end define
define procedure <get_book>
msg <As you pick up the book, the evil wizard casts an ice spell. You better do something quick!|n>
property <wizard; ice>
end define
define text <intro>
end define
define text <win>
end define
define text <lose>
end define
define selection <book>
info <book>
choice <fire> {
if property <wizard; ice> then {
msg <You cast the fire spell and melt the evil wizard but he backs up and changes into a fire himself.|n|nWhat spell do you cast now?>
property <wizard; fire>
}
if property <wizard; fire> then {
msg <You cast the fire spell but he is already a flame himself so he burns you alive.|n>
playerlose
}
}
choice <water> {
if property <wizard; ice> then {
msg <You cast the water spell on the wizard but he has already cast the ice spell.|nLarge ice shards pummel your body and you die.|n>
playerlose
}
if property <wizard; fire> then {
msg <You cast the water spell and wash the wizard out completely!!!>
playerwin
}
}
end define
choice <fire> {
if property <wizard; fire> then {
msg <You cast the fire spell but he is already a flame himself so he burns you alive.|n>
playerlose
}
if property <wizard; ice> then {
msg <You cast the fire spell and melt the evil wizard but he backs up and changes into a fire himself.|n|nWhat spell do you cast now?>
property <wizard; fire>
property <wizard; not ice>
}
}
property <element=fire>
' "King's Quest V - text adventure"
' Created with QDK 3.53 - UNREGISTERED VERSION
!include <Typelib.qlb>
define game <King's Quest V - text adventure>
asl-version <350>
gametype singleplayer
start <lab - upstairs>
game author <Steve Lingle>
game version <1.0>
game copyright <Revised by Steveco Games for free distribution only>
game info <Created with QDK 3.53 - UNREGISTERED EVALUATION VERSION.>
define variable <mordack_insect>
type numeric
value <30>
onchange if ( %mordack_insect% < 1 ) then {
timeroff <mordack_insect>
msg <Just as Graham is deciding on what to do, Mordack (as the
insect) swoops down upon him and finishes him off.|n>
wait <press any key>
msg <If only there were something that Graham could have done
to stop Mordack.|n|nHint: read the book in the library. They are magic spells.|n(use
command: cast spell or wave wand or use wand on Mordack)>
wait <press any key>
playerlose
}
end define
define variable <Score>
type numeric
value <0>
display <!>
end define
end define
define synonyms
take = get
bandit = man
e = east
w = west
s = south
n = north
pipe organ = organ
end define
define room <inven room>
define object <Mordack>
look {
if property <Mordack; > then msg <Mordack stands in the room
staring menacingly at Graham.|n>
if property <Mordack; insect> then msg <Mordack (as a large
insect) hovers eerily above Graham.|n>
if property <Mordack; dragon> then msg <Mordack (as a dragon)
towers over Graham ready to scorch him with fire.|n>
if property <Mordack; cobra> then msg <Mordack (as a cobra)
slithers closer and closer to Graham ready to strike.|n>
if property <Mordack; fire> then msg <Mordack (as a fire)
circles Graham containing him in one spot.|n>
}
speak <Mordack is not going to discuss anything with Graham.>
displaytype <character>
gender <he>
end define
define object <Mordack's wand2>
alias <Mordack's wand>
alt <wand; Mordack's wand; Mordacks wand>
look <Mordack's wand barely sparkles at all now.>
take msg <Now that the wand has lost all of its magical powers, there
is no further use for it.|n>
article <it>
gender <it>
use msg <Graham waves Mordack's wand which is full of magical
energy.|nStrangely, nothing happens. Could it be that only Mordack can use the
wand?|n>
end define
end define
define room <laboratory>
prefix <the>
look <The laboratory is a very large room. A stairway immediately to the left
leads to the upper section of the laboratory where a strange machine can be seen from
the ground floor.|nAn enormous fireplace sits against the east wall with a ventilation
shaft leading up and out through the ceiling. On either side of the shaft are windows
where most of the room's light is coming from.|nMagic trinkets and other type of
chemical substances clutter laboratory tables on the sides of the room.|nAmong the
bottles and jars, Graham notices a very large jar on the edge of one of the tables
containing a miniature castle.>
west if here <Mordack> then msg <Graham cannot leave now. He must deal with
Mordack.|n> else goto <upstairs hallway>
up if here <Mordack> then msg <Graham cannot leave now. He must deal with
Mordack.|n> else goto <lab - upstairs>
define object <stairway>
look <The stone stairway leads to the top floor of the laboratory.>
prefix <the>
article <it>
invisible
end define
define object <machine1>
alias <strange machine>
alt <strange machine; machine>
look <A strange machine can be seen from the ground floor.>
take msg <Graham will need to be closer to examine the strange
machine.|n>
examine <A strange machine can be seen from the ground floor. Graham
will need to be closer to examine it.>
prefix <a>
article <it>
end define
define object <fireplace1>
alias <fireplace>
alt <fire; place; fire place>
look <A dormant fireplace sits on the east side of the room. This is
most likely where magic spells and experiments are created.>
prefix <a>
article <it>
end define
define object <shaft>
alt <ventilation; ventilation shaft>
look <A ventilation shaft extends from the fireplace against the wall
and travels up and out of the castle near the ceiling where fumes from the fireplace
would most likely go.>
prefix <a>
article <it>
end define
define object <windows>
alt <window>
look <The two windows against the east wall are too high to be reached.
There not especially large either so this would not provide an adequate means of
escape.>
prefix <the>
article <them>
invisible
end define
define object <trinkets>
alt <magic trinkets; chemicals; bottles; tubes; table; tables>
look <Magic trinkets, chemical apparatus and tubes are scattered around
the laboratory. In one corner of a table sits a large glass jar with a miniature
castle inside.>
take msg <There is nothing of interest with the them.|n>
prefix <the>
article <them>
invisible
end define
define object <glass jar>
alt <jar; castle; miniature castle; castle in jar; miniature castle in
jar>
look <On the edge of a table sits a large glass jar containing Graham's
castle.>
take msg <The glass jar is too large to carry around. There must be a
way to save Graham's family.|n>
speak msg <A tear comes to Graham's eye as he sees his family inside of
the glass jar.|n|cr"I will rescue you soon, my family."|cb|n>
examine msg <A tear comes to Graham's eye as he sees his family inside
of the glass jar.|n|cr"I will rescue you soon, my family."|cb|n>
prefix <a>
article <it>
end define
end define
define room <lab - upstairs>
down <laboratory>
define object <machine2>
alias <strange machine>
alt <strange machine; machine>
look <The machine has a large basin with bubbling liquid in the center
with pipes and copper coils coming out of it. They pipes form a cross section and
extend to the left and right where each end comes to a point. At the points on each
end are metallic cones that point to empty trays. There is a tray on the left and a
tray on the right. If only Graham could figure out what goes on the trays.>
take msg <Graham will need to be closer to examine the strange
machine.|n>
prefix <a>
article <it>
end define
define object <trays>
alt <tray>
look <A tray sits on the left and right side of the machine. Graham
wonders what they could be used for.>
prefix <the>
article <them>
invisible
end define
define object <crispin's wand2>
alias <crispin's wand>
alt <wand>
look <Crispin's wand is now pulsing with magical power.>
take do <Crispin's wand charged>
speak <Talking to the wand will do nothing.>
article <it>
gender <it>
use msg <You wave the wand but only a couple sparkles fizzle out from
the wand and nothing happens.>
use on <Mordack> do <Wand on Mordack>
use on anything msg <You wave the wand but only a couple sparkles
fizzle out from the wand and nothing happens.>
drop nowhere
end define
end define
define procedure <Crispin's wand charged>
msg <Graham picks up Crispin's wand from the tray and can immediately feel the
magical power flowing through it.|n>
inc <Score; 2>
give <crispin's wand2>
wait <press any key>
msg <A few moments later, Mordack appears in the entry of the laboratory
downstairs.|n>
move <Mordack; lab - upstairs>
wait <press any key>
msg <Graham steps forward to the edge of the balcony so he can see the
laboratory.|n>
wait <press any key>
goto <laboratory>
move <Mordack; laboratory>
wait <press any key>
msg <|cl"What are you doing with my wand, you swine!"|cb Mordack waves his
hands and his wand sails through the air and into his waiting hand.|n>
move <Mordack's wand2; inven room>
wait <press any key>
msg <|cl"You will be a hinderance no more!"|cb |nJust as Mordack begins to
wave his wand...|n>
wait <press any key>
msg <|cg"Graham, I have just heard from Crispin and he will be on his way to
help..."|cb|nIt was Cedric! He flew in through the laboratory windows.|n>
wait <press any key>
msg <At that moment, a ray of magic shoots from Mordack's wand and hits Cedric
as he accidentally intercepted the path of the magic spell.|n>
wait <press any key>
msg <Cedric immediately turned to stone and fell to the floor.|n|cr"Cedric!"|cb
shouted Graham.|n>
wait <press any key>
msg <Mordack waves his wand again but only a few sparkles fizzle through the
end.|n|cl"What did you do to my wand? Do not under estimate my powers, little
man..."|cb|n>
wait <press any key>
msg <Mordack waves his arms and suddenly his whole body begins to glow.|nGraham
watched in awe and horror as Mordack started to grow and change into a large flying
insect.|n>
wait <press any key>
msg <Mordack (as an insect) flies up to the upper level of the laboratory and
hovers just above Graham.|nNow is the time for Graham to pull a trick or two out of his
hat!|n>
property <Mordack; insect>
end define
define procedure <Wand on Mordack>
msg <Graham waves his wand and prepares to cast a spell from the large book
from Mordack's library.|n>
wait <press any key>
choose <book>
if property <Mordack; insect> then property <Mordack; dragon>
if property <Mordack; dragon> then property <Mordack; cobra>
if property <Mordack; cobra> then property <Mordack; fire>
end define
define procedure <end of story>
msg <Graham, in bewilderment, looks around the laboratory. Mordack's ashes
smoke as the last of the burning ambers fizzle away.|n>
wait <press any key>
msg <He looks at poor Cedric lying on the floor of the laboratory and he looks
at his family in the large glass jar.|n>
wait <press any key>
msg <As he ponders what to do next and how he would possibly get everyone home,
a puff of smoke appeared behind Graham.|n>
wait <press any key>
say <|cl"Confound it...Oh wonderful. Graham, I'm glad to see you are still
alive."|cb It was Crispin. Although he missed the show, hopefully he could help
restore everything to normal.|n>
wait <press any key>
end define
define procedure <tiger>
if property <Mordack; dragon> then {
msg <Graham casts the tiger spell on himself and he instantly changes
into the form of a tiger.|n>
wait <press any key>
msg <Mordack (as the dragon) blows a gust of fire at Graham (as the
tiger) and consumes him completely killing Graham quite quickly.|n>
wait <press any key>
msg <Maybe there is another spell that Graham should try.|n>
wait <press any key>
playerlose
}
if property <Mordack; cobra> then {
msg <Graham casts the tiger spell on himself changing him into the form
of a tiger instantly.|n>
wait <press any key>
msg <Mordack (as the cobra) slithers up to Graham (as the tiger) and
bites him quickly on the neck.|n>
wait <press any key>
msg <After a few moments, Graham falls to the floor dead.|n|nPerhaps
there was another spell Graham could use.|n>
wait <press any key>
playerlose
}
if property <Mordack; fire> then {
msg <Graham cast the tiger spell on himself and his body changes into
the form of a tiger instantly.|n>
wait <press any key>
msg <Mordack (as the fire) surrounds Graham (as the tiger) and consumes
him quickly. |nIt does not take long for Graham to pass away.|n>
wait <press any key>
msg <Perhaps there was a different spell Graham could use.|n>
wait <press any key>
playerlose
}
if property <Mordack; insect> then {
timeroff <mordack_insect>
msg <Graham casts the tiger spell on himself and he immediately changes
form into a tiger.|n>
wait <press any key>
msg <Graham (as the tiger) begins jumping up on his hind legs and
clawing at Mordack (as the insect).|n>
wait <press any key>
msg <|cl"Grrrrrrraaaahhhh!!!" |cbcries Mordack.|nMordack flies back
down to the lower area of the laboratory and Graham jumps down ready to attack.|n>
wait <press any key>
msg <|cl"You think you're pretty smart, Graham...Let's see how you
handle a little fire."|cb Mordack begins to grow very large and changes into a
ferocious dragon.|n>
property <Mordack; not insect>
property <Mordack; dragon>
timeron <mordack_dragon>
}
end define
define procedure <rabbit>
if property <Mordack; insect> then {
msg <Graham casts the rabbit spell on himself and he immediately
changes form into a rabbit.|n>
wait <press any key>
msg <Mordack (as the insect) swoops down on Graham (as the rabbit) and
eats him whole.|n>
wait <press any key>
msg <Perhaps there was another spell Graham could have used.|n>
wait <press any key>
playerlose
}
if property <Mordack; cobra> then {
msg <Graham casts the rabbit spell on himself changing him into the
form of a rabbit instantly.|n>
wait <press any key>
msg <Mordack (as the cobra) slithers up to Graham (as the rabbit) and
bites him quickly on the neck.|n>
wait <press any key>
msg <After a few moments, Graham falls to the floor dead.|n|nPerhaps
there was another spell Graham could use.|n>
wait <press any key>
playerlose
}
if property <Mordack; fire> then {
msg <Graham cast the rabbit spell on himself and his body changes into
the form of a rabbit instantly.|n>
wait <press any key>
msg <Mordack (as the fire) surrounds Graham (as the rabbit) and
consumes him quickly. |nIt does not take long for Graham to pass away.|n>
wait <press any key>
msg <Perhaps there was a different spell Graham could use.|n>
wait <press any key>
playerlose
}
if property <Mordack; dragon> then {
timeroff <mordack_dragon>
msg <Graham casts the rabbit spell on himself and he immediately
changes form into a rabbit.|n>
wait <press any key>
msg <Mordack (as the dragon) begins blowing fireballs down at the
floor. Graham (as the rabbit) easily hops out of harm's way with each blast.|n>
wait <press any key>
msg <|cl"Rrrooooaaarrr!"|cb Mordack is visually frustrated at Graham's
trick. He begins to shrink down to a smaller size.|n>
wait <press any key>
msg <Mordack changed himself into a king cobra! He begins to slither
towards Graham (as the rabbit).|n|cl"Let'sssss ssseee how you handle thissss..."|cb|n>
property <Mordack; not dragon>
property <Mordack; cobra>
timeron <mordack_cobra>
}
end define
define procedure <weasel>
if property <Mordack; insect> then {
msg <Graham casts the weasel spell on himself and he immediately
changes form into a weasel.|n>
wait <press any key>
msg <Mordack (as the insect) swoops down on Graham (as the weasel) and
eats him whole.|n>
wait <press any key>
msg <Perhaps there was another spell Graham could have used.|n>
wait <press any key>
playerlose
}
if property <Mordack; dragon> then {
msg <Graham casts the weasel spell on himself and he instantly changes
into the form of a weasel.|n>
wait <press any key>
msg <Mordack (as the dragon) blows a gust of fire at Graham (as the
weasel) and consumes him completely killing Graham quite quickly.|n>
wait <press any key>
msg <Maybe there is another spell that Graham should try.|n>
wait <press any key>
playerlose
}
if property <Mordack; fire> then {
msg <Graham cast the weasel spell on himself and his body changes into
the form of a weasel instantly.|n>
wait <press any key>
msg <Mordack (as the fire) surrounds Graham (as the weasel) and
consumes him quickly. |nIt does not take long for Graham to pass away.|n>
wait <press any key>
msg <Perhaps there was a different spell Graham could use.|n>
wait <press any key>
playerlose
}
if property <Mordack; cobra> then {
timeroff <mordack_cobra>
msg <Graham casts the weasel spell on himself changing him into the
form of a weasel instantly.|n>
wait <press any key>
msg <Mordack (as the cobra) slithers up to Graham (as the weasel) and
tries to bite at him.|n|nUsing quick weasel reflexes, Graham jumps up and bites the
neck of the king cobra and shakes his head violently.|n>
wait <press any key>
msg <|cl"Aaahhh! Cursssessss!"|cb Mordack slithers away quickly.|n>
wait <press any key>
msg <|cl"Thisss isss the end of you, Graham!"|cb Mordack screams as he
begins to change into a very real ring of fire across the floor surrounding Graham
entirely.|n>
property <Mordack; not cobra>
property <Mordack; fire>
timeron <mordack_fire>
}
end define
define procedure <rain>
if property <Mordack; insect> then {
msg <Graham casts the rain spell on himself and a small rain cloud
immediately appears over his head and begins to pour down heavy rain on Graham.|n>
wait <press any key>
msg <Mordack (as the insect) swoops down on Graham covered with rain
and eats him whole.|n>
wait <press any key>
msg <Perhaps there was another spell Graham could have used.|n>
wait <press any key>
playerlose
}
if property <Mordack; dragon> then {
msg <Graham casts the rain spell on himself and a small rain cloud
immediately appears over his head and begins to pour down heavy rain on Graham.|n>
wait <press any key>
msg <Mordack (as the dragon) blows a gust of fire at Graham covered
with rain but it was not enough to stop the dragon's fire.|nIt quickly consumes Graham
and he dies.|n|n>
wait <press any key>
msg <Maybe there is another spell that Graham should try.|n>
wait <press any key>
playerlose
}
if property <Mordack; cobra> then {
msg <Graham casts the rain spell on himself and a small rain cloud
immediately appears over his head and begins to pour down heavy rain on Graham.|n>
wait <press any key>
msg <Mordack (as the cobra) slithers up to Graham covered with rain and
bites him quickly on the neck.|n>
wait <press any key>
msg <After a few moments, Graham falls to the floor dead.|n|nPerhaps
there was another spell Graham could use.|n>
wait <press any key>
playerlose
}
if property <Mordack; fire> then {
timeroff <mordack_fire>
msg <Graham casts the rain spell on himself and a small rain cloud
immediately appears over his head and begins to pour down heavy rain on Graham.|n>
wait <press any key>
msg <Mordack (as the fire) surrounds Graham and the rain pours down on
both of them washing out the fire.|n>
wait <press any key>
msg <Mordack is gone! Graham has won!|n>
wait <press any key>
do <end of story>
}
end define
define timer <mordack_appear>
interval <1>
action dec <mordack_appear; 1>
disabled
end define
define text <intro>
end define
define text <lose>
~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~
Please try again. If you've saved the game, please restore by clicking "restore" in
the lower righthand corner of the screen.
~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~
end define
define text <win>
end define
define selection <book>
info <book>
choice <tiger> do <tiger>
choice <rabbit> do <rabbit>
choice <weasel> do <weasel>
choice <rain> do <rain>
end define
define procedure <Wand on Mordack>
msg <Graham waves his wand and prepares to cast a spell from the large book
from Mordack's library.|n>
wait <press any key>
choose <book>
if property <Mordack; insect> then property <Mordack; dragon>
if property <Mordack; dragon> then property <Mordack; cobra>
if property <Mordack; cobra> then property <Mordack; fire>
end define ' "King's Quest V - text adventure"
' Created with QDK 3.53 - UNREGISTERED VERSION
!include <Typelib.qlb>
define game <King's Quest V - text adventure>
asl-version <350>
gametype singleplayer
start <lab - upstairs>
game author <Steve Lingle>
game version <1.0>
game copyright <Revised by Steveco Games for free distribution only>
game info <Created with QDK 3.53 - UNREGISTERED EVALUATION VERSION.>
command <cast spell> exec <use wand on mordack>
command <wave wand> exec <use wand on mordack>
define variable <mordack_insect>
type numeric
value <30>
onchange if ( %mordack_insect% < 1 ) then {
timeroff <mordack_insect>
msg <Just as Graham is deciding on what to do, Mordack (as the insect) swoops down upon him and finishes him off.|n>
wait <press any key>
msg <If only there were something that Graham could have done to stop Mordack.|n|nHint: read the book in the library. They are magic spells.|n(use command: cast spell or wave wand or use wand on Mordack)>
wait <press any key>
playerlose
}
end define
define variable <Score>
type numeric
value <0>
display <!>
end define
end define
define synonyms
take = get
bandit = man
e = east
w = west
s = south
n = north
pipe organ = organ
end define
define room <inven room>
define object <Mordack>
look {
if property <Mordack; > then msg <Mordack stands in the room staring menacingly at Graham.|n>
if property <Mordack; insect> then msg <Mordack (as a large insect) hovers eerily above Graham.|n>
if property <Mordack; dragon> then msg <Mordack (as a dragon) towers over Graham ready to scorch him with fire.|n>
if property <Mordack; cobra> then msg <Mordack (as a cobra) slithers closer and closer to Graham ready to strike.|n>
if property <Mordack; fire> then msg <Mordack (as a fire) circles Graham containing him in one spot.|n>
}
speak <Mordack is not going to discuss anything with Graham.>
displaytype <character>
gender <he>
end define
define object <Mordack's wand2>
alias <Mordack's wand>
alt <wand; Mordack's wand; Mordacks wand>
look <Mordack's wand barely sparkles at all now.>
take msg <Now that the wand has lost all of its magical powers, there is no further use for it.|n>
article <it>
gender <it>
use msg <Graham waves Mordack's wand which is full of magical energy.|nStrangely, nothing happens. Could it be that only Mordack can use the wand?|n>
end define
end define
define room <laboratory>
prefix <the>
look <The laboratory is a very large room. A stairway immediately to the left leads to the upper section of the laboratory where a strange machine can be seen from the ground floor.|nAn enormous fireplace sits against the east wall with a ventilation shaft leading up and out through the ceiling. On either side of the shaft are windows where most of the room's light is coming from.|nMagic trinkets and other type of chemical substances clutter laboratory tables on the sides of the room.|nAmong the bottles and jars, Graham notices a very large jar on the edge of one of the tables containing a miniature castle.>
west if here <Mordack> then msg <Graham cannot leave now. He must deal with Mordack.|n> else goto <upstairs hallway>
up if here <Mordack> then msg <Graham cannot leave now. He must deal with Mordack.|n> else goto <lab - upstairs>
define object <stairway>
look <The stone stairway leads to the top floor of the laboratory.>
prefix <the>
article <it>
invisible
end define
define object <machine1>
alias <strange machine>
alt <strange machine; machine>
look <A strange machine can be seen from the ground floor.>
take msg <Graham will need to be closer to examine the strange machine.|n>
examine <A strange machine can be seen from the ground floor. Graham will need to be closer to examine it.>
prefix <a>
article <it>
end define
define object <fireplace1>
alias <fireplace>
alt <fire; place; fire place>
look <A dormant fireplace sits on the east side of the room. This is most likely where magic spells and experiments are created.>
prefix <a>
article <it>
end define
define object <shaft>
alt <ventilation; ventilation shaft>
look <A ventilation shaft extends from the fireplace against the wall and travels up and out of the castle near the ceiling where fumes from the fireplace would most likely go.>
prefix <a>
article <it>
end define
define object <windows>
alt <window>
look <The two windows against the east wall are too high to be reached. There not especially large either so this would not provide an adequate means of escape.>
prefix <the>
article <them>
invisible
end define
define object <trinkets>
alt <magic trinkets; chemicals; bottles; tubes; table; tables>
look <Magic trinkets, chemical apparatus and tubes are scattered around the laboratory. In one corner of a table sits a large glass jar with a miniature castle inside.>
take msg <There is nothing of interest with the them.|n>
prefix <the>
article <them>
invisible
end define
define object <glass jar>
alt <jar; castle; miniature castle; castle in jar; miniature castle in jar>
look <On the edge of a table sits a large glass jar containing Graham's castle.>
take msg <The glass jar is too large to carry around. There must be a way to save Graham's family.|n>
speak msg <A tear comes to Graham's eye as he sees his family inside of the glass jar.|n|cr"I will rescue you soon, my family."|cb|n>
examine msg <A tear comes to Graham's eye as he sees his family inside of the glass jar.|n|cr"I will rescue you soon, my family."|cb|n>
prefix <a>
article <it>
end define
end define
define room <lab - upstairs>
down <laboratory>
define object <machine2>
alias <strange machine>
alt <strange machine; machine>
look <The machine has a large basin with bubbling liquid in the center with pipes and copper coils coming out of it. They pipes form a cross section and extend to the left and right where each end comes to a point. At the points on each end are metallic cones that point to empty trays. There is a tray on the left and a tray on the right. If only Graham could figure out what goes on the trays.>
take msg <Graham will need to be closer to examine the strange machine.|n>
prefix <a>
article <it>
end define
define object <trays>
alt <tray>
look <A tray sits on the left and right side of the machine. Graham wonders what they could be used for.>
prefix <the>
article <them>
invisible
end define
define object <crispin's wand2>
alias <crispin's wand>
alt <wand>
look <Crispin's wand is now pulsing with magical power.>
take do <Crispin's wand charged>
speak <Talking to the wand will do nothing.>
article <it>
gender <it>
use msg <You wave the wand but only a couple sparkles fizzle out from the wand and nothing happens.>
use on <Mordack> do <Wand on Mordack>
use on anything msg <You wave the wand but only a couple sparkles fizzle out from the wand and nothing happens.>
drop nowhere
end define
end define
define procedure <Crispin's wand charged>
msg <Graham picks up Crispin's wand from the tray and can immediately feel the magical power flowing through it.|n>
inc <Score; 2>
give <crispin's wand2>
wait <press any key>
msg <A few moments later, Mordack appears in the entry of the laboratory downstairs.|n>
move <Mordack; lab - upstairs>
wait <press any key>
msg <Graham steps forward to the edge of the balcony so he can see the laboratory.|n>
wait <press any key>
goto <laboratory>
move <Mordack; laboratory>
wait <press any key>
msg <|cl"What are you doing with my wand, you swine!"|cb Mordack waves his hands and his wand sails through the air and into his waiting hand.|n>
move <Mordack's wand2; inven room>
wait <press any key>
msg <|cl"You will be a hinderance no more!"|cb |nJust as Mordack begins to wave his wand...|n>
wait <press any key>
msg <|cg"Graham, I have just heard from Crispin and he will be on his way to help..."|cb|nIt was Cedric! He flew in through the laboratory windows.|n>
wait <press any key>
msg <At that moment, a ray of magic shoots from Mordack's wand and hits Cedric as he accidentally intercepted the path of the magic spell.|n>
wait <press any key>
msg <Cedric immediately turned to stone and fell to the floor.|n|cr"Cedric!"|cb shouted Graham.|n>
wait <press any key>
msg <Mordack waves his wand again but only a few sparkles fizzle through the end.|n|cl"What did you do to my wand? Do not under estimate my powers, little man..."|cb|n>
wait <press any key>
msg <Mordack waves his arms and suddenly his whole body begins to glow.|nGraham watched in awe and horror as Mordack started to grow and change into a large flying insect.|n>
wait <press any key>
msg <Mordack (as an insect) flies up to the upper level of the laboratory and hovers just above Graham.|nNow is the time for Graham to pull a trick or two out of his hat!|n>
property <Mordack; insect>
end define
define procedure <Wand on Mordack>
msg <Graham waves his wand and prepares to cast a spell from the large book from Mordack's library.|n>
wait <press any key>
choose <book>
end define
define procedure <end of story>
msg <Graham, in bewilderment, looks around the laboratory. Mordack's ashes smoke as the last of the burning ambers fizzle away.|n>
wait <press any key>
msg <He looks at poor Cedric lying on the floor of the laboratory and he looks at his family in the large glass jar.|n>
wait <press any key>
msg <As he ponders what to do next and how he would possibly get everyone home, a puff of smoke appeared behind Graham.|n>
wait <press any key>
say <|cl"Confound it...Oh wonderful. Graham, I'm glad to see you are still alive."|cb It was Crispin. Although he missed the show, hopefully he could help restore everything to normal.|n>
wait <press any key>
end define
define timer <mordack_appear>
interval <1>
action dec <mordack_appear; 1>
disabled
end define
define text <intro>
end define
define text <lose>
~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~
Please try again. If you've saved the game, please restore by clicking "restore" in the lower righthand corner of the screen.
~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~
end define
define text <win>
end define
define selection <book>
info <book>
choice <tiger> {
if property <Mordack; dragon> then {
msg <Graham casts the tiger spell on himself and he instantly changes into the form of a tiger.|n>
wait <press any key>
msg <Mordack (as the dragon) blows a gust of fire at Graham (as the tiger) and consumes him completely killing Graham quite quickly.|n>
timeroff <mordack_dragon>
wait <press any key>
msg <Maybe there is another spell that Graham should try.|n>
wait <press any key>
playerlose
}
if property <Mordack; cobra> then {
msg <Graham casts the tiger spell on himself changing him into the form of a tiger instantly.|n>
wait <press any key>
msg <Mordack (as the cobra) slithers up to Graham (as the tiger) and bites him quickly on the neck.|n>
timeroff <mordack_cobra>
wait <press any key>
msg <After a few moments, Graham falls to the floor dead.|n|nPerhaps there was another spell Graham could use.|n>
wait <press any key>
playerlose
}
if property <Mordack; fire> then {
msg <Graham cast the tiger spell on himself and his body changes into the form of a tiger instantly.|n>
wait <press any key>
msg <Mordack (as the fire) surrounds Graham (as the tiger) and consumes him quickly. |nIt does not take long for Graham to pass away.|n>
timeroff <mordack_fire>
wait <press any key>
msg <Perhaps there was a different spell Graham could use.|n>
wait <press any key>
playerlose
}
if property <Mordack; insect> then {
timeroff <mordack_insect>
msg <Graham casts the tiger spell on himself and he immediately changes form into a tiger.|n>
wait <press any key>
msg <Graham (as the tiger) begins jumping up on his hind legs and clawing at Mordack (as the insect).|n>
wait <press any key>
msg <|cl"Grrrrrrraaaahhhh!!!" |cbcries Mordack.|nMordack flies back down to the lower area of the laboratory and Graham jumps down ready to attack.|n>
wait <press any key>
msg <|cl"You think you're pretty smart, Graham...Let's see how you handle a little fire."|cb Mordack begins to grow very large and changes into a ferocious dragon.|n>
property <Mordack; not insect>
property <Mordack; dragon>
timeron <mordack_dragon>
}
}
choice <rabbit> {
if property <Mordack; insect> then {
msg <Graham casts the rabbit spell on himself and he immediately changes form into a rabbit.|n>
wait <press any key>
msg <Mordack (as the insect) swoops down on Graham (as the rabbit) and eats him whole.|n>
timeroff <mordack_insect>
wait <press any key>
msg <Perhaps there was another spell Graham could have used.|n>
wait <press any key>
playerlose
}
if property <Mordack; cobra> then {
msg <Graham casts the rabbit spell on himself changing him into the form of a rabbit instantly.|n>
wait <press any key>
msg <Mordack (as the cobra) slithers up to Graham (as the rabbit) and bites him quickly on the neck.|n>
timeroff <mordack_cobra>
wait <press any key>
msg <After a few moments, Graham falls to the floor dead.|n|nPerhaps there was another spell Graham could use.|n>
wait <press any key>
playerlose
}
if property <Mordack; fire> then {
msg <Graham cast the rabbit spell on himself and his body changes into the form of a rabbit instantly.|n>
wait <press any key>
msg <Mordack (as the fire) surrounds Graham (as the rabbit) and consumes him quickly. |nIt does not take long for Graham to pass away.|n>
timeroff <mordack_fire>
wait <press any key>
msg <Perhaps there was a different spell Graham could use.|n>
wait <press any key>
playerlose
}
if property <Mordack; dragon> then {
timeroff <mordack_dragon>
msg <Graham casts the rabbit spell on himself and he immediately changes form into a rabbit.|n>
wait <press any key>
msg <Mordack (as the dragon) begins blowing fireballs down at the floor. Graham (as the rabbit) easily hops out of harm's way with each blast.|n>
wait <press any key>
msg <|cl"Rrrooooaaarrr!"|cb Mordack is visually frustrated at Graham's trick. He begins to shrink down to a smaller size.|n>
wait <press any key>
msg <Mordack changed himself into a king cobra! He begins to slither towards Graham (as the rabbit).|n|cl"Let'sssss ssseee how you handle thissss..."|cb|n>
property <Mordack; not dragon>
property <Mordack; cobra>
timeron <mordack_cobra>
}
}
choice <weasel> {
if property <Mordack; insect> then {
msg <Graham casts the weasel spell on himself and he immediately changes form into a weasel.|n>
wait <press any key>
msg <Mordack (as the insect) swoops down on Graham (as the weasel) and eats him whole.|n>
timeroff <mordack_insect>
wait <press any key>
msg <Perhaps there was another spell Graham could have used.|n>
wait <press any key>
playerlose
}
if property <Mordack; dragon> then {
msg <Graham casts the weasel spell on himself and he instantly changes into the form of a weasel.|n>
wait <press any key>
msg <Mordack (as the dragon) blows a gust of fire at Graham (as the weasel) and consumes him completely killing Graham quite quickly.|n>
timeroff <mordack_dragon>
wait <press any key>
msg <Maybe there is another spell that Graham should try.|n>
wait <press any key>
playerlose
}
if property <Mordack; fire> then {
msg <Graham cast the weasel spell on himself and his body changes into the form of a weasel instantly.|n>
wait <press any key>
msg <Mordack (as the fire) surrounds Graham (as the weasel) and consumes him quickly. |nIt does not take long for Graham to pass away.|n>
timeroff <mordack_fire>
wait <press any key>
msg <Perhaps there was a different spell Graham could use.|n>
wait <press any key>
playerlose
}
if property <Mordack; cobra> then {
timeroff <mordack_cobra>
msg <Graham casts the weasel spell on himself changing him into the form of a weasel instantly.|n>
wait <press any key>
msg <Mordack (as the cobra) slithers up to Graham (as the weasel) and tries to bite at him.|n|nUsing quick weasel reflexes, Graham jumps up and bites the neck of the king cobra and shakes his head violently.|n>
wait <press any key>
msg <|cl"Aaahhh! Cursssessss!"|cb Mordack slithers away quickly.|n>
wait <press any key>
msg <|cl"Thisss isss the end of you, Graham!"|cb Mordack screams as he begins to change into a very real ring of fire across the floor surrounding Graham entirely.|n>
property <Mordack; not cobra>
property <Mordack; fire>
timeron <mordack_fire>
}
}
choice <rain> {
if property <Mordack; insect> then {
msg <Graham casts the rain spell on himself and a small rain cloud immediately appears over his head and begins to pour down heavy rain on Graham.|n>
wait <press any key>
msg <Mordack (as the insect) swoops down on Graham covered with rain and eats him whole.|n>
timeroff <mordack_insect>
wait <press any key>
msg <Perhaps there was another spell Graham could have used.|n>
wait <press any key>
playerlose
}
if property <Mordack; dragon> then {
msg <Graham casts the rain spell on himself and a small rain cloud immediately appears over his head and begins to pour down heavy rain on Graham.|n>
wait <press any key>
msg <Mordack (as the dragon) blows a gust of fire at Graham covered with rain but it was not enough to stop the dragon's fire.|nIt quickly consumes Graham and he dies.|n|n>
timeroff <mordack_dragon>
wait <press any key>
msg <Maybe there is another spell that Graham should try.|n>
wait <press any key>
playerlose
}
if property <Mordack; cobra> then {
msg <Graham casts the rain spell on himself and a small rain cloud immediately appears over his head and begins to pour down heavy rain on Graham.|n>
wait <press any key>
msg <Mordack (as the cobra) slithers up to Graham covered with rain and bites him quickly on the neck.|n>
timeroff <mordack_cobra>
wait <press any key>
msg <After a few moments, Graham falls to the floor dead.|n|nPerhaps there was another spell Graham could use.|n>
wait <press any key>
playerlose
}
if property <Mordack; fire> then {
timeroff <mordack_fire>
msg <Graham casts the rain spell on himself and a small rain cloud immediately appears over his head and begins to pour down heavy rain on Graham.|n>
wait <press any key>
msg <Mordack (as the fire) surrounds Graham and the rain pours down on both of them washing out the fire.|n>
wait <press any key>
msg <Mordack is gone! Graham has won!|n>
wait <press any key>
do <end of story>
}
}
end define