UC知道热血江湖打手定位精灵标本
来源：百度知道 编辑：UC知道 时间：2024/09/23 15:28:57
只需要打手定位标本，因为打手挂机拣完东西不能回到原来的位置老跑，很麻烦，所以想整个定位的．其他的不要，只需要表本．谢谢，
例如这个拣东西的标本：
[General]
Description=拣物
BeginHotkey=120
beginHotkeyMod=0
RunOnce=1
Enable=1
[Repeat]
Type=1
Number=3799960
[Comment]
Content=
[Script]
KeyPress 117 1
Delay 10
IfColor 35 22 422c29 2
只需要这些，其他不要，谢谢，只要能用100分送给你．
只需要定位脚本这一点，其他不需要，挂机打怪的我有，只是想在我的里面加上定位这一项，不需要那么多，谢谢．
例如这个拣东西的标本：
[General]
Description=拣物
BeginHotkey=120
beginHotkeyMod=0
RunOnce=1
Enable=1
[Repeat]
Type=1
Number=3799960
[Comment]
Content=
[Script]
KeyPress 117 1
Delay 10
IfColor 35 22 422c29 2
只需要这些，其他不要，谢谢，只要能用100分送给你．
只需要定位脚本这一点，其他不需要，挂机打怪的我有，只是想在我的里面加上定位这一项，不需要那么多，谢谢．
VBS dim mX1,mY1,mX2,mY2
Gosub 补红蓝
Gosub 读取坐标
VBS mX1=MapX
VBS mY1=MapY
SayExpression "("+CStr(mX1)+","+CStr(mY1)+")"+".准备好了没"
Rem 挂机开始
Gosub 补红蓝
Gosub 判断坐标
Gosub 找怪开始
KeyPress 120 1
Delay 100
Goto 挂机开始
Sub 找怪开始
Rem 继续
Gosub 补红蓝
KeyDown 120 1
Delay 80
KeyUp 120 1
MoveTo 1300 460
Delay 150
MoveTo 1300 460
Delay 140
MoveTo 513 460
Delay 20
LeftClick 1
Delay 100
KeyDown 114 1
Delay 100
KeyUp 114 1
Delay 50
Gosub 补红蓝
VBSCall Call FindColor(150,150,750,650,"1028FF",x1,y1)
If x1<0 and y1<0
Delay 50
Goto 继续
Else
Gosub 打怪
EndIf
Return 找怪开始
Sub 打怪
Rem KG
KeyDown 120 1
Delay 80
KeyUp 120 1