Chaos Project

#==============================================================================
# ** Drago - Event Anti Lag
# Version : 1.01
# forum.chaos-project.com
#==============================================================================
($imported ||= {})[:drg_event_anti_lag] = 1.01
# =============================================================================
# NOTE:
# -----------------------------------------------------------------------------
# What this script do is just disposing all event sprites that doesn't have
# graphics or outside the .
# It doesn't prevent any event to be updated.
#
# =============================================================================

class Spriteset_Map
  
  $@ || alias_method(:"drg_antilag_init", :"initialize")
  
  def initialize(*args)
    drg_antilag_init(*args)
    replace_character_sprites
  end
  
  def replace_character_sprites
    @character_sprites.map! do |sprite| 
      if sprite.is_a?(RPG::Sprite)
        Control_Sprite_Character.new(@viewport1,sprite)
      else
        sprite
      end
    end
  end
end

class Control_Sprite_Character
  
  attr_reader :character
  attr_accessor :disable_update, :force_update
  
  def initialize(viewport, char=nil)
    @viewport = viewport
    if char.is_a?(RPG::Sprite)
      @klass = (@sprite = char).class
      self.character = char.character
    else
      @klass = Sprite_Character
      self.character = char
    end
    @disable_update = false
    @force_update   = false
    update
  end
  
  def character=(char)
    @character = char
    @sprite.character = char unless @sprite.nil?
  end
  
  def allow_update?
    char = @character
    return true if @force_update
    return false if @disable_update || char.nil? 
    condition =   char.character_name != "" 
    condition ||= char.tile_id >= 384
    condition &&= in_screen?
    return condition 
  end
  
  def in_screen?
    char = @character
    return false if char.nil? || @viewport.nil?
    vr = @viewport.rect
    screen_x = (dx=$game_map.display_x) - 4*32*4
    screen_width = dx + vr.width*4 + 4*32*4
    return false if char.real_x <= screen_x
    return false if char.real_x >= screen_width
    screen_y = (dy=$game_map.display_y) - 4*32*4
    screen_height = dy + vr.height*4 + 4*32*4
    return false if char.real_y <= screen_y
    return false if char.real_y >= screen_height
    return true
  end
  
  def is_event?
    return true if @character.is_a?(Game_Event)
    return false 
  end
  
  def update
    if @character && ((is_event? && allow_update?) || !is_event?)
      @sprite = @klass.new(@viewport, @character) if disposed? 
      @sprite.update
      if @sprite.bitmap && (is_event? && !allow_update?)
        dispose 
      end
    else
      dispose 
    end
  end
  
  def dispose
    @sprite.dispose unless disposed?
    @sprite = nil
  end
  
  def disposed?
    return true if !@sprite
    return @sprite.disposed?
  end
  
  def method_missing(sym, *a, &blk)
    @sprite.send(sym, *a, &blk) unless disposed?
  end
end