End If FindPic 0,0,1280,1024,"Attachment:\传送桃花源.bmp",1,intX,intY If intX > 0 And intY > 0 Then i=1 MoveTo intX+15, intY+5 Delay 300 LeftDoubleClick 1 Delay 2500 End If Wend End If //循环查找车夫回桃花源 FindPic 0,0,1280,1024,"Attachment:\桃花源家族管理员NPC.bmp",1,intX,intY If intX > 0 And intY > 0 Then MoveTo intX+15, intY+5 Delay 300 LeftDoubleClick 1 Delay 4000 End If FindPic 0,0,1280,1024,"Attachment:\进入家族地图.bmp",1,intX,intY If intX > 0 And intY > 0 Then MoveTo intX+15, intY+5 Delay 300 LeftDoubleClick 1 Delay 2500 Else i = 0 While i = 0 FindPic 0,0,1280,1024,"Attachment:\桃花源家族管理员NPC.bmp",1,intX,intY If intX > 0 And intY > 0 Then MoveTo intX+15, intY+5 Delay 300 LeftDoubleClick 1 Delay 1000 End If FindPic 0,0,1280,1024,"Attachment:\进入家族地图.bmp",1,intX,intY If intX > 0 And intY > 0 Then i=1 MoveTo intX+15, intY+5 Delay 300 LeftDoubleClick 1 Delay 2500 End If Wend End If //循环查找家族管理员进入家族地图 Goto 进入家族地图交家族任务 Rem 进入家族地图交家族任务 FindPic 0,0,1280,1024,"Attachment:\关掉窗口.bmp",1,intX,intY If intX > 0 And intY > 0 Then MoveTo intX + 2, intY + 2 Delay 300 LeftClick 1 Delay 300 End If FindPic 0,0,1280,1024,"Attachment:\家族总管.bmp",0.7,intX,intY If intX > 0 And intY > 0 Then MoveTo intX, intY Delay 300 LeftClick 1 Delay 300 End If FindPic 0,0,1280,1024,"Attachment:\完成家族任务.bmp",1,intX,intY If intX > 0 And intY > 0 Then MoveTo intX + 15, intY + 5 Delay 300 LeftClick 1 Delay 300 FindPic 0,0,1280,1024,"Attachment:\完成家族任务确认过奖.bmp",1,intX,intY If intX > 0 And intY > 0 Then MoveTo intX + 15, intY + 5 Delay 300 LeftClick 1 Delay 300 Delay 1500 Goto 结束 Else KeyPress "F", 1 Delay 300 FindPic 0,0,1280,1024,"Attachment:\NPC坐标家族总管.bmp",1,intX,intY If intX > 0 And intY > 0 Then MoveTo intX+15, intY+5 Delay 300 LeftDoubleClick 1 Delay 4000 End If End If FindPic 0,0,1280,1024,"Attachment:\完成家族任务.bmp",1,intX,intY If intX > 0 And intY > 0 Then MoveTo intX + 15, intY + 5 Delay 300 LeftClick 1 Delay 300 End If FindPic 0,0,1280,1024,"Attachment:\完成家族任务确认过奖.bmp",1,intX,intY If intX > 0 And intY > 0 Then MoveTo intX + 15, intY + 5 Delay 300 LeftClick 1 Delay 300