[XP] HUD - Sword Art Online

Ir em baixo

[XP] HUD - Sword Art Online

Mensagem por Crixus em Ter Jan 09, 2018 10:37 pm

Hud - Sword Art Online
Para RMXP


Clique aqui para ver a imagem

Criado por: lasso (para RMVXA )
Convertido para RMXP por: Crixus
Versão RMVX por: Faalco - Link
Compatibilidade: RMXP (Não sei quanto ao VX)

Demonstração:
Download - 4shared (use seu Gmail ou Facebook pra baixar)


Como usar:
Coloque acima de Main e o coloque as imagens HUD.png e HPBAR.png na pasta \Graphics\Pictures


HUD.png



HPBAR.png



Script:
Código:
#==============================================================================
# Hud - Sword Art Online - RMXP
#------------------------------------------------------------------------------
# Criador:  lasso (RMVXA)
# Convertido por Crixus para RMXP
#==============================================================================

class Spriteset_Map
  alias initialize_HUD initialize
  def initialize
    create_hud
    initialize_HUD
  end
  def create_hud
    @HUD = Sprite.new(nil)
    @HUD.z = 150
    @HUD.bitmap =Bitmap.new("Graphics/Pictures/HUD.png")
    @HPBAR = Sprite.new(nil)
    @HPBAR.z = 149
    @HPBAR.bitmap = Bitmap.new("Graphics/Pictures/HPBAR.png")

    @old_name = ""
    @old_hp = 0
    @old_max_hp = 0
    @old_level = 0
  end
  alias dispose_HUD dispose
  def dispose
    dispose_hud
    dispose_HUD
  end
  def dispose_hud
    @HUD.dispose
    @HPBAR.dispose
  end
  alias update_HUD update
  def update
    refresh_hud if @old_name != $game_party.actors[0].name or @old_hp != $game_party.actors[0].hp or @old_max_hp != $game_party.actors[0].maxhp or @old_level != $game_party.actors[0].level
    update_HUD
  end
  def refresh_hud
    @HUD.bitmap.clear
    @HUD.bitmap = Bitmap.new("Graphics/Pictures/HUD.png")
    @HUD.bitmap.draw_text(45, 22, 80, 30, $game_party.actors[0].name)
    @HUD.bitmap.font.size = 16
    @HUD.bitmap.draw_text(241, 45, 70, 20, $game_party.actors[0].hp.to_s + "/" +$game_party.actors[0].maxhp.to_s, 1)
    @HUD.bitmap.draw_text(311, 45, 30, 20, "Lv " + $game_party.actors[0].level.to_s, 1)
    @HPBAR.bitmap = Bitmap.new("Graphics/Pictures/HPBAR.png")
     for x in 126..335
      for y in 27..43
        if y>-3*x/2+313*$game_party.actors[0].hp/$game_party.actors[0].maxhp+218
          @HPBAR.bitmap.set_pixel(x,y,Color.new(0,0,0,0))
        end
      end
    end
    @old_level = $game_party.actors[0].level
    @old_hp = $game_party.actors[0].hp
    @old_max_hp = $game_party.actors[0].maxhp
    @old_name = $game_party.actors[0].name
  end
end
avatar
Crixus
Admin

Data de inscrição : 24/10/2009

http://www.youtube.com/tanatosmaker

Voltar ao Topo Ir em baixo

Voltar ao Topo


 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum