//已改
        Delay 100
        LeftClick 1
        Delay 100
        MoveTo 502,480
        //已改
        Delay 100
        LeftClick 1
        Delay 100
        Str="购买回城符完成"
        Gosub 日志记录
    EndIf 
    KeyPress 27,1
    //回家园
    Delay 100
    Str="补充完毕准备回家园"
    Gosub 日志记录
    Delay 100
    KeyPress 9,1
    Delay 500
    MoveTo 554,300
    //已改
    Delay 100
    LeftClick 1
    KeyPress 27,1
    Delay 35000
    KeyPress 120,1
    Delay 100
    MoveTo 155,167
    //已改
    Delay 100
    LeftClick 1
    Delay 2000
    Rem 自宅
    VBSCall FindPic(26,176,1024,768,"Attachment:\zizhai.bmp",0.9,x,y)
    If x>0 and y>0
        MoveTo x y
        Delay 100
        LeftClick 1
    Else 
        Gosub 等待
        Goto 自宅
    EndIf 
    Delay 2000
    Rem 管理员
    VBSCall FindColorEx(230,350,265,424,"100cd8",1,0.8,x,y)
    //已修改为800X600
    If x>0 and y>0
        MoveTo x,y
        Delay 100
        LeftClick 1
    Else 
        Gosub 管理员
        Goto 自宅
    EndIf 
    Delay 2000
    Rem 进入庭院
    VBSCall FindPic(26,176,646,447,"Attachment:\进入庭院.bmp",0.9,x,y)
    If x>0 and y>0
        MoveTo x y
        Delay 100
        LeftClick 1
    Else 
        Gosub 等待
        Goto 进入庭院
    EndIf 
    Delay 3000
    Rem 检查庭院
    VBSCall FindPic(26,176,646,447,"Attachment:\庭院.bmp",0.9,x,y)
    If x>0 and y>0
        Str="回到庭院!!!!!!!!"
        Gosub 日志记录
    Else 
        Gosub 等待
        Goto 检查庭院
    EndIf 
Return 
Sub 日志记录
    t2=now
    Plugin Rest2=DBsoft.WriteTXT(""&t2&"    "&Str&"","c:/水浒Q传全自动采集："&t1&".txt",2)
Return 
Sub 等待
    Delay Ys*1000
    Str="遇卡!!!!!延时"&Ys&"秒"
    Gosub 日志记录
Return 
Sub OnScriptExit
    Plugin Rest2=DBsoft.WriteTXT("                 ","c:/水浒Q传全自动采集："&t1&".txt",2)
Return 
Rem MyEnd
EndScript