340
@verb #1971:"move" this none this rxdo #9342
@program #1971:"move" this none this
"Makes a move, and checks for winner."
if (this.board[toint(args[1])] != " ")
  return player:tell("That position is already filled, try again.")
elseif (this != caller)
  return E_PERM
endif
this.board[toint(args[1])] = (this.move = this.move + 1) % 2 ? "X" | "O"
this:draw()
if (this:is_win())
  this:announce_all((this.move % 2 ? "X" | "O") + " Wins!")
  this.move = 9
elseif (this.move == 9)
  this:announce_all("Stalemate.  Game over!")
endif
if (this.move == 9)
  suspend(1)
  this:reset()
  if (!this.player_list[1 + this.move % 2])
    this:draw()
  endif
endif
if (this.player_list[1 + this.move % 2])
  suspend(1)
  this:move(this:robot())
endif
"Last modified by Dax (#789) on Tue May  3 14:12:30 2005 MDT."
.

0