Delay 400
        LeftClick 1
        Delay 200
        IfColor 350 345 94c3ce 1
            If PMake = 1
                Make = Make + 1
                PMake = 0
            EndIf 
        EndIf 
    ElseIf Mtype = 2
        // 制作1个
        MoveTo 404 356
        Delay 200
        LeftClick 1
        Delay 200
        MoveTo 322 370
        Delay 400
        LeftClick 1
        Delay 400
        IfColor 350 345 94c3ce 1
            If PMake = 1
                Make = Make + 1
                PMake = 0
            EndIf 
        EndIf 
        I = I + 1
        If I <= 10
            Goto [制作界面]
        Else 
            Goto [制作完毕]
        EndIf 
    EndIf 
    Rem [制作完毕]
Return 制作物品
Sub [切换状态]
    Chgtime = 0
    Rem [切换]
    IfColor 731 564 ffffff 1
        If Chgtime = 0
            Chgtime = now()
        Else 
            If Datediff("s",Chgtime,now()) <=10
                KeyPress 9 1
                Delay 200
            Else 
                Chgtime = 0
                KeyPress 27 3
                Delay 200
                Gosub [取消国战]
            EndIf 
        EndIf 
        Goto [切换]
    EndIf 
Return [切换状态]
Sub [出售物品]
    I=0
    For 5
        MoveTo 602 162
        Delay 100
        LeftClick 1
        Delay 200
        stime = now()
        Rem [售物界面]
        IfColor 495 30 739aad 1
            If DateDiff("s",stime,now()) < 3
                Delay 100
                Goto [售物界面]
            Else 
                Goto [买卖界面]
            EndIf 
        EndIf 
        Delay 200
        For 15
            SaleX=470+(I Mod 15 Mod 5)*35
            SaleY=75+((I Mod 15)\5)*35
            stime = now()
            Rem [点击售物]
            MoveTo SaleX SaleY
            Delay 100
            LeftClick 1
            Delay 200
            If I >= 5
                IfColor 569 253 cee3de 1
                    IfColor 570 253 cee3de 1
                        If DateDiff("s",stime,now()) < 1
                            Goto [点击售物]
                        Else 
                            Goto [出售完毕]
                        EndIf 
                    EndIf 
                EndIf 
            EndIf 
            MoveTo 469 289
            Delay 100
            LeftClick 1
            Delay 100
            I=I+1
        EndFor 
        Gosub [出售取消]
    EndFor