VBS ts=0
Sub 1
Delay 1000
VBSCall FindColorEx(0,0,1024,800,"ba8312",1,0.6,x,y)
If x>=0 and y>=0
MoveTo x y
Delay 50
LeftClick 1
For 100
KeyPress 49,1
Delay 200
EndFor
Gosub 1
Else
Gosub 2
Sub 2
For 1
KeyDown 65,1
Delay 300
KeyUp 65,1
VBSCall FindPic(863,440,1028,633,"stop.bmp",0.6,x,y)
If x>=0 and y>=0
Gosub STOP
Else
VBS ts=ts+1
Gosub 3
EndIf
EndFor
Sub 3
If ts =<3
Gosub 1
Else
Gosub 4
Sub 4
VBS ts=0
KeyDown 65,1
Delay 300
KeyUp 65,1
Delay 1000
MoveTo 324,188
Delay 500
LeftClick 1
Delay 5000
Gosub 1
Sub STOP
Delay 1000
MoveTo 941,579
Delay 500
LeftClick 1
Delay 50
KeyDown 65,1
Delay 800
KeyUp 65,1
Delay 500
MoveTo 324,188
Delay 500
LeftClick 1
Delay 5000
Gosub 1
此外掛功能除了自動尋怪還加入了如果找不到怪,會自己走到另一地點尋怪,另外如果角色走到出口,也會自動拒絕回到地圖自動尋怪,分享給各位哦! |