先说明，帖子会引起若干人的不快，爱看看，不吵架

习惯了白天投死人的规则+初始人数多的原罪+表现辩论能力的优越感=不断的自爆地球人阵营
自认为地球阵营身份高，努力做高，高到可以让对面的人可以很容易比你低而又不像对面的阵营
做了个模拟，这个规则下（注意，这个规则没有投死人的设计，这是关键差异），到一方的刀全部挂掉或者有一方直接可以宣判胜利。
前3天
如果大家都不跳阵营，地球人的胜利37%，3体人39%，一起团灭16%，剩下的概率还是僵持。（由于随机性，可以认为大家差不多）
如果大家都跳阵营（当然是跳地球，有人跳3体？哈？），地球初始人多，总会有人很喜欢无上限的跳，明的不得了，3体总会有顾忌。于是3体歪刀率大降。模拟结果，地球人胜率10%，3体人82%

如果看得懂代码又需要的请举手，我发出来

看到规则，就没认真去思考和以前规则不一样的地方，差别这么大，真的以胜负为目标，前3天请做个安静的人，3天之后才是你们的表演场
然而事实呢？
好吧，其实游戏还没开始，这就是可见的情况，玩杀人很多人是为了展示表达能力的优势，胜负什么的，其实也是次要。正如我不承认你们要求的杀贴风格是个标准，我觉得不是，你们要强加于我，我表示好吧只因为天神改要求了。在我看来，前3天活蹦乱跳，主动做高到最高层次的地球身份就是送对面胜利，而你们中的某些人的确这么做了，我就呵呵，等你们被砍吧砍吧。当然假跳到这边，感觉身份上限又很高，被eto砍到机会大大降低的另外一些你们会很开心。
基本上，从游戏未开始就可以预见到这种情况，抽到地球阵营的时候，我很不是开心。于是为了玩的开心，我就安静的呵呵着，看着反正说不服的队友们争着暴露身份。

最后，其实不想吵架，就是想说，包容，当你看不习惯别人一些行为的时候，说不定被人也有看不惯你的行为，看不惯就算了，推动规则改变也成，但是规则顺你心意到某种程度，陪你玩的人可能就会变少
年轻的时候难被说服，年纪大了如果不能从我的道理角度上说服我，那会更难被说服

Sub a()

Randomize

Dim a(13) As Integer
Dim earth As Integer
Dim three As Integer
Dim all As Integer
Dim Knifee As Integer
Dim Knifet As Integer

n = 1

For j = 1 To 10000

Cells(n, 1) = "开始出刀"
n = n + 1
For i = 1 To 13
    a(i) = 1
Next
earth = 8
three = 5
all = 13
Knifet = 0
Knifee = 5
dday = 1

Do
    Do
        Knifet = Knifet + 1
        If Knifet = 4 Then Knifet = 1
    Loop Until a(Knifet) = 1                                                    //3体出刀人
    Do
        Knifee = Knifee + 1
        If Knifee = 9 Then Knifee = 6
    Loop Until a(Knifee) = 1                                                  //地球出刀人

    ke = Int(Rnd() * 13 + 1)
    Do Until ke <> Knifee And a(ke) = 1
        ke = Int(Rnd() * 13 + 1)
    Loop                                                                    //被地球人砍中
    kt = Int(Rnd() * 8 + 6)
    Do Until kt <> Knifet And a(kt) = 1
        kt = Int(Rnd() * 8 + 6)                                  //如果是大家都不跳阵营，kt=Int(Rnd() * 13 + 1)
    Loop
    a(ke) = 0
    Cells(n, 1) = Knifee & "刀了" & ke
    n = n + 1                                                          //cout<<endl;
    a(kt) = 0
    Cells(n, 1) = Knifet & "刀了" & kt
    n = n + 1
    If ke = kt Then
        all = all - 1
        If ke > 5 Then
            earth = earth - 1
        Else
            three = three - 1
        End If
    Else
        all = all - 2
        If ke > 5 Then
            earth = earth - 1
        Else
            three = three - 1
        End If
        If kt > 5 Then
            earth = earth - 1
        Else
            three = three - 1
        End If
    End If
dday = dday + 1
Loop Until (a(1) = 0 And a(2) = 0 And a(3) = 0) Or (a(6) = 0 And a(7) = 0 And a(8) = 0) Or three - earth >= 3

If three - earth >= 3 Then
    Cells(n, 1) = dday & "天，3体胜，人数比" & earth & ":" & three  //相当于 cout<<dday & "天，3体胜，人数比" & earth & ":" & three
    n = n + 2
    GoTo XX
End If
If a(1) = 0 And a(2) = 0 And a(3) = 0 And a(6) = 0 And a(7) = 0 And a(8) = 0 Then
    Cells(n, 1) = dday & "天，一起没刀，人数比" & earth & ":" & three
    n = n + 2
    GoTo XX
End If
If a(1) = 0 And a(2) = 0 And a(3) = 0 Then
    Cells(n, 1) = dday & "天，3体没刀，人数比" & earth & ":" & three
    n = n + 2
    GoTo XX
End If
If a(6) = 0 And a(7) = 0 And a(8) = 0 Then
    Cells(n, 1) = dday & "天，地球没刀，人数比" & earth & ":" & three
    n = n + 2
    GoTo XX
End If
MsgBox "代码出错"
XX:

Next

End Sub