在國外網站發現的有趣腳本 "Edit & Play" (XP和VX適用)

sai90306 · 发表于 2012-4-22 19:06:13

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

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

x

本帖最后由 sai90306 于 2012-4-22 19:10 编辑

不知道有沒有人發過了
說明上寫說能夠同時編輯和玩自己的遊戲
有人要當小白鼠的嗎?

來源http://save-point.org/Thread-xp-vx-script-edit-play--3674

RUBY 代码复制

#===============================================================================
    # * Edit & Play
    #-------------------------------------------------------------------------------
    #   - Version: 2.1
    #   - Date   : 14 / 08 / 2011
    #   - Author : .:Fênix:.
    #   - MSN    : [email][email protected][/email]
    #-------------------------------------------------------------------------------
    #   - Description:
    #     Let you edit and play your game at the same time
    #-------------------------------------------------------------------------------
    #   - Compability:
    #     RPG Maker XP and RPG Maker VX
    #===============================================================================
 
    module Edit_and_Play
      # Activate the script? (true / false)
      Activate = true
      # Key which updates the game
      Update_Key = Input::ALT
      # Data files that won't be reloaded
      File_Exclude = []
      # Scripts that won't be reloaded
      Scripts_Exclude = ["Edit & Play", "Main"]
    end
 
    $VX ||= defined?(Graphics.wait)
 
    if ((Edit_and_Play::Activate) && !(File.file?("Game.rgss#{$VX ? '2a' : 'ad'}")))
 
      char     = $VX ? "v" : "x"
      old_file = "Data/BT_Actors.r#{char}data"
      new_file = "Data/BT_Actors2.r#{char}data"
 
      if ($TEST || $DEBUG)
        File.rename(old_file, new_file) if ($BTEST)
        Thread.new {system("Game.exe")}
        exit
      else
        $TEST = $DEBUG = true
        if (File.file?(new_file))
          File.rename(new_file, old_file)
          $BTEST = true
        end
      end
 
      unless ($VX)
        class Scene_Battle
 
          alias :edit_and_play_1 :main unless ($@)
 
          def main
            edit_and_play_1
            $scene = Scene_Battle.new if ($BTEST)
          end
 
        end
      end
 
      class << Input
 
        alias :edit_and_play_2 :update unless ($@)
 
        def update
          if (trigger?(Edit_and_Play::Update_Key))
            for file in (Dir.entries("Data") - [".", "..", *Edit_and_Play::File_Exclude])
              next if (file.include?("Map"))
              basename = File.basename(file, ".*").downcase!
              if (basename == "scripts")
                ($VX ? Cache : RPG::Cache).clear
                for data in load_data("Data/#{file}")
                  next if (Edit_and_Play::Scripts_Exclude.include?(data[1]))
                  eval(Zlib::Inflate.inflate(data[2]))
                end
                $game_map.setup($game_map.map_id) if ($game_map != nil && $game_map.map_id != 0)
                $scene = $scene.class.new
              else
                eval("$data_#{basename} = load_data('Data/#{file}')")
              end
            end        
          end
          edit_and_play_2
        end
 
      end
 
    end

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


    # * Edit & Play


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


    #   - Version: 2.1


    #   - Date   : 14 / 08 / 2011


    #   - Author : .:Fênix:.


    #   - MSN    : [email][email protected][/email]


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


    #   - Description:


    #     Let you edit and play your game at the same time


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


    #   - Compability:


    #     RPG Maker XP and RPG Maker VX


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


 


    module Edit_and_Play


      # Activate the script? (true / false)


      Activate = true


      # Key which updates the game


      Update_Key = Input::ALT


      # Data files that won't be reloaded


      File_Exclude = []


      # Scripts that won't be reloaded


      Scripts_Exclude = ["Edit & Play", "Main"]


    end


 


    $VX ||= defined?(Graphics.wait)


 


    if ((Edit_and_Play::Activate) && !(File.file?("Game.rgss#{$VX ? '2a' : 'ad'}")))


 


      char     = $VX ? "v" : "x"


      old_file = "Data/BT_Actors.r#{char}data"


      new_file = "Data/BT_Actors2.r#{char}data"


 


      if ($TEST || $DEBUG)


        File.rename(old_file, new_file) if ($BTEST)


        Thread.new {system("Game.exe")}


        exit


      else


        $TEST = $DEBUG = true


        if (File.file?(new_file))


          File.rename(new_file, old_file)


          $BTEST = true


        end


      end


 


      unless ($VX)


        class Scene_Battle


 


          alias :edit_and_play_1 :main unless ($@)


 


          def main


            edit_and_play_1


            $scene = Scene_Battle.new if ($BTEST)


          end


 


        end


      end


 


      class << Input


 


        alias :edit_and_play_2 :update unless ($@)


 


        def update


          if (trigger?(Edit_and_Play::Update_Key))


            for file in (Dir.entries("Data") - [".", "..", *Edit_and_Play::File_Exclude])


              next if (file.include?("Map"))


              basename = File.basename(file, ".*").downcase!


              if (basename == "scripts")


                ($VX ? Cache : RPG::Cache).clear


                for data in load_data("Data/#{file}")


                  next if (Edit_and_Play::Scripts_Exclude.include?(data[1]))


                  eval(Zlib::Inflate.inflate(data[2]))


                end


                $game_map.setup($game_map.map_id) if ($game_map != nil && $game_map.map_id != 0)


                $scene = $scene.class.new


              else


                eval("$data_#{basename} = load_data('Data/#{file}')")


              end


            end        


          end


          edit_and_play_2


        end


 


      end


 


    end

真空包装 · 发表于 2012-4-22 19:30:15

我怎么看到是中文的？

＃================================================= ==============================
＃*编辑及播放
＃------------------------------------------------- ------------------------------
＃ - 版本：2.1
＃ - 日期：14/08/2011
   - 作者：FENIX：。
＃ -  MSN：[电子邮件] [email protected] [/电子邮件]
＃------------------------------------------------- ------------------------------
＃ - 描述：
＃让您编辑和播放在同一时间你的游戏
＃------------------------------------------------- ------------------------------
＃ -  Compability：
＃的RPG MAKER XP和RPG MAKER VX的
＃================================================= ==============================

模块 Edit_and_Play
   ＃启动脚本？（真/假）
   激活= TRUE
   ＃键更新游戏
   Update_Key = 输入:: ALT
   ＃数据文件不会被重载
   File_Exclude = [ ]
   ＃不会被重新加载脚本
   Scripts_Exclude = [ “编辑和播放”，“主” ]
结束

VX | | = 定义？（图形。等待）

   （（Edit_and_Play ::激活） &&！（档案文件（“Game.rgss＃{$ VX '2 A吗？”：“广告”}“ ）））

   字符= $ VX的“V” ：“X”
   old_file = “数据/ BT_Actors.r＃{char}上的数据”
   new_file =的“Data/BT_Actors2.r＃{字符}数据”

   如果（ $测试| | $调试）
      文件。重命名（ old_file，new_file ）  （ $ BTEST ）
      主题。新系统（“Game.exe” ）}
      出口
   其他
      $测试 = $ DEBUG = 真
      如果（文件。文件（new_file ））
      文件。重命名（ new_file，old_file ）
      美元BTEST = 真
      结束
   结束

   除非（ $ VX的）
      类 Scene_Battle

      别名：edit_and_play_1  ：主要除非（ $ @ ）

      DEF主
         edit_and_play_1
         $场景 = Scene_Battle。新  （ $ BTEST ）
      结束

      结束
   结束

   类 <<输入

      别名：edit_and_play_2  ：更新，除非（ $ @ ）

      DEF更新
      如果（触发（Edit_and_Play :: Update_Key ））
         文件（目录条目（“资料” ） - [ “。” ，“......” ，Edit_and_Play :: File_Exclude ] ）
            未来如果（文件。包括？（“地图” ））
            基名= 文件基本名（文件，“*” ）。downcase！
            （基名== “脚本” ）
            （ $ VX的缓存：角色扮演::高速缓存）。明确
            在 load_data 数据（“数据/＃{文件}” ）
               未来如果（包括Edit_and_Play :: Scripts_Exclude。？（数据[ 1 ] ））
               EVAL （ZLIB ::充气膨胀（数据[ 2 ] ））
            结束
            美元game_map。设置（ $ game_map。map_id ）  （ $ = 零 && $ game_map。map_id game_map！！= 0 ）
            $场景 = $场景。类。新
            其他
            EVAL （“$ data_中的＃{基名} = load_data（数据/＃{文件}'）” ）
            结束
         结束
      结束
      edit_and_play_2
      结束

   结束

结束

布里蓝 · 发表于 2012-4-22 19:35:11

同时编辑和玩自己的游戏？这个不用脚本就能做到了吧

‘‘──布里蓝于2012-4-22 21:47补充以下内容

我的浏览器不能复制这种格式的代码……
所以只能等喽~
估计是用软件测试时也能编辑吧
’’

乌有君 *发表于 2012-4-22 23:44:12* · 发表于 2012-4-22 23:44:12

這東西的用戶友好度絕對比目前石器內部的各種編輯器低。

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

[讨论] 在國外網站發現的有趣腳本 "Edit & Play" (XP和VX適用)

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

点评

点评

点评

开拓者

贵宾