Delay 900
            IfColor 179,34,b5,1
                KeyPress 50,1
                Delay 240
            EndIf 
        EndFor 
        VBSCall FindPic(0,342,281,768,"Attachment:\配方win.bmp",0.8,fx,fy)
    EndWhile 
    Delay 128
    KeyPress 66,1
    Delay 92
Return 背包
Sub 死亡回城
    VBSCall FindPic(383,312,641,460,"Attachment:\死亡回程.bmp",0.8,Swx,Swy)
    If Swx>0 and Swy>0
        MoveTo Swx,Swy
        Delay 159
        For 10
            LeftClick 1
            Delay 128
        EndFor 
        VBSCall MessageBox("感谢使用,有什么问题请到<xiaolitxia@yahoo.com>")
        SaveString="从开启脚本到现在共打怪"&Gshu&""
        Gosub 保存日志
        If Zdj=1
            VBSCall Call RunApp("Shutdown.exe -s -t 30")
            Delay 10000
        EndIf 
    EndIf 
Return 死亡回城
Sub 自动加状态
    If Ztai>0
        For 4
            KeyPress 53,1
            Delay 500
            Gosub 自动红蓝
        EndFor 
    EndIf 
    Delay 100
    If Ztai>1
        For 4
            KeyPress 54,1
            Delay 500
            Gosub 自动红蓝
        EndFor 
    EndIf 
    Delay 100
    If Ztai>2
        For 4
            KeyPress 55,1
            Delay 500
            Gosub 自动红蓝
        EndFor 
    EndIf 
Return 自动加状态
Sub 拣东西
    For 10
        Gosub 自动红蓝
        KeyPress 52,1
        Delay 135
    EndFor 
Return 拣东西
Sub 打怪
    VBSCall gxue=GetPixelColor(293,35)
    While gxue=0000A5
        Gosub 背包
        For 3
            KeyPress 49,1
            Delay 200
            Gosub 紧急加血
        EndFor 
        Gosub 自动红蓝
        If datediff("s",t2,now)>Fka
            KeyPress 9,1
            Delay 200
            t2=now
        EndIf 
        If datediff("s",t1,now)>1650
            Gosub 自动加状态
            t1=now
        EndIf 
        Gosub 死亡回城
        VBSCall gxue=GetPixelColor(293,35)
    EndWhile 
Return 打怪
Sub 保存日志
    Set F1 =File.OpenTextFile(FileName,8)
    F1.WriteLine(Now&SaveString)
    F1.Close
Return 保存日志