CC Dispatch [Issue 119] Doom and Great Deeds at Hand

[Dukasaur]

Greetings, comrades, and welcome to the 119th issue of the Conquer Club Dispatch!

Today we have a big announcement for you concerning the Community Team. We also have the ultimate (that is to say, the tenth!) installment of the Dispatch Trivia Contest. Finally, we have another excellent roundup of what is happening in the tournament world by Dave and the War Games team.

The Doom is Upon Us

[spoiler=our doom is at hand]

Boromir's eyes glinted as he stared at the golden thing. "The Halfling!" he muttered. "Is then the Doom of Minas Tirith come at last? But why should we seek a broken sword?"

"The words were not 'the doom of Minas Tirith', said Aragorn, "but doom and great deeds are indeed at hand!"

-- The Fellowship of the Ring, Book 2, Chapter 2

Two nights ago BigWham announced that he is passing the baton of the Community team to [player]DoomYoshi[/player]

Yep, after a brief whirlwind stay at the top here I am handing over the reigns to someone that I think will do an incredible job. I took the lead in Community because I think it is absolutely critical to the site, really wanted to understand how it worked, and also felt I had a few brief contributions to throw into the mix. I feel like I've done what I set out to do, and now the role is better served by someone who is of the community.

DY has shown huge initiative, creative energy, and positive thinking in what he has done to date, so I am hopeful that, with the rest of the team, that we can only elevate further the role of events and community oriented initiatives on CC in general.

I asked DoomYoshi for comment.

The Community Team was running fine before, but a time for a slight change in personnel and slight change in philosophy will help.

Obviously a lot of my passion is for the monthly challenges. They will revert to the old system where there was no GA. I will have at least one month ready in advance so there are no shoddy challenges like this current month.

I would prefer to have a few major events that are fully planned and integrated than a few smaller events. Having site-wide coverage opens a can of worms that the lackattack-run Entertainment Team never had to deal with, but we will rise to the challenge.

I will try to bring in people from around the site to help with putting together events, not only for the help but due to my basic philosophy towards a Community Team.

The CC Dispatch wishes to congratulate DoomYoshi on his spectacular rise to Head of the Community Team! We look forward to seeing how the Team will evolve from here! Looking forward to many great deeds!

[/spoiler]


Dispatch Trivia - Round 10 of 10 by iAmCaffeine

[spoiler=10th installment in the great dispatch trivia contest]The race for first place is still on and we've had a couple of new entrants join late into the competition - even if you enter only the last round there is a chance to win a prize. The final edition of the Dispatch Trivia will feature a extra-long section of twenty sections. To make things slightly harder, not all of the answers can be find in issues of the Dispatch. Good luck.

1. How many speed games with trench and fog have been completed on Peloponnesian War as of 21:05 GMT Saturday 14th June 2014? Random maps do count.
2. Who is creating a map based on the board game Cluedo?
3. When was Cuban Missile Crisis quenched?
4. Which are the least and most popular Egypt maps? Specify which.
5. On which map will you find the region Gerros?

6. In which clan war did LHDD win by the biggest margin, what was it and who was it against?
7. Which three clans has [player]betiko[/player] been part of?
8. Which player(s) won the most games in the war between Phoenix and A Question of Honour in the Newcomers Cup 5?
9. In the F400 May 15th update, which clans were ranked 6th, 9th and 14th in the 1yr ranking?
10. What is the name of Mythology's training group?

11. Who ran the Guerillas' Double Elimination Singles tournament?
12. How many tournaments were completed in 2008?
13. Who won the Map Master Triples Edition: Europe 1914 tournament?
14. Who runs the renowned College Hoops tournaments?
15. How many Nuclear and Zombie tournament games have been completed on Doodle Earth as of 21:44 GMT Saturday 14th June 2014?

16. How many different moderator groups are there?
17. How many people have achieved a Conqueror medal?
18. Is Chinese Chequers available to play for New Recruits?
19. Which of the moderator groups is the largest?
20. How many Dispatch issues has this trivia been spread over?

Scoreboard after Round 8
#1 [player]Ffraid[/player] (88)
#2 [player]dakky21[/player] (87)
#3 [player]Hannibal 19[/player] (28)
#4 [player]anamainiacks[/player] (19)
#5 [player]Gilligan[/player] (17)
#6 [player]macbone[/player] (10)
#7 [player]Leehar[/player] (9)

Round 9 Answers
1. La Fédération Conquer Club de Football Polymorphic
2. 20
3. 4
4. [player]DoomYoshi[/player]: viewtopic.php?f=8&t=204120
5. [player]DiM[/player]
6. [player]Serreski[/player]
7. OSU = Ohio State
Jacket = Columbus Blue Jackets I am a fan and season ticket holder for each team.
8. 92
9. Clan Freelance
10. 0[/spoiler]
[spoiler=prize update]It's been a while since this contest began (October 2nd of last year!) so I figure we should refresh everyone's memory about the prizes:

Subject: CC Dispatch [Issue 104 02-10-13] Dices, Bots, and Caffeine

Here at the Dispatch we've decided to start a small, regular trivia for our beautiful readers! For the next ten issues there will be a series of questions all about Conquer Club and the Dispatch. A prize will be issued every issue for the winner; either three months of shiny premium or free entry into the grand Conquer Cup. You can only win once, but it's still worth submitting answers every week, because whoever has the most correct answers after ten issues will win a year of premium! In the case of a tie for first place, a series of five quick-fire questions will be hosted in Live Chat.

Furthermore, the top five players after the tenth issue will all receive General Achievement medals. Ties for second through to fifth place will be PM'd a set of 10 trivia questions. If there are more ties, everyone gets free coffee (aka we'll think of another solution). Finally, one player who enters the trivia every issue, will be awarded a six month premium.

Please note, all answers must be PM'd to [player]iAmCaffeine[/player] before the next Dispatch is released. Answers sent elsewhere will be disregarded.

IN ADDITION to that generous prize package above, I have decided to add the following, for this round alone.

The top three players (making the most correct answers) based on the 10th installment of questions alone, will get a Pink Conquer Star, a Cyan Conquer Star, and an Orange Conquer Star, respectively. If there is a tie we will have a special play-off round in the next issue. If there is still a tie after that, we will draw randomly.[/spoiler]


Around the Forums
The World Cup is the biggest story in most media today day, and sure enough, it has produced the fastest growing discussion thread that our Off-topics forum has seen in a long time. If you would like to offer your predictions on the Cup or your commentary on the, ahem, competent referees, pull up a soapbox and let fly!

Late-Breaking News
[player]Blakebowling[/player] has just made an announcement about the tapatalk utility that will make forum and PM participation easier for our mobile users:
[spoiler=tapatalk]

Tapatalk was recently launched for the Conquer Club forums. Tapatalk is a free forum app for your smart phone that lets you share photos and post discussions to our community while on-the-go. With Tapatalk, you can get notifications for a range of events and check your PMs as they come in. This app is not required for mobile, and you can simply skip the banner to continue browsing with the traditional interface.

To add the CC forums to your tapatalk app, simply search for ConquerClub (make sure you hit the 'Search' button) and login with your CC username and password.

Link: http://www.conquerclub.com/forum/viewtopic.php?p=4505736#p4505736[/spoiler]

[DaveH]

Hello friends, and welcome to your favourite part of the Newsletter, "War Games", where you can find information about CC Tournaments, and other stuff in the Tournament scene!

In this edition of War Games we continue to deliver our news staples with [player]jdean1[/player]'s Join This? or Not!; my update of TPA happenings in TPA Wrap, and I have also updated last week's Tournament Tips with modifications to [player]MrBenn[/player]'s xml code for summarising Tournament results suitable for Clan War Games.

Good Reading and Good Luck!

[player]DaveH[/player]
Tournament Executive

TPA Wrap by DaveH

show

Join This? Or Not! by jdean1

show

Tournament Tips #55 by DaveH
[spoiler=War Game Summariser]This article resolves (I hope!) a problem I recently had keeping up with our clan's war games. We are in a couple of individual wars and three clan tournaments and I have been slow to update our game threads with the ongoing results.

Building on last edition's article of getting tournament data into a spreadsheet, I have added code to replicate the information about a clan war that I can use to update the thread. The best way of describing it is from the output:
[bigimg]http://i1330.photobucket.com/albums/w565/DaveHomer/ClanOutput_zps1251e0cd.jpg[/bigimg]
On the columns following [player]MrBenn[/player]'s programme output (see Issue #118) is the clan winning the game, then a list our my clan's members; then a list of all the players with their clan and number of wins and loses. Finally is a list of code that is required to be pasted into the war thread. The output from this list is as follows:
[bigimg]http://i1330.photobucket.com/albums/w565/DaveHomer/ClanOutput1_zps0ed0cd8d.jpg[/bigimg]
OK, so the sequence is as follows:
The macro is run and you input the war game heading. This must be entered exactly; the best way to do a search and copy the title directly. The data is transferred to the spreadsheet and you are asked for the mnemonic of the opposing clan (unfortunately, this cannot be derived from the title).
You can then copy the data and paste directly into the war thread.

To customise the macro for your clan, you need to enter your clan mnemonic and list the clan members. The code for the macro is as follows and the positions of the required changes for your clan are easily identifiable,

Code: Select all

Sub Get_cc_tournament() 'by MrBenn

    Cells.Select
    Selection.ClearFormats
    Selection.Clear

    Dim tourney As String
    Dim APIpath As String
    Dim xmlDoc As MSXML2.DOMDocument
    Dim xNode As MSXML2.IXMLDOMNode

    Dim gData()
    Dim pData()

    Dim pRange As Range
    Dim pStats As Range

    Dim headers(1 To 2)
    
    headers(1) = Array("Game No", "Tournament Label", "Map", "Players", "Game Type", "Round Limit", "Status")
    headers(2) = Array("Player Name", "Elim Order", "Kills", "Points", "Result", "Round", "Team", "KNT Members", "Player Name", "Won", "Lost", "Team")
 
    'Cells(nextRow, UBound(gData) + 1).Resize(UBound(pData, 1) - LBound(pData, 1) + 1, UBound(pData, 2) - LBound(pData, 2) + 1).Value = pData
    Col = UBound(headers(1)) - LBound(headers(1)) + 1
    Cells(1, 1).Resize(1, Col).Value = headers(1)

    Cells(1, Col + 1).Resize(1, UBound(headers(2)) - LBound(headers(2)) + 1).Value = headers(2)
    Col = Col + UBound(headers(2)) - LBound(headers(2)) + 1

    Dim members(1 To 2) 'Clan Member Lists
    
    'CHANGE THESE HEADERS TO YOUR CLAN MEMBERS
    members(1) = Array("andypl0nd0n", "BarkingAjax", "bdb", "brentros", "Bullet Justice", "curiousone1", "DaveH", "explor31", "farinelli", "franciscopatitz", "generalmighty")
    members(2) = Array("jaxdadio", "K-Pak", "MarktheMenace", "mikeymike55", "mjc7890", "phanton", "Ratrin", "Rockiesman", "Sotan", "Tank21", "tbott", "templeyard", "zhibby")

    Row1 = UBound(members(1)) - LBound(members(1)) + 1
    
    Cells(2, 16).Resize(1, Row1).Value = members(1) 'copy horizontaly
    Range(Cells(2, 16), Cells(2, 16 + Row1)).Copy
    Cells(2, 15).Select
    Selection.PasteSpecial Transpose:=True  'transpose
    Range(Cells(2, 16), Cells(2, 16 + Row1)).Delete 'delete horizontal list

    Row2 = UBound(members(2)) - LBound(members(2)) + 1
    Cells(2, 16).Resize(1, Row2).Value = members(2)
    Range(Cells(2, 16), Cells(2, 16 + Row2)).Copy

    Cells(Row2, 15).Select
    Selection.PasteSpecial Transpose:=True
    Range(Cells(2, 16), Cells(2, 16 + Row2)).Delete
    Range(Cells(1, 15), Cells(Row1 + Row2 + 1, 15)).BorderAround _
        ColorIndex:=3, Weight:=xlThick
   
   CurPage = 1
    nextRow = 2
        'Get tournament name from inputbox
        Deftourney = ActiveSheet.Name
        'Deftourney = "7 Man Madness!"
        tourney = InputBox("Please enter a Conquer Club Tournament Name:", , Deftourney)
        If tourney = "" Then Exit Sub
       
    Do
        APIpath = "http://www.conquerclub.com/api.php?mode=gamelist&to=" & tourney _
                    & "&names=Y&events=Y"
        If CurPage > 1 Then APIpath = APIpath & "&page=" & CurPage
       
        Set xmlDoc = New MSXML2.DOMDocument
       
        With xmlDoc
            'Load the xml from CC API
            .async = False
            .validateOnParse = False
            .Load (APIpath)
             
            'Get number of pages
            Set xNode = .FirstChild.SelectSingleNode("page")
            With xNode
                l = InStr(.Text, " ")
                CurPage = CInt(Left(.Text, l))
                l = InStrRev(.Text, " ")
                MaxPage = CInt(Mid(.Text, l))
            End With
           
            'Get number of games in xml
            Set xNode = .FirstChild.SelectSingleNode("games")
            MaxGames = xNode.Attributes.getNamedItem("total").Text
            FileGames = xNode.ChildNodes.Length
           
            For g = 0 To (FileGames - 1) Step 1
               
                With xNode.ChildNodes(g)
       
                    ReDim gData(1 To 7)
                    gData(1) = .SelectSingleNode("game_number").Text
                    gData(1) = "=HYPERLINK(""http://www.conquerclub.com/game.php?game=" & _
                                        gData(1) & """,""" & gData(1) & """)"
                    gData(2) = .SelectSingleNode("tournament").Text
                    gData(3) = .SelectSingleNode("map").Text
                    gData(4) = .SelectSingleNode("players").ChildNodes.Length
                    gData(5) = .SelectSingleNode("game_type").Text
                    gData(6) = .SelectSingleNode("round_limit").Text
                    gData(7) = .SelectSingleNode("game_state").Text
                   
                   
                    Select Case gData(5) 'Game Type
                        Case "S"
                            gData(5) = "Standard"
                        Case "C"
                            gData(5) = "Terminator"
                        Case "A"
                            gData(5) = "Assassin"
                        Case "P"
                            gData(5) = "Polymorphic"
                        Case "D"
                            gData(5) = "Doubles"
                        Case "T"
                            gData(5) = "Triples"
                        Case "Q"
                            gData(5) = "Quads"
                        Case Else
                            'Unknown Game Type
                    End Select
                   
                    Select Case gData(7) 'game state (W)aiting, (A)ctive or (F)inished
                        Case "W"
                            gData(7) = "Waiting"
                        Case "A"
                            gData(7) = "Active"
                        Case "F"
                            gData(7) = "Finished"
                        Case Else
                            'Unknown Game State
                    End Select
                   
                   
                    'Range("A1:A" & UBound(GData)) = WorksheetFunction.Transpose(GData)
                    Range(Cells(nextRow, 1), Cells(nextRow, UBound(gData))) = gData
                    'nextRow = nextRow + 1
                       
                    ReDim pData(1 To gData(4), 0 To 5)
                    '(playerNo, (0=name, 1=Elim Order, 2=Kills, 3=Points, 4=Result, 5=Round) )
           
                    For p = 1 To gData(4)
                        With .SelectSingleNode("players").ChildNodes(p - 1)
                            pData(p, 0) = .Text
                            pData(p, 4) = .Attributes.getNamedItem("state").NodeValue
                        End With 'Players
                        pData(p, 5) = .SelectSingleNode("round").Text
                    Next p
                   
                    ko = 1
                    For e = 1 To .SelectSingleNode("events").ChildNodes.Length
                        With .SelectSingleNode("events").ChildNodes(e - 1)
                            'GameXML.childNodes(19).childNodes(e - 1)
                           
                            If Right(.Text, 7) = " points" Then
                                l = InStr(.Text, " ")
                                p = CInt(Left(.Text, l))
                                pData(p, 3) = pData(p, 3) + _
                                                 CInt(Replace(Replace(Replace( _
                                                      Mid(.Text, l, Len(.Text)), _
                                                      "loses", "-"), "gains", "+"), "points", ""))
                            ElseIf Right(.Text, 14) = " from the game" Then
                                l = InStr(.Text, " ")
                                p = CInt(Left(.Text, l))
                                If Not p = 0 Then 'not eliminated by neutral
                                    pData(p, 2) = pData(p, 2) + 1
                                End If
                                t = .Text
                                t = Mid(.Text, l, Len(.Text))
                                pData(CInt(Replace(Replace( _
                                            Mid(.Text, l, Len(.Text)), _
                                            "eliminated", ""), "from the game", "")) _
                                            , 1) = ko     ' pData(p,4) = Kill Order
                                ko = ko + 1
                               
                            End If
                        End With
                    Next e
                               
                    Cells(nextRow, UBound(gData) + 1).Resize(UBound(pData, 1) - LBound(pData, 1) + 1, UBound(pData, 2) - LBound(pData, 2) + 1).Value = pData
                    nextRow = nextRow + gData(4)
                   
                    With Rows(nextRow).EntireRow.Borders(xlEdgeTop)
                        .LineStyle = xlContinuous
                        .Weight = xlMedium
                        .ColorIndex = xlAutomatic
                    End With
                 
                End With 'Game(g) 'xNode.childNodes(g)
                   
            Next g
           
        End With 'xmlDoc

    CurPage = CurPage + 1
    Loop While CurPage <= MaxPage

    '#### All Game Data has now been imported (will error if too many rows for spreadsheet)
    Cells(1, Col + 1).Value = CStr(MaxGames) & " Games"

    Set pRange = Range(Cells(2, 8), Cells(nextRow - 1, 8))
    uPlayers = UniqueList(pRange)

    StatCol = 16   'Col P
    Set pStats = Range("P2:P" & CStr(UBound(uPlayers) + 2))

    Cells(1, StatCol).Value = "Player Name"
    pStats = WorksheetFunction.Transpose(uPlayers)

    Set pStats = pRange.Offset(0, 1)

    ' NEED TO CALCULATE WHICH ROUND AN ELIMINATION TOOK PLACE
    
    Opponents = InputBox("Please enter Your Opponents Mnemonic:")

    i = 2
    While Cells(i, 12).Value <> ""   'Game Status
        k = 2
        l = 0
        While Cells(k, 15).Value <> ""   'Team Name

        If Cells(k, 15).Value = Cells(i, 8).Value Then

            l = 1
            
    'CHANGE THIS TO REPRESENT YOUR CLAN MNEMONIC
            clan = "KNT"
            clan1 = clan
            Cells(i, 14).Value = clan
        End If
        k = k + 1
        Wend

        If l = 0 Then
            Cells(i, 14).Value = Opponents
            clan1 = Opponents
        End If
        
        j = 2
        While Cells(j, 16).Value <> ""  'Player List
            If Cells(j, 16).Value = Cells(i, 8).Value Then
                Select Case Cells(i, 12).Value 'game status
                    Case "Won"
                        Cells(j, 17).Value = Cells(j, 17).Value + 1
                    Case "Lost"
                        Cells(j, 18).Value = Cells(j, 18).Value + 1
                    Case Else

                End Select
                Cells(j, 19).Value = clan1
            End If
            j = j + 1

        Wend
        i = i + 1

    Wend
    Range(Cells(2, 16), Cells(j - 1, 19)).Select
    Selection.Sort key1:=Range(Cells(2, 19), Cells(j - 1, 19)), _
        key2:=Range(Cells(2, 16), Cells(j - 1, 16)), order1:=xlAscending, order2:=xlAscending, Header:=xlNo

    Range(Cells(1, 16), Cells(j - 1, 19)).Select
    Selection.BorderAround ColorIndex:=4, Weight:=xlThick
    
    GamesNumber = Cells(1, 20).Value
    GamesNumber = Left(GamesNumber, Len(GamesNumber) - 6)
    Cells(1, 22).Value = 0
    Cells(1, 23).Value = 0
    i = 2
    j = 2
    While GamesNumber > 0
        While Cells(i, 1).Value = ""
            i = i + 1
        Wend
        
        A = "[game]" & Cells(i, 1) & "[/game] (" & Cells(i, 5) & ") " & Cells(i, 3)
        If Cells(i, 12).Value = "Won" Then
            If Cells(i, 14).Value = "KNT" Then
                Cells(1, 22).Value = Cells(1, 22).Value + 1
                B = " [color=#FF0000]"
            Else
                Cells(1, 23).Value = Cells(1, 23).Value + 1
                B = " [color=#0000FF]"
            End If
            A = A & B & Cells(i, 14) & " Won[/color]"
        ElseIf Cells(i, 12).Value = "Lost" Then
            i = i + Cells(i, 4).Value / 2
            If Cells(i, 14).Value = "KNT" Then
                Cells(1, 22).Value = Cells(1, 22).Value + 1
                B = " [color=#FF0000]"
            Else
                Cells(1, 23).Value = Cells(1, 23).Value + 1
                B = " [color=#0000FF]"
            End If
            A = A & B & Cells(i, 14) & " Won[/color]"
        End If
        Cells(j, 21).Value = A
        j = j + 1
        i = i + 1
        GamesNumber = GamesNumber - 1
    Wend
    Cells(1, 21).Value = tourney & "  (" & clan & " " & Cells(1, 22) & " - " & Opponents & " " & Cells(1, 23) & ")"
    Cells(1, 22).Value = ""
    Cells(1, 23).Value = ""
    End Sub
    Function UniqueList(Optional ListRange As Range)

        If ListRange Is Nothing Then Set ListRange = Selection

        Dim List As Variant
        List = ListRange.Value
       
        With CreateObject("scripting.dictionary")
            For Each element In List
                If Not element = Empty Then c00 = .Item(element)
            Next
            UniqueList = .keys
        End With
           
    End Function

Enjoy![/spoiler]

[Dukasaur]

Actual publication date June 17, 2014, @1850.

[Ugly_Moose]

Fix the site!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

[IcePack]

Fix the site!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

What is the dispatch supposed to do?

[iAmCaffeine]

Fix the site!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

What is the dispatch supposed to do?