Menu chế tạo

# =============================================================================
# TheoAllen - Hệ Thống Chế Tạo
# Version : 1.1b
# Blogger : https://rpgmakervn.blogspot.com/
# (Bản Này ko do tôi viết ra mà do tác gia theolizid viết ra )
# =============================================================================
($imported ||= {})[:Theo_Crafting] = true
# =============================================================================
# CHANGE LOGS:
# -----------------------------------------------------------------------------
# 2013.08.25 - Bugfix disable req text isn't working
# 2013.08.22 - Bugfix at amount of item crafting
#            - Added show condition
#            - Added custom name
# 2013.08.20 - Finished script
# 2013.08.19 - Started script
# =============================================================================
=begin

  ---------------------------------------------------------------------------
  Yêu Càu khi làm :
  Am hiểu về biết gắn scirpt nhé

  ---------------------------------------------------------------------------
  các khởi động :
  ---------------------------------------------------------------------------
  đây là bản tiếng việt 100%
  vì vậy gọi lệnh khỏi động bằng cách dùng lệnh này  :

  enter_crafting

  ---------------------------------------------------------------------------
  Khả năng làm việt vs (UntukItems/Armors/Weapons):
  ---------------------------------------------------------------------------
  -----------------------------------
  Phần yêu cầu vật phẩm chế tạo ( bỏ vào note nhé )
  -----------------------------------
  <cong thuc vat pham: id vật phẩm,số lượng vật phẩm>
  <cong thuc trang bi: id trang bị,số lượng trang bị>
  <cong thuc vu khi: id vũ khi,số lượng vật phẩm>
  ^
  công thức yêu cầu

  <ten che tao: text>
  ^
  ten sau khi vat pham che tao

  -----------------------------------
  Level : Medium - Hard
  (kalo ga paham ga usah coba2 make)
  -----------------------------------
  <them lenh>
  script
  </them lenh>
  ^
  là khi bạn gắn cái này vào sẽ có yêu cầu các lệnh ( khuyên nên xem trên trang blogger
  chung tôi cho dễ hiểu

  <nhap van ban>
  nhap điền thông tin nhé
  </nhap van ban>
  ^
  cho phép hiện thông tin craft

  <them lenh hoc>
  script
  </them lenh hoc>
  ^
 cái này cho phép bạn chèn cái scirpt vào vào giống như bạn phải chạy qua lệnh đó r
 mới chế tạo đc
=end
# =============================================================================
# Konfigurasi :
# =============================================================================
module THEO
  module Craft

  # --------------------------------------------------------------------------
  # Settingan umum
  # --------------------------------------------------------------------------
    MainMenu        = true
  # Set true kalo kamu pengen dalam main menu bisa akses crafting

    DisplayReqText  = true
  # Set false kalo kamu pengen ngilangin tulisan requirement sbelum resep
  # di window status sebelah kanan

  # --------------------------------------------------------------------------
  # Settingan vokab
  # --------------------------------------------------------------------------
    VocabMenu      = "Chế Tạo"          # Command buat main menu (kalo kamu make)
    VocabNoReq     = "- Trống -"       # Kalo ngga ada requirement khusus
    VocabRequire   = "Thông Tin:"  # Vokab requirement
    VocabRecipes   = "Yêu Cầu : "     # Vokab resep
    VocabInventory = "Đã Chế Được: "    # Vokab buat inventory

  # --------------------------------------------------------------------------
  # Lainnya
  # --------------------------------------------------------------------------
    Text_Buffer_x = 12
  # Jarak tambahan text dari samping kiri

    AmountSize = 250
  # Lebar window amount

  end
end
# =============================================================================
# Akhir dari konfig :
# =============================================================================
module THEO
  module Craft
    def self.items
      items = $data_items + $data_armors + $data_weapons
      items.compact!
      items.select {|item| item.can_be_crafted? }
    end
  end
end

class RPG::BaseItem
  attr_accessor :item_recipes
  attr_accessor :armor_recipes
  attr_accessor :weapon_recipes
  attr_accessor :enable_cond
  attr_accessor :enable_text
  attr_accessor :show_cond
  attr_accessor :craft_name
  attr_accessor :craft_key  # For future planned feature

  def load_recipes
    @item_recipes = {}
    @armor_recipes = {}
    @weapon_recipes = {}
    @show_cond = @enable_cond = "true"
    @enable_text = []
    @craft_name = ""
    @craft_key = ""
    read_craft_cond = read_craft_txt = read_craft_show = false
    self.note.split(/[\r\n]+/).each do |line|
      case line
      when /<(?:ADD_ITEM_RECIPE|cong thuc vat pham): (.*)>/i
        str = $1.scan(/\d+/)
        @item_recipes[str[0].to_i] = str[1].to_i
      when /<(?:ADD_ARMOR_RECIPE|cong thuc trang bi): (.*)>/i
        str = $1.scan(/\d+/)
        @armor_recipes[str[0].to_i] = str[1].to_i
      when /<(?:ADD_WEAPON_RECIPE|cong thuc vu khi): (.*)>/i
        str = $1.scan(/\d+/)
        @weapon_recipes[str[0].to_i] = str[1].to_i
      when /<(?:CRAFT_REQUIRE|Them lenh)>/i
        read_craft_cond = true
        @enable_cond = ""
      when /<\/(?:CRAFT_REQUIRE|them lenh)>/i
        read_craft_cond = false
      when /<(?:CRAFT_REQ_TEXT|nhap van ban)>/i
        read_craft_txt = true
      when /<\/(?:CRAFT_REQ_TEXT|nhap van ban)>/i
        read_craft_txt = false
      when /<(?:CRAFT_SHOW_EVAL|them lenh hoc)>/i
        read_craft_show = true
        @show_cond = ""
      when /<\/(?:CRAFT_SHOW_EVAL|them lenh hoc)>/i
        read_craft_show = false
      when /<(?:CRAFT_NAME|ten che tao): (.*)>/i
        @craft_name = $1.to_s
      when /<(?:CRAFT_KEY|craft key): [ ]*(.*)>/i
        @craft_key = $1.to_s
      else
        if read_craft_cond
          @enable_cond += line
        end
        if read_craft_txt
          @enable_text.push(line)
        end
        if read_craft_show
          @show_cond += line
        end
      end
    end
  end

  def recipes
    [@item_recipes, @armor_recipes, @weapon_recipes]
  end

  # ---------------------------------------------------------------------------
  # If the error is directed you to this line. It's possible that you wrote
  # craft requirement formula in a wrong way. Not this script mistake
  # ---------------------------------------------------------------------------
  def craft_possible?
    return eval(@enable_cond) && can_be_crafted?
  end

  def show_possible?
    return eval(@show_cond)
  end
  # ---------------------------------------------------------------------------
  # Determine if item can be crafted
  # ---------------------------------------------------------------------------
  def can_be_crafted?
    recipes.any? {|recipe| !recipe.empty?} && show_possible?
  end

end

class << DataManager

  alias theo_recipe_craft_load_db load_database
  def load_database
    theo_recipe_craft_load_db
    load_item_recipes
  end

  def load_item_recipes
    ($data_items+$data_armors+$data_weapons).compact.each do |db|
      db.load_recipes
    end
  end

end

class Window_CraftList < Window_ItemList

  def initialize(x,y,w,h,key)
    @key = key
    super(x,y,w,h)
    refresh
  end

  def col_max
    return 1
  end

  def status_window=(window)
    @status_window = window
    update_help
  end

  def item_number_window=(window)
    @inum_window = window
    update_help
  end

  def update_help
    super
    @status_window.set_item(item) if @status_window
    @inum_window.set_item(item) if @inum_window
  end

  def make_item_list
    @data = []
    items = THEO::Craft.items
    items.each do |item|
      @data.push(item) if @key.empty? || item.craft_key == @key
    end
  end

  def enable?(item)
    item.craft_possible? && has_recipes?(item) && has_free_slot?(item)
  end

  def has_free_slot?(item)
    $game_party.item_number(item) < $game_party.max_item_number(item)
  end

  def has_recipes?(item)
    result1 = check_recipe(item.recipes[0], $data_items)
    result2 = check_recipe(item.recipes[1], $data_armors)
    result3 = check_recipe(item.recipes[2], $data_weapons)
    return result1 && result2 && result3
  end

  def check_recipe(recipes, data)
    return true if recipes.empty?
    return recipes.all? {|recipe|
      $game_party.item_number(data[recipe[0]]) >= recipe[1]}
  end

  def draw_item_name(item, x, y, enabled = true, width = 172)
    return unless item
    draw_icon(item.icon_index, x, y, enabled)
    change_color(normal_color, enabled)
    name = item.craft_name.empty? ? item.name : item.craft_name
    draw_text(x + 24, y, width, line_height, name)
  end

  def draw_item_number(rect, item)
    return unless $imported[:Theo_LimInventory]
    return unless THEO::LimInv::Display_ItemSize
    draw_text(rect, sprintf(":%2d", item.inv_size), 2)
  end

end

class Window_CraftStatus < Window_Base

  def set_item(item)
    @item = item
    refresh
  end

  def refresh
    contents.clear
    return unless @item
    @line_count = 0
    draw_requirement
    draw_recipes
  end

  def draw_requirement
    return unless THEO::Craft::DisplayReqText
    change_color(system_color)
    draw_text(line_rect(4),THEO::Craft::VocabRequire)
    increase_line_count
    if !@item.enable_text.empty?
      change_color(normal_color, @item.craft_possible?)
      @item.enable_text.each do |text|
        draw_text(line_rect(buff_x),text)
        increase_line_count
      end
      increase_line_count
    else
      change_color(normal_color)
      draw_text(line_rect(buff_x),THEO::Craft::VocabNoReq)
      2.times { increase_line_count }
    end
  end

  def draw_recipes
    change_color(system_color)
    draw_text(line_rect(4),THEO::Craft::VocabRecipes)
    change_color(normal_color)
    increase_line_count
    draw_recipe(@item.recipes[0], $data_items)
    draw_recipe(@item.recipes[1], $data_armors)
    draw_recipe(@item.recipes[2], $data_weapons)
  end

  def draw_recipe(hash, items)
    hash.each do |id,amount|
      item_num = $game_party.item_number(items[id])
      enable = item_num >= amount
      change_color(normal_color, enable)
      rect = line_rect(buff_x + 24)
      text = sprintf("%s (%d/%d)",items[id].name, item_num, amount)
      draw_text(rect, text)
      draw_icon(items[id].icon_index, buff_x, @line_count, enable)
      increase_line_count
    end
  end

  def line_rect(xpos = 0)
    Rect.new(xpos,@line_count,contents.width-xpos,line_height)
  end

  def increase_line_count
    @line_count += line_height
  end

  def buff_x
    THEO::Craft::Text_Buffer_x
  end

end

class Window_CraftAmount < Window_Base
  attr_accessor :inv_window
  attr_accessor :ok_handler
  attr_accessor :cancel_handler
  attr_reader :amount

  def initialize
    super(0,0,window_width,fitting_height(1))
    self.openness = 0
    to_center
    @amount = 0
    @max = 0
    @item = nil
  end

  def window_width
    return THEO::Craft::AmountSize
  end

  def to_center
    self.x = (Graphics.width - width)/2
    self.y = (Graphics.height - height)/2
  end

  def set(item, max)
    change_amount(0,true)
    @item = item
    @max = max
    open
    refresh
  end

  def refresh
    contents.clear
    return unless @item
    draw_item_name(@item,0,0,true,contents.width)
    draw_amount
  end

  def draw_amount
    text = sprintf("%d/%d",@amount,@max)
    draw_text(0,0,contents.width,line_height,text,2)
  end

  def update
    super
    if open?
      change_amount(1) if Input.repeat?(:RIGHT)
      change_amount(-1) if Input.repeat?(:LEFT)
      change_amount(10) if Input.repeat?(:UP)
      change_amount(-10) if Input.repeat?(:DOWN)
      call_ok if Input.trigger?(:C)
      call_cancel if Input.trigger?(:B)
    end
  end

  def change_amount(number, instant = false)
    if instant
      @amount = number
    else
      Sound.play_cursor
      @amount = [[@amount + number,0].max,@max].min
    end
    refresh
    @inv_window.amount = @amount if @inv_window
  end

  def call_ok
    Sound.play_ok
    ok_handler.call
    change_amount(0,true)
    close
  end

  def call_cancel
    Sound.play_cancel
    cancel_handler.call
    change_amount(0,true)
    close
  end

end

class Window_CraftFooter < Window_Base

  def initialize
    super(0,0,Graphics.width,fitting_height(1))
    self.y = Graphics.height - height
    @amount = 0
    @item = nil
    refresh
  end

  def amount=(amount)
    @amount = amount
    refresh
  end

  def refresh
    contents.clear
    change_color(system_color)
    draw_text(0,0,contents.width,line_height,THEO::Craft::VocabInventory)
    change_color(normal_color)
    return unless @item
    if $imported[:Theo_LimInventory]
      draw_inv_slot(0,0)
    else
      draw_item_number
    end
  end

  def draw_inv_slot(x,y,width = contents.width,align = 2)
    total = $game_party.total_inv_size + @amount*@item.inv_size
    total -= calculate_lose_item
    txt = sprintf("%d/%d", total, $game_party.inv_max)
    color = THEO::LimInv::NearMaxed_Color
    near_max = total.to_f/$game_party.inv_max >=
      (100 - THEO::LimInv::NearMaxed_Percent).to_f / 100
    if near_max
      change_color(text_color(color))
    else
      change_color(normal_color)
    end
    draw_text(x,y,width,line_height,txt,align)
    change_color(normal_color)
  end

  def draw_item_number
    txt = sprintf("%d/%d",@amount + $game_party.item_number(@item),
      $game_party.max_item_number(@item))
    draw_text(0,0,contents.width,line_height,txt,2)
  end

  def set_item(item)
    @item = item
    refresh
  end

  def calculate_lose_item
    result = 0
    @item.recipes[0].each do |id,amount|
      data = $data_items[id]
      amount *= @amount
      result += amount
    end
    @item.recipes[1].each do |id,amount|
      data = $data_armors[id]
      amount *= @amount
      result += amount
    end
    @item.recipes[2].each do |id,amount|
      data = $data_weapons[id]
      amount *= @amount
      result += amount
    end
    return result
  end

end

class Game_Interpreter

  # ----------------------------------------------
  # key is just for my future planned feature
  # ----------------------------------------------
  def enter_crafting(key = "")
    SceneManager.call(Scene_ItemCrafting)
    SceneManager.scene.prepare(key)
    Fiber.yield
  end

end

class Window_MenuCommand < Window_Command

  alias theo_craft_ori_cmd add_original_commands
  def add_original_commands
    theo_craft_ori_cmd
    return unless THEO::Craft::MainMenu
    add_command(THEO::Craft::VocabMenu, :craft)
  end

end

class Scene_Menu < Scene_MenuBase

  alias theo_craft_cmnd_window create_command_window
  def create_command_window
    theo_craft_cmnd_window
    @command_window.set_handler(:craft, method(:enter_crafting))
  end

  def enter_crafting
    SceneManager.call(Scene_ItemCrafting)
    SceneManager.scene.prepare("")
  end

end

class Scene_ItemCrafting < Scene_MenuBase

  def prepare(key)
    @key = key
  end

  def start
    super
    create_help_window
    create_craftfooter_window
    create_craftlist_window
    create_craftstatus_window
    create_craftamount_window
  end

  def create_craftfooter_window
    @craft_footer = Window_CraftFooter.new
  end

  def create_craftlist_window
    wy = @help_window.height
    ww = Graphics.width/2
    wh = Graphics.height - wy - @craft_footer.height
    @craft_list = Window_CraftList.new(0,wy,ww,wh,@key)
    @craft_list.set_handler(:ok, method(:on_craft_ok))
    @craft_list.set_handler(:cancel, method(:return_scene))
    @craft_list.help_window = @help_window
    @craft_list.item_number_window = @craft_footer
    @craft_list.activate
    @craft_list.select(0)
  end

  def create_craftstatus_window
    wx = @craft_list.width
    wy = @craft_list.y
    ww = @craft_list.width
    wh = @craft_list.height
    @craft_status = Window_CraftStatus.new(wx,wy,ww,wh)
    @craft_list.status_window = @craft_status
  end

  def create_craftamount_window
    @craft_amount = Window_CraftAmount.new
    @craft_amount.ok_handler = method(:on_amount_ok)
    @craft_amount.cancel_handler = method(:on_amount_cancel)
    @craft_amount.inv_window = @craft_footer
  end

  def on_craft_ok
    @craft_amount.set(item, item_max)
  end

  def on_amount_ok
    $game_party.gain_item(item, @craft_amount.amount)
    lose_recipes
    @craft_status.refresh
    @craft_list.refresh
    @craft_list.activate
  end

  def on_amount_cancel
    @craft_list.activate
  end

  def item
    @craft_list.item
  end

  def item_max
    ary = []
    item.recipes[0].each do |id,amount|
      data = $data_items[id]
      ary.push($game_party.item_number(data)/amount)
    end
    item.recipes[1].each do |id,amount|
      data = $data_armors[id]
      ary.push($game_party.item_number(data)/amount)
    end
    item.recipes[2].each do |id,amount|
      data = $data_weapons[id]
      ary.push($game_party.item_number(data)/amount)
    end
    max_item = $game_party.max_item_number(item)
    inum = $game_party.item_number(item)
    return [ary.min , max_item - inum].min
  end

  def lose_recipes
    item.recipes[0].each do |id,amount|
      data = $data_items[id]
      amount *= @craft_amount.amount
      $game_party.lose_item(data,amount)
    end
    item.recipes[1].each do |id,amount|
      data = $data_armors[id]
      amount *= @craft_amount.amount
      $game_party.lose_item(data,amount)
    end
    item.recipes[2].each do |id,amount|
      data = $data_weapons[id]
      amount *= @craft_amount.amount
      $game_party.lose_item(data,amount)
    end
  end

end