( Kat-DoorLock.muf -- Copyright 2003-2006 The Indomitable Gravecat )

$def MAJOR_VERSION 1
$def MINOR_VERSION 0
$def PATCH_VERSION 1
 
: ver display_version ;
 
PUBLIC ver

lvar target

: main
  trig target !
  trig "_door/main" getprop dup if target ! else pop then
  target @ "_door/status" getpropstr "open" strcmp not
;