真。作弊码系统

英顺的马甲 · 发表于 2011-2-21 14:29:05

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

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

x

本帖最后由英顺的马甲于 2011-2-21 15:32 编辑

其实就是改进作弊码脚本
解决设置公共事件必须依照顺序的问题
作弊码设置方法：Cheat[公共事件编号] = 作弊码字符串，不分大小写，支持空格，不支持标点符号，支持数字但不支持小键盘。

module Key
Cheat = {}
# 以下设置作弊码
Cheat[1] = "hello"
Cheat[10] = "it is a good day to die"
# 以上设置作弊码
@key_code = {
# =============================
"BACK"=> 0x08,
"TAB"=> 0x09,
"SHIFT"=> 0x10,
"ALT"=> 0x12,
"CAP"=> 0x14,
"ESC"=> 0x1B,
"SPACE"=> 0x20,
" "=> 0x20,
"LEFT"=> 0x25,
"UP"=> 0x26,
"RIGHT"=> 0x27,
"DOWN"=> 0x28,
"ENTER" => 13,
"LCTRL" => 0xA2,
"RCTRL" => 0xA3,
"LALT" => 0xA4,
"RALT" => 0xA5,
"SPACE" => 0x20,
# =============================
"A" => 0x41,
"B" => 0x42,
"C" => 0x43,
"D" => 0x44,
"E" => 0x45,
"F" => 0x46,
"G" => 0x47,
"H" => 0x48,
"I" => 0x49,
"J" => 0x4A,
"K" => 0x4B,
"L" => 0x4C,
"M" => 0x4D,
"N" => 0x4E,
"O" => 0x4F,
"P" => 0x50,
"Q" => 0x51,
"R" => 0x52,
"S" => 0x53,
"T" => 0x54,
"U" => 0x55,
"V" => 0x56,
"W" => 0x57,
"X" => 0x58,
"Y" => 0x59,
"Z" => 0x5A,
# =============================
"F1" => 0x70,
"F2" => 0x71,
"F3" => 0x72,
"F4" => 0x73,
"F5" => 0x74,
"F6" => 0x75,
"F7" => 0x76,
"F8" => 0x77,
"F9" => 0x78,
"F10" => 0x79,
"F11" => 0x7A,
"F12" => 0x7B,
# =============================
"0" => 0x30,
"1" => 0x31,
"2" => 0x32,
"3" => 0x33,
"4" => 0x34,
"5" => 0x35,
"6" => 0x36,
"7" => 0x37,
"8" => 0x38,
"9" => 0x39
# =============================
}
module_function
@R_Key_Hash = {}
@trigger = {}
@R_Key_Repeat = {}
GetKeyState = Win32API.new("user32","GetAsyncKeyState",['I'],'I')
def update
@key_code.each_value do |i|
result = GetKeyState.call(i)
if @R_Key_Hash[i] == 1 and result != 0
@trigger[i] = false
next
end
if result != 0
@R_Key_Hash[i] = 1
@trigger[i] = true
next
else
@R_Key_Hash[i] = 0
@trigger[i] = false
next
end
end
end
def press?(rkey)
return GetKeyState.call(rkey) != 0
end
def repeat?(rkey)
result = GetKeyState.call(rkey)
if result != 0
if @R_Key_Repeat[rkey].nil?
@R_Key_Repeat[rkey] = 0
return true
end
@R_Key_Repeat[rkey] += 1
else
@R_Key_Repeat[rkey] = nil
@R_Key_Hash[rkey] = 0
end
if !@R_Key_Repeat[rkey].nil? and @R_Key_Repeat[rkey] > 10 # 6和10乃精确 repeat
@R_Key_Repeat[rkey] = 6
return true
else
return false
end
end
def trigger?(rkey)
return @trigger[rkey]
end
def [](key)
return @key_code[key]
end
end
module Graphics
@self_update = method('update') if @self_update.nil?
module_function
def update
@self_update.call
Key.update
end
end
class Scene_Map
alias old update
def update
@mj=Key::Cheat
for i in 0...999
if @mj[i] != nil
array = @mj[i].upcase.scan(/./)
@mj[i]=[nil]
for n in 0...array.size
@mj[i].push(Key[array[n]])
end
end
end
n = 0
for i in 1..190
n = i if Key.trigger?(i)
end
if n > 0
if @open
@open = false
for @k in @z
@open = true if n == @mj[@k][@j[@k]]
end
for @k in @z
if n == @mj[@k][@j[@k]]
@j[@k]+=1
if @j[@k]==@mj[@k].size
$game_temp.common_event_id = @k
@j[@k] = 0
end
else
@j[@k] = 0
end
end
end
end
if @open != true
@z = []
@j = []
for i in 0...999
if @mj.has_key?(i)
if n == @mj[i][1]
@z.push(i)
@j[i] = 2
@open = true
end
end
end
end
old
end
end

复制代码

絀神入化 · 发表于 2011-7-2 12:50:12

事件党飘过= =脚本无能

36763183 · 发表于 2011-6-29 12:12:03

楼主是小LIM???

冰舞蝶恋 · 发表于 2011-6-29 11:22:37

请给出原作者。

------------------------------
另：真的很有爱哈~收下。

KB.Driver · 发表于 2011-5-23 13:12:09

本帖最后由 KB.Driver 于 2011-5-25 02:51 编辑

-_-|||（啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊我这是第N次被扣经验啦，打击啊！大家下手nengbunengbuyaozhemehen?）

921257824 · 发表于 2011-5-22 20:53:57

说实话。个人认为实用性不大！作弊码完全可以用输入值来实现的

puohuaishi · 发表于 2011-5-21 15:32:34

弱弱的问一句，作弊码完全可以通过公共事件来实现啊，为什么还要这么麻烦用代码？

377081559 · 发表于 2011-3-17 19:39:56

楼猪，你啥时候改正第146行啊

heros · 发表于 2011-3-17 18:15:44

楼主有改正不?146有问题

被遗弃的 · 发表于 2011-3-15 13:08:57

第146行有问题，请楼主改正

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

[讨论] 真。作弊码系统

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

点评

评分

贵宾

R考场第七期纪念奖