End If//         出现购买
         
            Else //找药店老板。点1
                If DateDiff("s",t点NPC,now)>11  then
                    t点NPC =now
                    goto 济世堂1
                End If
                Delay yc+ 200
                Goto t点NPC
            End If //找药店老板。点1   
        Else //找药店老板
            If DateDiff("s",T济世堂1,now)>11  then
                T济世堂1 =now
                goto 接任务1
            End if
            Delay yc+ 200
            Goto 济世堂1
        End If    //找药店老板
   
    ElseIf ditu="轮回" then    
        //   MessageBox "死亡//没写"
        KeyPress "F10", 1
        Delay yc+ 6000 
    ElseIf ditu="长安武器店" then  
        Call 修正偏移(391,388)
        Delay yc+ 1000 
    ElseIf ditu="张记布庄" then  
        Call 修正偏移(749,380)
        Delay yc+ 1000 
    Else //识别地图//未知地图
        KeyPress "F10", 1
        Delay yc+ 6000
    End if//识别地图
    
    goto 接任务1 
End Sub




Sub 覆盖帐号()
    txt="" 
    i=0 
    Rem z 
    // 欲写入的数据 
    neirong= zhanghaomima(zhwz-1) & fgf & zhanghaomima(zhwz)&fgf&"完成"
    // 写入第几行 
    jihang=ii+1
    If Len(txt行(i))>=1  /////3333333333
        If i=jihang-1/////4
            // 覆盖 
            txt = txt & neirong & vbCrLf 
        Else /////4
            txt = txt & txt行(i) &vbCrLf 
        End If /////4
        i=i+1 
        Goto z 
    Else /////3333333333
        If i<jihang/////5
            //If i<=jihang/////5
            MessageBox "少于"&jihang&"行.关闭脚本在开！" 
            Plugin.Media.Beep 2000,200

            EndScript 
        End If /////5
    End If /////3333333333
    // 删除旧文檔 
    Call Plugin.File.DeleteFolder(zhlj)
    // 储存新文檔 
    Call Plugin.File.WriteFileEx(zhlj,txt)

    //MsgBox "练完保存了"
    //EndScript//存完退出
    
End Sub
Sub 覆盖帐号封号()
    txt="" 
    i=0 
    Rem z 
    // 欲写入的数据 
    neirong= zhanghaomima(zhwz-1) & fgf & zhanghaomima(zhwz)&fgf&"帐号封号"
    // 写入第几行 
    jihang=ii+1
    If Len(txt行(i))>=1  /////3333333333
        If i=jihang-1/////4
            // 覆盖 
            txt = txt & neirong & vbCrLf 
        Else /////4
            txt = txt & txt行(i) &vbCrLf 
        End If /////4
        i=i+1 
        Goto z 
    Else /////3333333333
        If i<jihang/////5
            //If i<=jihang/////5
            MessageBox "少于"&jihang&"行.关闭脚本在开！" 
            Plugin.Media.Beep 2000,200
            EndScript 
        End If /////5
    End If /////3333333333