PB-100は氏ね |READY P1    |

このエントリーをはてなブックマークに追加
707707
勢いで作ってみた。正直後悔してる。

浣腸ゲームストーリー:
 2XXX年、地球は突如出現したシチネン星人の攻撃を受けていた。
 核爆弾の爆心地にいても平然としているシチネン星人であったが、
尻子魂を抜かれると腑抜けになることが判明した。
 そこで人類はシチネン星人を撃退するために河童たちに地球の
未来を託した。
 そして河童を統率する竜王であるあなた=雄尻好の臀喰竜
(オシリスのでんくうりゅう)はシチネン星人50体の待つ
戦場へと旅立つのだった。
708707:2006/05/05(金) 02:51:48
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
709707:2006/05/05(金) 02:57:40
↑入力ミス、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

まぁ無許可な訳だが(汗