ElseIf DITU="傲来" Then //识别地图傲来33333333333333333333333333333333333333
call 傲来去长安
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
T找NPC=now
rem 找武器店NPC
FindPic 0,0,807,621,"C:\XYW\n布店.bmp",0.9,intX,intY
If intX >0 and intY>0 then//找武器店NPC
Call 修正偏移(intX+5,intY-34)
T点NPC = now
Rem T点NPC
dm_ret = dm.FindStr(0,0,807,621,"买","08f448-000000",1.0,intX,intY)
If intX >0 and intY>0 then//T点NPC
Call 修正偏移(intX+5,intY+9)
T出现购买=now
Rem T出现购买
FindPic 0,0,807,621,"C:\XYW\购买.bmp",0.9,intX,intY
If intX >0 and intY>0 then//T出现购买
T出现要买的武器=now
Rem T出现要买的武器
FindPic 0,0,807,621,"C:\XYW\"& zhuangbei &".bmp",0.9,intX,intY
If intX >0 and intY>0 then//T出现要买的武器
Call 修正偏移(intX,intY+7)
Delay yc+ 100
Call 修正偏移(321,487)
Delay yc+ 100
t出现购买成功=now
Rem T出现购买成功
dm_ret = dm.FindStr(0,0,807,621,"购买","f8fcf8-000000",1.0,intX,intY)
If intX >0 and intY>0 then//T出现购买成功
call 修正偏移右键(271,487)
Delay yc+ 1000
Call 交任务
Exit Sub
Else //T出现购买成功
If DateDiff("s",T出现购买成功,now)>11 then
t出现购买成功=now
Goto T出现要买的武器
End If
Delay yc+ 100
Goto T出现购买成功
End If//T出现购买成功
Else //T出现要买的武器
If DateDiff("s",T出现要买的武器,now)>10 Then
T出现要买的武器=now
End If
Delay yc+ 200
Goto T出现要买的武器
End If//T出现要买的武器
Else//T出现购买
If DateDiff("s",T出现购买,now)>10 Then
T出现购买=now
Delay yc+ 200
goto T点NPC
End If
Delay yc+ 200
Goto T出现购买
End If //T出现购买
Else //T点NPC
If DateDiff("s",T找NPC,now)>10 Then
T点NPC = now
goto 找武器店NPC
End If
Delay yc+ 200
Goto T点NPC
End If//T点NPC
Else //找武器店NPC
If DateDiff("s",T找NPC,now)>10 Then
T找NPC=now
goto 接任务1
End If
Delay yc+ 1000
goto 找武器店NPC
End if//找武器店NPC
ElseIf ditu="长安武器店" then
Call 修正偏移(749,380)
Delay yc+ 1000
Else //识别地图//未知地图
KeyPress "F10", 1
Delay yc+ 6000
End if//识别地图
goto 接任务1
End Sub