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