杀怪加属性的脚本

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

[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 捡包

2. 传奇如何设置破秒杀属性，破无敌属性，和破防爆属性，或者脚本

你是开服的还是耍服的。如果你是开服的就把叫版本提供商把脚本改下。耍服的就只能联系GM了

3. 按键精灵如何把打怪和加血脚本组合在一起

很简单，将加血做成子程序，然后在打怪的主程序中调用加血子程序即可（实在对不起，你的提问太模糊了）。嘻嘻……以下是从按键9中复制过来的，请谅解！ Do
KeyPress "A", 1 '打怪攻击热键
Delay 200
Call 人物状态保护
//<>------------------------------------------防卡设置--------------------------<>
If DateDiff("s",t1,now) >= Form1.等待.Text Then
t1=now
Exit Do
End If
Delay 200
Loop
End If Sub 人物状态保护()
//<>--------------------------人物补血设置
If 血键 > 0 Then
IfColor 5+(10-5)*补血,5,"0000FF",0 Then '【坐标与颜色】需要自行修改
//补血热键
KeyPress 血键, 1
Delay 200
End If
End If
//<>--------------------------人物补蓝设置
If 蓝键 > 0 Then
IfColor 5+(10-5)*补蓝,10,"FF0000",0 Then '【坐标与颜色】需要自行修改
//补蓝热键
KeyPress 蓝键, 1
Delay 200
End If
End If
//<>--------------------------奶爸奶妈技能补血设置
If 技能键 > 0 Then
IfColor 5+(10-5)*补血,20,"0000FF",0 Then '【坐标与颜色】需要自行修改
//技能补血热键
KeyPress 技能键, 1
Delay 1000 '技能释放等待时间
End If
End Ifend sub

4. 传奇怎么写英雄杀怪经验倍数的脚本

#IF
#ACT
KILLMONEXPRATE 200 7200
SENDMSG 6 %s，你已经获得了2个小时双倍经验时间，如果掉线或死亡双倍时间将消失！

200是倍数 改下就好 比如 300是3倍
后面是时间以秒为单位

5. 求个寻仙 按键精灵脚本 自动打怪加血 剑的

http://www.pconline.com.cn/pce/soft/gj/others/0904/1634226.html
在那下载

6. 传奇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怪物!!
具体就这些
有不懂的地方请查看相关资料!!!也可追问!!!
希望对你有所帮助!!!!!!!!

7. 设置传奇杀怪经验倍数的脚本或者格式

KILLMONEXPRATE 倍率 有效时间
倍率 为杀怪经验倍数，倍数除以100为真正的倍率(200 为 2 倍经验，150 为1.5倍)

;==========================================
[@KILLMONEXPRATE]
#IF
#ACT
KILLMONEXPRATE 1000 600
#SAY
您当前杀怪经验倍数为 10倍，有效时间 600秒。