[NPM4] Windows Options!

Cara Cheio de Bugs devido á modificações ocorridas no seu Game.
Estou Concertando os Erros...

#Edit: Concertei os Bugs...

Código:

#==============================================================================
# ** Janelas no Mapa
#------------------------------------------------------------------------------
#  By Valentine
#  Edited By TuNInHo
#  Bugs Corrigidos By Italoess
#==============================================================================

SDK.log("Hud", "Marlos_Gama", "1.0", "???")

if SDK.state('Hud') == true
 
class Scene_Map
  alias hud_map_main_draw main_draw
  alias hud_map_update update
 
  def main_draw
    #Quest
    $quest_list = Quest_list.new(100,80,207,230,1)
    $quest_list.visible = false
    $quest_list.active = false
    $quest_w = Window_Quests.new
    $quest_w.visible = false
    $quest_w.active = false
    #Janela de Dinheiro
    $janela_gold_w = Gold_Window.new
    $janela_gold_w.visible = false
    #Status
    $status = Window_Status2.new
    $status.visible = false
    $status.active = false
    #Mensagem do Administrador
    $adm_w = Global_Message.new
    $adm_w.visible = false
    #Criar Guild
    $guild_w = Window_CreateGuild.new(220,100,200,200)
    $flag1 = Flag.new($guild_w,"Flag",7,15,1)
    $flag1.visible = false
    $guild_w.visible = false
    $guild_w.active = false
    #Lista de Membros da Guild
    $member_list = Memberlist.new(220,90,207,220,1)
    $member_list.dragable = true
    $member_list.closable = true
    $member_list.visible = false
    $member_list.active = false
    #Acessa o Painel de Admin
    $painel_adm = Window_Painel.new(30,135,270,105)
    $painel_adm.visible = false
    $painel_adm.active = false
    $painel_input = Text_Box.new($painel_adm,10,62,200,30)
    #Convite de Party e Guild
    $convite = Window_Dummys_Convite.new(150,165,160,80)
    @convite_button1 = Button.new($convite,$convite.width/2+12, 45, LANGUAGE::CALLACCEPT,0,1) {aceitar_convite; $fechando_ativar = true}
    @convite_button2 = Button.new($convite,$convite.width/2+67, 45, LANGUAGE::CALLNOTACCEPT,0,1) {recusar_convite; $fechando_ativar = true}
    $convite.dragable = true
    $convite.closable = true
    $convite.visible = false
    $convite.active = false
    # Currency
    $currency = Window_Dummys.new(230,165,182,90)
    $currency.windowskin = RPG::Cache.windowskin("WindskinC")
    $currency.set_text("Quantidade:",43,-9,0,true)
    $currency_box = Text_Box.new($currency,25,30,120,10)
    @currency_button3 = Button.new($currency,30, 55, LANGUAGE::CALLACCEPT,0,1) {currency_accept}
    @currency_button4 = Button.new($currency,85, 55, LANGUAGE::CALLNOTACCEPT,0,1) {$currency.visible = false; $fechando_ativar = true}
    $currency.dragable = true
    $currency.visible = false
    $currency.active = false
    #Teletransporte
    $teleport = Window_Teleport.new(230,115,200,207,1)
    $teleport.dragable = true
    $teleport.closable = true
    $teleport.visible = false
    $teleport.active = false
    #Mensagem
    $msg = Window_Dummys.new(220,170,230,80)
    @msg_button = Button.new($msg,90, 45, LANGUAGE::MSGOK) {$msg.visible = false; $msg.active = false; $fechando_ativar = true}
    $msg.dragable = true
    $msg.closable = true
    $msg.visible = false
    $msg.active = false
    #Acessar Guild
    $guild_created = Window_Guild.new(220,90,207,220)
    $flag2 = Flag.new($guild_created,"Flag",10,15,2)
    $flag2.visible = false
    $guild_created.visible = false
    $guild_created.active = false
    #Menu de Habilidades
    $skill = Window_Skills.new
    $skill.visible = false
    $skill.active = false
    #Menu de Items
    $item_w = Window_Inventory.new
    $item_w.visible = false
    $item_w.active = false
    #Menu de Equips
    $equip_w = Window_Equip.new
    $equip_w.visible = false
    $equip_w.active = false
    #Informações dos Items
    $help_w = Window_Help2.new
    $help_w.visible = false
    $help_w.active = false
    #Informações dos Skills
    $help_w_2 = Window_Help3.new
    $help_w_2.visible = false
    $help_w_2.active = false
    #Icones
    @janela_base = Window_Base.new(400+8-45,0-4-2,300,300)#(365,0,275,71)
    @janela_base.windowskin = RPG::Cache.windowskin("Blank")
    @janela_base.back_opacity = 180
    $janela_base = @janela_base
    @icon_1 = Icon.new($janela_base,"Item 1","Items",92,17,[LANGUAGE::ICON1],false) {$equip_w.refresh; $equip_w.visible = true; $equip_w.active = true; $item_w.visible = true; $item_w.active = true; $item_w.refresh; $janela_gold_w.visible = true; $janela_gold_w.refresh}#{$distribuir.visible = false; $distribuir.active = false;$skill.visible = false; $skill.active = false;$scene = Scene_Equip.new}#; $skill_b.visible = false; $skill_b.active = false}
    @icon_3 = Icon.new($janela_base,"Item 4","Habilidades",38,16,[LANGUAGE::ICON2],false) {$skill.refresh; $skill.visible = true; $skill.active = true} #$skill_b.visible = true; $skill_b.active = true}
    @icon_4 = Icon.new($janela_base,"Item 2","Status",132,17,[LANGUAGE::ICON3],false)  {$status.refresh;$status.visible = true; $status.active = true}
    @icon_5 = Icon.new($janela_base,"Item 5","Guild",177,17,[LANGUAGE::ICON4],false) {open_guild}
    @icon_6 = Icon.new($janela_base,"Quest","Quest",13,16,[LANGUAGE::ICON5],false) {$quest_list.refresh; $quest_list.visible = true; $quest_list.active = true}
    @icon_7 = Icon.new(@janela_base,"Options","Options",227,17,["Opções "],false){$options.visible = true}
    #Menu dos outros jogadores
    @_netcommand = Window_Normal.new(0,0,156,140)
    @_netcommand.back_opacity = 180
    @_netcommand.closable = true
    @_netcommand.dragable = true
    @_netcommand.visible = false
    @_netcommand.z = 9999
    @_netcommand_buttonA = Button.new(@_netcommand,12,20,LANGUAGE::COMMAND1){netcommand("info"); $fechando_ativar = true}
    @_netcommand_buttonB = Button.new(@_netcommand,12,40,LANGUAGE::COMMAND2){netcommand("pm"); $fechando_ativar = true}
    @_netcommand_buttonC = Button.new(@_netcommand,12,60,LANGUAGE::COMMAND3) {netcommand("trade"); $fechando_ativar = true}
    @_netcommand_buttonD = Button.new(@_netcommand,12,80,LANGUAGE::COMMAND4) {netcommand("party"); $fechando_ativar = true}
    @_netcommand_buttonE = Button.new(@_netcommand,12,100,LANGUAGE::COMMAND5) {netcommand("guild"); $fechando_ativar = true}
    $options = Window_Options.new
    $options.visible = false
    $options.active = false
    $window_question = Window_Question.new
    $window_question.visible = false
    $window_question.active = false
    hud_map_main_draw
  end
 
  def active_netcommand(x,y,id)
    @_netcommand.x = x
    @_netcommand.y = y
    @_netcommand.visible = true
    @netcmd_id = id
  end
 
  def netcommand(cmd)
    return if @netcmd_id == nil or @netcmd_id.to_i == 0
    case cmd
    when "trade"
    if $trade_a != true
      if $item_w.visible != true
        $equip_w.visible = true
        $equip_w.active = true
        $item_w.visible = true
        $item_w.active = true
        $janela_gold_w.visible = true
      end
        $trade_w = Trade_List2.new(@netcmd_id)
        $trade_w_2 = Trade_List3.new(@netcmd_id)
        @trade_w_2_button = Button2.new($trade_w_2,67,85,LANGUAGE::TRADEACCEPT) {Network::Main.pchat($trade_lider_id,"[COM] [TRADE_ACEITAR_TROCA]")}#{$trade_w.trocando_items}
        @trade_w_2_button_2 = Button2.new($trade_w_2,117,85,LANGUAGE::TRADELEAVE) {trocando_sair(1); $convite_trade = false; $fechando_ativar = true}
        #$trade_w.closable = true
        $trade_w.dragable = true
        $trade_lider_id = @netcmd_id
        name = $game_party.actors[0].name
        Network::Main.pchat(@netcmd_id,"[COM] [TRADE] #{name}")
        $trade_a = true
      end
    when "pm"
      for p in Network::Main.mapplayers.values
      if p.netid == @netcmd_id
        @private_input.text = p.nome
        @chat_privado.visible = true
        @chat_privado.active = true
        @box.active = true
        $chat_id = 5
      end
    end
    when "party"
    for p in Network::Main.mapplayers.values
      if p.netid == @netcmd_id
        if $party.empty?
          $lider_hud = p
          char = @netcmd_id
          name = $game_party.actors[0].name
          Network::Main.pchat(@netcmd_id,"[COM] [PT] #{name} #{char}")
          for i in 0..$party.members.size
            if $party.members[i] != nil
            end
          end
        else
          $game_temp.chat_log.push(LANGUAGE::PARTYFULL)
        end
      end
    end
    when "guild"
      if $game_party.actors[0].guild != ""
        if $guild_position == LANGUAGE::GUILDLEADER
          $netcmd_id_guild = @netcmd_id
          flag = $flag.to_s
          guild_name = $game_party.actors[0].guild
          lider_name = $game_party.actors[0].name
          Network::Main.pchat($netcmd_id_guild,"[COM] [IN] #{guild_name} #{flag} #{lider_name}")
        else
          $msg.set_text(LANGUAGE::NOTLEADERGUILD,22, -3)
          $msg.visible = true
          $msg.active = true
        end
      else
        $msg.set_text(LANGUAGE::NOTGUILD,15, -3)
        $msg.visible = true
        $msg.active = true
      end
    when "info"
      for p in Network::Main.mapplayers.values
        if p.netid == @netcmd_id
          char = p
          if char.grupo == "Admin"
            $game_temp.chat_log.push("#{char.nome} "+LANGUAGE::PLAYERADMIN)
          else 
            if char.sexo == LANGUAGE::MAN
              sexoo = LANGUAGE::HE
            else
              sexoo = LANGUAGE::SHE
            end
            if char.guild == ""
              $game_temp.chat_log.push("#{char.nome} está no level #{char.level}. Não tem guild")
            else
              $game_temp.chat_log.push("#{char.nome} está no level #{char.level}. #{sexoo} é #{char.position} da guild #{char.guild}")
            end
          end
        end
      end
    end
  @_netcommand.visible = false
  end 
 
  def aceitar_convite
    if $convite_guild1 == true
      $convite.visible = false
      $convite.active = false
      $guild_name = $guild_nominho.to_s
      $flag = $flag_nominho
      $game_party.actors[0].guild = $guild_nominho
      $guild_position = LANGUAGE::GUILDRANK
      $guild_lider_name = $lider_nominho
      $game_player.refresh
      $game_map.need_refresh = true
      Network::Main.send_start
    elsif $convite_trade == true
      $convite.visible = false
      $convite.active = false
      $trade_w.trocando_items
    elsif $convite_guild2 == true
      $convite.visible = false
      $convite.active = false
      $guild_name = $guild_text.to_s
      $game_party.actors[0].guild = $guild_text.to_s
      $flag = $flag_text.to_s
      $guild_position = LANGUAGE::GUILDRANK
      $guild_lider_name = $lider_g_lider.to_s
      Network::Main.update_guild
      $game_player.refresh
      $scene = Scene_Map.new
      Network::Main.send_start
    elsif $convite_party == true
      $convite.visible = false
      $convite.active = false
      $divide_exp = true
      char_id = $char_idzinho
      name = $game_party.actors[0].name
      $party.party_start($lider_party)
      Network::Main.pchat($lider_party.netid,"[COM] [OK] #{name} #{char_id}")
      Network::Main.pchat($lider_party.netid,"#{name} "+LANGUAGE::ACCEPTPARTY)
      $game_temp.chat_log.push("#{name} "+LANGUAGE::ACCEPTPARTY)
    end
  end
 
  def recusar_convite
    $convite.visible = false
    $convite.active = false
  end 
 
  def dispose
    $janela_gold_w.dispose
    $janela_amount_w.dispose
    if $trade_a == true
      $trade_w.dispose
      $trade_w_2.dispose
    end
    $status.dispose
    if $loja == true
      $loja_w.dispose
    end
    $adm_w.dispose
    @_netcommand.dispose
    $skill.dispose
    @icon_1.dispose
    @icon_3.dispose
    @icon_4.dispose
    @icon_6.dispose
    $janela_base.dispose
    $help_w.dispose
    $help_w_2.dispose
    $quest_list.dispose
    $quest_w.dispose
    $item_w.dispose
    $equip_w.dispose
    $guild_w.dispose
    $guild_created.dispose
    @icon_5.dispose
    $flag1.dispose
    $flag2.dispose
    $msg.dispose
    $painel_adm.dispose
    $convite.dispose
    $teleport.dispose
    $member_list.dispose
    $options.dispose
    $window_question.dispose
    @icon_7.dispose
  end
 
  def open_guild
    if Network::Main.user_exist?($guild_name.to_s+"-Guild-DEL") == true
      $msg.set_text(LANGUAGE::GUILDDELETED,11, -3)
      $msg.visible = true
      $msg.active = true
      $guild_name = ""
      $game_party.actors[0].guild = ""
      $game_player.refresh
      $guild_position = LANGUAGE::GUILDRANK
      $guild_lider_name = ""
      $guild_points = 0
      $flag2.visible = false
      return
    end
    if $game_party.actors[0].guild == ""
      $msg.set_text(LANGUAGE::NOTGUILD,15, -3)
      $msg.visible = true
      $msg.active = true
    else 
      if $guild_points >= 50 and $guild_position != LANGUAGE::GUILDLEADER
        $guild_position = LANGUAGE::VETERAN
      end 
      $guild_created.refresh
      $guild_created.visible = true
      $guild_created.active = true
      $flag2.visible = true
      $guild_created.refresh
      $flag2.draw
    end
  end

  def call_shop
    if $loja == true
      if $janela_item != true
        $equip_w.visible = true
        $equip_w.active = true
        $item_w.visible = true
        $item_w.active = true
        $janela_gold_w.visible = true
      end
      $game_temp.shop_calling = false
    else
      $game_temp.shop_calling = false
      $game_player.straighten
      $loja_w = Window_ShopBuy2.new($game_temp.shop_goods)
      $loja = true
      $loja_w.refresh
      $loja_w.visible = true
      $loja_w.active = true
      $loja_w.closable = true
      $loja_w.dragable = true
      $janela_amount_w.refresh
      $janela_amount_w.visible = true
      $amount = 1
      if $janela_item != true
        $equip_w.visible = true
        $equip_w.active = true
        $item_w.refresh
        $item_w.visible = true
        $item_w.active = true
        $janela_gold_w.refresh
        $janela_gold_w.visible = true
      end
    end
  end

  def update
    $quest_w.update if $quest_w.visible
    $quest_list.update if $quest_list.visible
    $janela_gold_w.update if $janela_gold_w.visible
    @icon_1.update if @icon_1.in_area?
    @icon_3.update if @icon_3.in_area?
    @icon_4.update if @icon_4.in_area?
    @icon_5.update if @icon_5.in_area?
    @icon_6.update if @icon_6.in_area?
    @icon_7.update if @icon_7.in_area?
    $options.update
    $window_question.update
    $window_question.update
    @_netcommand.update if @_netcommand.visible if Graphics.frame_count % 1 == 0
   
    if $skill.in_area? or $arrastando_poxa == true
      $skill.update if $skill.visible if Graphics.frame_count % 1 == 0
    end
   
    if $item_w.in_area? or $arrastando_poxa == true
      $item_w.update if $item_w.visible if Graphics.frame_count % 1 == 0
    end
   
    if $equip_w.in_area? or $arrastando_poxa == true
      $equip_w.update if $equip_w.visible if Graphics.frame_count % 1 == 0
    end
   
    $help_w.update if $help_w.visible if Graphics.frame_count % 1 == 0
    $help_w_2.update if $help_w_2.visible if Graphics.frame_count % 1 == 0
    $guild_w.update if $guild_w.visible
    $guild_created.update if $guild_created.visible
    $msg.update if $msg.visible if Graphics.frame_count % 1 == 0
    $painel_adm.update if $painel_adm.visible if Graphics.frame_count % 1 == 0
    $convite.update if $convite.visible if Graphics.frame_count % 1 == 0
    $teleport.update if $teleport.visible
   
    if $member_list.in_area? or $arrastando_poxa == true
      $member_list.update if $member_list.visible if Graphics.frame_count % 1 == 0
    end
    $status.update if $status.visible
   
    if @player_num != $mais_num
      enviar_passos
      @player_num = $mais_num
      return
    end
   
    if $trade_a == true
      $trade_w.update if $trade_w.visible if Graphics.frame_count % 1 == 0
      $trade_w_2.update if $trade_w_2.visible if Graphics.frame_count % 1 == 0
    end
    if $loja == true
      $loja_w.update if Graphics.frame_count % 1 == 0
    end
 
    if Input.pressed?(Input::Mouse_Left) and $event_opa != nil
      return if $fechando_ativar == true
      $game_map.events[$event_opa].opacity = 255
      $event_opa = nil
      $event_leva = nil
    end
 
    if Input.pressed?(Input::Mouse_Left) and $player_opa != nil
      return if $fechando_ativar == true
      $player_leva.opacity = 255
      $player_opa = nil
      $player_leva = nil
    end
   
    hud_map_update
   
    if $equip_w.visible
      $equip_w.equip_item
    end 
   
    if $member_list.visible
      $guild_created.x = $member_list.x
      $guild_created.y = $member_list.y
    end
 
    if $guild_created.visible
      $member_list.x = $guild_created.x
      $member_list.y = $guild_created.y
    end
   
    if $trade_a == true
      if $trade_w.visible
        $trade_w_2.x = $trade_w.x
        $trade_w_2.y = $trade_w.y + 96
      end
    end
   
    if $equip_w.visible
      $item_w.x = $equip_w.x
      $item_w.y = $equip_w.y + 140
      $janela_gold_w.x = $equip_w.x
      $janela_gold_w.y = $equip_w.y + 295
    end
   
    if $loja == true
      $janela_amount_w.x = $loja_w.x + 40
      $janela_amount_w.y = $loja_w.y + 160
    end
   
    if $trade_a == true
      $trade_w.selectindex
      $trade_w_2.selectindex
      $trade_w_2.click_trade
      $trade_w_2.click_soltar
      $trade_w_2.click_pegar
    end
   
    if $loja == true
      $loja_w.selectindex
      $loja_w.click_loja
      $loja_w.loja_vender
    end 
   
    if Input.trigger?(120) and $painel_adm.visible == false
      if Network::Main.group == 'admin'
        $painel_adm.visible = true
        $painel_adm.active = true
      end
    elsif Input.trigger?(120) and $painel_adm.visible == true
      if Network::Main.group == 'admin'
        $painel_adm.visible = false
        $painel_adm.active = false
      end
    end
   
    if $item_w.visible
      $item_w.selectindex
      $item_w.click
      $item_w.comprar_loja
      @hotkey.select_skill
      $item_w.voltar_mouse
      if $loja == true
        if $item_w.in_area? or $loja_w.in_area?
          $Memorizar_x = $Mouse.x
          $Memorizar_y = $Mouse.y
          if $item_w.in_area?
            if $item_w.item == nil
              $memorizando = false
              return
            end
            $help_loja = false
            $help_item = true
            $memorizando = true
          else
            if $loja_w.item == nil
              $memorizando = false
              return
            end 
            $help_loja = true
            $help_item = false
            $memorizando = true
          end
        else 
          $help_w.visible = false
          $help_w.active = false
          $memorizando = false
      end
    elsif $loja != true and $trade_a != true
      if $item_w.in_area?
        return if $item_w.item == nil
        $Memorizar_x = $Mouse.x
        $Memorizar_y = $Mouse.y
        $memorizando = true
        $help_loja = false
        $help_item = true
      else 
        $help_w.visible = false
        $help_w.active = false
        $memorizando = false
      end
    elsif $trade_a == true
      $Memorizar_x = $Mouse.x
      $Memorizar_y = $Mouse.y
      if $item_w.in_area?
        if $item_w.item == nil
          $memorizando = false
          return
        end 
        $help_trade = false
        $help_trade_2 = false
        $help_item = true
        $help_loja = false
        $memorizando = true
    elsif $trade_w.in_area?
      if $trade_w.item == nil
        $memorizando = false
        return
      end
      $help_trade = true
      $help_trade_2 = false
      $help_item = false
      $help_loja = false
      $memorizando = true
    elsif $trade_w_2.in_area?
      if $trade_w_2.item == nil
        $memorizando = false
        return
      end
      $help_trade = false
      $help_trade_2 = true
      $help_item = false
      $help_loja = false
      $memorizando = true
    end
    end
  end

  if $skill.visible
    $skill.selectindex
    $skill.click
    @hotkey.select_skill
    $skill.voltar_mouse
    if $skill.in_area?
      $Memorizar_x = $Mouse.x
      $Memorizar_y = $Mouse.y
      if $skill.skill == nil
        $memorizando_skill = false
        return
      end 
      $memorizando_skill = true
    end
  end
 
  if @hotkey.visible
    @hotkey.usehotkey
  end

  if Input.trigger?(Input::B)
    $game_player.clear_path
    if $skill.visible = true
      $skill.visible = false
      $skill.active = false
      $help_w_2.visible = false
      $help_w_2.active = false
      $mouse_iconfor = "arrow"
      $game_temp.atualizar_mouse = true
    end
    if $guild_w.visible
      $guild_w.visible = false
      $guild_w.active = false
      $flag1.visible = false
    end
    if $item_w.visible
      $item_w.visible = false
      $item_w.active = false
      $help_w.visible = false
      $help_w.active = false
      $janela_gold_w.visible = false
      $mouse_iconfor = "arrow"
      $game_temp.atualizar_mouse = true
    end
    if $equip_w.visible
      $equip_w.visible = false
      $equip_w.active = false
    end 
    if $guild_created.visible
      $guild_created.visible = false
      $guild_created.active = false
      $flag2.visible = false
    end
    if $painel_adm.visible
      $painel_adm.visible = false
      $painel_adm.active = false
    end
    if $msg.visible
      $msg.visible = false
      $msg.active = false
    end
    if $quest_w.visible or $quest_list.visible
      $quest_list.visible = false
      $quest_list.active = false
      $quest_w.visible = false
      $quest_w.active = false
    end
    if $member_list.visible
      $member_list.visible = false
      $member_list.active = false
    end
    if $teleport.visible
      $teleport.visible = false
      $teleport.active = false
    end
    if $status.visible
      $status.visible = false
      $status.active = false
    end
    if $loja == true
      $loja_w.visible = false
      $loja_w.active = false
      $janela_amount_w.visible = false
      $loja = false
      $mouse_iconfor = "arrow"
      $game_temp.atualizar_mouse = true
    end
  end
   
  def use_skill(skill)
    $ABS.player_skill(skill.id) if $ABS != nil and $game_party.actors[0].hp >= 1
  end
end
 
# Fim da Classe
end
# Fim do SDK
end

def trocando_sair(id)
  return if $fechando_ativar == true
  $trade_w_2.maxitens(id)
  return
end

#Edit2: As Unicas Modificações do meu game é Nova Window Help_Itens e Help_Skill.

Muinto ´Perfeito! +1 Cred

agora ta funcionando certinho! Vlw

Aqui ainda dá erro na 115, tentei mais n deu,

Código:

  @icon_7 = Icon.new($janela_base,"Item 6","Options",227,17,[LANGUAGE::ICON6],false){$options.visible = true}

Meu Script:

Código:

#==============================================================================
# ** Janelas no Mapa
#------------------------------------------------------------------------------
#  By Valentine
#==============================================================================

SDK.log("Hud", "Marlos_Gama", "1.0", "???")

if SDK.state('Hud') == true
 
class Scene_Map
  alias hud_map_main_draw main_draw
  alias hud_map_update update
 
  def main_draw
    #Quest
    $quest_list = Quest_list.new(100,80,207,230,1)
    $quest_list.visible = false
    $quest_list.active = false
    $quest_w = Window_Quests.new
    $quest_w.visible = false
    $quest_w.active = false
    #Janela de Dinheiro
    $janela_gold_w = Gold_Window.new
    $janela_gold_w.visible = false
    #Status
    $status = Window_Status2.new
    $status.visible = false
    $status.active = false
    #Mensagem do Administrador
    $adm_w = Global_Message.new
    $adm_w.visible = false
    #Criar Guild
    $guild_w = Window_CreateGuild.new(220,100,200,200)
    $flag1 = Flag.new($guild_w,"Flag",7,15,1)
    $flag1.visible = false
    $guild_w.visible = false
    $guild_w.active = false
    #Lista de Membros da Guild
    $member_list = Memberlist.new(220,90,207,220,1)
    $member_list.dragable = true
    $member_list.closable = true
    $member_list.visible = false
    $member_list.active = false
    #Acessa o Painel de Admin
    $painel_adm = Window_Painel.new(30,135,270,105)
    $painel_adm.visible = false
    $painel_adm.active = false
    $painel_input = Text_Box.new($painel_adm,10,62,200,30)
    #Convite de Party e Guild
    $convite = Window_Dummys_Convite.new(150,165,160,80)
    @convite_button1 = Button.new($convite,$convite.width/2+12, 45, LANGUAGE::CALLACCEPT,0,1) {aceitar_convite; $fechando_ativar = true}
    @convite_button2 = Button.new($convite,$convite.width/2+67, 45, LANGUAGE::CALLNOTACCEPT,0,1) {recusar_convite; $fechando_ativar = true}
    $convite.dragable = true
    $convite.closable = true
    $convite.visible = false
    $convite.active = false
    # Currency
    $currency = Window_Dummys.new(230,165,182,90)
    $currency.windowskin = RPG::Cache.windowskin("WindskinC")
    $currency.set_text("Quantidade:",43,-9,0,true)
    $currency_box = Text_Box.new($currency,25,30,120,10)
    @currency_button3 = Button.new($currency,30, 55, LANGUAGE::CALLACCEPT,0,1) {currency_accept}
    @currency_button4 = Button.new($currency,85, 55, LANGUAGE::CALLNOTACCEPT,0,1) {$currency.visible = false; $fechando_ativar = true}
    $currency.dragable = true
    $currency.visible = false
    $currency.active = false
    #Teletransporte
    $teleport = Window_Teleport.new(230,115,200,207,1)
    $teleport.dragable = true
    $teleport.closable = true
    $teleport.visible = false
    $teleport.active = false
    #Mensagem
    $msg = Window_Dummys.new(220,170,230,80)
    @msg_button = Button.new($msg,90, 45, LANGUAGE::MSGOK) {$msg.visible = false; $msg.active = false; $fechando_ativar = true}
    $msg.dragable = true
    $msg.closable = true
    $msg.visible = false
    $msg.active = false
    #Acessar Guild
    $guild_created = Window_Guild.new(220,90,207,220)
    $flag2 = Flag.new($guild_created,"Flag",10,15,2)
    $flag2.visible = false
    $guild_created.visible = false
    $guild_created.active = false
    #Menu de Habilidades
    $skill = Window_Skills.new
    $skill.visible = false
    $skill.active = false
    #Menu de Items
    $item_w = Window_Inventory.new
    $item_w.visible = false
    $item_w.active = false
    #Menu de Equips
    $equip_w = Window_Equip.new
    $equip_w.visible = false
    $equip_w.active = false
    #Informações dos Items
    $help_w = Window_Help2.new(0,0,175,170)
    $help_w.visible = false
    $help_w.active = false
    #Informações dos Skills
    $help_w_2 = Window_Help3.new(0,0,175,170)
    $help_w_2.visible = false
    $help_w_2.active = false
    #Icones
    $janela_base = Window_Base.new(400+8-45,0-4-2,300,300)
    $janela_base.opacity = 1
    @icon_1 = Icon.new($janela_base,"Item 1","Items",92,17,[LANGUAGE::ICON1],false) {$equip_w.refresh; $equip_w.visible = true; $equip_w.active = true; $item_w.visible = true; $item_w.active = true; $item_w.refresh; $janela_gold_w.visible = true; $janela_gold_w.refresh}#{$distribuir.visible = false; $distribuir.active = false;$skill.visible = false; $skill.active = false;$scene = Scene_Equip.new}#; $skill_b.visible = false; $skill_b.active = false}
    @icon_3 = Icon.new($janela_base,"Item 4","Habilidades",38,16,[LANGUAGE::ICON2],false) {$skill.refresh; $skill.visible = true; $skill.active = true} #$skill_b.visible = true; $skill_b.active = true}
    @icon_4 = Icon.new($janela_base,"Item 2","Status",132,17,[LANGUAGE::ICON3],false)  {$status.refresh;$status.visible = true; $status.active = true}
    @icon_5 = Icon.new($janela_base,"Item 5","Guild",177,17,[LANGUAGE::ICON4],false) {open_guild}
    @icon_6 = Icon.new($janela_base,"Item 3","Quest",13,16,[LANGUAGE::ICON5],false) {$quest_list.refresh; $quest_list.visible = true; $quest_list.active = true}
    @icon_7 = Icon.new($janela_base,"Item 6","Options",227,17,[LANGUAGE::ICON6],false){$options.visible = true}
    #Menu dos outros jogadores
    @_netcommand = Window_Normal.new(0,0,156,140)
    @_netcommand.back_opacity = 180
    @_netcommand.closable = true
    @_netcommand.dragable = true
    @_netcommand.visible = false
    @_netcommand.z = 9999
    @_netcommand_buttonA = Button.new(@_netcommand,12,20,LANGUAGE::COMMAND1,2){netcommand("info"); $fechando_ativar = true}
    @_netcommand_buttonB = Button.new(@_netcommand,12,40,LANGUAGE::COMMAND2,2){netcommand("pm"); $fechando_ativar = true}
    @_netcommand_buttonC = Button.new(@_netcommand,12,60,LANGUAGE::COMMAND3,2) {netcommand("trade"); $fechando_ativar = true}
    @_netcommand_buttonD = Button.new(@_netcommand,12,80,LANGUAGE::COMMAND4,2) {netcommand("party"); $fechando_ativar = true}
    @_netcommand_buttonE = Button.new(@_netcommand,12,100,LANGUAGE::COMMAND5,2) {netcommand("guild"); $fechando_ativar = true}
    $options = Window_Options.new
    $options.visible = false
    $options.active = false
    $window_question = Window_Question.new
    $window_question.visible = false
    $window_question.active = false
    hud_map_main_draw
  end
 
  def active_netcommand(x,y,id)
    @_netcommand.x = x
    @_netcommand.y = y
    @_netcommand.visible = true
    @netcmd_id = id
  end
 
  def netcommand(cmd)
    return if @netcmd_id == nil or @netcmd_id.to_i == 0
    case cmd
    when "trade"
    if $trade_a != true
      if $item_w.visible != true
        $equip_w.visible = true
        $equip_w.active = true
        $item_w.visible = true
        $item_w.active = true
        $janela_gold_w.visible = true
      end
        $trade_w = Trade_List2.new(@netcmd_id)
        $trade_w_2 = Trade_List3.new(@netcmd_id)
        @trade_w_2_button = Button.new($trade_w_2,67,85,LANGUAGE::TRADEACCEPT,0,1) {Network::Main.pchat($trade_lider_id,"[COM] [TRADE_ACEITAR_TROCA]")}#{$trade_w.trocando_items}
        @trade_w_2_button_2 = Button.new($trade_w_2,117,85,LANGUAGE::TRADELEAVE,0,1) {trocando_sair(1); $convite_trade = false; $fechando_ativar = true}
        #$trade_w.closable = true
        $trade_w.dragable = true
        $trade_lider_id = @netcmd_id
        name = $game_party.actors[0].name
        Network::Main.pchat(@netcmd_id,"[COM] [TRADE] #{name}")
        $trade_a = true
      end
    when "pm"
      for p in Network::Main.mapplayers.values
      if p.netid == @netcmd_id
        @private_input.text = p.nome
        @chat_privado.visible = true
        @chat_privado.active = true
        @box.active = true
        $chat_id = 5
      end
    end
    when "party"
    for p in Network::Main.mapplayers.values
      if p.netid == @netcmd_id
        if $party.empty?
          $lider_hud = p
          char = @netcmd_id
          name = $game_party.actors[0].name
          Network::Main.pchat(@netcmd_id,"[COM] [PT] #{name} #{char}")
          for i in 0..$party.members.size
            if $party.members[i] != nil
            end
          end
        else
          $game_temp.chat_log.push(LANGUAGE::PARTYFULL)
        end
      end
    end
    when "guild"
      if $game_party.actors[0].guild != ""
        if $guild_position == LANGUAGE::GUILDLEADER
          $netcmd_id_guild = @netcmd_id
          flag = $flag.to_s
          guild_name = $game_party.actors[0].guild
          lider_name = $game_party.actors[0].name
          Network::Main.pchat($netcmd_id_guild,"[COM] [IN] #{guild_name} #{flag} #{lider_name}")
        else
          $msg.set_text(LANGUAGE::NOTLEADERGUILD,22, -3)
          $msg.visible = true
          $msg.active = true
        end
      else
        $msg.set_text(LANGUAGE::NOTGUILD,15, -3)
        $msg.visible = true
        $msg.active = true
      end
    when "info"
      for p in Network::Main.mapplayers.values
        if p.netid == @netcmd_id
          char = p
          if char.grupo == "Admin"
            $game_temp.chat_log.push("#{char.nome} "+LANGUAGE::PLAYERADMIN)
          else 
            if char.sexo == LANGUAGE::MAN
              sexoo = LANGUAGE::HE
            else
              sexoo = LANGUAGE::SHE
            end
            if char.guild == ""
              $game_temp.chat_log.push("#{char.nome} está no level #{char.level}. Não tem guild")
            else
              $game_temp.chat_log.push("#{char.nome} está no level #{char.level}. #{sexoo} é #{char.position} da guild #{char.guild}")
            end
          end
        end
      end
    end
  @_netcommand.visible = false
  end 
 
  def aceitar_convite
    if $convite_guild1 == true
      $convite.visible = false
      $convite.active = false
      $guild_name = $guild_nominho.to_s
      $flag = $flag_nominho
      $game_party.actors[0].guild = $guild_nominho
      $guild_position = LANGUAGE::GUILDRANK
      $guild_lider_name = $lider_nominho
      $game_player.refresh
      $game_map.need_refresh = true
      Network::Main.send_start
    elsif $convite_trade == true
      $convite.visible = false
      $convite.active = false
      $trade_w.trocando_items
    elsif $convite_guild2 == true
      $convite.visible = false
      $convite.active = false
      $guild_name = $guild_text.to_s
      $game_party.actors[0].guild = $guild_text.to_s
      $flag = $flag_text.to_s
      $guild_position = LANGUAGE::GUILDRANK
      $guild_lider_name = $lider_g_lider.to_s
      Network::Main.update_guild
      $game_player.refresh
      $scene = Scene_Map.new
      Network::Main.send_start
    elsif $convite_party == true
      $convite.visible = false
      $convite.active = false
      $divide_exp = true
      char_id = $char_idzinho
      name = $game_party.actors[0].name
      $party.party_start($lider_party)
      Network::Main.pchat($lider_party.netid,"[COM] [OK] #{name} #{char_id}")
      Network::Main.pchat($lider_party.netid,"#{name} "+LANGUAGE::ACCEPTPARTY)
      $game_temp.chat_log.push("#{name} "+LANGUAGE::ACCEPTPARTY)
    end
  end
 
  def recusar_convite
    $convite.visible = false
    $convite.active = false
  end 
 
  def dispose
    $janela_gold_w.dispose
    if $trade_a == true
      $trade_w.dispose
      $trade_w_2.dispose
    end
    $status.dispose
    if $loja == true
      $loja_w.dispose
    end
    $adm_w.dispose
    @_netcommand.dispose
    $skill.dispose
    @icon_1.dispose
    @icon_3.dispose
    @icon_4.dispose
    @icon_6.dispose
    $janela_base.dispose
    $help_w.dispose
    $help_w_2.dispose
    $quest_list.dispose
    $quest_w.dispose
    $item_w.dispose
    $equip_w.dispose
    $guild_w.dispose
    $guild_created.dispose
    @icon_5.dispose
    $flag1.dispose
    $flag2.dispose
    $msg.dispose
    $painel_adm.dispose
    $convite.dispose
    $currency.dispose
    $teleport.dispose
    $member_list.dispose
    $options.dispose
    $window_question.dispose
    @icon_7.dispose
  end
 
  def open_guild
    if Network::Main.user_exist?($guild_name.to_s+"-Guild-DEL") == true
      $msg.set_text(LANGUAGE::GUILDDELETED,11, -3)
      $msg.visible = true
      $msg.active = true
      $guild_name = ""
      $game_party.actors[0].guild = ""
      $game_player.refresh
      $guild_position = LANGUAGE::GUILDRANK
      $guild_lider_name = ""
      $guild_points = 0
      $flag2.visible = false
      return
    end
    if $game_party.actors[0].guild == ""
      $msg.set_text(LANGUAGE::NOTGUILD,15, -3)
      $msg.visible = true
      $msg.active = true
    else 
      if $guild_points >= 50 and $guild_position != LANGUAGE::GUILDLEADER
        $guild_position = LANGUAGE::VETERAN
      end 
      $guild_created.refresh
      $guild_created.visible = true
      $guild_created.active = true
      $flag2.visible = true
      $guild_created.refresh
      $flag2.draw
    end
  end

  def call_shop
    if $loja == true
      if $janela_item != true
        $equip_w.visible = true
        $equip_w.active = true
        $item_w.visible = true
        $item_w.active = true
        $janela_gold_w.visible = true
      end
      $game_temp.shop_calling = false
    else
      $game_temp.shop_calling = false
      $game_player.straighten
      $loja_w = Window_ShopBuy2.new($game_temp.shop_goods)
      $loja = true
      $loja_w.refresh
      $loja_w.visible = true
      $loja_w.active = true
      $loja_w.closable = true
      $loja_w.dragable = true
      if $janela_item != true
        $equip_w.visible = true
        $equip_w.active = true
        $item_w.refresh
        $item_w.visible = true
        $item_w.active = true
        $janela_gold_w.refresh
        $janela_gold_w.visible = true
      end
    end
  end

  def update
    $quest_w.update if $quest_w.visible
    $quest_list.update if $quest_list.visible
    $janela_gold_w.update if $janela_gold_w.visible
    @icon_1.update if @icon_1.in_area?
    @icon_3.update if @icon_3.in_area?
    @icon_4.update if @icon_4.in_area?
    @icon_5.update if @icon_5.in_area?
    @icon_6.update if @icon_6.in_area?
    @icon_7.update if @icon_7.in_area?
    $options.update
    $window_question.update
    $window_question.update
    @_netcommand.update if @_netcommand.visible if Graphics.frame_count % 1 == 0
   
    if $skill.in_area? or $arrastando_poxa == true
      $skill.update if $skill.visible if Graphics.frame_count % 1 == 0
    end
   
    if $item_w.in_area? or $arrastando_poxa == true
      $item_w.update if $item_w.visible if Graphics.frame_count % 1 == 0
    end
   
    if $equip_w.in_area? or $arrastando_poxa == true
      $equip_w.update if $equip_w.visible if Graphics.frame_count % 1 == 0
    end
   
    $help_w.update if $help_w.visible if Graphics.frame_count % 1 == 0
    $help_w_2.update if $help_w_2.visible if Graphics.frame_count % 1 == 0
    $guild_w.update if $guild_w.visible
    $guild_created.update if $guild_created.visible
    $msg.update if $msg.visible if Graphics.frame_count % 1 == 0
    $painel_adm.update if $painel_adm.visible if Graphics.frame_count % 1 == 0
    $convite.update if $convite.visible if Graphics.frame_count % 1 == 0
    $currency.update if $currency.visible if Graphics.frame_count % 1 == 0
    $teleport.update if $teleport.visible
   
    if $member_list.in_area? or $arrastando_poxa == true
      $member_list.update if $member_list.visible if Graphics.frame_count % 1 == 0
    end
    $status.update if $status.visible
   
    if @player_num != $mais_num
      enviar_passos
      @player_num = $mais_num
      return
    end
   
    if $trade_a == true
      $trade_w.update if $trade_w.visible if Graphics.frame_count % 1 == 0
      $trade_w_2.update if $trade_w_2.visible if Graphics.frame_count % 1 == 0
    end
    if $loja == true
      $loja_w.update if Graphics.frame_count % 1 == 0
    end
 
    if Input.pressed?(Input::Mouse_Left) and $event_opa != nil
      return if $fechando_ativar == true
      $game_map.events[$event_opa].opacity = 255
      $event_opa = nil
      $event_leva = nil
    end
 
    if Input.pressed?(Input::Mouse_Left) and $player_opa != nil
      return if $fechando_ativar == true
      $player_leva.opacity = 255
      $player_opa = nil
      $player_leva = nil
    end
   
    hud_map_update
   
    if $equip_w.visible
      $equip_w.equip_item
    end 
   
    if $member_list.visible
      $guild_created.x = $member_list.x
      $guild_created.y = $member_list.y
    end
 
    if $guild_created.visible
      $member_list.x = $guild_created.x
      $member_list.y = $guild_created.y
    end
   
    if $trade_a == true
      if $trade_w.visible
        $trade_w_2.x = $trade_w.x
        $trade_w_2.y = $trade_w.y + 96
      end
    end
   
    if $equip_w.visible
      $item_w.x = $equip_w.x
      $item_w.y = $equip_w.y + 140
      $janela_gold_w.x = $equip_w.x
      $janela_gold_w.y = $equip_w.y + 295
    end
   
    if $trade_a == true
      $trade_w.selectindex
      $trade_w_2.selectindex
      $trade_w_2.click_trade
      $trade_w_2.click_soltar
      $trade_w_2.click_pegar
    end
   
    if $loja == true
      $loja_w.selectindex
      $loja_w.click_loja
      $loja_w.loja_vender
    end 
   
    if Input.trigger?(120) and $painel_adm.visible == false
      if Network::Main.group == 'admin'
        $painel_adm.visible = true
        $painel_adm.active = true
      end
    elsif Input.trigger?(120) and $painel_adm.visible == true
      if Network::Main.group == 'admin'
        $painel_adm.visible = false
        $painel_adm.active = false
      end
    end
   
    if $item_w.visible
      $item_w.selectindex
      $item_w.click
      $item_w.comprar_loja
      @hotkey.select_skill
      $item_w.voltar_mouse
      if $loja == true
        if $item_w.in_area? or $loja_w.in_area?
          $Memorizar_x = $Mouse.x
          $Memorizar_y = $Mouse.y
          if $item_w.in_area?
            if $item_w.item == nil
              $memorizando = false
              return
            end
            $help_loja = false
            $help_item = true
            $memorizando = true
          else
            if $loja_w.item == nil
              $memorizando = false
              return
            end 
            $help_loja = true
            $help_item = false
            $memorizando = true
          end
        else 
          $help_w.visible = false
          $help_w.active = false
          $memorizando = false
      end
    elsif $loja != true and $trade_a != true
      if $item_w.in_area?
        return if $item_w.item == nil
        $Memorizar_x = $Mouse.x
        $Memorizar_y = $Mouse.y
        $memorizando = true
        $help_loja = false
        $help_item = true
      else 
        $help_w.visible = false
        $help_w.active = false
        $memorizando = false
      end
    elsif $trade_a == true
      $Memorizar_x = $Mouse.x
      $Memorizar_y = $Mouse.y
      if $item_w.in_area?
        if $item_w.item == nil
          $memorizando = false
          return
        end 
        $help_trade = false
        $help_trade_2 = false
        $help_item = true
        $help_loja = false
        $memorizando = true
    elsif $trade_w.in_area?
      if $trade_w.item == nil
        $memorizando = false
        return
      end
      $help_trade = true
      $help_trade_2 = false
      $help_item = false
      $help_loja = false
      $memorizando = true
    elsif $trade_w_2.in_area?
      if $trade_w_2.item == nil
        $memorizando = false
        return
      end
      $help_trade = false
      $help_trade_2 = true
      $help_item = false
      $help_loja = false
      $memorizando = true
    end
    end
  end

  if $skill.visible
    $skill.selectindex
    $skill.click
    @hotkey.select_skill
    $skill.voltar_mouse
    if $skill.in_area?
      $Memorizar_x = $Mouse.x
      $Memorizar_y = $Mouse.y
      if $skill.skill == nil
        $memorizando_skill = false
        return
      end 
      $memorizando_skill = true
    end
  end
 
  if @hotkey.visible
    @hotkey.usehotkey
  end

  if Input.trigger?(Input::B)
    $game_player.clear_path
    if $skill.visible = true
      $skill.visible = false
      $skill.active = false
      $help_w_2.visible = false
      $help_w_2.active = false
      $mouse_iconfor = "arrow"
      $game_temp.atualizar_mouse = true
    end
    if $guild_w.visible
      $guild_w.visible = false
      $guild_w.active = false
      $flag1.visible = false
    end
    if $item_w.visible
      $item_w.visible = false
      $item_w.active = false
      $help_w.visible = false
      $help_w.active = false
      $janela_gold_w.visible = false
      $mouse_iconfor = "arrow"
      $game_temp.atualizar_mouse = true
    end
    if $equip_w.visible
      $equip_w.visible = false
      $equip_w.active = false
    end 
    if $guild_created.visible
      $guild_created.visible = false
      $guild_created.active = false
      $flag2.visible = false
    end
    if $painel_adm.visible
      $painel_adm.visible = false
      $painel_adm.active = false
    end
    if $msg.visible
      $msg.visible = false
      $msg.active = false
    end
    if $quest_w.visible or $quest_list.visible
      $quest_list.visible = false
      $quest_list.active = false
      $quest_w.visible = false
      $quest_w.active = false
    end
    if $member_list.visible
      $member_list.visible = false
      $member_list.active = false
    end
    if $teleport.visible
      $teleport.visible = false
      $teleport.active = false
    end
    if $status.visible
      $status.visible = false
      $status.active = false
    end
    if $loja == true
      $loja_w.visible = false
      $loja_w.active = false
      $currency.visible = false
      $loja = false
      $mouse_iconfor = "arrow"
      $game_temp.atualizar_mouse = true
    end
  end
   
  def use_skill(skill)
    $ABS.player_skill(skill.id) if $ABS != nil and $game_party.actors[0].hp >= 1
  end
end
 
# Fim da Classe
end
# Fim do SDK
end

def trocando_sair(id)
  return if $fechando_ativar == true
  $trade_w_2.maxitens(id)
  return
end

def currency_accept
  if $shopitemtype == 1
    $loja_w.sell_item
    $fechando_ativar = true
  else
    $item_w.buy_item
    $fechando_ativar = true
  end
end


é o Original...