学习笔记之颜色判定抓取信息的方法（MUSH）

littleknife

1. hubiao.robberIndex={"yellow","white","cyan","blue","red","lime","magenta","green",}
   
2. ----丐帮white,武当white,桃花cyan,星宿blue，全真red，少林lime,
   

复制代码

1. 
   
2. addtri("hubiao_rbinfo","^.*劫匪\\("..hubiao.Upper_playerid.."'s robber\\)\\w*","q_hubiao","hubiao.rbinfo")
   

复制代码

1. hubiao.rbinfo=function(name, line, wildcards, styles)
   
2.   col = string.find (line, "劫匪")
   
3.   if not col then
   
4. print("::抓取失败::")
   
5.     return
   
6.   end
   
7.   style = GetStyle (styles, col)
   
8.   robberColor=RGBColourToName (style.textcolour)
   
9.   ----print ("劫匪的颜色：", robberColor)
   
10.   table.insert(hubiao.robberColor,robberColor)
    
11.   ------------------------------------------
    
12.   if simTableIndex(robberColor,hubiao.robberIndex)==-1 then
    
13.   table.insert(hubiao.robberIndex,robberColor)
    
14.   end
    
15.   ------------------------------------------
    
16. end
    
17. 
    

复制代码

1. function GetStyle (styleRuns, wantedColumn)
   
2. local currentColumn = 1
   
3.    -- check arguments
   
4.    assert (type (styleRuns) == "table",
   
5.            "First argument to GetStyle must be table of style runs")
   
6.    assert (type (wantedColumn) == "number" and wantedColumn >= 1,
   
7.            "Second argument to GetStyle must be column number to find")
   
8.    -- go through each style
   
9.    for item, style in ipairs (styleRuns) do
   
10.      local position = wantedColumn - currentColumn + 1  -- where letter is in style
    
11.      currentColumn = currentColumn + style.length       -- next style starts here
    
12.      if currentColumn > wantedColumn then  -- if we are within this style
    
13.         return style, string.sub (style.text, position, position), item  -- done
    
14.      end -- if found column
    
15.    end -- for each style
    
16.    -- if not found: result is nil
    
17. end -- function GetStyle
    

复制代码

1. addtri=function(triname,trimatch,trigroup,triscript,triflag,trisequence)
   
2. if triflag==nil or triflag=="" then triflag=flag_base end
   
3. if trisequence==nil then trisequence=10 end
   
4. trireturnvalue=AddTriggerEx(triname, trimatch, "", triflag, -1, 0, "",  triscript, 0, trisequence)
   
5. SetTriggerOption(triname,"group",trigroup)
   
6. return trireturnvalue
   
7. end
   

复制代码

1. function simTableIndex(str,list)
   
2.   for i,value in pairs(list)  do
   
3.     if (value==str) then
   
4.       return i
   
5.     end
   
6.   end
   
7.   return -1
   
8. end

复制代码

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

when

怪不得见你这两天老丢镖了，顶一个

aomei

存档，以后来学习！

flauto

看不懂。。。