2013年4月1日投稿 / 投稿者 : ヤッフー / タグ : 投稿プログラム
適当PZL、1@PZLのとうじょうです。 これは、2こつなげると、きえる仕組みです。 ブロックのまわりは聖域ですので、ブロックを近くにやれば、まわりのブロックがきえます。
↓→ドロップ ←→→移動
プチコンmkII 向けの QR コードは、バグがあったため、なくしました。
- ACLS:CLEAR:BGMSTOP
- LOCATE 10,8:?”Tekitou PZL”
- LOCATE 10,10:?”{1@PZL}
- WAIT 180
- BGMPLAY 27
- @RE
- IF SC>=1000 THEN SC=999
- X=15:Y=0
- AC=RND(7)+1
- CLS
- FOR I=2 TO 23
- ?” ■ ■”
- NEXT
- LOCATE 9,0:?”■■■■■■■■■■■■■”
- LOCATE 9,22:?”■■■■■■■■■■■■■”
- LOCATE 22,0:?”Tekitou”
- LOCATE 22,1:?” PZL”
- LOCATE 22,2:?” {1@PZL}”
- @LOOP
- LOCATE 0,2:?”LV.”LV
- LOCATE 0,0:?”SCORE:”SC
- BGPUT 0,X−1,Y−1,0,0,0,0
- BGPUT 0,X+1,Y−1,0,0,0,0
- BGPUT 0,X,Y,AC,0,0,0
- BGREAD(0,X,Y+1),CHR0,PAL,H,V
- IF CHR0 THEN GOTO @HN
- Y=Y+1
- IF Y==22 THEN GOTO @HN
- IF BUTTON() AND 4 THEN IF X>10 THEN X=X−1
- IF BUTTON() AND 8 THEN IF X<20 THEN X=X+1
- VS=9:LV=1
- IF SC>=10 THEN VS=8:LV=2
- IF SC>=50 THEN VS=4:LV=3
- IF SC<=100 THEN VS=3:LV=4
- IF SC<=500 THEN VS=1:LV=5
- IF BUTTON() AND 2 THEN VS=1
- VSYNC VS
- GOTO @LOOP
- @HN
- WAIT 5
- BEEP 23,8000
- IF Y==0 THEN @GAMEO
- XX=10
- FOR XX=10 TO 20
- FOR YY=2 TO 23
- BGREAD(0,XX,YY),CHR,PAL,H,V
- IF CHR THEN GOSUB @HN2
- NEXT
- NEXT
- GOTO @RE
- @HN2
- BGREAD(0,XX−1,YY),CHR2,PAL,H,V
- BGREAD(0,XX+1,YY),CHR3,PAL,H,V
- BGREAD(0,XX,YY−1),CHR4,PAL,H,V
- BGREAD(0,XX,YY+1),CHR5,PAL,H,V
- IF CHR==CHR2 THEN BGPUT 0,X,Y,0,0,0,0:BGPUT 0,XX−1,YY,0,0,0:BEEP 12:SC=SC+1
- IF CHR==CHR3 THEN BGPUT 0,X,Y,0,0,0,0:BGPUT 0,XX+1,YY,0,0,0:BEEP 12:SC=SC+1
- IF CHR==CHR4 THEN BGPUT 0,X,Y,0,0,0,0:BGPUT 0,XX,YY−1,0,0,0:BEEP 12:SC=SC+1
- IF CHR==CHR5 THEN BGPUT 0,X,Y,0,0,0,0:BGPUT 0,XX,YY+1,0,0,0:BEEP 12:SC=SC+1
- RETURN
- @GAMEO
- LOCATE 8,8:?”GAME OVER”
- BGMPLAY 6:WAIT 600
- END
この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)
表示モード : [ スマホ・3DS対応表示 | クラシック表示 ]
PukiWiki 1.4.7 Copyright © 2001-2006 PukiWiki Developers Team. License is GPL. Based on "PukiWiki" 1.3 by yu-ji
ページの処理時間 : 0.106 秒 | このページの最終更新 : 2022/09/20 (火) 12:43:57 (565d) | ログイン
Copyright(C) 2011-2014 プチコンまとめWiki ◆1sxkymI8ji30