ショップスクリプトで色んな店を作ろう（伺か・伺的Advent Calendar 2025）
この記事は 伺か・伺的Advent Calendar 2025 の 20 日目の記事です。前日はZichqecさんの「 Summary of 2025 in the Ukagaka Dream Team」でした。初めまして、瑞樹ユラです。普段はサイトでゴーストを配布しています。 ゴースト内で買物がしたい、またはポイントとアイテムを交換したい場面が出てきた時に役立つスクリプトを紹介します。
はじめに
里々で項目を設定するだけで色んなショップを作れるスクリプトを用意しました。改変可能ですのでゴーストに合わせて調整してお使いください。スクリプトのみが欲しい方は目次から飛べます。
-+-- 2
このショップスクリプトでできること
- ユーザ項目を設定するだけ
- ショップ部分は触らなくてOK
簡単な編集をするだけでショップが作れます。コンビニやRPGに登場する道具屋もできますし、アイテムとポイント交換するのもいいでしょう。スクリプトは改変可能ですので、ゴーストに合わせて使用していだだければと思います。
使用例
導入方法
1. 辞書ファイルの作成
里々の辞書ファイルを作成してスクリプトをコピペします。
2. アイテムの登録
アイテム＿初期化の中身を編集してアイテムを登録しましょう。 一つのアイテムに必要な項目は： - アイテムID - 表示名 - 価格 - 説明
（call、アイテム＿登録、health_potion、体力回復薬、50、HPを50回復する薬）
3. 商品リストの設定
$商品リストに並べたい順にアイテムIDを半角コロン : で区切って記述します。
＄商品リスト health_potion:mana_potion:bread
4. カート最大数の設定
$カート最大数にショップで使用するアイテムの上限数を入れます。
＄カート最大数 20
5. 初期化処理の追加（重要）
OnFirstBoot、OnBootに以下を記述します。ゴーストにOnGhostChanged、OnGhostCallingがあれば同様にしてください。
＊OnFirstBoot （call、アイテム＿初期化） （call、プレイヤー＿初期化） （call、カート＿初期化）
起動2回目以降とゴースト切り替えでは
＊OnBoot （call、アイテム＿初期化） （call、カート＿初期化）
6. ショップの呼び出し
メニューから呼び出す場合のイベント名は Onショップ開始 です。
\q[お店に行く,Onショップ開始]
改変例
例1：通貨単位を変える
＠設定＿通貨 円
例2：メッセージをカスタマイズ
＠設定＿メッセージ＿挨拶 \s[0]毎度！
例3：ボタンの表記を変える
＠増ボタン ➕ ＠減ボタン ➖
スクリプト
＃────────────────────────────────── ＃ 里々ショップシステム（最小構成版） ＃────────────────────────────────── ＃ ＃ 【使い方】 ＃ 1. アイテム＿初期化 の中身を編集してアイテムを登録 ＃ 2. プレイヤー＿初期化 で初期所持金を設定 ＃ 3. ダブルクリックでショップを開く ＃ ＃────────────────────────────────── ＃＠設定＿前括弧と＠設定＿後括弧を組み合わせた【】、設定＿メッセージは削除しても動作します。 ＃ ＃???????????????????????????????????? ＃ アイテム登録（ここを編集してください） ＃???????????????????????????????????? ＊アイテム＿初期化 ＃（call、アイテム＿登録、アイテムID、表示名、価格、説明） （call、アイテム＿登録、health_potion、体力回復薬、50、HPを50回復する薬） （call、アイテム＿登録、mana_potion、魔力回復薬、80、MPを30回復する薬） （call、アイテム＿登録、bread、パン、10、お腹を満たす基本的な食べ物） （call、アイテム＿登録、iron_sword、鉄の剣、300、攻撃力+15の基本的な剣） （call、アイテム＿登録、steel_armor、鋼の鎧、500、防御力+20の頑丈な鎧） ＄商品リスト health_potion:mana_potion:bread:iron_sword:steel_armor ＄カート最大数 20 ＠アイテム＿登録 （set、アイテム_（A０）_name、（A１））（set、アイテム_（A０）_price、（A２））（set、アイテム_（A０）_desc、（A３）） ＠設定＿通貨 G ＠設定＿個数表示 個 ＠設定＿前括弧 【 ＠設定＿後括弧 】 ＠増ボタン + ＠減ボタン - ＠設定＿メッセージ＿購入金不足 (お金が足りません) ＠設定＿メッセージ＿挨拶 \s[0]いらっしゃいませ！ ＠設定メッセージ＿購入 ありがとうございました！ ＃???????????????????????????????????? ＃ プレイヤー設定 ＃???????????????????????????????????? ＠プレイヤー＿初期化 （set、プレイヤー_G、1000） ＠プレイヤー＿取得＿所持金 （when、（is_empty,（プレイヤー_G））==1、0、（プレイヤー_G）） ＠プレイヤー＿支払い可能 （when、（call,プレイヤー＿取得＿所持金）>=（A０）、1、0） ＠プレイヤー＿支払い （set、現在額、（call,プレイヤー＿取得＿所持金））（when,（call、プレイヤー＿支払い可能、（A０））==1,（set、プレイヤー_G、（calc，（現在額）-（A０）））1,0） ＠プレイヤー＿アイテム追加 （set,現在数,（when、（is_empty，（アイテム_（A０）_持ち数））==1、0、（アイテム_（A０）_持ち数）））（set、アイテム_（A０）_持ち数、（calc,（現在数）+（A１））） ＃???????????????????????????????????? ＃ カート管理 ＃???????????????????????????????????? ＠カート＿初期化 （set、カート＿アイテム数、0） ＠カート＿クリア （set、終了値、（calc,（カート最大数）-1））（for、0、（終了値）、（set,カート_（C０）_key,）（set,カート_（C０）_quantity,0））（set、カート＿アイテム数、0） ＠カート＿検索 （when、（カート＿アイテム数）==0、-1、（call,カート＿検索＿実行,（A０））） ＠カート＿検索＿実行 （set,終了値,（calc、（カート＿アイテム数）-1））（set,検索結果,-1）（for,0,（終了値）,（call、カート＿検索＿比較、（C０）、（A０）））（検索結果） ＠カート＿検索＿比較 （when、（equal,（カート_（A０）_key）,（A１））、（set,検索結果,（A０））、） ＠カート＿追加 （set、既存、（call,カート＿検索,（A０）））（when、（既存）==-1、（set、カート_（カート＿アイテム数）_key、（A０））（set、カート_（カート＿アイテム数）_quantity、1）（set、カート＿アイテム数、（calc、（カート＿アイテム数）+1））、（set、カート_（既存）_quantity、（calc、（カート_（既存）_quantity）+1））） ＠カート＿減少 （set、既存、（call,カート＿検索,（A０）））（when、（既存）!=-1、（set,カート_（既存）_quantity,（calc（sprintf,%c,1）（カート_（既存）_quantity）-1））） ＠カート＿取得＿数量 （set、idx、（call,カート＿検索,（A０）））（when、（idx）==-1、0、（when，（is_empty（sprintf,%c,1）（カート_（idx）_quantity））＝＝1，0，（カート_（idx）_quantity））） ＠カート＿計算＿合計 （set、合計金額、0）（when、（カート＿アイテム数）>0、（call,カート＿計算＿合計＿実行））（合計金額） ＠カート＿計算＿合計＿実行 （set、終了値、（calc,（カート＿アイテム数）-1））（for、0、（終了値）、（call,カート＿合計加算,（C０））） ＠カート＿合計加算 （set、数量、（カート_（A０）_quantity））（when、（数量）>0、（set,価格,（アイテム_（カート_（A０）_key）_price））（set,合計金額,（calc（sprintf,%c,1）（合計金額）+（価格）*（数量）））、） ＠カート＿空確認 （when、（カート＿アイテム数）==0、1、（call,カート＿空確認＿実行）） ＠カート＿空確認＿実行 （set,終了値,（calc、（カート＿アイテム数）-1））（set,有効数,0）（for,0,（終了値）,（call、カート＿有効数カウント、（C０）））（when,（有効数）==0,1,0） ＠カート＿有効数カウント （when,（カート_（A０）_quantity）>0,（set,有効数,（calc、（有効数）+1））,） ＃???????????????????????????????????? ＃ UI表示 ＃???????????????????????????????????? ＠UI＿ショップ表示 \0\b[2]\![quicksection,true]（call、判定＿ユーザー設定単語群、メッセージ＿挨拶）\n\n所持金: （call,プレイヤー＿取得＿所持金）G\n\n（call,UI＿商品一覧生成）（call,UI＿カート表示）\n\q[店を出る,OnCancel] ＠UI＿商品一覧生成 （nop、（split,（商品リスト）,:））（set、終了値、（calc,（Sの数）-1））（set、商品出力、｜）（for,0,（終了値）,（call、UI＿商品行追加、（S（C０））））（erase、（商品出力）、｜） ＠UI＿商品行追加 （set、商品出力、（商品出力）（call，UI＿商品行生成，（A０））） ＠UI＿商品行生成 （set,カート数,（call、カート＿取得＿数量、（A０）））\q[（減ボタン）,On商品減少,（A０）] \q[（増ボタン）,On商品追加,（A０）] （アイテム_（A０）_name） （アイテム_（A０）_price）（設定＿通貨）（when、（カート数）>0、（call、判定＿ユーザー設定単語群、前括弧）（カート数）（call、判定＿ユーザー設定単語群、個数表示）（call、判定＿ユーザー設定単語群、後括弧）、）\n ＠UI＿カート表示 （when、（call,カート＿空確認）==1、、（call,UI＿カート内容表示）） ＠UI＿カート内容表示 （set,合計,（call、カート＿計算＿合計））\n────────\n合計: （合計）G（when,（call、プレイヤー＿支払い可能、（合計））==0,（call、判定＿ユーザー設定単語群、メッセージ＿購入金不足））\n\n（when，（call、プレイヤー＿支払い可能、（合計））==1，\q[購入する,On購入実行]\n，）\q[カートを空にする,Onカートクリア]\n ＠判定＿ユーザー設定単語群 （when、（単語群「設定＿（A０）」の存在）==1、（call,単語群＿空文字判定,設定＿（A０））、） ＠単語群＿空文字判定 （when,（length、設定＿（A０））==0,,（（A０））） ＃???????????????????????????????????? ＃ イベント処理 ＃???????????????????????????????????? ＠On商品追加 （call、カート＿追加、（R０））（UI＿ショップ表示） ＠On商品減少 （call、カート＿減少、（R０））（UI＿ショップ表示） ＠Onカートクリア （call、カート＿クリア）（UI＿ショップ表示） ＠On購入実行 （set、合計、（call,カート＿計算＿合計））（when、（call,プレイヤー＿支払い,（合計））==1、（call,購入完了処理）、（UI＿ショップ表示）） ＠購入完了処理 （for、0、（calc,（カート＿アイテム数）-1）、（call,購入アイテム処理,（C０）））（call、判定＿ユーザー設定単語群、メッセージ＿購入）\n\n（call、購入内容表示）\n\q[続けて買い物,Onショップ開始]\n\q[店を出る,OnCancel] ＠購入アイテム処理 （set、数量、（カート_（A０）_quantity））（when、（数量）>0、（call,プレイヤー＿アイテム追加,（カート_（A０）_key）,（数量））、） ＠購入内容表示 （set、出力、\0\b[2]\![quicksection,true]購入したもの:\n）（for、0、（calc,（カート＿アイテム数）-1）、（when,（カート_（C０）_quantity）>0,（set，出力，（出力）\_u[0x30FB]（アイテム_（カート_（C０）_key）_name） （カート_（C０）_quantity）個\n）,））（call、カート＿クリア）（出力） ＃???????????????????????????????????? ＃ 起動・メニュー ＃???????????????????????????????????? ＊OnFirstBoot （call、アイテム＿初期化） （call、プレイヤー＿初期化） （call、カート＿初期化） \0\s[0]こんにちは！\nダブルクリックでショップを開けるよ。 ＊OnBoot （call、アイテム＿初期化） （call、カート＿初期化） \0\s[0]こんにちは！\nダブルクリックでショップを開けるよ。 ＊OnMouseDoubleClick （call、カート＿クリア）（UI＿ショップ表示） ＠Onショップ開始 （call、カート＿クリア）（UI＿ショップ表示） ＊OnCancel \s[0]またね。
終わりに
簡単な紹介でしたが、このスクリプトがゴースト作成の一助になれば幸いです。 明日２１日目は淀橋さんの「のびのびになってるゴースト設定資料集をなんとかする。」です。ゴーストの設定資料の進捗になります。お楽しみに！ それでは、ここまで読んでくださり、ありがとうございました。
