#===============================================================================
# * Simple HUD - by FL (Credits will be apreciated)
#===============================================================================
#
# This script is for Pokémon Essentials. It displays a simple HUD with the
# party icons and some small text.
#
#===============================================================================
#
# To this script works, put it above main.
#
#===============================================================================

class Spriteset_Map
# If you wish to use a background picture, put the image path below, like
# BGPATH="Graphics/Pictures/battleMessage". I recommend a 512x64 picture
BGPATH="Graphics/Pictures/battleMessage"
USEBAR=false # Make as 'false' to don't show the blue bar
UPDATESPERSECONDS=0.15 # More updates = more lag.

alias :initializeoldFL :initialize
alias :disposeoldFL :dispose
alias :updateoldFL :update

def initialize(map=nil)
@hud = []
@updateRate = (UPDATESPERSECONDS>0) ?
(Graphics.frame_rate/UPDATESPERSECONDS).floor : 0x3FFF
initializeoldFL(map)
createHud
end

def dispose
disposeoldFL
disposeHud
end

def update
updateoldFL
updateHud
end

def createHud
return if !$Trainer # Don't draw the hud if the player wasn't defined
@hud = []
if USEBAR # Draw the blue bar
bar=IconSprite.new(0,0,@viewport1)
bar.bitmap=Bitmap.new(Graphics.width,64)
bar.bitmap.fill_rect(Rect.new(0,0,bar.bitmap.width,bar.bitmap.height),
Color.new(128,128,192))
@hud.push(bar)
end
if BGPATH != "" # Draw the bar image
bgbar=IconSprite.new(0,300,@viewport1)
bgbar.setBitmap(BGPATH)
@hud.push(bgbar)
end
# Draw the text
baseColor=Color.new(72,72,72)
shadowColor=Color.new(160,160,160)
@hud.push(BitmapSprite.new(Graphics.width,Graphics.height,@viewport1))
text1=_INTL("TU EQUIPO")
text2=_INTL(" POKEMON ")
textPosition=[
[text1,Graphics.width-64,110,2,baseColor,shadowColor],
[text2,Graphics.width-64,112,2,baseColor,shadowColor]
]
pbSetSystemFont(@hud[-1].bitmap)
pbDrawTextPositions(@hud[-1].bitmap,textPosition)
# Draw the pokémon icons
for i in 0...$Trainer.party.size
pokeicon=IconSprite.new(16+64*i,-8,@viewport1)
pokeicon.setBitmap(pbPokemonIconFile($Trainer.party))
pokeicon.src_rect=Rect.new(0,0,64,64)
@hud.push(pokeicon)
end
# Adjust z of every @hud sprite
for sprite in @hud
sprite.z+=600
end
end

def updateHud
if (Graphics.frame_count%@updateRate==0 && !@hud.empty?)
disposeHud
createHud
end
for sprite in @hud
sprite.update
end
end

def disposeHud
for sprite in @hud
sprite.dispose
end
@hud.clear
end
end