Ruby Quellcode

class Balken
  Breite = 15
  Hoehe = 5
  Gruen = Color.new(0,255,0)
  Rot = Color.new(255,0,0)
 
  attr_accessor :sprite
  attr_accessor :event
 
  def initialize
	@bmp = ""
	@sprite = Sprite.new
	@sprite.bitmap = Bitmap.new(Breite,Hoehe)
	@event = nil
  end
 
  def refresh(green)
	@sprite.bitmap.clear
	rect1 = Rect.new(0,0,Breite/green,Hoehe)
	rect2 = Rect.new(Breite/green,0,Breite-Breite/green,Hoehe)
	@sprite.bitmap.fill_rect(rect1,Gruen)
	@sprite.bitmap.fill_rect(rect2,Rot)
	update
  end
 
  def update
	x = @event.screen_x
	y = @event.screen_y
	dummy_bitmap = RPG::Cache.character(@event.character_name,0)
	x += dummy_bitmap.width/4/4
	x -= Breite
	y -= dummy_bitmap.height/4+8
	@sprite.x = x
	@sprite.y = y
  end
 
  def dispose
	@sprite.bitmap.dispose
	@sprite.dispose
  end
end
 
class Game_Map
  attr_accessor :balken
  alias oldbalkenini initialize
  def initialize(*args)
	@balken = {}
	oldbalkenini(*args)
  end
 
  alias oldbalkenset setup
  def setup(*args)
	for i in @balken.values
  	i.dispose
	end
	@balken = {}
	oldbalkenset(*args)
  end
 
  alias oldbalkenup update
  def update(*args)
	oldbalkenup(*args)
	for i in @balken.values
  	i.update
	end
  end
end
 
class Interpreter
  def add_balken(event_id)
	i = Balken.new
	if event_id == 0
  	char = $game_player
	else
  	char = $game_map.events[event_id]
	end
	i.event = char
	$game_map.balken[event_id] = i
  end
 
  def remove_balken(event_id)
	for n in $game_map.balken.keys
  	if n == event_id
    	$game_map.balken[n].dispose
    	$game_map.balken[n] = nil
  	end
	end
	$game_map.balken.compact!
  end
 
  def refresh_balken(event_id,var1,var2)
	wert = var1.to_f/var2.to_f
	$game_map.balken[event_id].refresh(wert)
  end
end