刚出炉的传奇SF挂机脚本 自动打怪 你拿走吧 _ 综合讨论 - 按键精灵论坛
软件版本：2014.05软件大小：21.6M更新时间：07-04
软件版本：3.3.0软件大小：62.5M更新时间：5-24
软件版本：1.3.3软件大小：29.2M更新时间：06-14
软件版本：1.1.0软件大小：12.3M更新时间：12-29
查看: 77587|回复: 7
按键精灵开发者2级可通过提升认证等级来升级勋章：rz.anjian.com
// 以下是用大漠写的 因为新手 所以 有限 脚本需要 手动注册大漠 提取 字库 我想你懂的需要的你就复制走 不需要的 你给指点下 我的成长需要你的点化 还有别吝啬你的回帖和鲜花哦记得顶起让更多需要的人用到Set dm = createobject("dm.dmsoft")dm.Setpath "f:\tmp"dm.setdict 0, "song9.txt"hwnd = dm.GetMousePointWindow()dm_ret = dm.BindWindow(hwnd, "normal", "normal", "normal", 0)//
这里是找怪 的判断 注意血条要高亮 否则和怪血冲突Rem 找怪//判断 血色找到后跑过去dm_ret = dm.FindColor(4,18,787,338,"ff",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 捡东西()
While i = 0
dm_ret = dm.FindStrFast(0,0,,"骨玉|龙纹剑|泰坦|裁决|力量|紫碧螺|绿色|龙之|恶魔|三眼|骑士|精品|天下|**|法神|天尊|灵魂|","ff|000ffff-cbf7-cbf7-,x1,y1)
If x1 >= 0
dm. RightUp
x1+25,y1+8
dm.LeftClick
Delay 1000
Call 打怪()
Call 回收()
WendEnd Sub//
打怪子程序 通过身边范围找怪当出现时 技能
F4 打怪 当身边怪消失了 开始捡东西Sub 打怪()
dm_ret = dm.FindColor(325, 102, 435, 189, "ff", 1.0, 4, qX, qY)
If qX > 0 And qY>0Then
dm. RightUp
dm.MoveTo qX + 20, qY+ 20
dm.KeyPress 115
Call 捡东西()
这是随机跑动的变量 不懂的可以看看官方教程 2D 那一集 Sub 跑动()
n = Int(rnd * 7)
If n = 0 Then
dm.MoveTo 383,18
Delay 2000
dm.RightDown
Delay 2000
If n = 1Then
dm.MoveTo 608,65
Delay 2000
dm.RightDown
Delay 1000
If n = 2 Then
dm.MoveTo 718,193
Delay 2000
dm.RightDown
Delay 2000
If n = 3 Then
dm. MoveTo 636,334
Delay 2000
dm.RightDown
Delay 2000
If n = 4 Then
dm.MoveTo 391,348
Delay 2000
dm.RightDown
Delay 2000
If n = 5 Then
dm. MoveTo 223,298
Delay 2000
dm.RightDown
Delay 2000
If n = 6 Then
dm.MoveTo 143,190
Delay 2000
dm.RightDown
Delay 2000
If n = 7 Then
dm.MoveTo 213,58
Delay 2000
dm.RightDown
Delay 2000
Delay 10000End 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-.0, x, y)
If x > 0 Then
dm.MoveTo x + 10, y + 5
dm.LeftClick
Delay 1000
dm.MoveTo 88, 122
dm.LeftClick
Delay 1000
dm.MoveTo 407, 13
dm.LeftClick
Delay 1000
End IfEnd Sub// 释放dm_ret = dm.UnBindWindow()
楼主 还在么 问下你QQ
同上 说下QQ行么 像问问脚本的问题~
传奇爱好者编写按键精灵脚本交流群：。
路过 学习····
传奇私服的吗 ？想转到按键盒子怎么弄呀 我菜鸟 大师指导
楼主好，本人也在学习制作脚本，顶你下
闽网文 (-037号
注意: 以下为数据查询分析工具，正式站点使用请使用官方发布版本或自行Release编译。