汉之云脚本编写简明教程

wuspring

文中对数组的调用方法有错，会导致在第1及第3项作弊时游戏卡死

1.        for j = 1, mon do   ->         for j = 1, mon[i] do
   
2.             for j = i1, i2 do  ->               for j = i1[i], i2[i] do

复制代码

全文：

1. restore_save_q = function()
   
2.    selmsg(3, "匡兜")
   
3.    setselect(1, "1.絃")
   
4.    setselect(2, "2.国")
   
5.    setselect(3, "3.")
   
6.    sleep(3)
   
7.    waitanykey()
   
8.    restore_save_ans(getselectanwser())
   
9. end
   
10. 
    
11. restore_cheat_q = function()
    
12.    selmsg(6, "匡兜")
    
13.    setselect(1, "1.┣")
    
14.    setselect(2, "2.珇")
    
15.    setselect(3, "3.杆称")
    
16.    setselect(4, "4.窥")
    
17.    setselect(5, "5.钉ヮ")
    
18.    setselect(6, "6.")
    
19.    sleep(3)
    
20.    waitanykey()
    
21.    restore_cheat_ans(getselectanwser())
    
22. end
    
23. 
    
24. restore_cheat_ans = function(x)
    
25.    local mainid = get_mainrole()
    
26.    local mainname = get_rolename(mainid)
    
27.    if x == 1 then
    
28.       local mon = {17, 14, 15, 15, 16, 16, 14, 12, 7, 6}
    
29.       local a = table.getn(mon)
    
30.       for i = 1, a do
    
31.          for j = 1, mon[i] do
    
32.             addsprite(i * 100 + 900 + j, 1)
    
33.          end
    
34.       end
    
35.    elseif x == 2 then
    
36.       for i = 6001, 6028 do
    
37.          if i ~= 6024 then
    
38.             additem(i, 99)
    
39.          end
    
40.       end
    
41.       for i = 6039, 6046 do
    
42.          if i ~= 6040 then
    
43.             additem(i, 99)
    
44.          end
    
45.       end
    
46.    elseif x == 3 then
    
47.       local i1 = {3001, 3018, 3021, 3041, 3061, 3081, 3101, 4001, 4021, 4041, 5001, 5051}
    
48.       local i2 = {3016, 3018, 3034, 3055, 3074, 3090, 3109, 4011, 4030, 4051, 5024, 5063}
    
49.       local a = table.getn(i1)
    
50.       local b = table.getn(i2)
    
51.       local num = 11
    
52.       if a == b then
    
53.          for i = 1, a do
    
54.             for j = i1[i], i2[i] do
    
55.                additem(j, num)
    
56.             end
    
57.          end
    
58.       end
    
59.    elseif x == 4 then
    
60.       addmoney(1000000)
    
61.    elseif x == 5 then
    
62.       for i = 1, 11 do
    
63.          join(i)
    
64.       end
    
65.    elseif x == 6 then
    
66.    else
    
67.       restore_cheat_q()
    
68.    end
    
69. end
    
70. 
    
71. restore_save_ans = function(x)
    
72.    local mainid = get_mainrole()
    
73.    local mainname = get_rolename(mainid)
    
74.    if x == 1 then
    
75.       call_save()
    
76.    elseif x == 3 then
    
77.       restore_team()
    
78.    elseif x == 2 then
    
79.       restore_cheat_q()
    
80.    else
    
81.       restore_save_q()
    
82.    end
    
83. end

复制代码

[ 本帖最后由 wuspring 于 2008-1-12 22:45 编辑 ]

wuspring

原帖由 vbvan 于 2008-1-13 13:00 发表


多谢提醒，我是在所见即所得模式下粘贴的，没留意UBB还是会被解析。顶楼的代码已经更新

:) 话说这个作弊太强大了，昨晚用这个去过剧情，了无乐趣了..hoho

wuspring

前头在改的脚本是作弊用的~~~~~~~~