Call 关闭任务
dm_ret = dm.FindStr(0,0,807,621,"揍你","08f448-000000",0.9,intX,intY)
If intX>0 and intY > 0 then//揍你
call 修正偏移(intX+5,intY +7)
Delay yc+ 3200
T战斗=NOW
Rem 战斗
FindPic 0,0,807,621,"C:\XYW\战斗标识.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then//战斗
Delay yc+ 2000
Call 关闭任务
rem 自动
FindPic 0,0,807,621,"C:\XYW\自动.bmp",0.9,intX,intY//自动
If intX > 0 And intY > 0 Then//自动
Else
Rem 战斗条
FindPic 0,0,807,621,"C:\XYW\战斗条.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then//战斗条
Call 物理攻击
Delay yc+ 200
KeyDown 18, 1
KeyPress 56, 1
KeyUp 18, 1
Delay yc+ 200
Else //战斗条
Delay yc+ 200
Goto 战斗条
End if//战斗条
End If//自动
FindPic 0,0,807,621,"C:\XYW\战斗标识.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then//等待战斗结束
Delay yc+ 200
Goto 自动
Else
Delay yc+ 2000
Call 识别任务
End If //等待战斗结束
Else //战斗
If DateDiff("s",T战斗,now) >6 Then
T战斗=NOW
Goto 和NPC对话
End If
Delay yc+ 200
Goto 战斗
end if //战斗
Else //揍你
If DateDiff("s",t点红字,now)>8 Then
t点红字=now
Call 打开任务
dm_ret = dm.FindStr(0,0,807,621,"揍你","08f448-000000",0.9,intX,intY)
If intX>0 and intY > 0 then//揍你
Else
Delay 200
Goto 点红字
End if
End if
Delay yc+ 1200
Goto 和NPC对话
End if//揍你
Else //点红字22222222222222
If DateDiff("s",t点红字,now)>11 Then
t点红字=now
goto 杀敌1
End if
Delay yc+ 1200
Goto 点红字
End if //点红字22222222222222
end if //查找杀敌任务完成
End Sub
//采集
Sub 采集()
Rem 采集1
dm_ret = dm.FindStr(268,171,300,224,"采集","00cc00-000000",0.9,intX,intY)
If intX > 0 And intY > 0 Then//查找采集任务完成
// MessageBox "采集任务完成"
Call 交任务
Exit sub
Else //查找采集任务完成
Rem 查找次数
Call 打开任务
Delay yc+ 200
cishu = dm.Ocr(340,252,421,352,"f8fc00-000000",1.0)
cishu=Split(cishu,"/")
ddd=cishu(0)
Call 关闭任务
If ddd =0 then //查找完成次数 111111111111111111
Goto cishu1
ElseIf ddd =1 then //查找完成次数 111111111111111111