你的位置：
刚出炉的传奇SF挂机脚本 自动打怪 你拿走吧
00:28:04 |
来源: 按键精灵资源站
// 以下是用大漠写的 因为新手 所以 有限 脚本需要 手动注册大漠 提取 字库 我想你懂的
需要的你就复制走 不需要的 你给指点下 我的成长需要你的点化 还有别吝啬你的回帖和鲜花哦记得顶起让更多需要的人用到
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)
//&&这里是找怪 的判断 注意血条要高亮 否则和怪血冲突
//判断 血色找到后跑过去
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 打怪()
& & //&&如果没找到 就随机跑动找怪&&
& & Call 跑动()
//&&这是捡东西子程序 注意要把不捡的不显示的通过内挂添加 以下是祖玛**类的装备捡取回收（回收具体在下边） 可以自己编辑下需要的&&
Sub 捡东西()
& & While i = 0
& && &&&dm_ret = dm.FindStrFast(0,0,,&骨玉|龙纹剑|泰坦|裁决|力量|紫碧螺|绿色|龙之|恶魔|三眼|骑士|精品|天下|**|法神|天尊|灵魂|&,&ff|000ffff-cbf7-cbf7-,x1,y1)
& && &&&If x1 &= 0&&Then
& && && && &dm. RightUp
& && && && &dm.MoveTo&&x1+25,y1+8
& && && && &dm.LeftClick
& && && && &Delay 1000
& && && && &Call 打怪()
& && &&&Else
& && && && &i=1
& && && && &Call 回收()
& && && && &Goto 找怪
& && &&&End If
//& &打怪子程序 通过身边范围找怪当出现时 技能&&F4 打怪 当身边怪消失了 开始捡东西
Sub 打怪()
& & While i=2
& && &&&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
& && && && &Delay 800
& && && && &dm.KeyPress 115
& && &&&Else
& && && && &i=1
& && && && &Call 捡东西()
& && &&&End If
& & Wend& &
//&&这是随机跑动的变量 不懂的可以看看官方 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
& && &&&Delay 100
& && &&&Delay 2000
& && &&&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
& && &&&dm.RightDown
& && &&&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
// 下面的是回收的 如果不需要的话就把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
& && &&&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
dm_ret = dm.UnBindWindow()您还不是会员。
>>学习报告>>高中阶段
第二课时 用按键精灵制作自动加血脚本
12:31:02 发表
人气脚本开发软件“按键精灵”为我们提供了一个制作脚本的平台，可以提高效率，摆脱循环的敲键盘点鼠标的动作。最好的脚本就是自己做的脚本，让我们来做出属于自己的脚本吧。
------------------------------------------------------------------
运用语句：
颜色判断（ifcolor）
ifcolor是按键精灵中一种选择分支结构，可以用这个语句完成补血补蓝判断怪物等等，ifcolor的经典运用就是自动补血。
ifcolor有四个参数:x坐标，y坐标，16进制颜色值，判断条件
ifcolor x,y,&fffff&,0 then
elseif 条件表达式
结构与if判断相似只是参数不同
------------------------------------------------------------------
下面我们就开始做自己的加血脚本吧！
首先打开一个游戏 先想想如何做
我用的是模拟器 就像下面的注释一样说的 我拿左下角 a为响应键的条做示范
（1）新建脚本
（2）按下【printscreen】截下当前桌面的图之后打开打开抓抓工具
就得到当前桌面截图
我的想法是当血条背景为白色之后 就按下a
用放大镜获得点的数据 412,502 ffffff
就开始写我们的脚本吧：
如果412,502 点为 ffffff 那么就按下a 否则延迟500毫秒
设置为按终止键停止循环 保存脚本 这样一个自动加血脚本就完成了
文明上网，理性发言！
的最新作业
教师批改｜Teacher annotate