即时遇敌无法使用？

纲·炎 · 发表于 2013-1-12 13:15:50

加入我们，或者，欢迎回来。

您需要登录才可以下载或查看，没有帐号？注册会员

x

本帖最后由纲·炎于 2013-1-12 13:18 编辑

我做了事件标题，然后运行游戏时会有

不过我记得以前不会这样。
脚本如下：

RUBY 代码复制

#===============================================================
# ■ 即时遇敌，
#---------------------------------------------------------------
#    碰到什么怪物，周围是什么怪物战斗中就是什么怪物
#===============================================================
=begin
使用说明
 
在地图上放置事件，事件的第一个指令用注释
在里面填写 敌人: ID （注意是半角冒号），决定触碰到此事件时所战斗的敌人
第二行可以填写 视野: 数字 ，决定本事件追逐主角的视野范围（默认为8）
触碰后就会触发战斗，敌人队伍依照主角身边的敌人事件设定生成
如果主角身边有5个敌人事件，则敌人队伍有五个
 
战斗胜利、失败、逃跑后的公共事件，先设定好，把ID填写在脚本当中
（$win_common_event_id 这几行）
 
数据库里面的敌人队伍可以照常使用，没有影响。
作为敌人的事件也可以照常放置其他的指令，执行完后才会执行战斗
 
=end
 
 
$win_common_event_id = 1    # 战胜时的公共事件
$lose_common_event_id = 2   # 战败时的公共事件
$escape_common_event_id = 3 # 逃跑时的公共事件
 
class Game_Character < Game_CharacterBase
  def move_type_toward_player
    # 计算与主角的距离
    sx = (@x - $game_player.x).abs
    sy = (@y - $game_player.y).abs
    # 如果纵横共计离开 20 个元件
    if sx + sy >= approach_range
      # 随机
      move_random
      return
    end
    # 随机 0～5 的分支
    case rand(6)
    when 0..3  # 接近主角
      move_toward_player
    when 4  # 随机
      move_random
    when 5  # 前进一步
      move_forward
    end
  end
  def approach_range
    return 8
  end
end
class Game_Event < Game_Character
  #--------------------------------------------------------------------------
  # ● 初始化对像
  #     map_id : 地图 ID
  #     event  : 事件 (RPG::Event)
  #--------------------------------------------------------------------------
  alias old_initialize initialize
  def initialize(map_id, event)
    old_initialize(map_id, event)
    name = event.name
    @enemy_id = 0
    @approach_range = 8
    setup_as_enemy
  end
  #--------------------------------------------------------------------------
  # ● 返回视野距离
  #--------------------------------------------------------------------------
  def approach_range
    return @approach_range
  end
  #--------------------------------------------------------------------------
  # ● 判断事件是否存在
  #--------------------------------------------------------------------------
  def exist?
    return !@erased
  end
  #--------------------------------------------------------------------------
  # ● 将事件设为敌人
  #--------------------------------------------------------------------------
  def setup_as_enemy
    enemy_comment = @list[0]
    scope_comment = @list[1] if @list[1] && @list[1].code == 408
    return if enemy_comment.code != 108
    # 读取敌人 ID
    if enemy_comment.parameters[0] =~ /(?:敌人):(?:\s|)(\d+)/
      @enemy_id = $1.to_i
    else
      return
    end
    # 读取敌人视野距离
    if scope_comment.parameters[0] =~ /(?:视野):(?:\s|)(\d+)/
      @approach_range = $1.to_i
    end
    command = RPG::EventCommand.new(355, 0, ["$instant_encounter_battle=true"])
    @list.push(command) # 执行脚本
    command = RPG::EventCommand.new(301, 0, [0, 1, true, true])
    @list.push(command) # 战斗处理
    command = RPG::EventCommand.new(601, 0)
    @list.push(command) # 战胜时的场合
    command = RPG::EventCommand.new(117, 1, [$win_common_event_id])
    @list.push(command) # 呼叫公共事件
    command = RPG::EventCommand.new(602, 0)
    @list.push(command) # 逃跑时的场合
    command = RPG::EventCommand.new(117, 1, [$escape_common_event_id])
    @list.push(command) # 呼叫公共事件
    command = RPG::EventCommand.new(603, 0)
    @list.push(command) # 战败时的场合
    command = RPG::EventCommand.new(117, 1, [$lose_common_event_id])
    @list.push(command) # 呼叫公共事件
    command = RPG::EventCommand.new(604, 0)
    @list.push(command) # 战斗处理结束
    command = RPG::EventCommand.new
    @list.push(command)
  end
  #--------------------------------------------------------------------------
  # ● 判断事件是否为敌人
  #--------------------------------------------------------------------------
  def isEnemy?
    return @enemy_id > 0
  end
  attr_reader :enemy_id # 指定的敌人ID
end
class Game_Map
  ENCOUNTER_RANGE = 3 #这个代表遇到敌人的范围大小
  #--------------------------------------------------------------------------
  # ●获取指定范围内的事件
  #     x : X 坐标
  #     y : Y 坐标
  #     l : 范围 
  #--------------------------------------------------------------------------
  def scope_event
    scope_event = []
    x = $game_player.x
    y = $game_player.y
    for event in $game_map.events.values
      next unless event.isEnemy?
      if (event.x - x).abs + (event.y - y).abs <=ENCOUNTER_RANGE and event.exist?
        scope_event.push(event.id)
        break if scope_event.size >= 8
      end
    end
    return scope_event 
  end
end
module BattleManager
  #--------------------------------------------------------------------------
  # ● 处理战斗结束
  #--------------------------------------------------------------------------
  class << self
    alias instant_encounter_setup setup
    def setup(troop_id, can_escape = true, can_lose = false)
      if $instant_encounter_battle
        $data_troops[1].members = []
        scope_event = $game_map.scope_event
        size = scope_event.size
        for i in 1..size
          temp = RPG::Troop::Member.new
          temp.enemy_id = $game_map.events[scope_event[i-1]].enemy_id
          if size > 4
            temp.x = Graphics.width * (i - 0.5) / size
            temp.y = 288 / 2*(i%2+1)
            temp.y += 100*((i+1)%2)
          else
            temp.x = Graphics.width * (i - 0.5) / size
            temp.y = 288
          end
          $data_troops[1].members.push(temp)
          $instant_encounter_battle = false
        end
      end
      instant_encounter_setup(troop_id, can_escape, can_lose)
    end
    alias instant_encounter_battle_end battle_end
    def battle_end(result)
      if result == 0
        # 战斗结束后清除事件(未完成)
        scope_event = $game_map.scope_event
        $game_troop.members.size.times{ |i|
          $game_map.events[scope_event[i]].erase
        }
      end
      instant_encounter_battle_end(result)
    end
  end
end

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


# ■ 即时遇敌，


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


#    碰到什么怪物，周围是什么怪物战斗中就是什么怪物


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


=begin


使用说明


 


在地图上放置事件，事件的第一个指令用注释


在里面填写 敌人: ID （注意是半角冒号），决定触碰到此事件时所战斗的敌人


第二行可以填写 视野: 数字 ，决定本事件追逐主角的视野范围（默认为8）


触碰后就会触发战斗，敌人队伍依照主角身边的敌人事件设定生成


如果主角身边有5个敌人事件，则敌人队伍有五个


 


战斗胜利、失败、逃跑后的公共事件，先设定好，把ID填写在脚本当中


（$win_common_event_id 这几行）


 


数据库里面的敌人队伍可以照常使用，没有影响。


作为敌人的事件也可以照常放置其他的指令，执行完后才会执行战斗


 


=end


 


 


$win_common_event_id = 1    # 战胜时的公共事件


$lose_common_event_id = 2   # 战败时的公共事件


$escape_common_event_id = 3 # 逃跑时的公共事件


 


class Game_Character < Game_CharacterBase


  def move_type_toward_player


    # 计算与主角的距离


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


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


    # 如果纵横共计离开 20 个元件


    if sx + sy >= approach_range


      # 随机


      move_random


      return


    end


    # 随机 0～5 的分支


    case rand(6)


    when 0..3  # 接近主角


      move_toward_player


    when 4  # 随机


      move_random


    when 5  # 前进一步


      move_forward


    end


  end


  def approach_range


    return 8


  end


end


class Game_Event < Game_Character


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


  # ● 初始化对像


  #     map_id : 地图 ID


  #     event  : 事件 (RPG::Event)


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


  alias old_initialize initialize


  def initialize(map_id, event)


    old_initialize(map_id, event)


    name = event.name


    @enemy_id = 0


    @approach_range = 8


    setup_as_enemy


  end


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


  # ● 返回视野距离


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


  def approach_range


    return @approach_range


  end


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


  # ● 判断事件是否存在


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


  def exist?


    return !@erased


  end


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


  # ● 将事件设为敌人


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


  def setup_as_enemy


    enemy_comment = @list[0]


    scope_comment = @list[1] if @list[1] && @list[1].code == 408


    return if enemy_comment.code != 108


    # 读取敌人 ID


    if enemy_comment.parameters[0] =~ /(?:敌人):(?:\s|)(\d+)/


      @enemy_id = $1.to_i


    else


      return


    end


    # 读取敌人视野距离


    if scope_comment.parameters[0] =~ /(?:视野):(?:\s|)(\d+)/


      @approach_range = $1.to_i


    end


    command = RPG::EventCommand.new(355, 0, ["$instant_encounter_battle=true"])


    @list.push(command) # 执行脚本


    command = RPG::EventCommand.new(301, 0, [0, 1, true, true])


    @list.push(command) # 战斗处理


    command = RPG::EventCommand.new(601, 0)


    @list.push(command) # 战胜时的场合


    command = RPG::EventCommand.new(117, 1, [$win_common_event_id])


    @list.push(command) # 呼叫公共事件


    command = RPG::EventCommand.new(602, 0)


    @list.push(command) # 逃跑时的场合


    command = RPG::EventCommand.new(117, 1, [$escape_common_event_id])


    @list.push(command) # 呼叫公共事件


    command = RPG::EventCommand.new(603, 0)


    @list.push(command) # 战败时的场合


    command = RPG::EventCommand.new(117, 1, [$lose_common_event_id])


    @list.push(command) # 呼叫公共事件


    command = RPG::EventCommand.new(604, 0)


    @list.push(command) # 战斗处理结束


    command = RPG::EventCommand.new


    @list.push(command)


  end


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


  # ● 判断事件是否为敌人


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


  def isEnemy?


    return @enemy_id > 0


  end


  attr_reader :enemy_id # 指定的敌人ID


end


class Game_Map


  ENCOUNTER_RANGE = 3 #这个代表遇到敌人的范围大小


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


  # ●获取指定范围内的事件


  #     x : X 坐标


  #     y : Y 坐标


  #     l : 范围 


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


  def scope_event


    scope_event = []


    x = $game_player.x


    y = $game_player.y


    for event in $game_map.events.values


      next unless event.isEnemy?


      if (event.x - x).abs + (event.y - y).abs <=ENCOUNTER_RANGE and event.exist?


        scope_event.push(event.id)


        break if scope_event.size >= 8


      end


    end


    return scope_event 


  end


end


module BattleManager


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


  # ● 处理战斗结束


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


  class << self


    alias instant_encounter_setup setup


    def setup(troop_id, can_escape = true, can_lose = false)


      if $instant_encounter_battle


        $data_troops[1].members = []


        scope_event = $game_map.scope_event


        size = scope_event.size


        for i in 1..size


          temp = RPG::Troop::Member.new


          temp.enemy_id = $game_map.events[scope_event[i-1]].enemy_id


          if size > 4


            temp.x = Graphics.width * (i - 0.5) / size


            temp.y = 288 / 2*(i%2+1)


            temp.y += 100*((i+1)%2)


          else


            temp.x = Graphics.width * (i - 0.5) / size


            temp.y = 288


          end


          $data_troops[1].members.push(temp)


          $instant_encounter_battle = false


        end


      end


      instant_encounter_setup(troop_id, can_escape, can_lose)


    end


    alias instant_encounter_battle_end battle_end


    def battle_end(result)


      if result == 0


        # 战斗结束后清除事件(未完成)


        scope_event = $game_map.scope_event


        $game_troop.members.size.times{ |i|


          $game_map.events[scope_event[i]].erase


        }


      end


      instant_encounter_battle_end(result)


    end


  end


end

如果玩家初始位置不是在事件标题地图上就可以用

纲·炎 · 发表于 2013-1-13 11:14:50

viva0072008 发表于 2013-1-12 22:41
这个原帖有个范例，但老实说这脚本本身问题比较多，不建议使用，游戏的正常战斗结束的时候会发生181行错误 ...

那请问有没有较好的明雷？难道要用事件？

viva0072008 · 发表于 2013-1-12 22:41:12

这个原帖有个范例，但老实说这脚本本身问题比较多，不建议使用，游戏的正常战斗结束的时候会发生181行错误，再者有个比较奇葩的BUG，那就是你即时遇敌的战斗，如果你逃走了，在触发正常战斗的话，敌人永远是你上次逃走的那些……而且这个即时遇敌的战斗没法很好调用敌群中的事件设置，感觉弊大于利。

纲·炎 · 发表于 2013-1-12 22:00:40

Q多少，我加你呗@Sion

纲·炎 · 发表于 2013-1-12 21:54:09

Scripts.rar (153.77 KB, 下载次数: 25)
@Sion

j433463 · 发表于 2013-1-12 21:26:00

跳过标题页脚本是光的圆周率写的那个，事件标题则是我自己做的，只用一个变量记录编号，一个事件独立开关和六张选项图，档案下载在这帖子底下：

http://rpg.blue/forum.php?mod=vi ... p;page=1#pid2083873

我用这个加上即时遇敌脚本，进入事件标题没有发生您说的情况。

纲·炎 · 发表于 2013-1-12 21:17:53

j433463 发表于 2013-1-12 20:55
我自制事件标题页，有加上这明雷脚本，测试没有遇到您说的问题，不知您事件标题弄了啥？
倒是有战斗后的错 ...

你用的脚本是什么？

纲·炎 · 发表于 2013-1-12 21:01:32

j433463 发表于 2013-1-12 20:55
我自制事件标题页，有加上这明雷脚本，测试没有遇到您说的问题，不知您事件标题弄了啥？
倒是有战斗后的错 ...

{:2_271:} 你QQ多少，我加你

j433463 · 发表于 2013-1-12 20:55:18

我自制事件标题页，有加上这明雷脚本，测试没有遇到您说的问题，不知您事件标题弄了啥？
倒是有战斗后的错误讯息，就跟那个即时遇敌脚本发布帖一样，都是 181 行的问题，
或者，看看亿万版主有没有什么发现？

纲·炎 · 发表于 2013-1-12 20:40:51

j433463 发表于 2013-1-12 20:22
既然知道，那您怎么说看不懂说明呢？让我还以为您看不懂脚本。

而且您这脚本似乎不完整，有些方法和变量没 ...

我也不知道，我把我的事件标题放在范例里面一样用不了，是不是会冲突的啊，哎

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

[已经过期] 即时遇敌无法使用？

加入我们，或者，欢迎回来。

点评

点评

点评