on *:text:*:#: {
  if ($1 == $ $+ ttt) {
    msg $chan $nick Started tic tac toe with $2 $+ . $2 is X and $nick is o.
    var %c 0
    var %t 15
    while (%c < %t) {
      inc %c
      set %b [ $+ [ %c ] ] .
    }
    set %speler1 $nick
    set %speler2 $2
    set %beurt $2
    goto bord
  }
  if ($1 == % $+ play) {
    if (%b [ $+ [ $2 ] ] == x || %b [ $+ [ $2 ] ] == o) { HALT }
    if ($nick == %speler2 && %beurt == $nick) {
      set %beurt %speler1
      set %b [ $+ [ $2 ] ] x
      goto Bord
    }
    if ($nick == %speler1 && %beurt == $nick) {
      set %beurt %speler2
      set %b [ $+ [ $2 ] ] o
      goto Bord
    }
  }
  else { halt }
  :Bord
  msg $chan 7 $+ %b1 12\ 7 $+ %b2 12\ 7 $+ %b3 12\ 7 $+ %b4 12\ 7 $+ %b5
  msg $chan 12---------------
  msg $chan 7 $+ %b6 12\ 7 $+ %b7 12\ 7 $+ %b8 12\ 7 $+ %b9 12\ 7 $+ %b10
  msg $chan 12---------------
  msg $chan 7 $+ %b11 12\ 7 $+ %b12 12\ 7 $+ %b13 12\ 7 $+ %b14 12\ 7 $+ %b15
}