lugin.Window.MousePoint()
sRect = Plugin.Window.GetClientRect(Hwnd)
acc=Split(srect,"|"):ux=acc(0):uy=acc(1)
MsgBox ux
MsgBox uy
UserVar b=droplist{"手动起跳":0|"自动起跳":1}=1 "起跳/投掷设置"
UserVar ms=droplist{"跳远":0|"标枪":1|"跑步":2|"全套":3}=3 "运动选择"
ys=array("00fds0","4f4367")
i=0
UserVar c=10 "次数"
If ms=0
a=0
End if
If ms=1
a=1
End if
If ms=2
a=2
End if 
If ms=3
a=0
End if
Rem 左右
While true
//确定
FindCenterColor ux+100,uy+365,ux+659,uy+375,"fcc40b",intX,intY
If intX > 0 And intY > 0 Then
KeyPress 32,1
Delay 100
Goto 结束
End If
//起跳
If a=0
IfColor ux+377,uy+149,ys(b),0
Delay 850
keypress 32,1
Delay 800
KeyPress 32,1
End if
End if
//投掷
If a=1
IfColor ux+377,uy+149,ys(b),0
Delay 800
KeyDown 32,1
Delay 750
KeyUp 32,1
End if
End if
//左右按键
IfColor ux+245,uy+156,"4f4367",0
KeyPress 37,1
Delay 40
End If
IfColor ux+499,uy+155,"4f4367",0
KeyPress 39,1
Delay 40
End If
endwhile
Rem 结束
Delay 2000
While true
IfColor ux+364,uy+355,"ffcc00",0
KeyPress 32,1
Delay 200
Goto 等
End if
Endwhile
Rem 等
While true
IfColor ux+596,uy+151,"f4f9fd",0
Delay 200
MoveTo ux+565,uy+336
LeftClick 1
i=i+1
If i>=c
 If ms=3
 a=a+1
 i=0
 Else
 EndScript
 End if
End if
Goto 跳远
End if
Delay 50
Endwhile
//跳远
Rem 跳远
Delay 1000
MoveTo ux+529-142*a,uy+251
LeftClick 1
Delay 400
//289,267   试验473，253
MoveTo ux+289,uy+267
LeftClick 1
Delay 400
MoveTo ux+563,uy+363
LeftClick 1
Delay 400