10 REM ================================ 11 REM Ghost of the fireflies 12 REM Written for the 2007 IFComp 13 REM By: Paul Panks (Master of Spunk) 14 REM dunric@yahoo.com 15 REM ================================ DIM m(100,6),no$(100),ao$(100),ao1$(100),ao2$(100),ob$(100),ob2$(100),vb$(50),lo(100),fl(100) DIM es$(122),rn$(150),rm$(150),de$(100),du(100),p(100),dp$(20) DIM weight(100),lc(100),dm(100),vis(150),w$(50),al$(50),bl$(50) DIM hp AS integer DIM hm AS integer DIM mp AS integer DIM mm AS integer DIM ex AS integer DIM gd AS integer DIM ic AS integer DIM im AS integer DIM qs AS integer DIM rm AS integer DIM dy AS integer DIM ac AS integer DIM lt AS integer DIM wd AS integer DIM fd as integer DIM wa as integer DIM sc as integer DIM rh as integer COLOR 1,8:CLS:COLOR 15,1 REM ----------------------- REM ---> Version 1.01s <--- REM ----------------------- REM <><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><> REM Begin: Map of Ghost of the fireflies REM Branch2-- Hut1 Sugawara no Michizane's Chamber35 REM | | REM Old Tree3 -- By the pond4 Sky Castle Ara-Mitama33--Great Hall34 REM | | REM 30LM --Lush Meadow5 SL32 REM | | REM LM6 -- LM29 Skyladdder31 REM | | REM By the road7 -- Road8 -- Road9 -- Road10 -- Hillside22 -- HS23 -- Cliff24 REM | | REM Intersection15-- Road14-- Road13-- Road12-- Road11 Waterfall25--River26--R27--Altar of Seppuku28 REM | REM Old Forest16 -- OF17 -- OF18 -- OF39 -- OF40 -- OF41 -- OF42 REM | | REM Tree of Eternal Rot20--OF19 -- Tree of Eternal Life21 OF43 -- OF44 -- Way of Eternal Darkness45 REM | | REM The Oibara Inn36--Kirigami Factory37 WOED46 WOED47--WOED48 REM | | | REM Guild of Tenrikyo38 | WOED49 REM | REM Mizuko Hall50 REM (echoes of the water children) REM End: Map of Ghost of the fireflies REM <><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><> SN$="The Singing Nobunaga's are here playing, entertainment for the crowd." SN2$="The lead singer, dressed as Oda Nobunaga, sings a melody,'We want your head on a platter!' He looks at you " SN2$=SN2$+"and smiles evilly. 'That you're a beatle don't matter!'" GOTO 16 rm1: PRINT "Within the sacred hut, in the forests of Atsuta Jingu" PRINT "The walls of this hut are made from a mixture of mud and straw. As you gaze PRINT "at your home, you see the mandala upon the eastern wall, showing the islands PRINT "of japan with the heavens above." COLOR 14,1:PRINT"Troll Gomar-san is usually here, composing Haiku about" PRINT "cherry orchid blossoms." COLOR 15,1 PRINT "Type 'help' for a list of commands. And by God, do read them!" RETURN rm2: PRINT "On a branch, atop the ancient Camphor" PRINT "You are perched high atop the landscape on a branch of the ancient Camphor. PRINT "The wind blows in your face, casting the last rays of light from your stomach PRINT "to the leaves, shedding gold upon their shattered world. For they are like PRINT "mirrors, radiating the world outward towards itself." RETURN rm3: PRINT "By the ancient Camphor, just yards from a small pond" PRINT "You stand by the old, twisted Camphor near a vast meadow. Looking eastward, PRINT "you can see a small pond glimmering in the fading rays of the evening sun. PRINT "You can climb the tree by simply going up." RETURN rm4: PRINT "At the pond, near a lush meadow" PRINT "As you gaze at your reflection, the color of the pond shifts from blue to PRINT "green. You feel the wind change, as the sun sinks below the horizon to the PRINT "west. Evil kami have infested this place, for the very life force -- chi -- PRINT "has ebbed away slowly, like so much rotted fish." RETURN rm5: PRINT "In a lush meadow, south of a small pond" PRINT "Ages ago, this meadow was once the life force of this world. Now, in this PRINT "time of greatest strife, an eternally damned warrior stalks the land, threat- PRINT "ening to thrust it into perpetual darkness. It is the restless spirit of Oda PRINT "Nobunaga, clan warrior of Japan and every hero's goat." RETURN rm6: PRINT "Southern meadow, north of the main road" PRINT "At the end of this meadow lies a war-torn road, ravaged by the blood of men PRINT "and the broken kami of an enraged world gone mad. Whistling in your ear are PRINT "the faint cries of the forgotten kami, crying out in the darkness for their PRINT "betrothed master, known as Ika-ru." RETURN rm7: PRINT "On a war-torn road, heading east" PRINT "You are on a war-torn road heading out of a lush meadow. The ground is PRINT "stained in the eternal blood of countless centuries of violence. Dust and PRINT "wind permeate the area, as the wind chokes your vision at every possible PRINT "angle. The road continues for miles to the east." RETURN rm8: PRINT "On a war-torn road..." PRINT "Stopping to adjust your blade, you notice fresh stains of blood raining down PRINT "from the clouds. Someone has been slaughtered this eve, for you can sense PRINT "their twisted spirit echoing endlessly in the rustling winds. The path ahead PRINT "is torn and chasmed, much like the world afore and behind." RETURN rm9: PRINT "Middle of a war-torn road (with a posted sign that reads: 'os tolos que nos PRINT "escolheram últimos sabem não melhor do que um asno')" PRINT "You stand at the middle of a war-torn road. The creators of the dreaded PRINT "bilateral confabulation could never have envisioned this, but the mutilated PRINT "body of one particular vagarant, a man known as 'the unknowable', awaits his PRINT "fate as maggots eat upon his flesh. For they care not what he writes, and so PRINT "their scribes count their cherries and are poorer still." RETURN rm10: PRINT "On a war-torn road, west of a rolling hillside" PRINT "The crucified bodies of vagarants line the road here, much to the dismay of PRINT "this walker. The smell is repugnant, almost overpowering to the senses of a PRINT "lesser mortal. But you walk upon the ground and see nor smell not; for you PRINT "are the Female Goddess, impervious to such mindless morphemes of reckoning." RETURN rm11: PRINT "On a war-town road, south of the rotting flesh" PRINT "The road turns here, heading towards a larger expanse of land in front of PRINT "you. There is an intersection a quarter mile up the road, and in the middle, PRINT "a long and dark forest." RETURN rm12: PRINT "On a war-town road, heading towards an intersection" PRINT "As you walk upon the road, a piercing scream envelopes your being, sucking PRINT "dry the very life of your spirit. You hunker down in pain, only to be brought PRINT "back up again by a merciless, pounding wind. For it knows not your endless PRINT "screams nor your destiny, as you contemplate the sweet seppuku and release PRINT "from this forgotten world." RETURN rm13: PRINT "Middle of a war-town road (heading west)" PRINT "A blissful scene unfolds: the vaunted kami, fresh from their slumber, amble PRINT "up towards your feet as you begin stabbing your shoulders. The blood squirts PRINT "out, and the kami lap it up like the dogs they pretend to be. They frolick PRINT "and suckle at your breasts, savoring the fresh smell of blood and your life PRINT "force with it." RETURN rm14: PRINT "At the end of the road (near an intersection)" PRINT "The demented horrors of the road subside, giving way to an intersection just PRINT "ahead. The rot of the flesh surrounding you stops and is replaced by the song PRINT "of the kami, singing lullabies to a restless wind. The bleeding has stopped, PRINT "but only momentarily, as your shoulders have recovered (for the time being)." RETURN rm15: PRINT "At the intersection between worlds (this and there, we and they)" PRINT "You stand before the intersection of three different worlds, as your spirit PRINT "is pulled and parted one way or the other with rampturous might. Entire armies, PRINT "from Xerxes to Napolean, could never stop the torture of a world gone madly PRINT "insane. The old world stretches to the south within the ancient forest, await- PRINT "ing your blood. Dare you give it?" RETURN rm16: PRINT "In the ancient forest, Atsuta Jingu" PRINT "The bloodied, mangled body of Jesus of Nazareth sits by the road here, stabbing PRINT "himself with thorns from his blood-soaked crown. 'Why? Yeshua! WHHHYYYYY??!!' PRINT "he moans bitterly. You pay him no mind, for he is a fool, lost in the shadows PRINT "of a forlorn world. The forest stretches for miles to the east, shimmering in PRINT "the hallowed darkness with a kind of perverted, magical ecstacy." RETURN rm17: PRINT "Atsuta Jingu, west of the main entrance" PRINT "The mischevious kami, ever present, mock the bloodied corpse of Jesus by haunt- PRINT "ing him, saying softly,'You fool! You dire little fool!' They repeat the pro- PRINT "nouncement, over and over again, as the last drops of blood fall from his now PRINT "silent forehead. 'We took him from this world,' a Kami says to you as you PRINT "pass. 'We made him what he is: a rotting corpse!' The road through the forest PRINT "continues east." RETURN rm18: PRINT "Atsuta Jingu, middle forest" PRINT "You pass by the bloodied remains of The Christ and further into the forest of PRINT "this war-torn world. Two trees are present to the south, paralleling the path PRINT "about it (but you can't reach it from here). These are the trees of Eternal PRINT "Life and Eternal Rot, for they have always been here, soaking up the blood of PRINT "tired men, gone long from this world. The path continues east, while a lone PRINT "Roman centurion watches. Silently." RETURN rm19: PRINT "Atsuta Jingu, north of the Obibara Inn" PRINT "You are standing directly north of the fabled Obibara Inn. It is here where PRINT "the spirits dwell, playing Go and challenging mortals to a Dance of Death. PRINT "Smoke rises from a chimney ahead, presumedly with the burnt ashes of decaying PRINT "flesh, for the stench is most foul in these woods. The Tree of Rot stands to PRINT "the west of here. The area looks ripe for a Sake Melon Tree." COLOR 11,1 if sk=19 then PRINT "A Sake Melon Tree is planted here.":PRINT"To harvest, type 'harvest tree'." COLOR 15,1 RETURN rm20: PRINT "By the Tree of Eternal Rot, near the Oibara Inn" PRINT "You stand by the troubled Tree of Rot, a forgotten epic in an epicless age. PRINT "Its roots are butchered and torn, showing the death of the world upon itself, PRINT "stained by the blood fallen from clouds high above. The Tree of Rot moans,'I PRINT "never see the sky! The world took it away from me! HEEEELLLLPPPPP!' You feel PRINT "for the tree, for it is much like you, wandering in darkness where there is PRINT "ample light." RETURN rm21: PRINT "By the Tree of Eternal Life" PRINT "You sit by the Tree of Eternal Life, listening to its life force (chi) flow- PRINT "ing through it. It sounds like a river, moving about the ground in harmony PRINT "with the land. And as the kami knows, so it knows, too. The Tree looks down PRINT "upon you with a sad face, saying gently,'The world has abandoned me. I am the PRINT "lost keeper of the ways of spirit, but they mock me still! Why?' But you have PRINT "no answer for it, catching only tears from the sun." RETURN rm22: PRINT "By a long hillside, sloping upward" PRINT "You are walking up a long hillside which slopes steeply towards a towering" PRINT "cliff. A meandering river, far below your vision, appears to flow eastward" PRINT "into a vast and lush green valley several miles away. The hillside continues" PRINT "to the east before terminating at the edge of the cliff. The road to the" PRINT "west of here will take you further across the landscape, but where it" PRINT "leads is not immediately known to you (the area is blanketed in a thick," PRINT "dense fog, rising upward)." RETURN rm23: PRINT "Walking across the hillside, heading up" PRINT "You are ascending a hillside just east of a tall cliff. The climb is made" PRINT "excruciatingly more difficult by the absence of any discernable path. This" PRINT "is unfortunate because your legs are beginning to tire somewhat. There is" PRINT "at least a distance of 300 feet between the appex of the cliff and your" PRINT "present location. Perhaps it would be better to turn back now and save" PRINT "yourself prolonged exhaustion." RETURN rm24: PRINT "At the edge of a tall cliff, looking down" PRINT "You stand at the edge of a tall cliff. Looking down, you can see a" PRINT "raging waterfall as it cascades down several hundred feet. A pair" PRINT "of cherry trees drop their flowering pink blossoms in a rain-" PRINT "like fashion down towards the bottom of the cliff. The ground" PRINT "and river at the bottom of the waterfall is awash in a swirl" PRINT "of pinkish frivolity. The dance of these tumbling leaves continues" PRINT "downstream for many miles on end." RETURN rm25: PRINT "By the waterfall, at the bottom of a tall cliff" PRINT "You are amazed by what you see here! An endless rain of water and" PRINT "cherry blossoms fall down from the sky, showering both you and the" PRINT "ground with a flurry of pink ecstacy. The sight is truly magical" PRINT "to behold, for you feel as if the Gods themselves have painted" PRINT "this scene straight out of an animated movie. The water falling" PRINT "down from the cliff crashes into jagged rocks at the base of" PRINT "the formation, where the twisted, swirling chi of life begins" PRINT "with the swimming of orange guppies. Downstream of this" PRINT "place (to the east) the river flows towards a valley opening up" PRINT "in between two large mountains: The Atsukra, and the Manga-ru." if m(25,3)=0 then color 11,1:?"A transparent, multicolor wall glows to the east." if m(25,3)=1 then color 11,1:?"The crumpled remains of a transparent wall stand here." RETURN rm26: PRINT "By the bank of a swiftly moving river (150 feet)" PRINT "You are standing approximately 150 feet downstream of a large" PRINT "waterfall. The river moves swiftly on by towards the east." PRINT "The area is devoid of much vegetation, thanks in part to the" PRINT "rocks and cliffs towering overhead. A pair of cherry trees" PRINT "grow atop the cliff, however, as they drop hundreds of leaves" PRINT "towards the bottom of the waterfall. It is a beautiful sight" PRINT "to see, as mystical a scene as can be imagined unfolding from" PRINT "within the brush strokes of a master's painting." RETURN rm27: PRINT "By the bank of a swiftly moving river (300 feet)" PRINT "You are 300 feet downstream of a large waterfall. The river" PRINT "continues towards the east. The area is quite sparse and the" PRINT "vegetation is almost entirely bare. There is nothing here to" PRINT "examine that is utterly remarkable or otherwise useful for" PRINT "the player to see." RETURN rm28: COLOR 7,1 PRINT "Before the Altar of Seppuku, in the river of watery life" PRINT "A stone altar about ten feet long and five feet wide sits by the side of" PRINT "the flowing river. A knife lays upon it, waiting for the next user to" PRINT "come along and offer themselves up to the Gods of Seppuku. The dagger" PRINT "is made from emerald and jasper, sharpened to a razor-deadly point. At" PRINT "the base of the altar is a Japanese scroll that reads,'The Forty-Eighth" PRINT "Ronin awaits his fate here.'" COLOR 11,1 PRINT "You pick up the blade and hold it lovingly in your own hands." PRINT "'Oh, but if only sweet seppuku would come to me now! I would be" PRINT "but a King among Gods!'" COLOR 15,1 PRINT "Knowing you have not the robes nor the proper death poem, however, you" PRINT "set the blade back down, for it is not yet your time to commit seppuku." RETURN rm29: PRINT "In a lush meadow, heading east (at the termination point)" PRINT "The meadow heads east from here. However, tall mountains block further" PRINT "passage without a mule. You will need to go another way to reach them." PRINT "The only exit is back west." RETURN rm30: PRINT "In a lush meadow, heading west (at the termination point)" PRINT "The meadow continues here, but majestic purple mountains block your" PRINT "path west. A mule does no good because the terrain is so rocky and" PRINT "steep. The only viable exit lies to the east." RETURN rm31: PRINT "At a mysterious ladder, heading upward into the clouds" PRINT "You have reached a curious sight: a mysterious ladder leads up into" PRINT "the clouds high above. Who placed it here or why a ladder is suddenly" PRINT "at this location remains a great mystery. Nevertheless, you can climb" PRINT "the ladder easily by typing 'go up' (there is no 'climb' verb in this" PRINT "particular adventure). Where the ladder goes, however, depends" PRINT "entirely on you!" RETURN rm32: PRINT "Climbing a ladder in the sky" PRINT "You are climbing a ladder high up in the clouds. You have reached" PRINT "the mid-point of your journey and stop to rest. Although you are" PRINT "not accustomed to such heights, you feel remarkably at ease here!" PRINT "The wind blows gently against your exoskeleton, filling it with" PRINT "life and vigor. As you gaze at the clouds around and about you," PRINT "birds fly by in a sunlit sky. The scene is quite remarkable" PRINT "indeed! You can continue going up or back down at this point." RETURN rm33: PRINT "Before the Sky Castle Ara-Mitama, elevation 42,850 feet" PRINT "At last, you have reached the Sky Castle Ara-Mitama, at elevation" PRINT "42,850 feet. The tallest mountains of Japan pale in comparison to" PRINT "this heavenly realm. The castle itself is beyond description --" PRINT "yes, it can be described, but what is ineffable is but a small" PRINT "attempt at defining glory. Let us leave it at this: the castle" PRINT "has all the splendor and glory of ancient Rome, but with" PRINT "Japanese perfections. Vermillion columns rise hundreds of" PRINT "feet into the air, while a myriad of hanging gardens and" PRINT "plants dominate the landscape. Babylon was but a small" PRINT "freckle compared to the splendor of this, Ara-Mitama!" RETURN rm34: PRINT "Within the Great Hall of Ara-Mitama" PRINT "You find yourself within the Great Hall of Ara-Mitama. It is" PRINT "beautifully decorated in all the adornments of the period." PRINT "From ancient Japan to the 19th century, everything is here" PRINT "and it is but a feast for the eyes! The hall extends upward" PRINT "several feet, towering high above you. It continues north" PRINT "into the antechamber of Sugawara no Michizane, sworn" PRINT "archenemy of Camphora (that's you)!" RETURN rm35: PRINT "Sugawara no Michizane's Chamber" PRINT "You are within the chamber of Sugawara no Michizane. Surprisingly," PRINT "he is seated at a long table, awaiting your arrival. As you step" PRINT "through the door, he arises slowly from his throne and unsheaths" PRINT "a long katana behind it. He advances cautiously towards you, but" PRINT "then stops in his track abruptly, laughing hysterically. You seem" PRINT "to be the reason for his laughter! 'Fool!' he cries out, mocking" PRINT "you. 'When Raiythius told me you were coming, I never dreamed he" PRINT "would send a beatle! BWHAHAHAHAHAHAHA!' For a brief moment, the" PRINT "laughter ceases, but then continues up again. 'Raiythius may have" PRINT "known little about you, but his betrayal is nonetheless complete!" PRINT "Prepare to DIE, beatle!' His eyes turn crazy, and he charges at" PRINT "you in madness! 'And die...you shall!'":PRINT COLOR 11,1 PRINT "[ More ]" COLOR 15,1 wt20: a$=inkey$:if a$="" then goto wt20 RETURN rm36: COLOR 7,1 PRINT "At the Oibara Inn, deep within Atsuta Jingu forest" PRINT "As you step in from the cold winter night, the ambience of the inn takes" PRINT "full hold of your senses. Up on stage are the infamous Singing Nobunaga's, a" PRINT "local musical band from Nagoya (also in Aichi Prefecture). The lead singer" PRINT "is clothed in the garb of Oda Nobunaga, famed warrior who destroyed the" PRINT "Ashikaga shogunate and helped unify the Owari Province. As a firefly, you" PRINT "you have no place to sit, but you do notice straw mats layed out upon the" PRINT "ground (next to tables where Japanese concubines serve tea). An arquebus PRINT "rests on a wooden plaque above the stage." COLOR 10,1 PRINT "A concubine bartender is normally here serving drinks. Type 'menu' for a list." COLOR 14,1 PRINT "If you have previously died, type 'read poem' to see your death poem." COLOR 15,1 PRINT SN$ COLOR 11,1 IF victory=1 then GOTO finalv2 if aa<>4 then PRINT "[ Listen to the music? y/n ]":else if aa=4 then PRINT "[ More ]" wt8: a$=inkey$:if a$="" then goto wt8 if a$="y" or a$="Y" then goto termite if a$="n" or a$="N" then goto jimbu if a$<>"y" and a$<>"Y" and a$<>"n" and a$<>"N" then goto termite goto wt8 termite: GOSUB wyatt if aa=0 then aa=1 COLOR 11,1 PRINT "The lead vocalist sings a melody,'Spread your militarism over the land!" PRINT "'Enryakuji must burn by Nobunaga's hand!'" COLOR 15,1 PRINT "The band plays a quick riff, much to the gathering's general delight:" COLOR 11,1 PRINT "'Nagashino was just another campaign / In preserving Takeda's eternal pain!'" GOTO jimbu END IF if aa=1 then aa=2 COLOR 11,1 PRINT SN2$ GOTO jimbu END IF IF aa=2 then aa=3 COLOR 15,1 PRINT "The lead member of the Singing Nobunaga's throws a knife at your head!" PRINT "Luckily, it misses by only inches..." COLOR 11,1 PRINT "The vocalist smirks. He switches tune and the band sings along,'The beattle's" PRINT "death is slow and steady / He'll be on a plate before supper's ready! Oh cook" PRINT "the fiend and simmer him slow / Poke out his eyes and watch them grow! /" PRINT "Splatter his brains all over the floor! / They'll be cheering for more before" PRINT "we're out the door!'" goto jimbu END IF if aa=3 then aa=4 COLOR 15,1 PRINT "The Singing Nobunaga's appear to be on a break right now." COLOR 11,1 PRINT "You'll have to come back later to hear them play." end if jimbu: RETURN rm37: COLOR 7,1 PRINT "At the Kirigami Factory, east of the Oibara Inn" PRINT "Eight men are seated at a long table, cutting paper into various Kirigami" PRINT "shapes and symmetries. The oldest man, named Li Lien-chieh With A Long Beard," PRINT "proudly shows you his latest design. 'This is the shape of an orchid blossom" PRINT "freshly fallen upon the ground!' You gaze it at intently and are amazed at" PRINT "the old man's level of detail, for he is Japanese and a true master." COLOR 10,1 PRINT "Bruce Lee is often here selling his wares. Type 'list' to see what's in stock." COLOR 11,1 if ms=0 then ms=1 PRINT "'How did you make this?' you ask him, curious to know the answer." COLOR 15,1 PRINT "But the man simply shakes his head and continues cutting. 'A master does not" PRINT "reveal his secrets to an unknown student. Introduce yourself properly and I" PRINT "just might show you how it is done!'" GOTO sake END IF PRINT "'Yes, you've showed me this before, Li Lien-chieh.' you remark." COLOR 10:PRINT "Raiythius laughs. 'This old man is S-E-N-I-L-E!'" COLOR 15,1 sake: RETURN rm38: COLOR 7,1 PRINT "At the Guild of Tenrikyo, just south of the Kirigami Factory" PRINT "A woman named Miki is here, smoking opium. She looks about 40 years old and" PRINT "deeply frustrated with her life. 'I am inventing a new religion,' she tells" PRINT "you. 'The Tsuki-Hi has spoken to me, saying,'I am the general of Heaven. I am PRINT "the true and original God.' She hands you some opium. 'Would you like to see" PRINT "what only these eyes have seen but now?'" if bb=0 then bb=1 COLOR 11,1 PRINT "You refuse the opium but ask the woman about her guild." COLOR 15,1 PRINT "She says,'My guild is called Tenrikyo. I hope to headquarter my sect in" PRINT "Tenri, which is located in Nara Prefecture. My goal is to attain yoki gurashi," PRINT "which means life with happiness. Juzen-no-Shugo is what I am presently teaching" PRINT "to the students in my guild.'" GOTO jimbu2 END IF if bb=1 then bb=2 COLOR 11,1 PRINT "You accept the opium and lay down beside Miki. 'I need a hit,' you say to" PRINT "her in grief. 'That damn dog is trying to get me killed!'" COLOR 15,1 PRINT "Miki kisses your forehead and then looks distantly into your tired eyes. 'If" PRINT "you wish to recuperate, I may be of some assistance.' She smiles sweetly," PRINT "batting her eyelashes and kissing your ears with the sensual pleasure" PRINT "of a patient concubine." COLOR 11,1 PRINT "Although it takes awhile, and with much experimentation, you manage to have" PRINT "romantic intercourse with her." COLOR 15,1 PRINT "'Mmmmmm,' she moans. 'I never knew beattle tasted soooo good!'" GOTO jimbu2 END IF COLOR 11,1:PRINT"You smile gently at your new lover, known as she knows, for the" PRINT"secrets of the Universe have unfolded previously -- like a flower in" PRINT"full blossom." jimbu2: RETURN rm39: PRINT "Atsuta Jingu, middle forest" PRINT "You stand in the middle forest of Atsuta Jingu. The wildlife and" PRINT "vegetation is quite abundant here. Soft patches of light from the" PRINT "canopy above shine through the darkness, penetrating the ground" PRINT "like the sunlit swords of the firefly. There is an ageless wisdom" PRINT "within this place, as if the trees and the moon know the same" PRINT "world as the kami spirits, who dwell behind the rocks and rotted" PRINT "earth of this dimension. The Sun-Moon spirit peeks out from" PRINT "behind a rock, for he is the Master Kami, 'God of the Forest" PRINT "and All Things.' For his is the spirit of The Great One, a" PRINT "faceless, nameless spirit who gave upon this world the Breath of" PRINT "Life itself!" RETURN rm40: PRINT "Atsuta Jingu, middle forest" PRINT "The forest stretches out for several hundred yards ahead, shining" PRINT "in the darkness like a magical ring, crafted from the burning pits" PRINT "of the firefly. Beams of light filter down from the trees below," PRINT "casting the ground in a golden glow. The creatures of the forest" PRINT "dance and frolick about to a silent wind of eternal life. They" PRINT "are grateful for their place in this world, unlike humanity which" PRINT "bleeds the world dry without so much as a tear (or a cry)." RETURN rm41: PRINT "Atsuta Jingu, near the eastern edge of the forest" PRINT "You stand between this world and the next, upon the boundary of" PRINT "ancient kami spirits and the mortal realm. The magic about this" PRINT "place is extraordinary, almost intoxicating. As the kami dance" PRINT "about and play their wind flutes, the bunny rabbits and frogs" PRINT "hop about in playful unison. For their world is not crushed and" PRINT "harvested like the materialism of the Earth Plane, a world of" PRINT "so many lies and deception. They are the Yin to every Yan," PRINT "part and parcel of the Flow of Life (the chi)." RETURN rm42: PRINT "Atsuta Jingu, at the eastern edge" PRINT "You have reached the eastern edge of Atsuta Jingu. A dotted red" PRINT "line separates this world from the 'other' world. You dare not" PRINT "cross it, however, as a swirling, choking mist sucks the life" PRINT "right out from under your very feet! A posted wooden sign" PRINT "reads: 'WARNING! Crossing this line will result in immediate" PRINT "and painful spiritual torment!'" RETURN rm43: PRINT "Atsuta Jingu, near a dying woodland" PRINT "You have crossed into the dying woodland opposite the glorious" PRINT "Atsuta Jingu, an expansive forest covering several miles of" PRINT "woodland, grass and hills. The trees in this section of the" PRINT "forest are entirely bare, however, as the rotted remains of" PRINT "a dying woodland open up just ahead. There is no exit point" PRINT "beyond these woods. You will have to double back to reach" PRINT "the rest of Atsuta Jingu, for the forest stops abruptly" PRINT "in a few feet." RETURN rm44: PRINT "Atsuta Jingu, at the termination point" PRINT "You have reached the termination point of Atsuta Jingu. The" PRINT "forest stops abruptly here at a dying woodland. The path" PRINT "turns especially dark here, leading into the dreaded" PRINT "'Way of Eternal Darkness.' Despite your ever present light," PRINT "even fireflies such as yourself require help to see" PRINT "clearly. An evil black magic pervades throughout, a cause" PRINT "for obvious concern to even the most experienced of" PRINT "adventurers. You may need Raiythius here." RETURN rm45: PRINT "In a dying forest, the Way of Eternal Darkness" PRINT "Raiythius looks up at you as you enter into the Way of Eternal" PRINT "Darkness. He says quietly,'My bones shiver here. I do not" PRINT "feel safe in this forest.' But you pay him no mind, for your" PRINT "heart has already decided: you must go on forward into this" PRINT "'arena of the damned.' For it is your destiny! As the twisted" PRINT "magic takes hold upon your soul, a piercing scream shatters" PRINT "your ears and splits your consciousness into one million" PRINT "tiny pieces. Then, before you can stand it anymore, they" PRINT "re-assemble quickly, only to repeat the process over and" PRINT "over again! 'What manner of magic haunts this place?' asks" PRINT "Raiythius. 'I feel like my soul is being discharged endlessly" PRINT "from my body!' RETURN rm46: PRINT "In the middle of a dying forest" PRINT "You scream in pain, as an invisible force shatters your soul" PRINT "again...and again...and again once more! Raiythius has crumpled" PRINT "to the floor in agony, howling and scratching at the tireless" PRINT "foe who persists in tormenting him. 'Stop this pain!' he" PRINT "barks. 'Who torments me so?' You can certainly feel his tired" PRINT "state, as the life force (chi) floats in and out of his" PRINT "nostrils like a diseased beast, ravaged by one thousand worms." PRINT "'This is insanity!' you yell, to no one in particular. 'Stop" PRINT "this madness at once! I command thee!' But the spirits only" PRINT "laugh at you and continue their slaughter of your golden" PRINT "soul. When it becomes too much, only sweet seppuku" PRINT "will release the spirits from their tormented ways!" RETURN rm47: PRINT "Dying woodland, middle forest" PRINT "This room was never implemented. Reduced total from 50 to 47. RETURN rm48: PRINT "Dying woodland, eastern edge" PRINT "This room was never implemented. Reduced total from 50 to 47. RETURN rm49: PRINT "Dying woodland, termination point" PRINT "This room was never implemented. Reduced total from 50 to 47. RETURN rm50: PRINT "At the Mizuko Hall, just beyond the woods" PRINT "You are within Mizuko Hall, an ancient structure among the" PRINT "trees. It is deep within the forest for a reason -- this" PRINT "place is eternally haunted by the demented screams of the" PRINT "water children, slain by goblins. As you look around at" PRINT "your surroundings, you can see the wisping tails of the" PRINT "ghostly specters about you as they fly around the hall" PRINT "in an endless procession of torment. They know nothing" PRINT "of their release from this world, and it might just" PRINT "remain that way for centuries to come!" RETURN 16 CLS PRINT "Ghost of the fireflies" PRINT "By: Paul Panks (dunric@yahoo.com)" PRINT "Written for the 2007 IFComp" PRINT PRINT "It is said that when Japan was formed, four" PRINT "larvae from the great Firefly King fell upon" PRINT "the ocean, creating the islands that we know" PRINT "today. No one knows where the Great King" PRINT "originated, or how he gave life to the" PRINT "ancient world. Legend has it he was once" PRINT "a ghost who desired a return to Earth, but" PRINT "was rebuked by the Gods." PRINT PRINT "In anger, Camphora reincarnated as the ghost of" PRINT "a firefly, an magnificant breed of beatles known" PRINT "as the Lampyridae. He drifted silently amist the" PRINT "forests of Atsuta Jingu, awaiting his chance at" PRINT "eternal revenge. Conquer Camphora's enemy (Suga-" PRINT "wara no Michizane) to win the game!" PRINT PRINT "The Quest Begins" PRINT PRINT "@@@ Press any key to continue @@@" pickled: A$=INKEY$:IF A$="" THEN GOTO pickled CLS:COLOR 15,1 start=1 noinst=0 ?"If you are playing for the first time, type 'y' below:":? ?"Do you need instructions (y/n): "; wt88: a$=inkey$:if a$="" then goto wt88 if a$="y" or a$="Y" then noinst=0:? a$:COLOR 11,1:goto help if a$="n" or a$="N" then noinst=1:? a$:COLOR 11,1:goto begingame goto wt88 begingame: start=0 REM ---------------------------------- REM Player defaults - change if needed REM ---------------------------------- hp=194:REM current hit points (hp) hm=194:REM max hit points (hm) mp=50:REM current mana points (mp) mm=50:REM max mana points (mm) ex=0:REM experience points (ex) gd=200:REM number of gold pieces carried (gd) ic=0:REM items carried (ic) im=8:REM max items carried (im) qs=1:REM current quest (qs) rm=16: REM start in 'Old Forest' (room 16) dy=1:REM current day (dy) ac=1:REM current armor class (ac) lt=1:REM light carried (dy) wd=0:REM weapon wielded flag (wd) fd=500:REM food carried wa=500:REM water carried sc=0:REM score earned (sc) sk=0:REM sake tree (sk) ml=0: REM melons (ml) ss=0: REM sake pellets (ss) cc=0: REM cherry chunks (cc) pc=0: REM peace slices (pc) rh=200: REM Raiythius hp (rh) victory=0: REM set victory flag (victory) GOSUB rankme REM ---------------------------------- NA$="You are Camphora, ghost of the fireflies." CR$="You are carrying" FOR x=1 TO 50:FOR y=1 TO 6:READ m(x,y):NEXT:NEXT FOR x=1 TO 35 READ fl(x) READ p(x) READ no$(x) READ ao1$(x) READ ao2$(x) NEXT SLEEP 2 FOR x=1 TO 35:READ x,ob$(x),ob2$(x):NEXT FOR x=1 TO 15:READ x,vb$(x):NEXT FOR x=1 TO 35:READ x,lo(x):NEXT REM Data Statements REM Game map - m(x,y) REM : N, S, E, W, U, D DATA 0, 0, 0, 2, 0, 0: REM Hut1 DATA 0, 0, 1, 0, 0, 3: REM Branch2 DATA 0, 0, 4, 0, 2, 0: REM Old Tree3 DATA 0, 5, 0, 3, 0, 0: REM By the pond4 DATA 4, 6, 0,30, 0, 0: REM Lush Meadow5 DATA 5, 7,29, 0, 0, 0: REM LM6 DATA 6, 0, 8, 0, 0, 0: REM By the road7 DATA 0, 0, 9, 7, 0, 0: REM Road8 DATA 0, 0,10, 8, 0, 0: REM Road9 DATA 0,11,22, 9, 0, 0: REM Road10 DATA 10, 0, 0,12, 0, 0: REM Road11 DATA 0, 0,11,13, 0, 0: REM Road12 DATA 0, 0,12,14, 0, 0: REM Road13 DATA 0, 0,13,15, 0, 0: REM Road14 DATA 0,16,14, 0, 0, 0: REM Intersection15 DATA 15, 0,17, 0, 0, 0: REM Old Forest16 DATA 0,19,18,16, 0, 0: REM OF17 DATA 0, 0,39,17, 0, 0: REM OF18 DATA 17,36,21,20, 0, 0: REM OF19 DATA 0, 0,19, 0, 0, 0: REM Tree of Eternal Rot20 DATA 0, 0, 0,19, 0, 0: REM Tree of Eternal Life21 DATA 0, 0,23,10, 0, 0: REM Hillside22 DATA 0, 0,24,22, 0, 0: REM HS23 DATA 31,25, 0,23, 0, 0: REM Cliff24 DATA 24, 0, 0, 0, 0, 0: REM Waterfall25 DATA 0, 0,27,25, 0, 0: REM River26 DATA 0, 0,28,26, 0, 0: REM R27 DATA 0, 0, 0,27, 0, 0: REM Altar of Seppuku28 DATA 0, 0, 0, 6, 0, 0: REM LM29 DATA 0, 0, 5, 0, 0, 0: REM 30LM DATA 0,24, 0, 0,32, 0: REM Skyladder31 DATA 0, 0, 0, 0,33,31: REM SL32 DATA 0, 0,34, 0, 0,32: REM Sky Castle Ara-Mitama33 DATA 35, 0, 0,33, 0, 0: REM Great Hall34 DATA 0,34, 0, 0, 0, 0: REM Sugawara no Michizane's Chamber35 DATA 19, 0,37, 0, 0, 0: REM The Oibara Inn36 DATA 0,38, 0,36, 0, 0: REM Kirigami Factory37 DATA 37, 0, 0, 0, 0, 0: REM Guild of Tenrikyo38 DATA 0, 0,40,18, 0, 0: REM OF39 DATA 0, 0,41,39, 0, 0: REM OF40 DATA 0, 0,42,40, 0, 0: REM OF41 DATA 0,43, 0,41, 0, 0: REM OF42 DATA 42, 0,44, 0, 0, 0: REM OF43 DATA 0, 0,45,43, 0, 0: REM OF44 DATA 0,46, 0,44, 0, 0: REM Way of Eternal Darkness45 DATA 45, 50, 0, 0, 0, 0: REM WOED46 DATA 0, 0, 0, 0, 0, 0: REM WOED47 DATA 0, 0, 0, 0, 0, 0: REM WOED48 DATA 0, 0, 0, 0, 0, 0: REM WOED49 DATA 46, 0, 0, 0, 0, 0: REM Mizuko Hall50 REM ------------------------------------------------------------------------- DATA -1,-5,"north","no","n" DATA -1,-5,"south","so","s" DATA -1,-5,"east","ea","e" DATA -1,-5,"west","we","w" DATA -1,-5,"up","up","u" DATA -1,-5,"down","do","d" DATA 0,6000,"The Mythical Kusanagi-no-tsurugi (sword)","kusanagi","sword":REM Item 7 DATA 0,280,"A Large Japanese Fern (shield)","shield","fern":REM Item 8 DATA 0,328,"Oda Nobunaga's Famous Kabuto (helmet)","kabuto","helmet":REM Item 9 DATA 0,500,"Byotoji Do Gusoku (armor)","byotoji","armor":REM Item 10 DATA 0,26,"A vial of wolf urine (acid)","urine","acid":REM Item 11 DATA 0,88,"A bottle of fine Sake (sake)","bottle","sake":REM Item 12 DATA 0,40,"A bowl of rice gruel (gruel)","bowl","gruel":REM Item 13 DATA 0,32,"Some spiced meat chops for Raiythius (meat)","chops","meat":REM Item 14 DATA 0,58,"A large grain sack (sack)","grain","sack":REM Item 15 DATA 0,100,"Two pounds of wild asian rice (rice)","wild","rice":REM Item 16 DATA 1,-5,"Several lily pads upon the water, floating silently (pads)","lily","pads":REM Item 17 REM ------------------------------------------------------------------------- DATA 1,128,"Miki Nakayama (miki)","miki","nakayama":REM Monster 18 DATA 2,512,"Raiythius (raiy)","raiythius","raiy":REM Monster 19 DATA 1,384,"Oda Nobunaga (oda)","oda","nobunaga":REM Monster 20 DATA 1,64,"Jesus of Nazareth (jesus)","jesus","god":REM Monster 21 DATA 1,192,"Ghost of Ben Franklin (ben)","ben","franklin":REM Monster 22 DATA 1,256,"Li Lien-chie (li)","li","lien-chie":REM Monster 23 DATA 2,8192,"Dunric, the lead vocalist for the Singing Nobunaga's (dunric)","dunric","paul":REM Monster 24 DATA 1,4096,"Bushido, one of the Gods of Seppuku (bushido)","gods","bushido":REM Monster 25 DATA 2,144,"A lone centurion guard, watching you intently (centurion)","centurion","guard":REM Monster 26 DATA 1,1024,"Sugawara no Michizane (suga)","sugawara","suga":REM Monster 27 DATA 2,152,"A lone concubine bartender (concubine)","concubine","bartender":REM Monster 28 DATA 2,168,"Bruce Lee, offering his services as a store clerk (lee)","bruce","clerk":REM Monster 29 DATA 1,640,"A ronin's ninja, waiting to strike you down (ninja)","ninja","ronin":REM Monster 30 DATA 2,528,"Troll Gomar-san, sitting in the treehouse (troll)","troll","gomar":REM Monster 31 DATA 2,32,"Ghost of a water child, victim of forced seppuku (ghost)","ghost","child":REM Monster 32 DATA 2,160,"Mister Miyagi (pat)","pat","miyagi":REM Monster 33 DATA 1,224,"A Tao Goblin with a menacing face (goblin)","goblin","tao":REM Monster 34 DATA 1,480,"A Large Ice Dragon, breathing fire paradoxically (dragon)","ice","dragon":REM Monster 35 REM ========================================================================== DATA 1,"A direction facing North.","North.",2,"A direction facing South.","South.",3,"A direction facing East.","East.",4,"A direction facing West.","West." DATA 5,"A direction facing Up.","Up.",6,"A direction facing Down.","Down." DATA 7,"This is the mythical Kusanagi-no-tsurugi sword foretold in legend! It gleams with a brilliant shine.","The Kusanagi-no-tsurugi was crafted from the finest metals available anywhere on Earth. It looks brilliant!" DATA 8,"This fern men would kill for. It protects the entire body of the wearer like an ancient Roman shield.","The fern stands approximately 6 feet tall and 4 feet wide, covering the wearer and protecting them from harm." DATA 9,"This is Oda Nobunaga's Kabuto, a rare helmet from his clan. It is beautifully crafted in vermillion and gold.","The helmet was first used by Oda in battle many centuries ago. It still looks brand new, however." DATA 10,"Beautifully crafted Dragon Armor. It has gold and black trimmed plate metal and the insignia of a red dragon.","The insignia covers the breast plate and is expertly painted. The dragon is the one called 'Eight Branches.'" DATA 11,"A vial of wolf urine. Useful for recovering Sake Points.","Drinking the wolf urine may taste bitter, but restoring your life force (chi) is not." DATA 12,"This fine bottle of perfectly blended Sake can help recover vigor in battle.","Drinking the Sake will help you to regain Mana points." DATA 13,"This wooden bowl contains rice gruel, a pasty oatmeal.","The wooden bowl appears to be empty. You'll need to add some more rice." DATA 14,"Some spiced meat chops.","Raiythius will gladly eat these." DATA 15,"This is a large grain sack for holding rice.","Fill it with wild asian rice purchased at the store." DATA 16,"Here are two pounds of wild asian rice.","You will need a grain sack to hold the contents during your travels, however." DATA 17,"You notice the lily pads floating silently upon the water (covered in cherry blossoms).","Oddly, some of them change color mysteriously, suggesting a sort of magical puzzle." DATA 18,"This is Miki Nakayama. She is the founder of this ancient religion.","Nakayama is wearing a ceremonial white robe and sits here, drinking herbal tea from a small bowl." DATA 19,"Raiythius is an ancient hellhound from Atsuta Jingu forest. He knows the area well.","He has yellow eyes and matted gray and white fur, speckled in random spots. He seems friendly enough, and is wise beyond his years." DATA 20,"The infamous Oda Nobunaga, slayer of monks and rival shogunate clans. His punishment is confinement to this world.","The ghost of Oda does not seem to be aware of his tormented fate, chained to the cycle of birth and death." DATA 21,"The once noble man, now dying of his wounds upon this demented path.","He is ashamed of his appearances in previous games, hence his present shape." DATA 22,"This is the ghost of Ben Franklin, not fully aware of his fate.","He seems to be playing cards, this despite a round hole in his forehead." DATA 23,"Li Lien-chie is a servant of this tormented abode.","He appears to assist those who need a drink, though the concubines are largely set aside for such a purpose." DATA 24,"You knew you'd see him one day, those among you who voted his games crap.","Now hegets his revenge by singing in Oibara Inn, poking fun at all his detractors." DATA 25,"Bushido is a faceless God guarding the entrance to Sky Castle Ara-Mitama.","He is levitating upon a magic carpet, watching your every move (like a hungry hawk)." DATA 26,"This centurion has appeared in other adventures, though you wouldn't know it by his appearance.","He lingers in the shadows, waiting, watching..." DATA 27,"This is Sugawara no Michizane, evil of the ancients. He cast down Mordimar into Hell for disobedience.","His eyes pierce your very soul, sending shivers down your spine! You sense great power!" DATA 28,"A lone concubine bartender, serving drinks.","She winks at you and blows a kiss before returning to her patrons." DATA 29,"Ah yes, Bruce Lee. What else can be said about The Master but eternal praise?","Bruce has agreed to serve as the clerk in this adventure. Type 'list' to see what's in stock." DATA 30,"A hold over from Ninja, this silent warrior stalks you like a lamb, waiting to spill your guts!","He says,'If you thought I was tough before, wait until today! I'll split you like the pea you are!'" DATA 31,"The ancient and wise Troll Gomar. He plans to retire after this adventure is over.","'This is my eighth and final game,' he remarks. 'I plan to enjoy copious amounts of opium and tea afterward.'" DATA 32,"This is the restless, lingering spirit of a water child, slain by evil goblins at Mizuko Hall.","Mizuko Hall is called 'Echoes of the Water Children.'" DATA 33,"Pat has retired from other adventures to join this one.","'Pleased to meet you, Beatle-san.' he says to you, bowing respectfully." DATA 34,"This no-good goblin slaughtered the water children and now deserves his place among the seppuku slain.","You should really kill him before another water child is lost." DATA 35,"Here is Pete, the Ice Dragon. You've seen him elsewhere, but he didn't have a name then!","Pete has large wings and strong teeth. He looks at you and smiles, saying,'That Space War is a bitch!'" REM ========================================================================== DATA 1,"get",2,"drop",3,"use",4,"inventory",5,"examine",6,"talk",7,"map",8,"save",9,"go" DATA 10,"plant",11,"harvest",12,"put",13,"kill",14,"buy",15,"sell" REM ========================================================================== DATA 1,998,2,998,3,998,4,998,5,998,6,998 DATA 7,28 DATA 8,21 DATA 9,1020 DATA 10,1020 DATA 11,1 DATA 12,1 DATA 13,999 DATA 14,999 DATA 15,999 DATA 16,999 DATA 17,25 REM ------------------ DATA 18,38 DATA 19,16 DATA 20,19 DATA 21,16 DATA 22,36 DATA 23,36 DATA 24,36 DATA 25,34 DATA 26,18 DATA 27,35 DATA 28,36 DATA 29,37 DATA 30,41 DATA 31,1 DATA 32,50 DATA 33,37 DATA 34,50 DATA 35,33 C1$="F1 - GET |"+CHR$(0) C2$="F2 - DROP |"+CHR$(0) C3$="F3 - USE |"+CHR$(0) C4$="F4 - INVENTORY |"+CHR$(0) C5$="F5 - EXAMINE |"+CHR$(0) C6$="F6 - TALK TO |" C7$="F7 - MAP |"+CHR$(0) C8$="F8 - SAVE |"+CHR$(0) C9$="F9 - NORTH |"+CHR$(0) CA$="F10 - SOUTH |"+CHR$(0) CB$="F11 - WEST |"+CHR$(0) CC$="F12 - EAST |" KEY 1,"get " KEY 2,"drop " KEY 3,"use " KEY 4,"inventory"+chr$(13) KEY 5,"examine " KEY 6,"talk to " KEY 7,"map"+chr$(13) KEY 8,"save"+chr$(13) KEY 9,"go north"+chr$(13) KEY 10,"go south"+chr$(13) KEY 30,"go west"+chr$(13) KEY 31,"go east"+chr$(13) S1$=STR$(sc) H1$=STR$(hp) H2$=STR$(hm) MZ1$=SPACE$(80) MZ2$="Ghost of the Fireflies : " +TIME$+" : hp "+H1$+"/"+H2$+" : "+S1$+"/500" BZ1$=SPACE$(80) BZ2$=SPACE$(80) BZ3$=C1$+C2$+C3$+C4$+C5$+C6$+C7$+C8$+C9$+CA$+CB$+CC$ instruct: CLS COLOR 15,1 PRINT "HELP FOR THE LAZY":PRINT PRINT "For the lazy ones who cruelly require an 'x' command (instead of 'examine' PRINT "or even 'exa'), you're in luck. The 'x' command works. Use it, man. And stop PRINT "complaining that I don't try to improve my works.":PRINT PRINT "About the two word parser: Just deal with it, okay? If you're too ashamed to PRINT "type WIELD SWORD to wield a freaking sword, well, then your pride should PRINT "preclude you from playing virtually any IF written before 1987. I'm not PRINT "going to bother with implementing WIELD THE SWORD AND GO NORTH because that's PRINT "just stupid. You can type WIELD SWORD and GO NORTH in consecutive commands PRINT "like 99% of the world, right? Or can you? That's right, you're lazy. You PRINT "require the damned 'x' command. So be it, Jedi.":PRINT PRINT "Finally: Some weirdos among you may not have noticed, but in Fetter's Grim PRINT "many of the items you examined gave 7-10 lines of descriptive text, and yet PRINT "you called my descriptions 'sparse.' 7-10 lines of text is not sparse, okay? PRINT "GET A CLUE! (or a GRUE, I don't care)." PRINT "Have fun...and please type 'help' for a list of commands already! It's a PRINT "verb, matey!":PRINT PRINT "@@@ Press any key to continue @@@" instruct2: A$=inkey$:IF A$="" THEN GOTO instruct2 CLS raiy: REM if noinst=1 then goto newgame COLOR 15,1 PRINT "The Ghost of the Fireflies" PRINT "By Paul Panks (Dunric)" PRINT "Written for the 2007 IFComp" PRINT "(C)opyright 2007 by Paul Panks" PRINT "All rights reserved." COLOR 11,1 PRINT "Version 1.01s" PRINT COLOR 7,1 GOSUB rm16 COLOR 15,1 PRINT"Obvious Exits: < north east >" COLOR 11,1 GOSUB indy COLOR 7,1 PRINT "You halt your walk and stop abruptly. 'Hello, dog...what are you doing in PRINT "this forest? It is I, Camphora.'" COLOR 15,1 PRINT "Raiythius gazes at you intently before bowing." PRINT "'My name is Raiythius,' he says to you. You are surprised that he can even PRINT "speak!" PRINT "'I am not a dog. I am a hellhound from Aichi Prefecture. This is the land of PRINT "the magical, the mystical...and the forlorn. I will be your spiritual guide PRINT "in this adventure.'":PRINT COLOR 11,1:PRINT"[ More ]" wt1: a$=inkey$:if a$="" then goto wt1 COLOR 15,1:PRINT">go east" COLOR 7,1 GOSUB rm17 COLOR 15,1 PRINT "Obvious Exits: < south east west >" COLOR 11,1 GOSUB indy COLOR 7,1 PRINT "You walk down the forest path with Raiythius. As he trots along, you notice PRINT "that the fur on his back is a mishmash of gray, white and dark brown. He looks PRINT "about middle age, with stout legs and strong shoulders. He seems much wiser PRINT "than his years would otherwise suggest.":PRINT COLOR 15,1 PRINT "'So they call YOU the Ghost of the fireflies?' he suddenly asks you. You nod PRINT "solemnly. Raiythius lets out a hearty laugh." PRINT COLOR 11,1:PRINT"[ 1 ] Ask Raiythius why he is laughing...":PRINT"[ 2 ] Continue on down the path...":PRINT COLOR 15,1 raiy2: a$=inkey$:if a$="" then goto raiy2 if a$="1" then goto raiy3 if a$="2" then goto raiy4 goto raiy2 raiy3: COLOR 7,1 PRINT "Raiythius stops trotting for a moment. He looks you up and down closely. You PRINT "feel as though he is sizing you up as a potential meal. Suddenly, Raiythius PRINT "lunges at your left leg and takes a hard bite!" COLOR 11,1 PRINT "'Ouch! That hurt!' you yell at him, much to his obvious delight. 'Why would PRINT "you do that?'" COLOR 7,1 PRINT "He snickers, before continuing his journey down the path." COLOR 15,1 PRINT "'You don't taste very good for a firefly!' he calls back to you. You hesitate PRINT "for a moment, hoping that he will continue without you, but he stops once more PRINT "and begins barking at you to follow." PRINT "'Hurry up!' he says. 'I haven't got all day you know!'":PRINT COLOR 11,1:PRINT "[ More ]" COLOR 15,1 wt2: a$=inkey$:if a$="" then goto wt2 raiy4: PRINT ">go south" COLOR 7,1 GOSUB rm19 COLOR 15,1 PRINT "Obvious exits: < north south east west >" COLOR 11,1 GOSUB indy COLOR 7,1 PRINT "Raiythius follows you..." COLOR 11,1 PRINT "[ More ]" pt1: a$=inkey$:if a$="" then goto pt1 COLOR 15,1 PRINT ">go east" COLOR 7,1 GOSUB rm21 COLOR 15,1 PRINT "Obvious exits: < west >" COLOR 7,1 PRINT "Raiythius walks past a large tree." COLOR 15,1:PRINT"He turns to you and says softly,'This is the Tree of Eternal PRINT "Life. Everything we know about our world comes from this tree!'" COLOR 11,1 PRINT "'What is this tree?' you ask with curiosity. 'How long has it been here?'" COLOR 15,1 PRINT "Raiythius sighs. 'I don't know. My great-great-grandfather, Ramius, once PRINT "walked among these trees and knew only saplings. But this tree, this one PRINT "right here, I was told wasn't much smaller than it is right now.'":PRINT COLOR 11,1 PRINT "[ 1 ] Ask Raiythius about his great-great-grandfather, Ramius...":PRINT"[ 2 ] Ask Raiythius about the forest..." PRINT COLOR 15,1 raiy5: a$=inkey$:if a$="" then goto raiy5 if a$="1" then goto raiy6 if a$="2" then goto raiy7 goto raiy5 raiy6: PRINT "Raiythius says to you,'My great-great-grandfather lived in this forest, much PRINT "as I have. He was adopted as a lone pup when a local band -- the 'Singing PRINT "Nobunaga's' -- found him begging for scraps outside of the Oibara Inn. The PRINT "inn is just south of this path.' He looks up at the stars above, sighing PRINT "deeply.":PRINT PRINT "'Now he is but a star, shining in another world.'":PRINT color 11,1:PRINT"[ More ]" COLOR 15,1 wt3: a$=inkey$:if a$="" then goto wt3 raiy7: COLOR 15,1 PRINT "Raiythius looks at the ground before looking back up at you (for you are PRINT "a VERY large firefly!). 'Atsuta Jingu is as ancient as the world is old. PRINT "Miyasuhime-no-Mikoto, several centuries ago, came upon this land and PRINT "created a shrine to house a mystical sword...known as the Kusanagi-no- PRINT "tsurugi.' Raiythius pauses for a moment before continuing. 'No mortal has PRINT "seen it...nor beast of this type, anyway.' He then growls in disgust. PRINT "'Some say it doesn't even exist!'":PRINT COLOR 11,1:PRINT"[ 1 ] Ask Raiythius about the Kusanagi-no-tsurugi...":PRINT"[ 2 ] Ask Raiythius about Miyasuhime-no-Mikoto...":PRINT COLOR 15,1 raiy8: a$=inkey$:if a$="" then goto raiy8 if a$="1" then goto raiy9 if a$="2" then goto raiy10 goto raiy8 raiy9: PRINT "Raiythius says to you,'It is known as the Ame no Murakumo no Tsurugi, or PRINT "'Sword of The Gathering Clouds of Heaven.' It was found inside the beast PRINT "Yamata no Orochi, which means 'Big Snake of Eight Branches.' The sword is PRINT "legendary in this world...but no one knows where it is, or if it even PRINT "exists at all!'":PRINT COLOR 11,1:PRINT"[ More ]" COLOR 15,1 wt4: a$=inkey$:if a$="" then goto wt4 raiy10: COLOR 11,1:PRINT"'What about Miyasuhime-no-Mikoto?' you ask. 'If he created a shrine PRINT "for the sword, then surely he, if anyone, would leave record of where it is PRINT "hidden!" COLOR 15,1 PRINT "'A most valid and reasonable conjecture, Camphora-san. But alas, no record PRINT "that I know of has been left...anywhere! You are better to dance among the PRINT "lily pads barefoot than to enter into a shrine without the sacred sword!'" COLOR 11,1 PRINT "'I don't understand...' you say in bewilderment. 'What do lily pads have to PRINT "do with an ancient sword?'" COLOR 15,1 PRINT "Raiythius bites you HARD on your left leg!" PRINT "'Pay attention! I don't have time for games! The sword has been missing for PRINT "centuries...do you think *I* alone hold the answer?'":PRINT COLOR 11,1:PRINT"[ 1 ] Yes, I believe that you are hiding something...":PRINT"[ 2 ] No, I believe you Raiythius...":PRINT raiy11: a$=inkey$:if a$="" then goto raiy11 if a$="1" then goto raiy12 if a$="2" then goto raiy13 goto raiy11 raiy12: COLOR 15,1 PRINT "Raiythius lunges at your throat! Inches before killing you, however, he stops PRINT "from biting into your neck and lands swiftly on all four legs. You are terri- PRINT "fied by this, and dare not move, lest you provoke another attack!" PRINT "Still growling at you, Raiythius barks,'Then follow ME and be shown 'The PRINT "Truth!'" COLOR 7,1:PRINT"Raiythius wanders down the path west..." color 14,1:PRINT"(Type 'go west')" rain: COLOR 15,1:PRINT">"; input "",b$:if b$<>"go west" then COLOR 15,1:PRINT"Command not understood. Please try again.":GOTO rain COLOR 7,1 GOSUB rm19 COLOR 15,1 PRINT "Obvious exits: < north south east west >" COLOR 11,1 GOSUB indy COLOR 7,1:PRINT"Raiythius wanders down the path west..." color 14,1:PRINT"(Type 'go west')" rain2: COLOR 15,1:PRINT">"; input "",b$:if b$<>"go west" then COLOR 15,1:PRINT"Command not understood. Please try again.":GOTO rain2 rain3: COLOR 7,1 GOSUB rm20 COLOR 15,1 PRINT "Obvious exits: < east >" COLOR 11,1 GOSUB indy COLOR 15,1 PRINT "Raiythius looks up at the tree. 'Do you see this tree?'" COLOR 11,1:PRINT"You nod silently, but it looks more like a dying stick of PRINT "nothingness than an actual tree." COLOR 15,1 PRINT "Raiythius sighs deeply. 'This, too, was once called The Tree of Eternal PRINT "Life.' But something...happened to it. I am told it was once filled with PRINT "the same chi as the tree we know today. Someone...or some-THING...took it PRINT "from this land and has exploited the energy for its own uses!'":PRINT COLOR 11,1:PRINT "You thank Raiythius for his help. 'I am ready to face this alone now.'" PRINT:COLOR 14,1:PRINT "@@@ Press any key to continue @@@" gt1: a$=inkey$:if a$="" then goto gt1 raiy13: COLOR 15,1:PRINT"Raiythius bows. 'Good,' he says to you with a happy face, as most domesticated PRINT "dogs can't do. 'I must go for the moment, but I shall return later on in this PRINT "adventure. If you have any questions for The Gods, type the human verb 'help' PRINT "at the command prompt (designated by the white '>' symbol).'" COLOR 7,1:PRINT"Raiythius turns to you before trotting away into the forest." PRINT:COLOR 11,1:PRINT"[ More ]" yt1: a$=inkey$:if a$="" then goto yt1 COLOR 15,1:PRINT"'One more thing...if a ninja suddenly jumps out of the shadows, always PRINT "be prepared to defend yourself without hesitating. Do not believe a word the PRINT "ninja says to you. They have only one mission, and that is to see your head PRINT "at Oibara Inn on a plate of silver, served while the band plays on, obli- PRINT "vious to your fate!'":PRINT COLOR 11,1:PRINT "You thank Raiythius for his help. 'Thank you for helping me.'" COLOR 15,1:PRINT"Raiythius nods. 'We will meet again. But until then...bulk up so PRINT "that leg tastes better next time I visit! BWHAHAHAHAHAHA!'" COLOR 7,1:PRINT"Raiythius howls to the moon before slowly trotting away, back into PRINT "the silent mist of the forest." PRINT COLOR 11,1 PRINT "[ 1 ] Press '1' if Raiythius has answered all of your questions..." PRINT "[ 2 ] No, I still have some more questions..." wt5: a$=inkey$:if a$="" then goto wt5 if a$="1" then CLS:goto newgame if a$="2" THEN CLS:GOTO raiy GOTO wt5 END indy: PRINT "An ancient hellhound named Raiythius is here. He has yellow eyes and an PRINT "uncertain past." RETURN newgame: COLOR 15,1:?"Are you playing a saved game (y/n)? "; wt99: a$=inkey$:if a$="" then goto wt99 if a$="y" or a$="Y" then ?a$:SLEEP 1:goto loaded if a$="n" or a$="N" then ?a$:SLEEP 1:goto lookma goto wt99 lookma: CLS COLOR 15,1 PRINT "Ghost of the fireflies" PRINT "By: Paul Panks (dunric@yahoo.com)" PRINT "Written for the 2007 IFComp" PRINT "Version 1.03s, Build 153" PRINT 32 COLOR 10,1:PRINT "Room:";rm;"(to help map)" COLOR 7,1 if rm=1 then GOSUB rm1 if rm=2 then GOSUB rm2 if rm=3 then GOSUB rm3 if rm=4 then GOSUB rm4 if rm=5 then GOSUB rm5 if rm=6 then GOSUB rm6 if rm=7 then GOSUB rm7 if rm=8 then GOSUB rm8 if rm=9 then GOSUB rm9 if rm=10 then GOSUB rm10 if rm=11 then GOSUB rm11 if rm=12 then GOSUB rm12 if rm=13 then GOSUB rm13 if rm=14 then GOSUB rm14 if rm=15 then GOSUB rm15 if rm=16 then GOSUB rm16 if rm=17 then GOSUB rm17 if rm=18 then GOSUB rm18 if rm=19 then GOSUB rm19 if rm=20 then GOSUB rm20 if rm=21 then GOSUB rm21 if rm=22 then GOSUB rm22 if rm=23 then GOSUB rm23 if rm=24 then GOSUB rm24 if rm=25 then GOSUB rm25 if rm=26 then GOSUB rm26 if rm=27 then GOSUB rm27 if rm=28 then GOSUB rm28 if rm=29 then GOSUB rm29 if rm=30 then GOSUB rm30 if rm=31 then GOSUB rm31 if rm=32 then GOSUB rm32 if rm=33 then GOSUB rm33 if rm=34 then GOSUB rm34 if rm=35 then GOSUB rm35 if rm=36 then GOSUB rm36 if rm=37 then GOSUB rm37 if rm=38 then GOSUB rm38 if rm=39 then GOSUB rm39 if rm=40 then GOSUB rm40 if rm=41 then GOSUB rm41 if rm=42 then GOSUB rm42 if rm=43 then GOSUB rm43 if rm=44 then GOSUB rm44 if rm=45 then GOSUB rm45 if rm=46 then GOSUB rm46 if rm=47 then GOSUB rm47 if rm=48 then GOSUB rm48 if rm=49 then GOSUB rm49 if rm=50 then GOSUB rm50 COLOR 15,1 PRINT "Obvious exits: < "; IF m(rm,1)>0 THEN PRINT "north "; if m(rm,2)>0 THEN PRINT "south "; if m(rm,3)>0 THEN PRINT "east "; if m(rm,4)>0 THEN PRINT "west "; if m(rm,5)>0 THEN PRINT "up "; if m(rm,6)>0 THEN PRINT "down "; PRINT ">" COLOR 11,1 FOR x=7 TO 35:IF lo(x)=rm then PRINT no$(x) NEXT if victory=0 then if rh>0 then if a$<>"look" and a$<>"lk" and a$<>"l" then color 11,1:?"Raiythius arrives.":lo(19)=rm REM -------------------- REM Start parser routine REM -------------------- parser: 48 a$ = "": no$ = "": obj = 0: n$ = "": v$ = "": n = 0: v = 0 170 if gd<0 then gd=0 if hp>hm then hp=hm if mp>mm then mp=mm if sc>500 then sc=500 if victory=1 then lo(19)=36:rh=0 COLOR df:exa$(1)="":b=1:n=0:v=0:mn=0:c=0:by=0:y=0:a$ = "": no$ = "": obj = 0: n$ = "": v$ = "": n = 0: v = 0: GOSUB AutoRoutines:for x=1 to 5:w$(x)="":next 171 ga = 0: pr = 0: fd = fd - 1: wa = wa - 1: IF fd = 100 OR wa = 100 THEN ?"You are running out of food and water." IF fd = 50 THEN ?"You are quite hungry.":goto walt IF wa = 50 THEN ?"You are very thirsty.":goto walt IF fd = 25 THEN ?"You feel very weak from lack of food.":goto walt IF wa = 25 THEN ?"You are extremely dehydrated.":goto walt IF fd = 15 THEN ?"You will die soon without food.":goto walt IF wa = 15 THEN ?"You will die soon without water.":goto walt IF fd = 0 THEN ?"You feel very faint...":goto walt IF wa = 0 THEN ?"You feel out of it...":goto walt IF fd = -10 THEN ?"You are inches from complete starvation and death.":goto walt IF wa = -10 THEN ?"You are inches from complete dehydration and death.":goto walt IF fd < -20 OR wa < -20 THEN a$ = MID$(STR$(dy), 2): ?"You have died of exhaustion on day "; a$; "...": dth = 1: n=7:GOTO deathpoemyou walt: GOSUB AutoRoutines if lo(25)=rm then n=25:goto fightmenu if lo(27)=rm then n=27:goto fightmenu if lo(30)=rm then n=30:GOSUB ninja:goto fightmenu if lo(34)=rm then n=34:goto fightmenu gosub it1 GOSUB mazy ?">"; : LINE INPUT "", a$: v$ = "": n$ = "": IF a$ = "" THEN ?"What?": v = 0 if left$(a$,4)="open" then ?"Open is not supported in this game.":goto 170 for x=1 to 10:if a$=al$(x) then a$=bl$(x) next spider: if a$="plant tree" then goto plant if a$="harvest tree" then goto harvest if a$="read poem" and rm=36 then goto readpoem if a$="map" then goto mapit if a$="room" then ?"You are in room"rm".":goto 170 if a$="return" then rm=36:?"You are whisked away by a large gust of wind...":goto 32 if a$="save" or a$="save game" then goto saved if a$="clear all" then for x=1 to 10:al$(x)="":bl$(x)="":next:al=0:?"Aliases cleared.":move=move+1:goto 170 if a$="list" and rm<>37 then ?"You are not in Oibara Inn (at the Kirigami Factory)!":goto 170 if a$="list" and rm=37 then goto shop if a$="menu" and rm<>36 then ?"You are not in the enchanted forest (Oibara Inn)!":goto 170 if a$="menu" and rm=36 then goto menu IF a$ = "score" OR a$ = "?" OR a$ = "sc" THEN goto score IF a$ = "look" OR a$ = "l" or a$="lk" THEN v = 1:goto 32 IF a$ = "i" OR a$ = "inventory" or a$="inv" THEN v$ = "inventory": v = 2 IF a$ = "n" OR a$ = "north" THEN a$ = "go north": ELSE IF a$ = "s" OR a$ = "south" THEN a$ = "go south": ELSE IF a$ = "e" OR a$ = "east" THEN a$ = "go east": ELSE IF a$ = "w" OR a$ = "west" THEN a$ = "go west" IF a$ = "u" OR a$ = "up" THEN a$ = "go up": ELSE IF a$ = "d" OR a$ = "down" THEN a$ = "go down" IF a$ = "get all" OR a$ = "take all" or a$="ga" or a$="ta" THEN ga = 1 IF a$ = "wear all" or a$="wa" THEN wearit IF a$ = "remove all" or a$="ra" THEN removeit IF a$ = "help" or a$="h" or a$="hint" THEN help IF a$ = "quit" OR a$ = "q" or a$="exit" or a$="bye" THEN goto quit if a$ = "nod" then ?"You nod solemnly.":sc=sc+1:goto 170 if a$ = "chuckle" then ?"You chuckle merrily.":sc=sc+1:goto 170 if a$ = "laugh" then ?"You laugh uncontrollably.":sc=sc+1:goto 170 if a$ = "cry" then ?"You shed a few tears without reason.":sc=sc+1:goto 170 if a$ = "wimper" then ?"You wimper like a hurt puppy dog.":sc=sc+1:goto 170 if a$ = "pout" then ?"You start pouting. It's not fair!":sc=sc+1:goto 170 if a$ = "smile" then ?"You smile happily.":sc=sc+1:goto 170 if a$ = "frown" then ?"You frown.":sc=sc+1:goto 170 if a$ = "think" then ?"You think for a moment.":sc=sc+1:goto 170 if a$ = "ponder" then ?"You begin to ponder something.":sc=sc+1:goto 170 if a$ = "hmm" or a$="hrm" then ?"You go hmmm.":sc=sc+1:goto 170 if a$ = "smirk" then ?"You smirk.":sc=sc+1:goto 170 if a$ = "bow" then ?"You bow with grace.":sc=sc+1:goto 170 if a$ = "grin" then ?"You grin at the thought.":sc=sc+1:goto 170 if a$ = "cackle" then ?"You throw your head back and cackle!":sc=sc+1:goto 170 if a$ = "wonder" then ?"You wonder about things.":sc=sc+1:goto 170 if a$ = "puzzle" then ?"You are quite puzzled.":sc=sc+1:goto 170 if a$ = "shrug" then ?"You shrug helplessly.":sc=sc+1:goto 170 if a$ = "shake" then ?"You shake your head.":sc=sc+1:goto 170 if a$ = "touch pads" then goto pads if a$ = "examine wall" and rm=25 and m(25,3)=0 then COLOR 11,1:?"The wall is transparent and glows several different hues of red, blue, green and yellow.":?"It cannot be penetrated.":GOTO 170 if a$ = "examine wall" and rm=25 then COLOR 14,1:?"The wall has collapsed, leaving a passage east.":GOTO 170 for x=1 to 10:if a$=al$(x) then a$=bl$(x) next 191 IF LEN(a$) = 1 AND a$ <> "n" AND a$ <> "s" AND a$ <> "e" AND a$ <> "w" AND a$ <> "u" AND a$ <> "d" AND a$ <> "i" AND a$ <> "l" THEN ?"What?": GOTO 170 S = 0: FOR x = 1 TO LEN(a$): IF MID$(a$, x, 1) = " " THEN S = 1 NEXT: IF S = 0 THEN 194 d = 0: FOR x = 1 TO LEN(a$): IF MID$(a$, x, 3) = " in" THEN pr = 1: n$ = RIGHT$(a$, x + 2): v$ = LEFT$(a$, 3): d = 6 IF MID$(a$, x, 3) = " on" THEN pr = 1: n$ = RIGHT$(a$, x + 2): v$ = LEFT$(a$, 3): d = 6 IF MID$(a$, x, 4) = "from" THEN pr = 1: n$ = RIGHT$(a$, x + 3): v$ = LEFT$(a$, 3): d = 8 NEXT: FOR x = 1 TO LEN(n$): IF MID$(n$, x, 1) = " " THEN pr = 1: o$ = LEFT$(n$, x - 1): n$ = o$ NEXT bz = 0: FOR x = 1 TO LEN(a$): IF MID$(a$, x, 4) = " bag" THEN bz = 1 IF MID$(a$, x, 4) = " box" THEN box = 1 NEXT: IF pr = 1 THEN 194 b=1:for x=1 to len(a$): IF LEFT$(a$, 7) = "raiythius," THEN by = 1: y = x if mid$(a$,x,5)=" the " or mid$(a$,x,3)=" a " then ?"Articles such as 'a' or 'the' are not permitted.":goto 170 if mid$(a$,x,8)="and then" then ?"Multiple articles such as 'and then' are not permitted.":?"Usage: [and,then] .":goto 170 if mid$(a$,x,4)="then" or mid$(a$,x,3)="and" then c=1:goto 193 if mid$(a$,x,1)=" " then b$=mid$(a$,b,x-b):b=x+1:mn=mn+1:w$(mn)=b$ 193 next:if by=0 then mn=mn+1:b$=mid$(a$,b,x-b):w$(mn)=b$:v$=w$(1):n$=w$(2):v2$=w$(4):n2$=w$(5) IF by = 1 THEN if lo(19)<>rm then ?"Raiythius isn't here.":goto 170 FOR x = y TO LEN(a$): IF MID$(a$, x, 1) = " " THEN b$ = MID$(a$, b, x - b): b = x + 1: mn = mn + 1: w$(mn) = b$ NEXT: b$ = MID$(a$, b, x - b): b = x + 1: mn = mn + 1: w$(mn) = b$ if w$(2)="exa" or w$(2)="x" then w$(2)="examine" v$ = w$(2): n$ = w$(3) END IF 194 IF LEFT$(a$, 3) = "use" AND pr = 0 OR LEFT$(a$, 3) = "put" AND pr = 0 THEN k$ = LEFT$(a$, 3): ?"Oops, I need a bit more...": ?"Usage: "; k$ + " " + n$ + " [in,from,on] ":goto 170 REM ? "verb1:";v$;" verb2:";v2$:?"noun1:";n$; "noun2:";n2$:? c if by=1 and lo(19)<>rm then ?"Raiythius isn't here.":goto 170 if left$(a$,5)="alias" then if a$="alias" then alias if al=10 then ?"Your alias maximum has been reached.":GOTO 170 bar$ = "nsewudilq": ek% = INSTR(bar$, MID$(w$(3), x, 1)): ek2% = INSTR(bar$, MID$(w$(4), x, 1)) ek3%=instr(bar$, mid$(w$(3),x,1)):ek4%=instr(bar$,mid$(w$(4),x,1)) IF w$(4)="n" or w$(4)="s" or w$(4)="e" or w$(4)="w" or w$(4)="u" or w$(4)="d" or w$(4)="i" or w$(4)="l" then ? "n,s,e,w,u,d,i,l are reserved.": GOTO 170 IF w$(3)="n" or w$(3)="s" or w$(3)="e" or w$(3)="w" or w$(3)="u" or w$(3)="d" or w$(3)="i" or w$(3)="l" then ? "n,s,e,w,u,d,i,l are reserved.": GOTO 170 if len(w$(2))=0 or len(w$(3))=0 then ?"Oops, I need a bit more...":?"Alias syntax: alias ":?"One word aliases are illegal because certain one word commands are":?"reserved by the program.":GOTO 170 IF w$(1) = "alias" AND w$(4) = "" THEN ?"Oops, I need a bit more...":?"Alias syntax: alias ":?"One word aliases are illegal because certain one word commands are":?"reserved by the program.":GOTO 170 IF w$(1) = "alias" AND w$(4) <> "" THEN al=al+1:al$(al) = w$(4):bl$(al)=w$(2)+chr$(32)+w$(3) IF ek2% then ? "alias: '"; w$(4); "' now emulates "; w$(2); " "; w$(3): GOTO 170 end if if w$(1)="exa" or w$(1)="x" then v$="examine" n=0:for x=1 to 35:if n$=no$(x) or n$=ao$(x) or n$=ao1$(x) or n$=ao2$(x) then n=x:obj=n next v=0:FOR x = 1 TO 15: IF v$ = vb$(x) or v$=v3$ or v$=exa$(1) THEN v = x NEXT: goto 99 195 v=0:FOR x = 1 to 15: if v2$ = vb$(x) or v2$=v3$ or v$=exa$(1) then v=x next:c=0 for x=1 to 35:if n2$=no$(x) or n$=ao$(x) or n$=ao1$(x) or n2$=n3$ or n$=n3$ or n2$=ao$(x) or n3$=ao$(x) or n2$=ao1$(x) or n3$=ao2$(x) then n=x:obj=n next c=0:goto 99 RETURN 99 if by=1 and lo(19)<>rm then ?"Raiythius isn't here!":mn=1:return ON v GOSUB 100, 110, 120, 125, 130, 135, 140, 145, 150, 155, 160, 165, 200, 205, 215 if c=1 then c=2:goto 195 if mn=0 then ?"What?":move=move+1:goto 48 move=move+1:goto 48 REM 1,"get",2,"drop",3,"use",4,"inventory",5,"examine",6,"talk",7,"map",8,"save",9,"go" REM 10,"plant",11,"harvest",12,"put",13,"kill",14,"buy",15,"sell" 100 if by=1 then COLOR 10,1:?"Raiythius barks at you!":?"He growls,'I'm not your personal slave, bitch! Do I look like Faldor to you?'":mn=1:return end if if lo(n)=rm and fl(n)=0 and ic<8 then ic=ic+1:? no$(n);":Ok.":lo(n)=0:mn=1:return if ic>=8 then ? no$(n);":Too heavy.":mn=1:return ?"You can't seem to pick that up.":mn=1:return 110 if by=1 then COLOR 10,1:?"Raiythius barks at you!":?"He growls,'I'm not going to drop your dirty laundry!'":mn=1:return end if if lo(n)=0 and fl(n)=0 then ic=ic-1:? no$(n);":Ok.":lo(n)=rm:mn=1:return if lo(n)=105 then ?"You'll have to unwield that first.":mn=1:return if lo(n)=205 then ?"You'll have to remove that first.":mn=1:return ?"You can't seem to drop it.":mn=1:return 120 if by=1 then COLOR 10,1:?"Raiythius barks at you!":?"He growls,'I'm not a freakin' jackal, you moron!'":mn=1:return end if if lo(n)=0 then if n=7 then lo(n)=105:wd=1:dm=18:?"You wield the sword.":mn=1:return if n=8 then lo(n)=205:ac=ac+n:?"You wear the fern.":mn=1:return if n=9 then lo(n)=205:ac=ac+n:?"You wear the helmet.":mn=1:return if n=10 then lo(n)=205:ac=ac+n:?"You wear the armor.":mn=1:return if n=11 then lo(n)=999:ic=ic-1:mp=mm:?"Your MANA levels have been restored to maximum.":mn=1:return if n=12 then lo(n)=999:ic=ic-1:hp=hm:?"Your HEALTH has been restored to maximum vitality.":mn=1:return if n=13 then lo(n)=999:ic=ic-1:hp=hm:?"Your HEALTH has been restored to maximum vitality.":mn=1:return if n=14 and lo(19)<>rm then ?"Raiythius must be here to receive the meat.":mn=1:return if n=14 then lo(n)=999:rh=200:ic=ic-1:COLOR 10,1:?"Raiythius licks you!":?"'Thanks for the meat, pops!'":mn=1:return if n=15 then if lo(16)<>0 then ?"You need to have rice first to place inside the grain sack!":?"Get the rice, then type 'use sack'.":mn=1:return if n=15 then lo(15)=999:lo(16)=999:ic=ic-2:?"You place the rice inside the sack.":?"A few hours later, you consume it for dinner, tossing out both.":mn=1:return if n=16 then if lo(15)<>0 then ?"You need to have a grain sack first to place the rice inside!":?"Get the grain sack, then type 'use sack'.":mn=1:return if n=16 then lo(15)=999:lo(16)=999:ic=ic-2:?"You place the rice inside the sack.":?"A few hours later, you consume it for dinner, tossing out both.":mn=1:return end if if lo(n)=rm then if n>=7 and n<=16 then ?"You cannot use items on the floor (animals might eat them).":COLOR 10,1:?"(Ghost COM):Raiythius chimes in,saying,'Like me, bitch!'":?"You must be carrying them in some fashion.":mn=1:return if n=17 then if rm<>25 then ?"You don't see any lily pads here.":?"You must be at the waterfall to use the lily pads.":mn=1:return if n=17 then ?"This appears to be some sort of puzzle.":?"Type 'touch pads' to begin.":mn=1:return end if ?"You can't seem to do that here.":?"Try something else.":mn=1:return $SEGMENT 125 if by=1 then COLOR 10,1:?"Raiythius barks at you!":?"He growls,'I'm not carrying anything, idiot!'":mn=1:return end if ? CR$ SI=0:ic=0:ac=0:wd=0:dm=0:for x=7 to 17 if lo(x)=0 then ?" ";no$(n);".":SI=1:ic=ic+1 if lo(x)=105 then ?" ";no$(n);" (wielded).":SI=1:wd=1:dm=18:ic=ic+1 if lo(x)=205 then ?" ";no$(n);" (worn).":SI=1:ac=ac+x:ic=ic+1 next:IF SI=0 then ?"Alas, you are empty handed.":mn=1:return mn=1:return 130 if by=1 then COLOR 10,1:?"Raiythius barks at you!":?"He growls,'I'm not your bitch!'":mn=1:return end if if lo(n)<>0 and lo(n)<>105 and lo(n)<>205 and lo(n)<>rm then ?"That isn't here to examine.":mn=1:return print ob$(n);" ";ob2$(n):mn=1:return 135 if by=1 then COLOR 10,1:?"Raiythius barks at you!":?"He growls,'I'm not talking right now! I'm eating!'":mn=1:RETURN end if ?"The object doesn't understand you. Only Raiythius or C/C++ programmers" ?"(employing the latest 633K 5P34K) can decipher your nano-blabber." mn=1:return 140 GOTO mapit 145 GOTO saved 150 if m(rm,n)>0 then rm=m(rm,n):mn=1:goto 32 ?"You can't go that way.":mn=1:goto 170 155 GOTO 160 160 ?"You can't do that here.":mn=1:return 165 ?"Command not implemented yet.":mn=1:return 200 GOTO fightmenu 205 if rm<>37 then ?"You are not in the enchanted forest (Oibara Inn)!":mn=1:return if lo(29)<>rm then ?"Bruce Lee is not here!":mn=1:return if gp=8 then ?"Bruce Lee says,'Ah, but you are carrying too much weight, master!'":mn=1:return zv=p(n) lo(n)=0:ic=ic+1:gp=gp-zv:?"You hand Bruce Lee";zv;"gold pieces.":?"Bruce Lee hands you the ";no$(n);".":?"He bows, saying,'Happy day, master!'":mn=1:return 215 if rm<>37 then ?"You are not in the enchanted forest (Oibara Inn)!":mn=1:return if lo(29)<>rm then ?"Bruce Lee is not here!":mn=1:return zv=p(n)/2 lo(n)=999:ic=ic-1:gp=gp-zv:?"You hand Bruce Lee the ";no$(n);".":?"Bruce Lee hands you";zv;"gold pieces.":?"He bows, saying,'Your gain is my sorrow, master!'":mn=1:return REM Random Raiythius movements, words and actions (50 in all) REM 25% frequency (10/50) it1: RANDOMIZE TIMER:ra=int(rnd*120)+1 if lo(19)<>rm then RETURN: REM Raiythius not in current room; skip subroutine if ra=1 then COLOR 10 PRINT "Raiythius looks up at the trees. 'See that wind?'" COLOR 11 PRINT "'No, I don't,' you say wryly. 'How can I see it?'" COLOR 15 PRINT "Raiythius bites your left leg HARD!" COLOR 10 PRINT "'Pay attention, bitch! I'm trying to be philosophical for a moment!'" END IF if ra=2 then COLOR 10 PRINT "Raiythius barks loudly at the clouds. 'A storm is coming!' he chimes." COLOR 11 PRINT "You look up at the sky but see only grayish clouds off in the distance." PRINT "'I see only clouds several miles away. They could be drifting anywhere" PRINT "but here.'" COLOR 10 PRINT "Raiythius urinates on your leg, soaking it." COLOR 11 PRINT "'Hey!' you scream. 'What the hell was THAT for?!'" COLOR 10 PRINT "But Raiythius only shrugs. 'Like I said, a storm is coming.'" END IF if ra=3 then COLOR 10 PRINT "Raiythius digs into the ground and begins to bark, rather loudly." COLOR 11 PRINT "'What is it?' you ask with a curious glow." COLOR 10 PRINT "'I'm looking for something,' Raiythius tells you." COLOR 11 PRINT "'Well, what?'" COLOR 10 PRINT "He turns to you and replies,'Somewhere in this mess is your brain, but I" PRINT "can't seem to find it anywhere.'" END IF if ra=4 then COLOR 10 PRINT "Raiythius begins to circle you endlessly." COLOR 11 PRINT "'Would you cut the nonsense and help me solve this adventure?' you demand." COLOR 10 PRINT "'No!' barks Raiythius, but then he smiles. 'Can't catch me, can you?'" PRINT "He begins to race even faster, causing you to give up for dizziness." COLOR 11 PRINT "'You win, Raiythius...I can't keep up with you.'" COLOR 10 PRINT "Raiythius bows. 'I knew there was spirit in you, even if you do glow like" PRINT "a squashed bug!'" END IF if ra=5 then COLOR 10 PRINT "Raiythius looks up at you and smiles. 'Heard about the ninja who walked into" PRINT "a bar?'" COLOR 11 PRINT "You stop cleaning your weapon and look down at him. 'No...amuse me and tell" PRINT "me more, please..." COLOR 10 PRINT "'A ninja walks into a bar,' he begins. 'The bartenter goes,'What'll it be?'" PRINT "'The ninja says,'I'll have a Shochu.' But the bartender frowns, replying,'We" PRINT "have only Sake.' The ninja sighs. 'Fine, give me the best Sake you've got.'" PRINT "The bartender gives him a Ginjo-shu, which the Ninja consumes but then" PRINT "spits back out hastily. 'What was wrong with it?' he asks the ninja. The" PRINT "ninja doesn't look amused, however, and cuts off the bartender's head!'" COLOR 11 PRINT "'That's quite gruesome, Raiythius!'" COLOR 10 PRINT "Raiythius continues the joke, saying,'Another patron goes up to the ninja" PRINT "and asks him why he cut the bartender's head off. To which the ninja coldly" PRINT "replies,'That wasn't Sake.' 'Why not?' asks the patron. The ninja looks at" PRINT "him and says,'A fruity drink sold by a man pretending to be samurai and" PRINT "carrying an immitation blade was my first clue.' The patron asks,'And the" PRINT "second clue?' The ninja says,'He winked at me while I drank it.'" END IF if ra=6 then COLOR 10 PRINT "Raiythius bites your leg!" COLOR 11 PRINT "'Aaaarrrgggh!' you scream in pain. 'Do you have rabies or something?'" PRINT "'Stop biting my leg!'" COLOR 10 PRINT "Raiythius licks your foot. 'That better? I can froathe at the mouth" PRINT "for ten extra dollars. Would you prefer full-on rabies or just the" PRINT "second, intermediate stage where I pace furiously around in circles" PRINT "and squawk like a headless chicken?'" END IF if ra=7 then COLOR 10 PRINT "Raiythius looks at the moon. 'So beautiful,' he says to you. 'It is" PRINT "like the end of a large pebble, smooth and polished by the oceans" PRINT "of this world.'" COLOR 11 PRINT "'You're poetry sucks!' you laugh." COLOR 10 PRINT "Raiythius sighs. 'I am but a dog, lost on the oceans of the sea.'" PRINT "He looks up at you, asking,'Care for some homemade tea?'" COLOR 11 PRINT "'You're NOT peeing on my leg again, Raiythius!'" COLOR 10 PRINT "Raiythius urinates on your leg, again. 'Sorry, but I just did!'" END IF if ra=8 then COLOR 10 PRINT "Raiythius begins to sing. 'I am a noble, yes I am! King of Lima in" PRINT "Pakistan! Got a gold thron..." COLOR 11 PRINT "'Lima's not in Pakistan, you dolt!' you say sharply, scolding him." COLOR 10 PRINT "Raiythius barks at you tersely. 'Shut up! You're shreking up my" PRINT "song! '" END IF if ra=9 then COLOR 10 PRINT "'Oooohhhh!' Raiythius moans. 'The pain! THE PAIN! I can't take it" PRINT "anymore! Somebody club me over the head! Put me out of my misery!" PRINT "Ooohhhhh! Oooohhhh! Ooooo...'" COLOR 11 PRINT "'What's your problem?' you ask him, shining your armor near a large" PRINT "rock." COLOR 10 PRINT "'Can a male hellhound get pregnant?' he asks." COLOR 11 PRINT 'Noooo!' you scream. 'Now why would you ever ask should a stupid" PRINT "question?" COLOR 10 PRINT "'Okay, nevermind,' he says to you. 'Must be the chicken I had last" PRINT "night..." COLOR 11 PRINT "'Hey!' you yell. 'I had part of that chicken, too! Remember?'" COLOR 10 PRINT "Raiythius smirks. 'I was just faking. But, yeah, the chicken" PRINT "tasted kinda funny, now that you mention it. Too bad I forgot" PRINT "to cook yours before you ate it!'" END IF if ra=10 then COLOR 10 PRINT "Raiythius begins humping the ground." COLOR 11 PRINT "You stand in awe for a moment at this bizarre ritual. He then stops" PRINT "and smiles at you. 'What are you doing?' you ask sarcastically, not" PRINT "really caring or wanting to know the answer." COLOR 10 PRINT "'I was helping a worm find its way home,' he replies. 'Can't you see" PRINT "him?' Raiythius scratches at the place where a small hole is visible." COLOR 11 PRINT "'That's the worm burrowing into the ground, you moron!'" COLOR 10 PRINT "'Or,' Raiythius says confidently,'taken another way, it is MY" PRINT "worm looking to burrow ITS way home!'" COLOR 11 PRINT "'Oh, get off it!' you growl." COLOR 10 PRINT "'I just did,' he beams proudly. 'Your turn!'" END IF it2: RETURN wyatt: if rm=19 then if we=0 then we=1 COLOR 14:PRINT "Wyatt Earp is here playing a game of cards with Ben Franklin, Morgan" PRINT "Earp, Virgil Earp and Doc Holiday." COLOR 15:PRINT "'...and I don't think we should have invaded Iraq in the first" PRINT" place. We just don't belong there!' says Franklin." COLOR 11:PRINT"'Just shut up and deal, Ben...' barks Wyatt." COLOR 7:PRINT "Ben Franklin draws a Queen of Diamonds, prompting Wyatt to" PRINT "pistol-whip him with his Buntline Special Colt .45." COLOR 11:PRINT "Wyatt Earp yells,'Cheater! I ain't playin' with no cheater!'" COLOR 15:PRINT "Before Ben can respond, Doc Holiday shoots him in the" PRINT "forehead, killing him dead." COLOR 13:PRINT "'You're a daisy, Ben! HA HA! A Desperado Daisy!'" COLOR 11:PRINT "Wyatt says to Morgan (as they walk out),'C'mon, Morg, let's" PRINT "go scam some other Fargo outfit in town. We came, we saw, we Earped" PRINT "'em good!'" END IF COLOR 14:PRINT"The deceased remains of Ben Franklin lay upon the floor. A bullet hole" PRINT "is square upon his forehead." END IF RETURN mazy: CC=POS(0):CK=CSRLIN COLOR 4,15 LOCATE 1,1:PRINT MZ1$:LOCATE 1,1:PRINT MZ2$ COLOR 6,0 LOCATE 2,1:PRINT BZ1$:LOCATE 3,1:PRINT BZ2$ LOCATE 2,1:PRINT BZ3$ COLOR 15,1 LOCATE CK,CC RETURN REM <><><><><><><><><><><><><><><><><><> Oibara Inn Drink Menu Subroutine <><><><><><><><><><><><><><><><><><> menu: CLS drinks: if lo(28)<>rm then ?"The concubine bartender is not here!":GOTO 170 COLOR 7,1 PRINT "The concubine bartender says,'Here is what we have on the menu':" COLOR 10,1 PRINT "<><><><><><><><><><> Oibara Inn <><><><><><><><><><>" COLOR 14,1 PRINT "[ 1 ] Watermelon Felon (cures 10 Sake Points) : 30g" PRINT "[ 2 ] Strawberry Shochu (cures 25 Sake Points): 50g" PRINT "[ 3 ] Banana Beer (cures 40 Sake Points) : 65g" PRINT "[ 4 ] Cherry Crush (cures 100 Sake Points) : 100g" PRINT "[ 5 ] Grape Gusher (cures 250 Sake Points) : 150g" PRINT "[ 6 ] Wild Rice (restores 300 food units) : 80g" PRINT "[ 7 ] Sake Seeds (restores 300 water units) : 80g" PRINT "[ 8 ] Qty. 4 Melon Cubes (combine with #9)* : 100g" PRINT "[ 9 ] Qty. 3 Sake Pellets (combine with #8)* : 75g" PRINT "[ A ] Qty. 5 Cherry Chunks (combine with B)** : 125g" PRINT "[ B ] Qty. 2 Peach Slices (combine with A)** : 50g" PRINT "[ C ] (Order nothing, but ask about spells) : ---" COLOR 10,1 PRINT "<><><><><><><><><><> Oibara Inn <><><><><><><><><><>" COLOR 15,1 PRINT "* - Combine Melon Cubes and Sake Pellets to cast" PRINT " the spell 'Orchid Rain'." PRINT "**- Combine Cherry Chunks and Peach Slices to cast" PRINT " the spell 'Blossom Swirl'." COLOR 10,1 PRINT "<><><><><><><><><><> Oibara Inn <><><><><><><><><><>" COLOR 15,1:PRINT"Gold:";gd super: COLOR 11,1 PRINT "Now, please order (1-9, A-B, or '0'): "; gr=0:ru=0 orchid: a$=inkey$:if a$="" then goto orchid if a$="0" then ? a$:color 11,1:?"Menu aborted.":mn=1:goto 170 if a$="c" then gr=0:ru=0:print a$:goto spellexp if a$="1" then gr=30:ru=10:print a$:goto menu1 if a$="2" then gr=50:ru=25:print a$:goto menu2 if a$="3" then gr=65:ru=40:print a$:goto menu3 if a$="4" then gr=100:ru=100:print a$:goto menu4 if a$="5" then gr=150:ru=250:print a$:goto menu5 if a$="6" then gr=80:ru=200:print a$:goto menu6 if a$="7" then gr=80:ru=200:print a$:goto menu7 if a$="8" then gr=100:ru=4:print a$:goto menu8 if a$="9" then gr=75:ru=3:print a$:goto menu9 if a$="a" or a$="A" then gr=125:ru=5:print a$:goto menua if a$="b" or a$="B" then gr=50:ru=2:print a$:goto menub COLOR 7,1:PRINT "The concubine bartender says,'Please order correctly.'" goto super menu1: if gp<><><><><><><><><> Oibara Inn <><><><><><><><><><>" COLOR 11,1 PRINT "Spells - Spell casting requires the use of special" PRINT "items. Combine them in a certain order to cast a" PRINT "specific spell. The following gives a list of spells" PRINT "that may be cast in Ghost of the Fireflies:":PRINT PRINT "ORCHID RAIN - Devastating attack. Will produce a" PRINT "flurry of cherry blossoms which will fall from the" PRINT "sky and blind the enemy's vision. Can also paralyze" PRINT "and damage their central nervous system, rendering" PRINT "any attack they make futile. Use ingredients" PRINT "'Melon Cubes' [2/4] and 'Sake Pellets' [1/3] to" PRINT "cast this spell.":PRINT COLOR 14,1 PRINT "[ More ]" wt11: a$=inkey$:if a$="" then goto wt11 COLOR 11,1 PRINT "BLOSSOM SWIRL - Effective defense. Will produce" PRINT "a swirl of blossoms around your body which can" PRINT "act as a temporary shield against all magical" PRINT "attacks (and even some non-magical ones, too)." PRINT "Use ingredients 'Cherry Chunks' [2/5] and" PRINT "'Peach Slices' [1/2] to cast this spell.":PRINT PRINT "GHOSTLY GLOW - Multiple attacks. Highly" PRINT "effective against difficult foes. Will split" PRINT "108 glowing balls from a high energy orb of" PRINT "light and shower them at the enemy. Use" PRINT "ingredients 'Melon Cubes' [3/4] and 'Peach" PRINT "Slices' [2/2] to cast this spell.":PRINT COLOR 14,1 PRINT "[ More ]" wt12: a$=inkey$:if a$="" then goto wt12 COLOR 11,1 PRINT "VISIONS OF DEATH - Extremely powerful attack." PRINT "Will surround the enemy with ghostly copies of" PRINT "themself, ultimately leading to self-inflicted" PRINT "damage. The dopplegangers can likewise inflict" PRINT "multiple wounds against the enemy combatant," PRINT "two per round, effectively doubling or even" PRINT "quadrupling the initial damage from the spell." PRINT "Use ingredients 'Cherry Chunks' [4/5] and" PRINT "'Sake Pellets' [3/3] to cast this spell.":PRINT COLOR 14,1 PRINT "[ More ]" wt15: a$=inkey$:if a$="" then goto wt15 COLOR 10,1 PRINT "<><><><><><><><><><> Oibara Inn <><><><><><><><><><>" COLOR 15,1 PRINT "NOTE: Both 'Sake Pellets' and 'Melon Cubes' may be" PRINT "combined to plant a Sake Melon Tree. This tree will" PRINT "grow only in specific areas of the forest, so you'll" PRINT "have to find just the right place. Once planted," PRINT "the Sake Melon Tree will periodically produce all" PRINT "four ingredients listed on the Oibara Inn menu." PRINT "To plant the tree, find the correct area of the" PRINT "forest in which to plant and type 'plant tree.'":PRINT PRINT "To obtain all four ingredients from the Sake" PRINT "Melon Tree, type 'harvest tree'." COLOR 10,1 PRINT "<><><><><><><><><><> Oibara Inn <><><><><><><><><><>" COLOR 15,1 PRINT "Return to the Oibara Inn menu (y/n)? "; wt13: a$=inkey$:if a$="" then goto wt13 if a$="y" or a$="Y" then print a$:print:goto drinks if a$="n" or a$="N" then print a$:print:COLOR 11,1:PRINT"Menu aborted.":GOTO parser goto wt13 shop: if lo(29)<>rm then ?"Bruce Lee is not here!":goto 170 COLOR 7,1 PRINT "Bruce Lee bows, saying,'Here is what we have in stock':" COLOR 10,1 PRINT "<><><><><><><><><><> Oibara Inn <><><><><><><><><><>" COLOR 14,1 SI=0:FOR x=7 TO 35 if lo(x)=999 then SI=1:? p(x);":";SPACE$(20);no$(x);"." NEXT x COLOR 10,1 PRINT "<><><><><><><><><><> Oibara Inn <><><><><><><><><><>" COLOR 11,1 PRINT "Gold:";gd COLOR 15,1 if SI=0 THEN ?"Bruce Lee frowns. 'Ah, so sorry...we have nothing, master!'" ?"Bruce Lee says,'Take your time. Be like water, my friend! Become the tea cup!'" COLOR 11,1 PRINT "A sign above him reads:" COLOR 10,1 PRINT "<><><><><><><><><><> Oibara Inn <><><><><><><><><><>" COLOR 14,1 PRINT "HOW TO BUY/SELL ITEMS: Type 'buy ' to purchase" PRINT "an item from the shop (where '' is anything" PRINT "listed by Bruce for sale. Example: buy rice PRINT PRINT "To sell something, type 'sell '. An example of" PRINT "this might be: sell rice COLOR 10,1 PRINT "<><><><><><><><><><> Oibara Inn <><><><><><><><><><>" COLOR 15,1 GOTO 170 AutoRoutines: if ng=1 then ng=0:move=0 move = move + 1 IF move > 15 THEN a$ = MID$(STR$(dy), 2) COLOR 14,1 IF move > 25 AND aa = 0 THEN aa = 1: ?"The sun is setting on day "; a$; "." IF move > 45 AND aa = 1 THEN aa = 2: ?"The sun has just set." IF move > 55 AND aa = 2 THEN aa = 3: ?"It is nightfall." IF move > 75 AND aa = 3 THEN aa = 4: ?"It is early morning." IF move > 85 AND aa = 4 THEN aa = 5: ?"The sun is rising." IF move > 100 AND aa = 5 THEN aa = 6: ?"The day has begun.": dy = dy + 1 IF move > 115 AND aa = 6 THEN aa = 7: ?"It is late in the morning." IF move > 125 AND aa = 7 THEN aa = 8: ?"It is midday." IF move > 145 AND aa = 8 THEN aa = 9: ?"It is late in the afternoon." IF move > 155 THEN move = 0: aa = 0 END IF if move=150 then color 12,1:?"You sense friendship back in the world once more.":lo(19)=rm:rh=200:COLOR 15,1 COLOR 15,1 RETURN alias: s=0:for x=1 to 10:if al$(x)<>"" then ? x":"al$(x)" "bl$(x):s=1 next: if s=0 then ?"You have no aliases assigned." GOTO 170 saved: LINE INPUT "Enter a filename (leave out .SAV extension): ",gg$ if len(gg$)>8 then ?"Filename too long. Max is 8 characters (leave out .SAV extension).":?"Try again.":goto saved OPEN gg$+".sav" for output as #1 PRINT #1,hp PRINT #1,hm PRINT #1,mp PRINT #1,mm PRINT #1,ex PRINT #1,gd PRINT #1,ic PRINT #1,im PRINT #1,qs PRINT #1,rm PRINT #1,dy PRINT #1,ac PRINT #1,lt PRINT #1,wd PRINT #1,fd PRINT #1,wa PRINT #1,sc PRINT #1,sk PRINT #1,ml PRINT #1,ss PRINT #1,cc PRINT #1,pc PRINT #1,rh PRINT #1,rm PRINT #1,victory PRINT #1,SO$ FOR X=1 TO 10 PRINT #1,al$(x) PRINT #1,bl$(x) NEXT FOR X=7 to 35 PRINT #1,lo(x) NEXT CLOSE #1 PRINT "Game saved under filename ";gg$;".sav" GOTO 170 loaded: COLOR 11,1 FILES "*.sav" COLOR 15,1 PRINT loaded2: LINE INPUT "Enter a filename (leave out .SAV extension): ",gg$ if len(gg$)>8 then ?"Filename too long. Max is 8 characters (leave out .SAV extension).":?"Try again.":goto loaded2 OPEN gg$+".sav" for input as #1 INPUT #1,hp INPUT #1,hm INPUT #1,mp INPUT #1,mm INPUT #1,ex INPUT #1,gd INPUT #1,ic INPUT #1,im INPUT #1,qs INPUT #1,rm INPUT #1,dy INPUT #1,ac INPUT #1,lt INPUT #1,wd INPUT #1,fd INPUT #1,wa INPUT #1,sc INPUT #1,sk INPUT #1,ml INPUT #1,ss INPUT #1,cc INPUT #1,pc INPUT #1,rh INPUT #1,rm INPUT #1,victory INPUT #1,SO$ FOR X=1 TO 10 INPUT #1,al$(x) INPUT #1,bl$(x) NEXT FOR X=7 to 35 INPUT #1,lo(x) NEXT CLOSE #1 PRINT "Game loaded under filename ";gg$;".sav" SLEEP 2 GOTO lookma help: OPEN "gotf_hlp.txt" for input as #1 SI=0 readme: COLOR 11,1 LINE INPUT #1,qo$:if left$(qo$,3)="***" then goto readme2 PRINT qo$:SI=SI+1:if SI=23 THEN SI=1:COLOR 14,1:?"[ More ]":GOSUB wt35 goto readme readme2: CLOSE #1 COLOR 14,1:PRINT "[ End of text file ]" if start=1 then goto begingame GOTO 170 wt35: a$=inkey$:if a$="" then goto wt35 RETURN quit: END score: 700 GOSUB rankme:PRINT NA$ 701 PRINT "You have";hp;"of";hm;"hit points." 702 PRINT "You own";mp;"of";mm;"mana points." 703 PRINT "You have gained";ex;"experience points." 704 PRINT "You have scored";sc;"out of 500 points." 705 PRINT "This ranks you as ";SO$;"." 706 GOTO 170 rankme: SO$="NOVICE CHEF" if sc>=0 and sc<=100 then SO$="APPRENTICE CHEF" if sc>=101 and sc<=200 then SO$="SUSHI CHEF" if sc>=201 and sc<=300 then SO$="MASTER CHEF" if sc>=301 and sc<=400 then SO$="SUPREME MASTER CHEF" if sc>=401 and sc<500 then SO$="HER MOST HIGHNESS CHEF" if sc>=500 then SO$="THE NAMELESS ONE" RETURN mapit: COLOR 10,1 PRINT"<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>" COLOR 11,1 PRINT PRINT" Branch2-- Hut1" PRINT" | " PRINT" Old Tree3 -- By the pond4" PRINT" | " PRINT" 30LM --Lush Meadow5" PRINT" | " PRINT" LM6 -- LM29" PRINT" | " PRINT" By the road7 -- Road8 -- Road9 -- Road10 -- ???" PRINT" | " COLOR 14,1 PRINT "[ More ]" wt40: a$=inkey$:if a$="" then goto wt40 COLOR 11,1 PRINT" Intersection15-- Road14-- Road13-- Road12-- Road11" PRINT" |" PRINT" Old Forest16 -- OF17 -- OF18 -- OF39 -- OF40 -- ???" PRINT" | " PRINT" Tree of Eternal Rot20--OF19 -- Tree of Eternal Life21 " PRINT" | " PRINT" The Oibara Inn36--Kirigami Factory37 " PRINT" | " PRINT" Guild of Tenrikyo38 " COLOR 10,1 PRINT"<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>" COLOR 15,1 PRINT "Alas, the right side of the map is torn completely off.":GOTO 170 plant: if sk=19 and rm<>19 then ?"You have already planted a Sake Melon Tree elsewhere.":GOTO 170 if sk=19 then ?"You are looking at it, stupid!":GOTO 170 if rm<>19 then ?"The SAKE TREE may only be planted near Oibara Inn.":GOTO 170 COLOR 10,1 PRINT "You plant the seeds in the ground and water happily." PRINT "In a moment, a magical Sake Melon Tree sprouts from the ground, full of life!" COLOR 11,1 PRINT "You now have a Sake Melon Tree. It will periodically produce the four" PRINT "vital ingredients necessary in spell casting (which can also be purchased" PRINT "at the store, but at cost)." PRINT "To harvest, type 'harvest tree'. It will not always bare fruit, however." PRINT "You may have to wait awhile for the proper time of day." sk=19 GOTO 170 harvest: IF move>=75 and move<=125 THEN color 10,1:PRINT "The Sake Melon Tree is ripe with fruit!" COLOR 14,1:PRINT"You have regained 4 melons, 3 sake pellets, 5 cherry chunks and 2 peach slices." ml=4:ss=3:cc=5:pc=2 move=126 GOTO 170 END IF COLOR 11,1:PRINT"Alas, the Sake Melon Tree is not ready to bare fruit.":?"If you wait awhile, it may be ready soon." GOTO 170 fightmenu: ez=0 mz=0 fighthergood: COLOR 11,1 if n<18 or lo(n)<>rm or fl(n)<=0 then ?"You can't fight that.":GOTO 170 if fl(n)=2 then COLOR 10,1:?"You sense that the monster":?"is friendly and back away!":GOTO 170 mh=p(n):if dm=1 or dm=0 then dm=1 if ac=1 or ac=0 then ac=1 if lo(7)=105 then dm=18:?"You are wielding the sword.":else dm=1:?"You wield nothing..." COLOR 10,1 ?"<><><><><> Fight menu <><><><><> COLOR 11,1 ?"| [F]ight,[C]ast,[U]se,[R]un | COLOR 10,1 ?"<><><><><><><><><><><><><><><><> COLOR 15,1 wt50: a$=inkey$:if a$="" then goto wt50 if a$="f" and ez=0 then goto fightit if a$="f" and ez=1 then COLOR 13,1:PRINT"You are too exhausted to fight.":goto round2 if a$="c" then goto castit if a$="u" then goto useit if a$="r" then goto runit goto wt50 fightit: RANDOMIZE TIMER:i=int(rnd*35)+1 ED$=" exhausted and cannot continue." YO$="You are" TA$=no$(n)+" is " MW1$=YO$+ED$ MW2$=TA$+ED$ WS1$="You hit "+no$(n)+"." WS2$="You wounded "+no$(n)+"." WS3$="You severely wounded "+no$(n)+"!" WS4$="You mortally wounded "+no$(n)+"!" MS1$=UCASE$(no$(n))+" hit you." MS2$=UCASE$(no$(n))+" wounded you." MS3$=UCASE$(no$(n))+" severely wounded you!" MS4$=UCASE$(no$(n))+" mortally wounded you! COLOR 7,1 ?">" COLOR 15,1 if i<=5 then ?"You missed ";no$(n);"." if i>=6 and i<=10 then ? WS1$:dt=(mh*.05):mh=mh-dt if i>=11 and i<=15 then ? WS2$:dt=(mh*.13):mh=mh-dt if dm=0 or dm=1 then goto round2 if i>=16 and i<=20 then ? WS3$:dt=(mh*.32):mh=mh-dt if i>=21 and i<=30 then ? WS4$:dt=(mh*(i*3)):mh=mh-dt if i>=31 then ? UCASE$(no$(n));" blocked your attack." monsterfights: COLOR 7,1 ?">" IF lo(19)=rm THEN color 10,1:PRINT "Raiythius attacks ";no$(n);"..." RANDOMIZE TIMER:ra=int(rnd*35)+1 if ra<=5 or ra>=21 then ?"Raiythius missed ";no$(n);"." if ra<=6 and ra<=10 then ? "Raiythius hit ";no$(n);".":dt=(mh*.05):mh=mh-dt if ra<=11 and ra<=15 then ? "Raiythius wounded ";no$(n);".":dt=(mh*.13):mh=mh-dt if ra<=16 and ra<=20 then ? "Raiythius severely wounded ";no$(n);".":dt=(mh*.32):mh=mh-dt END IF round2: SLEEP 1 COLOR 7,1 ?">" COLOR 11,1 PRINT "Your Sake Points:";cint(hp);"/";cint(hm) PRINT "Enemy's Sake:";cint(mh) ?">" SLEEP 1 COLOR 10,1 if vod=1 then vd=vd+1:if vd<=3 then COLOR 11,1:?"EIGHT DOPPLEGANGERS surround ";UCASE$(no$(n));"!":?"They swing and attack, self-inflicting wounds on themselves!":dt=(mh*.32):mh=mh-dt:goto fighthergood vd=0:vod=0:COLOR 11,1:?"The effects of VISION OF DEATH have worn off..." end if GOSUB raiysays COLOR 15,1 if mh<=25 then ? MW2$:if mh>=0 then goto fighthergood if mh<=0 then mh=0:COLOR 10,1:PRINT "HOORAY!!! The monster ";UCASE$(no$(n));" is defeated!":goto deathpoem if pv=1 then pe=pe+1:if pe<=3 then color 11,1:? UCASE$(no$(n));" is still paralyzed by the effects of the ORCHID RAIN spell.":goto fighthergood pe=0:pv=0:COLOR 11,1:?"The effects of the ORCHID RAIN paralysis have worn off..." end if RANDOMIZE TIMER:k=int(rnd*35)+1 if k<=5 then ?"The ";UCASE$(no$(n));" missed you." if k>=6 and k<=10 then ? MS1$:dt=(hp*.05):hp=hp-dt if k>=11 and k<=15 then ? MS2$:dt=(hp*.13):hp=hp-dt COLOR 10,1 if k>=16 and k<=19 then if lo(19)=rm then ? UCASE$(no$(n));" turns to attack Raiythius!":?"Raiythius sustains damage!":dt=(rh*.25):rh=rh-dt if rh<=0 and lo(19)=rm then COLOR 13,1:?"OH NO! Raiythius is mortally wounded!" color 10,1:?"Raiythius moans,'Son of a bitch! THAT HURT! YOU MOTHERFUCKER,";UCASE$(no$(n));"!'" COLOR 7,1:?"Raiythius limps away, back into the forest...":lo(19)=-5 end if COLOR 15,1 if esh=1 then se=se+1:if se<=6 then color 14,1:?"BLOSSOM SWIRLS surround you, protecting you from":?"serious harm.":goto round3 se=0:esh=0:COLOR 11,1:?"The effects of the BLOSSOM SWIRL spell have worn off..." end if if k>=20 and k<=25 then ? MS3$:dt=(hp*.32):hp=hp-dt if ac>1 then goto round3 if k>=26 and k<=30 then ? MS4$:dt=(hp*(i*3)):hp=hp-dt round3: if k>=31 then ? "You blocked their attack." COLOR 7,1 ?">" COLOR 15,1 if hp<=25 then ? MW1$:if hp>=0 then goto fighthergood if hp<=0 then hp=0:COLOR 12,1:PRINT "ALAS, YOU ARE TOO WEAK TO CONTINUE...":?"The battle is lost...":goto deathpoem goto fighthergood $SEGMENT castit: COLOR 10,1 ?"<><><><><><><><><> Cast a spell <><><><><><><><><><> COLOR 11,1 ?"| [ 1 ] ORCHID RAIN 2/4 Melon, 1/3 Sake | ?"| [ 2 ] BLOSSOM SWIRL 2/5 Cherry, 1/2 Peach | ?"| [ 3 ] GHOSTLY GLOW 3/4 Melon, 2/2 Peach | ?"| [ 4 ] VISIONS OF DEATH 4/5 Cherry, 3/3 Sake | ?"| [ 0 ] Cast nothing... | COLOR 10,1 ?"<><><><><><><><><> Type 0 to 4! <><><><><><><><><><> COLOR 14,1 ?"===| Melon:";ml;" | Sake:";ss;" | Cherry:";cc;" | Peach:";pc;" |====" COLOR 15,1 wt77: a$=inkey$:if a$="" then goto wt77 if a$="0" then goto fightit if a$="1" then if ml<2 then COLOR 13,1:?"You do not have enough Melon to cast that spell!":goto castit if a$="1" then if ss<1 then COLOR 13,1:?"You do not have enough Sake to cast that spell!":goto castit if a$="1" then goto spell1 if a$="2" then if cc<2 then COLOR 13,1:?"You do not have enough Cherry to cast that spell!":goto castit if a$="2" then if pc<1 then COLOR 13,1:?"You do not have enough Peach to cast that spell!":goto castit if a$="2" then goto spell2 if a$="3" then if ml<3 then COLOR 13,1:?"You do not have enough Melon to cast that spell!":goto castit if a$="3" then if pc<2 then COLOR 13,1:?"You do not have enough Peach to cast that spell!":goto castit if a$="3" then goto spell3 if a$="4" then if cc<4 then COLOR 13,1:?"You do not have enough Cherry to cast that spell!":goto castit if a$="4" then if ss<3 then COLOR 13,1:?"You do not have enough Sake to cast that spell!":goto castit if a$="4" then goto spell4 COLOR 13,1:PRINT "Please order by menu item." GOTO wt77 spell1: COLOR 15,1 PRINT ">>>>>"; COLOR 14,1 PRINT ">>>>>"; COLOR 13,1 PRINT ">>>>>"; COLOR 12,1 PRINT ">>>>>"; COLOR 13,1 PRINT " O R C H I D - R A I N !!!!!" COLOR 11,1 PRINT "From afar, you hear the Singing Nobunaga's as they play:" PRINT "You burry the infidels in a rain of pain /" PRINT "All they see is blood running down the drain!" PRINT "Sock it to them good and you'll kick their ass /" PRINT "They'll be begging for mercy as they hit the grass!" ml=ml-2:ss=ss-1 dt=(mh*.25):mh=mh-dt COLOR 10,1 PRINT "A flurry of cherry blossoms rain down upon ";no$(n);"!" PRINT "They are momentarily paralyzed!":pv=1 GOTO monsterfights spell2: COLOR 15,1 PRINT ">>>>>"; COLOR 14,1 PRINT ">>>>>"; COLOR 13,1 PRINT ">>>>>"; COLOR 12,1 PRINT ">>>>>"; COLOR 14,1 PRINT " B L O S S O M - S W I R L !!!!!" COLOR 11,1 ?"From afar, you hear the Singing Nobunaga's as they play:" ?"From the heavens drops a swirl of mindless whirl /" ?"as the gates of hell make the enemy hurl!" ?"You can look far and wide for the wetless one /" ?"but she's kicking your ass; you're over and done!" cc=cc-2:pc=pc-1 esh=1 COLOR 10,1 ?"A swirl of large blossoms surround you, protecting your" ?"body from harm." GOTO monsterfights spell3: COLOR 15,1 PRINT ">>>>>"; COLOR 14,1 PRINT ">>>>>"; COLOR 13,1 PRINT ">>>>>"; COLOR 12,1 PRINT ">>>>>"; COLOR 14,1 PRINT " G H O S T L Y - G L O W !!!!!" COLOR 11,1 ?"From afar, you hear the Singing Nobunaga's as they play:" ?"A drop of pain from a glowing ball /" ?"It will hit their skin and scald their fall" ?"There are 108 reasons to avoid this pain /" ?"except when you're ";UCASE$(no$(n));"...out in the rain!" ml=ml-3:pc=pc-2 COLOR 10,1 ?"A large orb of green light shoots at the enemy, splitting into" ?"108 pieces! The orbs decimate the target with utmost severity!" ? UCASE$(no$(n));" is severely wounded!" dt=(mh*.50):mh=mh-dt GOTO monsterfights spell4: COLOR 15,1 PRINT ">>>>>"; COLOR 14,1 PRINT ">>>>>"; COLOR 13,1 PRINT ">>>>>"; COLOR 12,1 PRINT ">>>>>"; COLOR 14,1 PRINT " V I S I O N S - O F - D E A T H !!!!!" COLOR 11,1 ?"From afar, you hear the Singing Nobunaga's as they play:" ?"Your vision's all blurry, its ghostly white /" ?"you're begging for darkness in eternal light!" ?"You'll be slicing and dicing all over the land /" ?"thank God for Camphora and your own damned hand!" cc=cc-4:ss=ss-3 vod=1 COLOR 10,1 ?"Eight ghostly dopplegangers surround ";UCASE$(no$(n));"!" ?"The monster becomes confused and starts attacking itself!" GOTO monsterfights useit: COLOR 10,1 ?"<><><><><> Item menu <><><><><>" for x=7 to 16 if lo(x)=0 or lo(x)=105 or lo(x)=205 then color 11,1:?" [";x;"] ";no$(x);"." next color 10,1 ?"<><><><><> Use what? <><><><><>" wt55: a$=inkey$:if a$="" then goto wt55 if a$="7" then color 13,1:?"No effect.":goto monsterfights if a$="8" then color 13,1:?"No effect.":goto monsterfights if a$="9" then color 13,1:?"No effect.":goto monsterfights if a$="10" then color 13,1:?"No effect.":goto monsterfights if a$="11" then color 10,1:?"You use the WOLF URINE...":?"You restored your mana levels.":mp=mm:lo(11)=999:ic=ic-1:goto monsterfights if a$="12" then color 10,1:?"You use the BOTTLE OF SAKE...":?"You restored your health.":hp=hm:lo(12)=999:wa=wa+500:ic=ic-1:goto monsterfights if a$="13" then color 10,1:?"You use the RICE GRUEL...":?"You restored your health.":hp=hm:lo(13)=999:fd=fd+500:ic=ic-1:goto monsterfights if a$="14" then color 10,1:?"You use the MEAT CHOPS...":?"Raiythius is restored to health.":rh=rm:lo(14)=999:ic=ic-1:goto monsterfights if a$="15" or a$="16" then color 13,1:?"No effect.":goto monsterfights COLOR 13,1:?"Please choose by item number." goto wt55 runit: COLOR 11,1 randomize timer:rr=int(rnd*10)+1 if rr>=7 then ?"You ran away successfully...":GOTO 170 ?"You were not successful...":GOTO monsterfights deathpoem: if mh<=0 then COLOR 11,1:? UCASE$(no$(n));" puts on a robe and begins":?"to compose their death poem.":goto deathpoem2 COLOR 11,1:? "You sense that the end is near. You put on":?"the traditional robes and begin":?"to compose your death poem.":goto deathpoemyou deathpoem2: COLOR 15,1 ? UCASE$(no$(n));" says,'It is finished!'":COLOR 11,1:? UCASE$(no$(n));" commits seppuku, going left to right with their blade.":?"They die most painfully.":lo(n)=998:GOTO win deathpoemyou: COLOR 15,1:?"Please enter your death poem below. You may enter":?"up to 15 lines of text. The resulting poem will be":?"posted in Oibara Inn when you reload the game.":?"You can read it by typing 'read poem':" poem: COLOR 10,1 li=li+1:?"(Line";li;") ['*' ends]: "; COLOR 14,1:line input "",dp$(li):if li=15 or dp$(li)="*" then goto poem2 goto poem poem2: print "Enter a name for this poem (8 characters or less): "; line input "",gg$:if len(gg$)>8 then ?:?"Too long!":goto poem2 gopo: OPEN gg$+".dps" for output as #1 DS1$="Camphora died at the hands of " DS2$=UCASE$(no$(n)) DS3$=" on day " DS4$=STR$(dy) DS5$=" of real-time date " DS6$=DATE$+"." DS7$="Herein lies his death poem:" DS$=DS1$+DS2$+DS3$+DS4$+DS5$+DS6$ PRINT #1,li PRINT #1,DS$ PRINT #1,DS7$ FOR x=1 to li:PRINT #1,dp$(x):NEXT CLOSE#1 COLOR 15,1:?"You finish composing your death poem.":COLOR 11,1:?"'Oh, the sweet, sweet seppuku!' you moan.":?"You commit seppuku, slashing your belly left to right.":?"You die in horrible agony.":SLEEP 5:RUN win: if n=27 then goto finalv color 10,1:?"You gained a level. Good work!" hm=hm+25:hp=hm:mm=mm+8:mp=mm:gd=gd+(n*5) lo(n)=998:rh=200:fd=fd+100:wa=wa+100 GOTO 170 raiysays: if lo(19)<>rm then goto felttip randomize timer:ry=int(rnd*52)+1 if ry=1 then color 14,1:?"RAIYTHIUS says,'I'm going to urinate on their leg! Just you watch!'" if ry=2 then color 14,1:?"RAIYTHIUS barks at you!":?"'C'mon, bitch! I haven't got all day, you know!'" if ry=3 then color 14,1:?"RAIYTHIUS sighs. 'I've had better luck with wild ducks!'" if ry=4 then color 14,1:?"RAIYTHIUS laughs at ";UCASE$(no$(n));"!":?"He says,'What is this? Fighting school for drug addicts?'" if ry=5 then color 14,1:?"RAIYTHIUS thinks about the poem he will compose tonight." if ry=6 then color 14,1:?"RAIYTHIUS ducks!":?"'Watch it, dickhead!'" if ry=7 then color 14,1:?"RAIYTHIUS says,'By your blood we be clean! And we are SPARKLING, HA HA!'" if ry=8 then color 14,1:?"RAIYTHIUS runs in circles around ";UCASE$(no$(n));"!":?"He mocks them, saying,'Just try and catch me, Euro-bitch!'" if ry=9 then color 14,1:?"RAIYTHIUS farts on ";UCASE$(no$(n));"!":?"He says,'Oh, so sorry!'" if ry=10 then color 14,1:?"RAIYTHIUS smacks you!":?"'C'mon, fucker! Fight like a man!'" if ry=11 then color 14,1:?"RAIYTHIUS hides behind ";UCASE$(no$(n));"!":?"He barks at you, screaming,'Are you trying to hit me, bitch?!'" if ry=12 then color 14,1:?"RAIYTHIUS smiles.":?"He says to ";UCASE$(no$(n));",'I'm going to fuck you up something bad!'" if ry=13 then color 14,1:?"RAIYTHIUS lunges at ";UCASE$(no$(n));"!":?"He screams,'See the claw! BE THE CLAW, BITCH!'":dt=(mh*.75):mh=mh-dt felttip: RETURN readpoem: COLOR 10,1 PRINT "<><><><><> Oibara Inn Poem Menu <><><><><>" COLOR 11,1 FILES "*.dps" COLOR 10,1:? PRINT "<><><><><><><><><><><><><><><><><><><><><>" COLOR 15,1 LINE INPUT"Enter poem name (minus extension):",gg$ PRINT:COLOR 11,1:?"The death poem reads:" open gg$+".dps" for input as #1 input #1,li input #1,DS$:COLOR 15,1:? DS$ input #1,DS7$:? DS7$ for x=1 to li:input #1,dp$(x):? dp$(x):NEXT CLOSE #1 goto 170 finalv: COLOR 10,1 PRINT PRINT "At long last, you are victorious over your sworn enemy. Now you can finally" PRINT "return to this land as a creature of peace. Go to the Oibara Inn to celebrate." PRINT "There will be a final presentation in your honor!" COLOR 11,1 ?"Raiythius is so happy that he urinates on his foot!" COLOR 15,1 ?"'Ahhh, shit!' he barks. 'Damned excitement has gotten the best of me!'" COLOR 11,1 ?"'I'll see you at the inn.' you remark." COLOR 15,1 ?"Raiythius turns to you a final time and replies,'You can count on it, old friend!'" COLOR 7,1 ?"Raiythius leaves south." COLOR 15,1 ?"You turn to face the rising sun, knowing it rises for you!" victory=1 GOTO 170 finalv2: COLOR 15,1 ?"Dunric steps down from the stage.":?"He congratulates you.":COLOR 11,1:?"'Well done, Camphora! I never knew you had it in you!'" COLOR 10,1:?"You bow to the Master of Spunk.":COLOR 11,1:?"'I am sorry that they treated you so badly.' you reply." COLOR 15,1:?"But Dunric only laughs.":COLOR 11,1:?"'This competition will never change me.'":?"'It is they who need changing the most.' SLEEP 5 COLOR 14,1:?"Dunric smiles." COLOR 11,1:?"'My final act will be my greatest adventure yet...' he says with a hint of satisfaction." COLOR 15,1:?"But before you can even ask, Dunric takes out a knife and commits seppuku, right in front of you!" COLOR 11,1:?"'The flowers...!' he gasps. 'They are so beautiful!'" COLOR 11,1:?"Dunric dies.":SLEEP 5:END END wearit: ac=1:dm=1:SI=0:for x=7 to 17 if x=7 and lo(x)=0 then SI=1:lo(x)=105:?"(Wielded):";no$(x);":Ok.":dm=18:wd=1 if x=8 and lo(x)=0 then SI=1:lo(x)=205:?"(Worn):";no$(x);":Ok.":ac=ac+x if x=9 and lo(x)=0 then SI=1:lo(x)=205:?"(Worn):";no$(x);":Ok.":ac=ac+x if x=10 and lo(x)=0 then SI=1:lo(x)=205:?"(Worn):";no$(x);":Ok.":ac=ac+x if x>=11 and lo(x)=0 then SI=1:?"(Worn):";no$(x);":cannot equip." next:IF SI=0 then ?"That didn't seem to work.":GOTO 170 GOTO 170 removeit: SI=0:for x=7 to 17 if x=7 and lo(x)=105 then SI=1:lo(x)=0:?"(Wielded):";no$(x);":Ok.":dm=1:wd=0 if x=8 and lo(x)=205 then SI=1:lo(x)=0:?"(Remove):";no$(x);":Ok.":ac=ac-x if x=9 and lo(x)=205 then SI=1:lo(x)=0:?"(Remove):";no$(x);":Ok.":ac=ac-x if x=10 and lo(x)=205 then SI=1:lo(x)=0:?"(Remove):";no$(x);":Ok.":ac=ac-x if x>=11 and lo(x)=0 then SI=1:?"(Remove):";no$(x);":cannot unequip." next:IF SI=0 then ?"That didn't seem to work.":GOTO 170 GOTO 170 pads: if rm<>25 then ?"You can't touch any pads here!":?"You must be in the waterfall to touch the lily pads.":GOTO 170 COLOR 10,1 ?"<><><><><> Lily pads <><><><><>" COLOR 15,1 ?"This appears to be a puzzle." ?"Each lily pad glows a different" ?"color.":? ?"There are four lily pads here:" ?"[ 1 ] Red lily pad" ?"[ 2 ] Blue lily pad" ?"[ 3 ] Green lily pad" ?"[ 4 ] Yellow lily pad" REM 2,3,4,1,1,4,3,2 nf=20 tn=0 pads2: for x=1 to 8 color 11,1:?"Press which pad (1-4)? "; wt102: a$=inkey$:if a$="" then goto wt102 COLOR 10,1 if a$="2" and x=1 then ? a$:?"The wall sinks somewhat.":tn=tn+2 if a$="3" and x=2 then ? a$:?"The wall sinks somewhat.":tn=tn+3 if a$="4" and x=3 then ? a$:?"The wall sinks somewhat.":tn=tn+4 if a$="1" and x=4 then ? a$:?"The wall sinks somewhat.":tn=tn+1 if a$="1" and x=5 then ? a$:?"The wall sinks somewhat.":tn=tn+1 if a$="4" and x=6 then ? a$:?"The wall sinks somewhat.":tn=tn+4 if a$="3" and x=7 then ? a$:?"The wall sinks somewhat.":tn=tn+3 if a$="2" and x=8 then ? a$:?"The wall sinks somewhat.":tn=tn+2 NEXT if tn=nf then COLOR 14,1:?"POOF! The wall collapses, revealing a passageway!":m(25,3)=26:goto 170 COLOR 15,1 ?"The wall repairs itself quickly, returning to the original height." COLOR 11,1 ?"It appears as though you were not successful." COLOR 7,1 ?"Try the puzzle again (y/n)? "; wt103: a$=inkey$:if a$="" then goto wt103 if a$="y" or a$="Y" then ? a$:SLEEP 1:goto pads if a$="n" or a$="N" then ? a$:SLEEP 1:goto 170 goto wt103 ninja: ?"A ninja leaps from the shadows! He trains his katana on your heart, primed" ?"to slice it open and spill every last inch of your guts upon the ground! As" ?"you gaze upon the ninja, you sense a familiarity with the scene; who is this" ?"ninja? You ponder this thought for a moment, thinking of the ways of the" ?"bushido your grandfather, Akura, taught you many years ago. To your utter" ?"surprise, the ninja stops and removes his head scarf. The ninja is a woman!" ?"She bows before you and says sharply,'My name is Akai Nakamichi. I am" ?"a lone Ronin, searching for my master! He has not returned from a recent" ?"assignment. Do you know where he is?'" COLOR 7,1:?"You have but three options:" ?"[ 1 ] Answer the ninja's question truthfully." ?"[ 2 ] Refuse to answer the ninja's question." ?"[ 3 ] Fight the ninja!" wt109: COLOR 11,1:?"Please select (1-3): "; wt110: a$=inkey$:if a$="" then goto wt110 if a$="1" then ? a$:COLOR 15,1:?"You say,'He's in the sky, near the castle.'":COLOR 13,1:?"The ninja says,'Your answer was not acceptable!":return if a$="2" then ? a$:COLOR 15,1:?"You say,'I'm not going to answer your question!'":COLOR 13,1:?"The ninja screams,'Then die, knave!'":return if a$="3" then ? a$:color 15,1:?"You say,'I'm going to kick your ass!'":color 13,1:?"The ninja flips out and says,'So be it...!'":return goto wt109