property pMode

on construct me 
  pMode = #close
  return TRUE
end

on setDoorMode me, tMode 
  pMode = symbol(tMode)
  me.updateDoor()
end

on updateDoor me 
  if (pMode = #open) then
    tMem = member(getmemnum("towerdoor_2"))
  else
    tMem = member(getmemnum("towerdoor_0"))
  end if
  tRoomVis = getThread(#room).getInterface().getRoomVisualizer()
  if (tRoomVis = 0) or (tMem = 0) then
    return FALSE
  end if
  tRoomVis.getSprById("lift_door").setMember(tMem)
end