Character shadows

     if [email protected][i].name[/noshadow/] # if there isn't 'noshadow' in the name?
        if [email protected][i].name[/door/] # if there isn't 'door' in the name?
          if [email protected][i].name[/berry/] # if there isn't 'berry' in the name?
            if [email protected][i].name[/object/] # if there isn't 'object' in the name?
                 @shadowSprites.push(SpriteShadow.new(sprite,@map.events[i],@viewport1))
      end
    end
  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?
    [email protected]_y.to_i/(4*Game_Map::TILEHEIGHT)
    [email protected]_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))[email protected]_y+3).to_i/4
        [email protected]
        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
      [email protected]@rsprite.ox
      [email protected]@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+=16   # Counter sprites with offset
      end
      [email protected]_rect.width
      [email protected]_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
      @[email protected] # below the player
      @[email protected]_x
      @[email protected]_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
      @[email protected]
      @[email protected]
      @sprite.color=Color.new(248,248,248,96)
      @[email protected]*3/4
      @[email protected]_rect
      if limit<@sprite.src_rect.height
        [email protected]_rect.height-limit
        @sprite.src_rect.y+=diff
        @sprite.src_rect.height=limit
        @sprite.y-=diff
      end
    end
  end
end

class SpriteShadow # Shadow code
  attr_accessor :visible
  attr_accessor :event

  def initialize(sprite,event,viewport=nil)
    @bitmap=Bitmap.new("Graphics/Pictures/Shadow")
    @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?
    shouldShow=true
    [email protected]_rect.height
      if @event.map.terrain_tag(@event.x,@event.y)==PBTerrain::Grass
        shouldShow=false
      else
        shouldShow=true
      end
    shouldShow=false if !visible
    shouldShow=false if @rsprite.character.character_name == ""
    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
        [email protected]@rsprite.ox
        [email protected]@rsprite.oy
      if @rsprite.character.character_name[/offset/]
        y-=32; limit+=16   # Counter sprites with offset
      end
      [email protected]_rect.width
      [email protected]_rect.height
      if [email protected]?
        @sprite.x=x+16
        @sprite.y=y+54
      end
      @[email protected] # below the player
      @[email protected]_x
      @[email protected]_y
      @sprite.bitmap=@bitmap
      @[email protected]
      @sprite.opacity=120
    end
  end
end #Shadow code

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
    [email protected]_data.xsize*Game_Map::[email protected]
    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) # Panorama, map, events, player, fog
    @viewport1a = Viewport.new(0, 0, Graphics.width,Graphics.height) # Weather
    @viewport2 = Viewport.new(0, 0, Graphics.width,Graphics.height) # "Show Picture" event command pictures
    @viewport3 = Viewport.new(0, 0, Graphics.width,Graphics.height) # Flashing
    @viewport1a.z = 100
    @viewport2.z = 200
    @viewport3.z = 500
    @tilemap = TilemapLoader.new(@viewport1)
    @tilemap.tileset = pbGetTileset(@map.tileset_name)
    for i in 0...7
      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=[]
    @character_sprites = []
    for i in @map.events.keys.sort
      sprite = Sprite_Character.new(@viewport1, @map.events[i])
      @character_sprites.push(sprite)
      if [email protected][i].name[/noreflect/]
        @reflectedSprites.push(ReflectedSprite.new(sprite,@map.events[i],@viewport1))
      end
      if [email protected][i].name[/noshadow/]
        if [email protected][i].name[/door/]
          if [email protected][i].name[/berry/]
            if [email protected][i].name[/object/]
                 @shadowSprites.push(SpriteShadow.new(sprite,@map.events[i],@viewport1))
      end
    end
  end
end
    end
    playersprite=Sprite_Character.new(@viewport1, $game_player)
    @playersprite=playersprite
    @reflectedSprites.push(ReflectedSprite.new(playersprite,$game_player,@viewport1))
    @shadowSprites.push(SpriteShadow.new(playersprite,$game_player,@viewport1))
    @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...7
      @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
    @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
    @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 -= 128*4 # 128 pixels = 4 tile border
    screne_y = @map.display_y
    screne_y -= 128*4
    screne_width = @map.display_x
    screne_width += Graphics.width*4+128*4
    screne_height = @map.display_y
    screne_height += Graphics.height*4+128*4
    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.visible=true
      sprite.visible=(@map==$game_map) if sprite.event==$game_player
      sprite.update
    end
    # Avoids overlap effect of player sprites if player is near edge of
    # a connected map
    @[email protected] && (
       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