PutAttachment .\script *.wav
dim shj,byongct,bjsound,shg
UserVar byongct=2 备用的锄头数目（在装备包从左向右依次排开）
UserVar shj=10 检测背包情况间隔 单位"分
UserVar shg=15 回挂机点时间间隔 单位"分
UserVar bjsound=DropList{波形声音文件报警:1|机箱报警:2} 报警声音选择
jt=now
gj=now
ctnum=0
MoveTo 0,0
VBSCall FindPic(0,0,1280,767,"Attachment:\主确定.bmp",0.8,zx,zy)
If zx>0 and zy>0
Else 
    msgbox "无法检测到QQ幻想窗口@.@!",16,"检测错误"
EndScript 
EndIf 
Rem 记录挂机点
Delay 200
KeyDown 18,1
Delay 200
KeyPress 77,1
Delay 200
KeyUp 18,1
Delay 800
VBSCall FindCenterColor(zx-748,zy-559,zx+53,zy-42,"2222ff",gwzx,gwzy)
Delay 300
If gwzx>0 and gwzy>0
    Delay 200
    KeyDown 18,1
    Delay 200
    KeyPress 77,1
    Delay 200
    KeyUp 18,1
    Goto search
Else 
    Delay 200
    KeyDown 18,1
    Delay 200
    KeyPress 77,1
    Delay 200
    KeyUp 18,1
    Goto 记录挂机点
EndIf 
Rem search
Delay 200
IfColor zx-663-53,zy-28-452,22ffff,1
    Delay 200
    Gosub 过神医
EndIf 
Delay 200
jcbbsj=DateDiff("s",jt,now)
If jcbbsj>=shj*60
    Gosub 检测背包
    jt=now
EndIf 
hgjdsj=DateDiff("s",gj,now)
If hgjdsj>=shg*60
    Gosub 回挂机点
    gj=now
EndIf 
Rem 检测状态
VBSCall FindPic(zx-748,zy-559,zx+53,zy-42,"Attachment:\hit.bmp",0.7,x,y)
Delay 200
If x>0 and y>0
Else 
    Delay 200
    KeyDown 18,1
    Delay 200
    KeyPress 87,1
    Delay 200
    KeyUp 18,1
    Delay 200
EndIf 
Rem 检测耐久
MoveTo zx-400 zy
VBSCall FindPic(zx-748,zy-559,zx+53,zy-42,"Attachment:\物品.bmp",0.7,bx,by)
If bx>0 and by>0
    KeyDown 18,1
    Delay 200
    KeyPress 73,1
    Delay 200
    KeyUp 18,1
EndIf 
Delay 500
IfColor zx-27,zy-74,1122aa,2
    Gosub 换锄头
EndIf 
Goto search
Sub 过神医
    Rem s
    m=1
    Delay 1200
    While m<=2
        Delay 200
        VBSCall FindPic(zx-748,zy-559,zx+53,zy-42,"Attachment:\sure.bmp",0.7,shx,shy)
        dian=rnd*10
        If dian>=0 and dian<3+1/3
            MoveTo shx-50 shy+27
        EndIf 
        If dian>3+1/3 and dian<(3+1/3)*2