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