仿魔兽的replay（录象？）

雷欧纳德 · 发表于 2006-12-7 05:52:22

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

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

x

前言：上次听叶子说的那个录象脚本，感觉很好玩。。今天就做了…… -v-

脚本：replay脚本

作用：可用于制作攻略什么的，在通关之后附带一个通关录象？？ - -b

至于其他的。。。呵呵

理解清楚了的人就可以随便怎么做了~ 要什么效果就做什么效果~ 呵呵

说明：可参考范例工程进行菜单的制作，现在的脚本没设计制作菜单的，只提供了核心脚本，下载范例在调式模式下选择观看录象即可。。选择新游戏然后保存之后再选择观看就可以看到自己刚才玩的了。。。 - -b

点击此处下载范例工程

#==============================================================================
# ■ Kernel
#------------------------------------------------------------------------------
# 　Kernel模块。
#==============================================================================
module Kernel
#--------------------------------------------------------------------------
# ● 别名
#--------------------------------------------------------------------------
if @rand_redef.nil?
alias rand_old rand
@rand_redef = true
end
#--------------------------------------------------------------------------
# ● 重定义
#--------------------------------------------------------------------------
def rand(max)
if $record != nil and $record.mode == "播放"
return $record.pop
end
result = rand_old(max)
if $record != nil and $record.mode == "录制"
Input.deal_repeat_key
$record.push(result)
end
return result
end
end
#==============================================================================
# ■ Input
#------------------------------------------------------------------------------
# 　Input模块。
#==============================================================================
module Input
#--------------------------------------------------------------------------
# ● 记录
#--------------------------------------------------------------------------
@press = method("press?") if @press.nil?
@trigger = method("trigger?") if @trigger.nil?
@repeat = method("repeat?") if @repeat.nil?
@dir4 = method("dir4") if @dir4.nil?
@dir8 = method("dir8") if @dir8.nil?
#--------------------------------------------------------------------------
# ● 作用函数
#--------------------------------------------------------------------------
module_function
#--------------------------------------------------------------------------
# ● 记数
#--------------------------------------------------------------------------
@counts = 0
#--------------------------------------------------------------------------
# ● 处理重复键
#--------------------------------------------------------------------------
def deal_repeat_key
return if @counts == 0
$record.push(false,@counts)
@counts = 0
end
#--------------------------------------------------------------------------
# ● 通常01
#--------------------------------------------------------------------------
def common01(kind,num)
if $record != nil and $record.mode == "播放"
return $record.pop
end
result = eval(kind).call(num)
if $record != nil and $record.mode == "录制"
if result
self.deal_repeat_key
$record.push(result)
else
@counts += 1
end
end
return result
end
#--------------------------------------------------------------------------
# ● 重定义 press?
#--------------------------------------------------------------------------
def press?(num)
return self.common01("@press",num)
end
#--------------------------------------------------------------------------
# ● 重定义 trigger?
#--------------------------------------------------------------------------
def trigger?(num)
return self.common01("@trigger",num)
end
#--------------------------------------------------------------------------
# ● 重定义 repeat?
#--------------------------------------------------------------------------
def repeat?(num)
return self.common01("@repeat",num)
end
#--------------------------------------------------------------------------
# ● 通常02
#--------------------------------------------------------------------------
def common02(kind)
if $record != nil and $record.mode == "播放"
return $record.pop
end
result = eval(kind).call
if $record != nil and $record.mode == "录制"
if result != 0
self.deal_repeat_key
$record.push(result)
else
@counts += 1
end
end
return result
end
#--------------------------------------------------------------------------
# ● 重定义 dir4
#--------------------------------------------------------------------------
def dir4
return self.common02("@dir4")
end
#--------------------------------------------------------------------------
# ● 重定义 dir8
#--------------------------------------------------------------------------
def dir8
return self.common02("@dir8")
end
end
#==============================================================================
# ■ Sub_Hash
#------------------------------------------------------------------------------
# 　Hash的子类。
#==============================================================================
class Sub_Hash < Hash
#--------------------------------------------------------------------------
# ● 初始化
#--------------------------------------------------------------------------
def initialize
@pos = 0
end
#--------------------------------------------------------------------------
# ● push
#--------------------------------------------------------------------------
def push(value)
self[@pos] = value
@pos += 1
end
#--------------------------------------------------------------------------
# ● shift
#--------------------------------------------------------------------------
def shift
result = self[@pos]
@pos += 1
return result
end
#--------------------------------------------------------------------------
# ● 更改位置
#--------------------------------------------------------------------------
def pos=(pos)
@pos = pos
end
#--------------------------------------------------------------------------
# ● 判断
#--------------------------------------------------------------------------
def empty?
return @pos == self.size
end
end
#==============================================================================
# ■ Record
#------------------------------------------------------------------------------
# 　录制的类。
#==============================================================================
class Record
#--------------------------------------------------------------------------
# ● 定义实例变量
#--------------------------------------------------------------------------
attr_reader :mode
#--------------------------------------------------------------------------
# ● 初始化
#--------------------------------------------------------------------------
def initialize
@mode = "空"
@infos = Sub_Hash.new
end
#--------------------------------------------------------------------------
# ● 开始录制
#--------------------------------------------------------------------------
def start
@mode = "录制"
end
#--------------------------------------------------------------------------
# ● 开始播放
#--------------------------------------------------------------------------
def play
@mode = "播放"
@infos.pos = 0
@counts = 0
@kind = nil
@ended = false
end
#--------------------------------------------------------------------------
# ● 播放结束
#--------------------------------------------------------------------------
def finish
@mode = "空"
p '播放结束'
end
#--------------------------------------------------------------------------
# ● push
#--------------------------------------------------------------------------
def push(value,num = 1)
@infos.push([value,num])
end
#--------------------------------------------------------------------------
# ● pop
#--------------------------------------------------------------------------
def pop
if @ended
self.finish
return
end
if @counts == 0
result = @infos.shift
@ended = true if @infos.empty?
@counts = result[1]
@counts -= 1
@kind = result[0]
return @kind
else
@counts -= 1
return @kind
end
end
#--------------------------------------------------------------------------
# ● 记录
#--------------------------------------------------------------------------
def write(index = 1)
save_data(self,"Record/record#{index}.rxdata")
end
#--------------------------------------------------------------------------
# ● 暂停
#--------------------------------------------------------------------------
def pause
@mode = "空"
end
end

复制代码

　　　　　　　　　　　　　　[本贴由柳柳于 2006-12-12 0:14:20 进行了编辑]

秋弦月 · 发表于 2007-3-20 06:24:32

很神奇的东西！！{/se}
有点像那个模拟精灵。模拟精灵运行时模仿电脑的操作，鼠标移动，和行动等等。然后重复。

这个也这么强………………今天看到的强悍之作太多鸟，有点消化不良……

oksh · 发表于 2007-1-28 22:37:02

求楼主和高手解决自定义键盘和录象脚本的整合问题
附范例:
http://www.51aj.com/uwixaow/Files/2007128/142856oksh.rar

oksh · 发表于 2007-1-24 06:01:02

能不能说一个实际的操作方法啊。

是把他里面3个方法加进来吗？怎么操作啊？

神思 · 发表于 2007-1-23 22:50:45

-___-这个东西的原理就是把Input里的那个几个东西的返回值储存起来`
然后播放的时候就直接加载文件里的`````

所以如果是用了全键盘的话`要把全键盘里的那几个方法也加上来就好了````

oksh · 发表于 2007-1-22 03:06:54

这个脚本在存档后记录录象，我想在读档后继续记录，也就是把第二次存档之前的所有操作都记录下来，有办法做到吗？

另外这个脚本不能记录用户自定义的按键使用。

楼主，有什么办法能解决吗？

叶子的离开 · 发表于 2007-1-20 17:44:47

因为这个脚本是记录键盘按键次序，以达到录象效果，（解析脚本得出的结论）所以，只要更改一下注册表或者什么别的，就可以记录键盘，所以超级邪恶

哈哈（江民向外弹出*********了哦）

美兽 · 发表于 2007-1-11 18:01:04

郁闷

雷欧纳德 · 发表于 2007-1-10 23:48:00

唔 `` 感觉其实要完全的实现即时确定挺麻烦 ``` 因为 rgss中写入记录文件的时候  对于
Sprite、Bitmap、Proc这些对象是不能进行序列化的，也就是不能写入文件的，所以几乎就不可能是完全的即时，只能写入一些能够序列化的对象，变量值那些，然后在读取的时候重建Sprite、Bitmap对象等

至于精灵没释放那个问题，美兽可用这个试试。 - -b  注意：会释放所有的Bitmap对象
ObjectSpace.each_object(Bitmap) do |btm|
  btm.dispose
end

美兽 · 发表于 2007-1-10 23:01:17

这个脚本本身就没看懂,有些方法甚至都没见过,只是感觉在记录操作流程。

后来想如果只记录变量状态是否可以,发现确实变量状态返回了，但生成的精灵并没有得到释放，也就是说，回到了记录的状态，但画面的精灵因为没得到释放变的乱七八糟，只能连按回车取消掉，有的时候又卡在地图上‘
于是利用那个“RGSS一些不常用的方法~”，返回实例变量名，判断是否为bitmap对象之后释放掉再返回，从此稀里糊涂被“T”的梦魇开始了.......

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

仿魔兽的replay（录象？）

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

贵宾

VX城市地图大赛冠军

第1届RMTV比赛冠军

第1届TG大赛冠军

第1届短篇游戏比赛亚军