Project1»广场 › 技术讨论 › RPG Maker VX 讨论区 › VX事件卡的问题

VX事件卡的问题

查看数: 3577 | 评论数: 9 | 收藏 1

关灯 | 提示：支持键盘翻页<-左右->

帖子模式

天秤

发布时间: 2013-2-13 17:02

正文摘要:

当一个地图事件多的话会很卡！有没有什么脚本可以消除这种状态！我搜索了一下！但是用上之后都是脚本错误！貌似不兼容还是？

我海市蜃楼 发表于 2013-2-13 20:49:59

本人也说不好那个好用任选其一插入 Main 上方即可………………

RUBY 代码复制

# ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■
#■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
# ■ MOG - XAS反延迟 VX (V1.0)
#■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
# ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■
# 作者 Moghunter
# [url]http://www.atelier-rgss.com[/url]
#●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●
# 开启XAS系统的反延迟。
#==============================================================================
# 用下面这条指令来开启或关闭反延迟系统。
#
# $game_system.anti_lag = true
#==============================================================================
#=begin
module XAS_ANTI_LAG
  #在屏幕外刷新的范围。
  UPDATE_OUT_SCREEN_RANGE = 4
end
 
#==============================================================================
# ■ Game_System
#==============================================================================
class Game_System
  attr_accessor :anti_lag
 
 #--------------------------------------------------------------------------
 # ● 初始化
 #--------------------------------------------------------------------------   
  alias mog_antilag_initialize initialize
  def initialize
      @anti_lag = true
      mog_antilag_initialize
  end  
end
 
#==============================================================================
# ■ Game_Character
#==============================================================================
class Game_Character
 
 #--------------------------------------------------------------------------
 # ● 检查屏幕上的事件
 #-------------------------------------------------------------------------- 
 def update_anti_lag
     unless $game_system.anti_lag
         @can_update = true 
         return
     end  
     anti_lag_event_on_screen
 end 
 
 #--------------------------------------------------------------------------
 # ● 屏幕上的事件
 #--------------------------------------------------------------------------
 def anti_lag_event_on_screen
     @can_update = false
     if anti_lag_need_update_out_screen?
        @can_update = true
        return 
     end   
     out_screen = XAS_ANTI_LAG::UPDATE_OUT_SCREEN_RANGE
     px = ($game_map.display_x / 256).truncate 
     py = ($game_map.display_y / 256).truncate    
     distance_x = @x - px
     distance_y = @y - py
     if distance_x.between?(0 - out_screen, 16 + out_screen) and
        distance_y.between?(0 - out_screen, 12 + out_screen)
        @can_update = true
     end  
 end      
 
 #--------------------------------------------------------------------------
 # ● 屏幕上的事件
 #-------------------------------------------------------------------------- 
 def anti_lag_need_update_out_screen?    
     if self.force_update
        return true      
     end    
     if self.battler != nil
        if self.battler.sensor_range >= 17
           return true
        end  
     end  
     return false
 end
 
 #--------------------------------------------------------------------------
 # ● 屏幕外的事件效果
 #--------------------------------------------------------------------------  
 def execute_effects_out_screen
     return if erased
     if self.battler != nil
        self.erase if self.battler.dead? 
     end 
     if self.tool_id > 0
        self.action.duration = 1
        $game_system.tools_on_map.delete(self.tool_id)
        self.erase
     end  
 end
 
 #--------------------------------------------------------------------------
 # ● 刷新
 #--------------------------------------------------------------------------     
  alias mog_anti_lag_update update
  def update
      unless self.is_a?(Game_Player)
          update_anti_lag
          unless @can_update
              execute_effects_out_screen
              return
          end    
      end
      mog_anti_lag_update
  end
end
 
#==============================================================================
# ■ Sprite Character
#==============================================================================
class Sprite_Character < Sprite_Base
 
 #--------------------------------------------------------------------------
 # ● 检查是否可以刷新精灵
 #--------------------------------------------------------------------------       
  def check_can_update_sprite
      if self.visible and @character.can_update == false
         reset_sprite_effects
      end        
      self.visible = @character.can_update           
  end
 
 #--------------------------------------------------------------------------
 # ● 重置精灵效果
 #--------------------------------------------------------------------------         
  def reset_sprite_effects
      dispose_animation
  end
 
 #--------------------------------------------------------------------------
 # ● 刷新
 #--------------------------------------------------------------------------           
  alias mog_anti_lag_update update
  def update
      if $game_system.anti_lag
         check_can_update_sprite
         return unless self.visible
      end   
      mog_anti_lag_update
  end
 
end  
 
$mog_rgss2_xas_anti_lag = true
#=end

# ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■


#■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■


# ■ MOG - XAS反延迟 VX (V1.0)


#■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■


# ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■


# 作者 Moghunter


# [url]http://www.atelier-rgss.com[/url]


#●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●


# 开启XAS系统的反延迟。


#==============================================================================


# 用下面这条指令来开启或关闭反延迟系统。


#


# $game_system.anti_lag = true


#==============================================================================


#=begin


module XAS_ANTI_LAG


  #在屏幕外刷新的范围。


  UPDATE_OUT_SCREEN_RANGE = 4


end


 


#==============================================================================


# ■ Game_System


#==============================================================================


class Game_System


  attr_accessor :anti_lag


 


 #--------------------------------------------------------------------------


 # ● 初始化


 #--------------------------------------------------------------------------   


  alias mog_antilag_initialize initialize


  def initialize


      @anti_lag = true


      mog_antilag_initialize


  end  


end


 


#==============================================================================


# ■ Game_Character


#==============================================================================


class Game_Character


 


 #--------------------------------------------------------------------------


 # ● 检查屏幕上的事件


 #-------------------------------------------------------------------------- 


 def update_anti_lag


     unless $game_system.anti_lag


         @can_update = true 


         return


     end  


     anti_lag_event_on_screen


 end 


 


 #--------------------------------------------------------------------------


 # ● 屏幕上的事件


 #--------------------------------------------------------------------------


 def anti_lag_event_on_screen


     @can_update = false


     if anti_lag_need_update_out_screen?


        @can_update = true


        return 


     end   


     out_screen = XAS_ANTI_LAG::UPDATE_OUT_SCREEN_RANGE


     px = ($game_map.display_x / 256).truncate 


     py = ($game_map.display_y / 256).truncate    


     distance_x = @x - px


     distance_y = @y - py


     if distance_x.between?(0 - out_screen, 16 + out_screen) and


        distance_y.between?(0 - out_screen, 12 + out_screen)


        @can_update = true


     end  


 end      


 


 #--------------------------------------------------------------------------


 # ● 屏幕上的事件


 #-------------------------------------------------------------------------- 


 def anti_lag_need_update_out_screen?    


     if self.force_update


        return true      


     end    


     if self.battler != nil


        if self.battler.sensor_range >= 17


           return true


        end  


     end  


     return false


 end


 


 #--------------------------------------------------------------------------


 # ● 屏幕外的事件效果


 #--------------------------------------------------------------------------  


 def execute_effects_out_screen


     return if erased


     if self.battler != nil


        self.erase if self.battler.dead? 


     end 


     if self.tool_id > 0


        self.action.duration = 1


        $game_system.tools_on_map.delete(self.tool_id)


        self.erase


     end  


 end


 


 #--------------------------------------------------------------------------


 # ● 刷新


 #--------------------------------------------------------------------------     


  alias mog_anti_lag_update update


  def update


      unless self.is_a?(Game_Player)


          update_anti_lag


          unless @can_update


              execute_effects_out_screen


              return


          end    


      end


      mog_anti_lag_update


  end


end


 


#==============================================================================


# ■ Sprite Character


#==============================================================================


class Sprite_Character < Sprite_Base


 


 #--------------------------------------------------------------------------


 # ● 检查是否可以刷新精灵


 #--------------------------------------------------------------------------       


  def check_can_update_sprite


      if self.visible and @character.can_update == false


         reset_sprite_effects


      end        


      self.visible = @character.can_update           


  end


 


 #--------------------------------------------------------------------------


 # ● 重置精灵效果


 #--------------------------------------------------------------------------         


  def reset_sprite_effects


      dispose_animation


  end


 


 #--------------------------------------------------------------------------


 # ● 刷新


 #--------------------------------------------------------------------------           


  alias mog_anti_lag_update update


  def update


      if $game_system.anti_lag


         check_can_update_sprite


         return unless self.visible


      end   


      mog_anti_lag_update


  end


 


end  


 


$mog_rgss2_xas_anti_lag = true


#=end

RUBY 代码复制

#============================================================================
# ■ VX_事件图形刷新简化    —— By 诡异の猫
#============================================================================
#    脚本内容: 只刷新视野内的事件图形,改善大地图事件过多卡机情况.
#============================================================================
class Sprite_Character < Sprite_Base
  #--------------------------------------------------------------------------
  # ● 判定图形是否再视野内
  #--------------------------------------------------------------------------
  def in_view?
    add_x = (self.width-32)*4 + 384#256
    add_y = self.height*8
    begin_x = $game_map.display_x - add_x
    begin_y = $game_map.display_y - add_y
    end_x = $game_map.display_x + 4352 + add_x
    end_y = $game_map.display_y + 3328 + add_y
    limit_x = $game_map.width * 256 - 256 + add_x
    limit_y = $game_map.height * 256 - 256 + add_y
    char_x = @character.real_x
    char_y = @character.real_y
    if end_x <= limit_x
      return false if char_x < begin_x or char_x > end_x 
    end
    if end_y <= limit_y
      return false if char_y < begin_y or char_y > end_y
    end
    if end_x > limit_x and end_y > limit_y
      return false if char_x < begin_x and char_x > end_x - limit_x
      return false if char_y < begin_y and char_y > end_y - limit_y
    end
    return true
  end
  #--------------------------------------------------------------------------
  # ● 更新画面
  #--------------------------------------------------------------------------
  def update
    super
    if in_view?
      update_bitmap
      self.visible = (not @character.transparent)
      update_src_rect
      self.x = @character.screen_x
      self.y = @character.screen_y
      self.z = @character.screen_z
      self.opacity = @character.opacity
      self.blend_type = @character.blend_type
      self.bush_depth = @character.bush_depth
    end
    update_balloon
    if @character.animation_id != 0
      animation = $data_animations[@character.animation_id]
      start_animation(animation)
      @character.animation_id = 0
    end
    if @character.balloon_id != 0
      @balloon_id = @character.balloon_id
      start_balloon
      @character.balloon_id = 0
    end
  end
end
#==============================================================================
 
 
 
#==============================================================================
# 本脚本来自[url]www.66RPG.com[/url]，使用和转载请保留此信息
#==============================================================================

#============================================================================


# ■ VX_事件图形刷新简化    —— By 诡异の猫


#============================================================================


#    脚本内容: 只刷新视野内的事件图形,改善大地图事件过多卡机情况.


#============================================================================


class Sprite_Character < Sprite_Base


  #--------------------------------------------------------------------------


  # ● 判定图形是否再视野内


  #--------------------------------------------------------------------------


  def in_view?


    add_x = (self.width-32)*4 + 384#256


    add_y = self.height*8


    begin_x = $game_map.display_x - add_x


    begin_y = $game_map.display_y - add_y


    end_x = $game_map.display_x + 4352 + add_x


    end_y = $game_map.display_y + 3328 + add_y


    limit_x = $game_map.width * 256 - 256 + add_x


    limit_y = $game_map.height * 256 - 256 + add_y


    char_x = @character.real_x


    char_y = @character.real_y


    if end_x <= limit_x


      return false if char_x < begin_x or char_x > end_x 


    end


    if end_y <= limit_y


      return false if char_y < begin_y or char_y > end_y


    end


    if end_x > limit_x and end_y > limit_y


      return false if char_x < begin_x and char_x > end_x - limit_x


      return false if char_y < begin_y and char_y > end_y - limit_y


    end


    return true


  end


  #--------------------------------------------------------------------------


  # ● 更新画面


  #--------------------------------------------------------------------------


  def update


    super


    if in_view?


      update_bitmap


      self.visible = (not @character.transparent)


      update_src_rect


      self.x = @character.screen_x


      self.y = @character.screen_y


      self.z = @character.screen_z


      self.opacity = @character.opacity


      self.blend_type = @character.blend_type


      self.bush_depth = @character.bush_depth


    end


    update_balloon


    if @character.animation_id != 0


      animation = $data_animations[@character.animation_id]


      start_animation(animation)


      @character.animation_id = 0


    end


    if @character.balloon_id != 0


      @balloon_id = @character.balloon_id


      start_balloon


      @character.balloon_id = 0


    end


  end


end


#==============================================================================


 


 


 


#==============================================================================


# 本脚本来自[url]www.66RPG.com[/url]，使用和转载请保留此信息


#==============================================================================

RUBY 代码复制

#==============================================================================
# Módulo AntiLag 超级防卡脚本
#==============================================================================
    module AntiLag
      SPC = Win32API.new("kernel32", "SetPriorityClass", "pi", "i")
      @@high_priority = false
      def self.high_priority ; @@high_priority; end
      def self.high_priority?; @@high_priority; end
      def self.high_priority=(valor)
        return if @@high_priority == valor
        @@high_priority = valor
        if @@high_priority
          SPC.call(-1, 0x80)
          return
        end
        SPC.call(-1, 0x20)
      end
    end
    AntiLag.high_priority = true

#==============================================================================


# Módulo AntiLag 超级防卡脚本


#==============================================================================


    module AntiLag


      SPC = Win32API.new("kernel32", "SetPriorityClass", "pi", "i")


      @@high_priority = false


      def self.high_priority ; @@high_priority; end


      def self.high_priority?; @@high_priority; end


      def self.high_priority=(valor)


        return if @@high_priority == valor


        @@high_priority = valor


        if @@high_priority


          SPC.call(-1, 0x80)


          return


        end


        SPC.call(-1, 0x20)


      end


    end


    AntiLag.high_priority = true

点评

天秤

对不起！第一个第19行错误.第二个第61行错误.第三个第18行错误发表于 2013-2-14 12:56

天秤

谢谢!我试试！发表于 2013-2-13 22:49

评分

参与人数 1	星屑 +40	收起理由
怪蜀黍	+ 40	精品文章

查看全部评分

q1270524984 发表于 2013-2-18 08:23:28

天秤发表于 2013-2-17 12:04
http://rpg.blue/forum.php?mod=viewthread&tid=284953&page=1#pid2115444 这个游戏第四关超卡！ ...

话说应该很简单啊，你是不是设成很多个事件自动执行了？应该并列执行啊！

点评

天秤

我在1个地图上设置了150多个事件也没有并行处理..只是随机移动！发表于 2013-2-18 12:36

评分

参与人数 1	星屑 +1	收起理由
怪蜀黍	+ 1	我不赞同

查看全部评分

天秤 发表于 2013-2-17 12:04:05

http://rpg.blue/forum.php?mod=vi ... p;page=1#pid2115444 这个游戏第四关超卡！

Password 发表于 2013-2-16 14:45:17

局部刷新脚本
http://rpg.blue/thread-233461-1-1.html
（来自图书馆）

这个试过咩？

点评

天秤

出现个诡异的现象...在初始地图正常..但一转换场景地图就41行出错了发表于 2013-2-17 12:44

天秤

苏联菌好啊！发表于 2013-2-17 12:02

Password

↓累…… 发表于 2013-2-16 14:47

protosssonny

很久不见。发表于 2013-2-16 14:46

评分

参与人数 1	星屑 +40	收起理由
怪蜀黍	+ 40	精品文章

查看全部评分

我海市蜃楼 发表于 2013-2-14 13:34:21

我用过都没事啊。你新建个空白工程试试

点评

天秤

依旧不行确认是VX的？或者是我复制方式不同？弄个复制代码的....项试试. 发表于 2013-2-14 16:55

天秤

好的！发表于 2013-2-14 14:27

acn00269 发表于 2013-2-13 19:16:21

试下这个脚本，是即时清除缓存的，直接贴到脚本编辑器中即可

############################################################################
# RM内存自动清理脚本（XP&VX） v 1.00
# 作者：精灵使者创意：夏娜各种压力的猫君
# 按惯例，此类脚本应该放在最上面，就会自动工作。
# 使用方法：直接插入脚本的最上面即可
# 如果感觉卡机，请修改GC_FREQ
############################################################################
#--------------------------------------------------------------------------
# ● 设定部分
#--------------------------------------------------------------------------
module GC_CLEAR
GC_FREQ = 60 #清理内存的频率（如果卡机，请调大清理频率，默认1秒整理1次）
GC_TRANSITION = true #场景变换的时候是否立即清理，默认开启
end
#--------------------------------------------------------------------------
# ● 创建自动清理线程
#--------------------------------------------------------------------------
if @gc_thread.nil?
@gc_thread = Thread.new{loop{GC.start;sleep(GC_CLEAR::GC_FREQ)}}
end
#--------------------------------------------------------------------------
# ● 场景变换时清理部分
#--------------------------------------------------------------------------
class << Graphics
alias origin_transition transition unless method_defined? :origin_transition
alias origin_freeze freeze unless method_defined? :origin_freeze
def transition(*args)
origin_transition(*args)
GC.start if GC_CLEAR::GC_TRANSITION
end
def freeze
origin_freeze
GC.start if GC_CLEAR::GC_TRANSITION
end
end

复制代码

点评

天秤

这个抱歉...没有发生脚本错误但是貌似效果不大.....我实验对象是一个地图里放着170个事件发表于 2013-2-14 12:51

devilg

缓存的作用就是在多次调用的情况下加速读取的…… 这个是用garbage collector做清理，我记得ruby本来就对不使用的东西做清理（SPRITE BITMAP）发表于 2013-2-14 03:21

天秤

谢谢！我试下！发表于 2013-2-13 19:39

评分

参与人数 1	星屑 +30	收起理由
怪蜀黍	+ 30	谢谢参与

查看全部评分

天秤 发表于 2013-2-13 17:17:33

紫英晓狼1130 发表于 2013-2-13 17:08
事件卡其实没什么办法，试着把事件编少点，或者把地图分成几份。

阁下真是无处不在啊！又见到了！
我搜索过一些帖子，有几个帖子还发了脚本！
说明如果脚本的话还是有可能弄个类似缓冲或者是扩容的状态
虽然搜到的都是脚本错误
但还是有可能的
只是我不甚懂得脚本！所以无能为力了
所以才求救......VX地图的地图，单个地图可以做到500*500，这么大的地图事件怎么可能少，一多的的有卡，那不是没有意义吗？所以我想应该还是有解决方法的！

紫英晓狼1130 发表于 2013-2-13 17:08:26

事件卡其实没什么办法，试着把事件编少点，或者把地图分成几份。

点评

八宝粥先生

额等于没说发表于 2013-2-13 17:45

帐号		自动登录	找回密码
密码			注册会员

VX事件卡的问题

正文摘要:

回复

点评

评分

点评

评分

点评

评分

点评

点评

评分

点评