Enjoy programming more!
Kidspod is a post site which supports young programmers.
First step to join us.
Register as a member
For members

2019/02/24 22:19:44

MixJuice GET URL : kidspod.club/mj/752

ダブルクダリ　通常版

この前作った「ワンライン　ダブルクダリ」が案外面白かったので、通常版で作りました。
キーの反応も良くしています。

ネコと宇宙人、どちらも障害物にぶつからないように操作してください。
操作は左右キー。ネコと宇宙人は一緒に動きます。
速度はだんだん速くなります。
左上の数字がスコアです。

エンターキーで再ゲームです。

  • 1
  • 2
  • 1
  • 2

SOURCE CODE

5 'DOUBLE KUDARI
10 CLS:CLV:X=75
20 K=INKEY():CLK
30 X=X-(K=LEFT OR BTN(LEFT))+(K=RIGHT OR BTN(RIGHT))
40 LOCATE A,2:PRINT " "
50 LOCATE B,6:PRINT " "
60 LOCATE RND(31),23:PRINT "*"
70 A=(X+31)%31:LOCATE A,2:C=SCR():PRINT CHR$(#EC)
80 B=(X+36)%31:LOCATE B,6:D=SCR():PRINT CHR$(#ED)
90 S=S+1:LOCATE 0,0:PRINT S
100 WAIT 10-S/100:BEEP 4
110 IF C+D=0 THEN GOTO 20
120 WAIT 50:BEEP 200,20:LOCATE 12,10:PRINT "GAME OVER"
130 WAIT10:E=(E+1)*!E
140 LOCATE A,2:PRINT CHR$(#EC*E+C*!E)
150 LOCATE B,6:PRINT CHR$(#ED*!E+D*E)
160 IF INKEY()=10 THEN RUN ELSE GOTO 130

COMMENT