仿魔兽的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 进行了编辑]

雷欧纳德 · 发表于 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 进行了编辑]

Yurrica · 发表于 2006-12-7 05:53:39

好东东。。万年不来技术区的人来抢沙发～～{/hx}

elwd · 发表于 2006-12-7 05:54:30

提示: 作者被禁止或删除内容自动屏蔽

simounF · 发表于 2006-12-7 06:00:52

提示: 作者被禁止或删除内容自动屏蔽

柳柳 · 发表于 2006-12-7 06:24:58

哈哈～有意思～
我就说不难吗，叶子还不信～{/qiang}

whbm · 发表于 2006-12-7 06:27:26

挺有意思

两只鱼 · 发表于 2006-12-7 06:30:24

暴雪出品，必为精品（魔兽）
夏娜出品，必为精品（－__-这个脚本）

link006007 · 发表于 2006-12-7 07:10:27

超强!
已经将Ruby了解道这种地步了!

依依 · 发表于 2006-12-7 09:05:34

等待了好久``这样就可以做帅帅的录象了

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

仿魔兽的replay（录象？）

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

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

贵宾

VX城市地图大赛冠军

第1届RMTV比赛冠军

第1届TG大赛冠军

第1届RMTV比赛季军

RMVX自由创作大赛亚军

第2届短篇游戏比赛亚军

第5届短篇游戏比赛冠军