2016年2月20日投稿 / 投稿者 : haru66kero / タグ : 投稿プログラム 2人対戦専用 ゲーム QRコード 初代対応 陣取りゲーム 対戦
本格的な対戦ゲームをつくってみました! CPU対戦機能はありませんが・・・。
二人対戦用ゲームです。
1Pが青、2Pが赤色の棒人間を操作して、通った所が自分の色になるので、
できるだけ多くのタイルを自分の色にします。
まず、制限時間を決めます。(6で1秒)(初期値は300)
十字キー:移動
Lキー:アタック
A、B、X、Yキー:移動
Rキー:アタック
アタックをするには、左(右)のメーターが満タンになっている必要があります。
メーターは移動するごとに増えていきます。
メーターが満タンになると、メーターの色が変わります。
アタックをすると直線上のタイルが自分の色になります。
直線上に相手がいると、気絶させることができます。
最終的に自分の色のタイルが多い方が勝ちです!
プチコンmkII 向けの QR コードです。
初代の人は、WAITをVSYNCに変えてください。
- ’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
この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)
表示モード : [ スマホ・3DS対応表示 | クラシック表示 ]
PukiWiki 1.4.7 Copyright © 2001-2006 PukiWiki Developers Team. License is GPL. Based on "PukiWiki" 1.3 by yu-ji
ページの処理時間 : 0.165 秒 | このページの最終更新 : 2022/09/20 (火) 12:44:11 (565d) | ログイン
Copyright(C) 2011-2014 プチコンまとめWiki ◆1sxkymI8ji30