@program jail.muf
1 1000 d
i
lvar param
lvar target
$include $lib/alynna
$def JAILROOM #1273
 
: free
param @ resolve if
  param @ resolve target !
 else
  str "Target '" param @ "' not found." cat "Jail" pretty tellme exit
 then
 
target @ "!G" set
target @ "!IMMOBILE" set
target @ target @ "@JLastLoc" getprop moveto
target @ "@JLastLoc" 0 setprop
target @ "You have been let out of JAIL." "Jail" pretty notify
;
 
: jail
param @ resolve if
  param @ resolve target !
 else
  str "Target '" param @ "' not found." cat "Jail" pretty tellme exit
 then
 
target @ "G" set
target @ "IMMOBILE" set
target @ "@JLastLoc" target @ location setprop
target @ JAILROOM moveto
target @ "You have been JAILED for bad behaviour." "Jail" pretty notify
;
 
: main
param !
me @ mlevel 4 < not if
 command @ "@jail" smatch if jail exit then
 command @ "@free" smatch if free exit then
else
 { "^RED^You fool!  You can't jail anyone!" }tell
then
;
.
c
q