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

投稿プログラム : Amazing marble race

パンくずリスト

2015年11月19日投稿 / 投稿者 : haru66kero / タグ : 投稿プログラム 鑑賞プログラム 初代対応

こんにちは

こんにちは!haru66keroのプログラム2作目です! ぜひ楽しんでいってください!

概要

ボールの競争を見て楽しむプログラムです。 どのボールが先にゴールするかな?

ルール

最初に何かボタンを押します。 メニューが出てくるので、どれか好きなボールを決めてください。 Aボタンを押したらスタートです。(Bボタンで終了) 上からボールが出てくるので、自分で決めたボールを応援しましょう。 下の矢印に入ったらゴールです。 この時、下に表示された順位以内にゴールしていれば、次のステージに進めます。 一位になれるよう願いましょう! Aボタンでスピードアップです。

ヤクモノ

  1. 壁 "Wall": 壁です。ボールの足場にもなります。ボールがぶつかると跳ね返ります。
  2. バンパー "Bumper" ボールが乗ると、左右に弾き飛ばされます。
  3. エレベーター "Elevator" 乗ると、ボールが上昇します。
  4. ステップ "Step" エレベーターの終わりです。
  5. ハッチ "Hatch" ランダムに下へ落とされます。

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

すみません、ありません。

QR コード

PRG:A_M_R
1/42/4
qr0.pngqr1.png
3/44/4
qr2.pngqr3.png

プログラムリスト

  1. ’セイサクカイシ 2015/1/31:11:18
  2. ’┌───────────────────┐
  3. ’│Amazing marble race│
  4. ’└───────────────────┘
  5. @TITLE
  6. CLS:COLOR 10
  7. LOCATE 6,11:PRINT”Amazing marble race”
  8. LOCATE 8,15:PRINT”Push any button”
  9. @TILOOP
  10. VSYNC 10
  11. IF BUTTON()==0 THEN @TILOOP
  12. CLS:COLOR 0
  13. LOCATE 10,2:PRINT”Member”
  14. LOCATE 0,4:PRINT”Black ○”
  15. COLOR  2:LOCATE 0, 5:PRINT”Light gray ●
  16. COLOR  3:LOCATE 0, 6:PRINT”Yellow ●
  17. COLOR  4:LOCATE 0, 7:PRINT”Yellow green ●
  18. COLOR  5:LOCATE 0, 8:PRINT”Green ●
  19. COLOR  6:LOCATE 0, 9:PRINT”Beige ●
  20. COLOR  7:LOCATE 0,10:PRINT”Orange ●
  21. COLOR  8:LOCATE 0,11:PRINT”Brown ●
  22. COLOR  9:LOCATE 20, 5:PRINT”Light blue ●
  23. COLOR 10:LOCATE 20, 6:PRINT”Purple ●
  24. COLOR 11:LOCATE 20, 7:PRINT”Blue ●
  25. COLOR 12:LOCATE 20, 8:PRINT”Pink ●
  26. COLOR 13:LOCATE 20, 9:PRINT”Red ●
  27. COLOR 14:LOCATE 20,10:PRINT”Gray ●
  28. COLOR 15:LOCATE 20,11:PRINT”White ●
  29. COLOR 0:LOCATE 2,13:PRINT”┿ Wall ▲ Bumper ↓ Exit
  30. LOCATE 2,15:PRINT”↑ Elevator ж Step Ё Hatch
  31. LOCATE 2,20:PRINT”Good luck!”
  32. LOCATE 2,22:PRINT”А START      Ф EXIT
  33. @TILOOP2
  34. VSYNC 10
  35. IF BUTTON()==64 THEN @GEND
  36. IF BUTTON()!=16 THEN @TILOOP2
  37. @A1
  38. DATA ┿ ┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿
  39. DATA ┿            ┿┿┿┿
  40. DATA ┿┿┿┿┿┿┿┿┿┿┿┿ ┿┿┿┿
  41. DATA ┿┿┿┿┿┿┿┿┿┿┿   ┿┿┿
  42. DATA ┿           A   ┿
  43. DATA ┿ ┿┿┿┿┿┿┿┿┿┿┿┿┿ ┿
  44. DATA ┿               ┿
  45. DATA ┿┿┿┿┿┿┿┿┿┿┿┿ ┿┿┿┿
  46. DATA ┿┿┿┿┿┿┿┿┿┿┿   ┿┿┿
  47. DATA ┿           A   ┿
  48. DATA ┿ ┿┿┿┿┿┿┿┿┿┿┿┿┿ ┿
  49. DATA ┿               ┿
  50. DATA ┿┿┿┿┿┿┿┿┿┿┿┿ ┿┿┿┿
  51. DATA ┿┿┿┿┿┿┿┿┿┿┿   ┿┿┿
  52. DATA ┿           A   ┿
  53. DATA ┿ ┿┿┿┿┿┿┿┿┿┿┿┿┿ ┿
  54. DATA ┿               ┿
  55. DATA ┿┿┿┿┿┿┿┿┿┿┿┿ ┿┿┿┿
  56. DATA ┿┿┿┿┿┿┿┿┿┿   ┿
  57. DATA ┿           A ┿
  58. DATA ┿ ┿┿┿┿┿┿┿┿┿┿┿ ┿
  59. DATA ┿             ┿
  60. DATA ┿┿┿┿┿┿┿┿┿┿┿┿┿↓┿ Top 10
  61. DATA 3
  62. DATA 15
  63. DATA 10
  64. @A2
  65. DATA ┿┿┿┿┿┿┿┿┿┿┿┿┿ ┿┿┿
  66. DATA ┿           ┿   ┿
  67. DATA ┿ж┿┿┿┿┿┿┿┿┿ ┿┿┿ ┿
  68. DATA ┿ ┿┿┿┿┿┿        ┿
  69. DATA ┿ ┿┿┿┿┿┿ ┿┿┿┿┿┿ж┿
  70. DATA ┿ ┿┿┿┿┿   ┿┿┿┿┿ ┿
  71. DATA ┿ ┿┿┿┿┿ ▲ ┿┿┿┿┿ ┿
  72. DATA ┿ ┿┿┿┿     ┿┿┿┿ ┿
  73. DATA ┿ ┿┿┿┿ ▲ ▲ ┿┿┿┿ ┿
  74. DATA ┿ ┿┿┿       ┿┿┿ ┿
  75. DATA ┿ ┿┿┿ ▲ ▲ ▲ ┿┿┿ ┿
  76. DATA ┿ ┿┿         ┿┿ ┿
  77. DATA ┿ ┿┿ ▲ ▲ ▲ ▲ ┿┿ ┿
  78. DATA ┿ ┿           ┿ ┿
  79. DATA ┿ ┿ ▲ ▲ ▲ ▲ ▲ ┿ ┿
  80. DATA ┿ ┿ ┿ ┿   ┿ ┿ ┿ ┿
  81. DATA ┿ ┿ ┿ ┿┿ ┿┿ ┿ ┿ ┿
  82. DATA ┿ ┿ ┿ ┿┿ ┿┿ ┿ ┿ ┿
  83. DATA ┿ ┿ ┿ ┿┿ ┿┿ ┿ ┿ ┿
  84. DATA ┿ ┿ ┿ ┿┿ ┿┿ ┿ ┿ ┿
  85. DATA ┿ ┿ ┿ ┿┿ ┿┿ ┿ ┿ ┿
  86. DATA ┿     ┿┿ ┿┿     ┿
  87. DATA ┿↑┿┿┿┿┿┿↓┿┿┿┿┿┿↑┿ Top 6
  88. DATA 15
  89. DATA 10
  90. DATA 6
  91. @A3
  92. DATA ┿┿┿┿┿┿┿┿ ┿┿┿┿┿┿┿┿
  93. DATA ┿      ┿        ┿
  94. DATA ┿ ┿┿Ё┿ ┿Ё┿┿┿┿┿┿ ┿
  95. DATA ┿  ┿ ┿ ┿        ┿
  96. DATA ┿┿ ┿ ┿ ┿ ┿┿┿┿┿┿┿┿
  97. DATA ┿  ┿ ┿ ┿        ┿
  98. DATA ┿ ┿┿ ┿ ┿Ё┿┿┿┿┿┿ ┿
  99. DATA ┿  ┿ ┿ ┿        ┿
  100. DATA ┿┿ ┿ ┿ ┿ ┿┿┿┿┿┿┿┿
  101. DATA ┿  ┿ ┿ ┿        ┿
  102. DATA ┿ ┿┿ ┿ ┿Ё┿┿┿┿┿┿ ┿
  103. DATA ┿    ┿ ┿        ┿
  104. DATA ┿┿┿┿ ┿ ┿ ┿┿┿┿┿┿┿┿
  105. DATA ┿    ┿ ┿        ┿
  106. DATA ┿ ┿┿Ё┿ ┿Ё┿┿┿┿┿┿ ┿
  107. DATA ┿  ┿ ┿ ┿        ┿
  108. DATA ┿┿ ┿ ┿ ┿ ┿┿┿┿┿┿┿┿
  109. DATA ┿  ┿ ┿ ┿        ┿
  110. DATA ┿ ┿┿ ┿ ┿Ё┿┿┿┿┿┿ ┿
  111. DATA ┿  ┿ ┿   ┿      ┿
  112. DATA ┿┿ ┿ ┿ ┿┿┿ ┿┿┿┿┿┿
  113. DATA ┿┿   ┿     ┿┿┿┿┿┿
  114. DATA ┿┿┿┿↓┿↑┿┿┿┿┿┿┿┿┿┿ Top 3
  115. DATA 10
  116. DATA 6
  117. DATA 3
  118. @A4
  119. DATA ┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿
  120. DATA ┿               ┿
  121. DATA ┿   ▲ ┿┿┿┿┿┿┿┿┿ж┿
  122. DATA ┿             ┿ ┿
  123. DATA ┿  ▲ ▲  ж ж ж ┿ ┿
  124. DATA ┿             ┿ ┿
  125. DATA ┿ ▲ ▲ ▲       ┿ ┿
  126. DATA ┿ ┿ ┿ ┿       ┿ ┿
  127. DATA ┿ ┿ ┿ ┿       ┿ ┿
  128. DATA ┿ ┿ ┿ ┿┿↑┿↑┿↑ ┿ ┿
  129. DATA ┿ ┿ ┿         ┿ ┿
  130. DATA ┿ ┿ ┿Ё┿┿┿┿┿┿┿ ┿ ┿
  131. DATA ┿ ┿ ┿         ┿ ┿
  132. DATA ┿ ┿   ┿┿┿┿┿┿┿┿┿ ┿
  133. DATA ┿ ┿┿┿       ┿   ┿
  134. DATA ┿  ┿┿Ё┿┿┿┿┿ ┿ж┿ ┿
  135. DATA ┿ж    ┿     ┿ ┿↑┿
  136. DATA ┿  ┿┿┿┿ ┿┿┿┿┿ ┿┿┿
  137. DATA ┿ Й             ┿
  138. DATA ┿ ┿┿┿┿┿ ┿┿┿ ┿ ┿ ┿←Bronze
  139. DATA ┿           ┿ ┿ ┿←Silver
  140. DATA ┿↑┿┿┿┿┿┿┿┿┿┿┿↑┿ ┿←Gold
  141. DATA ┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿
  142. DATA 6
  143. DATA 3
  144. DATA 0
  145. CLS:CLEAR:COLOR 0
  146. DIM PX(15),PY(15),OV(15),PM(15),PYM(15),PG(15)
  147. DIM RANK(16)
  148. RESTORE@A1
  149. @AAA
  150. CLS:COLOR 0
  151. FOR I=0 TO 22 
  152. READ A$
  153. LOCATE 2,I:PRINT A$
  154. NEXT
  155. READ SPX
  156. READ ME
  157. READ CL
  158. FOR I=0 TO 14
  159. PX(I)=SPX:PM(I)=1:PG(I)=0:PY(I)=0
  160. NEXT
  161. @LOOP
  162. J=J+1:IF J==15 THEN J=0
  163. COLOR J:IF J==1 THEN COLOR 0
  164. IF BUTTON()!=16 THEN VSYNC 1
  165. LOCATE 20,1:PRINT”А:Speed up”;
  166. IF CHKCHR(17,20)==225 AND PEND==3 THEN @FINISH
  167. IF PG(J)==1 OR OV(J)==1 THEN @LOOP
  168. GOSUB@BALL
  169. LOCATE PX(J),PY(J):PRINT BALL$;
  170. W=CHKCHR(PX(J),PY(J)−1)
  171. S=CHKCHR(PX(J),PY(J)+1)
  172. A=CHKCHR(PX(J)−1,PY(J))
  173. D=CHKCHR(PX(J)+1,PY(J))
  174. IF PYM(J)==1 THEN @JUMP
  175. IF S==31 THEN @GOAL
  176. IF S==11 THEN @BO
  177. IF S==226 THEN @RS
  178. IF S==32 THEN @S
  179. IF S==7 AND RND(5) THEN @HD
  180. IF S==30 THEN @PYM
  181. IF D==151 THEN PM(J)=−1:BEEP 9
  182. IF A==151 THEN PM(J)=1:BEEP 9
  183. IF D==32 OR A==32 THEN @DA
  184. GOTO@LOOP
  185. @BALL
  186. IF J==1 THEN BALL$=”○”
  187. IF J==1 THEN BALL$=”●”
  188. RETURN
  189. @S
  190. LOCATE PX(J),PY(J):PRINT” ”;
  191. PY(J)=PY(J)+1
  192. GOSUB@BALL
  193. LOCATE PX(J),PY(J):PRINT BALL$;
  194. GOTO@LOOP
  195. @RS
  196. BEEP 12,0,48
  197. PM(J)=RND(3)−1
  198. IF PM(J)==0 THEN @RS
  199. @DA
  200. LOCATE PX(J),PY(J):PRINT” ”;
  201. PX(J)=PX(J)+PM(J)
  202. GOSUB@BALL
  203. LOCATE PX(J),PY(J):PRINT BALL$;
  204. GOTO@LOOP
  205. @HD
  206. BEEP 6,−8192
  207. LOCATE PX(J),PY(J):PRINT” ”; 
  208. PY(J)=PY(J)+2
  209. GOTO@LOOP
  210. @GOAL
  211. LOCATE PX(J),PY(J):PRINT” ”;
  212. BEEP 7
  213. PG(J)=1
  214. GOAL=GOAL+1
  215. IF CL<GOAL THEN OV(J)=1:RANK(GOAL)=J
  216. LOCATE 20,2+GOAL
  217. GOSUB@BALL
  218. IF GOAL==1 THEN PRINT GOAL”st ”BALL$
  219. IF GOAL==2 THEN PRINT GOAL”nd ”BALL$
  220. IF GOAL==3 THEN PRINT GOAL”rd ”BALL$
  221. IF GOAL>=4 THEN PRINT GOAL”th ”BALL$
  222. IF GOAL==ME THEN @NEXTLV
  223. GOTO@LOOP
  224. @PYM
  225. PYM(J)=1:BEEP 8,−8192
  226. GOTO@LOOP
  227. @JUMP
  228. IF W==248 THEN @JUMPEND
  229. AW=CHKCHR(PX(J),PY(J)+1)
  230. IF AW!=32 AND (AW==225 OR AW==229)==0 THEN PY(J)=PY(J)−2
  231. IF AW==32 OR AW==225 OR AW==229 THEN PY(J)=PY(J)−1
  232. IF CHKCHR(PX(J),PY(J)+2)==225 THEN LOCATE PX(J),PY(J)+2:?” ”;
  233. IF CHKCHR(PX(J),PY(J)+2)==229 THEN LOCATE PX(J),PY(J)+2:?” ”;
  234. GOTO@LOOP
  235. @JUMPEND
  236. PYM(J)=0
  237. LOCATE PX(J),PY(J):PRINT” ”;
  238. LOCATE PX(J),PY(J)+1:PRINT” ”;
  239. PY(J)=PY(J)−2
  240. GOTO@LOOP
  241. @NEXTLV
  242. VSYNC 100
  243. STAGE=STAGE+1
  244. IF STAGE==1 THEN RESTORE@A2
  245. IF STAGE==2 THEN RESTORE@A3
  246. IF STAGE==3 THEN RESTORE@A4
  247. GOAL=0
  248. GOTO@AAA
  249. @BO
  250. BEEP 45
  251. R=RND(3)*2
  252. LOCATE PX(J),PY(J):PRINT” ”;
  253. PX(J)=PX(J)+1:PY(J)=PY(J)+1
  254. FOR I=0 TO 7+R
  255. LOCATE PX(J),PY(J):PRINT” ”;
  256. PX(J)=PX(J)+1
  257. GOSUB@BALL
  258. LOCATE PX(J),PY(J):PRINT BALL$;
  259. IF BUTTON()!=16 THEN VSYNC 30
  260. IF BUTTON()==16 THEN VSYNC 5
  261. NEXT
  262. IF R==4 THEN @PEND
  263. GOTO@LOOP
  264. @PEND
  265. BEEP 32:PG(J)=1
  266. @PENDLOOP
  267. LOCATE PX(J),PY(J):PRINT” ”;
  268. PY(J)=PY(J)+1
  269. GOSUB@BALL
  270. LOCATE PX(J),PY(J):PRINT BALL$;
  271. IF CHKCHR(PX(J),PY(J)+1)==32 THEN @PENDLOOP
  272. IF PEND==2 THEN RANK(3)=J
  273. IF PEND==1 THEN RANK(2)=J
  274. IF PEND==0 THEN RANK(1)=J
  275. PEND=PEND+1
  276. GOTO@LOOP
  277. @FINISH
  278. CLS:COLOR 0
  279. FOR I=1 TO 15
  280. J=RANK(I)
  281. COLOR J
  282. IF J==1 THEN COLOR 0
  283. LOCATE 2,I
  284. GOSUB@BALL
  285. IF I==1 THEN PRINT I”st ”BALL$;
  286. IF I==2 THEN PRINT I”nd ”BALL$;
  287. IF I==3 THEN PRINT I”rd ”BALL$;
  288. IF I>=4 THEN PRINT I”th ”BALL$;
  289. IF J== 1 THEN PRINT”Black
  290. IF J== 2 THEN PRINT”Light gray
  291. IF J== 3 THEN PRINT”Yellow
  292. IF J== 4 THEN PRINT”Yellow green
  293. IF J== 5 THEN PRINT”Green
  294. IF J== 6 THEN PRINT”Beige
  295. IF J== 7 THEN PRINT”Orange
  296. IF J== 8 THEN PRINT”Brown
  297. IF J== 9 THEN PRINT”Light blue
  298. IF J==10 THEN PRINT”Purple
  299. IF J==11 THEN PRINT”Blue
  300. IF J==12 THEN PRINT”Pink
  301. IF J==13 THEN PRINT”Red
  302. IF J==14 THEN PRINT”Gray
  303. IF J== 0 THEN PRINT”White
  304. NEXT
  305. VSYNC 100
  306. COLOR 0
  307. LOCATE 10,20:PRINT”Push А button”
  308. @FLOOP
  309. IF BUTTON()!=16 THEN @FLOOP
  310. @GEND
  311. CLS:COLOR 10
  312. LOCATE 10,8:PRINT”Continue?”
  313. LOCATE 10,10:PRINT”А Yes Б No”
  314. VSYNC 10
  315. @ENDLOOP
  316. B=BUTTON()
  317. IF B==16 THEN @TITLE
  318. IF B!=32 THEN @ENDLOOP
  319. CLS:COLOR 0:PRINT”See you!”
  320. END
  321. ’カンセイ 2015/6/4:13:30

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

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

  • かたけい : とても面白かったです!一部を勝手に手直ししたものでもよろしければQRコードを貼りましょうか? (2015/11/22 (日) 03:05:59)
  • haru66kero : ありがとうございます!ぜひ貼ってください! (2015/11/22 (日) 18:54:20)
  • かたけい : 貼っておきました〜 何か間違っているところなどあったら言ってください。 (2015/11/22 (日) 20:39:18)
  • かずえもん : コード公開したらステージのデータがばれますよ・・・ (2015/11/22 (日) 22:13:32)
  • 名無しさん : ↑自分が操作するわけじゃないからいいのでは? (2015/11/23 (月) 13:52:24)

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