2015年11月15日投稿 / 投稿者 : haru66kero / タグ : 投稿プログラム ゲーム 初代対応
初めまして。haru66kero(高一)です。中二からつくりつづけたプログラムを紹介していきます。
人が潰されないように、人をどかしていくゲームです。
最初にAボタンを押して、A・B・Xボタンでモードを選んだら、ゲームスタートです。 (Yボタンでゲーム終了です。) 下画面に人が現れるので、上画面の壁に潰されないように、タッチで人をどかしていきます。 間違った人をどかした場合、1ゲームに1回だけ、Lボタンでやり直せます (ワンチャンスモードを除く)。 上の制限時間が0になるか、Yボタンを押すと、壁が倒れてきます。 正しく人をどかしていれば、次のステージに進めます。 壁が倒れるところに人がいたり、壁がないところの人をどかしていたら、 ライフが減ってしまいます(間違ったところは赤く表示される)。 ライフが0になるか、20面クリアでゲームオーバーになります。
普通のモードです。 ライフは4で、一回だけLボタンでやり直せます。 まずはこのモードから始めましょう。
ライフが1しかないモードです。 やり直しができず、失敗ができないので、緊張感のあるプレイができることでしょう。
制限時間が短いモードです。 やり直しはできますが、やり直しをしている余裕はないでしょう。ライフは4です。
- @START
- BGMPLAY 23
- CLS:CLEAR
- DIM I(10,10),B(10,10)
- COLOR 11
- PRINT””
- PRINT””
- PRINT” ┣┏┓ ┣┏┓ ┣┏┏ ┗┏┏┫ ┗┏┏┫
- PRINT” ┛ ┛ ┛ ┛ ┛ ┛ ┛
- PRINT” ┣┏ ┷┏ ┣┏┏ ┫┠┠┓ ┫┠┠┓
- PRINT” ┛ ┛┫ ┛ ┻ ┻
- PRINT” ┛ ┛ ┫ ┯┠┠ ┫┠┠┗ ┫┠┠┗
- PRINT””
- PRINT””
- PRINT””
- PRINT””
- PRINT””
- PRINT””
- PRINT””
- PRINT””
- PRINT” PUSH A BUTTON”
- @TITLE
- IF BUTTON()!=16 THEN @TITLE
- LOCATE 0,15
- PRINT” ”’(23)
- PRINT” А:ノーマル モート゛”
- PRINT” Б:ワンチャンス モート゛”
- PRINT” Ф:エキサイティンク゛ モート゛”
- PRINT” Х:EXIT”
- VSYNC 10
- @TITLE2
- IF BUTTON()==16 THEN MO=1
- IF BUTTON()==32 THEN MO=2
- IF BUTTON()==64 THEN MO=3
- IF BUTTON()==128 THEN COLOR 0:BGMSTOP:END
- IF MO==0 THEN @TITLE2
- ON MO GOSUB @TITLE2,@M1,@M2,@M3
- @START2
- SC=SC+1
- TIME=TI
- BGMPLAY BG
- CLS:PNLTYPE”OFF”
- FOR X=0 TO 9
- FOR Y=0 TO 9
- I(X,Y)=0:B(X,Y)=0
- NEXT Y
- NEXT X
- COLOR 11
- FOR X=0 TO 9
- FOR Y=0 TO 9
- BA=RND(3)
- IF BA THEN LOCATE X+10,Y*−1+14:PRINT”■”:B(X,Y)=1
- NEXT Y
- NEXT X
- COLOR 0
- LOCATE 0,1:PRINT”а”LI
- IF RE==1 THEN LOCATE 0,3:PRINT”К:RESET”
- LOCATE 14,15:PRINT”┬┬ ”
- FOR Y=0 TO 7
- LOCATE 14,Y+16:PRINT”││”;
- NEXT Y
- LOCATE 14,23:PRINT”┴┴”;
- @RESET
- FOR X=0 TO 9
- FOR Y=0 TO 9
- PNLSTR X+10,Y+9,”г”:I(X,Y)=1
- VSYNC 1
- NEXT Y
- NEXT X
- @LOOP
- LOCATE 0,0
- TIME=TIME−1
- FOR T=0 TO TIME−1
- LOCATE T,0:PRINT”┷”;
- LOCATE T+1,0:PRINT” ”;
- NEXT T
- FOR T=0 TO 60
- GOSUB@P
- VSYNC 2
- NEXT T
- GOTO@LOOP
- @P
- IF BUTTON()==128 OR TIME==0 THEN @KEKKA
- IF BUTTON()==256 AND RE==1 THEN BEEP 5:RE=0:LOCATE 0,3:PRINT” ”:GOTO@RESET
- VSYNC 1
- FOR X=0 TO 9
- FOR Y=0 TO 9
- IF I(X,Y) THEN PNLSTR X+10,Y+9,”г”
- IF I(X,Y)==0 THEN PNLSTR X+10,Y+9,” ”
- R=FLOOR((TCHX−80)/8)
- S=FLOOR((TCHY−80)/8)
- IF X==R AND Y==S+1 AND TCHST THEN I(X,Y)=0:BEEP 6
- NEXT Y
- NEXT X
- RETURN
- @KEKKA
- BEEP 13:BGMSTOP
- CLS
- PNLSTR 14,0,”┬┬”
- FOR Y=1 TO 7
- PNLSTR 14,Y,”││”
- NEXT
- PNLSTR 14,8,”┴┴”
- FOR X=0 TO 9
- FOR Y=0 TO 9
- IF B(X,Y)==1 AND I(X,Y)==0 THEN PNLSTR X+10,Y+9,”■”,11
- IF B(X,Y)==1 AND I(X,Y)==1 THEN PNLSTR X+10,Y+9,”■”,13:NG=1
- IF B(X,Y)==0 AND I(X,Y)==0 THEN PNLSTR X+10,Y+9,”м”,13:NG=1
- IF B(X,Y)==0 AND I(X,Y)==1 THEN PNLSTR X+10,Y+9,”г”
- NEXT Y
- NEXT X
- VSYNC 60
- IF NG THEN LI=LI−1
- IF NG==0 THEN BEEP 34:LOCATE 10,11:PRINT”CLEAR!”:VSYNC 200
- IF LI==0 OR SC==20 THEN BEEP 37:LOCATE 10,11:PRINT”GAMEOVER ”SC:GOTO@KEKKA2
- NG=0:GOTO@START2
- @KEKKA2
- IF BUTTON() THEN @START
- GOTO@KEKKA2
- @M1
- BG=3:LI=4:RE=1:TI=30
- RETURN
- @M2
- BG=13:LI=1:RE=0:TI=30
- RETURN
- @M3
- BG=29:LI=4:RE=1:TI=15
- RETURN
- ’2013/8/29:16:27
この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)
表示モード : [ スマホ・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