SayString "ok"
        KeyPress 13,1
    EndIf 
EndWhile 
j=1
While j=1
    k=1
    l=1
    While l=1
        VBSCall FindPic (760,11,1019,47,"Attachment:\确定2.bmp",0.7,x,y)
        If x>=760  and y>=11
            KeyPress 13,1
            SayString "ok"
            KeyPress 13,1
        EndIf 
    EndWhile 
    If k>=5
        KeyPress 17,1
        Delay 2500
        KeyPress 17,1
    EndIf 
    k=k+1
    KeyPress 88,1
    KeyPress 83,1
    VBSCall FindPic (700,610,771,631,"Attachment:\确定2.bmp",0.5,x,y)
    If x>=700 and y>=610
        Delay 2000
        KeyPress 27,1
        VBS =2
    EndIf 
    Delay 2000
EndWhile 
//退出战斗画面
Delay 1000
MoveTo 58,589
Delay 1000
LeftClick 1