33f
@verb #2124:"play" any on top of/on/onto/upon this rdo #9780
@program #2124:"play" any on top of/on/onto/upon this
"Copyright (C) Olivier Beaton (aka Quadir), all rights reserved."
"Licensed under BSD, see http://www.opensource.org/licenses/bsd-license.php"
""
"Syntax:"
"  play <column> on <board>"
"--"
"Make your move!"
caller_perms() == #-1 || raise(E_PERM)
if (!this:is_unlocked_for(player))
  return $msg:mtell("cantplay")
endif
col = toint(dobjstr)
error = `this:place(col) ! E_RANGE, E_QUOTA, E_NACC'
if (error == E_RANGE)
  return $msg:mtell("badplace", dobjstr)
elseif (error == E_QUOTA)
  return $msg:mtell("doreset")
elseif (error == E_NACC)
  return $msg:mtell("colfull")
endif
$msg:mtell("play", dobjstr)
this:look_self()
"Last modified by Quadir (#9780) on Mon Sep 16 17:29:07 2002 MDT."
.

0