脚本杀怪

㈠ 按键精灵自动打怪脚本如何设置

[Script]
Plugin hwnd=Window.Foreground()
Import window.dll
VBSBegin
win=Window.Foreground()
client=Window.GetClientRect(win)
s=split(client,"|")
dx=s(0)
dy=s(1)
zx=s(2)
zy=s(3)
VBSEnd
Dim red,blue,bbred,redwait,bluewait,monwait,fqg,jb,a,b,c,k,q,s1,s2,s3,s4,s5,s6,s7,t1,t2,t3,t4,t5,t6,t7,t8,t9,t10
t1=now:t2=now:t3=now:t4=now:t5=now:t6=now:t7=now:a=0:b=0:c=0:q=0
UserVar fqg=DropList{防抢怪:0|不防抢怪:1}=0 防抢怪设置
UserVar jb=DropList{不捡包:0|自动捡包:1}=0 是否捡物
UserVar s1=2 门派普攻F1间隔(秒)
UserVar s2=20 单体攻击F2间隔(秒)
UserVar s3=20 单体攻击F3间隔(秒)
UserVar s4=25 怒气攻击F4间隔(秒)
UserVar s5=80 自定技能F5间隔(秒)
UserVar s6=60 BB技能F6间隔(秒)
UserVar s7=10 状态技能F7间隔(分)
UserVar red=DropList{30%:30|50%:50|70%:70}=1 血少于%加血F8
UserVar blue=DropList{30%:30|50%:50|70%:70}=0 蓝少于%加蓝F9
UserVar bbred=DropList{没有出战:0|20%:20|30%:30|50%:50}=2 宠少于%加血F10
UserVar redwait=1 红药冷却时间(秒)
UserVar bluewait=1 蓝药冷却时间(秒)
UserVar monwait=100 寻怪延时(毫秒)
PutAttachment .\plugin *.dll
Rem 开始
Delay monwait
Gosub 验证码
Gosub 找怪
If fqg=0
IfColor dx+369,dy+31,1E252A,2
Goto 开始
EndIf
EndIf
Rem 继续杀怪
Gosub 判断血蓝状态
Gosub BB血状态
Gosub 杀怪
Rem End
EndScript
Sub 验证码
Rem 再次报警
VBSCall FindPic(0,50,600,550,"Attachment:\yz1.bmp",0.9,x,y)
If x>0 and y>0
Plugin SimPlayer.ring(19)
//使用了声音插件，需要自己去官网下载
Delay 2000
EndIf
While x>0
VBSCall FindPic(0,300,600,550,"Attachment:\20S.bmp",0.9,x,y)
If x>=0 and y>=0
IfColor x+17,y+9-k,FFFFFF,0
KeyPress 27 1
Delay 1000
MoveTo dx+446,dy+315
Delay 1000
LeftClick 1
Goto End
EndIf
Else
Goto 再次报警
EndIf
EndWhile
Return 验证码
Sub 判断血蓝状态
IfColor red/100*120+66+dx,dy+31,222222,2
a=a+1
Else
EndIf
IfColor blue/100*120+66+dx dy+37 222222 2
b=b+1
Else
EndIf
Return 判断血蓝状态
Sub BB血状态
If bbred>0
IfColor bbred+91+dx dy+69 111111 2
c=c+1
EndIf
EndIf
Return BB血状态
Sub 找怪
KeyDown 1,1
Delay 10
KeyPress 9,1
Delay 10
KeyUp 1,1
Delay 10
Return 找怪
Sub 杀怪
IfColor dx+247,dy+31,0019FF,2
IfColor dx+261,dy+31,0011ff,2
Gosub 技能
Else
KeyPress 12 1
Delay 1000
EndIf
Goto 继续杀怪
Else
If jb=1
Gosub 捡包
Else
Goto 开始
EndIf
EndIf
Return 杀怪
Sub 怒气判断
IfColor qx+126,qy+43,00ffff,2
q=1
EndIf
IfColor qx+188,qy+43,00ffff,2
q=2
EndIf
Return 怒气判断
Sub 技能
Goto 开始
If DateDiff("s",t1,now)>=s1
KeyPress 12 1
t1=now
Delay 100
EndIf
IfColor dx+261,dy+31,0011ff,2
If DateDiff("s",t2,now)>=s2
Delay 500
KeyPress 113 1
t2=now
Delay 500
EndIf
Else
EndIf
IfColor dx+261,dy+31,0011ff,2
If DateDiff("s",t3,now)>=s3
Delay 500
KeyPress 114 1
t3=now
Delay 500
EndIf
Else
EndIf
Gosub 怒气判断
IfColor dx+261,dy+31,0011ff,2
If DateDiff("s",t4,now)>=s4 and q>=1
Delay 500
KeyPress 115 1
t4=now:q=q-1
Delay 500
EndIf
Else
EndIf
IfColor dx+261,dy+31,0011ff,2
If DateDiff("s",t5,now)>=s5
Delay 500
KeyPress 116 1
t5=now
Delay 500
EndIf
Else
EndIf
IfColor dx+261,dy+31,0011ff,2
If DateDiff("s",t6,now)>=s6
KeyPress 117 1
t6=now
Delay 100
EndIf
EndIf
If DateDiff("n",t7,now)>=s7
MoveTo dx+36,dy+35
LeftClick 1
Delay 100
KeyPress 118 1
t7=now
Delay 100
KeyDown 17,1
Delay 10
KeyPress 9,1
Delay 10
KeyUp 17,1
Delay 10
EndIf
If DateDiff("s",t8,now)>=redwait and a>=1
KeyPress 119 1
t8=now:a=0
Delay 500
EndIf
If DateDiff("s",t9,now)>=bluewait and b>=1
KeyPress 120 1
t9=now:b=0
Delay 500
EndIf
If DateDiff("s",t10,now)>=1 and c>=1
KeyPress 121 1
t10=now
c=0
Delay 500
EndIf
Return 技能
Sub 捡包
Dim v,i,n,d,l,m,a1,b1,a2,b2,shape,x0,y0,k1,k2,x1,y1
l=20:m=2:a1=dx+286:b1=dy+200:a2=dx+486:b2=dy+400:x0=dx+366:y0=dy+300:d=954439560
If x0-a1>=a2-x0
n=a1
Else
n=x0-(a2-x0)
EndIf
Rem 开始搜索
v=l
i=m
x1=x0:y1=y0-v
While x1>=n
k1=0:k2=v
For 2
For i
x1=x1+k1:y1=y1+k2
If x1>=a1 and x1<=a2 and y1>=b1 and y1<=b2
MoveTo x1,y1
Delay 2
VBSCall shape=GetCursorShape(0)
If shape=d
Delay 50
RightClick 1
Delay 400
Goto 开始
EndIf
EndIf
EndFor
k1=v:k2=0
EndFor
i=i+1:v=v*(-1)
EndWhile
Goto 开始
Return 捡包

㈡ 怎么用按键精灵制作自动杀人脚本。

按键精灵做连击脚本
1、123键的按法
所谓按法实际上就是各种代码方式
常见的有以下几种（time为延时，自己修改）
KeyPress 49,1（按一次1）
Delay time
KeyPress 50,1（按一次2）
Delay time
KeyPress 51,1（按一次3）
Delay time
KeyDown 49,1（按住1）
Delay time
KeyUp 49,1（弹起1）
Delay time
KeyDown 50,1（按住2）
Delay time
KeyUP 50,1（弹起2）
Delay time
KeyDown 51,1（按住3）
Delay time
KeyUp 51,1（弹起3）
Delay time
KeyDown 49,1（按住1）
Delay time
KeyUp 49,1（弹起1）
Delay time
KeyDown 50,1（按住2）
Delay time
KeyDown 51,1（按住3）
Delay time
KeyUP 50,1（弹起2）
Delay time
KeyUp 51,1（弹起3）
Delay time
2、设置循环
通常有2种方式，第一种是直接在制作时候选择循环方式。第二种用rem标记，然后在代码结束时用goto来返回。区别不大，有时2种同时测试会产生意外的效果
网络文库用户有奖调查
1/2
3、间隔时间
写奇迹连击脚本，关键之处在于时间间隔，每种按法所对应的时间间隔是不同的，最直接能观察出脚本好坏的，就是在本机观察连击后产生的光圈。光圈清晰，如环状爆出的，说明时间间隔和攻击速度偏差大，光圈射出针状的零星散光时，说明技能的间隔之间最佳，在单位时间内所爆出的次数也最多。要想搞出bt脚本就要耐心在这里做观察了！！
技能的时间间隔，武器技能为1号位置时，间隔时间要控制在释放1次技能所需时间以上，回旋/雷霆的时间间隔要控制在释放1次技能所需时间以下，袭风的间隔则要保正在释放2次所需时间以上，具体多少需要自己在游戏中找了，一般时间间隔以毫秒为标准，以10毫秒为一阶段修改，当修改到1秒能能出1次连击且次数稳定时，将武器技能的修改值精确到5毫秒，雷霆霹雳修改值为2毫秒，袭风修改值为3毫秒。
4、代码的实际运用
第1点中的代码只是给大家的几中基本形式，代码可以几种混合，或者在原有的基础上减少，但有一点必须明白，每一次的按键中至少需要2个或以上的键完成全动作，即按下弹起。上述的2、3类型代码，弹起后的延时设置范围控制在1-80毫秒间（最后一个延时1-150毫秒），一般来说偏小不偏大。而按下代码后的延时，则是活动性比较大的，可以根据敏捷以反比例下调，在测试代码时候，也是以这几个延时为主要修改点的
大致先到这里，可能我表达的也不够理想，反正意思到了，看大家领悟。连击脚本就是123，但十几毫秒差别就能决定你杀人或被杀，一般脚本在写完后最好的测试环境就是直接去pk，尽量是在无补丁和辅助的情况下，通常好的脚本都是在无数次的实战中才能产生的，切记不要用怪或组队去尝试写，战斗永远充满变数的。

[Script]
KeyPress 49 1
Delay 250
KeyPress 50 1
KeyPress 51 1
Delay 120

㈢ 传奇任务脚本怎么写我

A: NPC领取杀怪任务100只，当杀怪达到100只的时候回来NPC处领取奖励
B:人物在某地图杀怪提示。即每杀一只怪 聊天框 就提示你目前杀怪总数为:
C:当杀怪达到100只，；聊天框提示：杀怪总数完成，请回去领取奖励

A 用到自定义变量
B 用到杀怪触发
C 一样杀怪触发
临时写的 看下面的
[@main]
#if
#say
<领取杀怪100任务/@领取> <任务完成领取奖励/@奖励>
[@领取]
#if
Check [100] 0
#act
set [100] 1
SENDMSG 6 提示:任务领取完毕,请尽快完成.
#elseact
SENDMSG 6 提示:草，领取过的还来捣乱，劳资干死你.
break
[@奖励]
#if
CHECKVAR HUMAN SGCF > 99
#act
set [100] 0
CREDITPOINT + 5
SENDMSG 6 提示:任务完成奖励声望+5.
CALCVAR HUMAN SGCF = 0
SAVEVAR HUMAN YUAN ..\QuestDiary\数据文件\变量数据.txt
#elseact
SENDMSG 6 提示:草，任务未完成，还想要奖励，滚.
break
-----------------------------------------------------------------------------
登陆脚本如下:
请在mirserver\Mir200\Envir\QuestDiary\数据文件\ ---目录下建立一个[变量数据.txt]的文本
如果没有的话就自己创建
[@login]
#if
CHECKLEVELEX > 0
#act
VAR Integer HUMAN SGCF
LOADVAR HUMAN SGCF ..\QuestDiary\数据文件\变量数据.txt
-----------------------------------------------------------------------------
杀怪触发:
mirserver\Mir200\Envir目录下MapQuest.txt文本,添加如下一行:
3 [035] 0 沃玛教主 * Q016

上面的3代表杀怪所在的地图号,沃玛教主代表杀的怪物名称,可以自己修改
Q016对应的是mirserver\Mir200\Envir\MapQuest_Def 里面的文本
意思就是这里写Q016那么MapQuest_Def目录下触发的文本名称也必须是 Q016.txt
总之最后你写什么那么MapQuest_Def目录下就必须创建一个相对应的名称txt文本
-----------------------------------------------------------------------------
mirserver\Mir200\Envir\MapQuest_Def\Q016.txt 里面的文本内容如下:
[@main]
#IF
CHECKVAR HUMAN SGCF > 99
#ACT
mapmove 3 333 333
SENDMSG 6 提示:任务完成.
#elseact
CALCVAR HUMAN SGCF + 1
SAVEVAR HUMAN YUAN ..\QuestDiary\数据文件\变量数据.txt
messagebox 您的当前杀怪数量为：<$HUMAN(SGCF)>
break

3K的，方法一样

㈣ 传奇脚本。杀死怪物触发传送至某个地图。MapQuest_def和MapQuest.txt都加了相应的文件，也实现不了

MapQuest
是在某地图触发某种功能，当然你也可以运用到杀怪触发上。

简单的方法：
你可以在QFunction-0.txt文本内添加以下内容。
[@杀怪传送]
#IF
CheckKillMonName 白野猪
#ACT
mapmove 3 330 330
你可以把白野猪换成你想设置的怪物名称。

利用地图触发的方法：
你在MapQuest_def文件夹里添加的东西应该是正确的，但是需要在MapInfo.txt文本内添加需要触发的自定义脚本头部名称。
例如：
[0 比奇省] RUNMON SHAGUAI
然后在MapQuest_def文件夹内添加一个SHAGUAI文本，把脚本内容写好就可以了
这种方法主要是指定某个地图做某个触发，和上面的相比更准确一些。

㈤ 传奇HERO引擎添加杀怪奖励物品任务脚本如何写出。

首先
在
QManage.txt
进行申明和读取自定义变量
[@gwre]
这里自己定义
#act
var
integer
human
杀怪任务
翻译
申明私有变量
杀怪任务
loadvar
human
杀怪任务
..\QuestDiary\任务\杀怪任务.txt
翻译
读取私有变量
杀怪任务
路径
然后在你的
该任务的NPC脚本中添加
checkvar
human
杀怪任务
>10
翻译
检测自定义私有变量
杀怪任务
中数值是否大于10
然后脚本的意思就是
检测
杀某样怪物的数量
是否达到规定数
达到的话
给与
没达到不给与
等等
这我就不写了
你自己慢慢改吧!
第三步
:在MapQuest.txt
中添加
按照下列格式
加
请
自定义内容(在这里设定
某地图中的任务怪物
和执行脚本名称!!)
地图号
变量名称
1
怪物名称
*
脚本文件名称
(这个脚本文件名称
在下面给你介绍)
D713
[192]
1
红野猪7
*
Q40
这段
脚本内容
指向的是
MapQuest_def
文件夹
在MapQuest_def
文件夹下
创建
Q40.txt文件
(自己定义)
然后在
Q40.txt
添加
[@main]
#if
checkvar
human
杀怪任务
>10
翻译:检测自定义私有变量
杀怪任务
数值是否大于10
#act
翻译
是,则执行
sendmsg
7
您当前已经杀死足够的xx怪物
请找任务NPC提交任务!!
break
#elseact
翻译
不是则执行
calcvar
human
杀怪任务
+
1
翻译
修改自定义变量
杀怪任务
变量
+1
savevar
human
杀怪任务
..\QuestDiary\任务\杀怪任务.txt
翻译
保存
杀怪任务
变量
sendmsg
7
当前您已经杀死<$human(杀怪任务)>个XX怪物!!
具体就这些
有不懂的地方请查看相关资料!!!也可追问!!!
希望对你有所帮助!!!!!!!!

㈥ 传奇私服杀怪任务脚本

首先在D:\mirserver\Mir200\Envir下的MapQuest.txt里面写 0 [001] 0 稻草人 * Q001
意思是在比奇杀稻草人就转到脚本Q001
再在D:\mirserver\Mir200\Envir\MapQuest_Def里面建立Q001.TXT
里面写
[@main]

#IF
#ACT
CALCVAR HUMAN 稻草人 + 1
SENDMSG 6 您已经杀死了稻草人：<$HUMAN(稻草人)>/20只
SAVEVAR HUMAN 稻草人 ..\QuestDiary\数据文件\稻草人.txt

#IF
CHECKVAR HUMAN 稻草人 > 19
#ACT
SENDMSG 6 你已经消灭了20只稻草人
CALCVAR HUMAN 稻草人 - 20
SAVEVAR HUMAN 稻草人 ..\QuestDiary\数据文件\稻草人.txt
CHANGEEXP + 20000
break