VBS gjjn3=now
    Delay gjjn3szt*1030
EndIf 
IfColor 491,23,000000,0
    Goto 拾取
EndIf 
Delay 700
If datediff("s",gjjn2,now)>=gjjn2lqt
    KeyPress 114,1
    VBS gjjn2=now
    Delay gjjn2szt*1030
EndIf 
IfColor 491,23,000000,0
    Goto 拾取
EndIf 
If datediff("s",gjjn1,now)>=gjjn1lqt
    KeyPress 50,1
    VBS gjjn1=now
    Delay gjjn1szt*1030
EndIf 
IfColor 491,23,000000,0
    Goto 拾取
EndIf 
VBSCall FindColorEx(489,22,505,33,"34866a",1,0.8,x,y)
If x>=0 and y>=0
    KeyPress 27,1
    Goto 1
EndIf 
//检查有无黑点(是不是可攻击的物体)
VBSCall FindColorEx(491,6,660,17,"060606",1,0.8,x,y)
If x<0 and y<0
    Goto 1
EndIf 
//看人物是否使用宠物技能补血
IfColor 8+200*Var4,49,000000,0
    MoveTo 37 12
    Delay 200
    LeftClick 1
    Delay 200
    KeyDown 18,1
    KeyPress 52,1
    KeyUp 18,1
    Delay 500
    Gosub tab
EndIf 
If datediff("s",gjjn4,now)>=gjjn4lqt
    KeyPress 116,1
    VBS gjjn4=now
    Delay gjjn4szt*1030
EndIf 
IfColor 491,23,000000,0
    Goto 拾取
EndIf 
KeyPress 49,1
Delay 700
IfColor 491,23,000000,0
    Goto 拾取
EndIf 
If datediff("s",gjjn1,now)>=gjjn1lqt
    KeyPress 113,1
    VBS gjjn1=now
    Delay gjjn1szt*1030
EndIf 
IfColor 491,23,000000,0
    Goto 拾取
EndIf 
VBSCall FindColorEx(489,22,505,33,"34866a",1,0.8,x,y)
If x>=0 and y>=0
    KeyPress 27,1
    Goto 1
EndIf 
//看是否需要复活宠物
IfColor 45,134,0d1123,2
    MoveTo 45,135
    Delay 200
    LeftClick 1
    Delay 200
    KeyDown 17,1
    KeyPress 112,1
    KeyUp 17,1
    Delay 200
    Gosub tab
EndIf 
//人物是否需要吃药补血
IfColor 8+200*Var0,49,000000,0
    KeyPress 117,1
    Delay 200
EndIf 
Delay 400
KeyPress 112,1
Delay 1000
//人物是否需要吃药补蓝
IfColor 8+200*Var9,64,0d0200,2
    KeyPress 118,1
    Delay 200
EndIf 
If datediff("s",gjjn2,now)>=gjjn2lqt
    KeyPress 114,1
    VBS gjjn2=now
    Delay gjjn2szt*1030