More renaming and rearranging, fixed typo from earlier commit, tweaked splash and title screen code

Data/Scripts/005_Sprites/001_Sprite_Picture.rb

@@ -0,0 +1,58 @@
+class Sprite_Picture
+  def initialize(viewport, picture)
+    @viewport = viewport
+    @picture = picture
+    @sprite = nil
+    update
+  end
+
+  def dispose
+    @sprite.dispose if @sprite
+  end
+
+  def update
+    @sprite.update if @sprite
+    # If picture file name is different from current one
+    if @picture_name != @picture.name
+      # Remember file name to instance variables
+      @picture_name = @picture.name
+      # If file name is not empty
+      if @picture_name != ""
+        # Get picture graphic
+        @sprite=IconSprite.new(0,0,@viewport) if !@sprite
+        @sprite.setBitmap("Graphics/Pictures/"+@picture_name)
+      end
+    end
+    # If file name is empty
+    if @picture_name == ""
+      # Set sprite to invisible
+      if @sprite
+        @sprite.dispose if @sprite
+        @sprite=nil
+      end
+      return
+    end
+    # Set sprite to visible
+    @sprite.visible = true
+    # Set transfer starting point
+    if @picture.origin == 0
+      @sprite.ox = 0
+      @sprite.oy = 0
+    else
+      @sprite.ox = @sprite.bitmap.width / 2
+      @sprite.oy = @sprite.bitmap.height / 2
+    end
+    # Set sprite coordinates
+    @sprite.x = @picture.x
+    @sprite.y = @picture.y
+    @sprite.z = @picture.number
+    # Set zoom rate, opacity level, and blend method
+    @sprite.zoom_x = @picture.zoom_x / 100.0
+    @sprite.zoom_y = @picture.zoom_y / 100.0
+    @sprite.opacity = @picture.opacity
+    @sprite.blend_type = @picture.blend_type
+    # Set rotation angle and color tone
+    @sprite.angle = @picture.angle
+    @sprite.tone = @picture.tone
+  end
+end

Data/Scripts/005_Sprites/002_Sprite_Timer.rb

@@ -0,0 +1,45 @@
+class Sprite_Timer
+  def initialize(viewport=nil)
+    @viewport=viewport
+    @timer=nil
+    @total_sec=nil
+    @disposed=false
+  end
+
+  def dispose
+    @timer.dispose if @timer
+    @timer=nil
+    @disposed=true
+  end
+
+  def disposed?
+    @disposed
+  end
+
+  def update
+    return if disposed?
+    if $game_system.timer_working
+      @timer.visible = true if @timer
+      if !@timer
+        @timer=Window_AdvancedTextPokemon.newWithSize("",Graphics.width-120,0,120,64)
+        @timer.width=@timer.borderX+96
+        @timer.x=Graphics.width-@timer.width
+        @timer.viewport=@viewport
+        @timer.z=99998
+      end
+      curtime=$game_system.timer / Graphics.frame_rate
+      curtime=0 if curtime<0
+      if curtime != @total_sec
+        # Calculate total number of seconds
+        @total_sec = curtime
+        # Make a string for displaying the timer
+        min = @total_sec / 60
+        sec = @total_sec % 60
+        @timer.text = _ISPRINTF("<ac>{1:02d}:{2:02d}", min, sec)
+      end
+      @timer.update
+    else
+      @timer.visible=false if @timer
+    end
+  end
+end

Data/Scripts/005_Sprites/003_Sprite_Character.rb

@@ -0,0 +1,175 @@
+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_hue, @character.width, @character.height)
+        @charbitmapAnimated = false
+        @bushbitmap.dispose if @bushbitmap
+        @bushbitmap = nil
+        @spriteoffset = false
+        @cw = Game_Map::TILE_WIDTH * @character.width
+        @ch = Game_Map::TILE_HEIGHT * @character.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_name,@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

Data/Scripts/005_Sprites/004_Sprite_WaterReflection.rb

@@ -0,0 +1,86 @@
+class Sprite_Reflection
+  attr_reader :visible
+  attr_accessor :event
+
+  def initialize(sprite,event,viewport=nil)
+    @rsprite  = sprite
+    @sprite   = nil
+    @event    = event
+    @height   = 0
+    @fixedheight = false
+    if @event && @event!=$game_player
+      if @event.name[/reflection\((\d+)\)/i]
+        @height = $~[1].to_i || 0
+        @fixedheight = true
+      end
+    end
+    @viewport = viewport
+    @disposed = false
+    update
+  end
+
+  def dispose
+    if !@disposed
+      @sprite.dispose if @sprite
+      @sprite   = nil
+      @disposed = true
+    end
+  end
+
+  def disposed?
+    @disposed
+  end
+
+  def visible=(value)
+    @visible = value
+    @sprite.visible = value if @sprite && !@sprite.disposed?
+  end
+
+  def update
+    return if disposed?
+    shouldShow = @rsprite.visible
+    if !shouldShow
+      # Just-in-time disposal of sprite
+      if @sprite
+        @sprite.dispose
+        @sprite = nil
+      end
+      return
+    end
+    # Just-in-time creation of sprite
+    @sprite = Sprite.new(@viewport) if !@sprite
+    if @sprite
+      x = @rsprite.x-@rsprite.ox
+      y = @rsprite.y-@rsprite.oy
+      y -= 32 if @rsprite.character.character_name[/offset/i]
+      @height = $PokemonGlobal.bridge if !@fixedheight
+      y += @height*16
+      width  = @rsprite.src_rect.width
+      height = @rsprite.src_rect.height
+      @sprite.x        = x+width/2
+      @sprite.y        = y+height+height/2
+      @sprite.ox       = width/2
+      @sprite.oy       = height/2-2   # Hard-coded 2 pixel shift up
+      @sprite.oy       -= @rsprite.character.bob_height*2
+      @sprite.z        = -50   # Still water is -100, map is 0 and above
+      @sprite.zoom_x   = @rsprite.zoom_x
+      @sprite.zoom_y   = @rsprite.zoom_y
+      frame = (Graphics.frame_count%40)/10
+      @sprite.zoom_x   *= [1.0, 0.95, 1.0, 1.05][frame]
+      @sprite.angle    = 180.0
+      @sprite.mirror   = true
+      @sprite.bitmap   = @rsprite.bitmap
+      @sprite.tone     = @rsprite.tone
+      if @height>0
+        @sprite.color   = Color.new(48,96,160,255)   # Dark still water
+        @sprite.opacity = @rsprite.opacity
+        @sprite.visible = !Settings::TIME_SHADING   # Can't time-tone a colored sprite
+      else
+        @sprite.color   = Color.new(224,224,224,96)
+        @sprite.opacity = @rsprite.opacity*3/4
+        @sprite.visible = true
+      end
+      @sprite.src_rect = @rsprite.src_rect
+    end
+  end
+end

Data/Scripts/005_Sprites/005_Sprite_SurfBase.rb

@@ -0,0 +1,81 @@
+class Sprite_SurfBase
+  attr_reader   :visible
+  attr_accessor :event
+
+  def initialize(sprite,event,viewport=nil)
+    @rsprite  = sprite
+    @sprite   = nil
+    @event    = event
+    @viewport = viewport
+    @disposed = false
+    @surfbitmap = AnimatedBitmap.new("Graphics/Characters/base_surf")
+    @divebitmap = AnimatedBitmap.new("Graphics/Characters/base_dive")
+    @cws = @surfbitmap.width/4
+    @chs = @surfbitmap.height/4
+    @cwd = @divebitmap.width/4
+    @chd = @divebitmap.height/4
+    update
+  end
+
+  def dispose
+    return if @disposed
+    @sprite.dispose if @sprite
+    @sprite   = nil
+    @surfbitmap.dispose
+    @divebitmap.dispose
+    @disposed = true
+  end
+
+  def disposed?
+    @disposed
+  end
+
+  def visible=(value)
+    @visible = value
+    @sprite.visible = value if @sprite && !@sprite.disposed?
+  end
+
+  def update
+    return if disposed?
+    if !$PokemonGlobal.surfing && !$PokemonGlobal.diving
+      # Just-in-time disposal of sprite
+      if @sprite
+        @sprite.dispose
+        @sprite = nil
+      end
+      return
+    end
+    # Just-in-time creation of sprite
+    @sprite = Sprite.new(@viewport) if !@sprite
+    if @sprite
+      if $PokemonGlobal.surfing
+        @sprite.bitmap = @surfbitmap.bitmap
+        cw = @cws
+        ch = @chs
+      elsif $PokemonGlobal.diving
+        @sprite.bitmap = @divebitmap.bitmap
+        cw = @cwd
+        ch = @chd
+      end
+      sx = @event.pattern_surf*cw
+      sy = ((@event.direction-2)/2)*ch
+      @sprite.src_rect.set(sx,sy,cw,ch)
+      if $PokemonTemp.surfJump
+        @sprite.x = ($PokemonTemp.surfJump[0]*Game_Map::REAL_RES_X-@event.map.display_x+3)/4+(Game_Map::TILE_WIDTH/2)
+        @sprite.y = ($PokemonTemp.surfJump[1]*Game_Map::REAL_RES_Y-@event.map.display_y+3)/4+(Game_Map::TILE_HEIGHT/2)+16
+      else
+        @sprite.x = @rsprite.x
+        @sprite.y = @rsprite.y
+      end
+      @sprite.ox      = cw/2
+      @sprite.oy      = ch-16   # Assume base needs offsetting
+      @sprite.oy      -= @event.bob_height
+      @sprite.z       = @event.screen_z(ch)-1
+      @sprite.zoom_x  = @rsprite.zoom_x
+      @sprite.zoom_y  = @rsprite.zoom_y
+      @sprite.tone    = @rsprite.tone
+      @sprite.color   = @rsprite.color
+      @sprite.opacity = @rsprite.opacity
+    end
+  end
+end

Data/Scripts/005_Sprites/006_Spriteset_Map.rb

@@ -0,0 +1,158 @@
+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::TILE_WIDTH-@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
+  attr_accessor :tilemap
+  @@viewport0 = Viewport.new(0, 0, Settings::SCREEN_WIDTH, Settings::SCREEN_HEIGHT)   # Panorama
+  @@viewport0.z = -100
+  @@viewport1 = Viewport.new(0, 0, Settings::SCREEN_WIDTH, Settings::SCREEN_HEIGHT)   # Map, events, player, fog
+  @@viewport1.z = 0
+  @@viewport3 = Viewport.new(0, 0, Settings::SCREEN_WIDTH, Settings::SCREEN_HEIGHT)   # Flashing
+  @@viewport3.z = 500
+
+  def Spriteset_Map.viewport   # For access by Spriteset_Global
+    return @@viewport1
+  end
+
+  def initialize(map=nil)
+    @map = (map) ? map : $game_map
+    @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
+    @tilemap.terrain_tags = @map.terrain_tags
+    @panorama = AnimatedPlane.new(@@viewport0)
+    @fog = AnimatedPlane.new(@@viewport1)
+    @fog.z = 3000
+    @character_sprites = []
+    for i in @map.events.keys.sort
+      sprite = Sprite_Character.new(@@viewport1,@map.events[i])
+      @character_sprites.push(sprite)
+    end
+    @weather = RPG::Weather.new(@@viewport1)
+    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
+    @weather.dispose
+    @tilemap = nil
+    @panorama = nil
+    @fog = nil
+    @character_sprites.clear
+    @weather = nil
+  end
+
+  def getAnimations
+    return @usersprites
+  end
+
+  def restoreAnimations(anims)
+    @usersprites = anims
+  end
+
+  def update
+    if @panorama_name!=@map.panorama_name || @panorama_hue!=@map.panorama_hue
+      @panorama_name = @map.panorama_name
+      @panorama_hue  = @map.panorama_hue
+      @panorama.setPanorama(nil) if @panorama.bitmap!=nil
+      @panorama.setPanorama(@panorama_name,@panorama_hue) if @panorama_name!=""
+      Graphics.frame_reset
+    end
+    if @fog_name!=@map.fog_name || @fog_hue!=@map.fog_hue
+      @fog_name = @map.fog_name
+      @fog_hue = @map.fog_hue
+      @fog.setFog(nil) if @fog.bitmap!=nil
+      @fog.setFog(@fog_name,@fog_hue) if @fog_name!=""
+      Graphics.frame_reset
+    end
+    tmox = (@map.display_x/Game_Map::X_SUBPIXELS).round
+    tmoy = (@map.display_y/Game_Map::Y_SUBPIXELS).round
+    @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::TILE_WIDTH-tmox,Graphics.width].min
+      @@viewport1.rect.height = [@tilemap.map_data.ysize*Game_Map::TILE_HEIGHT-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 = tmox/2
+    @panorama.oy = tmoy/2
+    @fog.ox         = tmox+@map.fog_ox
+    @fog.oy         = tmoy+@map.fog_oy
+    @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.tone       = @map.fog_tone
+    @panorama.update
+    @fog.update
+    for sprite in @character_sprites
+      sprite.update
+    end
+    if self.map!=$game_map
+      @weather.fade_in(:None, 0, 20)
+    else
+      @weather.fade_in($game_screen.weather_type, $game_screen.weather_max, $game_screen.weather_duration)
+    end
+    @weather.ox   = tmox
+    @weather.oy   = tmoy
+    @weather.update
+    @@viewport1.tone = $game_screen.tone
+    @@viewport3.color = $game_screen.flash_color
+    @@viewport1.update
+    @@viewport3.update
+  end
+end

Data/Scripts/005_Sprites/007_Spriteset_Global.rb

@@ -0,0 +1,30 @@
+class Spriteset_Global
+  attr_reader :playersprite
+  @@viewport2 = Viewport.new(0, 0, Settings::SCREEN_WIDTH, Settings::SCREEN_HEIGHT)
+  @@viewport2.z = 200
+
+  def initialize
+    @playersprite = Sprite_Character.new(Spriteset_Map.viewport, $game_player)
+    @picture_sprites = []
+    for i in 1..100
+      @picture_sprites.push(Sprite_Picture.new(@@viewport2, $game_screen.pictures[i]))
+    end
+    @timer_sprite = Sprite_Timer.new
+    update
+  end
+
+  def dispose
+    @playersprite.dispose
+    @picture_sprites.each { |sprite| sprite.dispose }
+    @timer_sprite.dispose
+    @playersprite = nil
+    @picture_sprites.clear
+    @timer_sprite = nil
+  end
+
+  def update
+    @playersprite.update
+    @picture_sprites.each { |sprite| sprite.update }
+    @timer_sprite.update
+  end
+end

Data/Scripts/005_Sprites/008_Sprite_AnimationSprite.rb

@@ -0,0 +1,94 @@
+=begin
+A sprite whose sole purpose is to display an animation.  This sprite
+can be displayed anywhere on the map and is disposed
+automatically when its animation is finished.
+Used for grass rustling and so forth.
+=end
+class AnimationSprite < RPG::Sprite
+  def initialize(animID,map,tileX,tileY,viewport=nil,tinting=false,height=3)
+    super(viewport)
+    @tileX = tileX
+    @tileY = tileY
+    self.bitmap = Bitmap.new(1, 1)
+    self.bitmap.clear
+    @map = map
+    setCoords
+    pbDayNightTint(self) if tinting
+    self.animation($data_animations[animID],true,height)
+  end
+
+  def setCoords
+    self.x = ((@tileX * Game_Map::REAL_RES_X - @map.display_x) / Game_Map::X_SUBPIXELS).ceil
+    self.x += Game_Map::TILE_WIDTH / 2
+    self.y = ((@tileY * Game_Map::REAL_RES_Y - @map.display_y) / Game_Map::Y_SUBPIXELS).ceil
+    self.y += Game_Map::TILE_HEIGHT
+  end
+
+  def dispose
+    self.bitmap.dispose
+    super
+  end
+
+  def update
+    if !self.disposed?
+      setCoords
+      super
+      self.dispose if !self.effect?
+    end
+  end
+end
+
+
+
+class Spriteset_Map
+  alias _animationSprite_initialize initialize
+  alias _animationSprite_update update
+  alias _animationSprite_dispose dispose
+
+  def initialize(map=nil)
+    @usersprites=[]
+    _animationSprite_initialize(map)
+  end
+
+  def addUserAnimation(animID,x,y,tinting=false,height=3)
+    sprite=AnimationSprite.new(animID,$game_map,x,y,@@viewport1,tinting,height)
+    addUserSprite(sprite)
+    return sprite
+  end
+
+  def addUserSprite(sprite)
+    for i in 0...@usersprites.length
+      if @usersprites[i]==nil || @usersprites[i].disposed?
+        @usersprites[i]=sprite
+        return
+      end
+    end
+    @usersprites.push(sprite)
+  end
+
+  def dispose
+    _animationSprite_dispose
+    for i in 0...@usersprites.length
+      @usersprites[i].dispose
+    end
+    @usersprites.clear
+  end
+
+  def update
+    return if @tilemap.disposed?
+    if $PokemonSystem.tilemap==0
+      if self.map==$game_map
+        pbDayNightTint(@@viewport3)
+      else
+        @@viewport3.tone.set(0,0,0,0)
+      end
+    else
+      pbDayNightTint(@tilemap)
+      @@viewport3.tone.set(0,0,0,0)
+    end
+    _animationSprite_update
+    for i in 0...@usersprites.length
+      @usersprites[i].update if !@usersprites[i].disposed?
+    end
+  end
+end

Data/Scripts/005_Sprites/009_Sprite_DynamicShadows.rb

@@ -0,0 +1,253 @@
+#===============================================================================
+# Sprite_Shadow (Sprite_Ombre )
+# Based on Genzai Kawakami's shadows, dynamisme & features by Rataime, extra
+# features Boushy
+# Modified by Peter O. to be compatible with Pokémon Essentials
+#===============================================================================
+class Sprite_Shadow < RPG::Sprite
+  attr_accessor :character
+
+  def initialize(viewport, character = nil,params=[])
+    super(viewport)
+    @source       = params[0]
+    @anglemin     = (params.size>1) ? params[1] : 0
+    @anglemax     = (params.size>2) ? params[2] : 0
+    @self_opacity = (params.size>4) ? params[4] : 100
+    @distancemax  = (params.size>3) ? params[3] : 350
+    @character    = character
+    update
+  end
+
+  def dispose
+    @chbitmap.dispose if @chbitmap
+    super
+  end
+
+  def update
+    if !in_range?(@character, @source, @distancemax)
+      self.opacity = 0
+      return
+    end
+    super
+    if @tile_id != @character.tile_id or
+       @character_name != @character.character_name or
+       @character_hue != @character.character_hue
+      @tile_id        = @character.tile_id
+      @character_name = @character.character_name
+      @character_hue  = @character.character_hue
+      if @tile_id >= 384
+        @chbitmap.dispose if @chbitmap
+        @chbitmap = pbGetTileBitmap(@character.map.tileset_name,
+           @tile_id, @character.character_hue)
+        self.src_rect.set(0, 0, 32, 32)
+        @ch = 32
+        @cw = 32
+        self.ox = 16
+        self.oy = 32
+      else
+        @chbitmap.dispose if @chbitmap
+        @chbitmap = AnimatedBitmap.new(
+           "Graphics/Characters/"+@character.character_name,@character.character_hue)
+        @cw = @chbitmap.width / 4
+        @ch = @chbitmap.height / 4
+        self.ox = @cw / 2
+        self.oy = @ch
+      end
+    end
+    if @chbitmap.is_a?(AnimatedBitmap)
+      @chbitmap.update
+      self.bitmap = @chbitmap.bitmap
+    else
+      self.bitmap = @chbitmap
+    end
+    self.visible = (not @character.transparent)
+    if @tile_id == 0
+      sx = @character.pattern * @cw
+      sy = (@character.direction - 2) / 2 * @ch
+      if self.angle > 90 or angle < -90
+        case @character.direction
+        when 2 then sy = (8- 2) / 2 * @ch
+        when 4 then sy = (6- 2) / 2 * @ch
+        when 6 then sy = (4- 2) / 2 * @ch
+        when 8 then sy = (2- 2) / 2 * @ch
+        end
+      end
+      self.src_rect.set(sx, sy, @cw, @ch)
+    end
+    self.x = ScreenPosHelper.pbScreenX(@character)
+    self.y = ScreenPosHelper.pbScreenY(@character)-5
+    self.z = ScreenPosHelper.pbScreenZ(@character,@ch)-1
+    self.zoom_x = ScreenPosHelper.pbScreenZoomX(@character)
+    self.zoom_y = ScreenPosHelper.pbScreenZoomY(@character)
+    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
+    @deltax = ScreenPosHelper.pbScreenX(@source) - self.x
+    @deltay = ScreenPosHelper.pbScreenY(@source) - self.y
+    self.color = Color.new(0, 0, 0)
+    @distance = ((@deltax ** 2) + (@deltay ** 2))
+    self.opacity = @self_opacity * 13000 / ((@distance * 370 / @distancemax) + 6000)
+    self.angle = 57.3 * Math.atan2(@deltax, @deltay)
+    @angle_trigo = self.angle+90
+    @angle_trigo += 360 if @angle_trigo < 0
+    if @anglemin != 0 or @anglemax != 0
+      if (@angle_trigo < @anglemin or @angle_trigo > @anglemax) and @anglemin < @anglemax
+        self.opacity = 0
+        return
+      end
+      if (@angle_trigo < @anglemin and @angle_trigo > @anglemax) and @anglemin > @anglemax
+        self.opacity = 0
+        return
+      end
+    end
+  end
+
+  def in_range?(element, object, range)   # From Near's Anti Lag Script, edited
+    elemScreenX = ScreenPosHelper.pbScreenX(element)
+    elemScreenY = ScreenPosHelper.pbScreenY(element)
+    objScreenX  = ScreenPosHelper.pbScreenX(object)
+    objScreenY  = ScreenPosHelper.pbScreenY(object)
+    x = (elemScreenX - objScreenX) * (elemScreenX - objScreenX)
+    y = (elemScreenY - objScreenY) * (elemScreenY - objScreenY)
+    r = x + y
+    return r <= range * range
+  end
+end
+
+
+
+#===================================================
+# ? CLASS Sprite_Character edit
+#===================================================
+class Sprite_Character < RPG::Sprite
+  alias :shadow_initialize :initialize
+
+  def initialize(viewport, character = nil)
+    @ombrelist = []
+    @character = character
+    shadow_initialize(viewport, @character)
+  end
+
+  def setShadows(map,shadows)
+    if character.is_a?(Game_Event) and shadows.length > 0
+      params = XPML_read(map,"Shadow",@character,4)
+      if params != nil
+        for i in 0...shadows.size
+          @ombrelist.push(Sprite_Shadow.new(viewport, @character, shadows[i]))
+        end
+      end
+    end
+    if character.is_a?(Game_Player) and shadows.length > 0
+      for i in 0...shadows.size
+        @ombrelist.push(Sprite_Shadow.new(viewport, $game_player, shadows[i]))
+      end
+    end
+    update
+  end
+
+  alias shadow_update update
+
+  def update
+    shadow_update
+    if @ombrelist.length>0
+      for i in 0...@ombrelist.size
+        @ombrelist[i].update
+      end
+    end
+  end
+end
+
+
+
+#===================================================
+# ? CLASS Game_Event edit
+#===================================================
+class Game_Event
+  attr_accessor :id
+end
+
+
+
+#===================================================
+# ? CLASS Spriteset_Map edit
+#===================================================
+class Spriteset_Map
+  attr_accessor :shadows
+
+  alias shadow_initialize initialize
+  def initialize(map=nil)
+    @shadows = []
+    warn = false
+    map = $game_map if !map
+    for k in map.events.keys.sort
+      ev = map.events[k]
+      warn = true if (ev.list != nil and ev.list.length > 0 and
+         ev.list[0].code == 108 and
+         (ev.list[0].parameters == ["s"] or ev.list[0].parameters == ["o"]))
+      params = XPML_read(map,"Shadow Source", ev, 4)
+      @shadows.push([ev] + params) if params != nil
+    end
+    if warn == true
+      p "Warning : At least one event on this map uses the obsolete way to add shadows"
+    end
+    shadow_initialize(map)
+    for sprite in @character_sprites
+      sprite.setShadows(map, @shadows)
+    end
+    $scene.spritesetGlobal.playersprite.setShadows(map, @shadows)
+  end
+end
+
+
+
+#===================================================
+# ? XPML Definition, by Rataime, using ideas from Near Fantastica
+#
+#   Returns nil if the markup wasn't present at all,
+#   returns [] if there wasn't any parameters, else
+#   returns a parameters list with "int" converted as int
+#   eg :
+#   begin first
+#   begin second
+#   param1 1
+#   param2 two
+#   begin third
+#   anything 3
+#
+#   p XPML_read("first", event_id) -> []
+#   p XPML_read("second", event_id) -> [1, "two"]
+#   p XPML_read("third", event_id) -> [3]
+#   p XPML_read("forth", event_id) -> nil
+#===================================================
+def XPML_read(map,markup,event,max_param_number=0)
+  parameter_list = nil
+  return nil if !event || event.list == nil
+    for i in 0...event.list.size
+      if event.list[i].code == 108 and
+         event.list[i].parameters[0].downcase == "begin " + markup.downcase
+        parameter_list = [] if parameter_list == nil
+        for j in i+1...event.list.size
+          if event.list[j].code == 108
+            parts = event.list[j].parameters[0].split
+            if parts.size != 1 and parts[0].downcase != "begin"
+              if parts[1].to_i != 0 or parts[1] == "0"
+                parameter_list.push(parts[1].to_i)
+              else
+                parameter_list.push(parts[1])
+              end
+            else
+              return parameter_list
+            end
+          else
+            return parameter_list
+          end
+          return parameter_list if max_param_number != 0 and j == i + max_param_number
+        end
+      end
+    end
+  return parameter_list
+end

Data/Scripts/005_Sprites/010_ParticleEngine.rb

@@ -0,0 +1,587 @@
+# Particle Engine, Peter O., 2007-11-03
+# Based on version 2 by Near Fantastica, 04.01.06
+# In turn based on the Particle Engine designed by PinkMan
+class Particle_Engine
+  def initialize(viewport=nil,map=nil)
+    @map       = (map) ? map : $game_map
+    @viewport  = viewport
+    @effect    = []
+    @disposed  = false
+    @firsttime = true
+    @effects   = {
+       # PinkMan's Effects
+       "fire"         => Particle_Engine::Fire,
+       "smoke"        => Particle_Engine::Smoke,
+       "teleport"     => Particle_Engine::Teleport,
+       "spirit"       => Particle_Engine::Spirit,
+       "explosion"    => Particle_Engine::Explosion,
+       "aura"         => Particle_Engine::Aura,
+       # BlueScope's Effects
+       "soot"         => Particle_Engine::Soot,
+       "sootsmoke"    => Particle_Engine::SootSmoke,
+       "rocket"       => Particle_Engine::Rocket,
+       "fixteleport"  => Particle_Engine::FixedTeleport,
+       "smokescreen"  => Particle_Engine::Smokescreen,
+       "flare"        => Particle_Engine::Flare,
+       "splash"       => Particle_Engine::Splash,
+       # By Peter O.
+       "starteleport" => Particle_Engine::StarTeleport
+    }
+  end
+
+  def dispose
+    return if disposed?
+    for particle in @effect
+      next if particle.nil?
+      particle.dispose
+    end
+    @effect.clear
+    @map = nil
+    @disposed = true
+  end
+
+  def disposed?
+    return @disposed
+  end
+
+  def add_effect(event)
+    @effect[event.id] = pbParticleEffect(event)
+  end
+
+  def remove_effect(event)
+    return if @effect[event.id].nil?
+    @effect[event.id].dispose
+    @effect.delete_at(event.id)
+  end
+
+  def realloc_effect(event,particle)
+    type = pbEventCommentInput(event, 1, "Particle Engine Type")
+    if type.nil?
+      particle.dispose if particle
+      return nil
+    end
+    type = type[0].downcase
+    cls = @effects[type]
+    if cls.nil?
+      particle.dispose if particle
+      return nil
+    end
+    if !particle || !particle.is_a?(cls)
+      particle.dispose if particle
+      particle = cls.new(event,@viewport)
+    end
+    return particle
+  end
+
+  def pbParticleEffect(event)
+    return realloc_effect(event,nil)
+  end
+
+  def update
+    if @firsttime
+      @firsttime = false
+      for event in @map.events.values
+        remove_effect(event)
+        add_effect(event)
+      end
+    end
+    for i in 0...@effect.length
+      particle = @effect[i]
+      next if particle.nil?
+      if particle.event.pe_refresh
+        event = particle.event
+        event.pe_refresh = false
+        particle = realloc_effect(event,particle)
+        @effect[i] = particle
+      end
+      particle.update if particle
+    end
+  end
+end
+
+
+
+class ParticleEffect
+  attr_accessor :x, :y, :z
+
+  def initialize
+    @x = 0
+    @y = 0
+    @z = 0
+  end
+
+  def update;  end
+  def dispose; end
+end
+
+
+
+class ParticleSprite
+  attr_accessor :x, :y, :z, :ox, :oy, :opacity, :blend_type
+  attr_reader :bitmap
+
+  def initialize(viewport)
+    @viewport   = viewport
+    @sprite     = nil
+    @x          = 0
+    @y          = 0
+    @z          = 0
+    @ox         = 0
+    @oy         = 0
+    @opacity    = 255
+    @bitmap     = nil
+    @blend_type = 0
+    @minleft    = 0
+    @mintop     = 0
+  end
+
+  def dispose
+    @sprite.dispose if @sprite
+  end
+
+  def bitmap=(value)
+    @bitmap = value
+    if value
+      @minleft = -value.width
+      @mintop  = -value.height
+    else
+      @minleft = 0
+      @mintop  = 0
+    end
+  end
+
+  def update
+    w = Graphics.width
+    h = Graphics.height
+    if !@sprite && @x>=@minleft && @y>=@mintop && @x<w && @y<h
+      @sprite = Sprite.new(@viewport)
+    elsif @sprite && (@x<@minleft || @y<@mintop || @x>=w || @y>=h)
+      @sprite.dispose
+      @sprite = nil
+    end
+    if @sprite
+      @sprite.x          = @x if @sprite.x!=@x
+      @sprite.x          -= @ox
+      @sprite.y          = @y if @sprite.y!=@y
+      @sprite.y          -= @oy
+      @sprite.z          = @z if @sprite.z!=@z
+      @sprite.opacity    = @opacity if @sprite.opacity!=@opacity
+      @sprite.blend_type = @blend_type if @sprite.blend_type!=@blend_type
+      @sprite.bitmap     = @bitmap if @sprite.bitmap!=@bitmap
+    end
+  end
+end
+
+
+
+class ParticleEffect_Event < ParticleEffect
+  attr_accessor :event
+
+  def initialize(event,viewport=nil)
+    @event     = event
+    @viewport  = viewport
+    @particles = []
+    @bitmaps   = {}
+  end
+
+  def setParameters(params)
+    @randomhue,@leftright,@fade,
+    @maxparticless,@hue,@slowdown,
+    @ytop,@ybottom,@xleft,@xright,
+    @xgravity,@ygravity,@xoffset,@yoffset,
+    @opacityvar,@originalopacity = params
+  end
+
+  def loadBitmap(filename,hue)
+    key = [filename,hue]
+    bitmap = @bitmaps[key]
+    if !bitmap || bitmap.disposed?
+      bitmap = AnimatedBitmap.new("Graphics/Fogs/"+filename,hue).deanimate
+      @bitmaps[key] = bitmap
+    end
+    return bitmap
+  end
+
+  def initParticles(filename,opacity,zOffset=0,blendtype=1)
+    @particles = []
+    @particlex = []
+    @particley = []
+    @opacity   = []
+    @startingx = self.x + @xoffset
+    @startingy = self.y + @yoffset
+    @screen_x  = self.x
+    @screen_y  = self.y
+    @real_x    = @event.real_x
+    @real_y    = @event.real_y
+    @filename  = filename
+    @zoffset   = zOffset
+    @bmwidth   = 32
+    @bmheight  = 32
+    for i in 0...@maxparticless
+      @particlex[i] = -@xoffset
+      @particley[i] = -@yoffset
+      @particles[i] = ParticleSprite.new(@viewport)
+      @particles[i].bitmap = loadBitmap(filename, @hue) if filename
+      if i==0 && @particles[i].bitmap
+        @bmwidth  = @particles[i].bitmap.width
+        @bmheight = @particles[i].bitmap.height
+      end
+      @particles[i].blend_type = blendtype
+      @particles[i].y = @startingy
+      @particles[i].x = @startingx
+      @particles[i].z = self.z+zOffset
+      @opacity[i] = rand(opacity/4)
+      @particles[i].opacity = @opacity[i]
+      @particles[i].update
+    end
+  end
+
+  def x; return ScreenPosHelper.pbScreenX(@event); end
+  def y; return ScreenPosHelper.pbScreenY(@event); end
+  def z; return ScreenPosHelper.pbScreenZ(@event); end
+
+  def update
+    if @viewport &&
+       (@viewport.rect.x >= Graphics.width ||
+       @viewport.rect.y >= Graphics.height)
+      return
+    end
+    selfX = self.x
+    selfY = self.y
+    selfZ = self.z
+    newRealX = @event.real_x
+    newRealY = @event.real_y
+    @startingx = selfX + @xoffset
+    @startingy = selfY + @yoffset
+    @__offsetx = (@real_x==newRealX) ? 0 : selfX-@screen_x
+    @__offsety = (@real_y==newRealY) ? 0 : selfY-@screen_y
+    @screen_x = selfX
+    @screen_y = selfY
+    @real_x = newRealX
+    @real_y = newRealY
+    if @opacityvar>0 && @viewport
+      opac = 255.0/@opacityvar
+      minX = opac*(-@xgravity*1.0 / @slowdown).floor + @startingx
+      maxX = opac*(@xgravity*1.0 / @slowdown).floor + @startingx
+      minY = opac*(-@ygravity*1.0 / @slowdown).floor + @startingy
+      maxY = @startingy
+      minX -= @bmwidth
+      minY -= @bmheight
+      maxX += @bmwidth
+      maxY += @bmheight
+      if maxX<0 || maxY<0 || minX>=Graphics.width || minY>=Graphics.height
+#        echo "skipped"
+        return
+      end
+    end
+    particleZ = selfZ+@zoffset
+    for i in 0...@maxparticless
+      @particles[i].z = particleZ
+      if @particles[i].y <= @ytop
+        @particles[i].y = @startingy + @yoffset
+        @particles[i].x = @startingx + @xoffset
+        @particlex[i] = 0.0
+        @particley[i] = 0.0
+      end
+      if @particles[i].x <= @xleft
+        @particles[i].y = @startingy + @yoffset
+        @particles[i].x = @startingx + @xoffset
+        @particlex[i] = 0.0
+        @particley[i] = 0.0
+      end
+      if @particles[i].y >= @ybottom
+        @particles[i].y = @startingy + @yoffset
+        @particles[i].x = @startingx + @xoffset
+        @particlex[i] = 0.0
+        @particley[i] = 0.0
+      end
+      if @particles[i].x >= @xright
+        @particles[i].y = @startingy + @yoffset
+        @particles[i].x = @startingx + @xoffset
+        @particlex[i] = 0.0
+        @particley[i] = 0.0
+      end
+      if @fade == 0
+        if @opacity[i] <= 0
+          @opacity[i] = @originalopacity
+          @particles[i].y = @startingy + @yoffset
+          @particles[i].x = @startingx + @xoffset
+          @particlex[i] = 0.0
+          @particley[i] = 0.0
+        end
+      else
+        if @opacity[i] <= 0
+          @opacity[i] = 250
+          @particles[i].y = @startingy + @yoffset
+          @particles[i].x = @startingx + @xoffset
+          @particlex[i] = 0.0
+          @particley[i] = 0.0
+        end
+      end
+      calcParticlePos(i)
+      if @randomhue == 1
+        @hue += 0.5
+        @hue = 0 if @hue >= 360
+        @particles[i].bitmap = loadBitmap(@filename, @hue) if @filename
+      end
+      @opacity[i] = @opacity[i] - rand(@opacityvar)
+      @particles[i].opacity = @opacity[i]
+      @particles[i].update
+    end
+  end
+
+  def calcParticlePos(i)
+    @leftright = rand(2)
+    if @leftright == 1
+      xo = -@xgravity*1.0 / @slowdown
+    else
+      xo = @xgravity*1.0 / @slowdown
+    end
+    yo = -@ygravity*1.0 / @slowdown
+    @particlex[i] += xo
+    @particley[i] += yo
+    @particlex[i] -= @__offsetx
+    @particley[i] -= @__offsety
+    @particlex[i] = @particlex[i].floor
+    @particley[i] = @particley[i].floor
+    @particles[i].x = @particlex[i]+@startingx+@xoffset
+    @particles[i].y = @particley[i]+@startingy+@yoffset
+  end
+
+  def dispose
+    for particle in @particles
+      particle.dispose
+    end
+    for bitmap in @bitmaps.values
+      bitmap.dispose
+    end
+    @particles.clear
+    @bitmaps.clear
+  end
+end
+
+
+
+class Particle_Engine::Fire < ParticleEffect_Event
+  def initialize(event,viewport)
+    super
+    setParameters([0,0,1,20,40,0.5,-64,
+       Graphics.height,-64,Graphics.width,0.5,0.10,-5,-13,30,0])
+    initParticles("particle",250)
+  end
+end
+
+
+
+class Particle_Engine::Smoke < ParticleEffect_Event
+  def initialize(event,viewport)
+    super
+    setParameters([0,0,0,80,20,0.5,-64,
+       Graphics.height,-64,Graphics.width,0.5,0.10,-5,-15,5,80])
+    initParticles("smoke",250)
+  end
+end
+
+
+
+class Particle_Engine::Teleport < ParticleEffect_Event
+  def initialize(event,viewport)
+    super
+    setParameters([1,1,1,10,rand(360),1,-64,
+       Graphics.height,-64,Graphics.width,0,3,-8,-15,20,0])
+    initParticles("wideportal",250)
+    for i in 0...@maxparticless
+      @particles[i].ox = 16
+      @particles[i].oy = 16
+    end
+  end
+end
+
+
+
+class Particle_Engine::Spirit < ParticleEffect_Event
+  def initialize(event,viewport)
+    super
+    setParameters([1,0,1,20,rand(360),0.5,-64,
+       Graphics.height,-64,Graphics.width,0.5,0.10,-5,-13,30,0])
+    initParticles("particle",250)
+  end
+end
+
+
+
+class Particle_Engine::Explosion < ParticleEffect_Event
+  def initialize(event,viewport)
+    super
+     setParameters([0,0,1,20,0,0.5,-64,
+        Graphics.height,-64,Graphics.width,0.5,0.10,-5,-13,30,0])
+    initParticles("explosion",250)
+  end
+end
+
+
+
+class Particle_Engine::Aura < ParticleEffect_Event
+  def initialize(event,viewport)
+    super
+    setParameters([0,0,1,20,0,1,-64,
+       Graphics.height,-64,Graphics.width,2,2,-5,-13,30,0])
+    initParticles("particle",250)
+  end
+end
+
+
+
+class Particle_Engine::Soot < ParticleEffect_Event
+  def initialize(event,viewport)
+    super
+    setParameters([0,0,0,20,0,0.5,-64,
+       Graphics.height,-64,Graphics.width,0.5,0.10,-5,-15,5,80])
+    initParticles("smoke",100,0,2)
+  end
+end
+
+
+
+class Particle_Engine::SootSmoke < ParticleEffect_Event
+  def initialize(event,viewport)
+    super
+    setParameters([0,0,0,30,0,0.5,-64,
+       Graphics.height,-64,Graphics.width,0.5,0.10,-5,-15,5,80])
+    initParticles("smoke",100,0)
+    for i in 0...@maxparticless
+      @particles[i].blend_type = rand(6) < 3 ? 1 : 2
+    end
+  end
+end
+
+
+
+class Particle_Engine::Rocket < ParticleEffect_Event
+  def initialize(event,viewport)
+    super
+    setParameters([0,0,0,60,0,0.5,-64,
+       Graphics.height,-64,Graphics.width,0.5,0,-5,-15,5,80])
+    initParticles("smoke",100,-1)
+  end
+end
+
+
+
+class Particle_Engine::FixedTeleport < ParticleEffect_Event
+  def initialize(event,viewport)
+    super
+    setParameters([1,0,1,10,rand(360),1,
+       -Graphics.height,Graphics.height,0,Graphics.width,0,3,-8,-15,20,0])
+    initParticles("wideportal",250)
+    for i in 0...@maxparticless
+      @particles[i].ox = 16
+      @particles[i].oy = 16
+    end
+  end
+end
+
+
+
+# By Peter O.
+class Particle_Engine::StarTeleport < ParticleEffect_Event
+  def initialize(event,viewport)
+    super
+    setParameters([0,0,1,10,0,1,
+       -Graphics.height,Graphics.height,0,Graphics.width,0,3,-8,-15,10,0])
+    initParticles("star",250)
+    for i in 0...@maxparticless
+      @particles[i].ox = 48
+      @particles[i].oy = 48
+    end
+  end
+end
+
+
+
+class Particle_Engine::Smokescreen < ParticleEffect_Event
+  def initialize(event,viewport)
+    super
+    setParameters([0,0,0,250,0,0.2,-64,
+       Graphics.height,-64,Graphics.width,0.8,0.8,-5,-15,5,80])
+    initParticles(nil,100)
+    for i in 0...@maxparticless
+      rnd = rand(3)
+      @opacity[i] = (rnd==0) ? 1 : 100
+      filename = (rnd==0) ? "explosionsmoke" : "smoke"
+      @particles[i].bitmap = loadBitmap(filename, @hue)
+    end
+  end
+
+  def calcParticlePos(i)
+    if @randomhue==1
+      filename = (rand(3)==0) ? "explosionsmoke" : "smoke"
+      @particles[i].bitmap = loadBitmap(filename, @hue)
+    end
+    multiple = 1.7
+    xgrav = @xgravity*multiple/@slowdown
+    xgrav = -xgrav if (rand(2)==1)
+    ygrav = @ygravity*multiple/@slowdown
+    ygrav = -ygrav if (rand(2)==1)
+    @particlex[i] += xgrav
+    @particley[i] += ygrav
+    @particlex[i] -= @__offsetx
+    @particley[i] -= @__offsety
+    @particlex[i] = @particlex[i].floor
+    @particley[i] = @particley[i].floor
+    @particles[i].x = @particlex[i]+@startingx+@xoffset
+    @particles[i].y = @particley[i]+@startingy+@yoffset
+  end
+end
+
+
+
+class Particle_Engine::Flare < ParticleEffect_Event
+  def initialize(event,viewport)
+    super
+    setParameters([0,0,1,30,10,1,-64,
+       Graphics.height,-64,Graphics.width,2,2,-5,-12,30,0])
+    initParticles("particle",255)
+  end
+end
+
+
+
+class Particle_Engine::Splash < ParticleEffect_Event
+  def initialize(event,viewport)
+    super
+    setParameters([0,0,1,30,255,1,-64,
+       Graphics.height,-64,Graphics.width,4,2,-5,-12,30,0])
+    initParticles("smoke",50)
+  end
+
+  def update
+    super
+    for i in 0...@maxparticless
+      @particles[i].opacity = 50
+      @particles[i].update
+    end
+  end
+end
+
+
+
+class Game_Event < Game_Character
+  attr_accessor :pe_refresh
+
+  alias nf_particles_game_map_initialize initialize
+  def initialize(map_id,event,map=nil)
+    @pe_refresh = false
+    begin
+      nf_particles_game_map_initialize(map_id, event, map)
+    rescue ArgumentError
+      nf_particles_game_map_initialize(map_id, event)
+    end
+  end
+
+  alias nf_particles_game_map_refresh refresh
+  def refresh
+    nf_particles_game_map_refresh
+    @pe_refresh = true
+  end
+end