Window_PlayersOn

#==============================================================================
# ** 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
#Players On
$players_on = Window_PlayersOn.new(25,70,140,260)
$players_on.visible = false
$players_on.active = false
#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(413-40,-6,235+40,57)#(413,-6,235,57)
$janela_base.opacity = 1
@icon_0 = Icon.new($janela_base,"Item 1","Players",10,17,[LANGUAGE::ICON0],false) {$players_on.refresh; $players_on.visible = true; $players_on.active = true}
@icon_1 = Icon.new($janela_base,"Item 1","Items",58,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",84,16,[LANGUAGE::ICON2],false) {$skill.refresh; $skill.visible = true; $skill.active = true}
@icon_4 = Icon.new($janela_base,"Item 2","Status",136,17,[LANGUAGE::ICON3],false) {$status.refresh;$status.visible = true; $status.active = true}
@icon_5 = Icon.new($janela_base,"Item 5","Guild",181,17,[LANGUAGE::ICON4],false) {open_guild}
@icon_6 = Icon.new($janela_base,"Quest","Quest",200+10,17,[LANGUAGE::ICON5],false) {$quest_list.refresh; $quest_list.visible = true; $quest_list.active = 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}
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_0.dispose
@icon_1.dispose
@icon_3.dispose
@icon_4.dispose
@icon_6.dispose
$janela_base.dispose
$players_on.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
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
#$players_on.update if $players_on.visible
$quest_w.update if $quest_w.visible
$quest_list.update if $quest_list.visible
$janela_gold_w.update if $janela_gold_w.visible
@icon_0.update if @icon_0.in_area?
@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?
@_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
$players_on.update if $players_on.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 $players_on.visible
$players_on.visible = false
$players_on.active = false
end
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