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

投稿プログラム : ブロックキャッチ

パンくずリスト

2011年05月04日投稿 / 投稿者 : 名無しさん / タグ : 投稿プログラム ゲーム シューティングゲーム QRコード 初代対応

概要

二人で遊ぶゲームです

子見出し1

上から落ちて来るブロックをキャッチするゲームです LまたはRを短く押すと方向転換 長く押すと瞬間移動

一人でいろいろルールを作っても面白いと思います 例えば二つともブロックを取らないようにするとか

子見出し2

初めて作ったプログラムです 携帯からの投稿です 何か面白いルールなどを思いついたら教えてください

スクリーンショット・動画

BLOCK12.SS.png

QR コード

プチコンmkII 向けの QR コードです。

おことわり

このQRコードは作者本人がアップロードしたものではありません。 また、2点ほど変更点があります。

  • 初期画面辺りを変更しました。
  • mkII専用命令(ACLS、新VSYNC)を取り入れました。

    以上のことをふまえてご利用をお願いします。
    BLOCK11.PRGSSC.png

プログラムリスト

※ 天郷思音(わぁぃ@)さんにより、スペースの抜けや打ち間違いが多数修正されました。ご協力ありがとうございます。(2011/9/18) ※ 地味に無駄があったので勝手に修正。(このリストは初代にも対応しています。)(2013/06/09 10:38:53)

  1. @HAZIMARI
  2. CLEAR
  3. CLS
  4. GCLS
  5. COLOR 13
  6. PRINT”L IS THIS COLOR”
  7. COLOR 9
  8. PRINT”R IS THIS COLOR”
  9. COLOR 4
  10. PRINT”PUSH L AND R”
  11. B=BUTTON()
  12. VSYNC 5
  13. IF B==768 THEN GOTO @IKUZO
  14. GOTO @HAZIMARI
  15. @IKUZO
  16. X=RND(26)+3
  17. LLL=1
  18. RRR=1
  19. RX=31
  20. BGMPLAY 7
  21. @START
  22. CLS
  23. GCLS
  24. GBOX 0,200,255,167,200
  25. B=BUTTON()
  26. TIME=TIME+1
  27. L=0
  28. R=0
  29. IF B==512 THEN R=1
  30. IF B==256 THEN L=1
  31. IF B==768 THEN L=1:R=1
  32. IF L==1 THEN LL=LL+1
  33. IF R==1 THEN RR=RR+1
  34. IF (L==0) AND (LL>0) AND (LL<4) THEN LLL=−LLL:BEEP 0
  35. IF (R==0) AND (RR>0) AND (RR<4) THEN RRR=−RRR:BEEP 0
  36. IF (L==0) AND (LL>=4) THEN LX=31−LX:BEEP 12
  37. IF (R==0) AND (RR>=4) THEN RX=31−RX:BEEP 12
  38. IF L==0 THEN LL=0
  39. IF R==0 THEN RR=0
  40. IF LX==0 THEN LLL=1
  41. IF RX==0 THEN RRR=1
  42. IF LX==31 THEN LLL=−1
  43. IF RX==31 THEN RRR=−1
  44. IF (RX−LX)*(RX−LX)<2 THEN RRR=−RRR:LLL=−LLL
  45. Y=Y+1
  46. IF Y==23 THEN Y=0:X=RND(26)+3
  47. PRINT”TIME:”300−TIME
  48. LOCATE X−3,Y
  49. PRINT”■■■■■■”
  50. COLOR 4
  51. IF TIME==300 THEN GOTO @OWARI
  52. LX=LX+LLL
  53. RX=RX+RRR
  54. COLOR 13
  55. LOCATE LX,20
  56. PRINT”●”
  57. LOCATE 0,21
  58. PRINT”POINT:”LLX
  59. COLOR 9
  60. LOCATE RX,20
  61. PRINT”●”
  62. LOCATE 20,21
  63. PRINT”POINT:”RRX
  64. IF (Y==20) AND ((RX−X)*(RX−X)<=9) THEN RRX=RRX+1:BEEP 7
  65. IF (Y==20) AND ((LX−X)*(LX−X)<=9) THEN LLX=LLX+1:BEEP 7
  66. VSYNC 5
  67. GOTO @START
  68. @OWARI
  69. IF LLX==RRX THEN BGMPLAY 6
  70. IF LLX!=RRX THEN BGMPLAY 5
  71. @OWARIDA
  72. CLS
  73. GCLS
  74. COLOR 9
  75. IF LLX<RRX THEN PRINT”PLAYER R WIN”
  76. COLOR 13
  77. IF LLX>RRX THEN PRINT”PLAYER L WIN”
  78. COLOR 4
  79. IF LLX==RRX THEN PRINT”DRAW”
  80. PRINT”PUSH START”
  81. B=BUTTON()
  82. IF B==1024 THEN GOTO @HAZIMARI
  83. VSYNC 5
  84. GOTO @OWARIDA

CHECKER FLAG (ひとことコメント)

この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)

  • こうた : なぜか入力するとエラるけど。 (2011/09/02 (金) 17:49:35)
  • こうた : 15行め。 (2011/09/02 (金) 18:20:39)
  • こうた : ↑間違えた。64行め (2011/09/03 (土) 09:42:50)
  • わぁぃ@ : ↑「AND」の前と後にスペースを入れてみてください。 (2011/09/10 (土) 18:07:29)
  • わぁぃ@ : 操作方法が分からない。なので
    ・十字キー操作
    ・1人用モード
    ・VS COMモード
    などのアレンジを施したバージョンを作成した。 (2011/09/13 (火) 22:48:37)
  • こうた : わぁい@へ やっぱできない (2011/09/16 (金) 18:39:23)
  • わぁぃ@ : 私が修正したリストの間違いは1.スペースの入れ忘れ、2.「"」が「’」になっている。の2つ。他に間違いが無いか確認中。・・・それにしても間違い多いな。 (2011/09/16 (金) 19:54:23)
  • 名無しさん : 64行目と65行目の'<=9'の後ろに')'が抜けてる。 (2011/09/17 (土) 20:31:02)
  • わぁぃ@ : ↑気づかなかった。 (2011/09/17 (土) 22:42:55)
  • 名無しさん : カッコ打ち込むときは()のセットを先に打ち込んでから中身を書くといいよ (2011/09/18 (日) 02:20:51)
  • こうた : できたぁぁぁぁぁぁぁぁぁぁぁぁぁ! (2011/11/28 (月) 17:23:01)
  • わぁぃ@ : ブロックキャッチの画像公開してますのでなんだったらここに載せてもいいですよ。(URLはOFコーナーにあります。) (2011/11/28 (月) 17:31:02)
  • 名無しさん : QRプリーズ (2012/06/04 (月) 19:37:11)
  • 名無しさん : プログラムの始めに「PNLTYPE゛OFF゛」と命令すれば下画面のキーボードが気にならない。 (2013/06/09 (日) 02:44:54)
  • 天郷思音(わぁぃ@) : このプログラムを極限まで圧縮したらファイルサイズが20%以上減ったww (2013/06/09 (日) 10:09:37)

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