DeletedUser
Gast
Tag,
Gewinnspiel: Incoming | 10 x 200 PA-Punkte zu gewinnen
Update 30.12: Dorf wird geadelt. Gewinnspiel lauft weiter! Hab neu angefangen damit ich das Gewinnspiel beenden kann, allerdings sind wegen der Angriffssperre jetzt nur noch Unterstützungen möglich. Derzeitiger Zwischenstand: 46 Teilnehmer
Wie mach ich mit?
Schick mireinen Angriff oderUnterstützung (Punkteverhältnis) bis spätestens 06.01.15 – 18:00 Uhr (Ankunftszeit)
Spielername: Captain Blubb
Koordinaten:628|581 384|650
Es ist egal mit was und wieviel ihr kommt! Es reicht 1 Späher...
Spieler die mehr als einen Angriff oder Unterstützung schicken disqualifizieren sich vom Gewinnspiel!
Was gibt’s zu gewinnen?
10 zufällig ausgewählte Spieler werden jeweils 200 PA-Punkte gewinnen.
(Die Gewinner werden diese am 21.01.15 bekommen da die PA-Punkte erst dann zur Verfügung stehen)
Wie wähl ich die Gewinner aus?
Jeder Angreifer oder Unterstützer wird in einer Excel-Liste eingetragen. Dann lass ich ein VBA-Script laufen, welches zufällig 10 Spieler auswählt.
Source
Falls es Fragen gibt, fragt.
Fröhliche Weihnachten undso.
Edit: 30.12
Gruß Mike
Gewinnspiel: Incoming | 10 x 200 PA-Punkte zu gewinnen
Update 30.12: Dorf wird geadelt. Gewinnspiel lauft weiter! Hab neu angefangen damit ich das Gewinnspiel beenden kann, allerdings sind wegen der Angriffssperre jetzt nur noch Unterstützungen möglich. Derzeitiger Zwischenstand: 46 Teilnehmer
Wie mach ich mit?
Schick mir
Spielername: Captain Blubb
Koordinaten:
Es ist egal mit was und wieviel ihr kommt! Es reicht 1 Späher...
Spieler die mehr als einen Angriff oder Unterstützung schicken disqualifizieren sich vom Gewinnspiel!
Was gibt’s zu gewinnen?
10 zufällig ausgewählte Spieler werden jeweils 200 PA-Punkte gewinnen.
(Die Gewinner werden diese am 21.01.15 bekommen da die PA-Punkte erst dann zur Verfügung stehen)
Wie wähl ich die Gewinner aus?
Jeder Angreifer oder Unterstützer wird in einer Excel-Liste eingetragen. Dann lass ich ein VBA-Script laufen, welches zufällig 10 Spieler auswählt.
Code:
Function RandomSelection(aRng As Range)
'Update20131113
Dim index As Integer
Randomize
index = Int(aRng.Count * Rnd + 1)
RandomSelection = aRng.Cells(index).Value
End Function
Source
Falls es Fragen gibt, fragt.
Fröhliche Weihnachten undso.
Edit: 30.12
Gruß Mike
Zuletzt bearbeitet von einem Moderator: