請大大幫我看這個腳本問題(真女神轉生撿球球)

Rem 嶱宎
VBSCall FindPic(0,0,1024,768,"die.bmp",0.7,x,y)
If x>=0 and y>=0
    MoveTo 759,514
    Delay 530
    LeftClick 1
    Delay 580
    MoveTo 774,648
    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
    Delay 500
    LeftClick 1
Else
    Goto 2
EndIf
While
    VBSCall FindPic(0,0,1024,768,"stop.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 241,477
                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,"1.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 嶱宎


每次執行不到五分鐘人物就會跑偏不然就是會停住不執行
有哪位大大可以幫我看看哪邊需要修改的
拜託了

我都不識哦,不過見你個貼冇人理,幫你頂下YCT42B YCT42B

While
    VBSCall FindPic(0,0,1024,768,"stop.bmp",0.6,x,y)
    If x>=0 and y>=0
        Goto 3
    Else
        Goto 嶱宎
EedIf
//第33行再增加這句EedIf看看
EndWhile