Sub 打开宁海县地图
    Gosub 取消PK
    k=0:tx=-1:ty=-1
    While k<5
        KeyPress asc("M"),1
        While tx<0 and ty<0 and k<5
            Gosub 取消PK
            Delay 1000
            VBSCall FindPic(948+cx,69+cy,cx+1015,cy+105,"Attachment:\窗口_关闭.bmp",0.8,tx,ty)
            VBS k=k+1
        EndWhile 
        If k=5
            k=0
        Else 
            k=5
        EndIf 
    EndWhile 
    MoveTo cx+521,cy+125
    Delay 96
    LeftClick 1
    Delay 1000
    tx=1
    While tx=1
        Gosub 取消PK
        IfColor 512+cx,203+cy,181F24,2
            tx=2
        Else 
            LeftClick 1
        EndIf 
        Delay 1000
    EndWhile 
    MoveTo cx+480,cy+160
    Delay 96
    LeftClick 1
    Delay 2000
Return 
Sub 打开宁海城地图
    k=0:tx=-1:ty=-1
    While k<5
        KeyPress asc("M"),1
        While tx<0 and ty<0 and k<5
            Gosub 取消PK
            Delay 1000
            VBSCall FindPic(948+cx,69+cy,cx+1015,cy+105,"Attachment:\窗口_关闭.bmp",0.8,tx,ty)
            VBS k=k+1
        EndWhile 
        If k=5
            k=0
        Else 
            k=5
        EndIf 
    EndWhile 
    MoveTo cx+724,cy+130
    Delay 96
    LeftClick 1
    Delay 1000
    tx=1
    While tx=1
        Gosub 取消PK
        IfColor 710+cx,219+cy,272C2F,2
            tx=2
        Else 
            LeftClick 1
        EndIf 
        Delay 1000
    EndWhile 
    MoveTo cx+680,cy+150
    Delay 96
    LeftClick 1
    Delay 2000
Return 
Sub 关闭窗口
    tx=1:ty=1
    While tx>=0 and ty>=0
        VBSCall FindPic(278+cx,144+cy,cx+1015,cy+280,"Attachment:\窗口_关闭.bmp",0.8,tx,ty)
        If tx>=0 and ty>=0
            MoveTo tx+3,ty+3
            Delay 96
            LeftClick 1
            Delay 1000
        EndIf 
        Delay 128
    EndWhile 
Return 
Sub 开始制皮
    While ObjN(3)>24
        tx=-1:ty=-1
        While tx<0 and ty<0
            KeyPress asc(keys(4)),1
            Delay 2000
            Gosub 取消PK
            VBSCall FindPic(17+cx,206+cy,cx+670,cy+380,"Attachment:\硝制_薄皮.bmp",0.8,tx,ty)
            If tx<0 and ty<0
                VBSCall FindPic(20+cx,206+cy,cx+670,cy+380,"Attachment:\硝制_薄皮2.bmp",0.8,tx,ty)
            EndIf 
        EndWhile 
        KeyPress 123,1
        If tx>=0 and ty>=0
            MoveTo tx,ty
            Delay 96