Hugging Face's logo

Buckets:
bl791
/
IFDB

Files
xet
bl791/IFDB / games /competition2007 /windows /firefly /FIREFLY.BAS
bl791's picture
bl791
download
raw
117 kB
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: <verb> <noun> [and,then] <verb> <noun>.":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] <object>":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 <verb> <noun> <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 <verb> <noun> <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<p(n) then ?"Bruce Lee says,'Ah, so sorry...you don't have enough gold, master!'":mn=1:return
if ic>=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! <You smelly green ogre, you!>'"
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<gr then color 7,1:?"The concubine bartender says,'You don't have enough money.'":COLOR 15,1:?"Gold:";gd:goto super
hp=hp+ru:gp=gp-gr:COLOR 7,1:?"The concubine bartender says,'Thank you.'":mn=1:GOTO 170
menu2:
if gp<gr then color 7,1:?"The concubine bartender says,'You don't have enough money.'":COLOR 15,1:?"Gold:";gd:goto super
hp=hp+ru:gp=gp-gr:COLOR 7,1:?"The concubine bartender says,'Thank you.'":mn=1:GOTO 170
menu3:
if gp<gr then color 7,1:?"The concubine bartender says,'You don't have enough money.'":COLOR 15,1:?"Gold:";gd:goto super
hp=hp+ru:gp=gp-gr:COLOR 7,1:?"The concubine bartender says,'Thank you.'":mn=1:GOTO 170
menu4:
if gp<gr then color 7,1:?"The concubine bartender says,'You don't have enough money.'":COLOR 15,1:?"Gold:";gd:goto super
hp=hp+ru:gp=gp-gr:COLOR 7,1:?"The concubine bartender says,'Thank you.'":mn=1:GOTO 170
menu5:
if gp<gr then color 7,1:?"The concubine bartender says,'You don't have enough money.'":COLOR 15,1:?"Gold:";gd:goto super
hp=hp+ru:gp=gp-gr:COLOR 7,1:?"The concubine bartender says,'Thank you.'":mn=1:GOTO 170
menu6:
if gp<gr then color 7,1:?"The concubine bartender says,'You don't have enough money.'":COLOR 15,1:?"Gold:";gd:goto super
fd=fd+ru:gp=gp-gr:COLOR 7,1:?"The concubine bartender says,'Thank you.'":mn=1:GOTO 170
menu7:
if gp<gr then color 7,1:?"The concubine bartender says,'You don't have enough money.'":COLOR 15,1:?"Gold:";gd:goto super
wa=wa+ru:gp=gp-gr:COLOR 7,1:?"The concubine bartender says,'Thank you.'":mn=1:GOTO 170
menu8:
if gp<gr then color 7,1:?"The concubine bartender says,'You don't have enough money.'":COLOR 15,1:?"Gold:";gd:goto super
ml=ml+4:gp=gp-gr:COLOR 7,1:?"The concubine bartender says,'Thank you.'":mn=1:GOTO 170
menu9:
if gp<gr then color 7,1:?"The concubine bartender says,'You don't have enough money.'":COLOR 15,1:?"Gold:";gd:goto super
ss=ss+3:gp=gp-gr:COLOR 7,1:?"The concubine bartender says,'Thank you.'":mn=1:GOTO 170
menua:
if gp<gr then color 7,1:?"The concubine bartender says,'You don't have enough money.'":COLOR 15,1:?"Gold:";gd:goto super
cc=cc+5:gp=gp-gr:COLOR 7,1:?"The concubine bartender says,'Thank you.'":mn=1:GOTO 170
menub:
if gp<gr then color 7,1:?"The concubine bartender says,'You don't have enough money.'":COLOR 15,1:?"Gold:";gd:goto super
pc=pc+2:gp=gp-gr:COLOR 7,1:?"The concubine bartender says,'Thank you.'":mn=1:GOTO 170
spellexp:
COLOR 7,1
PRINT "The concubine bartender says,'Please listen carefully...':"
COLOR 10,1
PRINT "<><><><><><><><><><> 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 <item>' to purchase"
PRINT "an item from the shop (where '<item>' is anything"
PRINT "listed by Bruce for sale. Example: buy rice
PRINT
PRINT "To sell something, type 'sell <item>'. 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

Xet Storage Details

Size:
117 kB
·
Xet hash:
b590722a32dc3d8f74f0bf4ab9da1963f567314f559b958cca66f5e2dff8c207

Xet efficiently stores files, intelligently splitting them into unique chunks and accelerating uploads and downloads. More info.