//脚本暂时仅支持1024*742分辨率下使用
Hwnd = Plugin.Window.Find(0, "Lineage II")//窗口句柄
//ClientRect = Plugin.Window.GetClientRect(Hwnd)//获取窗口大小
WindowRect = Plugin.Window.GetWindowRect(Hwnd)//获取桌面大小
dim WMyArray 
WMyArray = Split(WindowRect, "|")  
//下面这句将字符串转换成数值   
Ux=Clng(WMyArray(2))
Uy = Clng(WMyArray(3))
//Msgbox Ux & Uy


//-----------------------调整标准目标栏位置---------------------------------
Call 显示目标栏()
//-----------------------第一步 找到图形,个人认为简单,符合就移动到坐标。------------------------
FindPic 0,0,Ux,Uy,"Attachment:\自己角色.bmp",0.3,PlayX,PlayY
If PlayX > 0 And PlayY > 0 Then 
    MoveTo PlayX,PlayY //移动到坐标
    LeftDoubleClick 3//单击角色3次    
    Delay 200
    Call Plugin.Bkgnd.KeyPress(Hwnd, 27)//Esc
    Delay 200
    //-----------------------程序开始提示-------------------------------
    While i=0 
        Hwnd = Plugin.Window.GetKeyFocusWnd()
        Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
        Delay 100
        Call Plugin.Window.SendString(Hwnd, "%target ,Ready to develop the la!")//内容
        Delay 500
        Call Plugin.Bkgnd.KeyPress(Hwnd, 13)	
        i=1
    Wend

	
    //--------------------判断是否要补血或补蓝----------------------------
    Call 补血()//补血
    Call 补蓝()//补蓝
    //-------------------以下执行重复----------------------------
    Rem Again//跳转Again  
	
    Call GoBackDie()//死亡回城
    Call 补血()//补血
    Call 补蓝()//补蓝
        
    Call Plugin.Bkgnd.KeyPress(Hwnd, 123)//F12
    //KeyPress "F12", 10//扫地
    Delay 500
    
    Call Plugin.Bkgnd.KeyPress(Hwnd, 113)//F2
    //KeyPress "F2", 1//选择目标
    Delay 300
    
    
    Call 前置目标栏()
    //-----------------------第二步 找到图形,个人认为简单,符合就进行攻击。------------------------
    //FindPic 0, 0, Ux, Uy, "Attachment:\目标怪物(满血).bmp", 0.2, intX1, intY1
    FindPic 0,0,Ux,Uy,"Attachment:\Msn定位目标用.bmp",0.8,intX1,intY1
    If intX1 > 0 And intY1 > 0 Then 
        IfColor intX1+555 , intY1-676,"14176F",0 Then//计算目标是否还有一点血	
    	    	
            Rem 攻击
            Call GoBackDie()//死亡回城
            Call 补血()//补血
            Call 补蓝()//补蓝
        	//-----------------------每次攻击前都把鼠标移动到F3位置上进行点击三次            			            			
        	        	MoveTo intX1+470 , intY1+18//F3
            			LeftDoubleClick 5//单击3次  
            			            			           			
        	        	MoveTo intX1+505 , intY1+18//F4
            			LeftDoubleClick 5//单击3次             			            			

        	        	MoveTo intX1+545 , intY1+18//F5
            			LeftDoubleClick 1//单击3次 
            			            			            			            			
        	        	MoveTo intX1+585 , intY1+18//F6
            			LeftDoubleClick 5//单击3次 
            			            			
        	        	MoveTo intX1+620 , intY1+18//F7
            			LeftDoubleClick 1//单击3次             			            			            			            			
            //----------------------------------------------------------------			            			      			 
//            Call Plugin.Bkgnd.KeyPress(Hwnd, 114)//F3
//        	//KeyPress "F3", 20//进行攻击
//            Delay 10
//            
//            Call Plugin.Bkgnd.KeyPress(Hwnd, 115)//F4
//            //KeyPress "F4", 20//进行攻击
//            Delay 10
//            
//            Call Plugin.Bkgnd.KeyPress(Hwnd, 116)//F5
//            //KeyPress "F5", 20//进行攻击
//            Delay 10
//            
//            Call Plugin.Bkgnd.KeyPress(Hwnd, 117)//F6
//            //KeyPress "F6", 20//进行攻击
//            Delay 10
//            
//            Call Plugin.Bkgnd.KeyPress(Hwnd, 118)//F7
//            //KeyPress "F7", 20//进行攻击        	        	
        End If		
        FindPic 0,0,Ux,Uy,"Attachment:\Msn定位目标用.bmp",0.8,intX2,intY2