プチコンまとめWiki (初代/mkII)

Toukou/press の変更点

パンくずリスト


#title(投稿プログラム : press)
#contents
// ↑この2行は削除しないでください。
// ←このように「//」で始まる行はコメントです。ページ本文には反映されません。
//------------------------------------------------------------------------------
// ・投稿年月日は、このページを投稿しようとしている今日の日付を半角数字で入力してください。
//   この日付は、投稿プログラムを自動的に年月日順に並べる際に使用されます。
// ↓↓↓
2015年11月15日投稿
// ↑↑↑
//------------------------------------------------------------------------------
// ・投稿者名は、将来的に投稿プログラム一覧に表示するために使用します。
// ・「名無しさん」のままにしておくと、匿名の方からの投稿として扱われます。
// ↓↓↓
/ 投稿者 : haru66kero
// ↑↑↑
//------------------------------------------------------------------------------
// ・適当にタグをつけることができます。半角のコンマ区切りで複数つけられます。
//   タグをつけると、同じタグが付いたページを検索することができます。
// ★次に該当するプログラムは、特定のタグを設定するようご協力お願いします。
//   これらを設定すると、将来的に投稿プログラム一覧に目立つマークが付くようになる予定です。
// ・短いプログラム → 「1行プログラム」「数行プログラム」「1画面プログラム」タグのいずれか1つ
// ・初代プチコンでも動作するプログラム → 「初代対応」タグ
// ・mkII 以降専用のプログラム → 「mkII専用」タグ
// ・QRコードを掲載している → 「QRコード」タグ
// ・該当するなら「ゲーム」「実用ツール」「音楽」タグのいずれか
// ↓↓↓
/ &tag(投稿プログラム,ゲーム,初代対応,プログラムリスト);
/ &tag(投稿プログラム,ゲーム,初代対応);
// ↑↑↑

//------------------------------------------------------------------------------
// ここに概要とか書きます。
// ・** や *** で始まる行は子見出しとなります。* の数で深さが決まります。
// ・[#英数字] はページ内リンクに使用されるアンカーですが、
//   書かなかったり、消したりしてもかまいません。ない場合はランダムな文字列が自動付与されます。
*初めまして [#n0b82bd9]
初めまして。haru66kero(高一)です。中二からつくりつづけたプログラムを紹介していきます。

* 概要 [#e7bdf41b]
人が潰されないように、人をどかしていくゲームです。

** 遊び方 [#ha43b768]
最初にAボタンを押して、A・B・Xボタンでモードを選んだら、ゲームスタートです。
(Yボタンでゲーム終了です。)
下画面に人が現れるので、上画面の壁に潰されないように、タッチで人をどかしていきます。
間違った人をどかした場合、1ゲームに1回だけ、Lボタンでやり直せます
(ワンチャンスモードを除く)。
上の制限時間が0になるか、Yボタンを押すと、壁が倒れてきます。
正しく人をどかしていれば、次のステージに進めます。
壁が倒れるところに人がいたり、壁がないところの人をどかしていたら、
ライフが減ってしまいます(間違ったところは赤く表示される)。
ライフが0になるか、20面クリアでゲームオーバーになります。
** モード [#xcbd8549]
*** ノーマルモード [#qc491f0d]
普通のモードです。
ライフは4で、一回だけLボタンでやり直せます。
まずはこのモードから始めましょう。
*** ワンチャンスモード [#p4f5e7c1]
ライフが1しかないモードです。
やり直しができず、失敗ができないので、緊張感のあるプレイができることでしょう。
*** エキサイティングモード [#qfcf4ace]
制限時間が短いモードです。
やり直しはできますが、やり直しをしている余裕はないでしょう。ライフは4です。

* プログラムリスト [#kfd4ba47]
#basic{{
@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
}}

/////////////////////////////////
// コメントを募集したくないなら、ここから下は削除してください

* CHECKER FLAG (ひとことコメント) [#l9cdfd56]
この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は[[掲示板>Board]]へ)

#comment

表示モード : [ スマホ・3DS対応表示 | クラシック表示 ]
PukiWiki 1.4.7 Copyright © 2001-2006 PukiWiki Developers Team. License is GPL. Based on "PukiWiki" 1.3 by yu-ji
ページの処理時間 : 0.004 秒 | ログイン
Copyright(C) 2011-2014 プチコンまとめWiki ◆1sxkymI8ji30