Access denied |
used Cloudflare to restrict access
Please enable cookies.
What happened?
The owner of this website () has banned your access based on your browser's signature (3b97e6d7f7ac7730-ua98).你的位置：
刚出炉的传奇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()　　　　　　　 　　　　　　　
[本期访谈]
单位：肇源县安全生产监督管理局
嘉宾：安监局局长　房治国
　　　　　　　　　　　　　　　　　　　　　　　　　　　
[正在进行]
　　　　　　　　　　}