少林新手任务机器试行教学

linjpen

直接进入正题：新手攻略看这里：http://pkuxkx.net/forum/viewthread.php?tid=18648&
技术指导1：http://pkuxkx.net/forum/viewthread.php?tid=38551&
技术指导2：http://pkuxkx.net/forum/viewthread.php?tid=37846&
技术指导3   http://pkuxkx.net/forum/viewthread.php?tid=39080&
一、挑水：没什么好说的，用SetSpeedWalkDelay，网速快用2000，保险用3000。
二、劈柴：借用cappuccino大大的基本能搞定了。

1. map_wood = {
   
2.   ["小段"] = "small",
   
3.   ["弯曲"] = "bending",
   
4.   ["直"] = "straight",
   
5.   ["大段"] = "large",
   
6.   ["光滑"] = "smooth",
   
7.   ["粗糙"] = "rough",
   
8.   ["树枝"] = "branch",
   
9.   ["树杈"] = "crotch",
   
10.   ["树干"] = "trunk",
    
11.   ["树根"] = "root",
    
12. }
    
13. 
    
14. ^你从柴堆上拿走了一根(\S+)的(\S+)。$
    
15. DoAfter(1, "put " .. map_wood["%1"] .. " " .. map_wood["%2"])

复制代码

三、诵经和超度
           先把诵经地址，经书名字和经书章节抓下来

  例：^[>]*\s*道果禅师说道：「今天的早课安排在(\S+)，请某某诵唱(\S+)的(.*)
      SetVariable ("sjdd", "%1")
      SetVariable ("jsmz", "%2")
      SetVariable ("jszj", "%3")
      print(GetVariable("sjdd") , GetVariable("jsmz"))
因为诵经都在寺内，基本都在干路上，做一个遍历数组;比如sjbl={s;e;e;e;e;s;w;}--内容我是乱写的，具体自己遍历输入
然后进行遍历，路上抓取房间名：
       匹配：^[> ]*.*\n(\S+)\s+\-\s+\Z
       发送：    SetVariable("roomid", "%1")     
当房间名等于诵经地址一致时停下来开始找经书：if GetVariable("roomid") == GetVariable("roomid") then
                                                                        EnableTrigger("walk", false)--停止走路
                                                                        Execute("zhaojing")  --开始找经书
                                                                        end
之所以借用包裹来选经是因为后面超度回来借经书太坑了：
匹配:^[> ]*你从包袱中拿出一本(\S+)。$

1. table.insert (shuming, "%1")--抓经书名到数组
   
2. SetVariable ("shuming", "%1")       --存取变量
   
3. if GetVariable("shuming") == GetVariable("jsmz") then
   
4. print(GetVariable("shuming"))  
   
5. for i,v in ipairs(shuming) do            --遍历数组
   
6. if v ~= GetVariable("jsmz") then Execute("put "..v.." in bao")-- 把其他经书放包裹
   
7. end
   
8. end
   
9. DoAfter(2,"page 1")
   
10. else  Execute("get shu from bao")
    
11. end

复制代码

然后翻经书，继续抓经书章节名字：
匹配：^[> ]*(.*)\n\=\=\=\=\=\=\=\=\=\=\=\=\=\=\=\=\=\=\=\=\=\=\=\=\=\=\=\=\=\=\=\=\=\=\=\=\=\=\=\=\=\=\=\=\=\=\=\=\=\=\=\=\=\=\=\=\=\=\=\=\=\=\=\=\n\=\=\s+\=\=\Z
发送：SetVariable("lsjszj","%1")
当这个临时章节名和诵经章节名市停止翻经书，准备诵经：if GetVariable("lsjszj") == GetVariable("jszj") then
Execute("ok")--做一个行为动作做触发.
匹配:^\=\=\s+(\S+)\s+\=\=$
记录经书内容：table.insert (jsnr, "%1")
匹配:^\S+经\s+第(\S+)页\/总\S+页.*
然后把它转成一个变量SetVariable ("nr",table.concat(jsnr))
然后可以用DoAfter(1,"chanting " .. GetVariable("jsys") .. " " .. GetVariable("nr") .. "") 诵经了，--哈哈，比起整本经书记录下做数据库是不是省力很多了。（不过我也不会做数据库，，，，，）
之后就是ljback(),路径反转，返回。

1. ljback=function()
   
2.         if lj == nil then
   
3.         lj=GetVariable("lj")
   
4.         lj = Split(lj,";") end
   
5.                 lj = revlj(lj)
   
6.    SetVariable ("lj", table.concat(lj, ";"))
   
7. --EnableTrigger("sj_walk", false)
   
8. EnableTrigger("sj_back", ture)
   
9. print(GetVariable("lj"))
   
10. end

复制代码

五、敲钟（击鼓）
     这个就是颜色触发了，没什么可说.
    指导贴：http://pkuxkx.net/forum/viewthread.php?tid=8697&
最后放一些遍历必要代码，其实都是上面“”技术指导3“”里的内容：
   

1. function Split(szFullString, szSeparator)  --数组路径转换
   
2. local nFindStartIndex = 1
   
3. local nSplitIndex = 1
   
4. local nSplitArray = {}
   
5. while true do
   
6.    local nFindLastIndex = string.find(szFullString, szSeparator, nFindStartIndex)
   
7.    if not nFindLastIndex then
   
8.     nSplitArray[nSplitIndex] = string.sub(szFullString, nFindStartIndex, string.len(szFullString))
   
9.     break
   
10.    end
    
11.    nSplitArray[nSplitIndex] = string.sub(szFullString, nFindStartIndex, nFindLastIndex - 1)
    
12.    nFindStartIndex = nFindLastIndex + string.len(szSeparator)
    
13.    nSplitIndex = nSplitIndex + 1
    
14. end
    
15. return nSplitArray
    
16. end
    
17. 
    
18. function revlj(nowlj)--返回路径
    
19.    local lj=nowlj
    
20.    local i=table.getn(lj)
    
21.    local newlj={}
    
22.    for newi=1,i do
    
23.         newlj[newi]=revfx(lj[i+1-newi])
    
24.    end
    
25.    return newlj
    
26. end
    
27. 
    
28. function revfx(fx)--返回方向
    
29.        if fx=="enterbj" then return "outbj"    end
    
30.        if fx=="outbj" then return "enterbj"    end
    
31.        if fx=="swboxiaolu" then return "boxiaolune"    end
    
32.        if fx==nil then return     end
    
33.        if fx=="south" then return "north"    end
    
34.        if fx=="east" then return "west"   end
    
35.        if fx=="west" then return "east"   end
    
36.        if fx=="north" then return "south"   end
    
37.        if fx=="southup" then return "northdown"   end
    
38.        if fx=="southdown" then return "northup"   end
    
39.        if fx=="westup" then return "eastdown"   end
    
40.        if fx=="westdown" then return "eastup"   end
    
41.        if fx=="eastup" then return "westdown"   end
    
42.        if fx=="eastdown" then return "westup"   end
    
43.        if fx=="northup" then return "southdown"   end
    
44.        if fx=="northdown" then return "southup"   end
    
45.        if fx=="northwest" then return "southeast"   end
    
46.        if fx=="northeast" then return "southwest"   end
    
47.        if fx=="southwest" then return "northeast"   end
    
48.        if fx=="southeast" then return "northwest"   end
    
49.        if fx=="enter" then return "out"   end
    
50.        if fx=="out" then return "enter"   end
    
51.        if fx=="up" then return "down"   end
    
52.        if fx=="down" then return "up"   end
    
53. 
    
54.        if fx=="u" then return "d"   end
    
55.        if fx=="d" then return "u"   end
    
56.        if fx=="s" then return "n"    end
    
57.        if fx=="e" then return "w"   end
    
58.        if fx=="w" then return "e"   end
    
59.        if fx=="n" then return "s"   end
    
60.        if fx=="su" then return "nd"   end
    
61.        if fx=="sd" then return "nu"   end
    
62.        if fx=="wu" then return "ed"   end
    
63.        if fx=="wd" then return "eu"   end
    
64.        if fx=="eu" then return "wd"   end
    
65.        if fx=="ed" then return "wu"   end
    
66.        if fx=="nu" then return "sd"   end
    
67.        if fx=="nd" then return "su"   end
    
68.        if fx=="nw" then return "se"   end
    
69.        if fx=="ne" then return "sw"   end
    
70.        if fx=="sw" then return "ne"   end
    
71.        if fx=="se" then return "nw"   end
    
72.            if fx=="open gate" then return "knock gate"   end
    
73.            if fx=="enter shudong" then return "out"   end
    
74.            if fx=="kaimen" then return "qiaomen"   end
    
75.            if fx=="qiaomen" then return "kaimen"   end
    
76.            if fx=="yzshudong" then return "yzshudongb"   end
    
77.            if fx=="yzshudongb" then return "yzshudong"   end
    
78.                       if fx=="enter dong" then return "outdong"   end
    
79.                               if fx=="outdong" then return "enter dong;sw"   end
    
80. 
    
81.        return fx
    
82. end
    
83. 
    
84. function zhfx(fx)--赶车方向
    
85.        local fx=fx
    
86.        if fx=="u" then return "up"   end
    
87.        if fx=="d" then return "down"   end
    
88.        if fx=="s" then return "south"    end
    
89.        if fx=="e" then return "east"   end
    
90.        if fx=="w" then return "west"   end
    
91.        if fx=="n" then return "north"   end
    
92.        if fx=="su" then return "southup"   end
    
93.        if fx=="sd" then return "southdown"   end
    
94.        if fx=="wu" then return "westup"   end
    
95.        if fx=="wd" then return "westdown"   end
    
96.        if fx=="eu" then return "eastup"   end
    
97.        if fx=="ed" then return "eastdown"   end
    
98.        if fx=="nu" then return "northup"   end
    
99.        if fx=="nd" then return "northdown"   end
    
100.        if fx=="nw" then return "northwest"   end
     
101.        if fx=="ne" then return "northeast"   end
     
102.        if fx=="sw" then return "southwest"   end
     
103.        if fx=="se" then return "southeast"   end
     
104.        return fx
     
105. end
     
106. 
     
107. function transnumberc(str)--中文数字转阿拉伯数字
     
108. if str=="" then return 0 end
     
109. local a,b=string.find(str,"万")
     
110. if a==nil then
     
111.   local strtemp=string.gsub(str,"零","")
     
112.   local res=0
     
113.   a,b=string.find(strtemp,"^.+千")
     
114.   if a~=nil then
     
115.    res=res+getnumberfromchinese(string.sub(strtemp,1,2))*1000
     
116.    strtemp=string.sub(strtemp,b+1)
     
117.   end
     
118.   a,b=string.find(strtemp,"^.+百")
     
119.   if a~=nil then
     
120.    res=res+getnumberfromchinese(string.sub(strtemp,1,2))*100
     
121.    strtemp=string.sub(strtemp,b+1)
     
122.   end
     
123.   a,b=string.find(strtemp,"^.*十")
     
124.   if a~=nil then
     
125.    if b~=2 then
     
126.     res=res+getnumberfromchinese(string.sub(strtemp,1,2))*10
     
127.    else
     
128.     res=res+10
     
129.    end
     
130.    strtemp=string.sub(strtemp,b+1)
     
131.   end
     
132.   if strtemp~=nil then
     
133.    res=res+getnumberfromchinese(strtemp)
     
134.   end
     
135.   return res
     
136. else
     
137.   return transnumberc(string.sub(str,1,a-1))*10000+transnumberc(string.sub(str,b+1))
     
138. end
     
139. end
     
140. function getnumberfromchinese(str)
     
141. if str=="一" then return 1 end
     
142. if str=="二" then return 2 end
     
143. if str=="三" then return 3 end
     
144. if str=="四" then return 4 end
     
145. if str=="五" then return 5 end
     
146. if str=="六" then return 6 end
     
147. if str=="七" then return 7 end
     
148. if str=="八" then return 8 end
     
149. if str=="九" then return 9 end
     
150. return 0
     
151. end
     
152. 
     
153. function zhfxlj(lj)--赶车用
     
154.     --local lj=lj
     
155.     local temi=1
     
156.     for i,v in ipairs(lj) do lj=zhfx(v) end
     
157.     return lj
     
158. end

复制代码

走路的家伙：

1. function bianli()
   
2.   if lj == nil then
   
3.         lj=GetVariable("lj")
   
4.         lj = Split(lj,";")
   
5.         end
   
6.        local i=tonumber(GetVariable("bianli_i"))-------bianli_i是个计数器，表明现在走到数组的哪一个元素了。
   
7.                         local x=revfx(lj[i]) --返回方向，走过头用
   
8.        if tonumber(GetVariable("hubiao"))==1 then ------------hubiao个作为一个标志：如果为1就表明现在不带着镖车走，如果为0就得带着镖车走。        
   
9.        if lj==nil or tostring(table.getn(lj))==GetVariable("bianli_i")
   
10.            then Note("已经走完了，还走个屁啊")   
    
11.            Execute(lj[i])------这才是行走的命令
    
12.            EnableTrigger("sj_back", false)--结束走路
    
13.            DoAfterSpecial(1,"renwuqidian()",12)--判断是否来到原点
    
14.            else
    
15.            print("lj变量:",GetVariable("lj"))
    
16.        local s1="任务地点是： "..GetVariable("sjdd").."    当前行走段一共"..tostring(table.getn(lj)).."步，现在为 第"..GetVariable("bianli_i").."步"..",当前命令:"..lj[i]        
    
17.               Note(s1)---------以上两行是用来提醒自己的。
    
18.           Execute(lj[i])------这才是行走的命令  
    
19.                   end                  
    
20.            if tonumber(GetVariable("sj_start"))==1 then sj() end--判断是否在诵经，
    
21.            elseif tonumber(GetVariable("hubiao"))==0 then
    
22.                    if lj==nil then Note("已经走完了，还走个屁啊") return Note("到点了") end
    
23.               local s1="当前行走段一共"..tostring(table.getn(lj)).."步，现在为 第"..GetVariable("bianli_i").."步"..",当前命令:"..lj[i]
    
24.                    Note(s1)                                    
    
25.                   end
    
26.                   
    
27.            end

复制代码

ps:本人纯粹新手，以上全都是拿来主义，做好这个少林新手机器，感觉推车也不远了，然后胡一刀，萧峰还会远吗，，前面在等着我们！！自己动手征服才会带来快感~
以上，与众新手共勉，祝希望北侠人越来越多，越来越火，永立不到！！！

北大侠客行MUD，中国最好的MUD

foolenough

收藏了，👍