Delay 100 //对话框颜色取点 IfColor 529,152,cef7ff,0 Delay 32 MoveTo 560,370 Delay 300 LeftClick 1 Delay 100 Else Goto 接 EndIf Return 接任务 Sub 交任务 Delay 100 VBSCall call FindPic(0,0,1280,1024,"Attachment:\lian.bmp",0.9,lx,ly) If lx>=0 and ly>=0 MoveTo lx,ly+60 Else Gosub 交任务 EndIf Delay 500 RightClick 1 Delay 1000 Rem 交 Delay 100 IfColor 529,152,cef7ff,0 Delay 32 MoveTo 560,390 Delay 300 LeftClick 1 Else Goto 交 EndIf Return 交任务 Sub 从北到阪 Delay 500 //t1=now Rem 北车夫 Delay 100 //找车夫,精确为1,否则有可能与任务NPC冲突 VBSCall call FindPic(0,0,1024,768,"Attachment:\chefu.bmp",1,x1,y1) If x1>=0 and y1>=0 MoveTo x1-15,y1+73 Delay 500 RightClick 1 Delay 1000 //车夫对话框弹出判断 Rem 北车夫1 Delay 100 IfColor 557,156,cef7ff,0 Delay 32 MoveTo 586,358 Delay 1000 LeftClick 1 Delay 2000 Else Goto 北车夫1 EndIf Else //找不到车夫,移动到车夫 Delay 1000 //打开大图 KeyPress 9,1 Delay 1000 MoveTo 202,128 Delay 1000 LeftClick 1 Delay 1000 //关闭大图 KeyPress 9,1 Delay 10000 Goto 北车夫 EndIf Rem 阪 Delay 100 //过地图颜色判断 IfColor 664,3,94ffff,0 Gosub 做任务 Else Goto 阪 EndIf Return 从北到阪 Sub 从阪到北 If zhiye<>2 //AW自控打怪,其他职业HOME自动打怪,此处为关才自动 KeyPress 36,1 EndIf Delay 2000 //打开大图 KeyPress 9,1 Delay 1000 //移动到阪车夫 MoveTo 507,280 Delay 1000 LeftClick 1 Delay 1000 //关闭大图 KeyPress 9,1 Gosub 当前坐标 inputx=191:inputy=218:t1=now:gamex1=cint(gamex1):gamey1=cint(gamey1)