Call 猎魂引()
    ElseIf Var1 = 19 Then
        Call 无崖子()
    ElseIf Var1 = 20 Then
        Call 祭剑魂()
    ElseIf Var1 = 21 Then
        Call 夜溪灵()
    ElseIf Var1 = 22 Then
        Call 幽梦影()
    ElseIf Var1 = 23 Then
        Call 墨衣行()
    End if
    Call 生成4()
End Sub
Sub 生成1()
            Delay YanShi
SayString a6
            Delay YanShi
    MoveTo 246, 435
                Delay YanShi
    LeftClick 1
                Delay YanShi
    Delay 5000
    KeyDown 17, 1
    KeyPress 117, 1
    KeyUp 17, 1
                    Delay YanShi
    Call 运行2()
End Sub
Sub 生成2()
            Delay YanShi
SayString a7
            Delay YanShi
    MoveTo 246, 435
                Delay YanShi
    LeftClick 1
                Delay YanShi
    Delay 5000
    KeyDown 17, 1
    KeyPress 117, 1
    KeyUp 17, 1
                    Delay YanShi
    Call 运行3()
End Sub
Sub 生成3()
            Delay YanShi
SayString a8
            Delay YanShi
    MoveTo 246, 435
                Delay YanShi
    LeftClick 1
                Delay YanShi
    Delay 5000
    KeyDown 17, 1
    KeyPress 117, 1
    KeyUp 17, 1
                    Delay YanShi
    Call 运行4()
End Sub
Sub 生成4()
            Delay YanShi
SayString a9
            Delay YanShi
    MoveTo 246, 435
                Delay YanShi
    LeftClick 1
                Delay YanShi
    Delay 5000
    KeyDown 17, 1
    KeyPress 117, 1
    KeyUp 17, 1
                    Delay YanShi
    Call Plugin.Media.Beep(1976, 1200)
    Call Plugin.Media.Beep(1976, 1200)
    Call Plugin.Media.Beep(1976, 1200)
    Call Plugin.Media.Beep(1976, 1200)
    MessageBox "登陆已完成！谢谢使用皓天网游工作室软件！"
End Sub
Sub 逍遥生()
    Delay YanShi
    Rem c1
    IfColor 135,201,"212421",0 Then
        Delay YanShi
        MoveTo 192, 95
        Delay YanShi
        LeftClick 1
        Delay YanShi
    Else
        Goto c1
    End If
End Sub
Sub 剑侠客()
    Delay YanShi
    Rem c2
    IfColor 192,95,"BDD7FF",0 Then
        Delay YanShi
        MoveTo 150, 211
        Delay YanShi
        LeftClick 1
        Delay YanShi