Call 关闭任务 dm_ret = dm.FindStr(0,0,807,621,"揍你","08f448-000000",0.9,intX,intY) If intX>0 and intY > 0 then//揍你 call 修正偏移(intX+5,intY +7) Delay yc+ 3200 T战斗=NOW Rem 战斗 FindPic 0,0,807,621,"C:\XYW\战斗标识.bmp",0.9,intX,intY If intX > 0 And intY > 0 Then//战斗 Delay yc+ 2000 Call 关闭任务 rem 自动 FindPic 0,0,807,621,"C:\XYW\自动.bmp",0.9,intX,intY//自动 If intX > 0 And intY > 0 Then//自动 Else Rem 战斗条 FindPic 0,0,807,621,"C:\XYW\战斗条.bmp",0.9,intX,intY If intX > 0 And intY > 0 Then//战斗条 Call 物理攻击 Delay yc+ 200 KeyDown 18, 1 KeyPress 56, 1 KeyUp 18, 1 Delay yc+ 200 Else //战斗条 Delay yc+ 200 Goto 战斗条 End if//战斗条 End If//自动 FindPic 0,0,807,621,"C:\XYW\战斗标识.bmp",0.9,intX,intY If intX > 0 And intY > 0 Then//等待战斗结束 Delay yc+ 200 Goto 自动 Else Delay yc+ 2000 Call 识别任务 End If //等待战斗结束 Else //战斗 If DateDiff("s",T战斗,now) >6 Then T战斗=NOW Goto 和NPC对话 End If Delay yc+ 200 Goto 战斗 end if //战斗 Else //揍你 If DateDiff("s",t点红字,now)>8 Then t点红字=now Call 打开任务 dm_ret = dm.FindStr(0,0,807,621,"揍你","08f448-000000",0.9,intX,intY) If intX>0 and intY > 0 then//揍你 Else Delay 200 Goto 点红字 End if End if Delay yc+ 1200 Goto 和NPC对话 End if//揍你 Else //点红字22222222222222 If DateDiff("s",t点红字,now)>11 Then t点红字=now goto 杀敌1 End if Delay yc+ 1200 Goto 点红字 End if //点红字22222222222222 end if //查找杀敌任务完成 End Sub //采集 Sub 采集() Rem 采集1 dm_ret = dm.FindStr(268,171,300,224,"采集","00cc00-000000",0.9,intX,intY) If intX > 0 And intY > 0 Then//查找采集任务完成 // MessageBox "采集任务完成" Call 交任务 Exit sub Else //查找采集任务完成 Rem 查找次数 Call 打开任务 Delay yc+ 200 cishu = dm.Ocr(340,252,421,352,"f8fc00-000000",1.0) cishu=Split(cishu,"/") ddd=cishu(0) Call 关闭任务 If ddd =0 then //查找完成次数 111111111111111111 Goto cishu1 ElseIf ddd =1 then //查找完成次数 111111111111111111