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