Zobacz temat - CMS z serduszek.

Spoiler:

Kod:

# ================================================================
# Heart HUD script
# ----------------------------------------------------------------
# * by Sabikku
# * 1.05.10
# * zamthir.net/forum
# * ultimateam.pl
# ================================================================

ALIGN = 2 # 1 - top-left, 2 - top-right, 3 - bottom-left, 4 - bottom-right
HUD_OPACITY = 120
HUD_Y_MODIFICATOR = +0 # Modificator for y coordinates of hud window.
HUD_X_MODIFICATOR = +0 # Modificator for x coordinates of hud window.

HEART_NAME = "hpbar.png"
HEART_WIDTH = 48
HEART_HEIGHT = 32
HEART_OPACITY = 150

# ================================================================
# MODIFICATIONS
# ================================================================

class Scene_Map
attr_accessor :hud_window
# Main. --------------------------------------------------------
alias sab_map_main main
def main
# Making a hud window.
@hud_window=Window_Hud.new
# Remembering actor hp and maxhp.
@rem_hp=$game_party.actors[0].hp
@rem_maxhp=$game_party.actors[0].maxhp
sab_map_main # Normal initialize.
# Disposing a hud window.
@hud_window.dispose
end

# Update. ------------------------------------------------------
alias sab_map_update update
def update
# Checking actor hp and maxhp.
if @rem_hp!=$game_party.actors[0].hp
@rem_hp=$game_party.actors[0].hp
@hud_window.refresh # Refreshing hearts.
end
if @rem_maxhp!=$game_party.actors[0].maxhp
@rem_maxhp=$game_party.actors[0].maxhp
@hud_window.dispose
@hud_window=Window_Hud.new # Recorrecting a window size.
end
# Updating a hud window.
@hud_window.update
sab_map_update # Normal update.
end
end

# ================================================================
# ACTUAL SCRIPT
# ================================================================

class Window_Hud < Window_Base
# Initialize. --------------------------------------------------
def initialize
# Making a window.
char=$game_party.actors[0]
if ALIGN==3 or ALIGN==4
x=640-16-char.maxhp*HEART_WIDTH; y=480-HEART_HEIGHT-32
else
x=0; y=0
end
width=16+char.maxhp*HEART_WIDTH
super(x+HUD_X_MODIFICATOR, y+HUD_Y_MODIFICATOR, width, HEART_HEIGHT+32)
self.opacity=0
self.contents_opacity=0
# Making a bitmap.
self.contents = Bitmap.new(width - 32, height - 32)
# Drawing contents.
refresh
end

# Update. ------------------------------------------------------
def update
super
# Updating visibility.
unless $game_system.map_interpreter.running?
self.opacity=[self.opacity+50, HUD_OPACITY].min
self.contents_opacity=[self.contents_opacity+50, 255].min
else
self.opacity=[self.opacity-50, 0].max
self.contents_opacity=[self.contents_opacity-50, 0].max
end
end

# Refresh. -----------------------------------------------------
def refresh
self.contents.clear
# Drawing contents of the window.
hearts_max=(640/HEART_WIDTH).to_i
for i in 0...hearts_max
# Heart opacity settings.
char=$game_party.actors[0]
if char.hp > i
opacity=HEART_OPACITY
elsif i < char.maxhp
opacity=(HEART_OPACITY/3).to_i
else
opacity=0
end
# Drawing one heart.
self.contents.blt(i*HEART_WIDTH, 0, RPG::Cache.picture(HEART_NAME), Rect.new(0, 0, HEART_WIDTH, HEART_HEIGHT), opacity)
end
end
end

# ================================================================