Quellcode

#==============================================================================
#Izzy's Geld und Itembank script
#==============================================================================
 
module KGC
 
  DEPOSITORY_COMMAND = [
    "Geld Anlegen", 
          "Geld Abheben", 
        "Item Ablegen", 
      "Item Mitnehmen" 
   ]
 
  DEPOSITORY_HELP = [
    "Hier kannst du dein Geld ablegen und sparen !", 
                "Hier kannst du dein gespartes Geld abheben !", 
        "Hier kannst du Gegenstände aufbewaren !", 
              "Hier kannst du aufbewarte Gegestände wieder mitnehmen !" 
   ]
 
  DEPOSITORY_GOLD_DIGITS = 7
  DEPOSIT_GOLD = "Ablegen"
  WDEPOSIT_GOLD = "Mitnehmen"
  DEPOSIT_ITEM = "Ablegen"
  WDEPOSIT_ITEM = "Mitnehmen"
end
 
$imported = {} if $imported == nil
$imported["Aufbewahrungsort"] = true
 
def call_depository(type = 0)
  $game_player.straighten
  $scene = Scene_Depository.new(type)
end
 
class Game_Party
 
  alias initialize_KGC_Depository initialize
  def initialize
 
    initialize_KGC_Depository
 
    @deposit_gold = 0
    @deposit_item, @deposit_weapon, @deposit_armor = [], [], []
  end
 
  def deposit_gold
    @deposit_gold = 0 if @deposit_gold == nil
    return @deposit_gold
  end
 
  def gain_deposit_gold(number)
    @deposit_gold = 0 if @deposit_gold == nil
    @deposit_gold += number
  end
 
  def lose_deposit_gold(number)
    self.gain_deposit_gold(-number)
  end
 
  def deposit_item_number(id)
    @deposit_item = [] if @deposit_item == nil
    return @deposit_item[id] != nil ? @deposit_item[id] : 0
  end
 
  def gain_deposit_item(id, number)
    @deposit_item = [] if @deposit_item == nil
    @deposit_item[id] = 0 if @deposit_item[id] == nil
    @deposit_item[id] += number
  end
 
  def lose_deposit_item(id, number)
    self.gain_deposit_item(id, -number)
  end
 
  def deposit_weapon_number(id)
    @deposit_weapon = [] if @deposit_weapon == nil
    return @deposit_weapon[id] != nil ? @deposit_weapon[id] : 0
  end
 
  def gain_deposit_weapon(id, number)
    @deposit_weapon = [] if @deposit_weapon == nil
    @deposit_weapon[id] = 0 if @deposit_weapon[id] == nil
    @deposit_weapon[id] += number
  end
 
  def lose_deposit_weapon(id, number)
    self.gain_deposit_weapon(id, -number)
  end
 
  def deposit_armor_number(id)
    @deposit_armor = [] if @deposit_armor == nil
    return @deposit_armor[id] != nil ? @deposit_armor[id] : 0
  end
 
  def gain_deposit_armor(id, number)
    @deposit_armor = [] if @deposit_armor == nil
    @deposit_armor[id] = 0 if @deposit_armor[id] == nil
    @deposit_armor[id] += number
  end
 
  def lose_deposit_armor(id, number)
    self.gain_deposit_armor(id, -number)
  end
end
 
class Window_DepositoryCommand < Window_Selectable
 
  def initialize(type)
    super(0, 64, 640, 64)
    self.y = 128 if $imported["Hilfe"]
    self.contents = Bitmap.new(width - 32, height - 32)
 
    case type
    when 1 
       @commands = KGC::DEPOSITORY_COMMAND[0, 2]
      @help_text = KGC::DEPOSITORY_HELP[0, 2]
    when 2 
       @commands = KGC::DEPOSITORY_COMMAND[2, 2]
      @help_text = KGC::DEPOSITORY_HELP[2, 2]
    else 
         @commands = KGC::DEPOSITORY_COMMAND
      @help_text = KGC::DEPOSITORY_HELP
    end
    @item_max = @commands.size
    @column_max = @commands.size
    @item_width = (width - 32) / @commands.size
    self.back_opacity = 160
    self.index = 0
    refresh
  end
 
  def refresh
    for i in 0...@commands.size
      rect = Rect.new(@item_width * i, 0, @item_width, 32)
      self.contents.fill_rect(rect, Color.new(0, 0, 0, 0))
      self.contents.font.color = system_color
      self.contents.draw_text(rect, @commands[i], 1)
    end
  end
 
  def update_cursor_rect
    if index != -1
      self.cursor_rect.set(@item_width * index, 0, @item_width, 32)
    end
  end
 
  def update_help
    @help_window.set_text(@help_text[self.index])
  end
end
 
class Window_DepositoryGold < Window_Base
 
  def initialize
    super(0, 128, 640, 352)
    if $imported["Hilfe"]
      self.y = 192
      self.height = 288
    end
    @digits_max = KGC::DEPOSITORY_GOLD_DIGITS
    dummy_bitmap = Bitmap.new(32, 32)
    @cursor_width = dummy_bitmap.text_size("0").width + 8
    dummy_bitmap.dispose
    self.contents = Bitmap.new(width - 32, height - 32)
    self.back_opacity = 160
    self.active = false
    self.visible = false
    @cursor_position = 0
    @max = 0
    @price = 0
    @index = 0
  end
 
  def price
    return @price
  end
 
  def price=(np)
    @price = [[np, 0].max, @max].min
    redraw_price
  end
 
  def reset(type)
    @price = 0
    @index = @digits_max - 1
    refresh(type)
  end
 
  def refresh(type)
 
    self.contents.clear
    domination = $data_system.words.gold
    cx = contents.text_size(domination).width
    @cursor_position = 332 - cx - @cursor_width * @digits_max
    self.contents.font.color = system_color
    self.contents.draw_text(0, 0, 608, 32, "Geld im Rucksack")
    self.contents.draw_text(0, 64, 608, 32, "Geld auf Bank")
    if type == 0
      self.contents.draw_text(0, 128, 608, 32, "Geld ablegen")
      @max = $game_party.gold
    else
      self.contents.draw_text(0, 128, 608, 32, "Geld mitnehmen")
      @max = [10 ** @digits_max - $game_party.gold - 1, $game_party.deposit_gold].min
    end
    self.contents.font.color = normal_color
    self.contents.draw_text(4, 32, 326 - cx, 32, $game_party.gold.to_s, 2)
    self.contents.font.color = system_color
    self.contents.draw_text(332 - cx, 32, cx, 32, domination, 2)
    self.contents.font.color = normal_color
    self.contents.draw_text(4, 96, 326 - cx, 32, $game_party.deposit_gold.to_s, 2)
    self.contents.font.color = system_color
    self.contents.draw_text(332 - cx, 96, cx, 32, domination, 2)
    redraw_price
  end
 
  def redraw_price
    domination = $data_system.words.gold
    cx = contents.text_size(domination).width
    self.contents.fill_rect(0, 160, 608, 32, Color.new(0, 0, 0, 0))
    self.contents.font.color = normal_color
    text = sprintf("%0#{@digits_max}d", self.price)
    for i in 0...text.length
      x = @cursor_position + (i - 1) * @cursor_width
      self.contents.draw_text(x, 160, 32, 32, text[i, 1], 2)
    end
    self.contents.font.color = system_color
    self.contents.draw_text(332 - cx, 160, cx, 32, domination, 2)
  end
 
  def update_cursor_rect
    x = @cursor_position + @index * @cursor_width
    self.cursor_rect.set(x, 160, @cursor_width, 32)
  end
 
  def update
    super
    return unless self.active
 
    if Input.repeat?(Input::UP) || Input.repeat?(Input::DOWN)
      $game_system.se_play($data_system.cursor_se)
 
      place = 10 ** (@digits_max - 1 - @index)
      n = self.price / place % 10
      self.price -= n * place
        n = (n + 1) % 10 if Input.repeat?(Input::UP)
      n = (n + 9) % 10 if Input.repeat?(Input::DOWN)
 
      self.price += n * place
    end
     if Input.repeat?(Input::RIGHT)
      if @digits_max >= 2
        $game_system.se_play($data_system.cursor_se)
        @index = (@index + 1) % @digits_max
      end
    end
     if Input.repeat?(Input::LEFT)
      if @digits_max >= 2
        $game_system.se_play($data_system.cursor_se)
        @index = (@index + @digits_max - 1) % @digits_max
      end
    end
    update_cursor_rect
  end
end
 
class Window_DepositoryItem < Window_Selectable
 
  def initialize
    super(0, 128, 640, 352)
    if $imported["Hilfe"]
      self.y = 192
      self.height = 288
    end
    self.back_opacity = 160
    self.active = false
    self.visible = false
    @column_max = 2
    self.index = 0
  end
 
  def item
    return @data[self.index]
  end
 
  def refresh(type, reset = false)
    if self.contents != nil
      self.contents.dispose
      self.contents = nil
    end
    @data = []
    last_index = self.index
       case type
    when 0
      for i in 1...$data_items.size
        if $game_party.item_number(i) > 0
          @data.push($data_items[i])
        end
      end
      for i in 1...$data_weapons.size
        if $game_party.weapon_number(i) > 0
          @data.push($data_weapons[i])
        end
      end
      for i in 1...$data_armors.size
        if $game_party.armor_number(i) > 0
          @data.push($data_armors[i])
        end
      end
    when 1
      for i in 1...$data_items.size
        if $game_party.deposit_item_number(i) > 0
          @data.push($data_items[i])
        end
      end
      for i in 1...$data_weapons.size
        if $game_party.deposit_weapon_number(i) > 0
          @data.push($data_weapons[i])
        end
      end
      for i in 1...$data_armors.size
        if $game_party.deposit_armor_number(i) > 0
          @data.push($data_armors[i])
        end
      end
    end
    if reset
      self.index = 0
    else
      self.index = @data[last_index] != nil ? last_index :
        [last_index - 1, 0].max
    end
 
    @item_max = @data.size
    if @item_max > 0
      self.contents = Bitmap.new(width - 32, row_max * 32)
      for i in 0...@item_max
        draw_item(i, type)
      end
    end
  end
 
  def draw_item(index, type)
    item = @data[index]
    case item
    when RPG::Item
      number = type == 0 ? $game_party.item_number(item.id) :
        $game_party.deposit_item_number(item.id)
    when RPG::Weapon
      number = type == 0 ? $game_party.weapon_number(item.id) :
        $game_party.deposit_weapon_number(item.id)
    when RPG::Armor
      number = type == 0 ? $game_party.armor_number(item.id) :
        $game_party.deposit_armor_number(item.id)
    end
    x = 4 + index % 2 * (288 + 32)
    y = index / 2 * 32
    rect = Rect.new(x, y, self.width / @column_max - 32, 32)
    self.contents.fill_rect(rect, Color.new(0, 0, 0, 0))
    bitmap = RPG::Cache.icon(item.icon_name)
    self.contents.blt(x, y + 4, bitmap, Rect.new(0, 0, 24, 24))
    self.contents.draw_text(x + 28, y, 212, 32, item.name, 0)
    self.contents.draw_text(x + 240, y, 16, 32, ":", 1)
    self.contents.draw_text(x + 256, y, 24, 32, number.to_s, 2)
  end
 
  def update_help
    @help_window.set_text(self.item == nil ? "" : self.item.description)
  end
end
 
class Window_DepositoryNumber < Window_Base
 
  def initialize
    @digits_max = 2
    @number = 0
 
    dummy_bitmap = Bitmap.new(32, 32)
    @cursor_width = dummy_bitmap.text_size("0").width + 8
    dummy_bitmap.dispose
    @default_size = @cursor_width * @digits_max + 32
    super(0, 0, @default_size, 128)
    self.contents = Bitmap.new(width - 32, height - 32)
    self.z = 1000
    self.back_opacity = 160
    self.active = false
    self.visible = false
    @index = 0
    @item = nil
    refresh
    update_cursor_rect
  end
 
  def item=(item)
    @item = item
  end
 
  def number
    return @number
  end
   def number=(number)
    @number = [[number, 0].max, @max].min
    refresh
  end
 
  def update_cursor_rect
    self.cursor_rect.set(@index * @cursor_width, 32, @cursor_width, 32)
  end
 
  def reset(type)
    @number = 0
    @index = @digits_max - 1
    if type == 0
      case @item
      when RPG::Item
        @max = $game_party.item_number(@item.id)
        dep = $game_party.deposit_item_number(@item.id)
      when RPG::Weapon
        @max = $game_party.weapon_number(@item.id)
        dep = $game_party.deposit_weapon_number(@item.id)
      when RPG::Armor
        @max = $game_party.armor_number(@item.id)
        dep = $game_party.deposit_armor_number(@item.id)
      end
 
      self.contents.fill_rect(0, 64, width - 32, 32, Color.new(0, 0, 0, 0))
      self.contents.font.color = system_color
      self.contents.draw_text(0, 64, width - 32, 32, "Bank#{dep}")
    else
      case @item
      when RPG::Item
        @max = [$game_party.deposit_item_number(@item.id),
          10 ** @digits_max - $game_party.item_number(@item.id) - 1].min
        having = $game_party.item_number(@item.id)
      when RPG::Weapon
        @max = [$game_party.deposit_weapon_number(@item.id),
          10 ** @digits_max - $game_party.weapon_number(@item.id) - 1].min
        having = $game_party.weapon_number(@item.id)
      when RPG::Armor
        @max = [$game_party.deposit_armor_number(@item.id),
          10 ** @digits_max - $game_party.armor_number(@item.id) - 1].min
        having = $game_party.armor_number(@item.id)
      end
      # 所持数を描画
      self.contents.fill_rect(0, 64, width - 32, 32, Color.new(0, 0, 0, 0))
      self.contents.font.color = system_color
      self.contents.draw_text(0, 64, width - 32, 32, "Rucksack#{having}")
    end
    refresh
  end
 
  def refresh
    self.contents.fill_rect(0, 32, width - 32, 32, Color.new(0, 0, 0, 0))
    self.contents.font.color = normal_color
    s = sprintf("%0*d", @digits_max, @number)
    for i in 0...@digits_max
      self.contents.draw_text(i * @cursor_width + 4, 32, 32, 32, s[i,1])
    end
  end
 
  def set_text(string = " ")
    self.resize(self.contents.text_size(string).width + 40)
    self.contents.fill_rect(0, 0, width - 32, 32, Color.new(0, 0, 0, 0))
    self.contents.font.color = normal_color
    self.contents.draw_text(0, 0, width - 32, 32, string, 1)
    refresh
    centering
  end
 
  def resize(nw)
    self.width = nw
    buf = self.contents.dup
    self.contents.dispose
    self.contents = Bitmap.new(nw - 32, 96)
    self.contents.blt(0, 0, buf, buf.rect)
    buf.dispose
  end
 
  def centering
    self.x = 320 - self.width / 2
    self.y = 240 - self.height / 2
  end
 
  def update
    super
    return unless self.active
 
    if Input.repeat?(Input::UP) || Input.repeat?(Input::DOWN)
      $game_system.se_play($data_system.cursor_se)
 
      place = 10 ** (@digits_max - 1 - @index)
      n = self.number / place % 10
      self.number -= n * place
 
      n = (n + 1) % 10 if Input.repeat?(Input::UP)
      n = (n + 9) % 10 if Input.repeat?(Input::DOWN)
 
      self.number += n * place
      refresh
    end
     if Input.repeat?(Input::RIGHT)
      if @digits_max >= 2
        $game_system.se_play($data_system.cursor_se)
        @index = (@index + 1) % @digits_max
      end
    end
 
    if Input.repeat?(Input::LEFT)
      if @digits_max >= 2
        $game_system.se_play($data_system.cursor_se)
        @index = (@index + @digits_max - 1) % @digits_max
      end
    end
    update_cursor_rect
  end
end
 
class Scene_Depository
 
  def initialize(type)
    @type = type
    case type
    when 1 
       @command_money = 0
      @command_item = 100
    when 2 
       @command_money = 100
      @command_item = 0
    else 
         @command_money = 0
      @command_item = 2
    end
  end
 
  def main
 
    @spriteset = Spriteset_Map.new
 
    if $imported["Hilfe"]
      @dummy_window = Window_Base.new(0, 192, 640, 288)
      @help_window = Window_HelpExtension.new
    else
      @dummy_window = Window_Base.new(0, 128, 640, 352)
      @help_window = Window_Help.new
    end
    @dummy_window.back_opacity = 160
    @help_window.back_opacity = 160
    @command_window = Window_DepositoryCommand.new(@type)
    @gold_window = Window_DepositoryGold.new
    @item_window = Window_DepositoryItem.new
    @number_window = Window_DepositoryNumber.new
 
    @command_window.help_window = @help_window
    @item_window.help_window = @help_window
 
    Graphics.transition
 
    loop {
      Graphics.update
      Input.update
      update
      break if $scene != self
    }
 
    Graphics.freeze
 
    @spriteset.dispose
    @dummy_window.dispose
    @help_window.dispose
    @command_window.dispose
    @gold_window.dispose
    @item_window.dispose
    @number_window.dispose
  end
 
  def update
 
    @dummy_window.update
    @help_window.update
    @command_window.update
    @gold_window.update
    @item_window.update
    @number_window.update
 
    if @command_window.active
      update_command
      return
    end
 
    if @gold_window.active
      update_gold
      return
    end
 
    if @item_window.active
      update_item
      return
    end
      if @number_window.active
      update_number
      return
    end
  end
 
  def update_command
 
    if Input.trigger?(Input::B)
         $game_system.se_play($data_system.cancel_se)
         $scene = Scene_Map.new
      return
    end
 
    if Input.trigger?(Input::C)
 
      $game_system.se_play($data_system.decision_se)
         case @command_window.index
      when @command_money
               @gold_window.active = true
        @gold_window.visible = true
        @gold_window.reset(0)
        @help_window.set_text(KGC::DEPOSIT_GOLD)
      when @command_money + 1
          @gold_window.active = true
        @gold_window.visible = true
        @gold_window.reset(1)
        @help_window.set_text(KGC::WDEPOSIT_GOLD)
      when @command_item
          @item_window.refresh(0, true)
        @item_window.active = true
        @item_window.visible = true
      when @command_item + 1
         @item_window.refresh(1, true)
        @item_window.active = true
        @item_window.visible = true
      end
      @command_window.active = false
 
      @dummy_window.visible = false
      return
    end
  end
 
  def update_gold
 
    if Input.trigger?(Input::B)
          $game_system.se_play($data_system.cancel_se)
       @command_window.active = true
      @gold_window.active = false
      @gold_window.visible = false
      @dummy_window.visible = true
      return
    end
 
    if Input.trigger?(Input::C)
 
      price = @gold_window.price
 
      if price == 0
 
        $game_system.se_play($data_system.decision_se)
 
        @command_window.active = true
        @gold_window.active = false
        @gold_window.visible = false
        @dummy_window.visible = true
        return
      end
           $game_system.se_play($data_system.shop_se)
           case @command_window.index
      when @command_money 
             $game_party.lose_gold(price)
        $game_party.gain_deposit_gold(price)
      when @command_money + 1 
         $game_party.gain_gold(price)
        $game_party.lose_deposit_gold(price)
      end
          @gold_window.reset(@command_window.index)
      return
    end
  end
 
  def update_item
       if Input.trigger?(Input::B)
         $game_system.se_play($data_system.cancel_se)
           @command_window.active = true
      @item_window.active = false
      @item_window.visible = false
      @dummy_window.visible = true
      return
    end
     if Input.trigger?(Input::C)
            @item = @item_window.item
           if @item == nil
                $game_system.se_play($data_system.buzzer_se)
        return
      end
          @number_window.item = @item
          $game_system.se_play($data_system.decision_se)
          case @command_window.index
      when @command_item 
            @number_window.set_text(KGC::DEPOSIT_ITEM)
      when @command_item + 1 
        @number_window.set_text(KGC::WDEPOSIT_ITEM)
      end
           @number_window.reset(@command_window.index - @command_item)
            @item_window.active = false
      @number_window.active = true
      @number_window.visible = true
      return
    end
  end
   def update_number
      if Input.trigger?(Input::B)
          $game_system.se_play($data_system.cancel_se)
          @item_window.active = true
      @number_window.active = false
      @number_window.visible = false
      return
    end
     if Input.trigger?(Input::C)
            $game_system.se_play($data_system.decision_se)
      number = @number_window.number
           case @command_window.index
      when @command_item 
         case @item
        when RPG::Item
          $game_party.lose_item(@item.id, number)
          $game_party.gain_deposit_item(@item.id, number)
        when RPG::Weapon
          $game_party.lose_weapon(@item.id, number)
          $game_party.gain_deposit_weapon(@item.id, number)
        when RPG::Armor
          $game_party.lose_armor(@item.id, number)
          $game_party.gain_deposit_armor(@item.id, number)
        end
      when @command_item + 1 
         case @item
        when RPG::Item
          $game_party.gain_item(@item.id, number)
          $game_party.lose_deposit_item(@item.id, number)
        when RPG::Weapon
          $game_party.gain_weapon(@item.id, number)
          $game_party.lose_deposit_weapon(@item.id, number)
        when RPG::Armor
          $game_party.gain_armor(@item.id, number)
          $game_party.lose_deposit_armor(@item.id, number)
        end
      end
           @item_window.refresh(@command_window.index - @command_item)
           @item_window.active = true
      @number_window.active = false
      @number_window.visible = false
      return
    end
  end
end 
#Fertig xD 2h. 35min. 27sek.