Program post site for everyone
左右キーで移動。かべに当たらないように進んでください。
スピードはだんだん速くなります。
再ゲームはエンターキーです。
ちょっと面白いかべのパターンができたのでゲームにしました。安直に川下りですが・・・
10 'CHITEI KUDARI 20 CLS:CLV:CLT 30 Z=5:L=18:V=1:M=-1:X=15:W=13 40 POKE #BE0,1:COPY #BE1,#BE0,7:COPY #BF8,#BE0,8:COPY #BDF,#BFF,-704 50 PRINT "CHITEI KUDARI" 60 LOCATE 21,0:PRINT "SCORE:" 70 POKE #960+X,0 80 COPY #920,#940,704 90 K=INKEY():CLK:X=X-(BTN(LEFT) OR K=LEFT)+(BTN(RIGHT) OR K=RIGHT) 100 C=SCR(X,3) 110 POKE #960+X,#ED 120 IF Z<0 OR Z+L>22 OR RND(10)=0 THEN V=-V:Z=Z+V 130 POKE #BF3+Z-L,1,1,#9C+(V=1)*2,0,0 140 POKE #BDF+Z+L,0,0,#9F-(V=1)*2,1,1 150 Z=Z+V:L=L+M:BEEP L,16 160 IF L<13 OR L>17 OR RND(10)=0 THEN M=-M 170 IF W>0 THEN WAIT W:IF TICK()>360 THEN CLT:W=W-1 180 S=S+1:LOCATE 27,0:PRINT S 190 IF C=0 THEN GOTO 70 200 VIDEO 2:BEEP 200,20 210 FOR I=0 TO 19:WAIT 10:LOCATE X,3:PRINT CHR$(#ED*(I%2)+C*(I%2=0));:NEXT 220 VIDEO 1:LOCATE 12,9:PRINT "GAME OVER"; 230 IF INKEY()=10 THEN RUN ELSE CONT
