2c7
@verb #2124:"clear" this none none rdo #9780
@program #2124:"clear" this none none
"Copyright (C) Olivier Beaton (aka Quadir), all rights reserved."
"Licensed under BSD, see http://www.opensource.org/licenses/bsd-license.php"
""
"Syntax:"
" clear <board name>"
"--"
"Clears the board of chips, ready to play."
caller_perms() == #-1 || raise(E_PERM)
if (!this:is_unlocked_for(player))
  return $msg:mtell("cantplay")
endif
if (this.running && !$cmd_utils:yes_or_no("A game is still running! Do you really want to clear the board?"))
  return player:tell("Aborted.")
endif
this:reset()
$msg:mtell("clear")
this:look_self()
"Last modified by Quadir (#9780) on Mon Sep 16 17:31:25 2002 MDT."
.

0