ZH=0 "输入帐号"
UserVar MM=0 "输入密码"
UserVar SJ=800 "时间间隔"
UserVar JGMC=3 "几个魔宠"
UserVar MMS=DropList{"不买随机":"0"|"随机":"8"}=0 "自动买随机"
UserVar XPWZ=DropList{"选项1":"1"|"选项2":"2"|"选项3":"3"}=1 "XP位置"
Delay 1500
Hwnd = Plugin.Window.Foreground()
Call Plugin.Window.Move(Hwnd, 0, 0)
Rem KS
Call ZDDL()
Call ZTJC()
Call MSJ()
Call CZ()
Call XP()
For 30
    Call ZG()
Next
Call FH()
Goto KS
Sub ZG()
    Delay 500
    FindCenterColor 0,0,1024,768,"0303B8",intX,intY
    If intX > 0 And intY > 75 And intX <990 And intY < 590
        If A<2 Then
            MoveTo intX+25,intY+25
            LeftClick 1
            A=2
        ElseIf A>1
            MoveTo intX-25,intY+25
            LeftClick 1
            A=1
        End If
        KeyPress "F2", 1
        Delay 250
        KeyPress "F2", 1
        KeyPress "F1", 1
        RightClick 1
        DGLJ=DGLJ + 1
        If DGLJ > 50 Then
            KeyPress "1", 1
            DGLJ=0
        End If
    Else
        KeyPress "1", 1
        DGLJ=0
    End If

End Sub
Sub MSJ()
    IfColor 33,738,"638631",2 Then
    Else
        MoveTo 579, 679
        LeftClick 1
        Delay SJ
        Delay SJ+200
        I=0
        While i<8
            FindCenterColor 0,0,1024,768,"638631",intX,intY
            If intX > 0 And intY > 0 Then
                MoveTo intX,intY
                RightClick 1
                Delay SJ
                MoveTo 558, 585
                LeftClick 1
                Delay SJ
                MoveTo 428, 650
                LeftClick 1
                Delay SJ+300
                FindCenterColor 641,491,996,629,"638631",intX,intY
                If intX > 0 And intY > 0 Then
                    MoveTo intX,intY
                    LeftClick 1
                    Delay SJ
                    MoveTo 32, 734
                    LeftClick 1
                    Delay SJ
                    i=10
                End If
            Else
                If MMS = 8Then
                    MoveTo 449, 506
                    LeftClick 1
                    Delay SJ
                Else
                    i=10
                End If
                i=I+1
            End If
        Wend  
        KeyPress "Esc", 1
    End if 
End Sub
Sub ZDDL()
    Delay SJ
    IfColor 377,349,"C0D8DE",0 Then
        IfColor 371,361,"C4D3D6",0 Then
            IfColor 364,361,"D1DCE4",0 Then
                MoveTo 470, 354
                LeftClick 1