server <- „wettbewerb.linux-magazin.de“
port <- 3333
socket <- make.socket(server, port)

load(„Gp.Rdata“)

debug <-FALSE
ncat <- function(...) if (debug) cat(..., „\n“)

dec <- function ( xa, xc, y) {
  pass <- 1- Gp[y+1, y+1, xc+1]
  wurf <- 1 - Gp[y+1, y+1, xa +1]
  for (zahl in 1:5) {
    if (xc+1+zahl > 50) wurf <- wurf +1 else wurf <- wurf + Gp[xa+1, xc+1+zahl , y+1]
  }
  wurf <- wurf/6
  if (pass > wurf) return(0) else return(1);
}

myturn <- FALSE
while (TRUE){
  server.message <- read.socket(socket)
  command.lines<-strsplit(server.message, „\n“)[[1]]
  for (lines in 1:length(command.lines))ncat("SERVER:", command.lines[[lines]]   )
  server.message <- command.lines[[ length(command.lines)]]
  server.message<-strsplit(server.message, " ")
  server.command <- server.message[[1]][1]
  if (server.command == „DENY“) break
  if (server.command == „WIN“) break
  if (server.command == „DEF“) break
  if (server.command == „TURN“) {
    if (! myturn) {
      myturn <- TRUE
      xa <- as.numeric(server.message[[1]][2])
      y <- as.numeric(server.message[[1]][3])
      ncat("Spielstand zu Beginn:", xa, " ", y)
      ncat("ROLL")
      write.socket(socket, "ROLL\n")
    } else {
      xc <-  as.numeric(server.message[[1]][2])
      ncat(„Spielstand:“, xa, " ", xc, " ", y)
      decision <- dec(xa, xc, y)
      if (decision == 0 )
         [...]