@prog #7982
1 999 d
1 i
( On trigger:
  _Jail.time: 60 [ seconds.. 0 = infinity for wiz-owned actions ]
  _Jail.msg: msg [ displayed when sent to jail ]
  _Cell: 9999    [ cell dbref ]
  _Back.msg: msg [ displayed when sent back to jail after 'escape' ]
  _Free.msg: msg [ displayed when freed from jail ] )
 
: Cell trigger @ "_Cell" getpropstr atoi dbref ;
: Check #7983 call ;
: Keep-em
  1 sleep
  daemon " " setname
  trigger @ "_Jail.time" getpropstr atoi
  dup 0 = if
    trigger @ owner Wizard? if
      pop do
        1 sleep Check
	fork if daemon kill then
        me @ "*Jail" prop-exists? not if exit then
        loop
      else pop 10 then then
  0 swap 1 for pop 1 sleep Check loop ;
: To-jail
  me @ trigger @ "_Jail.msg" getpropstr
    dup if notify else pop pop then
  me @ Cell moveto
  me @ "*Jail" "yes" 0 addprop
  Keep-em
  me @ "*Jail" remove_prop
  me @ trigger @ "_Free.msg" getpropstr
    dup if notify else pop
    "The guard begins to doze off in his chair." notify
    then ;
.
c
q