@program $lock/staff
1 1000 d
i
: main
var target me @ target !
  (Returns true if d is staff)
  target @ mlevel 4 > 
  target @ "@/rpstaffer?" getpropstr "Y" instr 
  target @ owner staff?
  OR OR if 1 else 0 then
;
.
c
q