• IchigoJam

10 'ランタ゛ムシ゛ャンフ゜サッチャン
20 CLS:CLT:?"~コノケ゛ームノセツメイ~ シ゛ャンフ゜スルタカサハランタ゛ムニナッテイマス。 レヘ゛ルハ1カラ10マテ゛エラヘ゛マス。 レヘ゛ルノ5ハ゛イノカス゛トフ゛トケ゛ームクリア! ケントウヲイノル。":LC 0,3:?"レヘ゛ルヲイレテエンターキーテ゛ケ゛ームスタート!!":LC 0,5:INPUT "レヘ゛ルハ?(1~10) レヘ゛ル",L
25 CLS:FOR N=0 TO 4:LC 15,12:?5-N:BEEP10,30:WAIT 60:N=N+1/2:NEXT
26 LC 13,12:?"START":BEEP 5,90:WAIT 90
30 IF L>10 L=10
40 IF L<1 L=1
50 Y=22:V=99:X=15:U=5:S=0
60 IF V!=99 Y=Y+V:V=V+1
70 IF Y>22 Y=22:V=99:S=S+1:BEEP5
80 X=X+U
90 IF X>15 U=U-1
100 IF X<15 U=U+1
110 IF INKEY()=32 AND Y=22 BEEP10:V=-(RND(5)+1)
120 CLS
130 LC 15,Y:?CHR$(249)
140 IF Y=22 LC 15,Y:?CHR$(249) ELSE LC 15,Y:?CHR$(250)
150 LC X,22:?"-"
160 LC 0,1:?"SCORE:";S;"/";L*5;" ";"レヘ゛ル";L
170 IF S=L*5 LC 10,12:?"GAME CLEAR!":BEEP 5,90:END
180 IF Y=22 AND X=15 BEEP 30,90:LC 12,12:?"ヤラレチャッタ":LC 15,Y:?"(#F4)":FOR C=0 TO 5:VIDEO2:WAIT 5:VIDEO1:WAIT 5:C=C+1:NEXT:END
190 WAIT ABS(11-L):GOTO 60

Pagetop