Question

魔兽世界复活脚本

谁知道哪里可以下载到 无限虚弱复活的脚本 加分
或者帮我做一个按键精灵的 只要能自己释放灵魂然后找天使姐姐虚弱复活就好了
我需要找天使姐姐虚弱复活的

Answer 1

魔兽世界 自动复活脚本2007-06-21 00:56//赶尸人

//用于魔兽世界中角色死后，自动找尸体

//请把wow设为1024*768分辨率

//本脚本由古楼居士编写，运行于按键精灵之中

a=0
xc=937
yc=92
pp=3.1415
r=4
r1=55
VBS Dim x(360)
VBS Dim y(360)
VBS Dim y1(360)
VBS Dim x1(360)
VBS Dim color(360)
Rem 初始化坐标
iii=0
iw=0
For 360
VBS x(a)=Int(r*cos(2*a*pp/380)+xc)
VBS y(a)=Int(r*sin(2*a*pp/360)+yc)
VBS x1(a)=Int(r1*cos(2*a*pp/360)+xc)
VBS y1(a)=Int(r1*sin(2*a*pp/360)+yc)
a=a+1
EndFor
While iw<100
Rem 面北
iii=0
ccc1=0
cc1=0
Delay 50
VBSCall ccc1=GetPixelColor(938,81)
Delay 50
While iii<360
KeyDown 39,1
Delay 14
KeyUp 39,1
VBSCall cc1=GetPixelColor(938,81)
If ccc1=cc1
Else
iii=361
EndIf
iii=iii+1
EndWhile
i=0
Rem 找方位
i=0
For 360
i=i+1
x2=0
y2=0
VBSCall Call FindColorEx(x1(i)-3,y1(i)-3,x1(i)+3,y1(i)+3,"12216e",1,0.8,x2,y2)
If x2>1
jd=i
EndIf
EndFor
Rem 转向
KeyDown 39,1
Delay (5+jd/1000)*(jd+90)
KeyUp 39,1
iiiw=0
While iiiw<10
ccc=0
iiiw=iiiw+1
Rem 跑位
//做标记
oldccc=GetPixelColor(940,50)
KeyDown 38,1
Delay 1500
KeyUp 38,1
Rem 是否复活
IfColor 482 177 00006f 0
iw=999
EndScript
EndIf
VBSCall ccc=GetPixelColor(940,50)
//查标记 没跑动 就退出 再定向
If ccc=oldccc
KeyDown 40,1
Delay 1000
KeyUp 40,1
KeyDown 39,1
Delay 500
KeyUp 39,1
KeyDown 38,1
Delay 4000
KeyUp 38,1
iiiw=999
EndIf
EndWhile
iw=iw+1
Rem 进入第二轮 调整角度
EndWhile

http://hi.baidu.com/gljs/blog/item/122cdcc4434e91c939db49bc.html

Answer 2

这个脚本基本上很难找了，祝你好运