UserVar AddXue=0.8 加红设置
UserVar AddLan=0.8 加蓝设置
Plugin hwnd = Window.Foreground()
Plugin CLRECT_STR=Window.GetClientRect(hwnd)
//Plugin Window.Active(hwnd)
VBS CLRECT_VAL=split(CLRECT_STR,"|")
VBS cx=Cint(CLRECT_VAL(0)):cy=Cint(CLRECT_VAL(1))
VBS tx=cx:ty=cy:clfont="0916EB"
VBS gxx=cx+418:gxy=cy+32:gxc="1111BB":gxl=107
VBS rxx=cx+59+95*AddXue:rxy=cy+566
Rem 开始
Gosub 关闭窗口
VBS CenterX=cx+400:CenterY=cy+300:n=1:sTime=timer
Rem 找怪
Gosub 关闭窗口
VBSCall FindColorEx(cx+0,cy+0,cx+800,cy+560,clfont,1,0.8,tx,ty)
If tx>=0 and ty>=0
    //IfColor tx,ty,clfont,2
    MoveTo tx+30,ty+30
    Delay 100
    //RightClick 1
    //Delay 100
    Gosub 加状态
    Gosub 加血
    LeftClick 1
    Delay 100
    Goto 打怪
Else 
    KeyPress 69,1
    Delay 100
    Goto 找怪
EndIf 
///////////////////////加状态////////////////////////////
Sub 加状态
    //Plugin Window.SendKeyPress(hwnd,53)
    KeyPress 51,1
    Delay 1100
    KeyPress 52,1
    Delay 1100
Return 
////////////////////////加血//////////////////////////////
Sub 加血
    VBSCall FindPic(rxx,rxy,rxx+12,rxy+12,"Attachment:\空血.bmp",0.8,x,y)
    If x>=0 and y>=0
        //       VBSCall FindColorEx(rxxx,rxy-2,rxxx+4,rxy+2,rxc,1,0.8,x,y)
        //        If x>=0 and y>=0
        //IfColor rxx+rxl*AddXue,rxy,rxc,2
        KeyPress 49,1
        //KeyPress 50,1
        Delay 100
    EndIf 
    VBSCall FindPic(rxx,rxy+12,rxx+12,rxy+24,"Attachment:\空血.bmp",0.8,x,y)
    If x>=0 and y>=0
        //IfColor rxx+rxl*AddLan,rly+11,rxc,2
        KeyPress 50,1
        //KeyPress 51,1
        Delay 100
    EndIf 
Return 
////////////////////////打怪//////////////////////////////
Rem 打怪
VBS nTime=timer
If nTime-sTime>70
    Gosub 加状态
    sTime=timer
EndIf 
Gosub 加血
KeyPress 112,1
Delay 1000
KeyPress 113,1
Delay 1000
KeyPress 114,1
Delay 1000
KeyPress 115,1
Delay 100
KeyPressS 90,1
Delay 100
IfColor gxx,gxy,gxc,2
    Goto 打怪
Else 
    Goto 开始
EndIf 
Sub 关闭窗口
    VBSCall FindPic(550+cx,0+cy,cx+576,cy+40,"Attachment:\大地图.bmp",0.8,x,y)
    If x>=0 and y>=0
        MoveToS x+3,y+3
        Delay 96
        LeftClick 1
        Delay 100
    EndIf 
    VBSCall FindPic(766+cx,0+cy,cx+798,cy+40,"Attachment:\小地图.bmp",0.8,x,y)
    If x>=0 and y>=0
        MoveToS x+3,y+3
        Delay 96
        LeftClick 1
        Delay 100
    EndIf 
    VBSCall FindPic(375+cx,200+cy,cx+440,cy+420,"Attachment:\确认.bmp",0.8,x,y)
    If x>=0 and y>=0
        MoveToS x+3,y+3