UltimaForum :: Zobacz temat - prośbA o przerobienie skryptu

Spoiler:

Kod:

#==============================================================================
# Requiem Enemies Bars
# www.ultimateam.pl
#==============================================================================
class Enemy_Name < Sprite
KOLOR_CZCIONKI = Color.new(255,255,255, 255) # Kolor RGB i przezroczystość 0~255
KOLOR_OTOCZKI = Color.new(0,0,0, 255) # Kolor RGB i przezroczystość 0~255
ROZMIAR_CZCIONKI = 16 # Rozmiar czcionki
NAZWA_CZCIONKI = "Arial" # Czcionka (folder Fonts)
KURSYWA = false # Kursywa (true / false)
POGRUBIENIE = true # Pogrubienie (true / false)
NAME_X_OFFSET = 5 # Przesunięcie nazwy zdarzenia w poziomie (+ / -)
NAME_Y_OFFSET = 56 # Przesunięcie nazwy zdarzenia w pionie (+ / -)
NAME_Z = 198 # Przesunięcie nazwy zdarzenia nad (+) lub pod (-) inne zdarzenia.

def initialize(enemy,viewport)
super(viewport)
@enemy = enemy
@name = enemy.actor.name.dup
@old_x = 0
@old_y = 0
bitmap = Bitmap.new(1,1)
@nsize = bitmap.text_size(@name)
bitmap.dispose
self.bitmap = Bitmap.new(@nsize.width, @nsize.height)
update
end

def update
refresh if change? and !self.disposed?
end

def refresh
@old_x = @enemy.screen_x-(self.bitmap.width/2) + NAME_X_OFFSET
@old_y = @enemy.screen_y - NAME_Y_OFFSET
self.x = @old_x
self.y = @old_y
self.z = NAME_Z
self.bitmap.clear
self.bitmap.font.color = KOLOR_OTOCZKI
self.bitmap.font.size = ROZMIAR_CZCIONKI
self.bitmap.font.name = NAZWA_CZCIONKI
self.bitmap.font.italic = KURSYWA
self.bitmap.font.bold = POGRUBIENIE
self.bitmap.draw_text(0+1, 0+1, @nsize.width, @nsize.height, @name)
self.bitmap.draw_text(0+1, 0-1, @nsize.width, @nsize.height, @name)
self.bitmap.draw_text(0-1, 0+1, @nsize.width, @nsize.height, @name)
self.bitmap.draw_text(0-1, 0-1, @nsize.width, @nsize.height, @name)
self.bitmap.font.color = KOLOR_CZCIONKI
self.bitmap.draw_text(0, 0, @nsize.width, @nsize.height, @name)

end

def dispoes
self.bitmap.dispose
self.dispose
end

def change?
if @enemy.actor.dead? or @enemy.in_battle == false
dispose
return false
end
return true if @old_x != @enemy.screen_x-(self.bitmap.width/2)
return true if @old_y != @enemy.screen_y
end

end

#------------------------------------------------------------------------------

class Requiem_EnemyHPBars < Sprite

def initialize(enemy,viewport)
super(viewport)
@enemy = enemy
@old_x = 0
@old_y = 0
self.bitmap = Bitmap.new(45,7)
update
end

def update
refresh if change? and !self.disposed?
end

def refresh
@old_x = @enemy.screen_x-(self.bitmap.width/2)
@old_y = @enemy.screen_y
self.x = @old_x
self.y = @old_y
self.bitmap.clear
draw_hp_gauge(@enemy.actor)
end

def dispoes
self.bitmap.dispose
self.dispose
end

def change?
if @enemy.actor.dead? or @enemy.in_battle == false
dispose
return false
end
return true if @old_x != @enemy.screen_x-(self.bitmap.width/2)
return true if @old_y != @enemy.screen_y
end

def draw_hp_gauge(object)
gw = ((self.bitmap.width-2) * object.hp) / object.maxhp
gc1 = Color.new(245,110,80)
gc2 = Color.new(120,0,0)
gc3 = Color.new(0,0,0)
self.bitmap.fill_rect(0,0,self.bitmap.width,self.bitmap.height,gc3)
self.bitmap.gradient_fill_rect(1,2,gw,self.bitmap.height-4,gc1,gc2)
end

end

#------------------------------------------------------------------------------
class Requiem_BossBar < Sprite

def initialize(id,viewport)
super(viewport)
@enemy = $game_map.events[id]
@hp = @enemy.actor.hp
self.bitmap = Bitmap.new(416,16)
self.x = 64
self.y = 330
refresh
end

def update
if @hp != @enemy.actor.hp
@hp = @enemy.actor.hp
refresh
end
end

def refresh
self.bitmap.clear
self.bitmap.fill_rect(0,0,self.bitmap.width,self.bitmap.height,Color.new(50,50,50))
cw = (self.bitmap.width-4)*@enemy.actor.hp/@enemy.actor.maxhp
ch = (self.bitmap.height-4)
self.bitmap.gradient_fill_rect(2,2,cw,ch/2,Color.new(255,255,240),Color.new(255,255,100))
self.bitmap.gradient_fill_rect(2,2+(ch/2),cw,ch/2,Color.new(255,247,153),Color.new(255,200,0))
end

def dispoes
self.bitmap.dispose
self.dispose
end
end

#------------------------------------------------------------------------------
class Scene_Map < Scene_Base

alias requiem_sbabs_enemyhp_smap_start start
alias requiem_sbabs_enemyhp_smap_update update
alias requiem_sbabs_enemyhp_smap_terminate terminate

def start
requiem_sbabs_enemyhp_smap_start
@enemys_hp = {}
@enemys_name = {}
end

def update
requiem_sbabs_enemyhp_smap_update
for event in $game_map.events.values
if event.in_battle
if event.boss == true
@boss_hud = Requiem_BossBar.new(event.id,@spriteset.viewport3) if @boss_hud == nil and !event.actor.dead?
@boss_hud.update if @boss_hud != nil and !event.actor.dead?
@boss_hud.dispose if @boss_hud != nil and event.actor.dead?
@boss_hud = nil if @boss_hud != nil and event.actor.dead?
else
if $game_player.in_range?($game_player,event,5)
next if event.show_bar or event.object == true or event.puzzle == true or Requiem_SBABS::Show_Enemies_HP_Bars == false
@enemys_hp[event.id] = Requiem_EnemyHPBars.new(event,@spriteset.viewport3)
event.show_bar = true
@enemys_name[event.id] = Enemy_Name.new(event,@spriteset.viewport3)
event.show_name = true
elsif event.show_bar and @enemys_hp[event.id] != nil
@enemys_hp[event.id].dispose if !@enemys_hp[event.id].disposed?
@enemys_hp[event.id] = nil
event.show_bar = false
@enemys_name[event.id].dispose if !@enemys_name[event.id].disposed?
@enemys_name[event.id] = nil
event.show_name = false
end
end
end
end
for bar in @enemys_hp.values
next if bar.nil? or bar.disposed?
bar.update
end
for name in @enemys_name.values
next if name.nil? or name.disposed?
name.update
end
end

def terminate
requiem_sbabs_enemyhp_smap_terminate
@boss_hud.dispose if @boss_hud != nil
@boss_hud = nil
for bar in @enemys_hp.values
next if bar.nil? or bar.disposed?
bar.dispose
end
for name in @enemys_name.values
next if name.nil? or name.disposed?
name.dispose
end
for event in $game_map.events.values
if event.in_battle
event.show_bar = false
end
end
end
end