Else 
    Goto 90
EndIf 
Rem t
VBSCall FindPic(484,1,670,29,"34.bmp",1.0,x,y)
If x>=0 and y>=0
    n=n-1
    Goto BOSS1
EndIf 
VBSCall FindPic(484,1,690,29,"tu.bmp",0.9,x,y)
If x>=0 and y>=0
    n=n-1
    Goto 4
EndIf 
VBSCall FindPic(484,1,690,29,"lu.bmp",0.9,x,y)
If x>=0 and y>=0
    n=n-1
    Goto 4
EndIf 
VBSCall FindPic(484,1,690,29,"2.bmp",0.9,x,y)
VBSCall FindPic(484,1,690,29,"12.bmp",0.9,x1,y1)
If (x>=0 and y>=0) or (x1>=0 and y1>=0)
    n=n-1
    Goto 4
EndIf 
Rem 攻击
//看看是否是自己或宠
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 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 
Delay 400
KeyPress 112,1
Delay 1000
VBSCall FindPic(484,1,690,29,"2.bmp",0.9,x,y)
VBSCall FindPic(484,1,690,29,"12.bmp",0.9,x1,y1)
If (x>=0 and y>=0) or (x1>=0 and y1>=0)
    Goto 1
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 
//根据近战还是远攻选择延迟时间确保怪近身
Delay renwu*1000
If datediff("s",gjjn1,now)>=gjjn1lqt
    KeyPress 50,1
    VBS gjjn1=now
    Delay gjjn1szt*1030
EndIf 
If datediff("s",suipian,now)>=suipianlqt
    KeyDown 17,1
    KeyPress 116,1
    KeyUp 17,1
    VBS suipian=now
    Delay suipianszt*1030
EndIf 
IfColor 491,23,000000,0
    Goto 拾取
EndIf 
//检查有无黑点(是不是可攻击的物体)
VBSCall FindColorEx(491,6,660,17,"060606",1,0.8,x,y)
If x<0 and y<0
    Goto 1
EndIf 
VBSCall FindPic(484,1,690,29,"2.bmp",0.9,x,y)
VBSCall FindPic(484,1,690,29,"12.bmp",0.9,x1,y1)
If (x>=0 and y>=0) or (x1>=0 and y1>=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 3000
    Gosub tab
EndIf 
If datediff("s",gjjn3,now)>=gjjn3lqt
    KeyPress 115,1