dnf,计算角色数量源码分享

CNXXP

在下正在研究，DNF辅助编写，现在贴出统计角色数量的源码
如果有问题，422838254，同时有志于写这个游戏角本的，欢迎交流
用的是TC7.0做的

function 角色数量(下标)
    var intx=27,inty=86,x步长=122,y步长=220,数量=array(),数组下标=0,w=146,h=293
    //有多少个角色,取得后返回
    for(var i = 0; i < 5; i++)//一行六个角色
        if(i>0)
            inty=inty+y步长//大于第一行y轴变一次
            h=h+inty
        end
        for(var j = 0; j < 6; j++)
            select(i)
                case 0
                //第一行,x轴加加 步长122
               
               
                if(是否有角色(下标,intx,inty,w,h))
                    数量[数组下标]=数组下标+1
                else
                    return 数组大小(数量)
                end
                intx = intx+x步长
                w=w+intx
                case 1
               
                if(是否有角色(下标,intx,inty,w,h))
                    数量[数组下标]=数组下标+1
                else
                    return 数组大小(数量)
                end
                intx = intx+x步长
                case 2
               
                if(是否有角色(下标,intx,inty,w,h))
                    数量[数组下标]=数组下标+1
                else
                    return 数组大小(数量)
                end
                intx = intx+x步长
                case 3
               
                if(是否有角色(下标,intx,inty,w,h))
                    数量[数组下标]=数组下标+1
                else
                    return 数组大小(数量)
                end
                intx = intx+x步长
                case 4
               
                if(是否有角色(下标,intx,inty,w,h))
                    数量[数组下标]=数组下标+1
                else
                    return 数组大小(数量)
                end
                intx = intx+x步长
                case 5
               
                if(是否有角色(下标,intx,inty,w,h))
                    数量[数组下标]=数组下标+1
                else
                    return 数组大小(数量)
                end
                intx = intx+x步长
               
            end
            数组下标++
        end
        
    end
   
    return 数组大小(数量)
end
function 是否有角色(下标,x,y,w,h)
    var intx,inty,cx,cy,cw,wh
    //窗口获取位置(窗口数组[下标],cx,cy)
   
    窗口客户区转屏幕(窗口数组[下标],x,y,cx,cy)
    窗口客户区转屏幕(窗口数组[下标],w,h,cw,wh)
    调试输出("窗口客户区转屏幕"&cx&"-----"&cy)
    sleep(500)
    鼠标移动(cx,cy)
    //窗口鼠标移动(窗口数组[下标],x,y,1)
    sleep(500)
    var ok =找色(cx,cy,cw,wh,"2cacc1-000000|34ffff-000000",1.0,0,intx,inty)
   
    调试输出("窗口客户区转屏幕"&intx&"-----"&inty)//intx,inty
    if(ok!=-1)
        return true
    else
        
        ok =窗口找色(窗口数组[下标],x,y,w,h,"2cacc1-000000|34ffff-000000",1.0,0,intx,inty)
        
        if(ok!=-1)
            return true
        else
            return false
        end
    end
end

gufeng0918

干嘛那么麻烦呢 右上角  直接不就是有数字么 做个字库 直接不就显示了

buycdkey