Xbox One Лучшие игроки XboxLand в популярные игры

[swertyxa 0]

METAL GEAR SOLID V: GROUND ZEROES
Самый дальний выстрел в голову 

8 место аж   респект автору

[sektor1899 354]

 В большинстве игр в топе 

[starfighter911 0]

Интересно. Жаль, что Dark Souls 3 нет, было бы забавно.

[DarkDemus 0]

Да Я же чемпион Chariot и Dead Rising 3! И не просто чемпион, а не оспоримый и во всех категориях! :zadrot: Вам этого не отнять!

Ну и на пол карасика в Lords of the Fallen и Metro: Last Light Redux

[BattleWolfLV 102]

глянул в топы мортал комбата.

остался доволен.

 

[NEXUS121 0]

крутотень!

[Sentarshi 4]

@flashgun, Чувак ты бог =) Респект!

Вошел в десяточку в Diablo 3 по закрытым порталам! =) и в 20ку по голде =)

[flashgun 0]

@flashgun, это ты на работе таблицы постоянно составляешь или в свободное время?

Таблицы? Ты думаешь, это я руками такое собираю?!

Нет, конечно. Скрипт на перле смешно сказать, 75 строк всего.

 

[spoiler=Скрипт на перле]

#!/usr/bin/perl

use Encode;
use DBI;

$MAXUSERS = 20;
$USTHRESH = 140;

$dbh = DBI->connect("dbi:Pg:dbname=xbox", "", "");

my $all = $dbh->selectall_arrayref("select titleid,count(*),(select title from info where titleid=gcard.titleid)
                from gcard where titleid in (select titleid from info where media='DGame')
                group by 1 order by 3");

foreach $g (@$all)      {
        next    if($g->[1] < $USTHRESH);
        get_best($g->[0], encode('utf-8', $g->[2]));
}

$dbh->disconnect;

sub get_best    {
        my $titleid = shift;
        my $title = shift;
        my $all = $dbh->selectall_arrayref("select xuid,(select gt from users where xuid=g.xuid),
                        col->>'name' as name,
                        col->>'type' as type,
                        col->'properties'->>'DisplayName' as text,
                        (col->>'value')::bigint as value
                from gcard g, jsonb_array_elements(g.statjson->'groups'->0->'statlistscollection'->0#>'{stats}') col
                        where titleid=$titleid and col->>'type'='Integer' and ((col->>'value')::bigint)>0
                        order by name,value desc");
        my $cur = '';
        my $k = 0;
        my @arrgt;
        my @arrval;
        my $t1 = '';
        my $t2 = '';
        my $nt = 0;
        foreach $s (@$all)      {
                $nam = $s->[2];
                if($nam ne $cur)        {
                        $cur = $nam;
                        $k = 0;
                        @arrval = @arrgt = ();
                }
                if($k == $MAXUSERS)     {       # dump array
                        if($title ne '')        {
                                $t1 = $title;
                                $title = '';
                        }
                        if($arrval[0] != $arrval[1] and $arrval[1] != $arrval[2])       {
                                $txt = encode('utf-8', $s->[4]);
                                $t2 .= "$txt\n";
                                my $place=1;
                                for(my $i=0; $i != $MAXUSERS; $i++)     {
                                        $t2 .= sprintf("%3d.    %-20s %10d\n", $place, $arrgt[$i], $arrval[$i]);
                                        $place++        if($arrval[$i] != $arrval[$i+1]);
                                }
                                $nt++;
                        }
                }
                $arrgt[$k] = $s->[1];
                $arrval[$k] = $s->[5];
                $k++;
        }
        if($title eq '')        {
                print "["."spoiler=$t1 (параметров: $nt)]["."code=auto:0]";
                print $t2;
                print "[/"."code][/"."spoiler]\n";
        } else {
                print STDERR "Нет для $title\n";
        }
}

 

 

 

Написал за пару часов, дольше ворочался перед сном, думал, как это понагляднее представить. Я получаю удовольствие от коротких программулек, типа как судоку, только приход посильнее в конце, когда всё получается. Ну и плюс возможность самоутвердиться на форуме :) И ещё несколько приходов, когда видишь, как другие радуются!

 

Тема, как вижу, зашла, подумаю, как это дело организовать порегулярнее. И картинку нужно будет придумать какую-то. Коллажик очередной

Изменено 11 января 2017 пользователем flashgun

[Chaps 1]

Awseome, по ufc 2 можно рейтинг?)

[VitaliySh 0]

Засветился в Стиксе, отсюда вывод, почти ни кто в нее не играет.

[flashgun 0]

@Chaps, вот:

 

Online Championships Wins
  1.    russianSHOTkill             205
  2.    Polar Citizen               105
  3.    Ekibass                      92
  4.    MORBIUS32032                 86
  5.    sMASTER SHAKEs               77
  6.    FisH rus                     76
  7.    NipiloRuS                    38
  7.    nortbl4                      38
  8.    REDXIII43                    26
  9.    SabreWulf 2714               22
 10.    Kirichenkoeb                 20
 11.    H3R01CKzu1337                18
 12.    Beat Nine Rec                14
 13.    Great Hungover               13
 14.    OneBigDuddde                 12
 15.    Rokr1985                      8
 16.    XA3 71                        6
 17.    Rexxarius                     4
 18.    kenvero                       3
 18.    kalina94ua                    3
Online Quick Match Wins
  1.    MORBIUS32032                 46
  2.    sMASTER SHAKEs               23
  3.    nortbl4                      21
  4.    Serega32032                  13
  5.    Rokr1985                     11
  6.    LAN kaldun                   10
  7.    alekseykaOO7                  9
  8.    Bryansky Medved               8
  8.    kenvero                       8
  9.    PoDuK RUS                     4
 10.    vladislavpenkov               3
 10.    HeilPutin                     3
 10.    H3R01CKzu1337                 3
 10.    un1x0d                        3
 11.    kysokx                        2
 11.    REDXIII43                     2
 11.    CyberDaFunk                   2
 11.    III ALIK III                  2
 11.    kalina94ua                    2
 11.    ZLOY MEDVED4                  2

[uakiller1 0]

О:) в Радуге есть :)

[GvozdoderRus 6]

Ну, в пегле я топ 1! Это несомненно! В гире UE порадовало, оказывается мало кто задротил 10 000 киллов по чесноку, я аж там в топ 5 попал! Ассасин везде есть, но жаль что до топ 5 не дотянул, тока топ 10.!

Изменено 11 января 2017 пользователем GvozdoderRus

[ANDI 0]

@Horst, оставь пальму мне =)

Сыгранные матчи

1. ANDImur 1328

@flashgun, а где фифа 17?

[Qwedc 1]

 

Game of Thrones - Episode 1: Iron from Ice

 

Times Died

1. Oper124 17

2. PunkAndFunk 16

3. gazoil777 15

3. This Is MikaRus 15

Слишком хардкорная игра для ребят оказалась

[RealDEM 110]

Прикольная статистика, даже в 1 игру попал.

[flashgun 0]

@flashgun, а где фифа 17?

У меня вообще к результатам уже несколько вопросов. Отсутствуют почему-то некоторые игры как класс.

Давайте считать это первым подходом к снаряду с надеждой на то, что второй блин будет менее комом?

[Erscheinung 0]

Молодца, хоть кто то тратит собственное время на минимальную поддержку родного портала. Не в обиду новостникам, тоже молодцом.

[Occisor 28]

Нормуль, отметился во всех форзах :)

[Rambler 589]

Таблицы? Ты думаешь, это я руками такое собираю?!

Нет, конечно. Скрипт на перле смешно сказать, 75 строк всего.

 

[spoiler=Скрипт на перле]

#!/usr/bin/perl

use Encode;
use DBI;

$MAXUSERS = 20;
$USTHRESH = 140;

$dbh = DBI->connect("dbi:Pg:dbname=xbox", "", "");

my $all = $dbh->selectall_arrayref("select titleid,count(*),(select title from info where titleid=gcard.titleid)
                from gcard where titleid in (select titleid from info where media='DGame')
                group by 1 order by 3");

foreach $g (@$all)      {
        next    if($g->[1] < $USTHRESH);
        get_best($g->[0], encode('utf-8', $g->[2]));
}

$dbh->disconnect;

sub get_best    {
        my $titleid = shift;
        my $title = shift;
        my $all = $dbh->selectall_arrayref("select xuid,(select gt from users where xuid=g.xuid),
                        col->>'name' as name,
                        col->>'type' as type,
                        col->'properties'->>'DisplayName' as text,
                        (col->>'value')::bigint as value
                from gcard g, jsonb_array_elements(g.statjson->'groups'->0->'statlistscollection'->0#>'{stats}') col
                        where titleid=$titleid and col->>'type'='Integer' and ((col->>'value')::bigint)>0
                        order by name,value desc");
        my $cur = '';
        my $k = 0;
        my @arrgt;
        my @arrval;
        my $t1 = '';
        my $t2 = '';
        my $nt = 0;
        foreach $s (@$all)      {
                $nam = $s->[2];
                if($nam ne $cur)        {
                        $cur = $nam;
                        $k = 0;
                        @arrval = @arrgt = ();
                }
                if($k == $MAXUSERS)     {       # dump array
                        if($title ne '')        {
                                $t1 = $title;
                                $title = '';
                        }
                        if($arrval[0] != $arrval[1] and $arrval[1] != $arrval[2])       {
                                $txt = encode('utf-8', $s->[4]);
                                $t2 .= "$txt\n";
                                my $place=1;
                                for(my $i=0; $i != $MAXUSERS; $i++)     {
                                        $t2 .= sprintf("%3d.    %-20s %10d\n", $place, $arrgt[$i], $arrval[$i]);
                                        $place++        if($arrval[$i] != $arrval[$i+1]);
                                }
                                $nt++;
                        }
                }
                $arrgt[$k] = $s->[1];
                $arrval[$k] = $s->[5];
                $k++;
        }
        if($title eq '')        {
                print "["."spoiler=$t1 (параметров: $nt)]["."code=auto:0]";
                print $t2;
                print "[/"."code][/"."spoiler]\n";
        } else {
                print STDERR "Нет для $title\n";
        }
}

 

 

Написал за пару часов, дольше ворочался перед сном, думал, как это понагляднее представить. Я получаю удовольствие от коротких программулек, типа как судоку, только приход посильнее в конце, когда всё получается. Ну и плюс возможность самоутвердиться на форуме :) И ещё несколько приходов, когда видишь, как другие радуются!

 

Тема, как вижу, зашла, подумаю, как это дело организовать порегулярнее. И картинку нужно будет придумать какую-то. Коллажик очередной Красавца, че сказать и главное людям заходит:)

[twokot 234]

Этапять. Маленький шедевр.

[zanswer 0]

Отлично! Свой маленький топ игроков, жаль Titanfall 2 не попал, интересно кто ещё с форума играет.

[Sk0v0r0dka 0]

@flashgun, Спасибо за работу, я даже засветился в Ryse: Son of Rome в топе по опыту))))))) в остальных случаях в последних рядах. Появился стимул поднять статистику если конечно такова будет собираться раз в квартал, или по полугодию. А в квантуме надо было статистику по смертям вывести в двух вариациях от минимума к максимуму и от максимума к минимуму)))) а то умирал мало а в табличку не вошел. 

[Redweller 0]

@flashgun, спасибо за очередные статы! Я правда засветился только в топе смертей в Лимбо и Ведьмаке )

[Horst 0]

У меня вообще к результатам уже несколько вопросов. Отсутствуют почему-то некоторые игры как класс.

Давайте считать это первым подходом к снаряду с надеждой на то, что второй блин будет менее комом?

А реально вывести статистику о том, в скольких играх/топах засветились игроки и особенно в топ-3? Что бы уже явно покорить вершину писькомерства. Изменено 12 января 2017 пользователем Horst