' A:\lovesong.asl created by QDK 1.0 (Beta 3A) '*** The following line is required by QDK - please do not remove 'QDK-NIP <112> define game asl-version <210> start game author game version <1.0000000000000000000> game copyright <2001 Mihalis Georgostathis> game info default fontname <> default fontsize <0> items startitems <> collectables <> command msg command displaytext command if got or here then msg else msg command if got then msg else msg command if got or here then msg else msg command if got then msg command msg command <> msg command command displaytext command displaytext command exec command msg command exec command exec end define define synonyms talk to; talk; t = speak to examine; x = look at end define define room south description do <~Internal Procedure 88> command <> do <~Internal Procedure 14> command <> command do <~Internal Procedure 36> command if got then msg else msg define object look msg take do <~Internal Procedure 22> end define define object look msg take do <~Internal Procedure 28> end define define object look msg take do <~Internal Procedure 27> end define define object look msg take do <~Internal Procedure 29> hidden end define define object look do <~Internal Procedure 64> end define define object look msg end define define object look msg take msg hidden end define end define define room north south description msg south south south end define define room north south description msg command do <~Internal Procedure 23> end define define room south east west description msg end define define room north west description msg define character look msg speak do <~Internal Procedure 89> gender end define end define define room north description do <~Internal Procedure 90> command do <~Internal Procedure 35> define character look msg speak if here then say else say gender give do <~Internal Procedure 62> end define define character look msg speak do <~Internal Procedure 60> gender give do <~Internal Procedure 63> end define define character look msg speak do <~Internal Procedure 61> gender give msg end define define object look msg take msg end define define object look msg take msg end define define object look msg take msg end define end define define room north south description msg define character look msg speak do <~Internal Procedure 32> gender end define end define define room north east description msg end define define room description if got and here and got then msg else do <~Internal Procedure 95> command do <~Internal Procedure 25> define character look msg speak do <~Internal Procedure 94> gender end define end define define room east description msg define character look msg speak say gender end define define character look msg speak do <~Internal Procedure 72> gender end define define character look msg speak say gender end define end define define room description msg define character look msg speak playerwin <> gender end define end define define room north west description do <~Internal Procedure 75> define object look msg take do <~Internal Procedure 79> end define end define define room north south east description msg end define define room south description do <~Internal Procedure 73> define character look do <~Internal Procedure 103> speak do <~Internal Procedure 107> gender give do <~Internal Procedure 78> end define define object look msg take msg end define end define define room north description do <~Internal Procedure 80> command do <~Internal Procedure 83> command do <~Internal Procedure 81> command exec command exec command exec command exec end define define room south description do <~Internal Procedure 74> command do <~Internal Procedure 110> define object look msg take if here then do <~Internal Procedure 77> else msg prefix end define define object look msg take msg prefix use exec end define end define define room south west description msg define character look msg speak msg <"Ehm... Lucy..." you mumble. There is neither a thing to say to her nor a thing you want to say to her.> end define west end define define room define object look msg take do <~Internal Procedure 109> end define end define define procedure <~Internal Procedure 0> msg end define define procedure <~Internal Procedure 1> msg revealobject end define define procedure <~Internal Procedure 2> hideobject end define define procedure <~Internal Procedure 3> if got then do <~Internal Procedure 20> else say end define define procedure <~Internal Procedure 4> do end define define procedure <~Internal Procedure 5> msg end define define procedure <~Internal Procedure 6> showobject msg end define define procedure <~Internal Procedure 7> msg end define define procedure <~Internal Procedure 8> give say hideobject end define define procedure <~Internal Procedure 9> msg give end define define procedure <~Internal Procedure 10> give hideobject end define define procedure <~Internal Procedure 11> hideobject give say end define define procedure <~Internal Procedure 12> msg revealobject end define define procedure <~Internal Procedure 13> msg revealobject end define define procedure <~Internal Procedure 14> end define define procedure <~Internal Procedure 15> msg if here then msg end define define procedure <~Internal Procedure 74> msg if here then msg end define define procedure <~Internal Procedure 75> msg if here then msg end define define procedure <~Internal Procedure 76> msg showobject lose end define define procedure <~Internal Procedure 77> msg hideobject give end define define procedure <~Internal Procedure 78> say msg say movechar lose end define define procedure <~Internal Procedure 79> msg give hideobject end define define procedure <~Internal Procedure 80> msg if here then msg end define define procedure <~Internal Procedure 81> if here then do <~Internal Procedure 82> else msg end define define procedure <~Internal Procedure 82> displaytext goto movechar lose end define define procedure <~Internal Procedure 83> if here then msg <"Come on, you can't swim with your clothes on. Are you ashamed to take them off?" says Christine.> else msg end define define procedure <~Internal Procedure 84> say showchar msg end define define procedure <~Internal Procedure 85> say if got then do <~Internal Procedure 84> end define define procedure <~Internal Procedure 86> say msg end define define procedure <~Internal Procedure 87> if here then do <~Internal Procedure 102> else msg <"Will you come in or not?" says Christine while she swims, looking your eyes with her goergious green eyes.> end define define procedure <~Internal Procedure 88> msg if here then msg if here then msg if here then msg end define define procedure <~Internal Procedure 89> msg msg <-Goodmorning.> msg <-Little Anti-Christ, satanistic brat, if you ever hear your satanic music on the block I will call the police! NOW LEAVE ME A-LO-NE> end define define procedure <~Internal Procedure 90> msg if here then msg else msg end define define procedure <~Internal Procedure 91> msg msg end define define procedure <~Internal Procedure 92> msg <"Allways ready!" you say in a rough and tough voice> msg <"I can't wait!" says Christine laughing. She liked your answer. And you like her sence of humor and her positive attitude. That's why you are so attracted to her. (Before knowing her you were also attracted to her, but for other, more obvious reasons!)> msg <"See you after the show!" she tells you, as you head to the stage.> goto end define define procedure <~Internal Procedure 93> msg <"I believe I have something to do first!" you say to her.> msg <"Oh well, I can wait a little longer" says Christine a bit dissapointed.> end define define procedure <~Internal Procedure 94> msg <"ARE YOU FUCKING READY TO ROCK' N' ROLL MY FRIENDS?" you shout at the crowd.> msg <"YES" the crowd shouts at you.> end define define procedure <~Internal Procedure 95> msg goto end define define procedure <~Internal Procedure 96> msg if NOT here then msg end define define procedure <~Internal Procedure 97> msg <" Allways ready", you say in a rough and tough tone, causing Christine to laugh. She is so pretty when she laughs (and she often laughs).> msg goto end define define procedure <~Internal Procedure 98> msg <" Well, I've got something else to do first." you say.> msg <" I can wait." says Christine, looking a bit dissapointed.> end define define procedure <~Internal Procedure 99> msg <" Well rock superstar, are you ready to rock the hell out of us?" says Christine cheerfully. She is not mocking you, it's just a question suiting her gay (sic) character. That's why you liked her, when you first hung around with her! ( Before knowing her, you were attracted to her more obvious attributies.)> if got then do <~Internal Procedure 97> else do <~Internal Procedure 98> end define define procedure <~Internal Procedure 100> msg <" Allways ready." you say in a rough and tough tone, which makes Christine laugh. She is so pretty when she laughs (and she allways laughs)> msg <" I can't wait" says Christine laughing> msg goto end define define procedure <~Internal Procedure 101> msg <" Well... I've got something else to do first." you say> msg <" Well... I can wait!" says Christine a bit disappointed.> end define define procedure <~Internal Procedure 102> msg <" Well rock superstar, are you ready to rock the Hell out of us?" says Christine cheerfully. It's her gay character which attracted you after hanging out with her. (Before knowing her, it was her more obvious attributies you liked.)> if got then do <~Internal Procedure 100> else do <~Internal Procedure 101> end define define procedure <~Internal Procedure 103> msg if here then msg if here then msg if NOT here then if NOT here then msg end define define procedure <~Internal Procedure 104> msg <"Allways ready!" you state in a rough and tough voice, which makes Christine laugh. She is so pretty when she laughs and she laughs all the time.> msg <"I can't wait!" says Christine still laughing.> end define define procedure <~Internal Procedure 105> msg <"Well... I 've got something else to do first." you say > msg end define define procedure <~Internal Procedure 106> msg <"Well rock superstar, are you ready to rock us all?" says Christine cheerfully. It's her cheerfull character who attracted you after talking with her (Before that, it's obvious WHAT attracted you!).> if got then do <~Internal Procedure 104> else do <~Internal Procedure 105> end define define procedure <~Internal Procedure 107> if got then say if here then if NOT got then say if NOT here then if NOT here then say if here then do <~Internal Procedure 106> end define define procedure <~Internal Procedure 108> msg goto end define define procedure <~Internal Procedure 109> msg moveobject give end define define procedure <~Internal Procedure 110> msg moveobject lose end define define procedure <~Internal Procedure 111> say msg end define define text end define define text You speak in a trembling voice, not believing your luck. -Did you enjoy the gig? -Well, I liked you playing. I liked the song you wrote... or it wasn't yours? U know, I'm not a big rock fan. -It was written by me! And do you happen to know to whom it was dedicated. -I only know that many girls would like this song being dedicated to them. -Would you? -Offcourse! Especially if it was written by a guy like you! You lose the ground under your feet. Your dream finally comes true. She likes you! -You know, the song was dedicated to you. You are the beautiest girl here. I LOVE YOU! Christine looks suprised. -I suspected that. But I thought I was wrong because... I LOVE YOU TOO. What you 've done today was very romantic. Enough with the words! There are many more things to say, but ther is enough time for them. Nothing else matters right now, rather than showing your love. You kiss her. Your carress is long and full of pation. You stop and hear David, Frank and Anne claping and cheering. Friends can be so immature some times but who cares! You and Christine kiss each other again, ignoring them ********* *THE END* ********* end define define text end define define text Well, the band starts playing your song. before starting singing, you dedicate it to " the beautiest girl in here". Everybody seems to like your song, some bang their heads, some jump up and down and some couples hug eachother. You look for Christine, but she is nowhere. You hope she listens to you. After the song, you continue with some covers from Black Sabbath, Metallica, Rolling Stones, Nirvana etc. After the gig, you go backstage. end define define text You start removing your clothes. After you are naked, you get by the lake. Christine comes by you and kisses you. She says "Wake up!". Weird, you are not asleep. She shakes you for a while and then see tells you to wake up again. You decide to jump in the fire... ehm the lake (With Christine swiming in it, it will be a hot experiance.). You jump with a big Splash and... Good morning. Your mom is by your bed, holding a bucket. It's obvious she threw water on you to wake you up. She tells you she has to go and you must go to the gig. Oh shit, today is the day. You have to write that song too. Oh shit, you don't feel inspired, but you know that " this day is gonna be the day I'll sing the song to you" (Don't listen too much to Oasis, you are a hard-rocker and metalhead). "Slowly you wake, slowly you rise" (Even the dragons will cry for you if you don't write the song) and try to settle down after this dream. Was it prophetic? Will you only have hot experiances with Christine in your dreams. Nevermind, you have to give a try. end define define text Some info about the charming, intelligent, talented and offcourse VERY moderate young single male who wrote this game (a.k.a. me). My name is Mihalis Georgostathis, I was born in Greece 18 years and 4 months ago (When reading this it would be more months and more days ago). This is my first creation on adventure gaming, both started and finished. What am I talking about? Well, I was inspired to write this game spring 2000. I started writing it during summer 2000, but got bored, faced too many bugs, thought of another game to make (Metal camp) in which I faced even more bugs and dumped it too. During Automn, Winter and Spring, I had ideas, but not the time to complete them. During summer 2001 I plan to complete the "Hero of the day" adventure game. While doing that, I have taken a look at my former, incomplete ideas and had a flash to work on this one. I erased some parts of the game, added other ones and FINALY finished a rough version of it! This happened in July. I still had to re-write descriptions of the old rooms, playtest for bugs, add information, help texts and credits. This ain't a "history of the game" section, but an introduction to my future fans, who will worship me like the highest diety ever. Well I was born somewhere in Greece, lived my first 18 years and 4 months in a little village in Laconia, a Greek county. It's between Gythio and Monemvasia (Tourist attractions). I am not a text adventure fan, but I just like to tell stories. Allthough this game indicate my romantic side, I happen to be a die-hard metalhead (This text is written under the influence of Metallica's "Ride the Lightning" CD). What else should I say? Ah yes! The BILLIONS of single female women who will fall in love with me and any other who wants to contact me, can e-mail me at mihgeorg@hotmail.com. Please forgive me, but me English are not fluent enough. I pray that some mistakes won't ruin your gaming experience. Hope you enjoy the game! Saturday, August (not Hangar) 18 2001 end define define text Have you ever heard of a Sweedish group called Bathory, where only one person does all the job. Well, so happens with this game. I wrote it and programmed it all by myself, I 've done all the playtesting alone (The last final -beta game I had playtested now won't run and I have to write it from the scratch. Am I unlucky or what?). Well, since I have to thank somebody, I want to thank my family, because they didn't bothered me, when making the game, every one involved in making Quest game engine, PC Master magazine, for first introducting me to IF and everyone behind the annual IF competition. Another big thanks goes to the groups I listened to, while authoring. end define define text First of all, there is no hint option, because the game is easy. You can move through the game using the commands N, S, E, W, or the direction buttons. You can LOOK AT something, or simply X it, TAKE it, SPEAK TO someone, or TALK TO him/her or simply T character. You can GIVE an object to a character, USE something WITH something and finally PLAY something. There are also other ommands, some of witch are alternatives to the above commands and some others will be given to you by other characters. You can also type ABOUT, AUTHOR, CREDITS for additional information. That's all folks. end define