求SD敢达刷单机任务1脚本

以下是敢达的脚本
[Script]
Rem 查找准备标记
Delay 300
MoveTo 0 0
x = -1
y = -1
While x = -1 and y = -1
VBSCall FindPic (0,0,1024,768,"准备标记.bmp",1,x,y)
EndWhile
Delay 100
Delay 100
x = -1
y = -1
a = 0
While x = -1 and y = -1
VBSCall FindPic (0,0,1024,768,"充电提示.bmp",1,x,y)
Delay 100
a = a+1
If a > 5
Goto 查找本机位置
EndIf
EndWhile
Delay 100
Goto 查看自己是否房主
Rem 查找本机位置
Delay 100
x = -1
y = -1
intx = -1
inty = -1
tx = -1
ty = -1
While x = -1 and y = -1
VBSCall FindPic(0,0,1024,734,"拳头.bmp",1,x,y)
VBSCall FindPic(0,0,1024,734,"布.bmp",1,intx,inty)
If intx > 0 and inty > 0
Delay 100
MoveTo intx+60 inty+120
Delay 100
RightClick 1
Delay 100
Goto 找充电选项
EndIf
VBSCall FindPic(0,0,1024,734,"剪刀.bmp",1,t