//get windows handle
dim c1,c2,c3,c4,c5,c6,c7,c8,y,a,username,password
username="账号"
password="密码"
Plugin hwnd=Window.MousePoint()
//get windows curscr
Plugin s = Window.GetClientRect(hwnd)
XYArray = Split(s, "|", -1, 1)
dx = XYArray(0)
dy = XYarray(1)
Rem start
Gosub piccheck
If pic="游戏画面"
    Goto click
ElseIf pic="登陆画面"
    Gosub zhanghao
    Goto start
ElseIf pic="更新数据"
    Delay 1000
    Goto start
ElseIf pic="服务器选择"
    Gosub service
    Goto start
ElseIf pic="角色选择"
    Gosub select
    Goto start
ElseIf pic="出现错误"
    Gosub quxiao
    Goto start
ElseIf pic="战斗画面"
    Gosub fight
ElseIf pic="开始画面"
    Gosub quxiao
Else 
    Gosub quxiao
    Goto start
EndIf 
Rem click
Gosub quxiao
Gosub buchong
Gosub buchong
Delay 110
Plugin Bkgnd.LeftClick(hwnd,420-dx,430-dy)
Delay 110
Plugin Bkgnd.LeftClick(hwnd,260-dx,400-dy)
Delay 110
Plugin Bkgnd.LeftClick(hwnd,260-dx,260-dy)
Delay 110
Plugin Bkgnd.LeftClick(hwnd,380-dx,200-dy)
Delay 110
Plugin Bkgnd.LeftClick(hwnd,500-dx,260-dy)
Delay 110
Plugin Bkgnd.LeftClick(hwnd,500-dx,400-dy)
Delay 110
Plugin Bkgnd.LeftClick(hwnd,380-dx,450-dy)
Delay 110
Plugin Bkgnd.LeftClick(hwnd,380-dx,340-dy)
Delay 110
//取消对话框
Plugin Bkgnd.LeftClick(hwnd,430-dx,430-dy)
Delay 110
Plugin Bkgnd.LeftClick(hwnd,380-dx,340-dy)
Delay 110
Plugin Bkgnd.LeftClick(hwnd,380-dx,340-dy)
Delay 110
Goto start
Sub buchong
    Plugin Bkgnd.LeftClick(hwnd,405-dx,400-dy)
    Delay 100
    Rem buchongstart
    Plugin c1=BkgndColor.GetPixelColor(hwnd,631-dx,121-dy)
    c1=hex(c1)
    //宠补红
    If c1<>"5959DE" and c1<>"5858DD" and c1<>"5959DD" and c1<>"5858DE" and c1<>"5959DE" and c1<>"5859DD" and c1<>"5859DE"
        //Plugin Bkgnd.RightClick(hwnd,658-dx,628-dy)
        //Delay 800
        Plugin Bkgnd.KeyPress(hwnd,55)
        Delay 2000
    EndIf 
    //补红
    Plugin c1=BkgndColor.GetPixelColor(hwnd,779-dx,121-dy)
    c1=hex(c1)
    If c1<>"5959DE" and c1<>"5858DD" and c1<>"5959DD" and c1<>"5858DE" and c1<>"5959DE" and c1<>"5859DD" and c1<>"5859DE"
        //Plugin Bkgnd.RightClick(hwnd,445-dx,628-dy)
        //Delay 800
        Plugin Bkgnd.KeyPress(hwnd,49)
        Delay 2000
    EndIf 
    //补蓝
    Plugin c1=BkgndColor.GetPixelColor(hwnd,779-dx,131-dy)
    c1=hex(c1)
    If c1<>"F18359" and c1<>"F18458" and c1<>"F18556"
        //Plugin Bkgnd.RightClick(hwnd,482-dx,628-dy)
        //Delay 800
        Plugin Bkgnd.KeyPress(hwnd,50)
        Delay 2000
    EndIf 
Return buchong
Sub fight
    Delay 1000