#==============================================================================
# ** Item-Kiste V1.0
# von thunderbolt256 (30.06.2009)
#------------------------------------------------------------------------------
# http://www.rpg-studio.de/http://www.rpg-…tzamna/node/290
#==============================================================================

#==============================================================================
#
# Itemkiste
#
#==============================================================================
# scripted by thunderbolt256
#------------------------------------------------------------------------------
#
class Scene_Box
#--------------------------------------------------------------------------
def main
@info_window = Window_Help.new
@help_window = Window_Help.new
@help_window.y = @info_window.height
@item_window = Window_Box.new(0)
@item_window.active = false
@item_window.y = @help_window.y + @help_window.height
@item_window.height = 480 - @item_window.y - @help_window.height
@box_window = Window_Box.new(1)
@box_window.active = false
@box_window.visible = false
@box_window.y = @item_window.y
@box_window.height = @item_window.height
@item_window.refresh
@box_window.refresh
@ort_window = Window_Help.new
@ort_window.x = @item_window.x
@ort_window.y = @item_window.y + @item_window.height
@ort_window.width = @item_window.width
@ort_window.height = 480 - @ort_window.y
@ort_window.bitmap_adapt
s1 = "Ablegen"
s2 = "Aufnehmen"
s3 = "Wegwerfen (Tasche)"
s4 = "Wegwerfen (Box)"
s5 = "Gehen"
@command_window = Window_Command.new(320, [s1, s2, s3, s4, s5])
@command_window.x = 0
@command_window.y = @help_window.y + @help_window.height
@command_window.set_align(1)
@command_window.refresh
@command_window.index = 0
@command_window.active = true
@layout_window = Window_Help.new
@layout_window.y = @command_window.y + @command_window.height
@layout_window.width = 640 - @item_window.x
@layout_window.height = 480 - @layout_window.y
@layout_window.bitmap_adapt
s1 = "Ja"
s2 = "Nein"
s3 = "Abbruch"
@command2_window = Window_Command.new(@layout_window.width, [s1, s2, s3])
@command2_window.y = @layout_window.y
@command2_window.height = @layout_window.height
@command2_window.width = @layout_window.width
@command2_window.set_align(1)
@command2_window.refresh
@command2_window.visible = false
@command2_window.active = false
@number_input = Window_InputNumber.new(1)
@number_input.active = false
@number_input.visible = false
@number_input.x = 160
@number_input.y = @layout_window.y + 48
@item_window.ort_window = @ort_window
@box_window.ort_window = @ort_window
@item_window.help_window = @help_window
@box_window.help_window = @help_window
@item_window.update_help
@anzahl = 1
Graphics.transition
loop do
Graphics.update
Input.update
update
if $scene != self
break
end
end
Graphics.freeze
@help_window.dispose
@ort_window.dispose
@info_window.dispose
@item_window.dispose
@box_window.dispose
@command_window.dispose
@layout_window.dispose
@number_input.dispose
@command2_window.dispose
end
#--------------------------------------------------------------------------
def update
@help_window.update
@ort_window.update
@info_window.update
@item_window.update
@box_window.update
if !@item_window.eof
@command_window.disable_item(0)
@command_window.disable_item(2)
else
@command_window.enable_item(0)
@command_window.enable_item(2)
end
if !@box_window.eof
@command_window.disable_item(1)
@command_window.disable_item(3)
else
@command_window.enable_item(1)
@command_window.enable_item(3)
end
@command_window.update
if @command_window.active
case @command_window.index
when 0
@item_window.visible = true
@box_window.visible = false
@item_window.update_help
@info_window.set_text("Willst etwas aus der Tasche in die Box tun?")
when 1
@item_window.visible = false
@box_window.visible = true
@box_window.update_help
@info_window.set_text("Willst du etwas aus der Box in die Tasche tun?")
when 2
@item_window.visible = true
@box_window.visible = false
@item_window.update_help
@info_window.set_text("Willst du etwas aus der Tasche wegwerfen?")
when 3
@item_window.visible = false
@box_window.visible = true
@box_window.update_help
@info_window.set_text("Willst du etwas aus der Box wegwerfen?")
when 4
@item_window.visible = true
@box_window.visible = false
@item_window.update_help
@info_window.set_text("Willst du gehen?")
end
update_command
return
end
@layout_window.update
@number_input.update
@command2_window.update
if @item_window.active
update_item
return
end
if @box_window.active
update_box
return
end
if @number_input.active
update_input
return
end
if @command2_window.active
update_c2
return
end
end
#--------------------------------------------------------------------------
def zehn(hoch)
if hoch == 0
return 0 # nur speziell hierfür. Normal return 1
end
temp=1
for i in 1..hoch
temp = temp*10
end
return temp
end
#--------------------------------------------------------------------------
def digits_number(n)
n=n.abs
for i in 0..5
if n>= zehn(i) and n<zehn(i+1)
return i+1
end
end
end
#--------------------------------------------------------------------------
def update_item
if Input.trigger?(Input::B)
$game_system.se_play($data_system.cancel_se)
@item_window.index = 0
@item_window.update_help
@item_window.active = false
@command_window.active = true
return
end
if Input.trigger?(Input::C)
@item = @item_window.item
case @item
when RPG::Item
@number = $game_party.item_number(@item.id)
@cnumber = $game_party.item_box_number(@item.id)
@maxnumber = $game_party.maxitemb
when RPG::Weapon
@number = $game_party.weapon_number(@item.id)
@cnumber = $game_party.weapon_box_number(@item.id)
@maxnumber = $game_party.maxweaponb
when RPG::Armor
@number = $game_party.armor_number(@item.id)
@cnumber = $game_party.armor_box_number(@item.id)
@maxnumber = $game_party.maxarmorb
end
if @number == 1
case @command_window.index
when 0
@info_window.set_text("Willst du "+@item.name+" ablegen?")
when 2
@info_window.set_text("Willst du "+@item.name+" wegwerfen?")
end
@anzahl = 1
@command2_window.visible = true
@command2_window.active = true
@item_window.active = false
return
elsif @number > 1
@number_input = Window_InputNumber.new(digits_number(@number))
@number_input.x = 160 - @number_input.width
@number_input.y = @layout_window.y + 48
@item_window.active = false
case @command_window.index
when 0
@info_window.set_text("Wie viel von "+@item.name+" willst du aus der Tasche ablegen?")
@layout_window.set_text("Wie viele ablegen?")
when 2
@info_window.set_text("Viel von "+@item.name+" willst du aus der Tasche wegwerfen?")
@layout_window.set_text("Wie viele wegwerfen?")
end
else
$game_system.se_play($data_system.buzzer_se)
end
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)
case @command_window.index
when 0
if @item_window.eof
$game_system.se_play($data_system.decision_se)
@item_window.active = true
@command_window.active = false
@info_window.set_text("Was möchtest du ablegen?")
else
$game_system.se_play($data_system.buzzer_se)
end
when 1
if @box_window.eof
$game_system.se_play($data_system.decision_se)
@item_window.visible = false
@box_window.visible = true
@box_window.active = true
@command_window.active = false
@info_window.set_text("Was möchtest du auflegen?")
else
$game_system.se_play($data_system.buzzer_se)
end
when 2
if @item_window.eof
$game_system.se_play($data_system.decision_se)
@item_window.active = true
@command_window.active = false
@info_window.set_text("Was möchtest du aus der Tasche wegwerfen?")
else
$game_system.se_play($data_system.buzzer_se)
end
when 3
if @box_window.eof
$game_system.se_play($data_system.decision_se)
@item_window.visible = false
@box_window.visible = true
@box_window.active = true
@command_window.active = false
@info_window.set_text("Was möchtest du aus der Box wegwerfen?")
else
$game_system.se_play($data_system.buzzer_se)
end
when 4
$scene = Scene_Map.new
end
end
end
#--------------------------------------------------------------------------
def update_c2
if Input.trigger?(Input::B)
$game_system.se_play($data_system.cancel_se)
case @command_window.index
when 0
@item_window.active = true
@info_window.set_text("Was willst du ablegen?")
when 1
@box_window.active = true
@info_window.set_text("Was willst du aufnehmen?")
when 2
@item_window.active = true
@info_window.set_text("Was willst du aus der Tasche wegwerfen?")
when 3
@box_window.active = true
@info_window.set_text("Was willst du aus der Box wegwerfen?")
end
@command2_window.active = false
@command2_window.visible = false
@command2_window.index = 0
return
end
if Input.trigger?(Input::C)
$game_system.se_play($data_system.decision_se)
case @command2_window.index
when 0
case @command_window.index
when 0
case @item
when RPG::Item
$game_party.lose_item(@item.id, (@anzahl>=@number) ? @number : @anzahl)
$game_party.gain_item_box(@item.id, (@anzahl>=@number) ? @number : @anzahl)
when RPG::Weapon
$game_party.lose_weapon(@item.id, (@anzahl>=@number) ? @number : @anzahl)
$game_party.gain_weapon_box(@item.id, (@anzahl>=@number) ? @number : @anzahl)
when RPG::Armor
$game_party.lose_armor(@item.id, (@anzahl>=@number) ? @number : @anzahl)
$game_party.gain_armor_box(@item.id, (@anzahl>=@number) ? @number : @anzahl)
end
@item_window.index = 0
@item_window.refresh
if @item_window.eof
@info_window.set_text("Was willst du ablegen?")
@item_window.active = true
else
@command_window.index = 0
@command_window.active = true
end
when 1
case @item
when RPG::Item
$game_party.lose_item_box(@item.id, (@anzahl>=@number) ? @number : @anzahl)
$game_party.gain_item(@item.id, (@anzahl>=@number) ? @number : @anzahl)
when RPG::Weapon
$game_party.lose_weapon_box(@item.id, (@anzahl>=@number) ? @number : @anzahl)
$game_party.gain_weapon(@item.id, (@anzahl>=@number) ? @number : @anzahl)
when RPG::Armor
$game_party.lose_armor_box(@item.id, (@anzahl>=@number) ? @number : @anzahl)
$game_party.gain_armor(@item.id, (@anzahl>=@number) ? @number : @anzahl)
end
@box_window.index = 0
@box_window.refresh
if @box_window.eof
@info_window.set_text("Was willst du aufnehmen?")
@box_window.active = true
else
@command_window.index = 0
@command_window.active = true
end
when 2
case @item
when RPG::Item
$game_party.lose_item(@item.id, (@anzahl>=@number) ? @number : @anzahl)
when RPG::Weapon
$game_party.lose_weapon(@item.id, (@anzahl>=@number) ? @number : @anzahl)
when RPG::Armor
$game_party.lose_armor(@item.id, (@anzahl>=@number) ? @number : @anzahl)
end
@item_window.index = 0
@item_window.refresh
if @item_window.eof
@info_window.set_text("Was willst du aus der Tasche wegwerfen?")
@item_window.active = true
else
@command_window.index = 0
@command_window.active = true
end
when 3
case @item
when RPG::Item
$game_party.lose_item_box(@item.id, (@anzahl>=@number) ? @number : @anzahl)
when RPG::Weapon
$game_party.lose_weapon_box(@item.id, (@anzahl>=@number) ? @number : @anzahl)
when RPG::Armor
$game_party.lose_armor_box(@item.id, (@anzahl>=@number) ? @number : @anzahl)
end
@box_window.index = 0
@box_window.refresh
if @box_window.eof
@info_window.set_text("Was willst du aus der Box wegwerfen?")
@box_window.active = true
else
@command_window.index = 0
@command_window.active = true
end
end
@command2_window.active = false
@command2_window.visible = false
@command2_window.index = 0
@item_window.refresh
@box_window.refresh
when 1
case @command_window.index
when 0
@item_window.active = true
@info_window.set_text("Was willst du ablegen?")
when 1
@box_window.active = true
@info_window.set_text("Was willst du aufnehmen?")
when 2
@item_window.active = true
@info_window.set_text("Was willst du aus der Tasche wegwerfen?")
when 3
@box_window.active = true
@info_window.set_text("Was willst du aus der Box wegwerfen?")
end
@command2_window.active = false
@command2_window.visible = false
@command2_window.index = 0
when 2
@command2_window.active = false
@command2_window.visible = false
@command2_window.index = 0
@command_window.index = 0
@command_window.active = true
@item_window.visible = true
@box_window.visible = false
@item_window.index = 0
@item_window.update_help
@box_window.index = 0
end
end
end
#--------------------------------------------------------------------------
def update_input
if Input.trigger?(Input::B)
$game_system.se_play($data_system.cancel_se)
@layout_window.set_text(" ")
case @command_window.index
when 0
@item_window.active = true
@info_window.set_text("Was willst du ablegen?")
when 1
@box_window.active = true
@info_window.set_text("Was willst du aufnehmen?")
when 2
@item_window.active = true
@info_window.set_text("Was willst du aus der Tasche wegwerfen?")
when 3
@box_window.active = true
@info_window.set_text("Was willst du aus der Box wegwerfen?")
end
@number_input.active = false
@number_input.visible = false
@number_input.number = 0
return
end
if Input.trigger?(Input::C)
@anzahl = @number_input.number
if @anzahl > 0
@anzahl = (@anzahl > @number) ? @number : @anzahl
case @command_window.index
when 0
if (@anzahl + @cnumber) > @maxnumber
@info_window.set_text("Von "+@item.name+" kannst nur noch höchstens "+(@maxnumber - @cnumber).to_s+" ablegen.")
@number_input.number = 0
return
elsif @anzahl >= @number
@info_window.set_text("Willst du alles von "+@item.name+" ablegen?")
else
@info_window.set_text("Willst du "+@anzahl.to_s+" von "+@item.name+" ablegen?")
end
when 1
if (@anzahl + @cnumber) > @maxnumber
@info_window.set_text("Von "+@item.name+" kannst nur noch höchstens "+(@maxnumber - @cnumber).to_s+" ablegen.")
@number_input.number = 0
return
elsif @anzahl >= @number
@info_window.set_text("Willst du alles von "+@item.name+" aufnehmen?")
else
@info_window.set_text("Willst du "+@anzahl.to_s+" von "+@item.name+" aufnehmen?")
end
when 2
if @anzahl >= @number
@info_window.set_text("Willst du alles von "+@item.name+" aus der Tasche wegwerfen?")
else
@info_window.set_text("Willst du "+@anzahl.to_s+" von "+@item.name+" aus der Tasche wegwerfen?")
end
when 3
if @anzahl >= @number
@info_window.set_text("Willst du alles von "+@item.name+" aus der Box wegwerfen?")
else
@info_window.set_text("Willst du "+@anzahl.to_s+" von "+@item.name+" aus der Box wegwerfen?")
end
end
@layout_window.set_text(" ")
@command2_window.active = true
@command2_window.visible = true
@number_input.number = 0
@number_input.active = false
@number_input.visible = false
else
$game_system.se_play($data_system.buzzer_se)
end
end
end
#--------------------------------------------------------------------------
def update_box
if Input.trigger?(Input::B)
$game_system.se_play($data_system.cancel_se)
@box_window.active = false
@box_window.visible = false
@box_window.index = 0
@item_window.index = 0
@item_window.update_help
@item_window.visible = true
@command_window.active = true
return
end
if Input.trigger?(Input::C)
@item = @box_window.item
case @item
when RPG::Item
@number = $game_party.item_box_number(@item.id)
@cnumber = $game_party.item_number(@item.id)
@maxnumber = $game_party.maxitemt
when RPG::Weapon
@number = $game_party.weapon_box_number(@item.id)
@cnumber = $game_party.weapon_number(@item.id)
@maxnumber = $game_party.maxweapont
when RPG::Armor
@number = $game_party.armor_box_number(@item.id)
@cnumber = $game_party.armor_number(@item.id)
@maxnumber = $game_party.maxarmort
end
if @number == 1
case @command_window.index
when 1
@info_window.set_text("Willst du "+@item.name+" aufnehmen?")
when 3
@info_window.set_text("Willst du aus der Box "+@item.name+" wegwerfen?")
end
@anzahl = 1
@command2_window.visible = true
@command2_window.active = true
@box_window.active = false
return
elsif @number > 1
@number_input = Window_InputNumber.new(digits_number(@number))
@number_input.x = 160 - @number_input.width
@number_input.y = @layout_window.y + 48
@box_window.active = false
case @command_window.index
when 1
@info_window.set_text("Viel von "+@item.name+" willst du aufnehmen?")
@layout_window.set_text("Wie viele aufnehmen?")
when 3
@info_window.set_text("Viel von "+@item.name+" willst du aus der Box wegwerfen?")
@layout_window.set_text("Wie viele wegwerfen?")
end
elsif
$game_system.se_play($data_system.buzzer_se)
end
end
end
end
#==============================================================================
class Window_Box < Window_Selectable
#--------------------------------------------------------------------------
attr_reader :ort_window
#--------------------------------------------------------------------------
def initialize(n)
super(320, 64, 320, 416)
refresh
self.index = 0
if $game_temp.in_battle
self.y = 64
self.height = 256
self.back_opacity = 160
end
# typ == 0 -> tasche typ == 1 -> kiste
@typ = n
end
#--------------------------------------------------------------------------
def item
return @data[self.index]
end
#--------------------------------------------------------------------------
def eof
return @data != []
end
#--------------------------------------------------------------------------
def ort_window=(ort_window)
@ort_window = ort_window
end
#--------------------------------------------------------------------------
def refresh
if self.contents != nil
self.contents.dispose
self.contents = nil
end
@data = []
case @typ
when 0
for i in 1...$data_items.size
if $game_party.item_number(i) > 0
@data.push($data_items)
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.item_box_number(i) > 0
@data.push($data_items[i])
end
end
for i in 1...$data_weapons.size
if $game_party.weapon_box_number(i) > 0
@data.push($data_weapons[i])
end
end
for i in 1...$data_armors.size
if $game_party.armor_box_number(i) > 0
@data.push($data_armors[i])
end
end
end
# If item count is not 0, make a bit map and draw all items
@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)
end
end
end
#--------------------------------------------------------------------------
def draw_item(index)
item = @data[index]
case item
when RPG::Item
number = (@typ == 0) ? $game_party.item_number(item.id) : $game_party.item_box_number(item.id)
when RPG::Weapon
number = (@typ == 0) ? $game_party.weapon_number(item.id) : $game_party.weapon_box_number(item.id)
when RPG::Armor
number = (@typ == 0) ? $game_party.armor_number(item.id) : $game_party.armor_box_number(item.id)
end
self.contents.font.color = normal_color
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, 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)
@ort_window.set_text((@typ == 0) ? "Tasche" : "Box")
end
end
#==============================================================================
class Window_Help < Window_Base
#--------------------------------------------------------------------------
def bitmap_adapt
self.contents = Bitmap.new(width - 32, height - 32)
end
end
#==============================================================================
class Window_Command < Window_Selectable
alias initialize_ikssbt :initialize
def initialize(width, commands)
@align = 0
initialize_ikssbt(width, commands)
end
#--------------------------------------------------------------------------
def set_align(n)
if n>=0 and n<=2
@align = n
end
end
#--------------------------------------------------------------------------
def draw_item(index, color)
self.contents.font.color = color
rect = Rect.new(4, 32 * index, self.contents.width - 8, 32)
self.contents.fill_rect(rect, Color.new(0, 0, 0, 0))
self.contents.draw_text(rect, @commands[index], @align)
end
#--------------------------------------------------------------------------
def enable_item(index)
draw_item(index, normal_color)
end
end
#==============================================================================
class Game_Party

attr_reader :maxitemt # max Anz. für Items (Tasche)
attr_reader :maxweapont # max Anz. für Weapon (Tasche)
attr_reader :maxarmort # max Anz. für Armor (Tasche)
attr_reader :maxitemb # max Anz. für Items (Box)
attr_reader :maxweaponb # max Anz. für Weapon (Box)
attr_reader :maxarmorb # max Anz. für Armor (Box)

alias initialize_ikssbt :initialize
def initialize
initialize_ikssbt
@items_box = {}
@weapons_box = {}
@armors_box = {}
@maxitemt = 1000 # man kann 1000 Items von der selben Sorte tragen
@maxweapont = 100 # man kann 100 Waffen von der selben Sorte tragen
@maxarmort = 100 # man kann 100 Rüstungen von der selben Sorte tragen
@maxitemb = 5000 # man kann 5000 Items von der selben Sorte lagern
@maxweaponb = 300 # man kann 300 Waffen von der selben Sorte lagern
@maxarmorb = 300 # man kann 300 Rüstungen von der selben Sorte lagern
end
#--------------------------------------------------------------------------
def gain_item(item_id, n)
if item_id > 0
@items[item_id] = [[item_number(item_id) + n, 0].max, @maxitemt].min
end
end
#--------------------------------------------------------------------------
def gain_weapon(weapon_id, n)
if weapon_id > 0
@weapons[weapon_id] = [[weapon_number(weapon_id) + n, 0].max, @maxweapont].min
end
end
#--------------------------------------------------------------------------
def gain_armor(armor_id, n)
if armor_id > 0
@armors[armor_id] = [[armor_number(armor_id) + n, 0].max, @maxarmort].min
end
end
#--------------------------------------------------------------------------
def item_box_number(item_id)
return @items_box.include?(item_id) ? @items_box[item_id] : 0
end
#--------------------------------------------------------------------------
def weapon_box_number(weapon_id)
return @weapons_box.include?(weapon_id) ? @weapons_box[weapon_id] : 0
end
#--------------------------------------------------------------------------
def armor_box_number(armor_id)
return @armors_box.include?(armor_id) ? @armors_box[armor_id] : 0
end
#--------------------------------------------------------------------------
def gain_item_box(item_id, n)
if item_id > 0
@items_box[item_id] = [[item_box_number(item_id) + n, 0].max, @maxitemb].min
end
end
#--------------------------------------------------------------------------
def gain_weapon_box(weapon_id, n)
if weapon_id > 0
@weapons_box[weapon_id] = [[weapon_box_number(weapon_id) + n, 0].max, @maxweaponb].min
end
end
#--------------------------------------------------------------------------
def gain_armor_box(armor_id, n)
if armor_id > 0
@armors_box[armor_id] = [[armor_box_number(armor_id) + n, 0].max, @maxarmorb].min
end
end
#--------------------------------------------------------------------------
def lose_item_box(item_id, n)
gain_item_box(item_id, -n)
end
#--------------------------------------------------------------------------
def lose_weapon_box(weapon_id, n)
gain_weapon_box(weapon_id, -n)
end
#--------------------------------------------------------------------------
def lose_armor_box(armor_id, n)
gain_armor_box(armor_id, -n)
end
end