end if 
End Sub
Sub 关闭任务()
    Rem 关闭任务1

    FindPic 0,0,807,621,"C:\XYW\任务栏.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then//进入游戏
        KeyDown 18, 1
        KeyPress 81, 1
        KeyUp 18, 1
        Delay yc+ 400
        Goto 关闭任务1
    Else 
    end if 
End Sub
Sub 打开人物()
    Rem 打开人物1

    FindPic 0,0,807,621,"C:\XYW\人物.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then//进入游戏
    Else 
        KeyDown 18, 1
        KeyPress 87, 1
        KeyUp 18, 1
        Delay yc+ 1200
        Goto 打开人物1
    end if 

End Sub
Sub 关闭人物()

    Rem 关闭人物1

    FindPic 0,0,807,621,"C:\XYW\人物.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then//进入游戏
        KeyDown 18, 1
        KeyPress 87, 1
        KeyUp 18, 1
        Delay yc+ 1200
        Goto 关闭人物1
    Else 
    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
    Else 
        KeyPress "Tab", 1
        Delay yc+ 300
        Goto 打开地图
    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
    Else 
        KeyDown 18, 1
        KeyPress 79, 1
        KeyUp 18, 1

        Delay yc+ 200
        Goto 打开召唤
    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
        KeyDown 18, 1
        KeyPress 79, 1
        KeyUp 18, 1
        Delay yc+ 200
        Goto 关闭召唤
    Else 

    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
        KeyDown 18, 1
        KeyPress 56, 1
        KeyUp 18, 1
        Delay yc+ 500
        Goto 取消自动

    End if
End Sub
Sub 物理攻击()
    KeyDown 18, 1
    KeyPress 65, 1
    KeyUp 18, 1
    Delay 100
    KeyDown 18, 1
    KeyPress 65, 1
    KeyUp 18, 1