' "Magic World"
' Created with QDK Lite 4.0.5 - UNREGISTERED VERSION

!include <stdverbs.lib>

define game <Magic World>
       asl-version <400>
       gametype singleplayer
       start <Entry Hall>
       game author <Marysa>
       game version <Tutorial>
       game info <Created with QDK Lite 4.0.5 - UNREGISTERED EVALUATION VERSION.>
       default fontname <Arial>
       background <black>
       foreground <white>
       beforesave msg <Are you leaving?>
       onload msg <Welcome back!|n>
       command <>
       verb <>
       verb <examine> msg <You can't examine that.>
       verb <Destroy> msg <You can't Destroy that.>
       verb <grab> msg <You can't grab that.>
       verb <take> msg <You can't take that.>
       verb <read> msg <You can't read that.>
       verb <Talk> msg <You can't Talk that.>
       verb <Talk to> msg <You can't Talk to that.>
       verb <examine window> msg <You can't examine window that.>
       verb <eexamine> msg <You can't eexamine that.>
       verb <investigate> msg <You can't investigate that.>
       verb <use wand on evil dwarf> msg <You can't use wand on evil dwarf that.>
end define

define options
       debug on
       panes on
       abbreviations off
end define

define room <Lounge>
       look <You have entered your lounge... though the furniture is beautiful and the crackling fire adds warmth to this room, you can't help but notice some body sitting in the big red chair... as you take a closer look, you realize its the ghost of a little boy... no older the 7...>
       northwest <Library>
       northeast <Cupboard>
       southeast <Entry Hall>
       up <Main Tower>

       define object <Ghost>
               look <Stop staring at him, its rude... Go talk to him... or 'examine' him...>
               speak {
                       msg < "Hi, my name is James. What is your name?" |n.... i like it.... hehe... Hey! Did you know that once the full version of Magic World is created I can talk to you! I'm soooo Excited! .... Wait... you will help get the full version right? I'd be awfully sad if i didn't see you again....|n|nPromise me you will help get the full version, pinky promise?.... Well, come on then... Answer me... will you pinky promise to help get the full version?>
                       msg <>
                       if ask <Well, the little man has a question, will you help get the full version (yes or no)? **Read  the game menu for what the little boy asked you**> then msg <YAY! Thank you, now don't break your promise! If you do, i will know.... Read below this game menu to find out how you can help...> else {
                               msg <FINE THEN! Your mean! BYE! NEVER GONNA TALK TO YOU AGAIN!>
                               hide <Ghost> }
               }
               displaytype <Character>
               article <him>
               gender <he>
               properties <examine=Its a ghost of a little boy, he seems upset about something...;Talk=(try speak to)>
       end define

end define

define room <The Dungeon>
       look <At the bottom of the stone steps its pitch black but you can see a magical lantern at the bottom of the stairs....>
       up <Library>

       define object <Lantern>
               look <Its a magical lantern you can use to see around the dungeon...>
               take
               displaytype <Object>
               article <it>
               gender <it>
               use msg <You speak a magical incantation and magical blue flame lights up inside the lantern (it will go out when you leave). The dungeon is dark, cold and damp... you were just about to leave when you see a small person like object hiding behind a chest.... 'investige small person'>
               properties <examine=Its a magical lantern you can use to see around the dungeon...>
               action <grab> {
                       msg <You have added the lantern to your inventory, 'use lantern' for light....>
                       give <Lantern>
               }
               action <take> give <Lantern>
       end define

       define object <Small person>
               look <I can't get a good look at it, I should investigate it...>
               speak <I don't want to startle him.... I'll investigate|n>
               displaytype <Character>
               article <him>
               gender <he>
               invisible
               properties <examine=I should 'investigate small person'...|n>
               action <investigate> {
                       msg <OH NO! Its an evil Dwarf with a knife pointed right at you!>
                       msg <You should kill him with the spell from the 'Book Of Enemies'! (use wand on evil dwarf)>
                       conceal <Small person>
                       reveal <Evil Dwarf>
               }
       end define

       define object <Staff>
               take <You now have the staff!>
               displaytype <Object>
               article <it>
               gender <it>
               invisible
       end define

       define object <Evil Dwarf>
               look <Don't Look at him! Kill him before he kills you!>
               speak <I WILL KILL ALL GOOD MAGICAL BEINGS!>
               displaytype <Character>
               article <him>
               gender <he>
               invisible
               properties <examine=Angry short dude with a grudge...>
       end define

end define

define room <Library>
       look <You enter the library, its sooo beautiful. Elegant book shelves line the walls, you have just about every magical book known to the world! Though, one shelf looks a little odd.... its a very 'odd book shelf'... try to 'look at' it...>
       east <Entry Hall>
       southeast <Lounge>
       down <The Dungeon>

       define object <Odd Book Shelf>
               look <This shelf is a little odd, you notice a 'book of keys'.... hmmm.... try to examine the book>
               speak <Book shelves don't talk...>
               displaytype <Object>
               article <it>
               gender <it>
               container
               opened
               remove <You have removed the book from the shelf, now 'take' the book of keys and it will be in your inventory.... >
               properties <examine=This shelf is very odd looking, hey.... there is a 'book of keys' here.... hmmm... try to examine  the book...|n>
       end define

       define object <Book of Keys>
               look <Tells you anything you want to know about magical keys... you should 'remove book of keys from odd book shelf'...>
               take
               speak <Its a book, you can't talk to it...>
               displaytype <Object>
               article <it>
               gender <it>
               parent <Odd Book Shelf>
               use {
                       goto <The Dungeon>
                       msg <You have been transported to the dungeon... where ever you are, just use the book and you will come back here...>
                       lose <Key>
                       msg <The unlocked the magic portal and has now disappeared...>
                       conceal <Book of Keys>
               }
               properties <examine=Tells you anything you want to know about keys...you should 'remove book of keys from odd book shelf'...>
               action <grab> {
                       msg <Now try to use the book.... Its magical....>
                       give <Book of Keys>
               }
               action <take> {
                       msg <Now try to use the book... its magical...>
                       give <Book of Keys>
               }
       end define

       define object <Book Shelf>
               look <This shelf is covered with many various titles, though 3 books jump out at you... Book of Potions, Book of Enemies, and The Story of Magic World...you should 'look at book shelf'....>
               displaytype <Object>
               article <it>
               gender <it>
               container
               opened
               remove <You have removed the book, 'take' the book to add it to your inventory...>
               properties <examine=This shelf is covered with many various titles, though 3 books jump out at you... Book of Potions, Book of Enemies, and The Story of Magic World...>
       end define

       define object <Book Of Enemies>
               look <It Seems to be a book on magical foes... Try to 'remove from book shelf'...>
               take
               speak <Its a book, it doesn't talk...>
               displaytype <Object>
               article <it>
               gender <it>
               parent <Book Shelf>
               properties <examine=It Seems to be a book on magical foes... Try to 'remove from book shelf'...>
               action <grab> {
                       msg <The Book of Enemies has been added to your inventory... try to 'read' it...>
                       give <Book Of Enemies>
               }
               action <take> {
                       msg <The Book of Enemies has been added to your inventory... try to 'read' it...|n>
                       give <Book Of Enemies>
               }
               action <read> msg <...Book Of Enemies...|n|nWritten By:Tony Crusad|n|n                        Introduction|nIn the Magical kingdom, there is a multitude of beings, consisting of (in total) those good and those evil. As an ongoing effort to keep tdhe truly innocent protected, these pages were cut and printed on, for the sole purpose to protect, inform, and teach those willing to aid in the battle to win the age old war. There is in which one way to end this pandemonium we call a world... and that is to use this information I have provided (and that of which others have recorded), to indefinitely end this turmoil, besmirch the bad, and overthrow evil from its fiery thrown.|n|nEvil Dwarf|nDwarves are creatures that dwell in deep, dark, damp, stone areas that they often dig themselves. They pride in the bountiful, beautiful, and incredibly large gems they discover. However, Evil Dwarves have proven to be lazy and selfish. They often occupy the dungeons of wealthy witches and wizards. they hide in corners and t
reat the place as if it is their own, they steal jewels if they can from the above floors. Several even band together to expel the 'invading' humans from their territory.|nStrengths: strong, agile, and always concealing a knife|nWeaknesses: Afraid of the WATERSPELL, dwarves cannot swim. (to cast spell, type 'use wand on evil dwarf')|n|nContinued in the full version....>
       end define

       define object <Book Of Potions>
               look <It seems to be a book on potions... you should 'remove it from the book shelf'>
               displaytype <Object>
               article <it>
               gender <it>
               parent <Book Shelf>
               properties <examine=It seems to be a book on potions... you should 'remove it from the book shelf'>
               action <grab> {
                       msg <You have added the book of potions to your inventory, now try to 'Read' it....>
                       give <Book Of Potions>
               }
               action <take> {
                       give <Book Of Potions>
                       msg <You have added the book of potions to your inventory, now try to 'Read' it....>
               }
               action <read> msg <Book Of Potions|n|nBy: Tony Crusad|n|n........ HEALING POTION..........|n|n*Unfortunately, this is only accessible from the full version, read below this game menu on how you can play the full version!|n|nThank you!|n>
       end define

       define object <The Story of Magic World>
               look <It seems to be the history on "Magic World"... Try to 'remove the story of magic world from the book shelf'....>
               displaytype <Object>
               article <it>
               gender <it>
               parent <Book Shelf>
               properties <examine=It seems to be the history on "Magic World"... Try to 'remove the story of magic world from the book shelf'....>
               action <grab> {
                       msg <You have successfully added the book to your inventory, now try to 'read it'....>
                       give <The Story of Magic World>
               }
               action <take> {
                       msg <You have successfully added the book to your inventory, now try to 'read it'....>
                       give <The Story of Magic World>
               }
               action <read> msg <The Story Of Magic World....|n|nBy: Mary Sa.|n|nMagic World Started out as an idea, to bring fiction to life....|n|nMary Sa had a gift... She was a magical being, one of the few in the world. She wanted magic to be shared and embrace by every one, magical and mortal alike. Though there was a dark force at work. The evil creatures and dark magical beings wanted magic for themselves and will do anything to keep it that way...|n|nNow all good magical beings must unite together and fight for the rights of all creatures who inhabit Magic World!|n...To be Continued!>
       end define

end define

define room <Entry Hall>
       look <You see before you an elegant room, it takes you a second before you realise that this is your new home. The the chandelier's light glistens off the the knights armor and the relics beneath the glass cases, one of which is a *sword. The stone floor is hard and cool beneath your feet, which way do you want to go?>
       west <Library>
       northwest <Lounge>

       define object <Sword>
               look <A familiar ruby incrusted sword...>
               speak <You can't talk to a sword! Try 'Examine' or 'Look'...>
               displaytype <Object>
               detail <A sword rest on a cushion in one of the glass cases.>
               article <it>
               gender <it>
               properties <examine=A familiar ruby encrusted sword...>
       end define

end define

define room <Cupboard>
       look <Its a cramped storage room filled with many magical house hold items.>
       southwest <Lounge>

       define object <Broom Stick>
               look <A magical transportation device...>
               take
               speak <Its a broom stick! You can't talk to it!>
               displaytype <Object>
               detail <A magical transportation device...>
               article <it>
               gender <it>
               use {
                       msg <>
                       msg <I'm sorry, but this is only a preview of the actual version... Read below the game menu to see how you can help to get the full version up ad running! In the full version you can play games and fly to different locations! Thanks!>
               }
               properties <examine=You can use this broom to fly to any magical place!;Destroy=DON'T DESTROY A PERFECTLY GOOD BROOM STICK!>
               action <take> {
                       give <Broom Stick>
                       msg <You now have the broom stick added to your inventory, "use" it to find out more!|n>
               }
       end define

       define object <Key>
               alias <Strange looking Key>
               look <A strang looking key, your not sure where it goes...>
               take
               speak <You can't talk to a key!>
               displaytype <Object>
               detail <A strange looking key, your not sure where it goes...>
               article <it>
               gender <it>
               use on anything {
                       msg <Congrats! You've found a hidden 1 way path to the dungeon!>
                       goto <Dungeon>
               }
               properties <examine=A strange looking key, your not sure where it goes...>
               action <grab> {
                       give <Key>
                       msg <You now have a strange looking key in your inventory, you are not sure where it goes...>
               }
               action <take> {
                       give <Key>
                       msg <The key has been added to your inventory! Its a strange key, you are not sure where it goes...>
               }
       end define

       define object <Wand>
               look <What the heck is your wand doing in the cupboard?!?!>
               take
               speak <Wands can't talk!>
               displaytype <Object>
               article <it>
               gender <it>
               use on <Evil Dwarf> {
                       msg <You used the water spell to kill the dwarf!>
                       give <Staff>
                       conceal <Evil Dwarf>
                       msg <Congrats! You've won the game!>
                       playerwin
               }
               properties <examine=You find your wand laying ontop of one of the boxes in here, i wonder why its in here...;Destroy=YOU CAN'T DESTROY A WAND!|n>
               action <grab> {
                       msg <Your wand has been added to your inventory!>
                       give <Wand>
               }
               action <take> {
                       msg <Your wand has been added to you inventory!>
                       give <Wand>
               }
       end define

end define

define room <Main Tower>
       look <As you climb up through the round trap door from that spiral stair case you gasp at the beautiful paintings and ornate gold trimmed furniture. You look around at all of the beautiful relics in the room... You notice a remarkable window...>
       down <Lounge>

       define object <window>
               look <Its a magnificient window you can 'open'...>
               displaytype <Character>
               article <her>
               gender <she>
               invisible
               container
               open <You opened the window... now try to 'Look out the window'...>
               properties <examine=its a magnificient window you can 'open'...>
       end define

       define object <out the window>
               look msg <Down below the window you can see trees fading into the distance, you realize what a great place this would be to see the sunset... A lake lays within throwing distance of the window, so pretty...>
               displaytype <Object>
               article <it>
               gender <it>
               parent <window>
               invisible
       end define

end define