Quellcode

class EnemyHP
 
#Konstanten
LIMIT = 'BILDNAME'
HOEHE = 10
 
  def initialize
    @data = Sprite.new
    @data.x, @data.y = 10, HOEHE
    @data.z = 9999
    @data.bitmap = Bitmap.new(128, 468)
    refresh
  end
 
#REFRESH
 
  def refresh
    @data.bitmap.clear
    $game_troop.enemies.each_index do |i|
      enemy = $game_troop.enemies[i]
      x = 0
      y = 0 + i * 15
      if enemy.hp > 0
        @data.bitmap.font.color = Color.new(255, 255, 64, 255)
        width = 100
        height = 5
        @data.bitmap.fill_rect(x-2, y+15, width+2,5, Color.new(0, 0, 0, 255))
        bitmap=RPG::Cache.picture(LIMIT)
        cw=bitmap.width
        ch=bitmap.height
        width = 100
        src_rect=Rect.new(0,0,cw,ch)
        dest_rect=Rect.new(x,y+15,width * enemy.hp / enemy.maxhp,5)
        @data.bitmap.stretch_blt(dest_rect,bitmap,src_rect)
        @data.bitmap.font.color = Color.new(255, 255, 255, 255)
        @data.bitmap.draw_text(x, y, 120, 32, enemy.name)
      end
    end
  end
 
  def dispose
    @data.bitmap.dispose
    @data.dispose
  end
 
end
 
class Scene_Battle
 
  alias main_process main
  def main
    @troop_id = $game_temp.battle_troop_id
    $game_troop.setup(@troop_id)
    @balken = EnemyHP.new
    main_process
    @balken.dispose
  end
 
  alias update_battle4 update_phase4_step1
  def update_phase4_step1
    @balken.refresh
    update_battle4
  end
 
end