游戏的参照物是小地图的箭头,里面有个红点不会变~但是随箭头移动,有可能斜上、有可能斜下的时候会找不到颜色,我要从人物所在位置移动到红线尽头,我的思路是(从回主城寻路找女人-回主城寻路找女人5):依照箭头然后一只走到红线尽头,在尽头处有个图可以做判定,代码中图片叫“门口”,这个脚本有时候能成功,有时候又 不能成功,求建议!!另,其他子程序运行100次可能有1-2次会出现找不到图或者是字或者是点的问题,所以,我想在每个子程序上面搞一个时间判定>=60秒则跳转到 “Call回人物画面”这个子程序接着运行下去,如果“Call回人物画面”>=60秒则跳转都“Call回人物画面”这个子程序接着运行下去,要怎么搞~~跳转和时间判定我也不会,顺便求个演示代码!
半3D的游戏,
Call 绑定窗口
call 进入游戏
Call 建角色
Call 进入画面
Call 找到点击验证人员
Call 与验证人说话1
call .............(还有许多个子程序)
Call 回人物画面
Call 删除角色
Call 删除角色2
Call 删除角色3
Sub 回主城寻路找女人
Set dm = createobject("dm.dmsoft")
base_path = dm.GetBasePath()
dm_ret = dm.SetPath(base_path)
dm_ret = dm.SetPath( "c:\test_game")
Hwnd = Plugin.Window.MousePoint()
dm_ret = dm.BindWindow(Hwnd, "normal", "normal", "normal", 0)
Delay 500
If dm_ret = 1 Then
TracePrint "绑定成功"
End If
Do
dm_ret = dm.FindColor(681,31,759,133,"d60000-000000|ffb2b2-000000",0.95,0,faX,faY)
If faX = 706 and faY = 119 Then
Delay 200
TracePrint faX & "," & faY
dm.MoveTo 224,296
Delay 100
dm.LeftClick
Delay 100
Exit Do
TracePrint "未找到"
Else
Delay 100
End IF
Loop
End Sub
Sub 回主城寻路找女人1
Set dm = createobject("dm.dmsoft")
base_path = dm.GetBasePath()
dm_ret = dm.SetPath(base_path)
dm_ret = dm.SetPath( "c:\test_game")
Hwnd = Plugin.Window.MousePoint()
dm_ret = dm.BindWindow(Hwnd, "normal", "normal", "normal", 0)
Delay 500
If dm_ret = 1 Then
TracePrint "绑定成功"
End If
Do
dm_ret = dm.FindColor(681,31,759,133,"d60000-000000|ffb2b2-000000",0.95,0,faX,faY)
If faX = 703 and faY = 119 Then
Delay 200
TracePrint faX & "," & faY
dm.MoveTo 420,500
Delay 200
dm.LeftClick
Delay 800
Exit Do
TracePrint "未找到"
Else
Delay 100
End IF
Loop
End Sub
Sub 回主城寻路找女人2
Set dm = createobject("dm.dmsoft")
base_path = dm.GetBasePath()
dm_ret = dm.SetPath(base_path)
dm_ret = dm.SetPath( "c:\test_game")
Hwnd = Plugin.Window.MousePoint()
dm_ret = dm.BindWindow(Hwnd, "normal", "normal", "normal", 0)
Delay 200
If dm_ret = 1 Then
TracePrint "绑定成功"
End If
Do
dm_ret = dm.FindColor(681,31,759,133,"ff9393-000000|d60000-000000",0.95,0,faX,faY)
If faX = 704 or faX =705 or faX =706 and faY = 123 or faY = 124 or faY = 125 Then
TracePrint faX & "," & faY
Delay 200
dm.MoveTo 78, 340
Delay 800
dm.LeftClick
Delay 500
Else
TracePrint "未找到"
Exit Do
End IF
Loop
End Sub
Sub 回主城寻路找女人3
Set dm = createobject("dm.dmsoft")
base_path = dm.GetBasePath()
dm_ret = dm.SetPath(base_path)
dm_ret = dm.SetPath( "c:\test_game")
Hwnd = Plugin.Window.MousePoint()
dm_ret = dm.BindWindow(Hwnd, "normal", "normal", "normal", 0)
Delay 200
If dm_ret = 1 Then
TracePrint "绑定成功"
End If
Do
dm_ret = dm.FindColor(675,22,759,133,"d60000-000000|ffb2b2-000000",0.95,0,faX,faY)
If faX = 697 or faX =698 or faX =699 and faY = 122 or faY = 123 or faY = 124 Then
TracePrint faX & "," & faY
Delay 300
dm.MoveTo 78, 330
Delay 200
dm.LeftClick
Delay 800
Else
Delay 200
Exit Do
TracePrint "未找到"
End IF
Loop
End Sub
Sub 回主城寻路找女人4
Set dm = createobject("dm.dmsoft")
base_path = dm.GetBasePath()
dm_ret = dm.SetPath(base_path)
dm_ret = dm.SetPath( "c:\test_game")
Hwnd = Plugin.Window.MousePoint()
dm_ret = dm.BindWindow(Hwnd, "normal", "normal", "normal", 0)
Delay 200
If dm_ret = 1 Then
TracePrint "绑定成功"
End If
Do
dm_ret = dm.FindColor(681,31,759,133,"d60000-000000|ffb2b2-000000",0.95,0,faX,faY)
If faX = 687 or faX =688 or faX =689 and faY = 126 or faY = 127 or faY = 128 Then
TracePrint faX & "," & faY
Delay 300
dm.MoveTo 168, 136
Delay 200
dm.LeftClick
Delay 500
Else
TracePrint "未找到"
Delay 600
Exit Do
End IF
Loop
End Sub
Sub 回主城寻路找女人5
Set dm = createobject("dm.dmsoft")
base_path = dm.GetBasePath()
dm_ret = dm.SetPath(base_path)
dm_ret = dm.SetPath( "c:\test_game")
Hwnd = Plugin.Window.MousePoint()
dm_ret = dm.BindWindow(Hwnd, "normal", "normal", "normal", 0)
Delay 500
If dm_ret = 1 Then
TracePrint "绑定成功"
End If
Do
dm_ret = dm.FindPic(0,0,2000,2000,"门口.bmp","020202",0.9,0,jianX,jianY)
If jianX >= 0 and jianY >= 0 Then
Delay 200
TracePrint jianX & "," & jianX
dm.MoveTo jianX -70, jianY + 60
Delay 100
dm.LeftClick
Delay 800
Exit Do
Else
TracePrint "没找到"
Delay 100
End IF
Loop
end sub
仙境传说.jpg
(, 下载次数:0)
ro sf(2015/10/8 19:31:07 上传)