Programmierwettbewerb

01 #!/usr/bin/perl
02 # simuliert einen einzelnen Würfelspieler
03 srand(time ^ $$);
04 
05 foreach $i (1 .. 1000) { # Zahl der Testläufe
06     $turns = $sum = 0;
07     while ($sum < 50) {  # Nötige Punktzahl
08         $turns++;
09         $wurf = int(rand(6) + 1);
10         $sum += $wurf;
11         $sum  = 0 if ($wurf == 6);
12     }
13     $sumsum += $turns;
14 }
15 print "Mittlere Züge: ", $sumsum/1000, "n";

HELO Version Nachricht

So meldet sich der Gameserver bei Verbindungsaufbau. Die Version besteht aus Majornumber, einem Punkt und der Minornummer.
Die Nachricht ist ein optionaler Freitext, die keine Auswirkung auf den Spielverlauf hat, aber auch Whitespace enthalten darf.

DENY Meldung

Aus einem Grunde verweigert der Server eine Anmeldung, typischerweise, weil der Client ein falsches Credential präsentiert hat. Die Nachricht ist optional. Anschließend beendet der Server die Verbindung.

TURN Deinepunkte Anderepunkte
Nachricht

So meldet sich der Gameserver, wenn der Client an der Reihe ist zu spielen. Die beiden Parameter Deinepunkte und Anderepunkte sind ganzzahlige, positive Zahlen und geben den bisherigen Punktestand an. Die Nachricht ist wieder optionaler Text.

THRW Punktezahl Nachricht

Damit zeigt der Server das Ergebnis eines Wurfes an. Für welchen Spieler der Wurf gilt, muss der Client aus dem Spielverlauf selbst herausfinden. Die Nachricht ist optional.

DEF Deinepunkte Anderepunkte
Nachricht

Damit zeigt der Gameserver an, dass der Client verloren hat. Die beiden Punkte geben noch einmal den Endstand wieder. Die Nachricht ist optional. Anschließend beendet der Server die Verbindung.

WIN Deinepunkte Anderepunkte
Nachricht

Damit zeigt der Gameserver an, dass der Client gewonnen hat.Die beiden Punkte geben noch einmal den Endstand wieder. Die Nachricht ist optional. Anschließend beendet der Server die Verbindung.

AUTH Spielername Nachricht

So reagiert der neu angemeldete Client auf eine HELO-Nachricht und meldet sich beim Gameserver an. Der Spielername besteht ausschließlich aus Kleinbuchstaben. Großbuchstaben, Umlaute, Sonder- und Interpunktionszeichen sowie Whitespace sind nicht erlaubt.

ROLL Nachricht

Entscheidet sich der Client zu würfeln, sendet er diese Nachricht. Das eigentliche Würfeln übernimmt der Gameserver.

SAVE Nachricht

Entscheidet sich der Client, in dieser Runde nicht weiter zu würfeln, gibt er mit diesem Kommando an den Gegner ab. Die Nachricht ist optional.

01 #!/bin/bash
02 
03 name=tux
04 
05 while read command a1 a2 a3
06 do
07    case $command in
08       HELO)
09          echo "AUTH $name Ich bin bereit!"
10          ;;
11       TURN)
12          echo "Spielstand ${a1}:${a2}" >&2
13          if (($RANDOM % 4 == 1))
14          then
15            echo "SAVE Das reicht erstmal ..."
16            active=0
17          else
18            echo "ROLL Auf gut Glück!"
19            active=1
20             fi
21          ;;
22       THRW)
23          if [ "$active" = "1" ]
24          then
25             echo "Ich würfle eine $a1." >&2
26             if [ "$a1" = "6" ]
27             then
28                echo "Du bist dran!" >&2
29                active=0
30             fi
31          else
32             echo "Du würfelst eine $a1." >&2
33             if [ "$a1" = "6" ]
34             then
35                echo "Ich bin dran!" >&2
36                active=1
37             fi
38          fi
39          ;;
40       WIN|DEF)
41          echo "Spielende: $command" >&2
42          exit 0
43          ;;
44       *)
45          echo "Unbekannt: $command" >&2
46          ;;
47    esac
48 done