里々小技この記事は伺か Advent Calendar 2014に投稿したものです。
里々のちょっとしたロジックを提供するコーナー。
全て、里々wikiとukadocの情報の組み合わせで作ります。
里々のサンプルゴースト「Rポストと狛犬」を書き換えて自ゴーストを作るくらいの知識が必要です。
今回は、単語群でカードゲームの山札を表現する。
里々が持つ重複回避機能を使って、山札のシャッフル機能、一度引いたカードが出ない機能を作ります。
詳細は続きに。
里々のちょっとしたロジックを提供するコーナー。
全て、里々wikiとukadocの情報の組み合わせで作ります。
里々のサンプルゴースト「Rポストと狛犬」を書き換えて自ゴーストを作るくらいの知識が必要です。
今回は、単語群でカードゲームの山札を表現する。
里々が持つ重複回避機能を使って、山札のシャッフル機能、一度引いたカードが出ない機能を作ります。
詳細は続きに。
以下サンプルは、preタグを使っていますが、場合によってはタブや改行がコピーできないかもしれません。
里々の重複回避はとても優秀です。
シャッフルしてくれる、全て引くまで同じ項目を引かない、という点から、カードゲームなどに向いています。
今回は単語群を使ったトランプを作ってみることにします。
まずは、重複回避のルールを決めます。単語群は、1つのトーク中でのみ重複しないように設定されています。
しかし、カードゲームは何度もカードを引いたりするため、それではゲームが成立しません。
以下を辞書で実行すると、ゴースト起動中はずっと重複しないようになります。
＄単語群「トランプのカード」の重複回避＝有効、起動中
一旦別のルールを指定してから、再度実行すると、初期化されます。
つまり捨て札を全部戻して山札を切り直したのと同じ効果が得られます。
トランプはジョーカーを抜くと全部で52枚です。
単語群で数字だけのものを作り、表示するときに絵柄や数字を当てることにしましょう。
トランプは、0～12をスペード、13～25をハート、26～38をダイヤ、残りをクラブにすれば良さそうです。
マークはどうやって計算しましょうか。23を引いたら、それが何のマークで数字がいくつか、一発で分かる方法はないでしょうか。
こういう場合、割り算の商と余りを使います。23を13で割ると、商1余り10。
商が0ならスペード、1ならハート、2ならダイヤ、3ならクラブとします。
数字は余りから出すので、0～12。0をエース、12をキングとすれば、割り算の商と余りできっちり計算できます。
しかしちょっと待って下さい。大抵のゲームで、エースは一番強いカードです。
もしもゲームを作って数字比べをする場合、計算がややこしいのは困ります。
そこで、12をエースとして、他は繰り下げることにしましょう。余り0なら、数字の2。余りが11ならキングで、12ならエースです。
里々の辞書に、ランダムトークとして記述した例が以下です。
実行結果
これだけでは何が出来るか分かりにくいので、簡単なゲームを作ってみました。
自分と相手が3枚カードを引き、お互いに1枚ずつ出します。
そのカードの数字が、等しいかこちらが大きければこちらの勝ち。小さければこちらの負けです。
それを3回繰り返し、勝ち数の多いほうが勝者となります。
これだけだとシンプルで面白みがありませんが、一応ゲームとして機能します。
単純なカードゲーム（Eカード等）や、くじ引き等、トランプ以外にも応用出来ます。
里々の重複回避はとても優秀です。
シャッフルしてくれる、全て引くまで同じ項目を引かない、という点から、カードゲームなどに向いています。
今回は単語群を使ったトランプを作ってみることにします。
まずは、重複回避のルールを決めます。単語群は、1つのトーク中でのみ重複しないように設定されています。
しかし、カードゲームは何度もカードを引いたりするため、それではゲームが成立しません。
以下を辞書で実行すると、ゴースト起動中はずっと重複しないようになります。
＄単語群「トランプのカード」の重複回避＝有効、起動中
一旦別のルールを指定してから、再度実行すると、初期化されます。
つまり捨て札を全部戻して山札を切り直したのと同じ効果が得られます。
トランプはジョーカーを抜くと全部で52枚です。
単語群で数字だけのものを作り、表示するときに絵柄や数字を当てることにしましょう。
トランプは、0～12をスペード、13～25をハート、26～38をダイヤ、残りをクラブにすれば良さそうです。
マークはどうやって計算しましょうか。23を引いたら、それが何のマークで数字がいくつか、一発で分かる方法はないでしょうか。
こういう場合、割り算の商と余りを使います。23を13で割ると、商1余り10。
商が0ならスペード、1ならハート、2ならダイヤ、3ならクラブとします。
数字は余りから出すので、0～12。0をエース、12をキングとすれば、割り算の商と余りできっちり計算できます。
しかしちょっと待って下さい。大抵のゲームで、エースは一番強いカードです。
もしもゲームを作って数字比べをする場合、計算がややこしいのは困ります。
そこで、12をエースとして、他は繰り下げることにしましょう。余り0なら、数字の2。余りが11ならキングで、12ならエースです。
里々の辞書に、ランダムトークとして記述した例が以下です。
＃０→スペードの２、１→スペードの３、１１→スペードのＫ、１２→スペードのＡ
＃１３→ハートの２、２５→ハートのＡ
＃２６→ダイヤの２、３８→ダイヤのＡ
＃３９→クラブの２、５１→クラブのＡ
＠トランプのカード
０
１
２
３
４
５
６
７
８
９
１０
１１
１２
１３
１４
１５
１６
１７
１８
１９
２０
２１
２２
２３
２４
２５
２６
２７
２８
２９
３０
３１
３２
３３
３４
３５
３６
３７
３８
３９
４０
４１
４２
４３
４４
４５
４６
４７
４８
４９
５０
５１
＃０～５１の数字を渡すと、スートとナンバーを表示する
＃使い方は、（call,カードの表示,２３）など
＃（nop,処理）は何も表示されない
＃（トランプスート）を呼ぶと「\1」が出てきてしまうため、nopで捨てている
＠カードの表示
（nop,（call,トランプスート,（Ａ０）））（トランプの絵柄）（nop,（call,トランプナンバー,（Ａ０）））（トランプの数字）
＃トランプの数字を渡すと、スートの絵柄を変数に入れる
＃これは「＠カードの表示」から呼び出すので、積極的に使うことはない
＃０→スペード、１→ハート、２→ダイヤ、３→クラブ
＃Unicode2660～2667はトランプのマークと定義されてる
＃ただ、SSPデフォルトの「MS ゴシック」だと半角サイズで見づらいため、マークだけ「メイリオ」で表示する
＃半角円記号で始まる、さくらスクリプトは基本全て半角で書く（フォント名「メイリオ」指定のみ全角）
＊トランプスート
＄トランプの絵柄＝\_u[0x2660]
＄トランプの絵柄＝（when,（Ａ０）／１３＝＝１,\_u[0x2661],（トランプの絵柄））
＄トランプの絵柄＝（when,（Ａ０）／１３＝＝２,\_u[0x2662],（トランプの絵柄））
＄トランプの絵柄＝（when,（Ａ０）／１３＝＝３,\_u[0x2663],（トランプの絵柄））
＄トランプの絵柄＝\f[name,メイリオ]（トランプの絵柄）\f[name,default]
＃トランプの数字を渡すと、ナンバーか絵札を変数に入れる
＃これは「＠カードの表示」から呼び出すので、積極的に使うことはない
＃１３で割った余りが、０→２、１→３・・・８→１０、９→Ｊ、１０→Ｑ、１１→Ｋ、１２→Ａ
＊トランプナンバー
＄トランプの数字＝（Ａ０）％１３＋２
＄トランプの数字＝（when,（トランプの数字）＝＝１１,Ｊ,（トランプの数字））
＄トランプの数字＝（when,（トランプの数字）＝＝１２,Ｑ,（トランプの数字））
＄トランプの数字＝（when,（トランプの数字）＝＝１３,Ｋ,（トランプの数字））
＄トランプの数字＝（when,（トランプの数字）＝＝１４,Ａ,（トランプの数字））
＃重複回避のルールを別のものにしてから再度設定することで、リセットされる
＃ついでにゲームを作る時用に、残りカード枚数もリセットしておく
＊◯トランプシャッフル
＄単語群「トランプのカード」の重複回避＝有効、トーク中
＄単語群「トランプのカード」の重複回避＝有効、起動中
＄残りカード＝５２
：全カードを山札に戻してシャッフルしたよ。
＃試しにカードを引いてみる
＊
：カードを引いてみるね。
（call,カードの表示,（トランプのカード））
実行結果
これだけでは何が出来るか分かりにくいので、簡単なゲームを作ってみました。
自分と相手が3枚カードを引き、お互いに1枚ずつ出します。
そのカードの数字が、等しいかこちらが大きければこちらの勝ち。小さければこちらの負けです。
それを3回繰り返し、勝ち数の多いほうが勝者となります。
＊0つつかれ
：めにゅー
＿◯トランプシャッフル
＿◯トランプ勝負開始
＊◯トランプ勝負開始
＞カードが足りない （残りカード）＜６
＄自分の手札１＝（トランプのカード）
＄自分の手札１出した＝０
＄自分の手札２＝（トランプのカード）
＄自分の手札２出した＝０
＄自分の手札３＝（トランプのカード）
＄自分の手札３出した＝０
＄相手の手札１＝（トランプのカード）
＄相手の手札２＝（トランプのカード）
＄相手の手札３＝（トランプのカード）
＄相手が出す順番＝（乱数１～３）
＄残りカード＝（残りカード）－６
＄勝負した回数＝０
＄自分が勝った回数＝０
＄相手が勝った回数＝０
＞トランプ勝負選択
＊カードが足りない
：あと（残りカード）枚しかないから引けないよ！
＊トランプ勝負選択
＞トランプ勝負おしまい （勝負した回数）＝＝３
：\_q自分の手札１→（call,カードの表示,（自分の手札１）） 手札２→（call,カードの表示,（自分の手札２）） 手札３→（call,カードの表示,（自分の手札３））
相手の手札１→（call,カードの表示,（相手の手札１）） 手札２→（call,カードの表示,（相手の手札２）） 手札３→（call,カードの表示,（相手の手札３））
どのカードをだそうか\_q
＿◯手札１枚目を出す
＿◯手札２枚目を出す
＿◯手札３枚目を出す
＊◯手札１枚目を出す
＞カードもう無い （自分の手札１出した）＝＝１
＄自分の手札１出した＝１
＄勝負手札＝（自分の手札１）
＞トランプ勝負実行
＊◯手札２枚目を出す
＞カードもう無い （自分の手札２出した）＝＝１
＄自分の手札２出した＝１
＄勝負手札＝（自分の手札２）
＞トランプ勝負実行
＊◯手札３枚目を出す
＞カードもう無い （自分の手札３出した）＝＝１
＄自分の手札３出した＝１
＄勝負手札＝（自分の手札３）
＞トランプ勝負実行
＊カードもう無い
：もう出しちゃったから無いよ。\x
＞トランプ勝負選択
＊トランプ勝負実行
＄勝負した回数＝（勝負した回数）＋１
＄相手が出す順番＝（相手が出す順番）％３＋１
：\_qこちらのカード → （call,カードの表示,（勝負手札））
あいてのカード → （call,カードの表示,（相手の手札（相手が出す順番）））\_q
＞トランプ勝負実行勝利 （勝負手札）％１３＞＝（相手の手札（相手が出す順番））％１３
＞トランプ勝負実行敗北
＊トランプ勝負実行勝利
＄自分が勝った回数＝（自分が勝った回数）＋１
：
（勝負した回数）戦目、勝利！\x
＞トランプ勝負選択
＊トランプ勝負実行敗北
＄相手が勝った回数＝（相手が勝った回数）＋１
：
（勝負した回数）戦目、敗北……。\x
＞トランプ勝負選択
＊トランプ勝負おしまい
：えーと勝敗は。
（自分が勝った回数）勝、（相手が勝った回数）敗。
＞トランプ勝負に勝った （自分が勝った回数）＞（相手が勝った回数）
＞トランプ勝負に負けた
＊トランプ勝負に勝った
：わーい、ばっちり勝利！
＊トランプ勝負に負けた
：負けちゃったー。
これだけだとシンプルで面白みがありませんが、一応ゲームとして機能します。
単純なカードゲーム（Eカード等）や、くじ引き等、トランプ以外にも応用出来ます。
0
