仿魔兽的replay（录象？） - Project1

#==============================================================================
# ■ 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

复制代码

#==============================================================================
# ■ 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

复制代码