概要

ゲーム中の変数を使用した、怪しい店を作成します。 (価格設定はかなり手抜き) ≪バトルポイント≫との併用もおすすめ？(開発用Prjでは≪バトルポイント≫使用)

スクリーンショット

スクリプト

RGSS セクション：KGC_VariableShop #_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/ #_/ ◆ 変数ショップ - KGC_VariableShop ◆ #_/ ◇ Last update : 2008/01/10 ◇ #_/---------------------------------------------------------------------------- #_/ 変数でアイテムの購入を行う特殊な店を作成します。 #_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/ #============================================================================== # ★ カスタマイズ項目 ★ #============================================================================== # ◆変数ショップに使用する変数ID # ゲーム中にも変更可能 $vs_id = 10 # ◆販売価格設定割合(販売価格表示が [データベースの価格]‰ になる) # ゲーム中にも変更可能 $vs_rate = 10 module KGC # ◆価格の単位設定 # 変数IDを添字とした配列を作成 VS_DOMINATION = [] VS_DOMINATION[10] = "BP" # 変数ID10：バトルポイント end #★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★ $imported = {} if $imported == nil $imported["VariableShop"] = true #============================================================================== # ■ Module_RPG #============================================================================== module RPG class Item #------------------------------------------------------------------------ # ● 特殊価格 #------------------------------------------------------------------------ def price2 return @price * $vs_rate / 1000 end end class Weapon def price2 return @price * $vs_rate / 1000 end end class Armor def price2 return @price * $vs_rate / 1000 end end end #★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★ #============================================================================== # ■ Window_Variable #------------------------------------------------------------------------------ # 　変数を表示するウィンドウです。 #============================================================================== class Window_Variable < Window_Gold #-------------------------------------------------------------------------- # ● リフレッシュ #-------------------------------------------------------------------------- def refresh self.contents.clear cx = contents.text_size(KGC::VS_DOMINATION[$vs_id]).width self.contents.font.color = normal_color self.contents.draw_text(4, 0, 120-cx-2, 32, $game_variables[$vs_id].to_s, 2) self.contents.font.color = system_color self.contents.draw_text(124-cx, 0, cx, 32, KGC::VS_DOMINATION[$vs_id], 2) end end #★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★ #============================================================================== # ■ Window_VariableShopCommand #------------------------------------------------------------------------------ # 　変数ショップ画面で、用件を選択するウィンドウです。 #============================================================================== class Window_VariableShopCommand < Window_ShopCommand #-------------------------------------------------------------------------- # ● オブジェクト初期化 #-------------------------------------------------------------------------- alias initialize_KGC_VariableShop initialize def initialize # 元の処理を実行 initialize_KGC_VariableShop @item_max = 2 @commands = ["購入する", "やめる"] refresh self.index = 0 end end #★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★ #============================================================================== # ■ Window_VariableShopBuy #------------------------------------------------------------------------------ # 　変数ショップ画面で、購入できる商品の一覧を表示するウィンドウです。 #============================================================================== class Window_VariableShopBuy < Window_ShopBuy #-------------------------------------------------------------------------- # ● 項目の描画 # index : 項目番号 #-------------------------------------------------------------------------- def draw_item(index) item = @data[index] # アイテムの所持数を取得 case item when RPG::Item number = $game_party.item_number(item.id) when RPG::Weapon number = $game_party.weapon_number(item.id) when RPG::Armor number = $game_party.armor_number(item.id) end # 価格が変数の値以下、かつ所持数が上限でなければ通常文字色に、 # そうでなければ無効文字色に設定 limit = ($imported["LimitBreak"] ? item.number_limit : 99) if item.price2 <= $game_variables[$vs_id] && number < limit self.contents.font.color = normal_color else self.contents.font.color = disabled_color end x = 4 y = index * 32 rect = Rect.new(x, y, self.width - 32, 32) self.contents.fill_rect(rect, Color.new(0, 0, 0, 0)) bitmap = RPG::Cache.icon(item.icon_name) opacity = self.contents.font.color == normal_color ? 255 : 128 self.contents.blt(x, y + 4, bitmap, Rect.new(0, 0, 24, 24), opacity) self.contents.draw_text(x + 28, y, 212, 32, item.name, 0) self.contents.draw_text(x + 240, y, 88, 32, item.price2.to_s, 2) end end #★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★ #============================================================================== # ■ Window_VariableShopNumber #------------------------------------------------------------------------------ # 　変数ショップ画面で、購入するアイテムの個数を入力するウィンドウです。 #============================================================================== class Window_VariableShopNumber < Window_ShopNumber #-------------------------------------------------------------------------- # ● リフレッシュ #-------------------------------------------------------------------------- def refresh self.contents.clear draw_item_name(@item, 4, 96) self.contents.font.color = normal_color self.contents.draw_text(272, 96, 32, 32, "×") self.contents.draw_text(308, 96, 24, 32, @number.to_s, 2) self.cursor_rect.set(304, 96, 32, 32) # 合計価格と単位を描画 domination = KGC::VS_DOMINATION[$vs_id] cx = contents.text_size(domination).width total_price = @price * @number self.contents.font.color = normal_color self.contents.draw_text(4, 160, 328-cx-2, 32, total_price.to_s, 2) self.contents.font.color = system_color self.contents.draw_text(332-cx, 160, cx, 32, domination, 2) end end #★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★ #============================================================================== # ■ Scene_Shop #============================================================================== class Scene_Shop #-------------------------------------------------------------------------- # ● メイン処理 #-------------------------------------------------------------------------- alias main_KGC_VariableShop main def main # 変数ショップを呼び出した場合 if $call_vs && $game_variables[$vs_id] != nil # 変数ショップ画面に移行 $scene = Scene_VariableShop.new $call_vs = false else main_KGC_VariableShop end end end #★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★ #============================================================================== # ■ Scene_VariableShop #------------------------------------------------------------------------------ # 　変数ショップ画面の処理を行うクラスです。 #============================================================================== class Scene_VariableShop < Scene_Shop #-------------------------------------------------------------------------- # ● メイン処理 #-------------------------------------------------------------------------- def main # スプライトセットを作成 @spriteset = Spriteset_Map.new # ヘルプウィンドウを作成 if $imported["HelpExtension"] @help_window = Window_HelpExtension.new else @help_window = Window_Help.new end @help_window.back_opacity = 160 # コマンドウィンドウを作成 @command_window = Window_VariableShopCommand.new @command_window.back_opacity = 160 # 変数ウィンドウを作成 @variable_window = Window_Variable.new @variable_window.back_opacity = 160 @variable_window.x = 480 @variable_window.y = $imported["HelpExtension"] ? 128 : 64 # ダミーウィンドウを作成 if $imported["HelpExtension"] @dummy_window = Window_Base.new(0, 192, 640, 288) else @dummy_window = Window_Base.new(0, 128, 640, 352) end @dummy_window.back_opacity = 160 # 購入ウィンドウを作成 @buy_window = Window_VariableShopBuy.new($game_temp.shop_goods) @buy_window.back_opacity = 160 @buy_window.active = false @buy_window.visible = false @buy_window.help_window = @help_window # 個数入力ウィンドウを作成 @number_window = Window_VariableShopNumber.new @number_window.back_opacity = 160 @number_window.active = false @number_window.visible = false # ステータスウィンドウを作成 @status_window = Window_ShopStatus.new @status_window.back_opacity = 160 @status_window.visible = false # トランジション実行 Graphics.transition # メインループ loop do # ゲーム画面を更新 Graphics.update # 入力情報を更新 Input.update # フレーム更新 update # 画面が切り替わったらループを中断 if $scene != self break end end # トランジション準備 Graphics.freeze # ウィンドウを解放 @spriteset.dispose @help_window.dispose @command_window.dispose @variable_window.dispose @dummy_window.dispose @buy_window.dispose @number_window.dispose @status_window.dispose end #-------------------------------------------------------------------------- # ● フレーム更新 #-------------------------------------------------------------------------- def update # ウィンドウを更新 @help_window.update @command_window.update @variable_window.update @dummy_window.update @buy_window.update @number_window.update @status_window.update # コマンドウィンドウがアクティブの場合: update_command を呼ぶ if @command_window.active update_command return end # 購入ウィンドウがアクティブの場合: update_buy を呼ぶ if @buy_window.active update_buy return end # 個数入力ウィンドウがアクティブの場合: update_number を呼ぶ if @number_window.active update_number return end end #-------------------------------------------------------------------------- # ● フレーム更新 (コマンドウィンドウがアクティブの場合) #-------------------------------------------------------------------------- def update_command # B ボタンが押された場合 if Input.trigger?(Input::B) # キャンセル SE を演奏 $game_system.se_play($data_system.cancel_se) # マップ画面に切り替え $scene = Scene_Map.new return end # C ボタンが押された場合 if Input.trigger?(Input::C) # コマンドウィンドウのカーソル位置で分岐 case @command_window.index when 0 # 購入する # 決定 SE を演奏 $game_system.se_play($data_system.decision_se) # ウィンドウの状態を購入モードへ @command_window.active = false @dummy_window.visible = false @buy_window.active = true @buy_window.visible = true @buy_window.refresh @status_window.visible = true when 1 # やめる # 決定 SE を演奏 $game_system.se_play($data_system.decision_se) # マップ画面に切り替え $scene = Scene_Map.new end return end end #-------------------------------------------------------------------------- # ● フレーム更新 (購入ウィンドウがアクティブの場合) #-------------------------------------------------------------------------- def update_buy # ステータスウィンドウのアイテムを設定 @status_window.item = @buy_window.item # B ボタンが押された場合 if Input.trigger?(Input::B) # キャンセル SE を演奏 $game_system.se_play($data_system.cancel_se) # ウィンドウの状態を初期モードへ @command_window.active = true @dummy_window.visible = true @buy_window.active = false @buy_window.visible = false @status_window.visible = false @status_window.item = nil # ヘルプテキストを消去 @help_window.set_text("") return end # C ボタンが押された場合 if Input.trigger?(Input::C) # アイテムを取得 @item = @buy_window.item # アイテムが無効の場合、または価格が所持金より上の場合 if @item == nil || @item.price2 > $game_variables[$vs_id] # ブザー SE を演奏 $game_system.se_play($data_system.buzzer_se) return end # アイテムの所持数を取得 case @item when RPG::Item number = $game_party.item_number(@item.id) when RPG::Weapon number = $game_party.weapon_number(@item.id) when RPG::Armor number = $game_party.armor_number(@item.id) end # すでに上限まで所持している場合 limit = ($imported["LimitBreak"] ? @item.number_limit : 99) if number >= limit # ブザー SE を演奏 $game_system.se_play($data_system.buzzer_se) return end # 決定 SE を演奏 $game_system.se_play($data_system.decision_se) # 最大購入可能個数を計算 max = (@item.price2 == 0 ? limit : $game_variables[$vs_id] / @item.price2) max = [max, limit - number].min # ウィンドウの状態を個数入力モードへ @buy_window.active = false @buy_window.visible = false @number_window.set(@item, max, @item.price2) @number_window.active = true @number_window.visible = true end end #-------------------------------------------------------------------------- # ● フレーム更新 (個数入力ウィンドウがアクティブの場合) #-------------------------------------------------------------------------- def update_number # B ボタンが押された場合 if Input.trigger?(Input::B) # キャンセル SE を演奏 $game_system.se_play($data_system.cancel_se) # 個数入力ウィンドウを非アクティブ・不可視に設定 @number_window.active = false @number_window.visible = false # ウィンドウの状態を購入モードへ @buy_window.active = true @buy_window.visible = true return end # C ボタンが押された場合 if Input.trigger?(Input::C) # ショップ SE を演奏 $game_system.se_play($data_system.shop_se) # 個数入力ウィンドウを非アクティブ・不可視に設定 @number_window.active = false @number_window.visible = false # 購入処理 $game_variables[$vs_id] -= @number_window.number * @item.price2 case @item when RPG::Item $game_party.gain_item(@item.id, @number_window.number) when RPG::Weapon $game_party.gain_weapon(@item.id, @number_window.number) when RPG::Armor $game_party.gain_armor(@item.id, @number_window.number) end # 各ウィンドウをリフレッシュ @variable_window.refresh @buy_window.refresh @status_window.refresh # ウィンドウの状態を購入モードへ @buy_window.active = true @buy_window.visible = true return end end end 導入後、カスタマイズ項目を書き換えてください。 価格割合は単位が‰(千分率)なので、その点にご注意ください。 変数ショップを呼び出すには、イベントコマンド「スクリプト」で   $call_vs = true というスクリプトを実行後「ショップの処理」を行ってください。 すると、指定した商品が変数ショップ画面(スクリーンショット参照)にラインナップされます。 $vs_idに存在しない変数IDを指定した場合は、通常のショップが起動します。 あとの操作は通常のショップと同じです。(売却は不可能) 合成屋と同様に   $call_vs は変数ショップを呼び出すと自動的にオフになるので、毎回オフにする必要はありません。