rem 任务1 Call 打开任务 Rem 框 FindPic 0,0,807,621,"C:\XYW\框.bmp",1.0,intX,intY If intX > 0 And intY > 0 Then Call 修正偏移(intX+ 68,intY+5) Delay yc+ 200 Goto 框 End If s = dm.Ocr(238,141,381,241,"e8e8b0-000000",1) If s = "召唤兽需求" then ///分析任务 // MessageBox "召唤兽需求" Call 召唤兽需求 elseIf s= "药需求" then //MessageBox "药需求" Call 药需求 elseIf s= "白装需求" then // MessageBox "白装需求" Call 白装需求 elseIf s= "采集" then //MessageBox "采集" Call 采集 elseIf s= "送信" then //MessageBox "送信" Call 送信 elseIf s= "护送" then //MessageBox "护送" Call 护送 elseIf s= "杀敌" then //MessageBox "杀敌" Call 杀敌 Else //其他 dm_ret = dm.FindStr(0,0,800,600,"杀敌","00cc00-000000",1.0,intX,intY) If intX > 0 And intY > 0 Then//查找杀敌任务完成 s="杀敌" Call 关闭任务 Call 交任务 Exit sub End if dm_ret = dm.FindStr(0,0,800,600,"采集","00cc00-000000",1.0,intX,intY) If intX > 0 And intY > 0 Then//查找采集任务完成 s= "采集" Call 关闭任务 Call 交任务 Exit sub End if dm_ret = dm.FindStr(0,0,800,600,"护送","00cc00-000000",1.0,intX,intY) If intX > 0 And intY > 0 Then//查找护送任务完成 s= "护送" Call 关闭任务 Call 交任务 Exit sub End if Call 关闭任务 Plugin.Media.Beep 2000,500 MessageBox "其他任务有任务干扰,解决掉其他任务。走回门派.然后在点确定" goto 任务1 End if ///分析任务 End Sub //杀敌 Sub 杀敌() Call 打开任务 dm_ret = dm.FindStr(0,0,800,600,"杀敌","00cc00-000000",0.9,intX,intY) If intX > 0 And intY > 0 Then//查找杀敌任务完成 // MessageBox "采集任务完成" Call 交任务 Exit sub Else //查找杀敌任务完成 Rem 杀敌1 call 关闭任务 t点红字=now rem 点红字 call 关闭任务 Call 瑶池去长安 dm_ret = dm.FindStr(0,0,807,621,"揍你","08f448-000000",0.9,intX,intY) If intX>0 and intY > 0 then//揍你 Delay 100 Goto 和NPC对话 End if Call 打开任务 Delay yc+ 200 s = dm.Ocr(224,95,488,510 ,"f80000-000000",1.0) dm_ret = dm.FindStr(224,95,488,510 ,"长安","f80000-000000",0.9,cintX,cintY) If cintX>0 then//点红字22222222222222 Delay yc+ 200 call 修正偏移(cintX+10,cintY+9) Delay yc+ 200 t和NPC对话=now Rem 和NPC对话