Delay YanShi
        Call 创建4()
    Else
    End If
    Delay 500
    Call 关闭()
    Delay YanShi
    Goto 开始4
    End Sub
Sub 关闭()
    Delay YanShi
    MoveTo 457, 457
    Delay YanShi
    LeftClick 1
    Delay 50
    LeftClick 1
    Delay YanShi
    i=0
    While i=0
        Delay YanShi
                FindColor 0,0,1024,768,"5ac3ef",intX,intY
        If intx>0 and inty>0
            Delay YanShi
            i=1
        EndIf 
    EndWhile 
    Call Plugin.Window.Move(w1, 1, 1)
    Delay YanShi
    IfColor 8,34,"2961A5",0 Then
        Delay YanShi
        MoveTo 580, 374
        Delay YanShi
        LeftClick 1
        Delay YanShi
    Else
    End If
    Delay YanShi
End Sub
Sub 创建1()
    Rem b13
    Delay 1000
    IfColor 502,246,"FBF7",0 Then
        Delay 1000
        SayString a2
        Delay 1000
        KeyPress "Enter", 1
        Delay 1000
        SayString c
        Delay 1000
        KeyPress "Enter", 1
        Delay 1000
    Else
        Goto b13
    End If
    Delay YanShi
    Rem b14
    IfColor 289,361,"102C39",0 Then
        Delay YanShi
        MoveTo 289, 361
        Delay YanShi
        LeftClick 1
        Delay YanShi
        MoveTo 244, 464
        Delay YanShi
        LeftClick 1
        Delay YanShi
    Else
        Goto b14
    End If
    Rem b25
        IfColor 426,66,"293C8C",0 Then
    MoveTo 526, 415
            Else
    Goto b25
            End If
    Delay YanShi
    
    IfColor 226,159,"4A515A",1 Then
            Delay YanShi
    MoveTo 256, 410
            Delay YanShi
        LeftClick 1
            Delay YanShi
        Delay 5000
        KeyDown 17, 1
        KeyPress 117, 1
        KeyUp 17, 1
                    Delay YanShi
        Call 运行2()
Else
End If
    Rem b15
    IfColor 426,66,"293C8C",0 Then
        Delay YanShi
        MoveTo 90, 412
        Delay YanShi
        LeftClick 1
        Delay YanShi
    Else
        Goto b15