class ShadowSprite
  SHADOWLESS_SPRITES=[
    "BerryPlant",
    "Door",
    "Sign",
    "OutdoorLight",
    "Light",
    "HeadbuttTree",
    "Item",
    "Healing balls left",
    "Healing balls right",
    "Home door",
    "EVENT_BIRD",
    "train door",
    "OBJ_TOWER",
    "BASEPC"
  ]
 def initialize(sprite,event,viewport=nil,map=nil)
  @rsprite=sprite
  @map=map
  @sprite=Sprite.new(viewport)
  @sprite.bitmap=BitmapCache.load_bitmap("Graphics/Pictures/CharacterShadow.png")
  @event=event
  @disposed=false
  @viewport=viewport
  update
 end
 def dispose
  if !@disposed
   @sprite.dispose if @sprite
   @sprite=nil
   @disposed=true
  end
 end
 def disposed?
   @disposed
 end
 def update
  return if disposed?
  if !(@event==$game_player)
   @sprite.visible=!(@event.character_name=="" or @event.bush_depth>0 or SHADOWLESS_SPRITES.include?(@event.name))
  else
   @sprite.visible=!(@event.bush_depth>0 or !(@map.id==$game_map.id))
  end
  x=@rsprite.x-@rsprite.ox
  y=@rsprite.y-@rsprite.oy
  width=@rsprite.src_rect.width
  height=@rsprite.src_rect.height
  @sprite.x=x+width/2
  @sprite.y=y+height-4-26
  @sprite.y+=64 if !(@event==$game_player) && @event.name.include?("Bird")
  if @event==$game_player && $game_player.jumping?
  @sprite.x=x+width/2
  @sprite.y=((Graphics.height)/2)+(@sprite.bitmap.height/2)-46
  end
  @sprite.ox=@sprite.bitmap.width/2
  @sprite.oy=@sprite.bitmap.height/2
  @sprite.z=@rsprite.z-1
 end
end

class QuestSprite
  QUEST_SPRITE=[
    "Quest"
  ]
 def initialize(sprite,event,viewport=nil,map=nil)
  @rsprite=sprite
  @map=map
  @sprite=Sprite.new(viewport)
  @sprite.bitmap=BitmapCache.load_bitmap("Graphics/Pictures/characterExclamation.png")
  @event=event
  @disposed=false
  @viewport=viewport
  update
 end
 def dispose
  if !@disposed
   @sprite.dispose if @sprite
   @sprite=nil
   @disposed=true
  end
 end
 def disposed?
   @disposed
 end
 def update
  return if disposed?
  if !(@event==$game_player) &&  !$game_self_switches[[$game_map.map_id,@event.id,"D"]]
   @sprite.visible=(QUEST_SPRITE.include?(@event.name))
  else
   @sprite.visible=false
 end
  if !(@event==$game_player) &&  $game_self_switches[[$game_map.map_id,@event.id,"A"]]
  @sprite.bitmap=BitmapCache.load_bitmap("Graphics/Pictures/characterExclamation_active.png")
 end
  x=@rsprite.x-@rsprite.ox
  y=@rsprite.y-@rsprite.oy
  width=@rsprite.src_rect.width
  height=@rsprite.src_rect.height
  @sprite.x=x+width/2
  @sprite.y=y+height-4-30
  @sprite.y+=64 if !(@event==$game_player) && @event.name.include?("Bird")
  if @event==$game_player && $game_player.jumping?
    @sprite.x=x+width/2
    @sprite.y=((Graphics.height)/2)+(@sprite.bitmap.height/2)-46
  end
  @sprite.ox=@sprite.bitmap.width/2
  @sprite.oy=@sprite.bitmap.height/2
  @sprite.z=@rsprite.z+1
 end
end

class ReflectedSprite
  attr_accessor :visible
  attr_accessor :event

  def initialize(sprite,event,viewport=nil)
    @rsprite=sprite
    @sprite=nil
    @event=event
    @disposed=false
    @viewport=viewport
    update
  end

  def dispose
    if !@disposed
      @sprite.dispose if @sprite
      @sprite=nil
      @disposed=true
    end
  end

  def disposed?
    @disposed
  end

  def update
    return if disposed?
    currentY=@event.real_y.to_i/(4*Game_Map::TILEHEIGHT)
    limit=@rsprite.src_rect.height
    shouldShow=false
    # Clipping at Y
    i=0
    while i<@rsprite.src_rect.height+Game_Map::TILEHEIGHT
      nextY=currentY+1+(i>>5)
      if @event.map.terrain_tag(@event.x,nextY)!=PBTerrain::StillWater
        limit= ((nextY * (4*Game_Map::TILEHEIGHT))-@event.map.display_y+3).to_i/4
        limit-=@rsprite.y
        break
      else
        shouldShow=true
      end
      i+=Game_Map::TILEHEIGHT
    end
    shouldShow=false if !visible
    if limit>0 && shouldShow
      # Just-in-time creation of sprite
      if !@sprite
        @sprite=Sprite.new(@viewport)
      end
    else
      # Just-in-time disposal of sprite
      if @sprite
        @sprite.dispose
        @sprite=nil
      end
      return
    end
    if @sprite
      x=@rsprite.x-@rsprite.ox
      y=@rsprite.y-@rsprite.oy
      if @event.map.terrain_tag(@event.x,@event.y)==PBTerrain::StillWater
        y-=8; limit+=8   # Arbitrary shift reflection up if on still water
      end
      if @rsprite.character.character_name[/offset/]
        y-=32; limit+=8   # Counter sprites with offset
      end
      width=@rsprite.src_rect.width
      height=@rsprite.src_rect.height
      frame=(Graphics.frame_count%40)/10
      @sprite.x=x+width/2
      @sprite.y=y+height+height/2
      @sprite.ox=width/2
      @sprite.oy=height/2
      @sprite.angle=180.0
      @sprite.z=@rsprite.z-1 # below the player
      @sprite.zoom_x=@rsprite.zoom_x
      @sprite.zoom_y=@rsprite.zoom_y
      if frame==1
        @sprite.zoom_x*=1.05
      elsif frame==2
        @sprite.zoom_x*=1.1
      elsif frame==3
        @sprite.zoom_x*=1.05
      end
      @sprite.mirror=true
      @sprite.bitmap=@rsprite.bitmap
      @sprite.tone=@rsprite.tone
      @sprite.color=Color.new(248,248,248,96)
      @sprite.opacity=@rsprite.opacity*3/4
      @sprite.src_rect=@rsprite.src_rect
      if limit<@sprite.src_rect.height
        diff=@sprite.src_rect.height-limit
        @sprite.src_rect.y+=diff
        @sprite.src_rect.height=limit
        @sprite.y-=diff
      end
    end
  end
end



class ClippableSprite < Sprite_Character
  def initialize(viewport,event,tilemap)
    @tilemap=tilemap
    @_src_rect=Rect.new(0,0,0,0)
    super(viewport,event)
  end

  def update
    super
    @_src_rect=self.src_rect
    tmright=@tilemap.map_data.xsize*Game_Map::TILEWIDTH-@tilemap.ox
    echoln("x=#{self.x},ox=#{self.ox},tmright=#{tmright},tmox=#{@tilemap.ox}")
    if @tilemap.ox-self.ox<-self.x
      # clipped on left
      diff=(-self.x)-(@tilemap.ox-self.ox)
      self.src_rect=Rect.new(@_src_rect.x+diff,@_src_rect.y,
         @_src_rect.width-diff,@_src_rect.height)
      echoln("clipped out left: #{diff} #{@tilemap.ox-self.ox} #{self.x}")
    elsif tmright-self.ox<self.x
      # clipped on right
      diff=(self.x)-(tmright-self.ox)
      self.src_rect=Rect.new(@_src_rect.x,@_src_rect.y,
         @_src_rect.width-diff,@_src_rect.height)
      echoln("clipped out right: #{diff} #{tmright+self.ox} #{self.x}")
    else
      echoln("-not- clipped out left: #{diff} #{@tilemap.ox-self.ox} #{self.x}")
    end
  end
end



class Spriteset_Map
  attr_reader :map

  def initialize(map=nil)
    @map=map ? map : $game_map
    @viewport1 = Viewport.new(0, 0, Graphics.width,Graphics.height)
    @viewport1a = Viewport.new(0, 0, Graphics.width,Graphics.height)
    @viewport2 = Viewport.new(0, 0, Graphics.width,Graphics.height)
    @viewport3 = Viewport.new(0, 0, Graphics.width,Graphics.height)
    @viewport1a.z = 100
    @viewport2.z = 200
    @viewport3.z = 500
    @tilemap = TilemapLoader.new(@viewport1)
    @tilemap.tileset = pbGetTileset(@map.tileset_name)
    for i in 0..6
      autotile_name = @map.autotile_names[i]
      @tilemap.autotiles[i] = pbGetAutotile(autotile_name)
    end
    @tilemap.map_data = @map.data
    @tilemap.priorities = @map.priorities
    @panorama = AnimatedPlane.new(@viewport1)
    @panorama.z = -1000
    @fog = AnimatedPlane.new(@viewport1)
    @fog.z = 3000
    @reflectedSprites=[]
    @shadowSprites=[]
    @questSprites=[]
    @character_sprites = []
    for i in @map.events.keys.sort
      sprite = Sprite_Character.new(@viewport1, @map.events[i])
      @character_sprites.push(sprite)
      @shadowSprites.push(ShadowSprite.new(sprite,@map.events[i],@viewport1))
      @questSprites.push(QuestSprite.new(sprite,@map.events[i],@viewport1))
      @reflectedSprites.push(ReflectedSprite.new(sprite,@map.events[i],@viewport1))
    end
    playersprite=Sprite_Character.new(@viewport1, $game_player)
    @playersprite=playersprite
    @reflectedSprites.push(ReflectedSprite.new(playersprite,$game_player,@viewport1))
    @shadowSprites.push(ShadowSprite.new(playersprite,$game_player,@viewport1,@map))
    @questSprites.push(QuestSprite.new(playersprite,$game_player,@viewport1,@map))
    @character_sprites.push(playersprite)
    @weather = RPG::Weather.new(@viewport1a)
    @picture_sprites = []
    for i in 1..50
      @picture_sprites.push(Sprite_Picture.new(@viewport2,$game_screen.pictures[i]))
    end
    @timer_sprite = Sprite_Timer.new
    Kernel.pbOnSpritesetCreate(self,@viewport1)
    update
  end

  def dispose
    @tilemap.tileset.dispose
    for i in 0..6
      @tilemap.autotiles[i].dispose
    end
    @tilemap.dispose
    @panorama.dispose
    @fog.dispose
    for sprite in @character_sprites
      sprite.dispose
    end
    for sprite in @reflectedSprites
      sprite.dispose
    end
    for sprite in @shadowSprites
      sprite.dispose
    end
    for sprite in @questSprites
      sprite.dispose
    end
    @weather.dispose
    for sprite in @picture_sprites
      sprite.dispose
    end
    @timer_sprite.dispose
    @viewport1.dispose
    @viewport2.dispose
    @viewport3.dispose
    @tilemap=nil
    @panorama=nil
    @fog=nil
    @character_sprites.clear
    @reflectedSprites.clear
    @shadowSprites.clear
    @questSprites.clear
    @weather=nil
    @picture_sprites.clear
    @viewport1=nil
    @viewport2=nil
    @viewport3=nil
    @timer_sprite=nil
  end

  def in_range?(object)
    return true if $PokemonSystem.tilemap==2
    screne_x = @map.display_x
    screne_x -= 512
    screne_y = @map.display_y
    screne_y -= 512
    screne_width = @map.display_x
    screne_width += Graphics.width*4+512 # 3072
    screne_height = @map.display_y
    screne_height += Graphics.height*4+512 # 2432
    return false if object.real_x <= screne_x
    return false if object.real_x >= screne_width
    return false if object.real_y <= screne_y
    return false if object.real_y >= screne_height
    return true
  end

  def update
    if @panorama_name != @map.panorama_name or
       @panorama_hue != @map.panorama_hue
      @panorama_name = @map.panorama_name
      @panorama_hue = @map.panorama_hue
      if @panorama.bitmap != nil
        @panorama.setPanorama(nil)
      end
      if @panorama_name != ""
        @panorama.setPanorama(@panorama_name, @panorama_hue)
      end
      Graphics.frame_reset
    end
    if @fog_name != @map.fog_name or @fog_hue != @map.fog_hue
      @fog_name = @map.fog_name
      @fog_hue = @map.fog_hue
      if @fog.bitmap != nil
        @fog.setFog(nil)
      end
      if @fog_name != ""
        @fog.setFog(@fog_name, @fog_hue)
      end
      Graphics.frame_reset
    end
    tmox = @map.display_x.to_i / 4
    tmoy = @map.display_y.to_i / 4
    @tilemap.ox=tmox
    @tilemap.oy=tmoy
    if $PokemonSystem.tilemap==0
      # Original Map View only, to prevent wrapping
      @viewport1.rect.x=[-tmox,0].max
      @viewport1.rect.y=[-tmoy,0].max
      @viewport1.rect.width=
         [@tilemap.map_data.xsize*Game_Map::TILEWIDTH-tmox,Graphics.width].min
      @viewport1.rect.height=
         [@tilemap.map_data.ysize*Game_Map::TILEHEIGHT-tmoy,Graphics.height].min
      @viewport1.ox=[-tmox,0].max
      @viewport1.oy=[-tmoy,0].max
    else
      @viewport1.rect.set(0,0,Graphics.width,Graphics.height)
      @viewport1.ox=0
      @viewport1.oy=0
    end
    @viewport1.ox += $game_screen.shake
    @tilemap.update
    @panorama.ox = @map.display_x / 8
    @panorama.oy = @map.display_y / 8
    @fog.zoom_x = @map.fog_zoom / 100.0
    @fog.zoom_y = @map.fog_zoom / 100.0
    @fog.opacity = @map.fog_opacity
    @fog.blend_type = @map.fog_blend_type
    @fog.ox = @map.display_x / 4 + @map.fog_ox
    @fog.oy = @map.display_y / 4 + @map.fog_oy
    @fog.tone = @map.fog_tone
    @panorama.update
    @fog.update
    for sprite in @character_sprites
      if sprite.character.is_a?(Game_Event)
        if sprite.character.trigger == 3 || sprite.character.trigger == 4 ||
           in_range?(sprite.character)
          sprite.update
        end
      else
        sprite.update
      end
    end
    for sprite in @reflectedSprites
      sprite.visible=true
      sprite.visible=(@map==$game_map) if sprite.event==$game_player
      sprite.update
    end
    for sprite in @shadowSprites
      sprite.update
    end
    for sprite in @questSprites
      sprite.update
    end
    # Avoids overlap effect of player sprites if player is near edge of
    # a connected map
    @playersprite.visible=@playersprite.visible && (
       self.map==$game_map || $game_player.x<=0 || $game_player.y<=0 ||
       ($game_map && ($game_player.x>=$game_map.width ||
       $game_player.y>=$game_map.height)))
    if self.map!=$game_map
      @weather.max-=2 if @weather.max>0
      @weather.max=0 if @weather.max<0
      @weather.type = 0 if @weather.max==0
      @weather.ox = 0 if @weather.max==0
      @weather.oy = 0 if @weather.max==0
    else
      @weather.type = $game_screen.weather_type
      @weather.max = $game_screen.weather_max
      @weather.ox = @map.display_x / 4
      @weather.oy = @map.display_y / 4
    end
    @weather.update
    for sprite in @picture_sprites
      sprite.update
    end
    @timer_sprite.update
    @viewport1.tone = $game_screen.tone
    @viewport1a.ox += $game_screen.shake
    @viewport3.color = $game_screen.flash_color
    @viewport1.update
    @viewport1a.update
    @viewport3.update
  end
end