//                            ☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆                           
                  //=====================================================作者Qq：501934725==================================================
                 //          脚本的功能介绍：实现QQ炫舞多开挂机；小号自动返回、关背景；大号自动跳（仅限太鼓模式），自动开始，自动返回、黑背景。     
                //                                                                                                                          
               //适用范围：         win732位/64位      游戏模式太鼓，背景蓝色，歌曲推荐《动情（简单）》最短的歌了         开启8，关闭0（非小键盘）  
              //注意事项：           1、        本脚本仅可用在win7系统，且分辨率为1440*900与1920*1080的电脑，请大家在下载前看清楚了               
             //                     2、        使用前请把大号的任务栏标签拉到开始按钮的旁边，且小号依次排列。所有游戏窗口在都在房间中后再启动脚本 
            //                                              不会使用可加我QQ咨询。xp系统本脚本不支持！再次声明！                                            
           //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
          //================================================================================================================================
         //                                              本脚本自定义皮肤可到此下载：http://smallboy.ys168.com/
//===========================================自定义
UserVar duokai=2 "多开"
UserVar moshitaigu=0 "模式太鼓"
UserVar djy=DropList{"高分":"1"|"低分":"2"}= 1"对局输赢"
UserVar FenBianLv=DropList{"1920*1080":"1"|"1440*900":"2"}=1 "设置分辨率"
//==========================================系统限制
OS = Plugin.Sys.GetOSType()
If OS = 5 Then 
    Goto 检测桌面分辨率
Else 
    MessageBox "抱歉，检测到您的系统不支持本脚本（本脚本仅支持win7操作系统，敬请谅解！）"
    EndScript
End If
//==========================================End
Rem 检测桌面分辨率
kuan = Plugin.Sys.GetScRX()
gao = Plugin.Sys.GetScRY()
//=============================================================确定分辨率
Dim f
f = kuan + gao
If f = 3000 Then 
    Goto 自定义窗口
Else 
    //900
    If f = 2340 Then 
        Goto 自定义窗口
    Else 
        //待增加
        MessageBox "抱歉，您的分辨率本脚本暂不支持，您可以将您的分辨率发送至邮箱【501934725@qq.com】以便后期加入！再次感谢您的支持！"
        EndScript
    End If
End If
//=============================================================窗口检测完毕
Rem 自定义窗口
If Fenbianlv = 1 Then 
    Call 分辨率1080()
End If
If FenBianLv = 2 Then 
    Call 分辨率900()
End If
Rem 窗口检测完毕
Delay 1000
//激活=========================================窗口1
Call Plugin.Window.Active(Jubing)
Delay 1000
//获得窗口起始点坐标
Rem 开始
Rect = Plugin.Window.GetClientRect(Jubing)
Dim MyArray
MyArray=Split(Rect,"|")
Ux=CLng(MyArray(0))
Uy = CLng(MyArray(1))
//==================================================================检测规则
//检测游戏中
IfColor 886+Ux, 750+Uy, "FBE7E2", 0 Then
    Call 游戏中()
Else
End If
//检测房间中
IfColor 521+Ux, 748+Uy, "58EE", 0 Then
    Call 房间中()
Else
End If
//检测房间（准备暗）
IfColor 519+Ux, 746+Uy, "58EE", 0 Then
    Call 房间中()
Else
End If
//检测返回
IfColor 268+Ux, 207+Uy, "90FF", 0 Then
    Call 返回()
Else
End If
//奖励（暗）
IfColor 519+Ux, 745+Uy, "6337D", 0 Then
    Call 房间中()
Else
End If
//转转（暗）

IfColor 929+Ux, 19+Uy, "746F71", 0 Then
	    Call 房间中()
Else
End If
//检测房间（贡献暗）
IfColor 521+Ux, 746+Uy, "2E7C", 0 Then
    Call 房间中()
Else
End If