求写传奇刷元宝脚本NPC刷怪脚本

来源：蜘蛛抓取(WebSpider) 时间：2015-03-16 02:26 标签： 传奇挂机刷元宝脚本
我的网盘文件　　　　　　　　　　
好评：50.00%(0)
差评：50.00%(0)
分享给好友:复制地址
其它昨日热门排行
热门专辑推荐
传奇刷怪脚本描述介绍：
传奇刷怪脚本是由上传到163网盘,供大家免费下载。
文件下载地址
电信高速下载
联通高速下载
用户其它文件
版权所有　&&想要在某一个点固定时间刷一个怪来增加游戏任务获得可玩性，下面以增加一个祖码教主为例为教程
【活动】：每个下午15:00祖玛教主会准时出现在土城书店门口，杀死它就可以获得大量的经验和高级的装备 织梦好，好织梦
玩传奇的朋友们对游戏中出现的活动应该不陌生吧，在某某时间就出现一个公告，或者在游戏介绍里就有，什么时间，什么地点，出现什么怪物，可以获得什么奖励。今天，我就教大家如何制作定时刷怪的活动脚本。 织梦好，好织梦
在此，我给大家讲解下。这种活动大部分都是由机器人脚本（机器人配置解析）控制的。首先，我们打开机器人脚本目录：MirServer\Mir200\Envir\Robot_def 内容来自dedecms
在机器人配置脚本文件： 本文来自织梦
AutoRunRobot.txt中加入#AutoRun NPC RUNONDAY 15:00:00 @祖玛教主 织梦好，好织梦
如图： 本文来自织梦
将每天15:00的定时触发脚本制作好。然后制作机器人脚本，加入以下脚本。 本文来自织梦
[@祖玛教主]
Param1 3 405 328
Param2 405
Param3 328
MonGen 祖玛教主 1 0
SENDMSG 1 怪物：[祖玛教主]出现在土城书店，想要装备、元宝、的可别错过机会~！
SENDMSG 1 怪物：[祖玛教主]出现在土城书店，想要装备、元宝、的可别错过机会~！
SENDMSG 1 怪物：[祖玛教主]出现在土城书店，想要装备、元宝、的可别错过机会~！
SENDMSG 1 怪物：[祖玛教主]出现在土城书店，想要装备、元宝、的可别错过机会~！
SENDMSG 1 怪物：[祖玛教主]出现在土城书店，想要装备、元宝、的可别错过机会~！
SENDMSG 1 怪物：[祖玛教主]出现在土城书店，想要装备、元宝、的可别错过机会~！
图列： 织梦内容管理系统
这样，一个定时刷怪的活动脚本就完成了，是不是很简单呢？以上脚本大家可以直接复制使用，也可以根据个人的需要更改。&
阅读本文的人还阅读过下面的文章
热门相关信息
推荐相关信息
最新相关信息你的位置：
刚出炉的传奇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()

我要回帖

更多关于 传奇挂机刷元宝脚本 的文章

 

随机推荐