KeyUp 18, 1 T捕捉2=now rem 捕捉2 dm_ret = dm.FindStr(0,0,807,621,"成功","f8fcf8-000000",1.0,intX,intY) If intX > 0 And intY > 0 Then//捕捉2 Delay yc+ 200 Call 识别任务 Exit Sub Else //捕捉2 If DateDiff("s",T捕捉2,now)>6 T捕捉3=now Goto 查找是否战斗2 End If Delay yc+ 200 goto 捕捉2 End If//捕捉2 Else//找怪2 If DateDiff("s",T找怪2,now)>6 T找怪3=now Goto 查找是否战斗2 End If Delay yc+ 200 Goto 找怪2 End If//找怪2 Else //查找是否战斗2 If DateDiff("s",T查找是否战斗2,now)>6 T查找是否战斗2=now Goto 抓怪2 End If Delay yc+ 200 Goto 查找是否战斗2 End If//查找是否战斗2 Delay 200 GOTO 抓怪2 End If//走想第1个点 ElseIf DITU="大唐东" Then //识别地图大唐东44444444444444444444444444444 call 大唐东去长安 ElseIf DITU="大唐南" Then //识别地图大唐南55555555555555555555555555 call 大唐南去长安 ElseIf DITU="阳关" Then //识别地图阳关、阳关66666666666666666666666666666 call 阳关去长安 ElseIf ditu="轮回" then // MessageBox "死亡//没写" KeyPress "F10", 1 Delay yc+ 6000 ElseIf ditu="济世堂" then Call 修正偏移(531,401) Delay yc+ 1000 ElseIf ditu="长安武器店" then Call 修正偏移(391,388) Delay yc+ 1000 ElseIf ditu="张记布庄" then Call 修正偏移(749,380) Delay yc+ 1000 Else //识别地图//未知地图 KeyPress "F10", 1 Delay yc+ 6000 End if//识别地图 Goto 接任务1 End Sub //去大唐东抓怪++ Sub 去大唐东抓怪() //////////////////////全部通傲来 Rem 接任务1 Delay yc+ 500 Call 识别地图 If DITU="瑶池" Then call 瑶池去长安 ElseIf DITU="长安" Then //识别地图长安22222222222222222222222222222222222222 call 长安去大唐东 ElseIf DITU="傲来" Then //识别地图傲来33333333333333333333333333333333333333 call 傲来去长安 ElseIf DITU="大唐东" Then //识别地图大唐东44444444444444444444444444444 rem 抓怪1 Call 识别地图 If x=47 and y=17 then Call 写坐标(150,120) T写坐标1=now Goto 抓怪2 ElseIf x=150 and y=120 then Call 写坐标(47,17) T写坐标1=now Goto 抓怪3 Else Call 写坐标(150,120) T写坐标1=now Goto 抓怪2 End If