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

Toukou/ペイントバトル の変更点

パンくずリスト


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

//------------------------------------------------------------------------------
// ここに概要とか書きます。
// ・** や *** で始まる行は子見出しとなります。* の数で深さが決まります。
// ・[#英数字] はページ内リンクに使用されるアンカーですが、
//   書かなかったり、消したりしてもかまいません。ない場合はランダムな文字列が自動付与されます。

* 本当の対戦ゲーム!? [#Title]
本格的な対戦ゲームをつくってみました! CPU対戦機能はありませんが・・・。

* 概要 [#Summary]
二人対戦用ゲームです。

** ルール [#Komidashi1]
1Pが青、2Pが赤色の棒人間を操作して、通った所が自分の色になるので、~
できるだけ多くのタイルを自分の色にします。

** 操作方法 [#Komidashi2]
まず、制限時間を決めます。(6で1秒)(初期値は300)

*** 1P [#Komidashi2-1]
十字キー:移動~
Lキー:アタック

*** 2P [#Komidashi2-2]
A、B、X、Yキー:移動~
Rキー:アタック

アタックをするには、左(右)のメーターが満タンになっている必要があります。~
メーターは移動するごとに増えていきます。~
メーターが満タンになると、メーターの色が変わります。~
アタックをすると直線上のタイルが自分の色になります。~
直線上に相手がいると、気絶させることができます。~
最終的に自分の色のタイルが多い方が勝ちです!



/////////////////////////////////
// QR コードがない場合は、この部分は削除してください

* QR コード [#QR]
プチコンmkII 向けの QR コードです。

// 【重要】旧プチコンから mkII に転送したプログラムは、mkII で保存しなおしてから
// QR コード化すると、枚数が半分ぐらいに減ります。ぜひお試し下さい。
// 【重要】添付できるのは画像ファイルのみです。zip ファイルは解凍してください。

// ページを作成すると、QR コードの添付ができるようになります。(作成する前はできません)
// 作成後のページの右上、ウィキメニューにある「添付」から画像をアップロードできます。
// (添付ファイルはページごとに別個に管理されています。必ず作成後のページに添付してください)
// QR コードをアップロードしたら、以下の書式でページ内に貼り付けられます。
// #ref(アップロードしたファイル名)

// QR コードを大きくしたい場合は、倍率指定ができます。コンマは必ず 2 つ指定してください。
// ブラウザによっては補完がかかってボケますが、それでも問題なく読み込み可能です。
// #ref(アップロードしたファイル名,,200%)

// 複数の QR コードを貼り付けるために表組みを用いる場合、&ref(); を使用します。
// (#ref() を表に埋め込んでしまうと、古い Internet Explorer でうまく表示されません)
// |>|>|~PRG:FILENAME|
// |~1/3|~2/3|~3/3|
&ref(qr400.png,,200%);&ref(qr401.png,,200%);

/////////////////////////////////

* プログラムリスト [#List]
初代の人は、WAITをVSYNCに変えてください。
#basic{{
'2016/2/10:18:35
CLS:CLEAR:COLOR 0:BGMSTOP
FOR I=0 TO 31:FOR J=0 TO 23
BGPUT 0,I,J,0,0,0,0:NEXT:NEXT
LOCATE 1,1:?"┌──────────┐
LOCATE 1,2:?"│ペイント バトル│
LOCATE 1,3:?"└──────────┘
LOCATE 1,9:?"1P(BLUE)2P(RED)
LOCATE 1,10:?"↑  UP   Ф
LOCATE 1,11:?"↓ DOWN  Б
LOCATE 1,12:?"← LEFT  Х
LOCATE 1,13:?"→ RIGHT А
LOCATE 1,14:?"К FIRE  н
LOCATE 8,16:?"コノゲームハ、「г」ヲソウサ
LOCATE 8,17:?"シテ ナルベクオオクノ
LOCATE 8,18:?"タイルヲジブンノイロニ
LOCATE 8,19:?"スルゲームデス。
LOCATE 0,6:?"300":LOCATE 0,5
INPUT"セイゲンジカンハ";TIME:CLS
COLOR 11:LOCATE 8,12:?"г"
COLOR 13:LOCATE 23,12:?"г"
FOR I=8 TO 23:FOR J=4 TO 19
BGPUT 0,I,J,944,11,0,0
NEXT:NEXT:PX(0)=8:PY(0)=12
PC(0)=11PX(1)=23:PY(1)=12
PC(1)=13PU(0)=1PD(0)=2PL(0)=4
PR(0)=8PU(1)=64PD(1)=32
PL(1)=128PR(1)=16PA(0)=256
PA(1)=512FOR I=0 TO 2:BEEP 16
WAIT 60:NEXT:BEEP 18
WAIT 60:BGMPLAY 23
FOR I=TIME TO 0 STEP -1
FOR J=0 TO 1:COLOR 0
LOCATE 8,2:? I" ":COLOR PC(J)
LOCATE PX(J),PY(J):?" "
LOCATE (PC(J)==13)*30,9
CX=0:CY=0:FOR S=S(J) TO 0
B=BUTTON()
IF B AND PU(J) THEN CY=-1
IF B AND PD(J) THEN CY=1
IF B AND PL(J) THEN CX=-1
IF B AND PR(J) THEN CX=1
PX(J)=PX(J)+CX:PY(J)=PY(J)+CY
IF PY(J)<4 THEN PY(J)=4
IF PY(J)>19 THEN PY(J)=19
IF PX(J)<8 THEN PX(J)=8
IF PX(J)>23 THEN PX(J)=23
NEXT:LOCATE PX(J),PY(J)
? CHR$(244+S(J)%4)
X=PX(J):Y=PY(J)
IF PC(J)==13 THEN C=2
IF PC(J)==11 THEN C=4
BGREAD(0,X,Y),Z,Q,Z,Z
IF Q!=C THEN P(J)=P(J)+1
IF Q!=C THEN BEEP 9
BGPUT 0,X,Y,944,C,0,0
IF P(J)>120 THEN P(J)=120
IF B AND PA(J) THEN GOSUB@AT
IF S(J)>0 THEN S(J)=S(J)-1
IF J==0 THEN COLOR 9
IF J==1 THEN COLOR 12
IF P(J)<120 THEN COLOR PC(J)
FOR COL=0 TO 12
LOCATE (J==1)*30,COL+5:?" "
NEXT:FOR COL=1 TO P(J)/10
LOCATE (J==1)*30,COL+5:?"┷"
NEXT:WAIT 5:NEXT:NEXT
COLOR 0:BGMSTOP:BEEP 34
LOCATE 13,2:?"シュウリョウ!"
FOR I=8 TO 23:FOR J=4 TO 19
BGREAD(0,I,J),Z,Q,Z,Z
IF Q==4 THEN SC(0)=SC(0)+1
IF Q==2 THEN SC(1)=SC(1)+1
NEXT:NEXT:WAIT 180
LOCATE 13,2
? SC(0)"/"SC(1)"    "
LOCATE 13,3:COLOR 9
IF SC(0)>SC(1) THEN ?"1P WIN!"
COLOR 12
IF SC(0)<SC(1) THEN ?"2P WIN!"
COLOR 4:BGMPLAY 9
IF SC(0)==SC(1) THEN ?"DRAW"
LOCATE 10,20:?"PUSH ANY KEY
FOR I=0 TO 1:I=BUTTON():NEXT
FOR I=0 TO 31:FOR J=0 TO 23
BGPUT 0,I,J,0,0,0,0:NEXT:NEXT
CLS:COLOR 0:BGMSTOP
BGCLIP 0,0,31,23:END
@AT
IF P(J)<120 THEN RETURN
FOR H=8 TO 23:V=PY(J)
BGPUT 0,H,V,944,C,0,0:NEXT
H=PX(J):FOR V=4 TO 19
BGPUT 0,H,V,944,C,0,0
IF X==PX(J==0)THEN S(J==0)=30
IF Y==PY(J==0)THEN S(J==0)=30
NEXT:BEEP 13:P(J)=0:RETURN
'2016/2/11:13:53
}}

* ご感想をどうぞ [#question]
#vote(読み込んでみた[1],楽しかった![0],普通[0],微妙…[0],対戦相手がいない[0])
#vote(読み込んでみた[2],楽しかった![0],普通[0],微妙…[0],対戦相手がいない[0])
/////////////////////////////////
// コメントを募集したくないなら、ここから下は削除してください

* CHECKER FLAG (ひとことコメント) [#Comments]
この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は[[掲示板>Board]]へ)
- ''BlackSoft'' : 遊んでみました!対戦型ボードゲームですね。アイデアは面白いと思いました。対戦ゲームは、簡単でも良いのでCPU対戦があると良いと思いますよ(思考部分はプログラミングの醍醐味でもありますから)。個人的な感想としては、移動スピードが速くなる等のアイテムがあると、より楽しめるかなと思いました。これからも頑張ってください(^-^) (&new{2016/02/21 (日) 12:46:57};)

#comment

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