class BushBitmap
  def initialize(bitmap,isTile,depth)
    @bitmaps  = []
    @bitmap   = bitmap
    @isTile   = isTile
    @isBitmap = @bitmap.is_a?(Bitmap)
    @depth    = depth
  end

  def dispose
    for b in @bitmaps
      b.dispose if b
    end
  end

  def bitmap
    thisBitmap = (@isBitmap) ? @bitmap : @bitmap.bitmap
    current = (@isBitmap) ? 0 : @bitmap.currentIndex
    if !@bitmaps[current]
      if @isTile
        @bitmaps[current] = pbBushDepthTile(thisBitmap,@depth)
      else
        @bitmaps[current] = pbBushDepthBitmap(thisBitmap,@depth)
      end
    end
    return @bitmaps[current]
  end

  def pbBushDepthBitmap(bitmap,depth)
    ret = Bitmap.new(bitmap.width,bitmap.height)
    charheight = ret.height/4
    cy = charheight-depth-2
    for i in 0...4
      y = i*charheight
      if cy>=0
        ret.blt(0,y,bitmap,Rect.new(0,y,ret.width,cy))
        ret.blt(0,y+cy,bitmap,Rect.new(0,y+cy,ret.width,2),170)
      end
      ret.blt(0,y+cy+2,bitmap,Rect.new(0,y+cy+2,ret.width,2),85) if cy+2>=0
    end
    return ret
  end

  def pbBushDepthTile(bitmap,depth)
    ret = Bitmap.new(bitmap.width,bitmap.height)
    charheight = ret.height
    cy = charheight-depth-2
    y = charheight
    if cy>=0
      ret.blt(0,y,bitmap,Rect.new(0,y,ret.width,cy))
      ret.blt(0,y+cy,bitmap,Rect.new(0,y+cy,ret.width,2),170)
    end
    ret.blt(0,y+cy+2,bitmap,Rect.new(0,y+cy+2,ret.width,2),85) if cy+2>=0
    return ret
  end
end



class Sprite_Character < RPG::Sprite
  attr_accessor :character

  def initialize(viewport, character = nil)
    super(viewport)
    @character    = character
    @oldbushdepth = 0
    @spriteoffset = false
    if !character || character==$game_player || (character.name[/reflection/i] rescue false)
      @reflection = Sprite_Reflection.new(self,character,viewport)
    end
    @surfbase     = Sprite_SurfBase.new(self,character,viewport) if character==$game_player
    update
  end

  def groundY
    return @character.screen_y_ground
  end

  def visible=(value)
    super(value)
    @reflection.visible = value if @reflection
  end

  def dispose
    @bushbitmap.dispose if @bushbitmap
    @bushbitmap = nil
    @charbitmap.dispose if @charbitmap
    @charbitmap = nil
    @reflection.dispose if @reflection
    @reflection = nil
    @surfbase.dispose if @surfbase
    @surfbase = nil
    super
  end

  def update
    return if @character.is_a?(Game_Event) && !@character.should_update?
    super
    if @tile_id!=@character.tile_id or
       @character_name!=@character.character_name or
       @character_hue!=@character.character_hue or
       @oldbushdepth!=@character.bush_depth
      @tile_id        = @character.tile_id
      @character_name = @character.character_name
      @character_hue  = @character.character_hue
      @oldbushdepth   = @character.bush_depth
      if @tile_id>=384
        @charbitmap.dispose if @charbitmap
        @charbitmap = pbGetTileBitmap(@character.map.tileset_name,@tile_id,@character.character_hue)
        @charbitmapAnimated = false
        @bushbitmap.dispose if @bushbitmap
        @bushbitmap = nil
        @spriteoffset = false
        @cw = Game_Map::TILE_WIDTH
        @ch = Game_Map::TILE_HEIGHT
        self.src_rect.set(0,0,@cw,@ch)
        self.ox = @cw/2
        self.oy = @ch
        @character.sprite_size = [@cw,@ch]
      else
        @charbitmap.dispose if @charbitmap
        @charbitmap = AnimatedBitmap.new(
           "Graphics/Characters/"+@character.character_name,@character.character_hue)
        @charbitmapAnimated = true
        @bushbitmap.dispose if @bushbitmap
        @bushbitmap = nil
        @spriteoffset = @character_name[/offset/i]
        @cw = @charbitmap.width/4
        @ch = @charbitmap.height/4
        self.ox = @cw/2
        @character.sprite_size = [@cw,@ch]
      end
    end
    @charbitmap.update if @charbitmapAnimated
    bushdepth = @character.bush_depth
    if bushdepth==0
      self.bitmap = (@charbitmapAnimated) ? @charbitmap.bitmap : @charbitmap
    else
      @bushbitmap = BushBitmap.new(@charbitmap,(@tile_id>=384),bushdepth) if !@bushbitmap
      self.bitmap = @bushbitmap.bitmap
    end
    self.visible = !@character.transparent
    if @tile_id==0
      sx = @character.pattern*@cw
      sy = ((@character.direction-2)/2)*@ch
      self.src_rect.set(sx,sy,@cw,@ch)
      self.oy = (@spriteoffset rescue false) ? @ch-16 : @ch
      self.oy -= @character.bob_height
    end
    if self.visible
      if $PokemonSystem.tilemap==0 ||
         (@character.is_a?(Game_Event) && @character.name[/regulartone/i])
        self.tone.set(0,0,0,0)
      else
        pbDayNightTint(self)
      end
    end
    self.x          = @character.screen_x
    self.y          = @character.screen_y
    self.z          = @character.screen_z(@ch)
#    self.zoom_x     = Game_Map::TILE_WIDTH/32.0
#    self.zoom_y     = Game_Map::TILE_HEIGHT/32.0
    self.opacity    = @character.opacity
    self.blend_type = @character.blend_type
#    self.bush_depth = @character.bush_depth
    if @character.animation_id!=0
      animation = $data_animations[@character.animation_id]
      animation(animation,true)
      @character.animation_id = 0
    end
    @reflection.update if @reflection
    @surfbase.update if @surfbase
  end
end