[渣型垃圾]事件脚本中变量/开关的简写

satgo1546

首先，我选【VX发布】是因为我只在VX中测试过，别的不知道如何。
使用说明：脚本前面的注释！注释啊
啊对了，如有雷同，纯属凑巧！

---

这也没什么好截图的了。

要说明的是：
这样的调用都可以。

1. p \v[1] # 数字形式
   
2. p "\v[1]" # 字符串形式

复制代码

脚本：

RUBY 代码复制

#==============================================================================
# ■ 开关/变量在事件中简写
#------------------------------------------------------------------------------
# 超级无用脚本，仅仅是不想打字而已。
# 使用方法：在可以输入脚本的地方输入\S[ID]表示ID号开关（true/false）
#           输入\V[ID]表示ID号变量（数字）
#==============================================================================
 
# 移动路线里面的脚本
 
class Game_Character
  # 重定义 move_type_custom
  alias mtc_swi move_type_custom
  def move_type_custom
    if @move_route.list[@move_route_index].code == 45 # 当执行内容是脚本时
      command.parameters[0].gsub!(/\\s\[(\d+)\]/i) do
        $game_switches[$1.to_i] ? "true" : "false"    # 替换开关
      end
      command.parameters[0].gsub!(/\\v\[(\d+)\]/i) do  # 替换变量
        $game_variables[$1.to_i].to_s
      end
    end
    mtc_swi # 刚刚加上去的，汗
  end
end
 
# 事件中条件分歧的脚本和脚本
# 偷懒了，条件分歧里的直接替换了……应该没什么脚本在里面
class Game_Interpreter
  def command_111
    result = false
    case @params[0]
    when 0  # 开关
      result = ($game_switches[@params[1]] == (@params[2] == 0))
    when 1  # 变量
      value1 = $game_variables[@params[1]]
      if @params[2] == 0
        value2 = @params[3]
      else
        value2 = $game_variables[@params[3]]
      end
      case @params[4]
      when 0  # 数值 1 等于 数值 2 
        result = (value1 == value2)
      when 1  # 数值 1 大于或等于 数值 2 
        result = (value1 >= value2)
      when 2  # 数值 1 小于等于 数值 2 
        result = (value1 <= value2)
      when 3  # 数值 1 大于 数值 2 
        result = (value1 > value2)
      when 4  # 数值 1 小于 数值 2 
        result = (value1 < value2)
      when 5  # 数值 1 不等于 数值 2 
        result = (value1 != value2)
      end
    when 2  # 独立开关
      if @original_event_id > 0
        key = [@map_id, @original_event_id, @params[1]]
        if @params[2] == 0
          result = ($game_self_switches[key] == true)
        else
          result = ($game_self_switches[key] != true)
        end
      end
    when 3  # 计时器
      if $game_system.timer_working
        sec = $game_system.timer / Graphics.frame_rate
        if @params[2] == 0
          result = (sec >= @params[1])
        else
          result = (sec <= @params[1])
        end
      end
    when 4  # 角色
      actor = $game_actors[@params[1]]
      if actor != nil
        case @params[2]
        when 0  # 角色在队伍中
          result = ($game_party.members.include?(actor))
        when 1  # 角色名称
          result = (actor.name == @params[3])
        when 2  # 角色已学会技能
          result = (actor.skill_learn?($data_skills[@params[3]]))
        when 3  # 角色已装备武器
          result = (actor.weapons.include?($data_weapons[@params[3]]))
        when 4  # 角色已装备武器
          result = (actor.armors.include?($data_armors[@params[3]]))
        when 5  # 状态
          result = (actor.state?(@params[3]))
        end
      end
    when 5  # 敌人
      enemy = $game_troop.members[@params[1]]
      if enemy != nil
        case @params[2]
        when 0  # 出现
          result = (enemy.exist?)
        when 1  # 状态为…
          result = (enemy.state?(@params[3]))
        end
      end
    when 6  # 角色
      character = get_character(@params[1])
      if character != nil
        result = (character.direction == @params[2])
      end
    when 7  # 金钱
      if @params[2] == 0
        result = ($game_party.gold >= @params[1])
      else
        result = ($game_party.gold <= @params[1])
      end
    when 8  # 物品
      result = $game_party.has_item?($data_items[@params[1]])
    when 9  # 武器
      result = $game_party.has_item?($data_weapons[@params[1]], @params[2])
    when 10  # 防具
      result = $game_party.has_item?($data_armors[@params[1]], @params[2])
    when 11  # 按钮
      result = Input.press?(@params[1])
    when 12  # 脚本
      #====================================================
      @params[1].gsub!(/\\s\[(\d+)\]/i) do  # 替换开关
        $game_switches[$1.to_i] ? "true" : "false"
      end
      @params[1].gsub!(/\\v\[(\d+)\]/i) do  # 替换变量
        $game_variables[$1.to_i].to_s
      end
      #====================================================
      result = eval(@params[1])
    when 13  # 交通工具
      result = ($game_player.vehicle_type == @params[1])
    end
    @branch[@indent] = result     # 判断结果保存在 hash 中
    if @branch[@indent] == true
      @branch.delete(@indent)
      return true
    end
    return command_skip
  end
 
  def command_355
    script = @list[@index].parameters[0] + "\n"
    loop do
      if @list[@index+1].code == 655 # 下一个事件指令在脚本2行以上的情况下
        script += @list[@index+1].parameters[0] + "\n"
      else
        break
      end
      @index += 1
    end
    script.gsub!(/\\s\[(\d+)\]/i) do  # 替换开关
      $game_switches[$1.to_i] ? "true" : "false"
    end
    script.gsub!(/\\v\[(\d+)\]/i) do  # 替换变量
      $game_variables[$1.to_i].to_s
    end
    eval(script)
    return true
  end
end

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


# ■ 开关/变量在事件中简写


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


# 超级无用脚本，仅仅是不想打字而已。


# 使用方法：在可以输入脚本的地方输入\S[ID]表示ID号开关（true/false）


#           输入\V[ID]表示ID号变量（数字）


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


 


# 移动路线里面的脚本


 


class Game_Character


  # 重定义 move_type_custom


  alias mtc_swi move_type_custom


  def move_type_custom


    if @move_route.list[@move_route_index].code == 45 # 当执行内容是脚本时


      command.parameters[0].gsub!(/\\s\[(\d+)\]/i) do


        $game_switches[$1.to_i] ? "true" : "false"    # 替换开关


      end


      command.parameters[0].gsub!(/\\v\[(\d+)\]/i) do  # 替换变量


        $game_variables[$1.to_i].to_s


      end


    end


    mtc_swi # 刚刚加上去的，汗


  end


end


 


# 事件中条件分歧的脚本和脚本


# 偷懒了，条件分歧里的直接替换了……应该没什么脚本在里面


class Game_Interpreter


  def command_111


    result = false


    case @params[0]


    when 0  # 开关


      result = ($game_switches[@params[1]] == (@params[2] == 0))


    when 1  # 变量


      value1 = $game_variables[@params[1]]


      if @params[2] == 0


        value2 = @params[3]


      else


        value2 = $game_variables[@params[3]]


      end


      case @params[4]


      when 0  # 数值 1 等于 数值 2 


        result = (value1 == value2)


      when 1  # 数值 1 大于或等于 数值 2 


        result = (value1 >= value2)


      when 2  # 数值 1 小于等于 数值 2 


        result = (value1 <= value2)


      when 3  # 数值 1 大于 数值 2 


        result = (value1 > value2)


      when 4  # 数值 1 小于 数值 2 


        result = (value1 < value2)


      when 5  # 数值 1 不等于 数值 2 


        result = (value1 != value2)


      end


    when 2  # 独立开关


      if @original_event_id > 0


        key = [@map_id, @original_event_id, @params[1]]


        if @params[2] == 0


          result = ($game_self_switches[key] == true)


        else


          result = ($game_self_switches[key] != true)


        end


      end


    when 3  # 计时器


      if $game_system.timer_working


        sec = $game_system.timer / Graphics.frame_rate


        if @params[2] == 0


          result = (sec >= @params[1])


        else


          result = (sec <= @params[1])


        end


      end


    when 4  # 角色


      actor = $game_actors[@params[1]]


      if actor != nil


        case @params[2]


        when 0  # 角色在队伍中


          result = ($game_party.members.include?(actor))


        when 1  # 角色名称


          result = (actor.name == @params[3])


        when 2  # 角色已学会技能


          result = (actor.skill_learn?($data_skills[@params[3]]))


        when 3  # 角色已装备武器


          result = (actor.weapons.include?($data_weapons[@params[3]]))


        when 4  # 角色已装备武器


          result = (actor.armors.include?($data_armors[@params[3]]))


        when 5  # 状态


          result = (actor.state?(@params[3]))


        end


      end


    when 5  # 敌人


      enemy = $game_troop.members[@params[1]]


      if enemy != nil


        case @params[2]


        when 0  # 出现


          result = (enemy.exist?)


        when 1  # 状态为…


          result = (enemy.state?(@params[3]))


        end


      end


    when 6  # 角色


      character = get_character(@params[1])


      if character != nil


        result = (character.direction == @params[2])


      end


    when 7  # 金钱


      if @params[2] == 0


        result = ($game_party.gold >= @params[1])


      else


        result = ($game_party.gold <= @params[1])


      end


    when 8  # 物品


      result = $game_party.has_item?($data_items[@params[1]])


    when 9  # 武器


      result = $game_party.has_item?($data_weapons[@params[1]], @params[2])


    when 10  # 防具


      result = $game_party.has_item?($data_armors[@params[1]], @params[2])


    when 11  # 按钮


      result = Input.press?(@params[1])


    when 12  # 脚本


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


      @params[1].gsub!(/\\s\[(\d+)\]/i) do  # 替换开关


        $game_switches[$1.to_i] ? "true" : "false"


      end


      @params[1].gsub!(/\\v\[(\d+)\]/i) do  # 替换变量


        $game_variables[$1.to_i].to_s


      end


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


      result = eval(@params[1])


    when 13  # 交通工具


      result = ($game_player.vehicle_type == @params[1])


    end


    @branch[@indent] = result     # 判断结果保存在 hash 中


    if @branch[@indent] == true


      @branch.delete(@indent)


      return true


    end


    return command_skip


  end


 


  def command_355


    script = @list[@index].parameters[0] + "\n"


    loop do


      if @list[@index+1].code == 655 # 下一个事件指令在脚本2行以上的情况下


        script += @list[@index+1].parameters[0] + "\n"


      else


        break


      end


      @index += 1


    end


    script.gsub!(/\\s\[(\d+)\]/i) do  # 替换开关


      $game_switches[$1.to_i] ? "true" : "false"


    end


    script.gsub!(/\\v\[(\d+)\]/i) do  # 替换变量


      $game_variables[$1.to_i].to_s


    end


    eval(script)


    return true


  end


end

最后，发现貌似移动路线不行。改了一下~（其实我除了355code脚本测试过别的什么也没测试）