Project1

标题: LE线形视野脚本的XP2.2加VX2.21和ACE2.21版本全发布 [打印本页]

---

作者: 流川枫    时间: 2012-7-6 07:24
标题: LE线形视野脚本的XP2.2加VX2.21和ACE2.21版本全发布

RUBY 代码复制

#==============================================================================
# ■ LCF_Leyeshot (linetype eyeshot)ACE 2.21    Creator LCF  Date 2009.7.6
#------------------------------------------------------------------------------
# 　线形视野系统    编者：流川枫   QQ：350773875 
#==============================================================================
#【使用说明】
#------------------------------------------------------------------------------
# 视野系统开关    $game_map.events[@event_id].le_seeing = true/false
# 功能：该值为true表示该NPC视野开启，否则未开启，默认为false。
#------------------------------------------------------------------------------
# 视野透视开关    $game_map.events[@event_id].le_clairv = true/false
# 功能：该值为true表示该NPC视野不扫描视线障碍，否则扫描，默认为false。
#------------------------------------------------------------------------------
# 视线显示开关    $game_map.events[@event_id].le_show = true/false
# 功能：该值为true表示显示该NPC的视线，否则不显示，默认为false。
#------------------------------------------------------------------------------
# 看见时显示开关    $game_map.events[@event_id].le_ss = true/false
# 功能：该值为true表示只有当NPC看见主角时才显示视线，否则一直显示，默认为false。
#------------------------------------------------------------------------------
# 侧面可视开关    $game_map.events[@event_id].le_side = true/false
# 功能：该值为true表示该NPC可以看到侧面一格内的人，否则由斜率决定，默认为true。
#------------------------------------------------------------------------------
# 视野环绕开关    $game_map.events[@event_id].le_circle = true/false
# 功能：该值为true表示该NPC为环绕视野，否则不能看见自己的身后，默认为false。
#------------------------------------------------------------------------------
# 设置视野深度    $game_map.events[@event_id].le_deepness = 深度值
# 功能：该值代表视野的能见度，当视野模型为扇形时应避免设置成奇数，默认为8。
#------------------------------------------------------------------------------
# 设置视野斜率    $game_map.events[@event_id].le_slope = 斜率值
# 功能：该值代表视野的斜率，默认为1.0。
#------------------------------------------------------------------------------
# 设置显示颜色    $game_map.events[@event_id].le_color = 颜色值
# 功能：该值代表视线显示的颜色，默认为0xf0。
#------------------------------------------------------------------------------
# 设置触发开关    $game_map.events[@event_id].le_skey = "A"/"B"/"C"/"D"(大写)
# 功能：该值指定了映射是否看见主角的状态的独立开关，默认为"D"。
#------------------------------------------------------------------------------
# 设置键开关    $game_map.events[@event_id].le_kw = true/false
# 功能：该值表示是否将该NPC触发状态映射到触发开关指定的独立变量中，默认为true。
#------------------------------------------------------------------------------
# 设置触发确认    $game_map.events[@event_id].le_true = true/false
# 功能：该值表示该NPC是否看见了主角，等价于触发开关，默认为false。
#------------------------------------------------------------------------------
# 设置视野模型    $game_map.events[@event_id].le_mode = 0/1
# 功能：该值为0时表示该NPC的视野形状类扇形，为1时类三角形，默认为0。
#==============================================================================
# 全局视野开关    $le_run = true/false
# 功能：该值为true表示系统正常工作，否则终止所有NPC的视野,默认为true。
#------------------------------------------------------------------------------
# 全局关闭列表    $le_close_table = ["A","B","C","D"]
# 功能：不同场景转移时，将自动关闭表里的独立开关。（只针对le_seeing为true的NPC）
#==============================================================================
# 当NPC看见主角，独立开关(le_skey)便会被打开,否则为关闭状态。
#==============================================================================
 
#==============================================================================
# ■ Game_Event
#------------------------------------------------------------------------------
# 　重载事件类
#==============================================================================
class Game_Event
  attr_accessor   :le_seeing                 # 视野系统开关
  attr_accessor   :le_clairv                 # 视野透视开关
  attr_accessor   :le_show                   # 视线显示开关
  attr_accessor   :le_ss                     # 看见时显示开关
  attr_accessor   :le_side                   # 侧面可视开关
  attr_accessor   :le_circle                 # 视野环绕开关
  attr_accessor   :le_deepness               # 视野深度
  attr_accessor   :le_slope                  # 视野斜率
  attr_accessor   :le_color                  # 显示颜色
  attr_accessor   :le_trace                  # 视野痕迹
  attr_accessor   :le_skey                   # 触发开关
  attr_accessor   :le_kw                     # 键开关
  attr_accessor   :le_true                   # 触发确认
  attr_accessor   :le_mode                   # 视野模型
  #--------------------------------------------------------------------------
  LE_DEEPNESS_OFFSET = 1                     # 深度缓存的偏移
  #--------------------------------------------------------------------------
  # ● 初始化对像
  #     map_id : 地图 ID
  #     event  : 事件 (RPG::Event)
  #--------------------------------------------------------------------------
  alias original_le_initialize initialize
  def initialize (map_id, event)
    original_le_initialize(map_id, event)
    @le_seeing   = false
    @le_clairv   = false
    @le_show     = false
    @le_ss       = false
    @le_side     = true
    @le_circle   = false
    @le_deepness = 8
    @le_slope    = 1.0
    @le_color    = 0xf0
    @le_trace = Table.new(@le_deepness-LE_DEEPNESS_OFFSET,2)
    @le_trace[0,0] = -1
    @le_kw   = true
    @le_true = false
    @le_mode = 0
    @le_skey = "D"
  end
  #--------------------------------------------------------------------------
  # ● 刷新
  #--------------------------------------------------------------------------
  alias original_le_update update
  def update
    original_le_update
    if @le_seeing and $le_run
      @le_trace.resize(@le_deepness-LE_DEEPNESS_OFFSET,2) if @le_trace.xsize+LE_DEEPNESS_OFFSET != @le_deepness
      self.see
      if @le_kw
        $game_map.need_refresh = true if @le_true != $game_self_switches[[$game_map.map_id, @id, @le_skey]]
        $game_self_switches[[$game_map.map_id, @id, @le_skey]] = @le_true
      end
    end
  end
  #--------------------------------------------------------------------------
  # ● 视野检测
  #--------------------------------------------------------------------------
  def see
    @le_true = false
    if ($game_player.x-@x).abs<@le_deepness and ($game_player.y-@y).abs<@le_deepness
      difference_x = ($game_player.x - @x).abs
      difference_y = ($game_player.y - @y).abs
      case @direction
      when 2
        return if @le_circle != true and $game_player.y < @y
        unless @le_side and (difference_y == 0 and difference_x == 1)
          return if difference_x.to_f/difference_y > @le_slope
        end
      when 4
        return if @le_circle != true and $game_player.x > @x
        unless @le_side and difference_y == 1 and difference_x == 0
          return if difference_y.to_f/difference_x > @le_slope
        end
      when 6
        return if @le_circle != true and $game_player.x < @x
        unless @le_side and difference_y == 1 and difference_x == 0
          return if difference_y.to_f/difference_x > @le_slope
        end
      else
        return if @le_circle != true and $game_player.y > @y
        unless @le_side and difference_y == 0 and difference_x == 1
          return if difference_x.to_f/difference_y > @le_slope
        end
      end
      if @le_mode == 0
        return if (difference_x ** 2 + difference_y ** 2) > le_deepness ** 2
      end
      @le_true = scan_line
      if @le_ss and @le_true !=true
        @le_trace[0,0] = -1
      end
    end
  end
  #--------------------------------------------------------------------------
  # ● 视线检测   采用了国际领先的视线扫描算法！
  #--------------------------------------------------------------------------
  def scan_line
    difference_x = $game_player.x - @x
    difference_y = $game_player.y - @y
    direction_x = (difference_x > 0 ? 1 : -1)
    direction_y = (difference_y > 0 ? 1 : -1)
    i = 0
    if difference_x.abs > difference_y.abs
      while difference_x.abs > i+1
        i+=1
        x = @x+i*direction_x
        if direction_y>0
          y = @y+i*difference_y/difference_x.to_f*direction_y*direction_x+0.5
        else
          y = @y-i*difference_y/difference_x.to_f*direction_y*direction_x+0.5
        end
        x = x.floor
        y = y.floor
        if @le_clairv != true
          unless (direction_x > 0 ? passable?(x-1,y,6) : passable?(x+1,y,4))
            @le_trace[i-1,0] = -1
            return false
          end
        end
        if @le_show
          @le_trace[i-1,0] = x
          @le_trace[i-1,1] = y
        end
      end
    else
      while difference_y.abs > i+1
        i+=1
        y = @y+i*direction_y
        if direction_x>0
          x = @x+i*difference_x/(difference_y+0.0)*direction_x*direction_y+0.5
        else
          x = @x-i*difference_x/(difference_y+0.0)*direction_x*direction_y+0.5
        end
        x = x.floor
        y = y.floor
        if @le_clairv != true
          unless (direction_y > 0 ? passable?(x,y-1,2) : passable?(x,y+1,8))
            @le_trace[i-1,0] = -1
            return false
          end
        end
        if @le_show
          @le_trace[i-1,0] = x
          @le_trace[i-1,1] = y
        end
      end
    end
    @le_trace[i,0] = -1
    return true
  end
end
#==============================================================================
# ■ Spriteset_Map
#------------------------------------------------------------------------------
#    重载地图显示
#==============================================================================
class Spriteset_Map
  attr_reader:tilemap 
  alias :original_le_initialize :initialize
  def initialize
    original_le_initialize
    @tilemap.flash_data=Table.new(@tilemap.map_data.xsize,@tilemap.map_data.ysize)
  end
end
#==============================================================================
# ■ Game_Player
#------------------------------------------------------------------------------
#    重载玩家
#==============================================================================
class Game_Player < Game_Character
  attr_reader:new_map_id
end
#==============================================================================
# ■ Scene_Map
#------------------------------------------------------------------------------
#    重载地图场景
#==============================================================================
class Scene_Map
  attr_reader:spriteset
  #--------------------------------------------------------------------------
  # ● 场所移动前的处理
  #--------------------------------------------------------------------------
  alias original_le_pre_transfer pre_transfer
  def pre_transfer
    original_le_pre_transfer
    # 自动关闭当前地图上le_seeing为true的NPC独立开关
    if $game_map.map_id != $game_player.new_map_id
      for event in $game_map.events.values
        if event.le_seeing
          for key in $le_close_table
            $game_self_switches[[$game_map.map_id,event.id, key]] =false
          end
        end
      end
    end
  end
  #--------------------------------------------------------------------------
  # ● 更新画面
  #--------------------------------------------------------------------------
  #alias original_le_update update
  def update
    super
      #==========================
      # 清除LE视野产生的痕迹
      #==========================
      for event in $game_map.events.values
        for i in 0 .. event.le_trace.xsize-1
          break if event.le_trace[i,0] == -1
          @spriteset.tilemap.flash_data[event.le_trace[i,0],event.le_trace[i,1]] = 0
        end
         event.le_trace[0,0] = -1
       end
      #==========================
 
    $game_map.update(true)
    $game_player.update
    $game_timer.update
    @spriteset.update
    update_scene if scene_change_ok?
      #==========================
      # 刷新LE视野路径
      #==========================
      for event in $game_map.events.values
        for i in 0 .. event.le_trace.xsize-1
          break if event.le_trace[i,0] == -1
          @spriteset.tilemap.flash_data[event.le_trace[i,0],event.le_trace[i,1]] = event.le_color
        end
      end
      #==========================
  end
end
#==============================================================================
# ■ Scene_Title
#------------------------------------------------------------------------------
# 　处理标题画面的类。
#==============================================================================
class Scene_Title
  alias original_le_main main
  def main
    $le_run = true
    $le_close_table = ["A","B","C","D"]
    original_le_main
  end
end
#==============================================================================
# ■ DataManager
#------------------------------------------------------------------------------
# 　处理存档。
#==============================================================================
module DataManager
  # 写入两个全局变量
  def self.save_game_without_rescue(index)
    File.open(make_filename(index), "wb") do |file|
      $game_system.on_before_save
      Marshal.dump(make_save_header, file)
      Marshal.dump(make_save_contents, file)
      @last_savefile_index = index
      Marshal.dump($le_run,file)
      Marshal.dump($le_close_table,file)
    end
    return true
  end
  def self.load_game_without_rescue(index)
    File.open(make_filename(index), "rb") do |file|
      Marshal.load(file)
      extract_save_contents(Marshal.load(file))
      reload_map_if_updated
      @last_savefile_index = index
      $le_run         = Marshal.load(file)
      $le_close_table = Marshal.load(file)
    end
    return true
  end
end
#==============================================================================
#                                 The End
#==============================================================================

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


# ■ LCF_Leyeshot (linetype eyeshot)ACE 2.21    Creator LCF  Date 2009.7.6


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


# 　线形视野系统    编者：流川枫   QQ：350773875 


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


#【使用说明】


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


# 视野系统开关    $game_map.events[@event_id].le_seeing = true/false


# 功能：该值为true表示该NPC视野开启，否则未开启，默认为false。


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


# 视野透视开关    $game_map.events[@event_id].le_clairv = true/false


# 功能：该值为true表示该NPC视野不扫描视线障碍，否则扫描，默认为false。


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


# 视线显示开关    $game_map.events[@event_id].le_show = true/false


# 功能：该值为true表示显示该NPC的视线，否则不显示，默认为false。


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


# 看见时显示开关    $game_map.events[@event_id].le_ss = true/false


# 功能：该值为true表示只有当NPC看见主角时才显示视线，否则一直显示，默认为false。


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


# 侧面可视开关    $game_map.events[@event_id].le_side = true/false


# 功能：该值为true表示该NPC可以看到侧面一格内的人，否则由斜率决定，默认为true。


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


# 视野环绕开关    $game_map.events[@event_id].le_circle = true/false


# 功能：该值为true表示该NPC为环绕视野，否则不能看见自己的身后，默认为false。


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


# 设置视野深度    $game_map.events[@event_id].le_deepness = 深度值


# 功能：该值代表视野的能见度，当视野模型为扇形时应避免设置成奇数，默认为8。


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


# 设置视野斜率    $game_map.events[@event_id].le_slope = 斜率值


# 功能：该值代表视野的斜率，默认为1.0。


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


# 设置显示颜色    $game_map.events[@event_id].le_color = 颜色值


# 功能：该值代表视线显示的颜色，默认为0xf0。


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


# 设置触发开关    $game_map.events[@event_id].le_skey = "A"/"B"/"C"/"D"(大写)


# 功能：该值指定了映射是否看见主角的状态的独立开关，默认为"D"。


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


# 设置键开关    $game_map.events[@event_id].le_kw = true/false


# 功能：该值表示是否将该NPC触发状态映射到触发开关指定的独立变量中，默认为true。


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


# 设置触发确认    $game_map.events[@event_id].le_true = true/false


# 功能：该值表示该NPC是否看见了主角，等价于触发开关，默认为false。


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


# 设置视野模型    $game_map.events[@event_id].le_mode = 0/1


# 功能：该值为0时表示该NPC的视野形状类扇形，为1时类三角形，默认为0。


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


# 全局视野开关    $le_run = true/false


# 功能：该值为true表示系统正常工作，否则终止所有NPC的视野,默认为true。


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


# 全局关闭列表    $le_close_table = ["A","B","C","D"]


# 功能：不同场景转移时，将自动关闭表里的独立开关。（只针对le_seeing为true的NPC）


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


# 当NPC看见主角，独立开关(le_skey)便会被打开,否则为关闭状态。


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


 


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


# ■ Game_Event


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


# 　重载事件类


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


class Game_Event


  attr_accessor   :le_seeing                 # 视野系统开关


  attr_accessor   :le_clairv                 # 视野透视开关


  attr_accessor   :le_show                   # 视线显示开关


  attr_accessor   :le_ss                     # 看见时显示开关


  attr_accessor   :le_side                   # 侧面可视开关


  attr_accessor   :le_circle                 # 视野环绕开关


  attr_accessor   :le_deepness               # 视野深度


  attr_accessor   :le_slope                  # 视野斜率


  attr_accessor   :le_color                  # 显示颜色


  attr_accessor   :le_trace                  # 视野痕迹


  attr_accessor   :le_skey                   # 触发开关


  attr_accessor   :le_kw                     # 键开关


  attr_accessor   :le_true                   # 触发确认


  attr_accessor   :le_mode                   # 视野模型


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


  LE_DEEPNESS_OFFSET = 1                     # 深度缓存的偏移


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


  # ● 初始化对像


  #     map_id : 地图 ID


  #     event  : 事件 (RPG::Event)


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


  alias original_le_initialize initialize


  def initialize (map_id, event)


    original_le_initialize(map_id, event)


    @le_seeing   = false


    @le_clairv   = false


    @le_show     = false


    @le_ss       = false


    @le_side     = true


    @le_circle   = false


    @le_deepness = 8


    @le_slope    = 1.0


    @le_color    = 0xf0


    @le_trace = Table.new(@le_deepness-LE_DEEPNESS_OFFSET,2)


    @le_trace[0,0] = -1


    @le_kw   = true


    @le_true = false


    @le_mode = 0


    @le_skey = "D"


  end


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


  # ● 刷新


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


  alias original_le_update update


  def update


    original_le_update


    if @le_seeing and $le_run


      @le_trace.resize(@le_deepness-LE_DEEPNESS_OFFSET,2) if @le_trace.xsize+LE_DEEPNESS_OFFSET != @le_deepness


      self.see


      if @le_kw


        $game_map.need_refresh = true if @le_true != $game_self_switches[[$game_map.map_id, @id, @le_skey]]


        $game_self_switches[[$game_map.map_id, @id, @le_skey]] = @le_true


      end


    end


  end


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


  # ● 视野检测


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


  def see


    @le_true = false


    if ($game_player.x-@x).abs<@le_deepness and ($game_player.y-@y).abs<@le_deepness


      difference_x = ($game_player.x - @x).abs


      difference_y = ($game_player.y - @y).abs


      case @direction


      when 2


        return if @le_circle != true and $game_player.y < @y


        unless @le_side and (difference_y == 0 and difference_x == 1)


          return if difference_x.to_f/difference_y > @le_slope


        end


      when 4


        return if @le_circle != true and $game_player.x > @x


        unless @le_side and difference_y == 1 and difference_x == 0


          return if difference_y.to_f/difference_x > @le_slope


        end


      when 6


        return if @le_circle != true and $game_player.x < @x


        unless @le_side and difference_y == 1 and difference_x == 0


          return if difference_y.to_f/difference_x > @le_slope


        end


      else


        return if @le_circle != true and $game_player.y > @y


        unless @le_side and difference_y == 0 and difference_x == 1


          return if difference_x.to_f/difference_y > @le_slope


        end


      end


      if @le_mode == 0


        return if (difference_x ** 2 + difference_y ** 2) > le_deepness ** 2


      end


      @le_true = scan_line


      if @le_ss and @le_true !=true


        @le_trace[0,0] = -1


      end


    end


  end


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


  # ● 视线检测   采用了国际领先的视线扫描算法！


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


  def scan_line


    difference_x = $game_player.x - @x


    difference_y = $game_player.y - @y


    direction_x = (difference_x > 0 ? 1 : -1)


    direction_y = (difference_y > 0 ? 1 : -1)


    i = 0


    if difference_x.abs > difference_y.abs


      while difference_x.abs > i+1


        i+=1


        x = @x+i*direction_x


        if direction_y>0


          y = @y+i*difference_y/difference_x.to_f*direction_y*direction_x+0.5


        else


          y = @y-i*difference_y/difference_x.to_f*direction_y*direction_x+0.5


        end


        x = x.floor


        y = y.floor


        if @le_clairv != true


          unless (direction_x > 0 ? passable?(x-1,y,6) : passable?(x+1,y,4))


            @le_trace[i-1,0] = -1


            return false


          end


        end


        if @le_show


          @le_trace[i-1,0] = x


          @le_trace[i-1,1] = y


        end


      end


    else


      while difference_y.abs > i+1


        i+=1


        y = @y+i*direction_y


        if direction_x>0


          x = @x+i*difference_x/(difference_y+0.0)*direction_x*direction_y+0.5


        else


          x = @x-i*difference_x/(difference_y+0.0)*direction_x*direction_y+0.5


        end


        x = x.floor


        y = y.floor


        if @le_clairv != true


          unless (direction_y > 0 ? passable?(x,y-1,2) : passable?(x,y+1,8))


            @le_trace[i-1,0] = -1


            return false


          end


        end


        if @le_show


          @le_trace[i-1,0] = x


          @le_trace[i-1,1] = y


        end


      end


    end


    @le_trace[i,0] = -1


    return true


  end


end


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


# ■ Spriteset_Map


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


#    重载地图显示


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


class Spriteset_Map


  attr_reader:tilemap 


  alias :original_le_initialize :initialize


  def initialize


    original_le_initialize


    @tilemap.flash_data=Table.new(@tilemap.map_data.xsize,@tilemap.map_data.ysize)


  end


end


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


# ■ Game_Player


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


#    重载玩家


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


class Game_Player < Game_Character


  attr_reader:new_map_id


end


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


# ■ Scene_Map


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


#    重载地图场景


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


class Scene_Map


  attr_reader:spriteset


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


  # ● 场所移动前的处理


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


  alias original_le_pre_transfer pre_transfer


  def pre_transfer


    original_le_pre_transfer


    # 自动关闭当前地图上le_seeing为true的NPC独立开关


    if $game_map.map_id != $game_player.new_map_id


      for event in $game_map.events.values


        if event.le_seeing


          for key in $le_close_table


            $game_self_switches[[$game_map.map_id,event.id, key]] =false


          end


        end


      end


    end


  end


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


  # ● 更新画面


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


  #alias original_le_update update


  def update


    super


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


      # 清除LE视野产生的痕迹


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


      for event in $game_map.events.values


        for i in 0 .. event.le_trace.xsize-1


          break if event.le_trace[i,0] == -1


          @spriteset.tilemap.flash_data[event.le_trace[i,0],event.le_trace[i,1]] = 0


        end


         event.le_trace[0,0] = -1


       end


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


 


    $game_map.update(true)


    $game_player.update


    $game_timer.update


    @spriteset.update


    update_scene if scene_change_ok?


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


      # 刷新LE视野路径


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


      for event in $game_map.events.values


        for i in 0 .. event.le_trace.xsize-1


          break if event.le_trace[i,0] == -1


          @spriteset.tilemap.flash_data[event.le_trace[i,0],event.le_trace[i,1]] = event.le_color


        end


      end


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


  end


end


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


# ■ Scene_Title


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


# 　处理标题画面的类。


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


class Scene_Title


  alias original_le_main main


  def main


    $le_run = true


    $le_close_table = ["A","B","C","D"]


    original_le_main


  end


end


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


# ■ DataManager


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


# 　处理存档。


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


module DataManager


  # 写入两个全局变量


  def self.save_game_without_rescue(index)


    File.open(make_filename(index), "wb") do |file|


      $game_system.on_before_save


      Marshal.dump(make_save_header, file)


      Marshal.dump(make_save_contents, file)


      @last_savefile_index = index


      Marshal.dump($le_run,file)


      Marshal.dump($le_close_table,file)


    end


    return true


  end


  def self.load_game_without_rescue(index)


    File.open(make_filename(index), "rb") do |file|


      Marshal.load(file)


      extract_save_contents(Marshal.load(file))


      reload_map_if_updated


      @last_savefile_index = index


      $le_run         = Marshal.load(file)


      $le_close_table = Marshal.load(file)


    end


    return true


  end


end


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


#                                 The End


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

RUBY 代码复制

#==============================================================================
# ■ LCF_Leyeshot (linetype eyeshot)VX 2.21    Creator LCF  Date 2009.7.6
#------------------------------------------------------------------------------
# 　线形视野系统    编者：流川枫   QQ：350773875 
#==============================================================================
#【使用说明】
#------------------------------------------------------------------------------
# 视野系统开关    $game_map.events[@event_id].le_seeing = true/false
# 功能：该值为true表示该NPC视野开启，否则未开启，默认为false。
#------------------------------------------------------------------------------
# 视野透视开关    $game_map.events[@event_id].le_clairv = true/false
# 功能：该值为true表示该NPC视野不扫描视线障碍，否则扫描，默认为false。
#------------------------------------------------------------------------------
# 视线显示开关    $game_map.events[@event_id].le_show = true/false
# 功能：该值为true表示显示该NPC的视线，否则不显示，默认为false。
#------------------------------------------------------------------------------
# 看见时显示开关    $game_map.events[@event_id].le_ss = true/false
# 功能：该值为true表示只有当NPC看见主角时才显示视线，否则一直显示，默认为false。
#------------------------------------------------------------------------------
# 侧面可视开关    $game_map.events[@event_id].le_side = true/false
# 功能：该值为true表示该NPC可以看到侧面一格内的人，否则由斜率决定，默认为true。
#------------------------------------------------------------------------------
# 视野环绕开关    $game_map.events[@event_id].le_circle = true/false
# 功能：该值为true表示该NPC为环绕视野，否则不能看见自己的身后，默认为false。
#------------------------------------------------------------------------------
# 设置视野深度    $game_map.events[@event_id].le_deepness = 深度值
# 功能：该值代表视野的能见度，当视野模型为扇形时应避免设置成奇数，默认为8。
#------------------------------------------------------------------------------
# 设置视野斜率    $game_map.events[@event_id].le_slope = 斜率值
# 功能：该值代表视野的斜率，默认为1.0。
#------------------------------------------------------------------------------
# 设置显示颜色    $game_map.events[@event_id].le_color = 颜色值
# 功能：该值代表视线显示的颜色，默认为0xf0。
#------------------------------------------------------------------------------
# 设置触发开关    $game_map.events[@event_id].le_skey = "A"/"B"/"C"/"D"(大写)
# 功能：该值指定了映射是否看见主角的状态的独立开关，默认为"D"。
#------------------------------------------------------------------------------
# 设置键开关    $game_map.events[@event_id].le_kw = true/false
# 功能：该值表示是否将该NPC触发状态映射到触发开关指定的独立变量中，默认为true。
#------------------------------------------------------------------------------
# 设置触发确认    $game_map.events[@event_id].le_true = true/false
# 功能：该值表示该NPC是否看见了主角，等价于触发开关，默认为false。
#------------------------------------------------------------------------------
# 设置视野模型    $game_map.events[@event_id].le_mode = 0/1
# 功能：该值为0时表示该NPC的视野形状类扇形，为1时类三角形，默认为0。
#==============================================================================
# 全局视野开关    $le_run = true/false
# 功能：该值为true表示系统正常工作，否则终止所有NPC的视野,默认为true。
#------------------------------------------------------------------------------
# 全局关闭列表    $le_close_table = ["A","B","C","D"]
# 功能：不同场景转移时，将自动关闭表里的独立开关。（只针对le_seeing为true的NPC）
#==============================================================================
# 当NPC看见主角，独立开关(le_skey)便会被打开,否则为关闭状态。
#==============================================================================
 
#==============================================================================
# ■ Game_Event
#------------------------------------------------------------------------------
# 　重载事件类
#==============================================================================
class Game_Event
  attr_accessor   :le_seeing                 # 视野系统开关
  attr_accessor   :le_clairv                 # 视野透视开关
  attr_accessor   :le_show                   # 视线显示开关
  attr_accessor   :le_ss                     # 看见时显示开关
  attr_accessor   :le_side                   # 侧面可视开关
  attr_accessor   :le_circle                 # 视野环绕开关
  attr_accessor   :le_deepness               # 视野深度
  attr_accessor   :le_slope                  # 视野斜率
  attr_accessor   :le_color                  # 显示颜色
  attr_accessor   :le_trace                  # 视野痕迹
  attr_accessor   :le_skey                   # 触发开关
  attr_accessor   :le_kw                     # 键开关
  attr_accessor   :le_true                   # 触发确认
  attr_accessor   :le_mode                   # 视野模型
  #--------------------------------------------------------------------------
  LE_DEEPNESS_OFFSET = 1                     # 深度缓存的偏移
  #--------------------------------------------------------------------------
  # ● 初始化对像
  #     map_id : 地图 ID
  #     event  : 事件 (RPG::Event)
  #--------------------------------------------------------------------------
  alias original_le_initialize initialize
  def initialize (map_id, event)
    original_le_initialize (map_id, event)
    @le_seeing   = false
    @le_clairv   = false
    @le_show     = false
    @le_ss       = false
    @le_side     = true
    @le_circle   = false
    @le_deepness = 8
    @le_slope    = 1.0
    @le_color    = 0xf0
    @le_trace = Table.new (@le_deepness-LE_DEEPNESS_OFFSET,2)
    @le_trace[0,0] = -1
    @le_kw   = true
    @le_true = false
    @le_mode = 0
    @le_skey = "D"
  end
  #--------------------------------------------------------------------------
  # ● 刷新
  #--------------------------------------------------------------------------
  alias original_le_update update
  def update
    original_le_update
    if @le_seeing and $le_run
      @le_trace.resize (@le_deepness-LE_DEEPNESS_OFFSET,2) if @le_trace.xsize+LE_DEEPNESS_OFFSET != @le_deepness
      self.see
      if @le_kw
        $game_map.need_refresh = true if @le_true != $game_self_switches[[$game_map.map_id, @id, @le_skey]]
        $game_self_switches[[$game_map.map_id, @id, @le_skey]] = @le_true
      end
    end
  end
  #--------------------------------------------------------------------------
  # ● 视野检测
  #--------------------------------------------------------------------------
  def see
    @le_true = false
    if ($game_player.x-@x).abs<@le_deepness and ($game_player.y-@y).abs<@le_deepness
      difference_x = ($game_player.x - @x).abs
      difference_y = ($game_player.y - @y).abs
      case @direction
      when 2
        return if @le_circle != true and $game_player.y < @y
        unless @le_side and (difference_y == 0 and difference_x == 1)
          return if difference_x.to_f/difference_y > @le_slope
        end
      when 4
        return if @le_circle != true and $game_player.x > @x
        unless @le_side and difference_y == 1 and difference_x == 0
          return if difference_y.to_f/difference_x > @le_slope
        end
      when 6
        return if @le_circle != true and $game_player.x < @x
        unless @le_side and difference_y == 1 and difference_x == 0
          return if difference_y.to_f/difference_x > @le_slope
        end
      else
        return if @le_circle != true and $game_player.y > @y
        unless @le_side and difference_y == 0 and difference_x == 1
          return if difference_x.to_f/difference_y > @le_slope
        end
      end
      if @le_mode == 0
        return if (difference_x ** 2 + difference_y ** 2) > le_deepness ** 2
      end
      @le_true = scan_line
      if @le_ss and @le_true !=true
        @le_trace[0,0] = -1
      end
    end
  end
  #--------------------------------------------------------------------------
  # ● 视线检测   采用了国际领先的视线扫描算法！
  #--------------------------------------------------------------------------
  def scan_line
    difference_x = $game_player.x - @x
    difference_y = $game_player.y - @y
    direction_x = (difference_x > 0 ? 1 : -1)
    direction_y = (difference_y > 0 ? 1 : -1)
    i = 0
    if difference_x.abs > difference_y.abs
      while difference_x.abs > i+1
        i+=1
        x = @x+i*direction_x
        if direction_y>0
          y = @y+i*difference_y/difference_x.to_f*direction_y*direction_x+0.5
        else
          y = @y-i*difference_y/difference_x.to_f*direction_y*direction_x+0.5
        end
        x = x.floor
        y = y.floor
        if @le_clairv != true
          unless (direction_x > 0 ? passable?(x,y) : passable?(x,y))
            @le_trace[i-1,0] = -1
            return false
          end
        end
        if @le_show
          @le_trace[i-1,0] = x
          @le_trace[i-1,1] = y
        end
      end
    else
      while difference_y.abs > i+1
        i+=1
        y = @y+i*direction_y
        if direction_x>0
          x = @x+i*difference_x/(difference_y+0.0)*direction_x*direction_y+0.5
        else
          x = @x-i*difference_x/(difference_y+0.0)*direction_x*direction_y+0.5
        end
        x = x.floor
        y = y.floor
        if @le_clairv != true
          unless (direction_y > 0 ? passable?(x,y) : passable?(x,y))
            @le_trace[i-1,0] = -1
            return false
          end
        end
        if @le_show
          @le_trace[i-1,0] = x
          @le_trace[i-1,1] = y
        end
      end
    end
    @le_trace[i,0] = -1
    return true
  end
end
#==============================================================================
# ■ Spriteset_Map
#------------------------------------------------------------------------------
#    重载地图显示
#==============================================================================
class Spriteset_Map
  attr_reader:tilemap 
  alias :original_le_initialize :initialize
  def initialize
    original_le_initialize
    @tilemap.flash_data=Table.new(@tilemap.map_data.xsize,@tilemap.map_data.ysize)
  end
end
#==============================================================================
# ■ Game_Player
#------------------------------------------------------------------------------
#    重载玩家
#==============================================================================
class Game_Player < Game_Character
  attr_reader:new_map_id
end
#==============================================================================
# ■ Scene_Map
#------------------------------------------------------------------------------
#    重载地图场景
#==============================================================================
class Scene_Map
  attr_reader:spriteset
  #--------------------------------------------------------------------------
  # ● 主角的场所移动
  #--------------------------------------------------------------------------
  alias original_le_transfer_player update_transfer_player
  def update_transfer_player
    return unless $game_player.transfer?
    # 自动关闭当前地图上le_seeing为true的NPC独立开关
    if $game_map.map_id != $game_player.new_map_id
      for event in $game_map.events.values
        if event.le_seeing
          for key in $le_close_table
            $game_self_switches[[$game_map.map_id,event.id, key]] =false
          end
        end
      end
    end
    original_le_transfer_player
  end
   #--------------------------------------------------------------------------
  # ● 更新画面
  #--------------------------------------------------------------------------
  #alias original_le_update update
  def update
    super
      #==========================
      # 清除LE视野产生的痕迹
      #==========================
      for event in $game_map.events.values
        for i in 0 .. event.le_trace.xsize-1
          break if event.le_trace[i,0] == -1
          @spriteset.tilemap.flash_data[event.le_trace[i,0],event.le_trace[i,1]] = 0
        end
         event.le_trace[0,0] = -1
       end
      #==========================
    $game_map.interpreter.update      # 更新解释器
    $game_map.update                  # 更新地图
    $game_player.update               # 更新主角
    $game_system.update               # 更新计时器
    @spriteset.update                 # 更新活动块组
    @message_window.update            # 更新信息窗口
    unless $game_message.visible      # 信息窗口显示中除外
      update_transfer_player
      update_encounter
      update_call_menu
      update_call_debug
      update_scene_change
    end
      #==========================
      # 刷新LE视野路径
      #==========================
      for event in $game_map.events.values
        for i in 0 .. event.le_trace.xsize-1
          break if event.le_trace[i,0] == -1
          @spriteset.tilemap.flash_data[event.le_trace[i,0],event.le_trace[i,1]] = event.le_color
        end
      end
      #==========================
  end
end
#==============================================================================
# ■ Scene_Title
#------------------------------------------------------------------------------
# 　处理标题画面的类。
#==============================================================================
class Scene_Title
  alias original_le_main main
  def main
    $le_run = true
    $le_close_table = ["A","B","C","D"]
    original_le_main
  end
end
#==============================================================================
# ■ Scene_Save
#------------------------------------------------------------------------------
# 　处理存档画面的类。
#==============================================================================
class Scene_Save < Scene_File
  # 写入两个全局变量
  alias original_le_write_save_data write_save_data
  def write_save_data(file)
    original_le_write_save_data(file)
    Marshal.dump($le_run,file)
    Marshal.dump($le_close_table,file)
  end
end
#==============================================================================
# ■ Scene_Load
#------------------------------------------------------------------------------
# 　处理读档画面的类。
#==============================================================================
class Scene_Load < Scene_File
  # 读取两个全局变量
  alias original_le_read_save_data read_save_data
  def read_save_data(file)
    original_le_read_save_data(file)
    $le_run         = Marshal.load(file)
    $le_close_table = Marshal.load(file)
  end
end
#==============================================================================
#                                 The End
#==============================================================================

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


# ■ LCF_Leyeshot (linetype eyeshot)VX 2.21    Creator LCF  Date 2009.7.6


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


# 　线形视野系统    编者：流川枫   QQ：350773875 


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


#【使用说明】


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


# 视野系统开关    $game_map.events[@event_id].le_seeing = true/false


# 功能：该值为true表示该NPC视野开启，否则未开启，默认为false。


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


# 视野透视开关    $game_map.events[@event_id].le_clairv = true/false


# 功能：该值为true表示该NPC视野不扫描视线障碍，否则扫描，默认为false。


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


# 视线显示开关    $game_map.events[@event_id].le_show = true/false


# 功能：该值为true表示显示该NPC的视线，否则不显示，默认为false。


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


# 看见时显示开关    $game_map.events[@event_id].le_ss = true/false


# 功能：该值为true表示只有当NPC看见主角时才显示视线，否则一直显示，默认为false。


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


# 侧面可视开关    $game_map.events[@event_id].le_side = true/false


# 功能：该值为true表示该NPC可以看到侧面一格内的人，否则由斜率决定，默认为true。


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


# 视野环绕开关    $game_map.events[@event_id].le_circle = true/false


# 功能：该值为true表示该NPC为环绕视野，否则不能看见自己的身后，默认为false。


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


# 设置视野深度    $game_map.events[@event_id].le_deepness = 深度值


# 功能：该值代表视野的能见度，当视野模型为扇形时应避免设置成奇数，默认为8。


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


# 设置视野斜率    $game_map.events[@event_id].le_slope = 斜率值


# 功能：该值代表视野的斜率，默认为1.0。


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


# 设置显示颜色    $game_map.events[@event_id].le_color = 颜色值


# 功能：该值代表视线显示的颜色，默认为0xf0。


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


# 设置触发开关    $game_map.events[@event_id].le_skey = "A"/"B"/"C"/"D"(大写)


# 功能：该值指定了映射是否看见主角的状态的独立开关，默认为"D"。


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


# 设置键开关    $game_map.events[@event_id].le_kw = true/false


# 功能：该值表示是否将该NPC触发状态映射到触发开关指定的独立变量中，默认为true。


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


# 设置触发确认    $game_map.events[@event_id].le_true = true/false


# 功能：该值表示该NPC是否看见了主角，等价于触发开关，默认为false。


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


# 设置视野模型    $game_map.events[@event_id].le_mode = 0/1


# 功能：该值为0时表示该NPC的视野形状类扇形，为1时类三角形，默认为0。


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


# 全局视野开关    $le_run = true/false


# 功能：该值为true表示系统正常工作，否则终止所有NPC的视野,默认为true。


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


# 全局关闭列表    $le_close_table = ["A","B","C","D"]


# 功能：不同场景转移时，将自动关闭表里的独立开关。（只针对le_seeing为true的NPC）


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


# 当NPC看见主角，独立开关(le_skey)便会被打开,否则为关闭状态。


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


 


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


# ■ Game_Event


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


# 　重载事件类


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


class Game_Event


  attr_accessor   :le_seeing                 # 视野系统开关


  attr_accessor   :le_clairv                 # 视野透视开关


  attr_accessor   :le_show                   # 视线显示开关


  attr_accessor   :le_ss                     # 看见时显示开关


  attr_accessor   :le_side                   # 侧面可视开关


  attr_accessor   :le_circle                 # 视野环绕开关


  attr_accessor   :le_deepness               # 视野深度


  attr_accessor   :le_slope                  # 视野斜率


  attr_accessor   :le_color                  # 显示颜色


  attr_accessor   :le_trace                  # 视野痕迹


  attr_accessor   :le_skey                   # 触发开关


  attr_accessor   :le_kw                     # 键开关


  attr_accessor   :le_true                   # 触发确认


  attr_accessor   :le_mode                   # 视野模型


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


  LE_DEEPNESS_OFFSET = 1                     # 深度缓存的偏移


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


  # ● 初始化对像


  #     map_id : 地图 ID


  #     event  : 事件 (RPG::Event)


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


  alias original_le_initialize initialize


  def initialize (map_id, event)


    original_le_initialize (map_id, event)


    @le_seeing   = false


    @le_clairv   = false


    @le_show     = false


    @le_ss       = false


    @le_side     = true


    @le_circle   = false


    @le_deepness = 8


    @le_slope    = 1.0


    @le_color    = 0xf0


    @le_trace = Table.new (@le_deepness-LE_DEEPNESS_OFFSET,2)


    @le_trace[0,0] = -1


    @le_kw   = true


    @le_true = false


    @le_mode = 0


    @le_skey = "D"


  end


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


  # ● 刷新


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


  alias original_le_update update


  def update


    original_le_update


    if @le_seeing and $le_run


      @le_trace.resize (@le_deepness-LE_DEEPNESS_OFFSET,2) if @le_trace.xsize+LE_DEEPNESS_OFFSET != @le_deepness


      self.see


      if @le_kw


        $game_map.need_refresh = true if @le_true != $game_self_switches[[$game_map.map_id, @id, @le_skey]]


        $game_self_switches[[$game_map.map_id, @id, @le_skey]] = @le_true


      end


    end


  end


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


  # ● 视野检测


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


  def see


    @le_true = false


    if ($game_player.x-@x).abs<@le_deepness and ($game_player.y-@y).abs<@le_deepness


      difference_x = ($game_player.x - @x).abs


      difference_y = ($game_player.y - @y).abs


      case @direction


      when 2


        return if @le_circle != true and $game_player.y < @y


        unless @le_side and (difference_y == 0 and difference_x == 1)


          return if difference_x.to_f/difference_y > @le_slope


        end


      when 4


        return if @le_circle != true and $game_player.x > @x


        unless @le_side and difference_y == 1 and difference_x == 0


          return if difference_y.to_f/difference_x > @le_slope


        end


      when 6


        return if @le_circle != true and $game_player.x < @x


        unless @le_side and difference_y == 1 and difference_x == 0


          return if difference_y.to_f/difference_x > @le_slope


        end


      else


        return if @le_circle != true and $game_player.y > @y


        unless @le_side and difference_y == 0 and difference_x == 1


          return if difference_x.to_f/difference_y > @le_slope


        end


      end


      if @le_mode == 0


        return if (difference_x ** 2 + difference_y ** 2) > le_deepness ** 2


      end


      @le_true = scan_line


      if @le_ss and @le_true !=true


        @le_trace[0,0] = -1


      end


    end


  end


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


  # ● 视线检测   采用了国际领先的视线扫描算法！


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


  def scan_line


    difference_x = $game_player.x - @x


    difference_y = $game_player.y - @y


    direction_x = (difference_x > 0 ? 1 : -1)


    direction_y = (difference_y > 0 ? 1 : -1)


    i = 0


    if difference_x.abs > difference_y.abs


      while difference_x.abs > i+1


        i+=1


        x = @x+i*direction_x


        if direction_y>0


          y = @y+i*difference_y/difference_x.to_f*direction_y*direction_x+0.5


        else


          y = @y-i*difference_y/difference_x.to_f*direction_y*direction_x+0.5


        end


        x = x.floor


        y = y.floor


        if @le_clairv != true


          unless (direction_x > 0 ? passable?(x,y) : passable?(x,y))


            @le_trace[i-1,0] = -1


            return false


          end


        end


        if @le_show


          @le_trace[i-1,0] = x


          @le_trace[i-1,1] = y


        end


      end


    else


      while difference_y.abs > i+1


        i+=1


        y = @y+i*direction_y


        if direction_x>0


          x = @x+i*difference_x/(difference_y+0.0)*direction_x*direction_y+0.5


        else


          x = @x-i*difference_x/(difference_y+0.0)*direction_x*direction_y+0.5


        end


        x = x.floor


        y = y.floor


        if @le_clairv != true


          unless (direction_y > 0 ? passable?(x,y) : passable?(x,y))


            @le_trace[i-1,0] = -1


            return false


          end


        end


        if @le_show


          @le_trace[i-1,0] = x


          @le_trace[i-1,1] = y


        end


      end


    end


    @le_trace[i,0] = -1


    return true


  end


end


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


# ■ Spriteset_Map


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


#    重载地图显示


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


class Spriteset_Map


  attr_reader:tilemap 


  alias :original_le_initialize :initialize


  def initialize


    original_le_initialize


    @tilemap.flash_data=Table.new(@tilemap.map_data.xsize,@tilemap.map_data.ysize)


  end


end


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


# ■ Game_Player


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


#    重载玩家


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


class Game_Player < Game_Character


  attr_reader:new_map_id


end


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


# ■ Scene_Map


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


#    重载地图场景


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


class Scene_Map


  attr_reader:spriteset


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


  # ● 主角的场所移动


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


  alias original_le_transfer_player update_transfer_player


  def update_transfer_player


    return unless $game_player.transfer?


    # 自动关闭当前地图上le_seeing为true的NPC独立开关


    if $game_map.map_id != $game_player.new_map_id


      for event in $game_map.events.values


        if event.le_seeing


          for key in $le_close_table


            $game_self_switches[[$game_map.map_id,event.id, key]] =false


          end


        end


      end


    end


    original_le_transfer_player


  end


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


  # ● 更新画面


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


  #alias original_le_update update


  def update


    super


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


      # 清除LE视野产生的痕迹


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


      for event in $game_map.events.values


        for i in 0 .. event.le_trace.xsize-1


          break if event.le_trace[i,0] == -1


          @spriteset.tilemap.flash_data[event.le_trace[i,0],event.le_trace[i,1]] = 0


        end


         event.le_trace[0,0] = -1


       end


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


    $game_map.interpreter.update      # 更新解释器


    $game_map.update                  # 更新地图


    $game_player.update               # 更新主角


    $game_system.update               # 更新计时器


    @spriteset.update                 # 更新活动块组


    @message_window.update            # 更新信息窗口


    unless $game_message.visible      # 信息窗口显示中除外


      update_transfer_player


      update_encounter


      update_call_menu


      update_call_debug


      update_scene_change


    end


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


      # 刷新LE视野路径


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


      for event in $game_map.events.values


        for i in 0 .. event.le_trace.xsize-1


          break if event.le_trace[i,0] == -1


          @spriteset.tilemap.flash_data[event.le_trace[i,0],event.le_trace[i,1]] = event.le_color


        end


      end


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


  end


end


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


# ■ Scene_Title


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


# 　处理标题画面的类。


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


class Scene_Title


  alias original_le_main main


  def main


    $le_run = true


    $le_close_table = ["A","B","C","D"]


    original_le_main


  end


end


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


# ■ Scene_Save


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


# 　处理存档画面的类。


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


class Scene_Save < Scene_File


  # 写入两个全局变量


  alias original_le_write_save_data write_save_data


  def write_save_data(file)


    original_le_write_save_data(file)


    Marshal.dump($le_run,file)


    Marshal.dump($le_close_table,file)


  end


end


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


# ■ Scene_Load


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


# 　处理读档画面的类。


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


class Scene_Load < Scene_File


  # 读取两个全局变量


  alias original_le_read_save_data read_save_data


  def read_save_data(file)


    original_le_read_save_data(file)


    $le_run         = Marshal.load(file)


    $le_close_table = Marshal.load(file)


  end


end


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


#                                 The End


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

RUBY 代码复制

#==============================================================================
# ■ LCF_Leyeshot (linetype eyeshot)XP 2.2    Creator LCF  Date 2009.7.6
#------------------------------------------------------------------------------
# 　线形视野系统    编者：流川枫   QQ：350773875 
#==============================================================================
#【使用说明】
#------------------------------------------------------------------------------
# 视野系统开关    $game_map.events[@event_id].le_seeing = true/false
# 功能：该值为true表示该NPC视野开启，否则未开启，默认为false。
#------------------------------------------------------------------------------
# 视野透视开关    $game_map.events[@event_id].le_clairv = true/false
# 功能：该值为true表示该NPC视野不扫描视线障碍，否则扫描，默认为false。
#------------------------------------------------------------------------------
# 视线显示开关    $game_map.events[@event_id].le_show = true/false
# 功能：该值为true表示显示该NPC的视线，否则不显示，默认为false。
#------------------------------------------------------------------------------
# 看见时显示开关    $game_map.events[@event_id].le_ss = true/false
# 功能：该值为true表示只有当NPC看见主角时才显示视线，否则一直显示，默认为false。
#------------------------------------------------------------------------------
# 侧面可视开关    $game_map.events[@event_id].le_side = true/false
# 功能：该值为true表示该NPC可以看到侧面一格内的人，否则由斜率决定，默认为true。
#------------------------------------------------------------------------------
# 视野环绕开关    $game_map.events[@event_id].le_circle = true/false
# 功能：该值为true表示该NPC为环绕视野，否则不能看见自己的身后，默认为false。
#------------------------------------------------------------------------------
# 设置视野深度    $game_map.events[@event_id].le_deepness = 深度值
# 功能：该值代表视野的能见度，当视野模型为扇形时应避免设置成奇数，默认为8。
#------------------------------------------------------------------------------
# 设置视野斜率    $game_map.events[@event_id].le_slope = 斜率值
# 功能：该值代表视野的斜率，默认为1.0。
#------------------------------------------------------------------------------
# 设置显示颜色    $game_map.events[@event_id].le_color = 颜色值
# 功能：该值代表视线显示的颜色，默认为0xf0。
#------------------------------------------------------------------------------
# 设置触发开关    $game_map.events[@event_id].le_skey = "A"/"B"/"C"/"D"(大写)
# 功能：该值指定了映射是否看见主角的状态的独立开关，默认为"D"。
#------------------------------------------------------------------------------
# 设置键开关    $game_map.events[@event_id].le_kw = true/false
# 功能：该值表示是否将该NPC触发状态映射到触发开关指定的独立变量中，默认为true。
#------------------------------------------------------------------------------
# 设置触发确认    $game_map.events[@event_id].le_true = true/false
# 功能：该值表示该NPC是否看见了主角，等价于触发开关，默认为false。
#------------------------------------------------------------------------------
# 设置视野模型    $game_map.events[@event_id].le_mode = 0/1
# 功能：该值为0时表示该NPC的视野形状类扇形，为1时类三角形，默认为0。
#==============================================================================
# 全局视野开关    $le_run = true/false
# 功能：该值为true表示系统正常工作，否则终止所有NPC的视野,默认为true。
#------------------------------------------------------------------------------
# 全局关闭列表    $le_close_table = ["A","B","C","D"]
# 功能：不同场景转移时，将自动关闭表里的独立开关。（只针对le_seeing为true的NPC）
#==============================================================================
# 当NPC看见主角，独立开关(le_skey)便会被打开,否则为关闭状态。
#==============================================================================
 
#==============================================================================
# ■ Game_Event
#------------------------------------------------------------------------------
# 　重载事件类
#==============================================================================
class Game_Event
  attr_accessor   :le_seeing                 # 视野系统开关
  attr_accessor   :le_clairv                 # 视野透视开关
  attr_accessor   :le_show                   # 视线显示开关
  attr_accessor   :le_ss                     # 看见时显示开关
  attr_accessor   :le_side                   # 侧面可视开关
  attr_accessor   :le_circle                 # 视野环绕开关
  attr_accessor   :le_deepness               # 视野深度
  attr_accessor   :le_slope                  # 视野斜率
  attr_accessor   :le_color                  # 显示颜色
  attr_accessor   :le_trace                  # 视野痕迹
  attr_accessor   :le_skey                   # 触发开关
  attr_accessor   :le_kw                     # 键开关
  attr_accessor   :le_true                   # 触发确认
  attr_accessor   :le_mode                   # 视野模型
  #--------------------------------------------------------------------------
  LE_DEEPNESS_OFFSET = 1                     # 深度缓存的偏移
  #--------------------------------------------------------------------------
  # ● 初始化对像
  #     map_id : 地图 ID
  #     event  : 事件 (RPG::Event)
  #--------------------------------------------------------------------------
  alias original_le_initialize initialize
  def initialize (map_id, event)
    original_le_initialize (map_id, event)
    @le_seeing   = false
    @le_clairv   = false
    @le_show     = false
    @le_ss       = false
    @le_side     = true
    @le_circle   = false
    @le_deepness = 8
    @le_slope    = 1.0
    @le_color    = 0xf0
    @le_trace = Table.new (@le_deepness-LE_DEEPNESS_OFFSET,2)
    @le_trace[0,0] = -1
    @le_kw   = true
    @le_true = false
    @le_mode = 0
    @le_skey = "D"
  end
  #--------------------------------------------------------------------------
  # ● 刷新
  #--------------------------------------------------------------------------
  alias original_le_update update
  def update
    original_le_update
    if @le_seeing and $le_run
      @le_trace.resize (@le_deepness-LE_DEEPNESS_OFFSET,2) if @le_trace.xsize+LE_DEEPNESS_OFFSET != @le_deepness
      self.see
      if @le_kw
        $game_map.need_refresh = true if @le_true != $game_self_switches[[$game_map.map_id, @id, @le_skey]]
        $game_self_switches[[$game_map.map_id, @id, @le_skey]] = @le_true
      end
    end
  end
  #--------------------------------------------------------------------------
  # ● 视野检测
  #--------------------------------------------------------------------------
  def see
    @le_true = false
    if ($game_player.x-@x).abs<@le_deepness and ($game_player.y-@y).abs<@le_deepness
      difference_x = ($game_player.x - @x).abs
      difference_y = ($game_player.y - @y).abs
      case @direction
      when 2
        return if @le_circle != true and $game_player.y < @y
        unless @le_side and (difference_y == 0 and difference_x == 1)
          return if difference_x.to_f/difference_y > @le_slope
        end
      when 4
        return if @le_circle != true and $game_player.x > @x
        unless @le_side and difference_y == 1 and difference_x == 0
          return if difference_y.to_f/difference_x > @le_slope
        end
      when 6
        return if @le_circle != true and $game_player.x < @x
        unless @le_side and difference_y == 1 and difference_x == 0
          return if difference_y.to_f/difference_x > @le_slope
        end
      else
        return if @le_circle != true and $game_player.y > @y
        unless @le_side and difference_y == 0 and difference_x == 1
          return if difference_x.to_f/difference_y > @le_slope
        end
      end
      if @le_mode == 0
        return if (difference_x ** 2 + difference_y ** 2) > le_deepness ** 2
      end
      @le_true = scan_line
      if @le_ss and @le_true !=true
        @le_trace[0,0] = -1
      end
    end
  end
  #--------------------------------------------------------------------------
  # ● 视线检测   采用了国际领先的视线扫描算法！
  #--------------------------------------------------------------------------
  def scan_line
    difference_x = $game_player.x - @x
    difference_y = $game_player.y - @y
    direction_x = (difference_x > 0 ? 1 : -1)
    direction_y = (difference_y > 0 ? 1 : -1)
    i = 0
    if difference_x.abs > difference_y.abs
      while difference_x.abs > i+1
        i+=1
        x = @x+i*direction_x
        if direction_y>0
          y = @y+i*difference_y/difference_x.to_f*direction_y*direction_x+0.5
        else
          y = @y-i*difference_y/difference_x.to_f*direction_y*direction_x+0.5
        end
        x = x.floor
        y = y.floor
        if @le_clairv != true
          unless (direction_x > 0 ? passable?(x-1,y,6) : passable?(x+1,y,4))
            @le_trace[i-1,0] = -1
            return false
          end
        end
        if @le_show
          @le_trace[i-1,0] = x
          @le_trace[i-1,1] = y
        end
      end
    else
      while difference_y.abs > i+1
        i+=1
        y = @y+i*direction_y
        if direction_x>0
          x = @x+i*difference_x/(difference_y+0.0)*direction_x*direction_y+0.5
        else
          x = @x-i*difference_x/(difference_y+0.0)*direction_x*direction_y+0.5
        end
        x = x.floor
        y = y.floor
        if @le_clairv != true
          unless (direction_y > 0 ? passable?(x,y-1,2) : passable?(x,y+1,8))
            @le_trace[i-1,0] = -1
            return false
          end
        end
        if @le_show
          @le_trace[i-1,0] = x
          @le_trace[i-1,1] = y
        end
      end
    end
    @le_trace[i,0] = -1
    return true
  end
end
#==============================================================================
# ■ Spriteset_Map
#------------------------------------------------------------------------------
#    重载地图显示
#==============================================================================
class Spriteset_Map
  attr_reader:tilemap 
  alias :original_le_initialize :initialize
  def initialize
    original_le_initialize
    @tilemap.flash_data=Table.new(@tilemap.map_data.xsize,@tilemap.map_data.ysize)
  end
end
#==============================================================================
# ■ Scene_Map
#------------------------------------------------------------------------------
#    重载地图场景
#==============================================================================
class Scene_Map
  attr_reader:spriteset
  #--------------------------------------------------------------------------
  # ● 主角的场所移动
  #--------------------------------------------------------------------------
  alias original_le_transfer_player transfer_player
  def transfer_player
    # 自动关闭当前地图上le_seeing为true的NPC独立开关
    if $game_map.map_id != $game_temp.player_new_map_id
      for event in $game_map.events.values
        if event.le_seeing
          for key in $le_close_table
            $game_self_switches[[$game_map.map_id,event.id, key]] =false
          end
        end
      end
    end
    original_le_transfer_player
  end
  #--------------------------------------------------------------------------
  # ● 主处理
  #--------------------------------------------------------------------------
  def main
    # 生成活动块
    @spriteset = Spriteset_Map.new
    # 生成信息窗口
    @message_window = Window_Message.new
    # 执行过渡
    Graphics.transition
    # 主循环
    loop do
      # 刷新游戏画面
      Graphics.update
      # 刷新输入信息
      Input.update
      #==========================
      # 清除LE视野产生的痕迹
      #==========================
      for event in $game_map.events.values
        for i in 0 .. event.le_trace.xsize-1
          break if event.le_trace[i,0] == -1
          $scene.spriteset.tilemap.flash_data[event.le_trace[i,0],event.le_trace[i,1]] = 0
        end
         event.le_trace[0,0] = -1
       end
      #==========================
      # 刷新画面
      update
      # 如果画面切换的话就中断循环
      if $scene != self
        break
      end
      #==========================
      # 刷新LE视野路径
      #==========================
      for event in $game_map.events.values
        for i in 0 .. event.le_trace.xsize-1
          break if event.le_trace[i,0] == -1
          $scene.spriteset.tilemap.flash_data[event.le_trace[i,0],event.le_trace[i,1]] = event.le_color
        end
      end
      #==========================
    end
    # 准备过渡
    Graphics.freeze
    # 释放活动块
    @spriteset.dispose
    # 释放信息窗口
    @message_window.dispose
    # 标题画面切换中的情况下
    if $scene.is_a?(Scene_Title)
      # 淡入淡出画面
      Graphics.transition
      Graphics.freeze
    end
  end
end
#==============================================================================
# ■ Scene_Title
#------------------------------------------------------------------------------
# 　处理标题画面的类。
#==============================================================================
class Scene_Title
  alias original_le_main main
  def main
    $le_run = true
    $le_close_table = ["A","B","C","D"]
    original_le_main
  end
end
#==============================================================================
# ■ Scene_Save
#------------------------------------------------------------------------------
# 　处理存档画面的类。
#==============================================================================
class Scene_Save < Scene_File
  # 写入两个全局变量
  alias original_le_write_save_data write_save_data
  def write_save_data(file)
    original_le_write_save_data(file)
    Marshal.dump($le_run,file)
    Marshal.dump($le_close_table,file)
  end
end
#==============================================================================
# ■ Scene_Load
#------------------------------------------------------------------------------
# 　处理读档画面的类。
#==============================================================================
class Scene_Load < Scene_File
  # 读取两个全局变量
  alias original_le_read_save_data read_save_data
  def read_save_data(file)
    original_le_read_save_data(file)
    $le_run         = Marshal.load(file)
    $le_close_table = Marshal.load(file)
  end
end
#==============================================================================
#                                 The End
#==============================================================================

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


# ■ LCF_Leyeshot (linetype eyeshot)XP 2.2    Creator LCF  Date 2009.7.6


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


# 　线形视野系统    编者：流川枫   QQ：350773875 


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


#【使用说明】


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


# 视野系统开关    $game_map.events[@event_id].le_seeing = true/false


# 功能：该值为true表示该NPC视野开启，否则未开启，默认为false。


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


# 视野透视开关    $game_map.events[@event_id].le_clairv = true/false


# 功能：该值为true表示该NPC视野不扫描视线障碍，否则扫描，默认为false。


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


# 视线显示开关    $game_map.events[@event_id].le_show = true/false


# 功能：该值为true表示显示该NPC的视线，否则不显示，默认为false。


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


# 看见时显示开关    $game_map.events[@event_id].le_ss = true/false


# 功能：该值为true表示只有当NPC看见主角时才显示视线，否则一直显示，默认为false。


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


# 侧面可视开关    $game_map.events[@event_id].le_side = true/false


# 功能：该值为true表示该NPC可以看到侧面一格内的人，否则由斜率决定，默认为true。


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


# 视野环绕开关    $game_map.events[@event_id].le_circle = true/false


# 功能：该值为true表示该NPC为环绕视野，否则不能看见自己的身后，默认为false。


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


# 设置视野深度    $game_map.events[@event_id].le_deepness = 深度值


# 功能：该值代表视野的能见度，当视野模型为扇形时应避免设置成奇数，默认为8。


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


# 设置视野斜率    $game_map.events[@event_id].le_slope = 斜率值


# 功能：该值代表视野的斜率，默认为1.0。


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


# 设置显示颜色    $game_map.events[@event_id].le_color = 颜色值


# 功能：该值代表视线显示的颜色，默认为0xf0。


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


# 设置触发开关    $game_map.events[@event_id].le_skey = "A"/"B"/"C"/"D"(大写)


# 功能：该值指定了映射是否看见主角的状态的独立开关，默认为"D"。


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


# 设置键开关    $game_map.events[@event_id].le_kw = true/false


# 功能：该值表示是否将该NPC触发状态映射到触发开关指定的独立变量中，默认为true。


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


# 设置触发确认    $game_map.events[@event_id].le_true = true/false


# 功能：该值表示该NPC是否看见了主角，等价于触发开关，默认为false。


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


# 设置视野模型    $game_map.events[@event_id].le_mode = 0/1


# 功能：该值为0时表示该NPC的视野形状类扇形，为1时类三角形，默认为0。


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


# 全局视野开关    $le_run = true/false


# 功能：该值为true表示系统正常工作，否则终止所有NPC的视野,默认为true。


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


# 全局关闭列表    $le_close_table = ["A","B","C","D"]


# 功能：不同场景转移时，将自动关闭表里的独立开关。（只针对le_seeing为true的NPC）


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


# 当NPC看见主角，独立开关(le_skey)便会被打开,否则为关闭状态。


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


 


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


# ■ Game_Event


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


# 　重载事件类


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


class Game_Event


  attr_accessor   :le_seeing                 # 视野系统开关


  attr_accessor   :le_clairv                 # 视野透视开关


  attr_accessor   :le_show                   # 视线显示开关


  attr_accessor   :le_ss                     # 看见时显示开关


  attr_accessor   :le_side                   # 侧面可视开关


  attr_accessor   :le_circle                 # 视野环绕开关


  attr_accessor   :le_deepness               # 视野深度


  attr_accessor   :le_slope                  # 视野斜率


  attr_accessor   :le_color                  # 显示颜色


  attr_accessor   :le_trace                  # 视野痕迹


  attr_accessor   :le_skey                   # 触发开关


  attr_accessor   :le_kw                     # 键开关


  attr_accessor   :le_true                   # 触发确认


  attr_accessor   :le_mode                   # 视野模型


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


  LE_DEEPNESS_OFFSET = 1                     # 深度缓存的偏移


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


  # ● 初始化对像


  #     map_id : 地图 ID


  #     event  : 事件 (RPG::Event)


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


  alias original_le_initialize initialize


  def initialize (map_id, event)


    original_le_initialize (map_id, event)


    @le_seeing   = false


    @le_clairv   = false


    @le_show     = false


    @le_ss       = false


    @le_side     = true


    @le_circle   = false


    @le_deepness = 8


    @le_slope    = 1.0


    @le_color    = 0xf0


    @le_trace = Table.new (@le_deepness-LE_DEEPNESS_OFFSET,2)


    @le_trace[0,0] = -1


    @le_kw   = true


    @le_true = false


    @le_mode = 0


    @le_skey = "D"


  end


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


  # ● 刷新


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


  alias original_le_update update


  def update


    original_le_update


    if @le_seeing and $le_run


      @le_trace.resize (@le_deepness-LE_DEEPNESS_OFFSET,2) if @le_trace.xsize+LE_DEEPNESS_OFFSET != @le_deepness


      self.see


      if @le_kw


        $game_map.need_refresh = true if @le_true != $game_self_switches[[$game_map.map_id, @id, @le_skey]]


        $game_self_switches[[$game_map.map_id, @id, @le_skey]] = @le_true


      end


    end


  end


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


  # ● 视野检测


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


  def see


    @le_true = false


    if ($game_player.x-@x).abs<@le_deepness and ($game_player.y-@y).abs<@le_deepness


      difference_x = ($game_player.x - @x).abs


      difference_y = ($game_player.y - @y).abs


      case @direction


      when 2


        return if @le_circle != true and $game_player.y < @y


        unless @le_side and (difference_y == 0 and difference_x == 1)


          return if difference_x.to_f/difference_y > @le_slope


        end


      when 4


        return if @le_circle != true and $game_player.x > @x


        unless @le_side and difference_y == 1 and difference_x == 0


          return if difference_y.to_f/difference_x > @le_slope


        end


      when 6


        return if @le_circle != true and $game_player.x < @x


        unless @le_side and difference_y == 1 and difference_x == 0


          return if difference_y.to_f/difference_x > @le_slope


        end


      else


        return if @le_circle != true and $game_player.y > @y


        unless @le_side and difference_y == 0 and difference_x == 1


          return if difference_x.to_f/difference_y > @le_slope


        end


      end


      if @le_mode == 0


        return if (difference_x ** 2 + difference_y ** 2) > le_deepness ** 2


      end


      @le_true = scan_line


      if @le_ss and @le_true !=true


        @le_trace[0,0] = -1


      end


    end


  end


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


  # ● 视线检测   采用了国际领先的视线扫描算法！


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


  def scan_line


    difference_x = $game_player.x - @x


    difference_y = $game_player.y - @y


    direction_x = (difference_x > 0 ? 1 : -1)


    direction_y = (difference_y > 0 ? 1 : -1)


    i = 0


    if difference_x.abs > difference_y.abs


      while difference_x.abs > i+1


        i+=1


        x = @x+i*direction_x


        if direction_y>0


          y = @y+i*difference_y/difference_x.to_f*direction_y*direction_x+0.5


        else


          y = @y-i*difference_y/difference_x.to_f*direction_y*direction_x+0.5


        end


        x = x.floor


        y = y.floor


        if @le_clairv != true


          unless (direction_x > 0 ? passable?(x-1,y,6) : passable?(x+1,y,4))


            @le_trace[i-1,0] = -1


            return false


          end


        end


        if @le_show


          @le_trace[i-1,0] = x


          @le_trace[i-1,1] = y


        end


      end


    else


      while difference_y.abs > i+1


        i+=1


        y = @y+i*direction_y


        if direction_x>0


          x = @x+i*difference_x/(difference_y+0.0)*direction_x*direction_y+0.5


        else


          x = @x-i*difference_x/(difference_y+0.0)*direction_x*direction_y+0.5


        end


        x = x.floor


        y = y.floor


        if @le_clairv != true


          unless (direction_y > 0 ? passable?(x,y-1,2) : passable?(x,y+1,8))


            @le_trace[i-1,0] = -1


            return false


          end


        end


        if @le_show


          @le_trace[i-1,0] = x


          @le_trace[i-1,1] = y


        end


      end


    end


    @le_trace[i,0] = -1


    return true


  end


end


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


# ■ Spriteset_Map


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


#    重载地图显示


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


class Spriteset_Map


  attr_reader:tilemap 


  alias :original_le_initialize :initialize


  def initialize


    original_le_initialize


    @tilemap.flash_data=Table.new(@tilemap.map_data.xsize,@tilemap.map_data.ysize)


  end


end


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


# ■ Scene_Map


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


#    重载地图场景


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


class Scene_Map


  attr_reader:spriteset


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


  # ● 主角的场所移动


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


  alias original_le_transfer_player transfer_player


  def transfer_player


    # 自动关闭当前地图上le_seeing为true的NPC独立开关


    if $game_map.map_id != $game_temp.player_new_map_id


      for event in $game_map.events.values


        if event.le_seeing


          for key in $le_close_table


            $game_self_switches[[$game_map.map_id,event.id, key]] =false


          end


        end


      end


    end


    original_le_transfer_player


  end


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


  # ● 主处理


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


  def main


    # 生成活动块


    @spriteset = Spriteset_Map.new


    # 生成信息窗口


    @message_window = Window_Message.new


    # 执行过渡


    Graphics.transition


    # 主循环


    loop do


      # 刷新游戏画面


      Graphics.update


      # 刷新输入信息


      Input.update


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


      # 清除LE视野产生的痕迹


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


      for event in $game_map.events.values


        for i in 0 .. event.le_trace.xsize-1


          break if event.le_trace[i,0] == -1


          $scene.spriteset.tilemap.flash_data[event.le_trace[i,0],event.le_trace[i,1]] = 0


        end


         event.le_trace[0,0] = -1


       end


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


      # 刷新画面


      update


      # 如果画面切换的话就中断循环


      if $scene != self


        break


      end


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


      # 刷新LE视野路径


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


      for event in $game_map.events.values


        for i in 0 .. event.le_trace.xsize-1


          break if event.le_trace[i,0] == -1


          $scene.spriteset.tilemap.flash_data[event.le_trace[i,0],event.le_trace[i,1]] = event.le_color


        end


      end


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


    end


    # 准备过渡


    Graphics.freeze


    # 释放活动块


    @spriteset.dispose


    # 释放信息窗口


    @message_window.dispose


    # 标题画面切换中的情况下


    if $scene.is_a?(Scene_Title)


      # 淡入淡出画面


      Graphics.transition


      Graphics.freeze


    end


  end


end


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


# ■ Scene_Title


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


# 　处理标题画面的类。


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


class Scene_Title


  alias original_le_main main


  def main


    $le_run = true


    $le_close_table = ["A","B","C","D"]


    original_le_main


  end


end


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


# ■ Scene_Save


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


# 　处理存档画面的类。


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


class Scene_Save < Scene_File


  # 写入两个全局变量


  alias original_le_write_save_data write_save_data


  def write_save_data(file)


    original_le_write_save_data(file)


    Marshal.dump($le_run,file)


    Marshal.dump($le_close_table,file)


  end


end


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


# ■ Scene_Load


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


# 　处理读档画面的类。


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


class Scene_Load < Scene_File


  # 读取两个全局变量


  alias original_le_read_save_data read_save_data


  def read_save_data(file)


    original_le_read_save_data(file)


    $le_run         = Marshal.load(file)


    $le_close_table = Marshal.load(file)


  end


end


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


#                                 The End


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

2.21其实只是为了支持VX和ACE而改写的版本，功能和2.2是一样的。
而范例请见我之前发的帖子。
这里给出一个ACE的LE范例游戏：
[ACT] [游戏发布] 魔法妹子卖萌求生 试行版
http://rpg.blue/forum.php?mod=viewthread&tid=238881&page=1#pid1942076

---

作者: a827594998    时间: 2012-7-6 07:53
辛苦了，楼主

---

作者: 浮云桑    时间: 2012-7-6 11:14
楼主那个签名- -好吧~

---

作者: 774741359    时间: 2013-12-17 18:25
157行 笑喷
话说我自己写的视线也是用到了标示符 see 楼主，有缘哦~

---

作者: 黑舞嗜    时间: 2014-9-6 14:57
LZ大大，我使用这个事件管理器（https://rpg.blue/thread-341787-1-1.html）以后发现没法共存，这个脚本的功能室将其他地图的事件移过来，而这个事件在那张地图上ID是001而现在的地图上也有个ID001的事件，然后当我执行视野脚本的时候就只会影响到当前地图的ID001事件，移过来的没用。。。不知道LZ大大能不能通过事件名称控制而不是ID呢？

---

欢迎光临 Project1 (https://rpg.blue/)

Powered by Discuz! X3.1