python传奇⾃动打怪脚本_⼤漠传奇⾃动打怪源码分享
Set dm = createobject("dm.dmsoft")
dm.Setpath "f:\tmp"
dm.setdict 0, ""
hwnd = dm.GetMousePointWindow()
dm_ret = dm.BindWindow(hwnd, "normal", "normal", "normal", 0)
// 这⾥是怪 的判断 注意⾎条要⾼亮 否则和怪⾎冲突
Rem 怪
//判断 ⾎⾊到后跑过去
dm_ret = dm.FindColor(4,18,787,338,"ff0000-000000",1.0,4,intX,intY)
If intX > 0 And intY>0Then
dm.MoveTo intX+20 , intY+10
dm.RightDown
// 跑过去 调⽤打怪
Call 打怪()
Else
// 如果没到 就随机跑动怪
Call 跑动()
End If
// 这是捡东西⼦程序 注意要把不捡的不显⽰的通过内挂添加 以下是祖玛**类的装备捡取回收（回收具体在下边） 可以⾃⼰编辑下需要的
精品源码论坛
Sub 捡东西()
i=0
While i = 0
dm_ret = dm.FindStrFast(0,0,2000,2000,"⾻⽟|龙纹剑|泰坦|裁决|⼒量|紫碧螺|绿⾊|龙之|恶魔|三眼|骑⼠|精品|天下|**|法神|天尊|灵魂|","ff0000-000000|000ffff-000000|a5cbf7-000000|a5cbf7-000000",1,x1,y1)
If x1 >= 0 Then
dm. RightUp
dm.MoveTo x1+25,y1+8
dm.LeftClick
Delay 1000
Call 打怪()
Else
i=1
End If
Wend
End Sub
// 打怪⼦程序 通过⾝边范围怪当出现时 技能 F4 打怪 当⾝边怪消失了 开始捡东西Sub 打怪()
i=2
While i=2
dm_ret = dm.FindColor(325, 102, 435, 189, "ff0000-000000", 1.0, 4, qX, qY) If qX > 0 And qY>0Then
dm. RightUp
dm.MoveTo qX + 20, qY+ 20
Delay 800
dm.KeyPress 115
Else
i=1
Call 捡东西()
End If
Wend
End Sub
// 这是随机跑动的变量 不懂的可以看看官⽅教程 2D 那⼀集
Sub 跑动()
Randomize
n = Int(rnd * 7)
If n = 0 Then
dm.MoveTo 383,18
Delay 2000
dm.RightDown
Delay 2000
Goto 怪
End if
If n = 1Then
dm.MoveTo 608,65
dm.RightDown
Delay 1000
Goto 怪
End If
If n = 2 Then
dm.MoveTo 718,193 Delay 100
Delay 2000
dm.RightDown
Delay 2000
Goto 怪
End If
If n = 3 Then
dm. MoveTo 636,334 Delay 100
Delay 2000
dm.RightDown
Delay 2000
Goto 怪
End If
If n = 4 Then
dm.MoveTo 391,348 Delay 100
Delay 2000
dm.RightDown
Delay 2000
Goto 怪
End If
If n = 5 Then
dm. MoveTo 223,298 Delay 100
Delay 2000
Goto 怪
End If
If n = 6 Then
dm.MoveTo 143,190
Delay 100
Delay 2000
dm.RightDown
Delay 2000
Goto 怪
End If
If n = 7 Then
dm.MoveTo 213,58
Delay 100
Delay 2000
dm.RightDown
Delay 2000
Goto 怪
End if
Delay 10000
End Sub
// 下⾯的是回收的 如果不需要的话就把32 ⾏调⽤回收去掉 毕竟每个和每个版本不同Sub 回收()
Delay 1000
dm.KeyPress 13
Delay 1000
dm.KeyDown 17
dm.KeyPress 86
dm.KeyUp 17
Delay 1000
dm.KeyPress 13
Delay 1000
dm_ret =dm.FindStr(0, 0, 402, 182, "1", "ffff00-000000",1.0, x, y)
dm.MoveTo x + 10, y + 5
Delay 500
dm.LeftClick
Delay 1000
dm.MoveTo 88, 122
Delay 500
dm.LeftClick
Delay 1000
dm.MoveTo 407, 13
Delay 500
dm.LeftClick
Delay 1000
End If
End Sub
// 释放
dm_ret = dm.UnBindWindow()
联系我时，请说是在 挂海论坛 上看到的，谢谢！

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。