• IchigoJam

10 'ランタ゛ムシ゛ャンフ゜サッチャン
20 CLS:LC8,7:?"ランタ゛ムシ゛ャンフ゜サッチャン":LC6,18:?"Please press any key"
30 LC11,21:?"2026 YOIKO"
40 IFINKEY()ELSEGOTO40
50 CLS:CLT:LC10,0:?"~コノケ゛ームノセツメイ~":LC 0,2:?"シ゛ャンフ゜スルタカサハランタ゛ムニナッテイマス。 スヘ゜ースキーテ゛シ゛ャンフ゜シマス。 レヘ゛ルノ5ハ゛イノカス゛トヘ゛ルトケ゛ームクリア! ケントウヲイノル。":LC 0,6:?"レヘ゛ルヲイレテエンターキーテ゛ケ゛ームスタート!!":LC0,8:INPUT"レヘ゛ルハ?(1~10) レヘ゛ル",L
60 S=0:CLS:FORN=0TO2:LC15,12:?3-N:BEEP10,30:WAIT60:NEXT
70 LC13,12:?"START":BEEP5,90:WAIT90
80 IFL>10L=10
90 IFL<1L=1
100 Y=22:V=99:X=15:U=5:S=0
110 IFV!=99Y=Y+V:V=V+1
120 IFY>22Y=22:V=99:S=S+1:BEEP5
130 X=X+U
140 IFX>15U=U-1
150 IFX<15U=U+1
160 IFINKEY()=32ANDY=22BEEP10:V=-(RND(5)+1)
170 CLS
180 LC15,Y:?CHR$(249)
190 IFY=22LC15,Y:?CHR$(249)ELSELC15,Y:?CHR$(250)
200 LCX,22:?"-"
210 LC0,0:?"SCORE:";S;"/";L*5;" ";"レヘ゛ル";L;"(WAIT";(11-L);")"
220 IFS=L*5LC10,12:?"GAME CLEAR!":BEEP5,90:LED1:WAIT60*5:LED0:GOTO20
230 IFY=22ANDX=15BEEP30,90:LC12,12:?"ヤラレチャッタ":LC15,Y:?CHR$(244):FORC=0TO5:VIDEO2:LED1:WAIT5:VIDEO1:LED0:WAIT5:C=C+1:NEXT:WAIT60*5:GOTO60
240 WAITABS(11-L):GOTO110

Pagetop