Call 选角色4()
End Sub
Sub 选角色1()
    Var1=Form1.ComboBox1.ListIndex
    If Var1= 0 then
        Call 逍遥生()
    ElseIf Var1 = 1 Then
        Call 剑侠客()
    ElseIf Var1 = 2 Then
        Call 猛壮士()
    ElseIf Var1 = 3 Then
        Call 俏千金()
    ElseIf Var1 = 4 Then
        Call 飞燕女()
    ElseIf Var1 = 5 Then
        Call 英女侠()
    ElseIf Var1 = 6 Then
        Call 巨魔王()
    ElseIf Var1 = 7 Then
        Call 夺命妖()
    ElseIf Var1 = 8 Then
        Call 虎头怪()
    ElseIf Var1 = 9 Then
        Call 狐美人()
    ElseIf Var1 = 10 Then
        Call 骨精灵()
    ElseIf Var1 = 11 Then
        Call 小蛮妖()
    ElseIf Var1 = 12 Then
        Call 神天兵()
    ElseIf Var1 = 13 Then
        Call 龙战将()
    ElseIf Var1 = 14 Then
        Call 智圣仙()
    ElseIf Var1 = 15 Then
        Call 舞天姬()
    ElseIf Var1 = 16 Then
        Call 精灵仙()
    ElseIf Var1 = 17 Then
        Call 玄剑娥()
    ElseIf Var1 = 18 Then
        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 生成1()
End Sub
Sub 选角色2()
    Var1=Form1.ComboBox2.ListIndex
    If Var1= 0 then
        Call 逍遥生()
    ElseIf Var1 = 1 Then
        Call 剑侠客()
    ElseIf Var1 = 2 Then
        Call 猛壮士()
    ElseIf Var1 = 3 Then
        Call 俏千金()
    ElseIf Var1 = 4 Then
        Call 飞燕女()
    ElseIf Var1 = 5 Then
        Call 英女侠()
    ElseIf Var1 = 6 Then
        Call 巨魔王()
    ElseIf Var1 = 7 Then
        Call 夺命妖()
    ElseIf Var1 = 8 Then
        Call 虎头怪()
    ElseIf Var1 = 9 Then
        Call 狐美人()
    ElseIf Var1 = 10 Then
        Call 骨精灵()
    ElseIf Var1 = 11 Then
        Call 小蛮妖()
    ElseIf Var1 = 12 Then
        Call 神天兵()
    ElseIf Var1 = 13 Then
        Call 龙战将()
    ElseIf Var1 = 14 Then
        Call 智圣仙()
    ElseIf Var1 = 15 Then
        Call 舞天姬()
    ElseIf Var1 = 16 Then
        Call 精灵仙()
    ElseIf Var1 = 17 Then
        Call 玄剑娥()
    ElseIf Var1 = 18 Then
        Call 猎魂引()
    ElseIf Var1 = 19 Then
        Call 无崖子()
    ElseIf Var1 = 20 Then
        Call 祭剑魂()
    ElseIf Var1 = 21 Then