The RPG Maker Resource Kit

RMRK RPG Maker Creation => RPG Maker General => General Scripting => Topic started by: fadark on April 06, 2007, 11:33:22 AM

Title: anyone need an anti-lag script?
Post by: fadark on April 06, 2007, 11:33:22 AM
i found this great anti-lag script that is very simple! dont give me credit for it. here it is:

#======================================
# ¦ Anti Event Lag Script
#======================================
#  By: Near Fantastica
#   Date: 12.06.05
#   Version: 3
#======================================

#======================================
# ¦ Game_Map
#======================================

class Game_Map
#--------------------------------------------------------------------------
def in_range?(object)
screne_x = $game_map.display_x
screne_x -= 256
screne_y = $game_map.display_y
screne_y -= 256
screne_width = $game_map.display_x
screne_width += 2816
screne_height = $game_map.display_y
screne_height += 2176
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 $game_map.need_refresh
  refresh
end
if @scroll_rest > 0
  distance = 2 ** @scroll_speed
  case @scroll_direction
  when 2
    scroll_down(distance)
  when 4
    scroll_left(distance)
  when 6 
    scroll_right(distance)
  when 8 
    scroll_up(distance)
  end
  @scroll_rest -= distance
end
for event in @events.values
  if in_range?(event) or event.trigger == 3 or event.trigger == 4
    event.update
  end
end
for common_event in @common_events.values
  common_event.update
end
@fog_ox -= @fog_sx / 8.0
@fog_oy -= @fog_sy / 8.0
if @fog_tone_duration >= 1
  d = @fog_tone_duration
  target = @fog_tone_target
  @fog_tone.red = (@fog_tone.red * (d - 1) + target.red) / d
  @fog_tone.green = (@fog_tone.green * (d - 1) + target.green) / d
  @fog_tone.blue = (@fog_tone.blue * (d - 1) + target.blue) / d
  @fog_tone.gray = (@fog_tone.gray * (d - 1) + target.gray) / d
  @fog_tone_duration -= 1
end
if @fog_opacity_duration >= 1
  d = @fog_opacity_duration
  @fog_opacity = (@fog_opacity * (d - 1) + @fog_opacity_target) / d
  @fog_opacity_duration -= 1
end
end
end

#======================================
# ¦ Spriteset_Map
#======================================

class Spriteset_Map
#--------------------------------------------------------------------------
def in_range?(object)
screne_x = $game_map.display_x
screne_x -= 256
screne_y = $game_map.display_y
screne_y -= 256
screne_width = $game_map.display_x
screne_width += 2816
screne_height = $game_map.display_y
screne_height += 2176
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 != $game_map.panorama_name or
   @panorama_hue != $game_map.panorama_hue
  @panorama_name = $game_map.panorama_name
  @panorama_hue = $game_map.panorama_hue
  if @panorama.bitmap != nil
    @panorama.bitmap.dispose
    @panorama.bitmap = nil
  end
  if @panorama_name != ""
    @panorama.bitmap = RPG::Cache.panorama(@panorama_name, @panorama_hue)
  end
  Graphics.frame_reset
end
if @fog_name != $game_map.fog_name or @fog_hue != $game_map.fog_hue
  @fog_name = $game_map.fog_name
  @fog_hue = $game_map.fog_hue
  if @fog.bitmap != nil
    @fog.bitmap.dispose
    @fog.bitmap = nil
  end
  if @fog_name != ""
    @fog.bitmap = RPG::Cache.fog(@fog_name, @fog_hue)
  end
  Graphics.frame_reset
end
@tilemap.ox = $game_map.display_x / 4
@tilemap.oy = $game_map.display_y / 4
@tilemap.update
@panorama.ox = $game_map.display_x / 8
@panorama.oy = $game_map.display_y / 8
@fog.zoom_x = $game_map.fog_zoom / 100.0
@fog.zoom_y = $game_map.fog_zoom / 100.0
@fog.opacity = $game_map.fog_opacity
@fog.blend_type = $game_map.fog_blend_type
@fog.ox = $game_map.display_x / 4 + $game_map.fog_ox
@fog.oy = $game_map.display_y / 4 + $game_map.fog_oy
@fog.tone = $game_map.fog_tone
i=0
for sprite in @character_sprites
  if sprite.character.is_a?(Game_Event)
    if in_range?(sprite.character) or sprite.character.trigger == 3 or sprite.character.trigger == 4
      sprite.update
      i+=1
    end
  else
    sprite.update
    i+=1
  end
end
#p i
@weather.type = $game_screen.weather_type
@weather.max = $game_screen.weather_max
@weather.ox = $game_map.display_x / 4
@weather.oy = $game_map.display_y / 4
@weather.update
for sprite in @picture_sprites
  sprite.update
end
@timer_sprite.update
@viewport1.tone = $game_screen.tone
@viewport1.ox = $game_screen.shake
@viewport3.color = $game_screen.flash_color
@viewport1.update
@viewport3.update
end
end


instructions:
paste the code in a new page above main. thats it!

i hope everyone likes it!
Title: Re: anyone need an anti-lag script?
Post by: Snailer on April 06, 2007, 02:03:04 PM
I think there is one in Script database too ::)

Title: Re: anyone need an anti-lag script?
Post by: :) on April 06, 2007, 02:09:23 PM
Good find fadark. but I believe blizz has one in tons of add on's if i'm correct.
Title: Re: anyone need an anti-lag script?
Post by: fadark on April 07, 2007, 12:12:25 AM
i know, but i heard that some people wanted a simpler one that they can just insert in a new page. they didnt want to have to configure it and stuff
Title: Re: anyone need an anti-lag script?
Post by: Blizzard on April 10, 2007, 10:47:04 AM
Mine's way more simple with less code, but more effective. ^_^
Title: Re: anyone need an anti-lag script?
Post by: fadark on April 10, 2007, 09:59:13 PM
may i see it plz?
Title: Re: anyone need an anti-lag script?
Post by: Kokowam on April 10, 2007, 10:29:50 PM
Note it was said that it was in his add-ons. ><

EDIT: Sorry if that sounds a little mean.
Title: Re: anyone need an anti-lag script?
Post by: fadark on April 10, 2007, 10:36:41 PM
oh,oops