KeyDown 18,1
    KeyPress 9,1
    KeyUp 18,1
    Delay 20000
    Goto 到NPC面前
Else 
    Delay 5
    Goto 继续
EndIf 
Rem 继续
Delay 500
VBSCall FindPic(0,0,285,420,"Attachment:\生猪屠宰.bmp",0.8,x,y)
If x>=0 and y>=0
    MoveTo x y
    Delay 50
    LeftClick 1
    Delay 50
    MoveTo 44,243
    LeftClick 1
    Delay 50
    Goto 向下走
Else 
    Goto 点养猪致富
EndIf 
Rem 点养猪致富
VBSCall FindPic(0,0,285,420,"Attachment:\养猪致富.bmp",0.8,x,y)
If x>=0 and y>=0
    MoveTo x y
    Delay 50
    LeftClick 1
    Delay 50
    MoveTo 44,243
    LeftClick 1
    Delay 50
    Goto 向下走
Else 
    Goto 猪崽领取
EndIf 
Rem 猪崽领取
VBSCall FindPic(0,0,285,420,"Attachment:\领取猪崽.bmp",0.8,x,y)
If x>=0 and y>=0
    MoveTo x y
    Delay 50
    LeftClick 1
    Delay 50
    MoveTo 44,243
    LeftClick 1
    Delay 50
    Goto 向下走
Else 
    Goto 点后悔有期
EndIf 
Rem 点后悔有期
Delay 1000
VBSCall FindPic(0,0,285,420,"Attachment:\后会有期.bmp",0.8,x,y)
If x>=0 and y>=0
    MoveTo x y
    Delay 50
    LeftClick 1
    Goto 采集
Else 
    Goto 点NPC
EndIf 
Rem 采集
MoveTo 938,75
Delay 50
LeftClick 2
Delay 50
KeyPress 66,1
Delay 17000
KeyPress 66,1
Delay 3000
//开始搜索猪圈  （已经跑到采集地点了）
//--------------------------------------------------------对猪圈点第一次
Rem 搜索猪圈
VBSCall GetScreenResolution(fx,fy)
VBS x0=fx/2:n=1:y0=fy/2
While n<77
    VBS x=x0+4*(cos(n)+n*sin(n))
    VBS y=y0+3*(sin(n)-n*cos(n))
    MoveTo x,y
    Delay 100
    VBS n=n+0.8
    VBSCall Shape=GetCursorShape(0)
    Shape1 = 507365973
    If shape = shape1
        Delay 1
        Goto 开始采集
    EndIf 
    KeyPress 65,1
EndFor 
VBS x1=fx/2:n=77:y1=fy/2
While n>1
    VBS x=x1+4*(cos(n)+n*sin(n))
    VBS y=y1+3*(sin(n)-n*cos(n))
    MoveTo x,y
    Delay 100
    VBS n=n-0.8
    Shape1 = 507365973
    If shape = shape1