RPG录像脚本

yangff

玩过网游没有？
没有？你丫死开。
玩过，好！知道网游的录像功能吗？
不知道？！- -|||（擦汗）
知道。那知道这个脚本干麻用吗？
不知道？哦，对我没说。
这个脚本就是提供 录像功能的脚本。
使用方法：
插入到Main以前。
按F5 （任意场合）录像！
注意！
这个程序只提供F5 录像。
播放必须要：
$notgc = RedOle.new(文件名,循环？)
update 里
$notgc.update




脚本内容：

1. module Graphics
   
2.   LoaderFPS = 30
   
3. end
   
4. #Graphics::LoaderFPS
   
5. class Font
   
6. def marshal_dump;end
   
7. def marshal_load(obj);end
   
8. end
   
9. class Bitmap
   
10. # 传送到内存的API函数
    
11. RtlMoveMemory_pi = Win32API.new('kernel32', 'RtlMoveMemory', 'pii', 'i')
    
12. RtlMoveMemory_ip = Win32API.new('kernel32', 'RtlMoveMemory', 'ipi', 'i')
    
13. def _dump(limit)
    
14. data = "rgba" * width * height
    
15. RtlMoveMemory_pi.call(data, address, data.length)
    
16. [width, height, Zlib::Deflate.deflate(data)].pack("LLa*") # 压缩
    
17. end
    
18. def self._load(str)
    
19. w, h, zdata = str.unpack("LLa*"); b = new(w, h)
    
20. RtlMoveMemory_ip.call(b.address, Zlib::Inflate.inflate(zdata), w * h * 4); b
    
21. end
    
22. # [[[bitmap.object_id * 2 + 16] + 8] + 16] == 数据的开头
    
23. #
    
24. def address
    
25. buffer, ad = "xxxx", object_id * 2 + 16
    
26. RtlMoveMemory_pi.call(buffer, ad, 4); ad = buffer.unpack("L")[0] + 8
    
27. RtlMoveMemory_pi.call(buffer, ad, 4); ad = buffer.unpack("L")[0] + 16
    
28. RtlMoveMemory_pi.call(buffer, ad, 4); return buffer.unpack("L")[0]
    
29. end
    
30. end
    
31. 
    
32. class << Graphics
    
33.   #--------------------------------------------------------------------------
    
34.   # ● 更新处理
    
35.   #--------------------------------------------------------------------------
    
36.   alias  old_update  update
    
37.   def update
    
38.     @c = 0 if @c.nil?
    
39.     @ot = Time.now if @ot.nil?
    
40.     if (Time.now - @ot) >= 1
    
41.       @c = 0
    
42.       @ot = Time.now if @ot.nil?
    
43.     end
    
44.     old_update
    
45.     $cut_loop = false if $cut_loop == nil
    
46.     if ($cut_loop)
    
47.       $cc = []if $cc == nil
    
48.       if Input.trigger?(Input::F5)
    
49.         end_cut
    
50.       end
    
51.       
    
52. #     if @c <= Graphics::LoaderFPS
    
53.         Marshal.dump(Graphics.snap_to_bitmap,@f) if $cut_loop
    
54.   #    end
    
55.    #   @c = @c+1
    
56.       
    
57.     else
    
58.       if Input.trigger?(Input::F5)
    
59.         begin_cut
    
60.       end
    
61.     end
    
62.   end
    
63.   def begin_cut
    
64.     @f = File.open("Lop" + (Dir["Lop*.dvi"].size+1).to_s + ".dvi","wb")
    
65.     $cut_loop = true
    
66.     print "开始录像！"
    
67.     #$cc = []
    
68.   end
    
69.   def end_cut
    
70.     $cut_loop = false
    
71.     #print "开始保存！"
    
72.     @f.close   
    
73.     print "保存完毕！"
    
74.     #$cc = []
    
75.   end
    
76. end
    
77. class RedOle
    
78.   def initialize(fn="er",repeat=false)
    
79.     if fn=="er"
    
80.       p "ERROR"
    
81.       exit
    
82.     end
    
83.     @repeat = repeat
    
84.     @s = Sprite.new#(v)
    
85.     @f = File.open(fn,"rb")
    
86.     @pc = Marshal.load(@f)
    
87.     @fn = fn
    
88.     @s.bitmap = @pc
    
89.   end
    
90.   def update
    
91.     @c = 0 if @c.nil?
    
92.     @ot = Time.now if @ot.nil?
    
93.     if (Time.now - @ot) >= 1
    
94.       @c = 0
    
95.       @ot = Time.now if @ot.nil?
    
96.     end
    
97.     begin
    
98.       if @c <= Graphics::LoaderFPS
    
99.         @pc = Marshal.load(@f)
    
100.         @s.bitmap = @pc
     
101.         @c += 1
     
102.       end
     
103.       
     
104.     rescue
     
105.       dispose(true)
     
106.     end
     
107.   end
     
108.   def dispose(f=false)
     
109.     @pc = nil
     
110.     @s.bitmap.dispose
     
111.     @s.dispose
     
112.     begin
     
113.       @f.close
     
114.     rescue
     
115.       if @repeat and f
     
116.         initialize(@fn,true)
     
117.       end
     
118.     end
     
119.     GC.start
     
120.   end
     
121.   def dispose?
     
122.     return @pc.nil?
     
123.   end
     
124. end
     

复制代码

但是这个程序有个缺点。
录像具反馈FPS=0~5
播放=20~40（50）
还有就是文件大小偏大（高保真，32位的拉{/gg}总之播放效果很好）

宾少

我提个意见好吗？
用这东西，卡得要命~生成的播放文件大得要命~
要做录像的话，可以参照星际争霸那款游戏的录像提系统哟~它的录像文件也只有几十KB左右~

神思

其实不需要真的把图片保存下来的```
只句要记录操作就好了``
然后在播放的时候把操作模拟出来```

面粉

以下引用神思于2008-11-25 15:19:28的发言
其实不需要真的把图片保存下来的```
只句要记录操作就好了``<br>
然后在播放的时候把操作模拟出来```

有个问题啊……思思
如果只是保存并重现玩家的操作那还算容易。
但是如果算上脚本内含关于敌人操作所形成的随机数和变量，每次都要生成一个快照，光是记录就已经比较麻烦了。如果制作者再添加了影响行动的脚本那就变得更麻烦了。
虽然可以简化：不使用储存变量，而只是在重现时读取对应时刻或者回合NPC的的动作和伤害，并显示出来。但即使这样子在重现部分还是很麻烦，现有的程序结构要作很大变动。

dvi的话……只要知道文件构成的结构就可以了呢……-v-

yangff

以下引用宾少于2008-11-25 12:45:46的发言：

我提个意见好吗？
用这东西，卡得要命~生成的播放文件大得要命~
要做录像的话，可以参照星际争霸那款游戏的录像提系统哟~它的录像文件也只有几十KB左右~

要文件小可意，但是会更卡

灼眼的夏娜

以下引用面粉于2008-11-25 15:26:57的发言：


以下引用神思于2008-11-25 15:19:28的发言
其实不需要真的把图片保存下来的```
只句要记录操作就好了``<br>
然后在播放的时候把操作模拟出来```



有个问题啊……思思
如果只是保存并重现玩家的操作那还算容易。
但是如果算上脚本内含关于敌人操作所形成的随机数和变量，每次都要生成一个快照，光是记录就已经比较麻烦了。如果制作者再添加了影响行动的脚本那就变得更麻烦了。
虽然可以简化：不使用储存变量，而只是在重现时读取对应时刻或者回合NPC的的动作和伤害，并显示出来。但即使这样子在重现部分还是很麻烦，现有的程序结构要作很大变动。

dvi的话……只要知道文件构成的结构就可以了呢……-v-


[本贴由作者于 2008-11-25 15:31:21 最后编辑]

重定义 rand Input里的方法不就可以了 - -？{/gg}

yangff

以下引用灼眼的夏娜于2008-11-25 18:46:38的发言：


以下引用面粉于2008-11-25 15:26:57的发言：


以下引用神思于2008-11-25 15:19:28的发言
其实不需要真的把图片保存下来的```
只句要记录操作就好了``<br>
然后在播放的时候把操作模拟出来```



有个问题啊……思思
如果只是保存并重现玩家的操作那还算容易。
但是如果算上脚本内含关于敌人操作所形成的随机数和变量，每次都要生成一个快照，光是记录就已经比较麻烦了。如果制作者再添加了影响行动的脚本那就变得更麻烦了。
虽然可以简化：不使用储存变量，而只是在重现时读取对应时刻或者回合NPC的的动作和伤害，并显示出来。但即使这样子在重现部分还是很麻烦，现有的程序结构要作很大变动。

dvi的话……只要知道文件构成的结构就可以了呢……-v-


[本贴由作者于 2008-11-25 15:31:21 最后编辑]


重定义 rand Input里的方法不就可以了 - -？

{/fd}用的着吗...

柳之一

每次游戏前自动生成一个乱数表，乱数固定，记录操作。
这样才能变小，但是会对目前的系统加以更改。
要不是做卡牌，战略游戏，我是不会用录像功能的。
就是用，还得自己改{/dy}