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

投稿プログラム : プチコンガチャ

パンくずリスト

2012年06月06日投稿 / 投稿者 : うらゝ / タグ : 投稿プログラム ゲーム ガチャ QRコード mkII専用

概要

スプライトキャラクターを使ってガチャを作ってみました。

背景とカプセルベンダーはBGキャラを組み合わせて、プライズはスプライトキャラを使っています。

どちらも特別に描いたりはせず標準のキャラを使用しています。

遊び方

  • [A] ボタンで1回引きます。
  • [R] ボタンを押し続けていると連続で引きます。
  • [Y] ボタンを押して、(他のボタンを押してない状態で)離すと初期状態に戻ります。
  • [X] ボタンで終了します。

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

SDC10004.JPG

QR コード

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

GACHA_QR.png

プログラムリスト

  1. @BEGIN
  2. CLEAR
  3. GOSUB @GACHAINIT
  4. GOSUB @SCRINIT
  5. TRIAL=0
  6. COMP2=0
  7. SECRET=0
  8. BGMPLAY 14
  9. @MAINLOOP
  10. IF NCAP==0 THEN @ED
  11. B=BUTTON()
  12. IF B AND 64 THEN @ED
  13. IF B AND 16 THEN GOSUB @ONCE
  14. IF B AND 512 THEN GOSUB @REN
  15. IF B AND 128 THEN @RST
  16. IF B AND 720 THEN @UPD
  17. VSYNC 1
  18. GOTO @MAINLOOP
  19. @UPD
  20. LOCATE 22,9:COLOR 0
  21. PRINT RIGHT$(”   ”+STR$(TRIAL),4);
  22. FOR I=0 TO 4
  23. LOCATE 27,14+2*I:COLOR 0
  24. PRINT RIGHT$(”   ”+STR$(NGET(I)),4);
  25. NEXT I
  26. LOCATE 22,11:COLOR 0
  27. PRINT RIGHT$(”   ”+STR$(TRIAL*3),4);
  28. IF SECRET==0 THEN @MAIN00
  29. LOCATE 24,22: PRINT ”  ”
  30. SPSET 14,CCHR(4),CPAL(4),0,0,1
  31. SPOFS 14,192,168
  32. SECRET=0
  33. @MAIN00
  34. IF COMP==0 OR COMP2>0 THEN @MAINLOOP
  35. LOCATE 6,9:COLOR 1
  36. BGMPLAY 8
  37. PRINT ”コンフ゜!”
  38. COMP2=1
  39. GOTO @MAINLOOP
  40. @RST
  41. B=BUTTON()
  42. IF B AND 128 THEN @RST
  43. IF B==0 THEN @BEGIN
  44. GOTO @MAINLOOP
  45. @ED
  46. BGMSTOP
  47. LOCATE 4,20:COLOR 1
  48. PRINT ”PRESS Ф TO END”
  49. @ED00
  50. IF (BUTTON() AND 64)==0 THEN @ED00
  51. ACLS
  52. END
  53. @ONCE
  54. IF BUTTON() AND 16 THEN @ONCE
  55. BEEP 7
  56. GOSUB @GETCAP
  57. VSYNC 10
  58. FOR I=0 TO 2
  59. FOR J=0 TO 3
  60. X=80+(J%2−1)
  61. Y=132+4*I*I+4*(FLOOR(J/2)−1)
  62. SPSCALE J,25
  63. SPOFS J,X,Y
  64. NEXT J
  65. VSYNC 8
  66. NEXT I
  67. FOR I=1 TO 4
  68. FOR J=0 TO 3
  69. X=80+4*I*(J%2−1)
  70. Y=168+4*I*(FLOOR(J/2)−1)
  71. SPSCALE J,25*I
  72. SPOFS J,X,Y
  73. NEXT J
  74. VSYNC 8
  75. NEXT I
  76. SPCHR 4,CCHR(TYPE),CPAL(TYPE),0,0,0
  77. SPOFS 4,72,153
  78. FOR I=1 TO 3
  79. FOR J=0 TO 1
  80. X=80+16*(J−1)
  81. Y=152−2*I*I
  82. SPOFS J,X,Y
  83. NEXT J
  84. VSYNC 8
  85. NEXT I
  86. VSYNC 8
  87. FOR I=0 TO 3
  88. SPOFS I,512,0
  89. NEXT I
  90. SPOFS 4,32,48,15
  91. VSYNC 15
  92. BP=55
  93. IF TYPE==4 THEN BP=43
  94. BEEP BP
  95. LOCATE 5,7:COLOR 1
  96. PRINT TYPE;” ヲ ケ゛ット!”
  97. SPSET 20,CCHR(TYPE),CPAL(TYPE),0,0,0
  98. SPOFS 20,32,48
  99. SPOFS 4,512,0
  100. VSYNC 15
  101. RETURN
  102. @REN
  103. SPCLR 20
  104. GOSUB @GETCAP
  105. LOCATE 5,7:COLOR 1
  106. PRINT TYPE;” ヲ ケ゛ット!”
  107. SPSET 20,CCHR(TYPE),CPAL(TYPE),0,0,0
  108. SPOFS 20,32,48
  109. RETURN
  110. @GETCAP
  111. TRIAL=TRIAL+1
  112. IF NCAP<=1 THEN @LASTCAP
  113. GET=RND(NCAP)
  114. TYPE=CAP(GET)
  115. IF TYPE==4 THEN SECRET=1
  116. FOR I=GET TO NCAP−1
  117. CAP(I)=CAP(I+1)
  118. NEXT I
  119. GOTO @GETCAP01
  120. @LASTCAP
  121. GET=0
  122. TYPE=CAP(0)
  123. @GETCAP01
  124. NCAP=NCAP−1
  125. NGET(TYPE)=NGET(TYPE)+1
  126. COMP=1
  127. FOR I=0 TO 4
  128. IF NGET(I)==0 THEN COMP=0
  129. NEXT I 
  130. RETURN
  131. @SCRINIT
  132. ACLS
  133. VISIBLE 1,1,0,0,0,0
  134. X=48: Y=0
  135. S$=”フ゜チコン カ゛チャ”
  136. FOR I=0 TO LEN(S$)−1
  137. GPUTCHR X,Y,”BGF0”,ASC(MID$(S$,I,1)),15,2
  138. X=X+16
  139. NEXT I
  140. COLOR 2
  141. LOCATE 22,3:PRINT ”А 1カイ”
  142. LOCATE 22,4:PRINT ”н レンソ゛ク”
  143. LOCATE 22,5:PRINT ”Х リセット”
  144. LOCATE 22,6:PRINT ”Ф シュウリョウ”
  145. COLOR 0
  146. LOCATE 22,8:PRINT ”ケッカ”
  147. LOCATE 26,9:PRINT ”カイTRY”
  148. LOCATE 22,10:PRINT ”シヨウホ゜イント”
  149. LOCATE 26,11:PRINT ”00pt”
  150. FOR I=0 TO 4
  151. IF I<4 OR SECRET THEN @PUTCHR
  152. LOCATE 24,22:PRINT ”??”;
  153. GOTO @PUTCHRN
  154. @PUTCHR
  155. SPSET 10+I,CCHR(I),CPAL(I),0,0,1
  156. SPOFS 10+I,192,(6.5+I)*16
  157. @PUTCHRN
  158. LOCATE 27,14+2*I:PRINT ”   0”;
  159. NEXT I
  160. FOR I=0 TO 19
  161. FOR J=2 TO 15
  162. BGPUT 1,I,J,586,13,0,0
  163. NEXT J
  164. NEXT I
  165. BGPUT 1,9,15,545,13,0,0
  166. FOR I=0 TO 19
  167. FOR J=16 TO 23
  168. BGPUT 1,I,J,545,13,0,0
  169. NEXT J
  170. NEXT I
  171. RESTORE @GACHADATA
  172. @PUTGACHALOOP
  173. READ X,Y,C
  174. IF X==−1 THEN @PUTGACHAEND
  175. BGPUT 0,X,Y,C,13,0,0
  176. GOTO @PUTGACHALOOP
  177. @PUTGACHAEND
  178. SPSET 0,6,2,0,0,0
  179. SPSET 1,7,2,0,0,0
  180. SPSET 2,9,9,0,0,0
  181. SPSET 3,8,9,0,0,0
  182. SPSET 4,0,1,0,0,0
  183. FOR I=0 TO 4
  184. SPOFS I,512,0
  185. NEXT I
  186. VISIBLE 1,1,1,1,1,1
  187. RETURN
  188. @GACHADATA
  189. DATA 9,12,564
  190. DATA 10,12,565
  191. DATA 9,13,596
  192. DATA 10,13,597
  193. DATA 9,14,628
  194. DATA 10,14,629
  195. DATA 8,15,691
  196. DATA 9,15,519
  197. DATA 10,15,728
  198. DATA 11,15,694
  199. DATA 8,16,723
  200. DATA 9,16,732
  201. DATA 10,16,733
  202. DATA 11,16,726
  203. DATA 8,17,755
  204. DATA 9,17,756
  205. DATA 10,17,757
  206. DATA 11,17,758
  207. DATA −1,0,0
  208. @GACHAINIT
  209. DIM NGET(5)
  210. NCAP=0
  211. RESTORE @CAPDATA
  212. FOR I=0 TO 4
  213. READ CCHR(I),CPAL(I),CNUM(I)
  214. NCAP=NCAP+CNUM(I)
  215. NEXT I
  216. DIM CAP(NCAP+1)
  217. K=0
  218. FOR I=0 TO 4
  219. FOR J=0 TO CNUM(I)−1
  220. CAP(K)=I
  221. K=K+1
  222. NEXT J
  223. NEXT I
  224. RETURN
  225. @CAPDATA
  226. DATA 68,5,500
  227. DATA 100,6,200
  228. DATA 130,11,300
  229. DATA 194,3,300
  230. DATA 68,7,10

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

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

  • ゆうしゃアシスタント : (^O^)/楽しそう! (2012/06/06 (水) 17:08:07)
  • 名無しさん : コンプ要素を付けて「プチコンプガチャ」って名前にしたら時事ネタっぽくてよかった (2012/06/16 (土) 14:25:09)
  • キービィ : ボタン押しても動きません (2012/06/27 (水) 16:13:20)
  • tokei : GBAなぜかおもいだした(-_-) (2012/06/27 (水) 20:13:34)
  • なーゆ : R長押ししてたら簡単にコンプ出来るw (2012/07/15 (日) 17:06:08)
  • 名無しさん : QRコードいただきます! (2012/08/12 (日) 23:26:42)
  • 名無しさん : jj (2012/10/19 (金) 16:41:14)
  • ウォーロック : おもろすぎるww (2013/05/30 (木) 16:34:33)

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