rem 任务1
Call 打开任务
Rem 框
FindPic 0,0,807,621,"C:\XYW\框.bmp",1.0,intX,intY
If intX > 0 And intY > 0 Then
Call 修正偏移(intX+ 68,intY+5)
Delay yc+ 200
Goto 框
End If
s = dm.Ocr(238,141,381,241,"e8e8b0-000000",1)
If s = "召唤兽需求" then ///分析任务
// MessageBox "召唤兽需求"
Call 召唤兽需求
elseIf s= "药需求" then
//MessageBox "药需求"
Call 药需求
elseIf s= "白装需求" then
// MessageBox "白装需求"
Call 白装需求
elseIf s= "采集" then
//MessageBox "采集"
Call 采集
elseIf s= "送信" then
//MessageBox "送信"
Call 送信
elseIf s= "护送" then
//MessageBox "护送"
Call 护送
elseIf s= "杀敌" then
//MessageBox "杀敌"
Call 杀敌
Else //其他
dm_ret = dm.FindStr(0,0,800,600,"杀敌","00cc00-000000",1.0,intX,intY)
If intX > 0 And intY > 0 Then//查找杀敌任务完成
s="杀敌"
Call 关闭任务
Call 交任务
Exit sub
End if
dm_ret = dm.FindStr(0,0,800,600,"采集","00cc00-000000",1.0,intX,intY)
If intX > 0 And intY > 0 Then//查找采集任务完成
s= "采集"
Call 关闭任务
Call 交任务
Exit sub
End if
dm_ret = dm.FindStr(0,0,800,600,"护送","00cc00-000000",1.0,intX,intY)
If intX > 0 And intY > 0 Then//查找护送任务完成
s= "护送"
Call 关闭任务
Call 交任务
Exit sub
End if
Call 关闭任务
Plugin.Media.Beep 2000,500
MessageBox "其他任务有任务干扰,解决掉其他任务。走回门派.然后在点确定"
goto 任务1
End if ///分析任务
End Sub
//杀敌
Sub 杀敌()
Call 打开任务
dm_ret = dm.FindStr(0,0,800,600,"杀敌","00cc00-000000",0.9,intX,intY)
If intX > 0 And intY > 0 Then//查找杀敌任务完成
// MessageBox "采集任务完成"
Call 交任务
Exit sub
Else //查找杀敌任务完成
Rem 杀敌1
call 关闭任务
t点红字=now
rem 点红字
call 关闭任务
Call 瑶池去长安
dm_ret = dm.FindStr(0,0,807,621,"揍你","08f448-000000",0.9,intX,intY)
If intX>0 and intY > 0 then//揍你
Delay 100
Goto 和NPC对话
End if
Call 打开任务
Delay yc+ 200
s = dm.Ocr(224,95,488,510 ,"f80000-000000",1.0)
dm_ret = dm.FindStr(224,95,488,510 ,"长安","f80000-000000",0.9,cintX,cintY)
If cintX>0 then//点红字22222222222222
Delay yc+ 200
call 修正偏移(cintX+10,cintY+9)
Delay yc+ 200
t和NPC对话=now
Rem 和NPC对话