View/Edit #2124:play

Name(s): play

1:  "Copyright (C) Olivier Beaton (aka Quadir), all rights reserved."
2:  "Licensed under BSD, see http://www.opensource.org/licenses/bsd-license.php"
3:  ""
4:  "Syntax:"
5:  "  play <column> on <board>"
6:  "--"
7:  "Make your move!"
8:  caller_perms() == #-1 || raise(E_PERM)
9:  if (!this:is_unlocked_for(player))
10:   return $msg:mtell("cantplay")
11: endif
12: col = toint(dobjstr)
13: error = `this:place(col) ! E_RANGE, E_QUOTA, E_NACC'
14: if (error == E_RANGE)
15:   return $msg:mtell("badplace", dobjstr)
16: elseif (error == E_QUOTA)
17:   return $msg:mtell("doreset")
18: elseif (error == E_NACC)
19:   return $msg:mtell("colfull")
20: endif
21: $msg:mtell("play", dobjstr)
22: this:look_self()
23: "Last modified by Quadir (#9780) on Mon Sep 16 17:29:07 2002 MDT."

Verb arguments: any on top of/on/onto/upon this
Verb perms: Readable NOT-Debug
Verb owned by: Quadir (#9780)

You are not logged in.