Delay 200
            LeftClick 1
            Delay 1000
        elseIf i = 8 Then 
            MoveTo 520, 330 //选择角色8
            Delay 200
            LeftClick 1
            Delay 1000 
        End If
    Else 
        MouseWheel -1
        Delay 100
        MouseWheel -1
        Delay 100
        If i = 9 Then 
            MoveTo 130, 150 //选择角色9
            Delay 200
            LeftClick 1
            Delay 1000
        elseIf i = 10 Then 
            MoveTo 260, 150 //选择角色10
            Delay 200
            LeftClick 1
            Delay 1000
        elseIf i = 11 Then 
            MoveTo 390, 150 //选择角色11
            Delay 200
            LeftClick 1
            Delay 1000
        elseIf i = 12 Then 
            MoveTo 520, 150 //选择角色12
            Delay 200
            LeftClick 1
            Delay 1000
        elseIf i = 13 Then 
            MoveTo 130, 330 //选择角色13
            Delay 200
            LeftClick 1
            Delay 1000
        elseIf i = 14 Then 
            MoveTo 260, 330 //选择角色14
            Delay 200
            LeftClick 1
            Delay 1000
        elseIf i = 15 Then 
            MoveTo 390, 330 //选择角色15
            Delay 200
            LeftClick 1
            Delay 1000
        elseIf i = 16 Then 
            MoveTo 520, 330 //选择角色16
            Delay 200
            LeftClick 1
            Delay 1000 
        End If
    End If
    MoveTo 321, 447   //开始游戏
    Delay 800
    LeftClick 1
    Delay 5500
End Sub

Sub 界面(菜单, 选单)
    //菜单为左起第一至第五，用数字1至5表示
    //选单为向上第一至第九，用数字1至9表示
    KeyPress "Esc", 1
    Delay 100
    KeyPress "Esc", 1
    Delay 200
    KeyPress "Esc", 1
    Delay 200
    MoveTo 391, 460 //第一个技能位坐标
    Delay 200
    xx = 284 + 18 * (菜单-1)
    yy = 420 - 26 * (选单 - 1)
    MoveTo xx, 460  //菜单
    Delay 200
    LeftClick 1
    Delay 200
    MoveTo 284, yy  //选单
    Delay 200
    LeftClick 1
    Delay 200
End Sub

Sub 定位窗口()
    Delay 500
    //下面的内容是将地下城的窗口移动到左上角
    Hwnd = Plugin.Window.Find(0, "地下城与勇士.exe")
    Call Plugin.Window.Active(Hwnd)
    Hwnd = Plugin.Window.MousePoint()
    Call Plugin.Window.Move(Hwnd, 0, 0)
    Delay 1000
    //以下内容激活游戏窗口 必须先修改键盘wasd 任务]
    MoveTo 38, 435  //血量的位置
    Delay 500
    LeftClick 1
    Delay 800
End Sub