リンクゲーム for FX-602P

　FX-602P用のトランプゲームです。気合を入れてステップを削ったので(239 steps)、よろしければ入力して遊んでみてください。(^^)

※本プログラムはFreewareです。動作に責任は持ちません。(^^;

どんなゲームか？

　ゲームセンターによくある、1組のトランプを使って遊ぶゲームです。同じスーツか数字を持つカードを次々と出していって、なるべく多くのカードをつなげてください。52枚全部リンクできたら、きっといいことがある…かもしれません。

遊び方

　ハイスコアをクリアするため、一番最初に実行するときだけ、INV MACを押します。このままだと平均スコアがエラーになってしまうので、とりあえず0 XDとかやっておいてください(後で、0 XDELとすればよいでしょう)。P0を押すと、次のように4枚のカードが表示されます。

　　→■T・Aμ8μJ
　ここで、"■"、"・"、"μ"、"＊"はスーツを、"A"、"2"～"9"、"T"、"J"、"Q"、"K"は数字を表します。上の表示では、"■T"、"・A"、"μ8"、"μJ"の4枚が手札に配られていることを示します。ここから最初に台札となる1枚選びます。左から1～4の数字に対応しますので、数字を入力してEXEを押してください。例えば、4 EXEと入力すると次のようになります。

μJ→■T・Aμ8＊J
　選んだ札が台札として一番左に表示され、自動的にカードが1枚補充されます。次からは、スーツか数字が台札と同じカードしか選ぶことができません。この例だと、3か4のカードしか選ぶことができません。条件に合ったカードを選ぶと、そのカードが台札になって、あとはカードがなくなるまでこれの繰り返しです。台札に合うカードがなくなったら終わりですので、9 EXEと入力してください。

4.6：<0>/17
　毎回のカード表示とゲーム終了時には、上のように表示されます。一番左の数字はこれまでの平均スコアです。<>で囲まれた数字が現在の枚数(スコア)です。一番右はハイスコアです。ちなみに、私は200回ほどやって、平均4.6回、ハイスコアは17回でした。

バグ

　カードの残り枚数が少なくなると、カードの補充に少し時間がかかるようになります。もし、運良く52枚全部リンクできるような時には、最後の1枚には1分くらいかかる可能性があります。まあ、52枚リンクできることはめったにないでしょうから、ご勘弁ください。別のアルゴリズムによるサブルーチンも試したのですが、毎回4～5秒かかるようになるので現在のルーチンの方を採用しました。

　52枚リンクできた方は、ぜひメールでお知らせください。バグ報告、ゲームの感想などもこちらへどうぞ。

プログラムリスト

※入力時の注意

ステップ数には、P0などプログラムエリアのナンバー自体も含んでいます。
プログラムはP9→P8→P7→P6→P0の順に入力した方が、実行速度が早くなります。
P0とP8中の＠は"MODE INV EXE FST"(スペースが表示される)と、P8中の・は"MODE INV EXE BST"(小さな点が表示される)と入力して下さい。FX-603Pの場合は、適当に別のキャラクタで置き換えて入力してください。
P6中のx~は平均(INV 7)です。
スーツのキャラクタを変更したいときはP8のALPHA文を変えてください。
気合を入れてステップを削ったので、可読性はよくないです。(^^;
FA-1やFA-2をお持ちの方のために、音声ファイル(*.wav)も用意しました。ただしサイズが大きい(1.1Mbyte)ので、気合を入れてダウンロードしてください。

プログラム (ステップ数)	内容
P9 (46 steps)	MRF INT Min05 5 x>=F IND GOTO5 "；T" GOTO9 LBL1 "；J" GOTO9 LBL2 "；Q" GOTO9 LBL3 "；K" GOTO9 LBL4 "；A" GOTO9 LBL5 3 M-05 AC "； AR05" LBL9
P8 (40 steps)	*MinF FRAC x=0 "；＠＠" x=0 GOTO9 1/x Min05 IND GOTO5 "；" GOTO0 LBL2 "；μ" GOTO0 LBL3 "；・" GOTO0 LBL5 "；■" LBL0 GSBP9 LBL9**
P7 (52 steps)	48 MinF MR00 x>=F GOTO9 LBL0 RAN# × 13 = INT Min05 RAN# × 4 + 1 = INT MinF IND MRF ÷ 2 x^y MR05 = INT ÷ 2 = FRAC x=0 x=F GOTO0 2 x^y MR05 = IND M+F MR05 + MRF ÷ 10 = LBL9
P6 (13 steps)	x~ RND2 = "#:< AR00 >/ AR19"
P0 (88 steps)	AC Min00 Min01 Min02 Min03 Min04 Min14 GSBP7 Min10 GSBP7 Min11 GSBP7 Min12 GSBP7 Min13 LBL0 GSBP6 PAUSE "＠" MR14 GSBP8 "；→" MR10 GSBP8 MR11 GSBP8 MR12 GSBP8 MR13 GSBP8 HLT INT MinF 9 x=F GOTO9 Min06 4 X←→MF x>=0 x>=F x=F x=0 GOTO0 M+06 IND MR06 INT MinF MR14 INT x=F GOTO1 IND MR06 FRAC x=0 GOTO0 MinF MR14 FRAC x=F GOTO1 x=0 GOTO1 GOTO0 LBL1 GSBP6 GSBP7 IND X←→M06 Min14 ISZ GOTO0 LBL9 MR19 MinF MR00 XD x>=F Min19 GSBP6

total 239 steps

変数表
メモリ	用途
MR00	スコア
MR01～04	既出のカード記録用
MR05	汎用
MR06	手札の選択(1～4)
MR07～09	スコアの統計用
MR10～13	手札
MR14	台札
MR19	ハイスコア
MRF	比較用

[ HomePage | FX-602Pのページ ]

PED00725@nifty.ne.jp, ey5k-myhr@asahi-net.or.jp

Last modified 2000/07/01