UserVar chbtime=20 出兵通用延时（毫秒）
UserVar jiabei=8 加速系数（决定客户端速度）
UserVar fwqHangXu=1 更新服务器的行序（从上而下是几填几）
UserVar yxQuYu=11 游戏服务区（电信，11，12，13，网通，21，22，23）
UserVar fuwuqi=9 游戏服务器（从上而下，是几就填几）
UserVar logflag=3 记日志级别（5,10,15,...）
UserVar reentry=10 重新进入延时(秒)
UserVar onetime=90 每局限时(秒)
UserVar hzhhjsh=241 换帐户局数
dim Obj,Fso,pID,hwnd,retv,xx,filenm,fwnd,num,numMax,NumMin,currtime,npcfile
Dim time0 ,time1, time2,myfile,x,y,x1,y1,x2,y2,currx,curry,nnn,nnnnn,xiangshidu
dim mima(100),zhangHn(100)
dim flag,jy,dnn,ttlCount,count80,filepath,handle,chongxjr,errfilename,zhanghao
//出兵,dx,dy,出兵地坐标,出兵数,nn
dim dx,dy,hang,bingz,jiangshu,wujineng
//攻击开始,要先定义行军标点xingx,xingy
//脚下黄点坐标jiaox,jiaoy,攻击点坐标与行军点坐标关联
//攻击位，顺时针 33－43，53，44
//一般为，xingx＋-32，xingy+-16
//行军时,每格坐标距也是 （32，16）
dim xingx,xingy,jiaox,jiaoy,gongjw, gongjx,gongjy,bingxu
//读验证码用
dim iMa,nMa,mMa,jMa,ma,strMa,ret,Matmp
dim colorstr(42),hangzhu(4)
dim ma,nn
dim color,errCount
dingx=613
dingy=274
//下指通用延时
dltime=200
jiangx=270
jiangy=234
hangju1=17
Set obj=CreateObject("QFunction.Library")
//set Obj = createobject("WScript.Shell")
set Fso = createobject("Scripting.Filesystemobject")
set TiShiObj = createobject("WScript.Shell")
//齿轮加速系数，1加了，0未加
//**************************************************************************
filepath=TiShiObj.CurrentDirectory&"\"
currpath=filepath
If fso.FileExists(filepath&"运行日志.txt") = 0
    set myfile=fso.createtextfile(filepath&"运行日志.txt")
Else 
    set myfile=fso.opentextfile(filepath&"运行日志.txt",8)
EndIf 
myFile.Close
filenm=filepath&"\配置文件.Ini"
Plugin NumMax=File.ReadINi("NumMax","NumMax",filenM)
Plugin NumMin=File.ReadINi("NumMax","NumMin",filenM)
Plugin num=File.ReadINi("NumMax","num",filenM)
//Plugin renqijindu=File.ReadINi("NumMax","renqijindu",filenM)
num=cint(num)
nummax=cint(nummax)
nummin=cint(nummin)
If num < numMin
    num=numMin
EndIf 
hangzhu(0)=0:hangzhu(2)=0:hangzhu(2)=0:hangzhu(3)=0:chongxjr=0:errcount=0
////////////////////////////////////////////////////
//进入主程序                                   /////
////////////////////////////////////////////////////
While 1
    Plugin file.WriteINI("NumMax","num",num,filenM)
    number=1:ttlCount=1:chongxjr=0:count80=1
    zhanghao="zhanghao"&Num
    time0 = obj.GetTickCount()
    Plugin zhanghn(num)=File.ReadINI(zhanghao,"zhanghao",filenM)
    Plugin mima(num)=File.ReadINI(zhanghao,"mima",filenM)
    Rem 重新进入口
    //LockMouse
    time1 = obj.GetTickCount()
    Gosub 进入游戏
    Gosub 对应单福提示
    If chongxjr =0
        Gosub 卖宝
    Else 
        MoveTo x-380,y+50
        Delay dltime
        LeftClick 1
        Delay 2000
    EndIf 
    time1 = obj.GetTickCount()
    npcfile="bmp\npc5.bmp"
    npc="路人"
    x1=10:y1=10:x2=1020:y2=760
    Gosub NPC对话
    While 1
        //      LockMouse
        Gosub 路人之怒
        xx=2
        While xx>0
            IfColor 590,368,ffffff,0
                Goto NPC继续任务
            Else 
                LeftClick 1
                Delay 200
            EndIf 
            Gosub 重新进入
        EndWhile