SaveMousePos
MoveTo 1203, 767
LeftClick 1
RestoreMousePos
MessageBox "请先将游戏画面进入到多人游戏大厅，然后点击确定并将鼠标指向游戏窗口"
fcck = Plugin.Window.MousePoint()
Call Plugin.Window.Move(fcck, 0, 0)
Call 检测窗口客户区大小()
Sub 检测窗口客户区大小()
sRect = Plugin.Window.GetClientRect(fcck)
    Dim RectArray
    RectArray = Split(sRect,"|")
    窗口左边 = RectArray(0)
    窗口上边 = RectArray(1)
    窗口右边 = RectArray(2)
    窗口下边 = RectArray(3)
   
    End Sub
Rem 调整窗口大小至640，480
    Call Plugin.Window.Move(fcck, 0, 0)
Delay 500
Call 检测窗口客户区大小()
If 窗口右边=800 and 窗口下边=600 Then
    Call Plugin.Bkgnd.KeyPress(fcck, 119)
    Call Plugin.Bkgnd.KeyPress(fcck, 119)
End If
    Call Plugin.Window.Move(fcck, 0, 0)
Delay 500
Call 检测窗口客户区大小()
If 窗口右边=1024 and 窗口下边=768 Then
    Call Plugin.Bkgnd.KeyPress(fcck, 119)
End If
    Call Plugin.Window.Move(fcck, 0, 0)
Delay 500
Call 检测窗口客户区大小()
If 窗口右边=640 and 窗口下边=480 Then
    Call Plugin.Window.Move(fcck, 0, 0)
    Call 检测是否在房间内()
    Rem 游戏未完成
    Call 检测游戏是否开始()
End If
Goto 调整窗口大小至640，480
Sub 检测是否在房间内()
IfColor 4,263,"FFFFFF",1 Then
        Call Plugin.Bkgnd.LeftClick(fcck, 59, 46)
        Delay 500
        Call Plugin.Bkgnd.LeftClick(fcck, 54, 163)
        Delay 500
        Call Plugin.Bkgnd.LeftClick(fcck, 170, 159)
        Call 检测是否被踢出房间()
        Call 检测进入游戏后是否准备()
        Call 检测游戏是否开始()
Else
        Call 检测是否被踢出房间()
    Call 检测进入游戏后是否准备()
        Call 检测游戏是否开始()
End If
End Sub
Sub 检测是否被踢出房间()
IfColor 498,159," FFFFFF",2 Then
        Call Plugin.Bkgnd.LeftClick(fcck, 498, 159)
    Goto 调整窗口大小至640，480
Else
        Call 检测进入游戏后是否准备()
        Call 检测游戏是否开始()
End If
End Sub
Sub 检测游戏是否开始()
IfColor 392,399,"FFFFFF",2 Then
        For 50
    Call Plugin.Bkgnd.KeyPress(fcck, 38)
Next
        Call 检测是否被踢出房间()
        Call 检测是否出现爱心()
Else
    Goto 调整窗口大小至640，480
End If
End Sub
Sub 检测进入游戏后是否准备()
        IfColor 581,387,"FFFFFF",1 Then
    Call Plugin.Bkgnd.KeyPress(Hwnd, 116)
        Call 检测是否被踢出房间()
        Call 检测游戏是否开始()
Else
        Call 检测是否被踢出房间()
        Call 检测游戏是否开始()
End If
End Sub
Sub 检测是否出现爱心()
IfColor 172,144,"FFFFFF",2 Then
    Call Plugin.Bkgnd.LeftClick(fcck, 166, 152)
        Call 检测是否被踢出房间()
        Goto 调整窗口大小至640，480
Else
        Call 检测是否在房间内()
        Call 检测进入游戏后是否准备()
        Call 检测是否被踢出房间()
    Goto 游戏未完成
End If
End Sub