|
|
!'選ばれし者
PRINT " ＊＊＊ ＳＴＯＲＹ ＊＊＊"
PRINT
PRINT
FOR I = 1 TO 4
READ A$
FOR J = 1 TO LEN(A$)
PRINT MID$(A$, J, 1);
WAIT DELAY .4
NEXT J
PRINT
NEXT I
WAIT DELAY 2
DATA "貴方はごく平凡な社会人。"
DATA "ある日、道を歩いて何気無く財布を拾ったことで、"
DATA "貴方はアドベンチャーの世界へ引き込まれてしまった。"
DATA "貴方は様々な試練に耐え、目的を果たすことができるか？"
1 PRINT "貴方は財布を拾った。"
PRINT "届ける (1) 中を調べる (2) ";
INPUT PROMPT "": N
IF N=1 THEN 11
IF N=2 THEN 31
2 PRINT "「よし、一緒に行ってやるよ」と言ってくれた。"
PRINT "一緒に行ってもらう (1) やっぱり一人で行く (2) ";
INPUT PROMPT "": N
IF N=1 THEN 60
IF N=2 THEN 22
3 PRINT "岸に向かって君は泳いでいた。しかし、敵は先回りしていた。"
PRINT "君にめがけて銃が火を吹いた。"
PRINT " ＊＊＊ ＧＡＭＥ ＯＶＥＲ ＊＊＊"
STOP
4 PRINT "相手の態度が変わった。「貴方こそ、私達が捜していた悪魔を封じ込める力を持つものです。"
PRINT "お願いです。カギを握る「魔の家」へ行ってください」と頼まれた。"
PRINT "「魔の家」にいく (1) 行かない (2) ";
INPUT PROMPT "": N
IF N=1 THEN 51
IF N=2 THEN 103
5 PRINT "２階は大広間になっていた。"
PRINT "床を調べる (1) 壁を調べる (2) 家具を調べる (3) ";
INPUT PROMPT "": N
IF N=1 THEN 84
IF N=2 THEN 26
IF N=3 THEN 99
6 PRINT "森の中に小屋を発見した。"
PRINT "中にはいる (1) 無視する (2) ";
INPUT PROMPT "": N
IF N=1 THEN 16
IF N=2 THEN 96
7 PRINT "逃げようとしたが、壁の穴に吸い込まれてしまった。"
PRINT "君はもう戻れない。"
PRINT " ＊＊＊ ＧＡＭＥ ＯＶＥＲ ＊＊＊"
STOP
8 PRINT "何とか捕まえることができた。これからどうする？"
PRINT "人質にして交換を要求する (1) 服を取り替えて相手に近づく (2) ";
INPUT PROMPT "": N
IF N=1 THEN 65
IF N=2 THEN 53
9 PRINT "君はついに悪魔の壷のある部屋に着いた。どこを調べますか？"
PRINT "壁を調べる (1) 祭壇を調べる (2) 天井を調べる (3) ";
INPUT PROMPT "": N
IF N=1 THEN 20
IF N=2 THEN 59
IF N=3 THEN 54
10 PRINT "入口が自動的に締まり、君は永遠に閉じ込められた。"
PRINT " ＊＊＊ ＧＡＭＥ ＯＶＥＲ ＊＊＊"
STOP
11 PRINT "君は何の冒険にも会わず、ごく日常的な生活を送った。"
PRINT " ＊＊＊ ＧＡＭＥ ＯＶＥＲ ＊＊＊"
STOP
12 PRINT "突然、男にピストルを突きつけられた。「一緒にきてもらうぞ！」"
PRINT "一緒に行く (1) 逃げる (2) ";
INPUT PROMPT "": N
IF N=1 THEN 32
IF N=2 THEN 55
13 PRINT "何とか無事に戻れたが結局、謎は何も解けないままだった。"
PRINT " ＊＊＊ ＧＡＭＥ ＯＶＥＲ ＊＊＊"
STOP
14 PRINT "中に入ると、まず２階への階段が目に付いた。"
PRINT "１階を調べる (1) ２階へ上がる (2) ";
INPUT PROMPT "": N
IF N=1 THEN 81
IF N=2 THEN 62
15 PRINT "カギを穴にいれた途端、君の身体にショックが走った。高圧電流が襲ったのだ！！"
PRINT " ＊＊＊ ＧＡＭＥ ＯＶＥＲ ＊＊＊"
STOP
16 PRINT "中には人がいた。「私も壷を捜している。森の中の洞窟にあるのは分かっているが、"
PRINT "私では行けない。お前が代わりに行ってくれないか？」と言われた。"
PRINT "言葉を信じて行く (1) 信じないで別の道を行く (2) ";
INPUT PROMPT "": N
IF N=1 THEN 75
IF N=2 THEN 96
17 PRINT "獣が群れを成している。幸い君は小屋で武器を手にいれているが・・・"
PRINT "戦う (1) 回り道をする (2) ";
INPUT PROMPT "": N
IF N=1 THEN 58
IF N=2 THEN 48
18 PRINT "地下の迷路に迷い込んだ。２度と出られなかった。"
PRINT " ＊＊＊ ＧＡＭＥ ＯＶＥＲ ＊＊＊"
STOP
19 PRINT "「嘘をつくな！ ボスはここにはいない。お前はニセ者だ！」"
PRINT "そう言ったと同時に男の剣は君を貫いていた。"
PRINT " ＊＊＊ ＧＡＭＥ ＯＶＥＲ ＊＊＊"
STOP
20 PRINT "壁に書かれている絵の一部が崩れている。どうやらここに秘密がありそうだ！"
PRINT "叩いてみる (1) 押してみる (2) ";
INPUT PROMPT "": N
IF N=1 THEN 10
IF N=2 THEN 39
21 PRINT "調べてみると、どうやら古代の文字で書かれているようだ。資料が必要だ。"
PRINT "図書館にいく (1) 専門家を尋ねる (2) ";
INPUT PROMPT "": N
IF N=1 THEN 50
IF N=2 THEN 73
22 PRINT "指定の場所にいった君はそこで待っていた男に封筒を渡した。"
PRINT "「ご苦労様、メシでもおごろうか？」男は誘ってくれたが・・・"
PRINT "一緒に行く (1) 断る (2) ";
INPUT PROMPT "": N
IF N=1 THEN 88
IF N=2 THEN 12
23 PRINT "帰り道、君は何者かに付けられているのに気が付かなかった。"
PRINT "暗い道に入ったとき、君の運命は終わった。"
PRINT " ＊＊＊ ＧＡＭＥ ＯＶＥＲ ＊＊＊"
STOP
24 PRINT "葵はこの中には紙が入っていた。見たこともない字だが、君には読めた。"
PRINT "そこには「この文字が読めるものは悪魔を封ずる力のある選ばれし者なり」"
PRINT "と書かれていた"
PRINT "誘拐した相手にこのことを言う (1) 黙っている (2) ";
INPUT PROMPT "": N
IF N=1 THEN 4
IF N=2 THEN 71
25 PRINT "廊下を進むと、左右に部屋があり、前には２階へいく階段がある。"
PRINT "部屋を調べる (1) ２階へいく (2) ";
INPUT PROMPT "": N
IF N=1 THEN 68
IF N=2 THEN 62
26 PRINT "壁の一部が崩れ、君はまっ逆さまに下へ落ちていった。"
PRINT " ＊＊＊ ＧＡＭＥ ＯＶＥＲ ＊＊＊"
STOP
27 PRINT "銀の壷に手にいれると突然痛みが走った。慌てて手を見ると毒虫が噛みついていた。"
PRINT "君は後一歩のところで目的を達成できなかった。"
PRINT " ＊＊＊ ＧＡＭＥ ＯＶＥＲ ＊＊＊"
STOP
28 PRINT "相手がだまされているうちに、捕らえられていた男を助け出した。"
PRINT "一緒に行動する (1) 別行動をとる (2) ";
INPUT PROMPT "": N
IF N=1 THEN 49
IF N=2 THEN 9
29 PRINT "敵は強かった。君は歯が立たなかった。"
PRINT " ＊＊＊ ＧＡＭＥ ＯＶＥＲ ＊＊＊"
STOP
30 PRINT "逃げる途中、道が二つに分かれていた。"
PRINT "右へいく (1) 左へいく (2) ";
INPUT PROMPT "": N
IF N=1 THEN 9
IF N=2 THEN 72
31 PRINT "中には名刺と封筒が入っていた。"
PRINT "名刺のところに電話する (1) 面倒だから捨てる (2) ";
INPUT PROMPT "": N
IF N=1 THEN 64
IF N=2 THEN 11
32 PRINT "君は車に乗せられた。どこを走っているのか分からない。"
PRINT "やがて車は止まった。ふと見ると男は油断しているようだ。"
PRINT "すきを見て逃げる (1) そのまま乗る (2) ";
INPUT PROMPT "": N
IF N=1 THEN 55
IF N=2 THEN 40
33 PRINT "君は島に出かけて行った。ところが、島に着くと怪しい男たちが、"
PRINT "先に上陸していた。隠れようとしたが見つかってしまった。"
PRINT "わざと捕まる (1) 逃げる (2) ";
INPUT PROMPT "": N
IF N=1 THEN 94
IF N=2 THEN 78
34 PRINT "「どうしてあそこで溺れていたのかね？」助けてもらった船の船長に尋ねられた。"
PRINT "今までのことを話す (1) 嘘をいう (2) ";
INPUT PROMPT "": N
IF N=1 THEN 56
IF N=2 THEN 13
35 PRINT "階段が崩れ落ち、君は下敷きになった。"
PRINT " ＊＊＊ ＧＡＭＥ ＯＶＥＲ ＊＊＊"
STOP
36 PRINT "「あいつ逃げる気だな」見張りの男が君を撃った。"
PRINT " ＊＊＊ ＧＡＭＥ ＯＶＥＲ ＊＊＊"
STOP
37 PRINT "壁の一部が開いて、別の通路を見つけた。その通路を進んでいくと、"
PRINT "一人の男を二人の番人が縛りあげているのが見えた。"
PRINT "出ていって救うために戦う (1) 様子を見る (2) ";
INPUT PROMPT "": N
IF N=1 THEN 29
IF N=2 THEN 69
38 PRINT "突然、頭上から獣が襲ってきた。君は逃げられない。"
PRINT " ＊＊＊ ＧＡＭＥ ＯＶＥＲ ＊＊＊"
STOP
39 PRINT "壁が開き、中から二つの壷が出てきた。"
PRINT "金の壷を調べる (1) 銀の壷を調べる (2) ";
INPUT PROMPT "": N
IF N=1 THEN 105
IF N=2 THEN 27
40 PRINT "車が止まった。降りるとそこは港で船があった。それに乗せられそうである。"
PRINT "おとなしく乗る (1) 海に飛び込んで逃げる (2) ";
INPUT PROMPT "": N
IF N=1 THEN 80
IF N=2 THEN 87
41 PRINT "箱を開けると中から毒ガスが出てきた。"
PRINT " ＊＊＊ ＧＡＭＥ ＯＶＥＲ ＊＊＊"
STOP
42 PRINT "浜を歩いていると、何か光るものを見つけた。"
PRINT "掘って調べる (1) 無視する (2) ";
INPUT PROMPT "": N
IF N=1 THEN 57
IF N=2 THEN 101
43 PRINT "隠れようとしたとき、音を立ててしまった。"
PRINT "何者だ！」君は見つかってしまった。"
PRINT "逃げる (1) わざと捕まる (2) ";
INPUT PROMPT "": N
IF N=1 THEN 30
IF N=2 THEN 83
44 PRINT "壁から槍が飛び出し、君は刺された。"
PRINT " ＊＊＊ ＧＡＭＥ ＯＶＥＲ ＊＊＊"
STOP
45 PRINT "誰に相談する？"
PRINT "喧嘩に強いＡ (1) 推理マニアのＢ (2) ";
INPUT PROMPT "": N
IF N=1 THEN 2
IF N=2 THEN 79
46 PRINT "なかには特に怪しいものはない。ふと見ると机上に二つの箱がある。"
PRINT "赤い箱を開ける (1) 青い箱を開ける (2) ";
INPUT PROMPT "": N
IF N=1 THEN 61
IF N=2 THEN 74
47 PRINT "下への階段は行き止まりだ。戻ろうとすると突然入口が締まり、閉じ込められた。"
PRINT " ＊＊＊ ＧＡＭＥ ＯＶＥＲ ＊＊＊"
STOP
48 PRINT "君は洞窟の前にたどり着いた。中に入ると何か聞こえる。どうやら壁の中から聞こえてくる。"
PRINT "壁を調べる (1) そのまま進む (2) ";
INPUT PROMPT "": N
IF N=1 THEN 37
IF N=2 THEN 18
49 PRINT "一緒に行動しているうちに行き止まりにきた。引き返そうとすると男は突然刀で君を刺した。"
PRINT "「悪く思うな。私が最後の番人だ！」"
PRINT " ＊＊＊ ＧＡＭＥ ＯＶＥＲ ＊＊＊"
STOP
50 PRINT "図書館で調べていると、一人の女性が覗き込んできて、こう言った。"
PRINT "「この文字は私の父が研究している文字です。来て戴けると分かります」"
PRINT "一緒にいく (1) 一人でやるからと断る (2) ";
INPUT PROMPT "": N
IF N=1 THEN 85
IF N=2 THEN 23
|
|