2012年09月10日投稿 / 投稿者 : LV100 / タグ : 投稿プログラム QRコード
2日で仕上げたゲームです。 当然クオリティは低いです。 大会用のページを丸ごと移植したのでおかしいところがあるかもです。
十字キーで移動し、赤い的に当たるだけ。 Aで加速、Bで減速できます。 RANK表示もあります。
これで2日クオリティですがどうなんでしょうか?
プチコンmkII 向けの QR コードです。
@ST ACLS:CLEAR:DIM M(2) X=128:Y=96:K=360:P=1.5:M=-1.5:MATI=2:STACK=0 TIME=3600 @TITLE LOCATE 5,3 ?”PLANE マトアテ ケ゛-ム” ?:?:?” PUSH A TO START” @LP IF BUTTON(2)!=16 GOTO @LP ?”LEADY・・・” MAT=180 VSYNC 0 @MLP LOCATE 3,8 ? FLOOR(MAT/0.6)/100 MAT=MAT-1 VSYNC 1 IF FLOOR(MAT/60)!=FLOOR((MAT+1)/60) THEN BEEP 9 IF MAT!=0 GOTO @MLP BEEP 7 CLS @MLOOP IF BUTTON() AND 16 THEN MATI=MATI-0.01 IF BUTTON() AND 32 THEN MATI=MATI+0.01 IF MATI<0.5 THEN MATI=0.5 IF BUTTON() AND 1 THEN GOSUB @UE IF BUTTON() AND 2 THEN GOSUB @SITA IF BUTTON() AND 4 THEN GOSUB @HIDARI IF BUTTON() AND 8 THEN GOSUB @MIGI IF K>360 THEN K=K-360 IF K<=0 THEN K=K+360 RK=RAD(K) IF K>0 AND K<=90 THEN PLX=SIN(RK)*P:PLY=COS(RK)*M IF K>90 AND K<=180 THEN PLX=SIN(RAD(180-K))*P:PLY=COS(RAD(180-K))*P IF K>180 AND K<=270 THEN PLX=SIN(RAD(K-180))*M:PLY=COS(RAD(K-180))*P IF K>270 AND K<=360 THEN PLX=SIN(RAD(360-K))*M:PLY=COS(RAD(360-K))*M X=X+PLX:Y=Y+PLY STACK=STACK+MATI IF TIME<0 GOTO @END GOSUB @GAME GLINE X+PLX,Y+PLY,X-PLX,Y-PLY,15 VSYNC FLOOR(STACK) STACK=STACK-FLOOR(STACK) GLINE X+PLX,Y+PLY,X-PLX,Y-PLY,0 GOTO @MLOOP @UE IF K<=180 AND K>0 THEN K=K-3 IF K<=360 AND K>180 THEN K=K+3 RETURN @SITA IF K<=180 AND K>0 THEN K=K+3 IF K<=360 AND K>180 THEN K=K-3 RETURN @HIDARI IF K<=90 AND K>0 THEN K=K-3 IF K<=270 AND K>90 THEN K=K+3 IF K<=360 AND K>270 THEN K=K-3 RETURN @MIGI IF K<=90 AND K>0 THEN K=K+3 IF K<=270 AND K>90 THEN K=K-3 IF K<=360 AND K>270 THEN K=K+3 RETURN @GAME TIME=TIME-FLOOR(STACK) IF MT==0 THEN M(0)=RND(128)+64:M(1)=RND(96)+48:MT=1 GCLS 0 GCIRCLE M(0),M(1),4,2 GPAINT M(0),M(1),2 IF GSPOIT(X,Y)==2 THEN SC=SC+1:BEEP 11:MT=0 LOCATE 0,0 ? SC LOCATE 0,2 ?”TIME:”;FLOOR(TIME/0.06)/1000;” ” RETURN @END BGMPLAY 5 LOCATE 0,2 ?”TIME:0.0000” LOCATE 0,4 ?”ケッカ:”;SC;”カイ” ?”LANK:”; IF SC<10 THEN ?”F” IF SC>=10 AND SC<13 THEN ?”E” IF SC>=13 AND SC<16 THEN ?”D” IF SC>=16 AND SC<19 THEN ?”C” IF SC>=19 AND SC<22 THEN ?”B” IF SC>=22 AND SC<25 THEN ?”A” IF SC>=25 THEN ?”S” ?”モウイチト゛ スル?” ?”Y・・А:N・・Б” @MD IF BUTTON(2)==16 GOTO @ST IF BUTTON(2)==32 THEN END GOTO @MD
この作品に対するコメントがあれば一言どうぞ。