*里々でハイアンドロー [#w6ac6630]
SSP専用です。
**里々でトランプをやりたかった [#t8f5f421]
ブラックジャックとかジジ抜きとかやろうと思ったら私の頭が爆発しました。
%%誰か作ってください、それだけが私の望みです。%%
%%あたまのわるい%%非常にアナログな書き方なので、なんかもっと良い方法があったら教えてください。
カードのシャッフルが非常にアナログなのは応用が効くようにしたかったからです。たぶん数学系手品とかできます。
掛け金の要素は含まれていません。
*準備 [#lef5e9a9]
52枚のカード画像を用意して、それをC12（クローバーのQの場合）とかに改名し、ghost/master/img/に入れておく。
*以下、中身 [#p6e8efff]
satori_conf.txt内
＄単語群「カード箱」の重複回避【タブ】有効、起動中
＄HAL勝ち数【タブ】０
＄HAL負け数【タブ】０
＄HAL流れ数【タブ】０
本体
＊ハイアンドロートップ
＞HAL残念【タブ】（Sender）！＝SSP
＄どのゲームか【タブ】HAL
：\_qごく単純なハイアンドローφ。
カードは無くなるまで同じ山を使うよφ。
SSP専用φ。
\![*]\q[はじめる,カードきり]
\![*]\q[やめる ,カードキャンセル]\_q
＊HAL残念
：SSPじゃないと出来ないです。ごめんなさい。
＊HAL戦績
：勝ち φ：（HAL勝ち数）
負け φ：（HAL負け数）
ドローφ：（HAL流れ数）
\![*]\q[リセット,HAL勝ち数リセット]
\![*]\q[もどる ,ハイアンドロートップ]
＊HAL勝ち数リセット
＄HAL勝ち数＝０
＄HAL負け数＝０
＄HAL流れ数＝０
：リセットしました。
＞HAL戦績
＊カードきり
：\_qちょっと待ってね。
＄切ったカード【タブ】temp、（loop,カード箱,52）
＄山にする【タブ】（split,（切ったカード）,、）
＄カード１【タブ】（Ｓ１）
＄カード２【タブ】（Ｓ２）
＄カード３【タブ】（Ｓ３）
＄カード４【タブ】（Ｓ４）
＄カード５【タブ】（Ｓ５）
＄カード６【タブ】（Ｓ６）
＄カード７【タブ】（Ｓ７）
＄カード８【タブ】（Ｓ８）
＄カード９【タブ】（Ｓ９）
＄カード１０【タブ】（Ｓ１０）
＄カード１１【タブ】（Ｓ１１）
＄カード１２【タブ】（Ｓ１２）
＄カード１３【タブ】（Ｓ１３）
＄カード１４【タブ】（Ｓ１４）
＄カード１５【タブ】（Ｓ１５）
＄カード１６【タブ】（Ｓ１６）
＄カード１７【タブ】（Ｓ１７）
＄カード１８【タブ】（Ｓ１８）
＄カード１９【タブ】（Ｓ１９）
＄カード２０【タブ】（Ｓ２０）
＄カード２１【タブ】（Ｓ２１）
＄カード２２【タブ】（Ｓ２２）
＄カード２３【タブ】（Ｓ２３）
＄カード２４【タブ】（Ｓ２４）
＄カード２５【タブ】（Ｓ２５）
＄カード２６【タブ】（Ｓ２６）
＄カード２７【タブ】（Ｓ２７）
＄カード２８【タブ】（Ｓ２８）
＄カード２９【タブ】（Ｓ２９）
＄カード３０【タブ】（Ｓ３０）
＄カード３１【タブ】（Ｓ３１）
＄カード３２【タブ】（Ｓ３２）
＄カード３３【タブ】（Ｓ３３）
＄カード３４【タブ】（Ｓ３４）
＄カード３５【タブ】（Ｓ３５）
＄カード３６【タブ】（Ｓ３６）
＄カード３７【タブ】（Ｓ３７）
＄カード３８【タブ】（Ｓ３８）
＄カード３９【タブ】（Ｓ３９）
＄カード４０【タブ】（Ｓ４０）
＄カード４１【タブ】（Ｓ４１）
＄カード４２【タブ】（Ｓ４２）
＄カード４３【タブ】（Ｓ４３）
＄カード４４【タブ】（Ｓ４４）
＄カード４５【タブ】（Ｓ４５）
＄カード４６【タブ】（Ｓ４６）
＄カード４７【タブ】（Ｓ４７）
＄カード４８【タブ】（Ｓ４８）
＄カード４９【タブ】（Ｓ４９）
＄カード５０【タブ】（Ｓ５０）
＄カード５１【タブ】（Ｓ５１）
＄カード５２【タブ】（Ｓ５２）
カードをシャッフルしたよφ。\_q
＞（どのゲームか）開始
＊HAL開始
＄ゲーム中戻り先【タブ】HAL２
＄現在カード番号【タブ】０
：\_qさあφ、めくってφ。
\__q[HAL処理]\_b[img/back.gif,inline]\__q
：\![*]\q[やめる,カードキャンセル]\_q
＊HAL処理
＄一枚前【タブ】（カード（現在カード番号））
＄一枚前の数値【タブ】（substr,（一枚前）,1,2）
＄現在カード番号＝（現在カード番号）＋１
＄一番上【タブ】（カード（現在カード番号））
＄一番上の数値【タブ】（substr,（一番上）,1,2）
＞カード尽きた【タブ】（現在カード番号）＝＝５３
＞（ゲーム中戻り先）
＊HAL２
：\_q\_b[img/（一番上）.gif,inline] \_b[img/back.gif,inline]
φ…φ…はい おあ ろーφ？
\![*]\__q[HAL選択高前]ＨＩＧＨ\__q
\![*]\__q[HAL選択低前]ＬＯＷ \__q
：\![*]\q[やめる,カードキャンセル]\_q
＊HAL選択高前
＄ゲーム中戻り先【タブ】HAL選択高後
＞HAL処理
＊HAL選択高後
＞HAL勝ち【タブ】（一枚前の数値）＜（一番上の数値）
＞HAL負け【タブ】（一枚前の数値）＞（一番上の数値）
＞HAL流れ【タブ】（一枚前の数値）＝＝（一番上の数値）
＊HAL選択低前
＄ゲーム中戻り先【タブ】HAL選択低後
＞HAL処理
＊HAL選択低後
＞HAL勝ち【タブ】（一枚前の数値）＞（一番上の数値）
＞HAL負け【タブ】（一枚前の数値）＜（一番上の数値）
＞HAL流れ【タブ】（一枚前の数値）＝＝（一番上の数値）
＊HAL勝ち
＄HAL勝ち数＝（HAL勝ち数）＋１
：\_qφ…φ…正解φ。\_q
＞HAL続ける
＊HAL負け
＄HAL負け数＝（HAL負け数）＋１
：\_qφ…φ…残念φ。\_q
＞HAL続ける
＊HAL流れ
＄HAL流れ数＝（HAL流れ数）＋１
：\_qφ…φ…ドローφ。\_q
＞HAL続ける
＊HAL続ける
＞HALカードが最後 （現在カード番号）＝＝５２
：\_q\_b[img/（一枚前）.gif,inline] \_b[img/（一番上）.gif,inline]
φ…φ…はい おあ ろーφ？
\![*]\__q[HAL選択高前]ＨＩＧＨ\__q
\![*]\__q[HAL選択低前]ＬＯＷ \__q
：\![*]\q[やめる,カードキャンセル]\_q
＊HALカードが最後
：\_q\_b[img/（一枚前）.gif,inline] \_b[img/（一番上）.gif,inline]
φ…φ…もうカードがないよφ、一旦終了φ。
\![*]\q[もどる,ハイアンドロートップ]
\![*]\q[おわる,カードキャンセル]\_q\_q
＊カードが尽きた
＞HALカードが最後
＠カード箱
S1、
S2、
S3、
S4、
S5、
S6、
S7、
S8、
S9、
S10、
S11、
S12、
S13、
H1、
H2、
H3、
H4、
H5、
H6、
H7、
H8、
H9、
H10、
H11、
H12、
H13、
D1、
D2、
D3、
D4、
D5、
D6、
D7、
D8、
D9、
D10、
D11、
D12、
D13、
C1、
C2、
C3、
C4、
C5、
C6、
C7、
C8、
C9、
C10、
C11、
C12、
C13、
＊カードキャンセル
＄切ったカード【タブ】
＄山にする【タブ】
＄カード１【タブ】
＄カード２【タブ】
＄カード３【タブ】
＄カード４【タブ】
＄カード５【タブ】
＄カード６【タブ】
＄カード７【タブ】
＄カード８【タブ】
＄カード９【タブ】
＄カード１０【タブ】
＄カード１１【タブ】
＄カード１２【タブ】
＄カード１３【タブ】
＄カード１４【タブ】
＄カード１５【タブ】
＄カード１６【タブ】
＄カード１７【タブ】
＄カード１８【タブ】
＄カード１９【タブ】
＄カード２０【タブ】
＄カード２１【タブ】
＄カード２２【タブ】
＄カード２３【タブ】
＄カード２４【タブ】
＄カード２５【タブ】
＄カード２６【タブ】
＄カード２７【タブ】
＄カード２８【タブ】
＄カード２９【タブ】
＄カード３０【タブ】
＄カード３１【タブ】
＄カード３２【タブ】
＄カード３３【タブ】
＄カード３４【タブ】
＄カード３５【タブ】
＄カード３６【タブ】
＄カード３７【タブ】
＄カード３８【タブ】
＄カード３９【タブ】
＄カード４０【タブ】
＄カード４１【タブ】
＄カード４２【タブ】
＄カード４３【タブ】
＄カード４４【タブ】
＄カード４５【タブ】
＄カード４６【タブ】
＄カード４７【タブ】
＄カード４８【タブ】
＄カード４９【タブ】
＄カード５０【タブ】
＄カード５１【タブ】
＄カード５２【タブ】
＄一番上【タブ】
＄一番上の数値【タブ】
＄一枚前【タブ】
＄一枚前の数値【タブ】
＄現在カード【タブ】
＄現在カード番号【タブ】
：カードを整理して仕舞いました。
*コメント [#ma2faf27]
#comment(below)
- セーブデータの行数がえらいことになってたので、変数の掃除を追加。 -- &new{2010-10-25 (月) 22:47:06};
- ページを作って数分もしないうちにバグをいくつか発見したので修正。 -- [[しまへび]] &new{2010-10-24 (日) 00:19:38};
![[PukiWiki]](image/pukiwiki.png "[PukiWiki]")
