Delay 3000
Goto 到没到
Rem 到NPC面前
Delay 50
MoveTo 939,55
Delay 50
LeftClick 2
Delay 50
KeyPress 66,1
Delay 20000
KeyPress 66,1
Rem 到没到
VBSCall FindPic(0,0,1024,768,"Attachment:\灰三角.bmp",0.5,x,y)
If x>=0 and y>=0
    Delay 10
    Goto 点NPC
Else 
    Delay 10
    Goto 到了啊
EndIf 
Rem 到了啊
Delay 1000
VBSCall FindPic(0,0,1024,768,"Attachment:\点NPC.bmp",0.5,x,y)
If x>=0 and y>=0
    Delay 10
    Goto 点NPC
Else 
    Delay 10
    Goto 到没到2
EndIf 
Rem 到没到2
VBSCall FindPic(0,0,1024,768,"Attachment:\点NPC2.bmp",0.5,x,y)
If x>=0 and y>=0
    Delay 10
    Goto 点NPC
Else 
    KeyDown 83,1
    Delay 1000
    KeyUp 83,1
    Delay 1000
    KeyDown 68,1
    KeyUp 68,1
    Delay 50
    Delay 50
    MoveTo 939,55
    Delay 50
    LeftClick 2
    Delay 50
    Goto 到没到
EndIf 
Rem 点NPC
Goto 向下走
//------------------------------------------
Rem 向下走
VBSCall FindPic(0,0,1024,768,"Attachment:\灰三角.bmp",0.5,x,y)
If x>=0 and y>=0
    MoveTo x+5 y+358
    Delay 50
    SaveMousePos 
    Delay 50
    LeftClick 2
    Goto 继续
Else 
    Delay 100
    Goto 点NPC123
EndIf 
Rem 点NPC123
VBSCall FindPic(0,0,1024,768,"Attachment:\点NPC.bmp",0.5,x,y)
If x>=0 and y>=0
    MoveTo x+5 y+358
    Delay 50
    SaveMousePos 
    Delay 50
    LeftClick 2
    Goto 点生猪屠宰
Else 
    Delay 100
    Goto 点NPC2
EndIf 
Rem 点NPC2
VBSCall FindPic(0,0,1024,768,"Attachment:\点NPC2.bmp",0.5,x,y)
If x>=0 and y>=0
    MoveTo x+5 y+358
    Delay 50
    SaveMousePos 
    Delay 50
    LeftClick 2
    Goto 点生猪屠宰
Else 
    RestoreMousePos 
    Delay 50
    LeftClick 2
    Goto 点生猪屠宰
EndIf 
Rem 点生猪屠宰
VBSCall FindPic(0,0,1024,768,"Attachment:\确定.bmp",0.5,x,y)
If x>=0 and y>=0
    Delay 1000
    EndScript 
    Delay 1000