//接口：
//            【chuangkou】下拉框；大窗口：1  小窗口：2
//            【Hao】下拉框；1号~6号分别对应1—6
//            【B】输入框； 送花的数量！
//             ★9.0正式版编写！★
//更新：
//            1、支持大小窗口
//
//关于:  
//            作者Q：501934725  
//            完整版脚本请到此下载：http://smallboy.ys168.com  

DimEnv h,i,JB1
//==============================================窗口控制区
//延时提示
Call 找窗口()
//==============================================窗口检测完毕
Rem 从头开始
//获得窗口起始点坐标
Rect = Plugin.Window.GetClientRect(JB1)
Dim MyArrayh
MyArrayh=Split(Rect,"|")
Ux=CLng(MyArrayh(0))
Uy = CLng(MyArrayh(1))
//检测是否背景
//=小
If Form1.chuangkou.ListIndex = 2 Then 
    IfColor 6+Ux, 584+Uy, "0", 0 Then
        Goto 继续1
    Else 
        KeyPress "F12", 1
    End If
End If
//=大
If Form1.chuangkou.ListIndex = 1 Then 
    IfColor 1+Ux, 765+Uy, "0", 0 Then
        Goto 继续1
    Else 
        KeyPress "F12", 1
    End If
End If
Dim n
n = 0
Rem 继续1
//=================================================检测是否游戏中
//=大
If Form1.chuangkou.ListIndex = 1 Then 
    IfColor 886+Ux, 750+Uy, "FBE7E2", 0 Then
        Goto 继续2
    Else 
        MessageBox "检测到已离开对局或未在对局中开启。点击确定后脚本将停止！如有需要请按启动热键重新启动！"
        EndScript
    End If
End if
//=小
If Form1.chuangkou.ListIndex = 2 Then 
    IfColor 692+Ux, 585+Uy, "FAEFEC", 0 Then
        Goto 继续2
    Else 
        MessageBox "检测到已离开对局或未在对局中开启。点击确定后脚本将停止！如有需要请按启动热键重新启动！"
        EndScript
    End If
End If
Rem 继续2
//开始送花操作
KeyPress "Z", 1
KeyPress "X", 1
If Form1.chuangkou.ListIndex = 1 Then 
    //一号
    If Form1.Hao.ListIndex = 1 Then 
        MoveTo 459+Ux, 315+Uy
        Delay 5
        LeftDoubleClick 1
        Delay 5
    End If
    //二号
    If Form1.Hao.ListIndex = 2 Then 
        MoveTo 459+Ux, 343+Uy
        Delay 5
        LeftDoubleClick 1
        Delay 5
    End If
    //三号
    If Form1.Hao.ListIndex = 3 Then 
        MoveTo 459+Ux, 371+Uy
        Delay 5
        LeftDoubleClick 1
        Delay 5
    End If
    //四号
    If Form1.Hao.ListIndex = 4 Then 
        MoveTo 459+Ux, 399+Uy
        Delay 5
        LeftDoubleClick 1
        Delay 5
    End If
    //五号
    If Form1.Hao.ListIndex = 5 Then 
        MoveTo 459+Ux, 427+Uy
        Delay 5