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

投稿プログラム : 競馬的な鑑賞ソフト

パンくずリスト

2012年03月28日投稿 / 投稿者 : R-gray / タグ : 投稿プログラム 鑑賞プログラム QRコード 初代対応

概要

これは競馬的な鑑賞ソフトです。

機能

  • 馬が走ります。
  • 毛の色はランダム(出やすい出にくいはあります)です。
  • 予想印らしきものがあります。でも実は……??
    ソースを読めばわかると思います。
  • オッズもあります。↑の予想印とかかわっています。
  • タイムも出ます。タイムなので早いほど数字が小さいです。

遊び方

  • RUNしてAを押すと走ります。
  • LRを同時押しすると……??

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

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

QR コード

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

1/22/2
qr0x.pngqr01.png

プログラムリスト

  1. ’DERBY GAME
  2. ’BY R−Gray
  3. CLEAR
  4. CLS
  5. GCLS
  6. DIM UMA(6)
  7. DIM MAL(4)
  8. DIM MAL2(8)
  9. DIM C0L(10)
  10. DIM UMAC(6)
  11. DIM UMN(6)
  12. FOR MLRN=0 TO 3
  13. MAL(MLRN)=RND(6)
  14. NEXT
  15. @M20
  16. MAL2(0)=RND(6)
  17. IF MAL2(0)==MAL(0) THEN @M20
  18. @M21
  19. MAL2(1)=RND(6)
  20. IF MAL2(1)==MAL2(0) OR MAL2(1)==MAL(0) THEN @M21
  21. @M22
  22. MAL2(2)=RND(6)
  23. IF MAL2(2)==MAL(1) THEN @M22
  24. @M23
  25. MAL2(3)=RND(6)
  26. IF MAL2(3)==MAL2(2) OR MAL2(3)==MAL(1) THEN @M23
  27. @M24
  28. MAL2(4)=RND(6)
  29. IF MAL2(4)==MAL(2) THEN @M24
  30. @M25
  31. MAL2(5)=RND(6)
  32. IF MAL2(5)==MAL2(4) OR MAL2(5)==MAL(2) THEN @M25
  33. @M26
  34. MAL2(6)=RND(6)
  35. IF MAL2(6)==MAL(3) THEN @M26
  36. @M27
  37. MAL2(7)=RND(6)
  38. IF MAL2(7)==MAL2(6) OR MAL2(7)==MAL(3) THEN @M27
  39. COL(0)=1
  40. COL(1)=1
  41. COL(2)=2
  42. COL(3)=7
  43. COL(4)=7
  44. COL(5)=8
  45. COL(6)=8
  46. COL(7)=8
  47. COL(8)=8
  48. COL(9)=15
  49. FOR U=0 TO 5
  50. UMAC(U)=COL(RND(10))
  51. NEXT
  52. COLOR 0
  53. LOCATE 0,1
  54. PRINT ”                              ┝┿”
  55. LOCATE 0,2
  56. PRINT ”┬──┬──┬──┬──┬──┬──┬──┬──┬──┬──┿│”
  57. LOCATE 0,3
  58. PRINT ”│  │  │  │  │  │  │  │  │  │  ┥│”
  59. LOCATE 0,4
  60. PRINT ”жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж”
  61. LOCATE 0,11
  62. PRINT ”┬──┬──┬──┬──┬──┬──┬──┬──┬──┬──┬─”
  63. LOCATE 0,12
  64. PRINT ”│  │  │  │  │  │  │  │  │  │  │ ”
  65. LOCATE 0,13
  66. PRINT ”жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж”
  67. LOCATE 0,14
  68. FOR WAK=1 TO 6
  69. PRINT WAK
  70. NEXT
  71. LOCATE 2,MAL(0)+14
  72. PRINT ”◎”
  73. LOCATE 2,MAL2(0)+14
  74. PRINT ”○”
  75. LOCATE 2,MAL2(1)+14
  76. PRINT ”○”
  77. LOCATE 3,MAL(1)+14
  78. PRINT ”◎”
  79. LOCATE 3,MAL2(2)+14
  80. PRINT ”○”
  81. LOCATE 3,MAL2(3)+14
  82. PRINT ”○”
  83. LOCATE 4,MAL(2)+14
  84. PRINT ”◎”
  85. LOCATE 4,MAL2(4)+14
  86. PRINT ”○”
  87. LOCATE 4,MAL2(5)+14
  88. PRINT ”○”
  89. LOCATE 5,MAL(3)+14
  90. PRINT ”◎”
  91. LOCATE 5,MAL2(6)+14
  92. PRINT ”○”
  93. LOCATE 5,MAL2(7)+14
  94. PRINT ”○”
  95. GFILL 0,32,255,104,11
  96. GPAINT 0,0,7
  97. @GAME
  98. FOR UMV=0 TO 5
  99. LOCATE 0,UMV+5
  100. COLOR UMAC(UMV)
  101. PRINT UMV+1
  102. NEXT
  103. @ODD
  104. COLOR 0
  105. FOR OD=0 TO 3
  106. UMN(MAL(OD))=UMN(MAL(OD))+1
  107. NEXT
  108. FOR OD2=0 TO 7
  109. UMN(MAL2(OD2))=UMN(MAL2(OD2))+0.5
  110. NEXT
  111. FOR ODP=0 TO 5
  112. UD=(RND(6)−UMN(ODP))/5
  113. LOCATE 7,ODP+14
  114. PRINT (5−UMN(ODP))+UD
  115. NEXT
  116. @OLP
  117. IF BUTTON()==16 THEN @LV
  118. GOTO @OLP
  119. @LV
  120. LOCATE 12,14
  121. PRINT ”1st”
  122. LOCATE 12,15
  123. PRINT ”2nd”
  124. LOCATE 12,16
  125. PRINT ”3rd”
  126. LOCATE 12,17
  127. PRINT ”4th”
  128. LOCATE 12,18
  129. PRINT ”5th”
  130. LOCATE 12,19
  131. PRINT ”6th”
  132. @LOOP
  133. TIME=TIME+1
  134. GO=RND(7)
  135. IF GO>=6 THEN GOSUB @MALGO
  136. LOCATE 0,GO+5
  137. IF UMA(GO)>=31 THEN @LOOP
  138. PRINT ”                                ”
  139. UMA(GO)=UMA(GO)+1
  140. IF UMA(GO)==31 THEN GOSUB @GOAL
  141. LOCATE UMA(GO),GO+5
  142. COLOR UMAC(GO)
  143. PRINT GO+1
  144. SP=10
  145. IF BUTTON()==768 THEN SP=1
  146. WAIT SP
  147. IF UMA(0)==31 AND UMA(1)==31 AND UMA(2)==31 THEN GOTO @CB
  148. GOTO @LOOP
  149. @CB
  150. IF UMA(3)==31 AND UMA(4)==31 AND UMA(5)==31 THEN GOTO @EN
  151. GOTO @LOOP
  152. @EN
  153. LOCATE 0,21
  154. COLOR 0
  155. END
  156. @MALGO
  157. MG=RND(16)
  158. IF MG<=7 THEN GO=MAL2(MG):RETURN
  159. MG=MG%4
  160. GO=MAL(MG)
  161. RETURN
  162. @GOAL
  163. TIME2=TIME/6
  164. TIME2=FLOOR(TIME2)
  165. RANK=RANK+1
  166. LOCATE 16,RANK+13
  167. COLOR 0
  168. PRINT GO+1;” ”;TIME2
  169. RETURN

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

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

  • 名無しさんですよ : おお!とても面白いですよ (2012/03/30 (金) 19:44:02)
  • R-gray : ありがとうございます! (2012/03/31 (土) 10:11:27)
  • 馬鹿 : コレに金賭けたらwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww (2012/04/19 (木) 18:11:00)
  • ウイング : ↑三万賭けた!! (2012/04/20 (金) 20:06:37)
  • ウイングの友達 : ↑一等!!一億もうけた!!www (2012/05/21 (月) 18:49:19)
  • R-gray : 金賭けてるんだ、というかリア友に「オッズ高過ぎ」とか言われた (2012/05/21 (月) 19:15:06)
  • hata0401 : 5にかける! (2012/07/21 (土) 21:47:10)
  • hata0401 : 1位は1で、5は3位でした (2012/07/21 (土) 21:48:35)
  • 名無しさん : よし、みんなでかねかけよう。 (2012/08/16 (木) 08:10:33)
  • 名無しさん : 今首相と借金をかけてやっとる (2012/08/16 (木) 08:12:39)
  • 名無しさん : 首相に勝った。借金返済完了 (2012/08/16 (木) 10:54:30)
  • 名無しさん : やり方がよくわからん (2012/09/14 (金) 22:00:05)
  • 道産子の初心者 : 営業(めっちゃ金儲け)できそう\\\ (2012/10/11 (木) 11:52:04)
  • ライオネル : 数字を馬にして欲しい (2014/11/30 (日) 17:28:21)

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