2cb
@verb #2124:"reset" this none this rxdo #9780
@program #2124:"reset" this none this
"Copyright (C) Olivier Beaton (aka Quadir), all rights reserved."
"Licensed under BSD, see http://www.opensource.org/licenses/bsd-license.php"
""
"Syntax:"
"  :reset()"
"--"
"Reset the board for play."
caller == this || (!this.restrict_calls && this:is_unlocked_for(caller_perms())) || raise(E_PERM)
this.generic == this && raise(E_PERM, "No play on generic!")
grid = {}
for h in [1..this.height]
  grid = {@grid, {}}
  for w in [1..this.width]
    grid[$] = {@grid[$], 0}
  endfor
endfor
this.grid = grid
this.running = 1
this.player = 1
"Last modified by Quadir (#9780) on Tue Sep 24 11:36:39 2002 MDT."
.

0