PB-100は氏ね |READY P1 |
勢いで作ってみた。正直後悔してる。
浣腸ゲームストーリー:
2XXX年、地球は突如出現したシチネン星人の攻撃を受けていた。
核爆弾の爆心地にいても平然としているシチネン星人であったが、
尻子魂を抜かれると腑抜けになることが判明した。
そこで人類はシチネン星人を撃退するために河童たちに地球の
未来を託した。
そして河童を統率する竜王であるあなた＝雄尻好の臀喰竜
（オシリスのでんくうりゅう）はシチネン星人５０体の待つ
戦場へと旅立つのだった。
浣腸ゲームストーリー:
2XXX年、地球は突如出現したシチネン星人の攻撃を受けていた。
核爆弾の爆心地にいても平然としているシチネン星人であったが、
尻子魂を抜かれると腑抜けになることが判明した。
そこで人類はシチネン星人を撃退するために河童たちに地球の
未来を託した。
そして河童を統率する竜王であるあなた＝雄尻好の臀喰竜
（オシリスのでんくうりゅう）はシチネン星人５０体の待つ
戦場へと旅立つのだった。
|
|
|
1 PRINT "QUAN-CHANG":Q=0:S=0:W=0
2 C$=")*(":D$="]*[":F$="×":G$="・":N$="(":$=")"
3 FOR L=1 TO 50:P=11-LOG (L+.5:X=0:B=1-SGN FRAC(L/10
4 PRINT :PRINT CSR P;L;CSR X;C$(B);CSR 4;"+";
5 IF KEY="" THEN 16
6 E=1:H=0:IF ABS (INT X*B-3=1 THEN 14
7 IF W>0 THEN 16
8 PRINT CSR 4;F$(H);:H=1-H:W=2
9 FOR I=L/2.5 TO 20:NEXT I:IF INT X≠3 THEN 16
10 S=S+1:IF KEY="" THEN 17
11 IF E*RAN#>.5 THEN 8
12 IF E=1;E=0:PRINT CSR 3;"B..";:GOTO 9
13 PRINT CSR 4;"ri!";:N$=">":$="<":I=RAN#↑RAN#
14 FOR J=6 TO 11:I=RAN#↑RAN#
15 PRINT CSR J;$;CSR 11-J;N$;:NEXT J:STOP :GOTO 300
16 X=X+.3*INT(Q+RAN#*(4-Q:W=W-SGN W:IF X<7 THEN 4
17 Q=Q+.04:NEXT L:PRINT CSR 11;"0CONGRATULATIONS!"
18 PRINT "GAME IS OVER","SCORE =";S:GOTO 1
2 C$=")*(":D$="]*[":F$="×":G$="・":N$="(":$=")"
3 FOR L=1 TO 50:P=11-LOG (L+.5:X=0:B=1-SGN FRAC(L/10
4 PRINT :PRINT CSR P;L;CSR X;C$(B);CSR 4;"+";
5 IF KEY="" THEN 16
6 E=1:H=0:IF ABS (INT X*B-3=1 THEN 14
7 IF W>0 THEN 16
8 PRINT CSR 4;F$(H);:H=1-H:W=2
9 FOR I=L/2.5 TO 20:NEXT I:IF INT X≠3 THEN 16
10 S=S+1:IF KEY="" THEN 17
11 IF E*RAN#>.5 THEN 8
12 IF E=1;E=0:PRINT CSR 3;"B..";:GOTO 9
13 PRINT CSR 4;"ri!";:N$=">":$="<":I=RAN#↑RAN#
14 FOR J=6 TO 11:I=RAN#↑RAN#
15 PRINT CSR J;$;CSR 11-J;N$;:NEXT J:STOP :GOTO 300
16 X=X+.3*INT(Q+RAN#*(4-Q:W=W-SGN W:IF X<7 THEN 4
17 Q=Q+.04:NEXT L:PRINT CSR 11;"0CONGRATULATIONS!"
18 PRINT "GAME IS OVER","SCORE =";S:GOTO 1
↑入力ミス、15行目最後は「GOTO 18」です。
[遊び方]
「+」がオシリスの頭がある位置で、ここにシチネン星人の肛門
「*」が重なったときにキーを押すと、オシリスはそこに首を
突っ込んで尻子魂を食べます。
長時間キーを押し続ければ押し続けるだけ尻子魂を摂取でき
ますが、肛門に首を突っ込みすぎるとシチネン星人はもよおし
てしまい、「綻びの爆流（便意のバーストストリーム）」を
放ってしまいます。
また、十体に一体登場するアイアン名臀（アイアンメイデン・
名器と称えられる鋼鉄製の臀部）の尻は角ばっていて硬く、
誤って肛門以外の尻肉にぶつかってしまうとオシリスは首の
骨を折ってしまいます。
排泄物まみれになるか頚椎捻挫でゲームオーバーです。
[スペシャルサンクス]
・ストーリー：
>>701
・システム：
>>698
http://bubble4.2ch.net/test/read.cgi/i4004/1133233655/724
http://bubble4.2ch.net/test/read.cgi/i4004/1133233655/724
まぁ無許可な訳だが（汗
[遊び方]
「+」がオシリスの頭がある位置で、ここにシチネン星人の肛門
「*」が重なったときにキーを押すと、オシリスはそこに首を
突っ込んで尻子魂を食べます。
長時間キーを押し続ければ押し続けるだけ尻子魂を摂取でき
ますが、肛門に首を突っ込みすぎるとシチネン星人はもよおし
てしまい、「綻びの爆流（便意のバーストストリーム）」を
放ってしまいます。
また、十体に一体登場するアイアン名臀（アイアンメイデン・
名器と称えられる鋼鉄製の臀部）の尻は角ばっていて硬く、
誤って肛門以外の尻肉にぶつかってしまうとオシリスは首の
骨を折ってしまいます。
排泄物まみれになるか頚椎捻挫でゲームオーバーです。
[スペシャルサンクス]
・ストーリー：
>>701
・システム：
>>698
http://bubble4.2ch.net/test/read.cgi/i4004/1133233655/724
http://bubble4.2ch.net/test/read.cgi/i4004/1133233655/724
まぁ無許可な訳だが（汗