传奇脱机挂元宝思路 _ 综合讨论 - 按键精灵论坛
腾讯微博：
软件版本：2014.05软件大小：21.6M更新时间：07-04
软件版本：3.2.9软件大小：62.5M更新时间：12-07
软件版本：1.3.1软件大小：29.2M更新时间：09-29
软件版本：1.1.0软件大小：12.3M更新时间：12-29
查看: 728|回复: 2
小龟跑的快
按键精灵开发者4级可通过提升认证等级来升级勋章：小红帽对论坛提出良好建议（可向管理员申请）
传奇私服脱机挂元宝思路这只是一个思路,其中一定有很多BUG.在写传奇脚本中,寻路一直写不好,如果有大神路过,一定留下点思路.谢谢!一
查找传奇私服的类名,当然标题也可以,不过标题合区后有可能要改变.所以用类名.二
如果当前地图等于要挂机的地图,则跳转到标记开始挂机三
如果当前地图等于自己要去的地图,则条件结束,否则跳转到标记回城.六
DO循环开始
FOR 循环10次1
调用子程序打怪2
调用子程序看包2
调用子程序捡装备3
FOR 循环结束4
调用子程序扔垃圾
调用子程序买药
调用子程序修装备
LOOP循环结束子程序 捡装备1
如果人物坐标腹肌附近1格内没有怪,则
FOR A从0到2次 // 这里循环了3个20次,每个20次对应一个变量,每个变量就是一种装备的名字.
FOR 循环20次
找图找字方法识别装备 A是变量 0-2是图片的名字
比如法神项链|法神戒指...我们做个透明图法神,名字叫0
圣战*|天尊*
名字叫1和2,这样,我们就可以用FOR循环递增找图了.
结束. 子程序 回收
打开包裹,找到回收宝箱,点击回收. 子程序 打怪
怪物血由上下两个像素的红点排列成的,边上还有一圈黑色的点
识别怪物取怪物左边的 6个像素,也就是2个红点加4个黑点的图片.
找到怪鼠标移动过去左键攻击一次,加个跑动的时间.
FOR 循环100次
再次找怪,//由于找图找怪,经常人物会被怪围住,而打不到远处的怪.
所以这次,找怪的范围是人物坐标附近一格的位置,是一格,不是一个像素.
找到怪后,每次攻击间隔为500毫秒 如果一直打到100次,.,则判断为假怪,或者是人物卡位了.则使用随机传送石(如果不能使用随机传送石,就回城),飞走.
否则 退出FOR循环.子程序 寻路
传奇走路,真心不会,目前只有几种笨法,如果有大神路过,请留下点思路,谢谢!
如果当前地图可以使用随机传送石,就用随机传送石找怪.
如果当前地图比较容易走,比如,向左走几次,如果看到什么死角,则右走...等等.
子程序 看包
打开包裹,如果包里空格数大于10,则条件结束,则
条件结束子程序 买药
通过找图买药子程序 扔垃圾
打怪中,会不小心捡到一些垃圾,不扔,时间挂久了,就不能挂了子程序 修装备还有一些细节就不写了,
买修复神水\买随机石\捡装备,打怪中的死循环等.当然,这只是思路,这样的脚本肯定有一些逻辑性错误,具体要一步步的调试在知道.例外,再向各路大神问一下,怎么用传奇中,人物的坐标走路呀.
过大年勋章俩小福娃给大家拜年啦！双十一绝版纪念勋章双十一绝版纪念勋章按键精灵开发者5级可通过提升认证等级来升级勋章：小红帽对论坛提出良好建议（可向管理员申请）
看到这个标题，我马上想到的是：及时雨脱机外挂。我不清楚楼主用的具体是什么。呵呵！好怀念很久很久以前疯狂的玩这个传奇私服。晚上挂机，白天也挂机！现在回想起来，感觉非常的幼稚哦。
努力通过认证6级！
这个可以啊，没细看，单感觉会有用你的位置：
刚出炉的传奇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()