on *:text:*:#: {
  if ($1 == $ $+ bke) {
    msg $chan $nick start with Butter, Cheese and eggs $2 $+ . $2 is X en $nick is o.
    var %c 0
    var %t 15
    while (%c < %t) {
      inc %c
      set %b [ $+ [ %c ] ] .
    }
    set %player1 $nick 
    set %player2 $2 
    set %turn $2
    goto board
  }
  if ($1 == $ $+ play) {
    if (%b [ $+ [ $2 ] ] == x || %b [ $+ [ $2 ] ] == o) { HALT }
    if ($nick == %player2 && %turn == $nick) {
      set %turn %player1
      set %b [ $+ [ $2 ] ] x
      goto Bord
    }
    if ($nick == %player1 && %turn == $nick) {
      set %turn %player2
      set %b [ $+ [ $2 ] ] o
      goto Board
    }
  }
  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 
}