2012年4月2日投稿 / 投稿者 : いのっち / タグ : 投稿プログラム ゲーム シューティングゲーム QRコード 初代対応
動作しているところを撮影した写真や動画があれば貼り付けてください。
プチコンmkII 向けの QR コードです。
- CLS:CLEAR:BGMSTOP:WAIT 20
- @TITLE
- LOCATE 9,6:?”イノッチクン ノ”
- LOCATE 11,8:?”UFO SHOT!”
- LOCATE 9,15:?”PUSH START!!”
- LOCATE 6,20:?” (C)2012/4/2 イノッチ”
- @LOOP1
- B=BUTTON()
- IF B AND 1024 THEN GOTO @SETTING
- GOTO @LOOP1
- @SETTING
- CLS:CLEAR:TM=1500:LF=3:LV=1:TJ=30:DIM EX(20),EY(20)
- EMAX=LV:FOR I=0 TO 2+EMAX:GOSUB @EINIT
- NEXT I:WAIT 20
- MX=5:MY=21:LOCATE 0,22
- FOR I=0 TO 31:?”=”;:NEXT:BGMPLAY 0
- @START
- BGMPLAY 0
- @MLOOP
- LOCATE 2,23:?”SC: ”SC;
- LOCATE 11,23:?”TIME”;TM;” ”;
- LOCATE 21,23:?”Г:”LF;
- LOCATE 25,23:?”LV:”LV;
- GOSUB @EMOVE:GOSUB @MMV
- GOSUB @SHT:WAIT 6:TM=TM−1
- IF TM<0 AND TJ>=20 THEN GOSUB @STCLR
- IF LF<1 OR (TM<1 AND TJ<=19) THEN CLS:GOTO @GOVER
- GOTO @MLOOP
- @EINIT
- EX(I)=RND(29):EY(I)=RND(6)
- RETURN
- @MMV
- K=BUTTON():IF K AND 0 THEN RETURN
- IF K AND 1024 THEN @PAUSE
- LOCATE MX,MY:?” ”;
- MX=MX+(K AND 8)/8−(K AND 4)/4
- IF MX<1 THEN MX=0
- IF MX>30 THEN MX=31
- LOCATE MX,MY:?”Г”;:FOR I=0 TO 2+LV
- IF MX>=EX(I) AND MX<=EX(I)+2 AND EY(I)>MY THEN GOSUB @MISS
- NEXT:RETURN
- @SHT
- IF K AND 16 THEN IF FL==0 THEN FL=1:SX=MX:SY=MY−1:BEEP 10
- IF FL==0 THEN RETURN
- GOSUB @KESU:SY=SY−1
- LOCATE SX,SY:?”│”;:GOSUB @HIT
- IF SY<1 THEN GOSUB @KESU:SY=50:FL=0
- RETURN
- @KESU
- LOCATE SX,SY:?” ”;:RETURN
- @EMOVE
- FOR I=0 TO 2+EMAX
- LOCATE EX(I),EY(I)? ” ”;
- DIR=RND(3)
- EX(I)=EX(I)−(DIR AND 1)+(DIR AND 2)/2
- EY(I)=EY(I)+(DIR AND 3)/3
- IF EX(I)>29 THEN EX(I)=0
- IF EX(I)<1 THEN EX(I)=28
- IF EY(I)>22 THEN EY(I)=0
- LOCATE EX(I),EY(I):?”=●=”;
- NEXT:GOSUB @HIT:RETURN
- @HIT
- FOR I=0 TO 2+EMAX
- IF SX>=EX(I) AND SX<=EX(I)+2 AND SY>EY(I)−1 AND SY<EY(I) THEN GOSUB @HIT2
- NEXT:RETURN
- @HIT2
- LOCATE SX,SY:?” ”;:TJ=TJ+1:BEEP 11
- SC=SC+1:LOCATE EX(I),EY(I):?” ”;
- FL=0:SY=99:GOSUB @EINIT:RETURN
- @MISS
- BEEP 13:FOR I=0 TO 15:COLOR RND (15):WAIT 5
- LOCATE MX,MY:?”***”;:NEXT:LF=LF−1
- COLOR 15:LOCATE MX−1,MY:?” ”;:IF LF<1 THEN GF=1
- MX=9:RETURN
- @GOVER
- BGMPLAY 6:LOCATE 10,10:?”GAME OVER”
- LOCATE 10,15:?” SCCRE:”SC:WAIT 400:
- GOTO @TITLE
- @STCLR
- BGMPLAY 4:LOCATE 10,10:?”CLEAR!!”:EMAX=EMAX+1:LV=LV+1:TM=1500
- IF LV>10 THEN EMAX=10
- TJ=0:FOR I=0 TO 2+LV:GOSUB @EINIT:NEXT
- WAIT 190:CLS:LOCATE 0,22
- FOR I=0 TO 31:?”=”;:NEXT:GOTO @START
- @PAUSE
- WAIT 15:BEEP
- @LOOP
- B=BUTTON():IF B==0 GOTO @LOOP
- IF B==1024 THEN WAIT 15:RETURN
この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)
表示モード : [ スマホ・3DS対応表示 | クラシック表示 ]
PukiWiki 1.4.7 Copyright © 2001-2006 PukiWiki Developers Team. License is GPL. Based on "PukiWiki" 1.3 by yu-ji
ページの処理時間 : 0.119 秒 | このページの最終更新 : 2022/09/20 (火) 12:44:07 (565d) | ログイン
Copyright(C) 2011-2014 プチコンまとめWiki ◆1sxkymI8ji30