本页主题: 第三夜·帖子一·群体嘲讽 打印 | 加为IE收藏 | 复制链接 | 收藏主题 | 上一主题 | 下一主题

K40-程心
级别: 平民


精华: 0
发帖: 88
威望: 88 点
金钱: 880 静电币
支持度: 0 点
在线时间:29(小时)
注册时间:2016-07-23
最后登录:2016-12-07

 第三夜·帖子一·群体嘲讽

先说明,帖子会引起若干人的不快,爱看看,不吵架
Posted: 2016-07-29 23:51 | [楼 主]
K40-程心
级别: 平民


精华: 0
发帖: 88
威望: 88 点
金钱: 880 静电币
支持度: 0 点
在线时间:29(小时)
注册时间:2016-07-23
最后登录:2016-12-07

 

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


精华: 0
发帖: 88
威望: 88 点
金钱: 880 静电币
支持度: 0 点
在线时间:29(小时)
注册时间:2016-07-23
最后登录:2016-12-07

 

如果看得懂代码又需要的请举手,我发出来
Posted: 2016-07-29 23:59 | 2 楼
K40-程心
级别: 平民


精华: 0
发帖: 88
威望: 88 点
金钱: 880 静电币
支持度: 0 点
在线时间:29(小时)
注册时间:2016-07-23
最后登录:2016-12-07

 

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


精华: 0
发帖: 88
威望: 88 点
金钱: 880 静电币
支持度: 0 点
在线时间:29(小时)
注册时间:2016-07-23
最后登录:2016-12-07

 

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


精华: 0
发帖: 88
威望: 88 点
金钱: 880 静电币
支持度: 0 点
在线时间:29(小时)
注册时间:2016-07-23
最后登录:2016-12-07

 

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
Posted: 2016-07-31 21:25 | 5 楼
帖子浏览记录 版块浏览记录
狗狗静电BBS - wwW.DoGGiEhoMe.CoM » [游戏四十]三体

沪ICP备05008186号
Powered by PHPWind Styled by MagiColor