&&新天龙八部自动挂机打怪脚本免费下载
&《天龙八部》是一款采用全3D人物和场景制作的纯国产网络游戏。天龙八部极尽精良的美术制作、人性化的功能设计、忠实原著的剧情副本、新奇丰富的技能系统、贴心的珍兽及帮派系统等诸多新颖多元的玩点，智能化的宠物系统等诸多新颖别致的玩点，打造出一个和谐完美的虚拟武侠社区。&&
&&&&&&&&&&&&&a href="http://www.51.la/?" target="_blank"&&img alt="我要啦免费统计" src="http://img.users.51.la/.asp" style="border:none" /&&/a&&平时玩游戏也就图个痛快，图个刺激！可是最近老是加班，每次游戏活动时间都是八点，我每次十点才下班，我好不容易找到一款自己玩的好的游戏，哎，这次又泡汤了，老婆看我没精打采的都是因为游戏，就给我问了他们软件方面的同事说有一个天龙八部百宝箱，这个可以让我肆无忌惮玩游戏！我特别开心，老婆这么体贴我，老婆还说，用这个玩游戏，我晚上做活动可以不用管它，天龙八部百宝箱就可以帮我自动打怪兽和自动拾取包袱里边的东西，而且也不会卡！得到的经验也比我自己打任务得的多！我特别开心！有了天龙八部百宝箱我不仅可以继续玩我的游戏，我还可以放心去加班，我的等级也不会被他们落下，以前没有天龙八部百宝箱的时候玩游戏总是卡，还总是被队友骂，现在不仅不卡了，攻击力我也别的强悍，真心特别喜欢天龙八部百宝箱！前段时间我失恋了，女朋友把我甩了，我心里特别难受，本来还想带着见父母呢！心里特别的堵得慌，叫上哥们去玩游戏，通宵玩游戏，想痛痛快快的疯一把，让自己放松一下！哥们推荐我用天龙八部百宝箱，说用这个我玩游戏比平时要痛快多了！这段时间我确实不是很爽，玩游戏也不怎么爽，总是卡！活动的时候不是因为女朋友找我就是因为家里有事，等级早就被落下了！现在有天龙八部百宝箱，我出去吃饭有自动挂机，如果遇到怪兽可以自动帮我打掉！而且我平时打任务时间比较长，有了天龙八部百宝箱，游戏活动时间是同等的，但是我不用自己守着电脑打任务，天龙八部百宝箱自动帮我打任务，而且任务得的东西还特别多，经验值也高！他们都说了除了天龙八部百宝箱能给我这么痛快的感受没人能给了！真心开心啊！&&
在 所有物品 中找到 0 件物品
此店铺暂时没有留言……
&&您需要先
，才能给卖家留言。求一个鹿鼎记自动打怪脚本，加不加血，捡不捡东西什么的不重要。一个自动挖矿脚本。一个自动采药脚本。_百度知道
求一个鹿鼎记自动打怪脚本，加不加血，捡不捡东西什么的不重要。一个自动挖矿脚本。一个自动采药脚本。
还要一个自动钓鱼并把东西直接放仓库的。邮箱是：60186缉尝光妒叱德癸泉含沪 谢谢。发几个都行~分会给的。都发来我再加50分。使用方法要注明哦
当然，这些合到一起的也行哦
提问者采纳
自动打怪的你要是刷关怀 可以去下载一个按键精灵 百度一下就行了
其他类似问题
鹿鼎记的相关知识
按默认排序
其他2条回答
去淘宝买吧
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁你的位置：
想做个传奇si服的自动打怪和拣指定装备的脚本，求优化
来源: 按键精灵资源站
问题1：本来想直接找怪色打怪的，结果很多怪色在另外的地图就像地板色，只好找怪血条打怪。厉害的怪血条没打完去打下一个怪了，其他怪打完，半血的就不认识了
问题2：宝宝的血条如何和怪区分开，人物可以开高亮变绿
问题3：拾取装备的判断感觉太死板不先进，找装备也不很准确，如何根据装备显示的字找（我个人不会）弄了会大漠，没搞清楚杂用，什么注册的，太老火了
问题4：如何判断有人来PK，好飞
//将附件中图片释放到下行指定路径
//PutAttachment &D:\软件安装\9\screen&,&*.bmp&
//人物中心坐标
//centerx = 500
//centery = 260
//人物走动的相对量
//stepx = 60
//stepy = 40
//KeyPress &F8&, 1
//Delay 2000
//KeyPress &F8&, 1
//Delay 500
Call 会员超级打宝海岸城
Call 会员超级打宝海岸城
Rem 主循环
If m = 1 Then
Call 普通地图中超级地图的金子塔选择进入
Elseif m=2 then
Call 普通地图中超级地图的暗夜幽谷选择进入
ElseIf m = 3 Then
//Call 选择地图
ElseIf m = 4 Then
//call 选择地图
ElseIf m = 5 Then
//Call 选择地图
ElseIf m = 6 Then
//call 选择地图
ElseIf m = 7 Then
//Call 选择地图
ElseIf m = 8 Then
//call 选择地图
ElseIf m = 9 Then
//Call 选择地图
ElseIf m = 10 Then
//call 选择地图
ElseIf m = 11 Then
//Call 选择地图
ElseIf m = 12 Then
//call 选择地图
//call 用修复油
Call 找怪物血条打怪
Rem 继续跑
Call 随机跑动
sh=Plugin.GetSysInfo.GetTime
If Plugin.GetSysInfo.GetTime - sh & 30000 Then
Goto 继续跑
Goto 主循环
Sub 普通地图中超级地图的暗夜幽谷选择进入()
& & //本子程序为进入暗夜幽谷
& & Call 使用回城
& & Call 回城后跑到接近传送天神
& & call 点击盟重传送天神
& & Call 点击超级地图
& & Call 点击暗夜幽谷
Sub 普通地图中超级地图的金子塔选择进入()
& & Call 使用回城
& & Call 回城后跑到接近传送天神
& & call 点击盟重传送天神
& & call 点击中级地图
& & call 点击金字塔
Sub 使用回城()
& & Delay 2000
& & ux = 15
& & uy = 15
& & FindPic 0,0,,&Attachment:\回城卷.bmp&,0.9,intX,intY
& & If intX & 0 And intY & 0 Then
& && &&&MoveTo intx + ux, inty + uy
& && &&&LeftDoubleClick 1
& && &&&Delay 1000
& && &&&KeyPress &F9&, 1
& && &&&KeyPress &F9&, 1
& && &&&FindPic 0, 0, , &Attachment:\回城卷.bmp&, 0.9, intX, intY
& && &&&If intX & 0 And intY & 0 Then
& && && && &KeyPress &F9&, 1
& && && && &Exit sub
& && &&&else
& && && && &MoveTo intx + ux, inty + uy
& && && && &LeftClick 2
& && && && &Delay 300
& && && && &KeyPress &F9&, 1
& && &&&End If
& & Delay 5000
& & End if
Sub 回城后跑到接近传送天神()
& & Delay 1000
& & MoveTo 980, 350
& & Delay 1000
& & RightClick 1
& & Delay 500
Sub 点击盟重传送天神()
& & FindPic 0,0,,&Attachment:\盟重传送天神.bmp&,0.9,intX,intY
& & If intX & 0 And intY & 0 Then
& && &&&MoveTo intx + 20, inty + 40
& && &&&LeftClick 2
& && &&&Delay 1000
& && &&&LeftClick 1
& && &&&Delay 1000
& & End if
Sub 点击中级地图()
& & FindPic 0,0,,&Attachment:\中级地图.bmp&,0.9,intX,intY
& & If intX & 0 And intY & 0 Then
& && &&&MoveTo intx + 35, inty + 20
& && &&&LeftClick 2
& && &&&Delay 1000
& & End If
Sub 点击超级地图()
& & FindPic 0,0,,&Attachment:\超级地图.bmp&,0.95,intX,intY
& & If intX & 0 And intY & 0 Then
& && &&&MoveTo intx + 30, inty + 12
& && &&&LeftClick 2
& && &&&Delay 1000
& & End If
Sub 点击金字塔()
& & FindPic 0,0,,&Attachment:\金子塔.bmp&,0.9,intX,intY
& & If intX & 0 And intY & 0 Then
& && &&&Delay 1000
& && &&&MoveTo intx +50, inty +15
& && &&&LeftClick 2
& && &&&Delay 1000
& & End If
Sub 点击暗夜幽谷()
& & FindPic 0,0,,&Attachment:\暗夜幽谷.bmp&,0.9,intX,intY
& & If intX & 0 And intY & 0 Then
& && &&&MoveTo intx + 30, inty + 10
& && &&&LeftClick 2
& && &&&Delay 2000
& & End If
Sub 会员打宝()
& & Delay 1350
& & KeyDown &Enter&, 1
& & Delay 79
& & KeyUp &Enter&, 1
& & Delay 500
& & SayString &@会员&
& & Delay 300
& & Delay 700
& & KeyDown &Enter&, 1
& & Delay 79
& & KeyUp &Enter&, 1
& & Delay 1000
& & // 启用会员打宝位置的查找，并点击和关闭
& & FindPic 0,0,,&Attachment:\会员打宝.bmp&,0.95,intX,intY
& & If intX & 0 And intY & 0 Then
& && &&&MoveTo intX + 20, intY + 10
& && &&&LeftClick 2
& && &&&Delay 1000
& & End If
& & // 如果进入地图后会员功能不关闭需在后面加入关闭界面的指令&&
Sub 会员超级打宝海岸城()
& & Delay 1350
& & KeyDown &Enter&, 1
& & Delay 79
& & KeyUp &Enter&, 1
& & Delay 500
& & SayString &@会员&
& & Delay 300
& & Delay 700
& & KeyDown &Enter&, 1
& & Delay 79
& & KeyUp &Enter&, 1
& & Delay 1000
'==========以下是按键精灵录制的内容==========
'==========以下是按键精灵录制的内容==========
MoveTo 681, 468
Delay 1163
LeftClick 1
MoveTo 244, 140
Delay 1341
LeftClick 1
MoveTo 289, 138
Delay 1507
LeftClick 1
'==========以上是按键精灵录制的内容==========
'==========以上是按键精灵录制的内容==========
Sub 会员回收装备()
& & //启用会员在线回收的查找，并一一回收，再查找和关闭
& & Delay 1350
& & KeyDown &Enter&, 1
& & Delay 79
& & KeyUp &Enter&, 1
& & Delay 500
& & SayString &@会员&
& & Delay 300
& & Delay 700
& & KeyDown &Enter&, 1
& & Delay 79
& & KeyUp &Enter&, 1
& & Delay 1000
& & MoveTo 360, 106
& & Delay 3352
& & LeftClick 1
& & MoveTo 106, 105
& & Delay 1496
& & LeftClick 1
& & MoveTo 114, 138
& & Delay 722
& & LeftClick 1
& & MoveTo 114, 166
& & Delay 720
& & LeftClick 1
& & MoveTo 110, 199
& & Delay 794
& & LeftClick 1
& & MoveTo 119, 232
& & Delay 570
& & LeftClick 1
& & MoveTo 116, 265
& & Delay 592
& & LeftClick 1
& & MoveTo 115, 296
& & Delay 560
& & LeftDown 1
& & MoveTo 116, 298
& & Delay 120
& & LeftUp 1
& & MoveTo 118, 330
& & Delay 644
& & LeftClick 1
& & MoveTo 115, 361
& & Delay 572
& & LeftClick 1
& & MoveTo 98, 91
& & Delay 1356
& & LeftClick 1
& & MoveTo 100, 121
& & Delay 695
& & LeftClick 1
& & MoveTo 102, 158
& & Delay 650
& & LeftClick 1
& & MoveTo 101, 185
& & Delay 565
& & LeftClick 1
& & MoveTo 103, 219
& & Delay 583
& & LeftClick 1
& & MoveTo 106, 251
& & Delay 667
& & LeftClick 1
& & MoveTo 96, 282
& & Delay 806
& & LeftClick 1
& & MoveTo 104, 319
& & Delay 684
& & LeftClick 1
& & MoveTo 98, 345
& & Delay 620
& & LeftClick 1
& & MoveTo 102, 378
& & Delay 660
& & LeftClick 1
& & MoveTo 108, 89
& & Delay 974
& & LeftClick 1
& & MoveTo 97, 125
& & Delay 599
& & LeftClick 1
& & MoveTo 98, 155
& & Delay 599
& & LeftClick 1
& & MoveTo 279, 349
& & Delay 2228
& & LeftClick 1
& & MoveTo 274, 346
& & Delay 4178
& & KeyDown &Esc&, 1
& & Delay 150
& & KeyUp &Esc&, 1
Sub 找怪物血条打怪()
& & //存入怪物血条到附件，点击的偏移量根据怪物大小调整
& & ux = 30
& & uy = 30
& & tp = &Attachment:\& & &怪血条.bmp&
& & Rem cxxh
& & For k = 1 To 6
//& & areatopx = 500 - 60 * k
//& & areatopy = 260 - 40 * k
//& & areadownx = 500 + 60 * k
//& & areadowny = 260 + 40 * k
//& & If areatopx & 1 or areatopy & 1 Then
//& &&&areatopx = 0
//& &&&areatopy = 0
//& & End If
//& & If areadownx &800 or areadowny &500 Then
//& &&&areatopx = 1024
//& &&&areatopy = 550
//& & End If
& & areatopx = 369
& & areatopy =145
& & areadownx =659
& & areadowny =352
& & Rem xhjc
& & FindPic areatopx,areatopy,areadownx,areadowny,tp,0.9,intX,intY
& & If intX & 0 And intY & 0 Then
& && &&&MoveTo intX + ux, intY + uy
& && &&&//& & 加入打怪子程序
& && &&&Call 直接砍怪
& && &&&Goto xhjc
& && &&&Call 拾取装备
& && &&&Call 会员回收装备
& & End If
& & FindPic 0,0,,tp,0.9,intX,intY
If intX & 0 And intY & 0 Then
& && &&&MoveTo intX + ux, intY + uy
& && &&&Call 直接砍怪
& && &&&Goto cxxh
Sub 直接砍怪()
& & LeftClick 1
& & Delay 7000
Sub 拾取装备()
& & //人物中心坐标
& & centerx = 500
& & centery = 260
& & //人物走动的相对量
& & stepx = 60
& & stepy = 40
& & leftpoint = centerx - stepx
& & rightpoint = centerx + stepx
& & toppoint = centery - stepy
& & downpoint = centery + stepy
& & Rem 将要拾取的装备存入附件并命名为ZB1，ZB2
& & Rem K等于在附件中已经加入的图片数量
& & For k=1 to 8
& && &&&ZB = &Attachment:\ZB& & k & &.bmp&
& && &&&FindPic 369,145,660,425,ZB,0.9,intX,intY
& && &&&If intX & 0 And intY & 0 Then
& && && && && & Rem 找到装备进行判断
& && && && && & intx = intx + 30
& && && && && & inty = inty + 14& && && && &
& && && && && & numa = int((intX - centerx)/stepx)
& && && && && & numb = int((inty - centery)/stepy)
& && && && && & If numa = 0 and numb = 0 Then
& && && && && &&&Delay 500& && && && &
& && && && && & End If
& && && && && & If numa & 0 Then
& && && && && &&&Rem 左走
& && && && && &&&MoveTo leftpoint, centery
& && && && && &&&numa = Abs(numa)
& && && && && &&&For numa
& && && && && &&&If numa&0 then
& && && && && &&&LeftClick numa - (numa - 1)
& && && && && &&&delay 300& && && && && &
& && && && && &&&End If
& && && && && &&&numa=numa-1
& && && && && &&&next& && && && && && && &
& && && && && & End If
& && && && && & If numa & 0 Then
& && && && && &&&Rem 右走
& && && && && &&&MoveTo rightpoint, centery
& && && && && &&&numa = Abs(numa)
& && && && && &&&For numa
& && && && && &&&If numa&0 then
& && && && && &&&LeftClick numa - (numa - 1)
& && && && && &&&delay 300& && && && && &&&
& && && && && &&&End If
& && && && && &&&numa=numa-1
& && && && && &&&next& && && && && && && &
& && && && && & End If& && && && && &
& && && && && & If numb & 0 Then
& && && && && && &Rem 上走& && && && && &&&
& && && && && &&&MoveTo&&centerx,toppoint
& && && && && &&&numb = Abs(numb)
& && && && && &&&For numb
& && && && && &&&If numb&0 then
& && && && && &&&LeftClick numb - (numb - 1)
& && && && && &&&delay 300& && && && && &
& && && && && &&&End If
& && && && && &&&numb=numb-1
& && && && && &&&next& && && && && && &
& && && && && & End If
& && && && && & If numb & 0 Then
& && && && && && &Rem 下走& && && && && &&&
& && && && && &&&MoveTo&&centerx,downpoint
& && && && && &&&numb = Abs(numb)
& && && && && &&&For numb
& && && && && &&&If numb&0 then
& && && && && &&&LeftClick numb - (numb - 1)
& && && && && &&&delay 300& && && && && &
& && && && && &&&End If
& && && && && &&&numb=numb-1
& && && && && &&&next& && && && && && &
& && && && && & End If& && &&&
& && &&&End If
Sub 随机跑动()
& & Randomize
& & n = Int(rnd * 7)
& & If n = 0 Then
& && &&&MoveTo 383, 18
& && &&&RightDown 1
& && &&&Delay 2000
& && &&&call 找怪物血条打怪
& & End if
& & If n = 1Then
& && &&&MoveTo 608,65
& && &&&Delay 100
& && &&&Delay 2000
& && &&&RightDown 1
& && &&&Delay 1000
& && &&&call 找怪物血条打怪
& & End If
& & If n = 2 Then
& && &&&MoveTo 718,193
& && &&&Delay 100
& && &&&Delay 2000
& && &&&RightDown 1
& && &&&Delay 2000
& && &&&call 找怪物血条打怪
& & End If
& & If n = 3 Then
& && &&&MoveTo 636,334
& && &&&Delay 100
& && &&&Delay 2000
& && &&&RightDown 1
& && &&&Delay 2000
& && &&&call 找怪物血条打怪
& & End If
& & If n = 4 Then
& && &&&MoveTo 391,348
& && &&&Delay 100
& && &&&Delay 2000
& && &&&RightDown 1
& && &&&Delay 2000
& && &&&call 找怪物血条打怪
& & End If
& & If n = 5 Then
& && &&&MoveTo 223,298
& && &&&Delay 100
& && &&&Delay 2000
& && &&&RightDown 1
& && &&&Delay 2000
& && &&&call 找怪物血条打怪
& & End If
& & If n = 6 Then
& && &&&MoveTo 143,190
& && &&&Delay 100
& && &&&Delay 2000
& && &&&RightDown 1
& && &&&Delay 2000
& && &&&call 找怪物血条打怪
& & End If
& & If n = 7 Then
& && &&&MoveTo 213,58
& && &&&Delay 100
& && &&&Delay 2000
& && &&&RightDown 1
& && &&&Delay 2000
& && &&&call 找怪物血条打怪
& & End if
& & Delay 10000
Sub 自动跑图测试()
& & Call 找怪物血条打怪
& & Rem 定义h为每次按下鼠标键时间
& & Rem 右下跑
& & MoveTo 480, 256
& & RightDown 1
& & Delay h
& & Rem 下跑
& & MoveTo 395,390
& & RightDown 1
& & Delay h
& & Rem 左下跑
& & MoveTo 230,390
& & RightDown 1
& & Delay h
& & Rem 左跑
& & MoveTo 214,201
& & RightDown 1
& & Delay h
& & Rem 左上跑
& & MoveTo 252,115
& & RightDown 1
& & Delay h
& & Rem 上跑
& & MoveTo 390,77
& & RightDown 1
& & Delay h
& & Rem 右上跑
& & MoveTo 550,83
& & RightDown 1
& & Delay h
& & Rem 右跑
& & MoveTo 495,199
& & RightDown 1
& & Delay h各位工程师我想想找个鹿鼎记打怪加血的脚本希望给予帮助谢谢 - 按键精灵论坛 - Powered by Discuz!
按键精灵论坛
标题: 各位工程师我想想找个鹿鼎记打怪加血的脚本希望给予帮助谢谢
作者: potential& & 时间:
标题: 各位工程师我想想找个鹿鼎记打怪加血的脚本希望给予帮助谢谢本人在玩鹿鼎记游戏，想制作一个自动识别打怪和加血的脚本，如果能制作出来识别游戏防wai挂报警的那就太感激了，想请各位高级工程师给予帮助。谢谢
作者: potential& & 时间:
补充下我的邮箱
作者: kk1987625& & 时间:
......不会啊
作者: legendcz001& & 时间:
XY=Plugin.ColorEx.FindShape(0,0,400,600,&1|0|1,2|0|1,3|0|1,4|0|1,5|0|1,0|25|1,1|25|1,2|25|1,3|25|1,4|25|1,5|25|1,0|50|1,1|50|1,2|50|1,3|50|1,4|50|1,5|50|1,0|75|1,1|75|1,2|75|1,3|75|1,4|75|1,5|75|1&,1,1)
ZB = InStr(XY,&|&)
X = Clng(Left(XY, ZB - 1)): Y = Clng(Right(XY, Len(XY) - ZB))
If X&0 and Y&0 Then
& &&&Call Plugin.Media.Play(&C:\WINDOWS\Media\Windows XP 启动.wav&)& & &==音乐路径自己改吧，我用的是飞信插件，可以自动发短信到手机，呵呵~
注意：开800*600，然后拉到左上角（不要超出屏幕边界太多哟~）
& && &由于是找图形，所以不用图片。
& && &因为是前台找图，所以反wai挂检测窗口这块区域不能被遮挡住
& && &没事不要把背包拉进这个区域，会误报哟~（貌似打开包包界面也会误报哟~）
补充：可以弄成相对窗口坐标，这样的话，可以双开（第一个在左上角，第二个在右下角，水平1/3左右移出屏幕，不可在2个游戏画面上打开其他窗口，因为俺不会后台找图.....），如下：
作者: legendcz001& & 时间:
Hwnd = Plugin.Window.Foreground()
sRect = Plugin.Window.GetClientRect(Hwnd)
SIZE = Split(sRect, &|&, -1 , 1)
Ux = SIZE(0)
Uy = SIZE(1)
XY=Plugin.ColorEx.FindShape(Ux,Uy,Ux+400,Uy+600,&1|0|1,2|0|1,3|0|1,4|0|1,5|0|1,0|25|1,1|25|1,2|25|1,3|25|1,4|25|1,5|25|1,0|50|1,1|50|1,2|50|1,3|50|1,4|50|1,5|50|1,0|75|1,1|75|1,2|75|1,3|75|1,4|75|1,5|75|1&,1,1)
ZB = InStr(XY,&|&)
X = Clng(Left(XY, ZB - 1)): Y = Clng(Right(XY, Len(XY) - ZB))
If X&0 and Y&0 Then
& &&&Call Plugin.Media.Play(&C:\WINDOWS\Media\Windows XP 启动.wav&)& & &==音乐路径自己改吧
把上面这段加入你的脚本，就OK了，至于飞信的设置，需要下载插件，我是哪里下的，连我自己都忘了，不好意思.....反正按键自带的那个用不了
作者: legendcz001& & 时间:
legendcz001
& & 是“打开宝宝界面也会误报”....
作者: rifqbujj9& & 时间:
legendcz001
& & 好人。顶一下
欢迎光临 按键精灵论坛 (/)
Powered by Discuz! X2.5}