10 LO(1)=2:LO(2)=4:I=0:LC=1:CLS:PRINT"Ninja v1.32":PRINT"By: Paul Panks (dunric@yahoo.com)":GOSUB 800 20 PRINT:IF LC=1 THEN PRINT"It is dark, you see a shinto shrine (with an entrance)." 30 IF LC=1 THEN PRINT"The mountains of Tokyo hover behind you." 35 IF LC=1 THEN PRINT"The city rises to the east." 36 GOSUB 201 40 INPUT A$:IF CT>24 THEN GOTO 100 41 CT=CT+1:K=I 50 IF LC=1 THEN IF A$="north" OR A$="go north" OR A$="n" THEN PRINT"The way is blocked. Find another, master...":I=I-5:GOTO 40 51 IF LC=1 THEN IF A$="south" OR A$="go south" OR A$="s" THEN PRINT"The road is too steep.":I=I-2:GOTO 40 52 IF A$="inventory" OR A$="inv" THEN PRINT"You are carrying:":GOSUB 500:I=I+3:GOTO 40 53 IF A$="score" THEN PRINT"Only the kami know!":I=I+1:GOTO 40 54 IF A$="help" OR A$="hint" THEN PRINT"It's like a finger pointing away to the moon. Don't concentrate on the":?"finger, or you will miss all the heavenly glory.":GOSUB 400:I=I-5:GOTO 40 55 IF LC=1 THEN IF A$="east" OR A$="go east" OR A$="e" THEN PRINT"You are by the shinto shrine to the east.":I=I+3:GOTO 40 56 IF LC=1 THEN IF A$="west" OR A$="go west" OR A$="w" THEN PRINT"That way is blocked by trees.":I=I-4:GOTO 40 57 IF LC=1 THEN IF A$="up" OR A$="go up" OR A$="u" THEN PRINT"The sky is up, not the ascended master...":I=I-5:GOTO 40 58 IF LC=1 THEN IF A$="down" OR A$="go down" OR A$="d" THEN PRINT"The lords of the forest forbid it.":I=I-3:GOTO 40 59 IF A$="examine shrine" OR A$="x shrine" THEN PRINT"The shrine is a heavenly structure pointed upwards to the heavens above you.":?"Birds fly atop it, scattering the sky with a distant breeze.":I=I+25:GOTO 40 60 IF A$="examine mountains" OR A$="x mountains" THEN PRINT"The mountains are too far away, master...":I=I-8:GOTO 40 61 IF A$="examine Tokyo" OR A$="examine tokyo" OR A$="x tokyo" OR A$="x Tokyo" THEN PRINT"The city rises in the East, nearest the fading sun. You notice":?"stars about you, twinkling like diamonds in the sky.":I=I+8:GOTO 40 63 IF A$="quit" OR A$="bye" OR A$="exit" THEN PRINT"You have not yet completed this adventure, master...":I=I-1:GOTO 40 64 IF A$="save" OR A$="save game" THEN PRINT"The Gods are not with you on this one, O' Master Ryoko...":I=I-2:GOTO 40 65 IF A$="look" THEN I=I-6:GOTO 20 66 IF A$="i" OR A$="l" THEN PRINT"You cannot do that. You are not a master yet...":I=I-5:GOTO 40 67 IF LEFT$(A$,4)="kill" OR LEFT$(A$,5)="fight" THEN PRINT"The Gods of Peace are in your veins. Be strong in peace, be strong in self...":I=I-15:GOTO 40 68 IF A$="examine stars" OR A$="x stars" THEN PRINT"The stars twinkle like diamonds.":I=I+4:GOTO 40 69 IF A$="examine sky" OR A$="examine heaven" OR A$="examine heavens" THEN PRINT"The sky is a mixture of light and dark, like the Yin and the Yang.":I=I+12:GOTO 40 70 IF A$="examine birds" OR A$="x birds" THEN PRINT"The birds are moving too fast to examine closely. They appear to be heading":PRINT"towards the eastern horizon.":I=I+6:GOTO 40 71 IF A$="examine city" OR A$="x city" THEN PRINT"The city is alive with light. It is like a forest, only":PRINT"larger. You wonder if anyone who knows you can see you.":I=I+3:GOTO 40 72 IF A$="examine sun" OR A$="x sun" THEN PRINT"The sun is fading downward, below the horizon. The sky is getting darker.":I=I+2:GOTO 40 73 IF A$="examine horizon" OR A$="x horizon" THEN PRINT"The horizon twinkles like the stars above, ahead of the sun.":I=I+4:GOTO 40 74 IF A$="examine moon" OR A$="x moon" THEN PRINT"The moon is not out yet, O' Master Ryoko...":I=I-2:GOTO 40 75 IF LEFT$(A$,14)="examine shinto" OR LEFT$(A$,8)="x shinto" THEN A$="examine shrine":GOTO 59 76 IF A$="examine trees" OR A$="x trees" THEN PRINT"The trees parallel your path in all directions here.":I=I-1:GOTO 40 77 IF A$="examine road" OR A$="x road" THEN PRINT"The road descends some one-hundred feet ahead, near":?"a small cherry orchard.":I=I+6:GOTO 40 78 IF A$="examine orchard" OR A$="x orchard" THEN PRINT"The orchard is too far away. You do notice cherries on the trees.":I=I+3:GOTO 40 79 IF A$="examine cherries" OR A$="x cherries" THEN PRINT"The cherries are red and look delicious!":?"(Too bad you cannot reach them...)":I=I+12:GOTO 40 80 IF A$="get sword" OR A$="take sword" THEN IF LO(1)<>LC THEN PRINT"Even that you cannot do, O' Master Ryoko...":GOTO 40 81 IF A$="get sword" OR A$="take sword" THEN LO(1)=101:PRINT"Taken, O' Master Ryoko...":I=I+5:GOTO 40 82 IF A$="enter shrine" AND LC=1 THEN LC=2:PRINT"You enter the shrine...":I=I+10:GOTO 20 83 IF A$="drop sword" AND LO(1)<>101 THEN PRINT"You do not carry it, O' Master Ryoko...":I=I-4:GOTO 40 84 IF A$="drop sword" THEN LO(1)=LC:PRINT"You drop the sword. It clatters as it hits the ground.":I=I-2:GOTO 40 85 IF A$="exit shrine" AND LC=2 THEN LC=1:PRINT"You exit the shrine...":I=I+5:GOTO 20 86 IF LC=2 THEN IF A$="go north" OR A$="north" OR A$="n" THEN PRINT"There's a wall there.":I=I-3:GOTO 40 87 IF LC=2 THEN IF A$="go south" OR A$="south" OR A$="s" THEN PRINT"Your path is blocked. Try 'exit shrine' instead.":I=I-2:GOTO 40 88 IF LC=2 THEN IF A$="go east" OR A$="east" OR A$="e" THEN PRINT"You bumped your head on a wall.":I=I-3:GOTO 40 89 IF LC=2 THEN IF A$="go up" OR A$="up" OR A$="u" OR A$="go down" OR A$="down" OR A$="d" THEN PRINT"The Gods forbid it, master....":I=I-8:GOTO 40 90 IF LC=2 THEN IF A$="go west" OR A$="west" OR A$="w" THEN LC=3:I=I+6:?"You pass through the window to the west...":GOTO 20 91 IF LC=3 THEN IF A$="examine tree" OR A$="examine oak" OR A$="examine oak tree" OR A$="x tree" THEN IF TR=0 THEN PRINT"It is an old oak, whithered by age and time.":?"If fallen, it would span the river.":I=I+5:GOTO 40 92 IF LC=3 THEN IF A$="go east" OR A$="east" OR A$="e" THEN LC=2:I=I+2:?"You enter the window to the east...":GOTO 20 93 IF LC=3 THEN IF A$="go west" OR A$="west" OR A$="w" THEN IF TR=0 THEN ?"The river is too dangerous to cross now.":?"(Somehow, you need to cross it...)":I=I-2:GOTO 40 94 IF LC=3 THEN IF A$="go west" OR A$="west" OR A$="w" THEN ?"You walk across the tree, reaching the other side of the river...":LC=4:I=I+12:GOTO 40 95 IF A$="cut tree" OR A$="chop tree" OR A$="chop down tree" OR A$="cut down tree" THEN IF LC=3 AND LO(1)=101 AND TR=0 THEN TR=1:?"Wwwwhhhooossshhh!!!":?"< THUD!!! >":?"The tree falls down, spanning the river to the west.":I=I+10:GOTO 40 96 IF A$="cut tree" OR A$="chop tree" OR A$="chop down tree" OR A$="cut down tree" THEN IF LC=3 AND LO(1)=101 AND TR=1 THEN ?"The tree has already fallen down, O' Master Ryoko...":?"You bow to the fallen foe.":I=I+3:GOTO 40 97 IF A$="cut tree" OR A$="chop tree" OR A$="chop down tree" OR A$="cut down tree" THEN IF LC=3 THEN ?"Alas, you'll need something else.":?"You'll need a sword, master...":I=I-3:GOTO 40 98 GOTO 600 99 PRINT"You cannot do that.":I=I-5:GOTO 40 100 PRINT"A ninja leaps from the shadows!":I=I+10 101 RANDOMIZE TIMER:A=INT(RND*I)+1 102 IF A>49 THEN PRINT"You deftly avoided it, slicing it with a mortal blow.":?"You have defeated the ninja, O' Master...":PRINT:PRINT"May the Gods bless you...":PRINT:PRINT"@ The End @":GOTO 150 103 IF A>20 THEN PRINT"The ninja advances towards you...":PRINT:RANDOMIZE TIMER:U=INT(RND*200)+1:HP=ABS(A+I):R=ABS(K):M=R*2:GOTO 155 104 PRINT"The ninja strikes you, slicing you in half...":PRINT"It is the end...":PRINT:PRINT"@ The End @":GOTO 150 150 GOSUB 200:PRINT"Play again (Y/N)?" 151 B$=INKEY$:IF B$="" THEN GOTO 151 152 IF B$="y" OR B$="Y" THEN RUN 153 IF B$="n" OR B$="N" THEN PRINT"Thanks again... :)":END 154 GOTO 151 155 RANDOMIZE TIMER:I=INT(RND*25)+1:PRINT">":IF HP<1 THEN HP=0 156 PRINT"@ You attack @":IF I<5 THEN PRINT"Alas, you missed the ninja..." 157 IF I>4 AND I<10 THEN PRINT"You hit the ninja very hard.":U=U-R 158 IF I>9 AND I<=15 THEN PRINT"AMAZING BLOW! The ninja is sliced badly!":U=U-(R*4) 159 IF I>15 THEN PRINT"The ninja dodged your attack..." 160 PRINT">":RANDOMIZE TIMER:I=INT(RND*25)+1:IF U<1 THEN U=0 161 PRINT"@ The ninja attacks @":IF I<5 THEN PRINT"He missed you..." 162 IF I>4 AND I<10 THEN PRINT"The ninja strikes you hard!":HP=HP-M 163 IF I>9 AND I<=15 THEN PRINT"WOW! The ninja sliced you badly!!":HP=HP-(M*2) 164 IF I>15 THEN PRINT"You dodged the attack..." 165 PRINT">":IF U<1 OR HP<1 THEN GOTO 172 166 PRINT"@ Press any key... @" 167 B$=INKEY$:IF B$="" THEN GOTO 167 168 GOTO 155 172 IF U<1 THEN PRINT">":A=101:GOTO 102 173 PRINT">":GOTO 104 200 GOSUB 900:PRINT:PRINT"Score:";A;"/";I:PRINT:RETURN 201 IF LC=2 THEN PRINT"You are within the shinto shrine. The room is lit by only" 202 IF LC=2 THEN PRINT"the light from a nearby window. All else is darkness." 203 IF LC=2 THEN PRINT"You may 'exit shrine' to the south, or head west":?"out the window." 204 IF LC=3 THEN PRINT"You are by an old oak tree outside the shrine." 205 IF LC=3 THEN PRINT"There is a river to the west, but there is" 206 IF LC=3 THEN PRINT"nary a bridge in sight.":?"Across the river stands the shrine of the Evil One.":?"(You must reach it somehow...)":IF TR=1 THEN ?"A tree has fallen, spanning the river to the west." 207 IF LC=4 THEN PRINT"You are across the river, in front of the Evil One's":?"shrine. It looks dark and forboding. You feel a presence in":?"the shadows nearby. You must leave, NOW!":CT=CT+5 208 IF LC=4 THEN PRINT"The only exit is east." 209 IF LO(1)=LC THEN PRINT"There is a sword here. It gleams in the moonlight." 210 IF LO(2)=LC THEN PRINT"There is a golden idol here." 211 IF LC=5 THEN PRINT"You are atop an old tree. Looking down, you see the river":?"raging below, and a shrine to the west, just beyond":?"the river's edge." 299 RETURN 400 ?:PRINT"Verbs: GO,GET,DROP,USE,EXAMINE,LOOK,INVENTORY,CUT,CHOP,KILL,SCORE,HELP,QUIT":PRINT"ENTER,SAVE,CLIMB,ENTER and EXIT.":RETURN 500 SI=0:IF LO(1)=101 THEN PRINT" sword, gleaming brightly in the moonlight.":SI=1 501 IF LO(2)=101 THEN PRINT" golden idol, of the ancient kami spirit.":SI=1 502 IF SI=0 THEN PRINT" Nothing.":RETURN 503 RETURN 600 IF A$="go east" OR A$="east" OR A$="e" THEN IF LC=4 THEN LC=3:?"You escape to the east...":I=I+4:GOTO 20 601 IF A$="climb tree" OR A$="go up" OR A$="u" THEN IF LC=3 AND TR=0 THEN LC=5:?"You climb up the tree...":I=I+8:GOTO 20 602 IF A$="climb tree" OR A$="go down" OR A$="d" THEN IF LC=5 THEN LC=3:?"You climb down the tree...":I=I+4:GOTO 20 603 IF A$="get idol" OR A$="get golden idol" OR A$="take idol" OR A$="take golden idol" THEN IF LO(2)=LC AND LC=4 THEN LO(2)=101:?"Taken, O' Master Ryoko...":?"Quick, you must leave, NOW!":I=I+15:CT=CT-5:GOTO 40 604 IF A$="get idol" OR A$="get golden idol" OR A$="take idol" OR A$="take golden idol" THEN PRINT"You cannot get that, master...":I=I-4:GOTO 40 605 IF A$="drop idol" OR A$="drop golden idol" THEN IF LO(2)=101 AND LC<>2 THEN ?"You cannot drop it here, master...":?"The idol belongs inside the safety of the shrine!":I=I-2:GOTO 40 606 IF A$="drop idol" OR A$="drop golden idol" THEN IF LO(2)=101 AND LC=2 THEN GOTO 700 607 IF A$="climb tree" THEN ?"Even you cannot do that, O' Master Ryoko...":I=I-4:GOTO 40 608 IF LEFT$(A$,3)="get" OR LEFT$(A$,4)="take" THEN ?"You cannot do that. You are not a master yet...":I=I-4:GOTO 40 609 IF A$="x idol" OR A$="examine idol" THEN IF LO(2)=LC OR LO(2)=101 THEN ?"The idol gleams in the distant moonlight.":?"It is an ancient Kami spirit, protector of the forest.":I=I+3:GOTO 40 610 IF A$="climb mountain" OR A$="climb mountains" THEN ?"They are too far away to climb.":I=I-2:GOTO 40 611 IF A$="x entrance" OR A$="examine entrance" THEN IF LC=1 THEN ?"The entrance to the shrine is just ahead of you.":?"You may 'enter shrine' at any time.":I=I+4:GOTO 40 612 IF A$="x river" OR A$="examine river" THEN IF LC=3 OR LC=4 THEN ?"The river flows to the southeast, just beyond":?"the mountains to the south.":I=I+3:GOTO 40 613 IF A$="x tree" OR A$="examine tree" THEN IF LC=3 AND TR=1 THEN ?"The tree lies flat against the ground, chopped down":?"in the prime of youth. You bow to the fallen friend...":I=I+5:GOTO 40 614 IF A$="x sword" OR A$="examine sword" THEN IF LO(1)=101 OR LO(1)=LC THEN ?"The sword is a finely crafted katana.":?"It gleams faintly in the still moonlight.":I=I+2:GOTO 40 699 GOTO 99 700 ?"You drop the golden idol, placing it atop the altar of":?"the shinto shrine. Your grandfather, who taught you well, would":?"have been most proud of this day, O' Master Ryoko, for you":?"are a true warrior of Japan, serving "; 701 ?"the world with your peaceful":?"ways of kami. May the Gods bless you always, O' Master...":?:?"@ The End @":A=A+ABS(K):IF A>I THEN A=I 702 GOTO 150 800 PRINT:PRINT"You are a ninja of peace, seeking the golden idol a rival clan" 801 PRINT"stole from your grandfather many years ago. The Evil One, said to be a" 802 PRINT"master clad in black robes, built a rival shrine across from the shrine" 803 PRINT"of your master. He has sent his ninjas after you, to finish the job his" 804 PRINT"own master began. But you are strong, determined to avoid such an" 805 PRINT"unseemly fate..." 806 RETURN 900 IF A<1 OR I<1 THEN A=ABS(A):I=ABS(I) 901 IF A>I THEN O=I:I=A:A=O 902 RETURN