//===变量===
UserVar Var1=DropList{亚德炎:0|冰奈斯:1|瑟冥特克:2|雷沃斯:3|火焰赫瑞克:4|冰影阿奎利斯:5|亡魂默克尔:6|极光格雷林:7}=0  F1
UserVar Var2=DropList{亚德炎:0|冰奈斯:1|瑟冥特克:2|雷沃斯:3|火焰赫瑞克:4|冰影阿奎利斯:5|亡魂默克尔:6|极光格雷林:7}=1  F2
UserVar Var3=DropList{亚德炎:0|冰奈斯:1|瑟冥特克:2|雷沃斯:3|火焰赫瑞克:4|冰影阿奎利斯:5|亡魂默克尔:6|极光格雷林:7}=2  F3
UserVar Var4=DropList{亚德炎:0|冰奈斯:1|瑟冥特克:2|雷沃斯:3|火焰赫瑞克:4|冰影阿奎利斯:5|亡魂默克尔:6|极光格雷林:7}=3  F4
UserVar Var5=DropList{亚德炎:0|冰奈斯:1|瑟冥特克:2|雷沃斯:3|火焰赫瑞克:4|冰影阿奎利斯:5|亡魂默克尔:6|极光格雷林:7}=4  F5
UserVar Var6=DropList{亚德炎:0|冰奈斯:1|瑟冥特克:2|雷沃斯:3|火焰赫瑞克:4|冰影阿奎利斯:5|亡魂默克尔:6|极光格雷林:7}=5  F6
UserVar Var7=DropList{亚德炎:0|冰奈斯:1|瑟冥特克:2|雷沃斯:3|火焰赫瑞克:4|冰影阿奎利斯:5|亡魂默克尔:6|极光格雷林:7}=6  F7
UserVar Var8=DropList{亚德炎:0|冰奈斯:1|瑟冥特克:2|雷沃斯:3|火焰赫瑞克:4|冰影阿奎利斯:5|亡魂默克尔:6|极光格雷林:7}=7  F8
UserVar Var9=DropList{使用:0|不使用:1}=0 是否使用冰奈斯补血(使用后按F9补血,按住F10停止)
//===开始===
Rem 循环
WaitKey Down
If Down =112
    VBS X=Var1
    Gosub 要输出的精灵
ElseIf Down =113
    VBS X=Var2
    Gosub 要输出的精灵
ElseIf Down =114
    VBS X=Var3
    Gosub 要输出的精灵
ElseIf Down =115
    VBS X=Var4
    Gosub 要输出的精灵
ElseIf Down =116
    VBS X=Var5
    Gosub 要输出的精灵
ElseIf Down =117
    VBS X=Var6
    Gosub 要输出的精灵
ElseIf Down =118
    VBS X=Var7
    Gosub 要输出的精灵
ElseIf Down =119
    VBS X=Var8
    Gosub 要输出的精灵
ElseIf Down =120
    Gosub 使用冰奈斯补血
EndIf 
Goto 循环
//===子程序===
Sub 要输出的精灵
    If X = 0
        Gosub 亚德炎
    ElseIf X = 1
        Gosub 冰奈斯
    ElseIf X = 2
        Gosub 瑟冥特克
    ElseIf X = 3
        Gosub 雷沃斯
    ElseIf X = 4
        Gosub 火焰赫瑞克
    ElseIf X = 5
        Gosub 冰影阿奎利斯
    ElseIf X = 6
        Gosub 亡魂默克尔
    ElseIf X = 7
        Gosub 极光格雷林
    EndIf 
Return 要输出的精灵
Sub 亚德炎
    KeyPress 87,1
    KeyPress 83,1
    KeyPress 68,1
    KeyPress 77,1
Return 亚德炎
Sub 冰奈斯
    KeyPress 83,1
    KeyPress 87,1
    KeyPress 68,1
    KeyPress 77,1
Return 冰奈斯
Sub 瑟冥特克
    KeyPress 87,1
    KeyPress 83,1
    Delay 10
    KeyPress 83,1
    KeyPress 77,1
Return 瑟冥特克
Sub 雷沃斯
    KeyPress 87,1
    KeyPress 83,1
    KeyPress 87,1
    KeyPress 77,1
Return 雷沃斯
Sub 火焰赫瑞克
    KeyPress 87,1
    KeyPress 68,1
    KeyPress 83,1
    KeyPress 77,1
Return 火焰赫瑞克
Sub 冰影阿奎利斯
    KeyPress 87,1
    KeyPress 68,1
    Delay 10
    KeyPress 68,1
    KeyPress 77,1
Return 冰影阿奎利斯
Sub 亡魂默克尔