時間過久 不知道怎麼讓她重新收尋

電球 有人先點過球 就會停止 和球過遠會停止
有大大可以說一下 要在哪邊 加參數嗎@@"?
可以的話 幫忙說ㄧ下@@"
以下是我看別人用的 自己做修改
但是就是有時候會亂跑 和遇到有人點過 和球過遠就會停止
~~


Rem 開始
VBSCall FindPic(0,0,1024,768,"12323.bmp",0.7,x,y)
If x>=0 and y>=0
    MoveTo 320,149
    Delay 530
    LeftClick 1
    Delay 580
    MoveTo 357,281
    Delay 1200
    LeftClick 1
    Delay 200
    LeftClick 1
Else
    Goto 99
EndIf
Rem 99
VBSCall FindColorEx(0,0,1024,768,"fff1ff",1,0.9,x,y)
If x>=0 and y>=0
    MoveTo x y
    Delay 500
    LeftClick 1
Else
    Goto 2
EndIf
While
    VBSCall FindPic(0,0,1024,768,"123123.bmp",0.6,x,y)
    If x>=0 and y>=0
        Goto 3
    Else
        Goto 開始
    EndWhile
    Rem 3
    VBS j=0
    While j=0
        VBSCall FindColor(0,0,1024,768,"51b9ff",x,y)
        If X>0 and y>0
            IfColor x,y+10,"b6b6b6",0
                MoveTo 132,373
                Delay 50
                LeftClick 1
                VBS j=1
            EndIf
        EndIf
        Delay 50
    EndWhile
    Delay 5000
    VBS j=1
    While j=1
        VBSCall FindColorEx(0,0,1024,768,"ffc7b0",1,0.9,x,y)
        If X>0 and y>0
            MoveTo x y
            Delay 50
            LeftClick 1
            VBS j=0
        EndIf
        Delay 50
    EndWhile
    VBS j=1
    While j=1
        VBSCall FindPic(0,0,1024,768,"123123.bmp",0.8,x,y)
        If x>=0 and y>=0
            MoveTo x+25 y+10
            Delay 70
            LeftClick 1
            VBS j=0
        EndIf
        Delay 180
    EndWhile
    Rem 2
    For 3
        KeyPress 65,1
        Delay 400
    EndFor
    Delay 600
    Goto 開始
EndScript