PutAttachment .\plugin *.dll
//get windows handle
dim c1,c2,c3,c4,c5,c6,c7,c8,zt
Plugin hwnd=Window.MousePoint()
//get windows curscr
Plugin s = Window.GetClientRect(hwnd)
XYArray = Split(s, "|")
dx = XYArray(0)
dy = XYarray(1)
Rem 开始
//是否断开连接
Plugin color=XingFan.GetColorHT(hwnd,True,345-dx,369-dy)
Plugin c1=XingFan.ColorExHT(hwnd,True,345-dx,369-dy,"E2B9E", 0.8)
Plugin c2=XingFan.ColorExHT(hwnd,True,352-dx,369-dy,"E2B9E", 0.8)
Plugin c3=XingFan.ColorExHT(hwnd,True,348-dx,368-dy,"E2B9E", 0.8)
Plugin c4=XingFan.ColorExHT(hwnd,True,344-dx,382-dy,"E2B9E", 0.8)
Plugin c5=XingFan.ColorExHT(hwnd,True,352-dx,382-dy,"E2B9E", 0.8)
Plugin c6=XingFan.ColorExHT(hwnd,True,359-dx,381-dy,"E2B9E", 0.8)
Plugin c7=XingFan.ColorExHT(hwnd,True,400-dx,419-dy,"90DDFF", 0.8)
If c1=True and c2=True and c3=True and c4=True and c5=True and c6=True and c7=True
    //去除数据发送失败对话框
    Plugin BGKM5.LClick(hwnd,400-dx,420-dy)
    Delay 100
    Plugin BGKM5.LClick(hwnd,400-dx,420-dy)
    Delay 100
    Gosub 重登陆
EndIf 
//是否登录画面
Plugin c1=XingFan.ColorExHT(hwnd,True,549-dx,117-dy,"CF8D33", 0.7)
Plugin c2=XingFan.ColorExHT(hwnd,True,573-dx,117-dy,"CE8C30", 0.7)
Plugin c3=XingFan.ColorExHT(hwnd,True,606-dx,117-dy,"CF8E32", 0.7)
Plugin c4=XingFan.ColorExHT(hwnd,True,634-dx,117-dy,"CF8D33", 0.7)
Plugin c5=XingFan.ColorExHT(hwnd,True,703-dx,116-dy,"CE8B31", 0.7)
Plugin c6=XingFan.ColorExHT(hwnd,True,410-dx,620-dy,"9CE4FC", 0.7)
If c1=True and c2=True and c3=True and c4=True and c5=True and c6=Flase
    Gosub 重登陆
Else 
EndIf 
//是否战斗状态
Plugin c1=XingFan.ColorExHT(hwnd,True,500-dx,608-dy,"66666C", 0.7)
Plugin c2=XingFan.ColorExHT(hwnd,True,529-dx,608-dy,"595A5F", 0.7)
Plugin c3=XingFan.ColorExHT(hwnd,True,529-dx,637-dy,"676869", 0.7)
Plugin c4=XingFan.ColorExHT(hwnd,True,500-dx,637-dy,"5D5E63", 0.7)
If c1=Flase or c2=Flase or c3=Flase or c4=Flase
    Gosub 战斗
Else 
EndIf 
//补红
Plugin c1=XingFan.ColorExHT(Hwnd,True,780-dx,121-dy,"5858DE", 0.9)
If c1=False
    Plugin BGKM5.MMove(hwnd,443-dx,625-dy)
    Plugin BGKM5.RClick(hwnd,443-dx,625-dy)
    Delay 2200
Else 
EndIf 
//补兰
Plugin c1=XingFan.ColorExHT(hwnd,True,754-dx,131-dy,"F18359", 0.9)
If c1=False
    Plugin BGKM5.MMove(hwnd,480-dx,628-dy)
    Plugin BGKM5.RClick(hwnd,480-dx,628-dy)
    Delay 2200
Else 
EndIf 
//补宠
Plugin c1=XingFan.ColorExHT(hwnd,True,613-dx,121-dy,"5858DD", 0.6)
If c1=False
    Plugin BGKM5.MMove(hwnd,655-dx,625-dy)
    Plugin BGKM5.RClick(hwnd,655-dx,625-dy)
    Delay 2200
Else 
EndIf 
//循环点击
Plugin BGKM5.RClick(hwnd,380-dx,340-dy)
Delay 110
Plugin BGKM5.LClick(hwnd,420-dx,430-dy)
Delay 110
Plugin BGKM5.LClick(hwnd,260-dx,400-dy)
Delay 110
Plugin BGKM5.LClick(hwnd,260-dx,260-dy)
Delay 110
Plugin BGKM5.LClick(hwnd,380-dx,200-dy)
Delay 110
Plugin BGKM5.LClick(hwnd,500-dx,260-dy)
Delay 110
Plugin BGKM5.LClick(hwnd,500-dx,400-dy)
Delay 110
Plugin BGKM5.LClick(hwnd,380-dx,450-dy)
Delay 110
Plugin BGKM5.LClick(hwnd,380-dx,340-dy)
Delay 110
//取消对话框
Plugin BGKM5.LClick(hwnd,450-dx,430,-dy)
Delay 110
Goto 开始
Sub 战斗
    Delay 2000
    //点击自动按钮
    Plugin BGKM5.LClick(hwnd,740-dx,335-dy)
    Delay 1000
    Plugin BGKM5.LClick(hwnd,740-dx,335-dy)