If intX2 > 0 And intY2 > 0 Then 		
            IfColor intX2+442 , intY2-676,"14176F",0 Then//计算目标是否还有一点血	
                Goto 攻击//续费攻击
	                	
            Else 
            	
            	Delay 200            	
            	Call Plugin.Bkgnd.KeyPress(Hwnd, 27)//Esc
                //KeyPress "Esc", 1  
                Delay 100 
                Goto Again//跳转Again
            End If
        End If	
    Else 
        Call Plugin.Bkgnd.KeyPress(Hwnd, 27)//Esc
        //KeyPress "Esc", 1
        Delay 100
        Goto Again//跳转Again
    End If

    //-----------------------以上都不是执行Else------------------------		
Else
    MsgBox "未找到图形", 4096
    Goto Again//跳转Again
End If
 

Sub 补血()//补血
    FindPic 0,0,Ux,Uy,"Attachment:\Msn定位目标用.bmp",0.8,HpX,HpY
    If HpX > 0 And HpY > 0 Then 
        IfColor HpX+135,HpY-662,"191D2F",2 Then//一半血 F10
            //MoveTo  HpX+135,HpY-662 //移动到坐标
            KeyPress "F10", 1//血瓶			
        End If
    End If
End Sub

Sub 补蓝()//补蓝
    FindPic 0,0,Ux,Uy,"Attachment:\Msn定位目标用.bmp",0.8,MpX,MpY
    If MpX > 0 And MpY > 0 Then 	
        IfColor  MpX+135,MpY-649,"863905",1 Then//补蓝 F11
            //MoveTo  MpX+135,MpY-649 //移动到坐标
            KeyPress "F11", 1//蓝瓶
        End If
    End If	
End Sub
 
Sub GoBackDie()//死亡回城
    FindPic 0,0,Ux,Uy,"Attachment:\角色死亡.bmp",0.6,PlayDieX,PlayDieY
    If PlayDieX > 0 And PlayDieY > 0 Then
		
        FindPic 0,0,Ux,Uy,"Attachment:\死亡回城.bmp",0.5,GoBackDieX,GoBackDieY
        If GoBackDieX > 0 And GoBackDieY > 0 Then
            MoveTo GoBackDieX+25, GoBackDieY+5
            Delay 500
            LeftClick 1
        End If

        FindPic 0,0,Ux,Uy,"Attachment:\死亡回城半透明.bmp",0.5,GoBackDieX2,GoBackDieY2
        If GoBackDieX2 > 0 And GoBackDieY2 > 0 Then
            MoveTo GoBackDieX2+25, GoBackDieY2+5
            Delay 500
            LeftClick 1	
        End If
		
    End If
End Sub

Sub 显示目标栏()
    //调整标准目标栏位置
    KeyDown 18, 1
    Delay 100
    KeyPress 76, 1
    Delay 100
    KeyUp 18, 1
	        	
End Sub

Sub 前置目标栏()
    Delay 100
    FindPic 0,0,Ux,Uy,"Attachment:\X.bmp",0.2,intX4,intY4
    If intX4 > 0 And intY4 > 0 Then 			
        MoveTo intX4, intY4 + 22
        //MsgBox intX4 & "," & intY4 + 22
        LeftClick 1  
    End If 
End Sub

Sub 自动走动()

	

    Rem pp
    For p = 0 or p=40 To 40	
        TracePrint p
        Delay 300
        If p < 20 Then
            FindPic 0,0,Ux,Uy,"Attachment:\Msn定位目标用.bmp",0.8,intX2,intY2
            If intX2 > 0 And intY2 > 0 Then 			
                MoveTo intX2 + 510, intY2 - 436