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

投稿プログラム : press

パンくずリスト

2015年11月15日投稿 / 投稿者 : haru66kero / タグ : 投稿プログラム ゲーム 初代対応

初めまして

初めまして。haru66kero(高一)です。中二からつくりつづけたプログラムを紹介していきます。

概要

人が潰されないように、人をどかしていくゲームです。

遊び方

最初にAボタンを押して、A・B・Xボタンでモードを選んだら、ゲームスタートです。 (Yボタンでゲーム終了です。) 下画面に人が現れるので、上画面の壁に潰されないように、タッチで人をどかしていきます。 間違った人をどかした場合、1ゲームに1回だけ、Lボタンでやり直せます (ワンチャンスモードを除く)。 上の制限時間が0になるか、Yボタンを押すと、壁が倒れてきます。 正しく人をどかしていれば、次のステージに進めます。 壁が倒れるところに人がいたり、壁がないところの人をどかしていたら、 ライフが減ってしまいます(間違ったところは赤く表示される)。 ライフが0になるか、20面クリアでゲームオーバーになります。

モード

ノーマルモード

普通のモードです。 ライフは4で、一回だけLボタンでやり直せます。 まずはこのモードから始めましょう。

ワンチャンスモード

ライフが1しかないモードです。 やり直しができず、失敗ができないので、緊張感のあるプレイができることでしょう。

エキサイティングモード

制限時間が短いモードです。 やり直しはできますが、やり直しをしている余裕はないでしょう。ライフは4です。

プログラムリスト

  1. @START
  2. BGMPLAY 23
  3. CLS:CLEAR
  4. DIM I(10,10),B(10,10)
  5. COLOR 11
  6. PRINT””
  7. PRINT””
  8. PRINT”     ┣┏┓ ┣┏┓ ┣┏┏ ┗┏┏┫ ┗┏┏┫
  9. PRINT”     ┛ ┛ ┛ ┛ ┛   ┛    ┛   
  10. PRINT”     ┣┏  ┷┏  ┣┏┏ ┫┠┠┓ ┫┠┠┓
  11. PRINT”     ┛   ┛┫  ┛      ┻    ┻
  12. PRINT”     ┛   ┛ ┫ ┯┠┠ ┫┠┠┗ ┫┠┠┗
  13. PRINT””
  14. PRINT””
  15. PRINT””
  16. PRINT””
  17. PRINT””
  18. PRINT””
  19. PRINT””
  20. PRINT””
  21. PRINT”         PUSH A BUTTON”
  22. @TITLE
  23. IF BUTTON()!=16 THEN @TITLE
  24. LOCATE 0,15
  25. PRINT”                       ”’(23)
  26. PRINT”        А:ノーマル モート゛”
  27. PRINT”        Б:ワンチャンス モート゛”
  28. PRINT”        Ф:エキサイティンク゛ モート゛”
  29. PRINT”        Х:EXIT”
  30. VSYNC 10
  31. @TITLE2
  32. IF BUTTON()==16 THEN MO=1
  33. IF BUTTON()==32 THEN MO=2
  34. IF BUTTON()==64 THEN MO=3
  35. IF BUTTON()==128 THEN COLOR 0:BGMSTOP:END
  36. IF MO==0 THEN @TITLE2
  37. ON MO GOSUB @TITLE2,@M1,@M2,@M3
  38. @START2
  39. SC=SC+1
  40. TIME=TI
  41. BGMPLAY BG
  42. CLS:PNLTYPE”OFF”
  43. FOR X=0 TO 9
  44. FOR Y=0 TO 9
  45. I(X,Y)=0:B(X,Y)=0
  46. NEXT Y
  47. NEXT X
  48. COLOR 11
  49. FOR X=0 TO 9
  50. FOR Y=0 TO 9
  51. BA=RND(3)
  52. IF BA THEN LOCATE X+10,Y*−1+14:PRINT”■”:B(X,Y)=1
  53. NEXT Y
  54. NEXT X
  55. COLOR 0
  56. LOCATE 0,1:PRINT”а”LI
  57. IF RE==1 THEN LOCATE 0,3:PRINT”К:RESET”
  58. LOCATE 14,15:PRINT”┬┬ ”
  59. FOR Y=0 TO 7
  60. LOCATE 14,Y+16:PRINT”││”;
  61. NEXT Y
  62. LOCATE 14,23:PRINT”┴┴”;
  63. @RESET
  64. FOR X=0 TO 9
  65. FOR Y=0 TO 9
  66. PNLSTR X+10,Y+9,”г”:I(X,Y)=1
  67. VSYNC 1
  68. NEXT Y
  69. NEXT X
  70. @LOOP
  71. LOCATE 0,0
  72. TIME=TIME−1
  73. FOR T=0 TO TIME−1
  74. LOCATE T,0:PRINT”┷”;
  75. LOCATE T+1,0:PRINT” ”;
  76. NEXT T
  77. FOR T=0 TO 60
  78. GOSUB@P
  79. VSYNC 2
  80. NEXT T
  81. GOTO@LOOP
  82. @P
  83. IF BUTTON()==128 OR TIME==0 THEN @KEKKA
  84. IF BUTTON()==256 AND RE==1 THEN BEEP 5:RE=0:LOCATE 0,3:PRINT”       ”:GOTO@RESET
  85. VSYNC 1
  86. FOR X=0 TO 9
  87. FOR Y=0 TO 9
  88. IF I(X,Y) THEN PNLSTR X+10,Y+9,”г”
  89. IF I(X,Y)==0 THEN PNLSTR X+10,Y+9,” ”
  90. R=FLOOR((TCHX−80)/8)
  91. S=FLOOR((TCHY−80)/8)
  92. IF X==R AND Y==S+1 AND TCHST THEN I(X,Y)=0:BEEP 6
  93. NEXT Y
  94. NEXT X
  95. RETURN
  96. @KEKKA
  97. BEEP 13:BGMSTOP
  98. CLS
  99. PNLSTR 14,0,”┬┬”
  100. FOR Y=1 TO 7
  101. PNLSTR 14,Y,”││”
  102. NEXT
  103. PNLSTR 14,8,”┴┴”
  104. FOR X=0 TO 9
  105. FOR Y=0 TO 9
  106. IF B(X,Y)==1 AND I(X,Y)==0 THEN PNLSTR X+10,Y+9,”■”,11
  107. IF B(X,Y)==1 AND I(X,Y)==1 THEN PNLSTR X+10,Y+9,”■”,13:NG=1
  108. IF B(X,Y)==0 AND I(X,Y)==0 THEN PNLSTR X+10,Y+9,”м”,13:NG=1
  109. IF B(X,Y)==0 AND I(X,Y)==1 THEN PNLSTR X+10,Y+9,”г”
  110. NEXT Y
  111. NEXT X
  112. VSYNC 60
  113. IF NG THEN LI=LI−1
  114. IF NG==0 THEN BEEP 34:LOCATE 10,11:PRINT”CLEAR!”:VSYNC 200
  115. IF LI==0 OR SC==20 THEN BEEP 37:LOCATE 10,11:PRINT”GAMEOVER ”SC:GOTO@KEKKA2
  116. NG=0:GOTO@START2
  117. @KEKKA2
  118. IF BUTTON() THEN @START
  119. GOTO@KEKKA2
  120. @M1
  121. BG=3:LI=4:RE=1:TI=30
  122. RETURN
  123. @M2
  124. BG=13:LI=1:RE=0:TI=30
  125. RETURN
  126. @M3
  127. BG=29:LI=4:RE=1:TI=15
  128. RETURN
  129. ’2013/8/29:16:27

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

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


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