兰州2017最好的外围女:高手来帮我看一下在这个脚本有没有什么问题？？（热血江湖的）

x0=508
y0=420
Rem zhaoguai1
While n<99999999
VBS x=x0+8*(cos(n)+15*sin(n))
VBS y=y0+6*(sin(n)-15*cos(n))
VBSCall u0=GetPixelColor(x,y)
VBSCall Call SetCursorPos(x,y)@<stdlib.vbs>
VBSCall u1=GetPixelColor(x,y)
Delay 50
If u0<>u1
Goto zhaoguai2
EndIf
VBS n=n+0.12
EndFor
Rem xuelan
For 1000
VBSCall Call FindColor(150,150,750,650,"4026f6",x1,y1)
If x1<0 and y1<0
Goto zhaoguai1
EndIf
Delay 350
EndFor
Rem zhaoguai2
VBS x2=x0+2*(cos(n)+15*sin(n))
VBS y2=y0+0.5*(sin(n)-15*cos(n))
VBS n1=n-0.5
VBS x1=x0+8*(cos(n1)+15*sin(n1))
VBS y1=y0+6*(sin(n1)-15*cos(n1))
VBSCall Call SetCursorPos(x1,y1)@<stdlib.vbs>
VBSCall u3=GetPixelColor(x,y)
Delay 150
VBSCall Call SetCursorPos(x,y)@<stdlib.vbs>
VBSCall u2=GetPixelColor(x,y)
If u1＝u2 and u0=u3
LeftClick 1
Delay 100
Goto xuelan