[XP] Standardscripte die man haben sollte!

[Macros]

Ich möchte noch ein weiteres Script vorstellen, welches meiner Meinung nach in jedes RmXp Spiel hinein gehört.
Es ist natürlich nicht von mir sondern von Near Fantastica aus dem Creation Asylum

Mit dem Anti Lag Script werden "Ruckler" vermieden, die durch Maps mit vielen Events entstehen.
Es funktioniert auch in Verbindung mit anderen Ruby-Scripts die sich auf Events beziehen.
So ruckelt eine große Map mit über 300 Event, die jeweils einen Echtzeit animierten Schatten haben, nicht.

Soviel ich weiss werden damit die Events, die nicht aktive sind und sich nicht im Sichtfeld des Spielers befinden angehalten.
Da bin ich mir jetzt aber nicht sicher und ich kann leider auch kein Ruby.

Das Script muss lediglich in ein Neues Script über Main kopiert werden und arbeitet dann selbstständig.

Code:

#======================================
# ■ 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-32
   return false if object.real_x >= screne_width+32
   return false if object.real_y <= screne_y-32
   return false if object.real_y >= screne_height+32
   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