End Sub
Sub 写坐标(x,y)
    t点王母=now
    Rem 写坐标1
    Call 打开地图
    

    FindPic 0,0,200,295,"c:\XYW\大地图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        call 修正偏移(intX+3,intY+9) 
        Delay yc+ 1000
        FindPic 0,0,200,295,"c:\XYW\点坐标.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then
            call 修正偏移(intX+38,intY+245)
            Delay yc+ 30
            KeyPress "BackSpace", 5
            Delay yc+ 30
            SayString x
            Delay yc+ 50
            KeyPress "Enter", 1
            //      call 修正偏移(162,387)
            Delay yc+ 30
            KeyPress "BackSpace", 5
            Delay yc+ 30
            SayString Y
            Delay yc+ 30
            KeyPress "Enter", 3
            Delay yc+ 30
            Call 关闭地图
        Else 
            Delay yc+ 200
            Goto 写坐标1
        End If

    Else 
        If DateDiff("s",t点王母,now)>11 Then 
            t点王母=now      
            Call 打开地图 
        End if 
        Delay yc+ 200
        Goto 写坐标1
    End If

End Sub
Sub 疲敝()
    Call 关闭道具
    FindPic 0,0,807,621,"c:\XYW\显示.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
    Else 
        KeyDown 18, 1
        KeyPress 52, 1
        KeyUp 18, 1

        KeyDown 18, 1
        KeyPress 53, 1
        KeyUp 18, 1
        KeyDown 18, 1
        KeyPress 53, 1
        KeyUp 18, 1

    End If
End Sub
Sub 关闭地图()
    Rem 关闭地图
    FindPic 0,0,807,621,"c:\XYW\大地图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        KeyPress "Tab", 1
        Delay yc+ 200
        Goto 关闭地图
    Else 
    End If
    rem 点坐标
    FindPic 0,0,807,621,"c:\XYW\点坐标.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        KeyPress "Tab", 1
        Delay yc+ 200
        Goto 关闭地图
    Else 
    End If   
End Sub
Sub 按F1()
    KeyPress "F1", 1
    Delay yc+ 200    
    Call 修正偏移(165,323)
    Delay yc+ 200
    KeyDown 18, 1
    KeyPress 65, 1
    KeyUp 18, 1

End Sub
Sub 去掉空行和空格()
    //lj=Plugin.Sys.GetDir(0)//获取小精灵当前路径
    //判断帐号文件存在不
    //lj = Replace(lj, "plugin","")//当前路径
    //MsgBox lj
    //zhlj = lj& "帐号.txt"//帐号路径

    zz = Plugin.File.ExistFile(zhlj)
    If zz=1 then
    Else