18c
@verb #1492:"is_locked" this none this rxdo #60
@program #1492:"is_locked" this none this
"is this locked?"
if (this.locked)
  return "locked"
elseif (valid(this.controlled) && this.controlled != args[1])
  if (this.location in {this.controlled, this.controlled.location})
    return "controlled by " + this.controlled.name
  else
    this.controlled = #-1
  endif
endif
return 0
.

0