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

投稿プログラム : ドミニオンセレクタ

パンくずリスト

2011年05月10日投稿 / 投稿者 : 名無しさん / タグ : 投稿プログラム ゲーム ツール

概要

デッキ構築型カードゲーム「ドミニオン」で使用する王国カード10種をランダムに選択するツールです。
ドミニオン派生系のゲーム(「サンダーストーン」「たんとくお〜れ」など)でもデータを変更すれば使用できます。

使い方

実行すると、画面下半分に王国カードの一覧と出現頻度が表示されます。
デフォルト(プログラムリスト通り)の場合、出現頻度は全て5となっています。

以下の操作で、出現頻度を変更し、10種を選択します。

↑/↓王国カードの選択
←/→出現頻度の変更(-1/+1)
К+←/К+→出現頻度の変更(-10/+10)
А王国カードの選択
STARTプログラムの終了

十字キーの左右(L+左右)で出現頻度の調整を行い、Aボタンで選択された10種を表示となります。
出現頻度は(0〜99)の範囲で変更可能です。0にすると選択されなくなります。

選択された10種は画面上半分に表示されます。

出現頻度の値は記録されないので、プログラムリスト中のDATA文の値を変更すれば、デフォルトの値を変更しておくことができます。

プログラムリストでは「ドミニオン」の基本セットの王国カードしか記述していませんが、
3行目のDIMで宣言している配列の数、4行目のCNTの値、DATA文を編集すれば王国カードを追加できます。

プログラムリスト

  1. ＣＬＥＡＲ：ＣＬＳ
  3. ＤＩＭ　ＣＮ＄（２５），ＣＣ（２５），ＣＶ（２５），ＣＶＯ（２５），ＦＬＧ（２５）
  4. ＣＮＴ＝２５
  5. ＳＵＭ＝０
  6. ＦＯＲ　Ｉ＝０　ＴＯ　ＣＮＴ−１
  7. 　ＲＥＡＤ　ＣＮ＄（Ｉ）
  8. 　ＲＥＡＤ　ＣＣ（Ｉ）
  9. 　ＲＥＡＤ　ＣＶＯ（Ｉ）
  10. ＮＥＸＴ
  12. ＣＵＲ＝０
  13. ＠ＬＯＯＰ
  14. ＯＫ＝ＮＯＴ　Ｋ：Ｋ＝ＢＵＴＴＯＮ（）：ＯＫ＝ＯＫ　ＡＮＤ　Ｋ
  15. ＧＯＳＵＢ＠ＤＭＥＮＵ
  16. ＩＦ　ＯＫ　ＡＮＤ　１　ＴＨＥＮ　ＧＯＳＵＢ＠ＵＰ：ＧＯＴＯ＠ＶＳ
  17. ＩＦ　ＯＫ　ＡＮＤ　２　ＴＨＥＮ　ＧＯＳＵＢ＠ＤＮ：ＧＯＴＯ＠ＶＳ
  18. ＩＦ（Ｋ　ＡＮＤ　２５６）＋（ＯＫ　ＡＮＤ　４）＝＝２６０　ＴＨＥＮ　ＧＯＳＵＢ＠ＬＬ：ＧＯＴＯ＠ＶＳ
  19. ＩＦ（Ｋ　ＡＮＤ　２５６）＋（ＯＫ　ＡＮＤ　８）＝＝２６４　ＴＨＥＮ　ＧＯＳＵＢ＠ＬＲ：ＧＯＴＯ＠ＶＳ
  20. ＩＦ　ＯＫ　ＡＮＤ　４　ＴＨＥＮ　ＧＯＳＵＢ＠ＬＦ：ＧＯＴＯ＠ＶＳ
  21. ＩＦ　ＯＫ　ＡＮＤ　８　ＴＨＥＮ　ＧＯＳＵＢ＠ＲＴ：ＧＯＴＯ＠ＶＳ
  22. ＩＦ　ＯＫ　ＡＮＤ　１６　ＴＨＥＮ　ＧＯＳＵＢ＠Ａ：ＧＯＴＯ＠ＶＳ
  23. ＩＦ　ＯＫ　ＡＮＤ　１０２４　ＴＨＥＮ　ＧＯＳＵＢ＠ＳＴ：ＧＯＴＯ＠ＶＳ
  24. ＠ＶＳ
  25. ＶＳＹＮＣ　１
  26. ＧＯＴＯ＠ＬＯＯＰ
  28. ＠ＵＰ
  29. ＣＵＲ＝（ＣＵＲ＋ＣＮＴ−１）％ＣＮＴ
  30. ＲＥＴＵＲＮ
  32. ＠ＤＮ
  33. ＣＵＲ＝（ＣＵＲ＋１）％ＣＮＴ
  34. ＲＥＴＵＲＮ
  36. ＠ＬＦ
  37. ＣＶＯ（ＣＵＲ）＝ＣＶＯ（ＣＵＲ）−（ＣＶＯ（ＣＵＲ）＞０）
  38. ＲＥＴＵＲＮ
  40. ＠ＬＬ
  41. ＣＶＯ（ＣＵＲ）＝ＣＶＯ（ＣＵＲ）−１０
  42. ＩＦ　ＣＶＯ（ＣＵＲ）＜０　ＴＨＥＮ　ＣＶＯ（ＣＵＲ）＝０
  43. ＲＥＴＵＲＮ
  45. ＠ＲＴ
  46. ＣＶＯ（ＣＵＲ）＝ＣＶＯ（ＣＵＲ）＋（ＣＶＯ（ＣＵＲ）＜９９）
  47. ＲＥＴＵＲＮ
  49. ＠ＬＲ
  50. ＣＶＯ（ＣＵＲ）＝ＣＶＯ（ＣＵＲ）＋１０
  51. ＩＦ　ＣＶＯ（ＣＵＲ）＞９９　ＴＨＥＮ　ＣＶＯ（ＣＵＲ）＝９９
  52. ＲＥＴＵＲＮ
  54. ＠Ａ
  55. ＧＯＳＵＢ＠ＳＥＬ
  56. ＲＥＴＵＲＮ
  58. ＠ＳＴ
  59. ＥＮＤ
  61. ＠ＤＭＥＮＵ
  62. ＣＯＬＯＲ　６：ＬＯＣＡＴＥ　０，０：？”ＤＯＭＩＮＩＯＮ　ＳＥＬＥＣＴＯＲ”
  63. ＦＯＲ　Ｉ＝−４　ＴＯ　５
  64. 　ＬＯＣＡＴＥ　３，１６＋Ｉ
  65. 　？”　　　　　　　　　　　　　　　　　　　　　　　　　　”
  66. 　ＩＦ（（Ｉ＋ＣＵＲ＜０）ＯＲ（Ｉ＋ＣＵＲ＞ＣＮＴ−１））ＧＯＴＯ＠ＥＩＦ
  67. 　　ＬＯＣＡＴＥ　５−ＬＥＮ（ＳＴＲ＄（ＣＶＯ（ＣＵＲ＋Ｉ））），１６＋Ｉ
  68. 　　ＣＯＬＯＲ　ＣＣ（ＣＵＲ＋Ｉ）
  69. 　　？ＣＶＯ（ＣＵＲ＋Ｉ）”　”ＣＮ＄（ＣＵＲ＋Ｉ）
  70. 　＠ＥＩＦ
  71. ＮＥＸＴ
  72. ＣＯＬＯＲ　ＣＣ（ＣＵＲ）：ＬＯＣＡＴＥ　１，１６：？”Й”
  73. ＲＥＴＵＲＮ
  75. ＠ＣＳＵＭ
  76. ＳＵＭ＝０
  77. ＦＯＲ　Ｉ＝０　ＴＯ　ＣＮＴ−１
  78. 　ＳＵＭ＝ＳＵＭ＋ＣＶＯ（Ｉ）
  79. 　ＣＶ（Ｉ）＝ＳＵＭ
  80. ＮＥＸＴ
  81. ＲＥＴＵＲＮ
  83. ＠ＳＥＬ
  84. ＧＯＳＵＢ＠ＣＳＵＭ
  85. ＣＬＳ：ＬＯＣＡＴＥ　０，１
  86. ＦＯＲ　Ｉ＝０　ＴＯ　ＣＮＴ−１
  87. 　ＦＬＧ（Ｉ）＝０
  88. ＮＥＸＴ
  89. ＦＯＲ　Ｉ＝０　ＴＯ　９
  90. 　ＬＯＣＡＴＥ　１，１＋Ｉ
  91. 　＠ＲＥ
  92. 　Ｖ＝ＲＮＤ（ＳＵＭ）
  93. 　ＦＯＲ　Ｊ＝０　ＴＯ　ＣＮＴ−１
  94. 　　ＩＦ　Ｖ＞＝ＣＶ（Ｊ）　ＧＯＴＯ　＠ＪＮ
  95. 　　　ＩＦ　ＦＬＧ（Ｊ）＝＝１　ＴＨＥＮ　Ｊ＝ＣＮＴ＋５：ＧＯＴＯ＠ＪＮ
  96. 　　　ＣＯＬＯＲ　ＣＣ（Ｊ）：？ＣＮ＄（Ｊ）
  97. 　　　ＦＬＧ（Ｊ）＝１
  98. 　　　Ｊ＝ＣＮＴ
  99. 　　＠ＪＮ
  100. 　ＮＥＸＴ　Ｊ
  101. 　ＩＦ　Ｊ＞ＣＮＴ＋５　ＧＯＴＯ　＠ＲＥ
  102. ＮＥＸＴ　Ｉ
  103. ＲＥＴＵＲＮ
  105. ’ナマエ，イロ，シュツケ゛ンヒント゛
  106. ＤＡＴＡ”ホリ／ＭＯＡＴ”，９，５
  107. ＤＡＴＡ”レイハイト゛ウ／ＣＨＡＰＥＬ”，０，５
  108. ＤＡＴＡ”チカチョソ゛ウコ／ＣＥＬＬＡＲ”，０，５
  109. ＤＡＴＡ”ムラ／ＶＩＬＬＡＧＥ”，０，５
  110. ＤＡＴＡ”キコリ／ＷＯＯＤＣＵＴＴＥＲ”，０，５
  111. ＤＡＴＡ”サイショウ／ＣＨＡＮＣＥＬＬＯＲ”，０，５
  112. ＤＡＴＡ”コウホ゛ウ／ＷＯＲＫＳＨＯＰ”，０，５
  113. ＤＡＴＡ”ヤクニン／ＢＵＲＥＡＵＣＡＲＴ”，０，５
  114. ＤＡＴＡ”ト゛ロホ゛ウ／ＴＨＩＥＦ”，０，５
  115. ＤＡＴＡ”シュクエン／ＦＥＡＳＴ”，０，５
  116. ＤＡＴＡ”カネカシ／ＭＯＮＥＹＬＥＮＤＥＲ”，０，５
  117. ＤＡＴＡ”ミンヘ゜イ／ＭＩＬＩＴＩＡ”，０，５
  118. ＤＡＴＡ”カシ゛ヤ／ＳＭＩＴＨＹ”，０，５
  119. ＤＡＴＡ”ミッテイ／ＳＰＹ”，０，５
  120. ＤＡＴＡ”キ゛ョクサ゛ノマ／ＴＨＲＯＮＥ　ＲＯＯＭ”，０，５
  121. ＤＡＴＡ”カイチク／ＲＥＭＯＤＥＬ”，０，５
  122. ＤＡＴＡ”ショコ／ＬＩＢＲＡＲＹ”，０，５
  123. ＤＡＴＡ”マシ゛ョ／ＷＩＴＣＨ”，０，５
  124. ＤＡＴＡ”シュクサイ／ＦＥＳＴＩＶＡＬ”，０，５
  125. ＤＡＴＡ”ケンキュウシ゛ョ／ＬＡＢＯＲＡＴＯＲＹ”，０，５
  126. ＤＡＴＡ”イチハ゛／ＭＡＲＫＥＴ”，０，５
  127. ＤＡＴＡ”コウサ゛ン／ＭＩＮＥ”，０，５
  128. ＤＡＴＡ”キ゛シ゛ト゛ウ／ＣＯＵＮＣＩＬ　ＲＯＯＭ”，０，５
  129. ＤＡＴＡ”ホ゛ウケンシャ／ＡＤＶＥＮＴＵＲＥＲ”，０，５
  130. ＤＡＴＡ”テイエン／ＧＡＲＤＥＮＳ”，４，５

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

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

  • 名無しさん : 69行目のCVO(CUR(I)は、CVO(CUR+I)の間違い? (2011/05/10 (火) 21:53:44)
  • 名無しさん : あと、112行目のDATAで、文字列の中にダブルクォーテーションがあるのはまずいかと (2011/05/10 (火) 22:00:51)
  • 名無しさん : 作者ではないけど推測で51行目(条件)・69行目・112行目を修正。 (2012/09/07 (金) 21:24:06)

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