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