function remove_npc(actor, npc, p)
    if p and p[1] then
  npc_id = get_story_object_id(p[1])
    end
    if npc_id ~= nil then
  alife():release(alife():object(npc_id), true)
    end
end

function destroy_object(actor, obj, p)
    local sobj
    if p == nil then
  sobj = alife():object(obj:id())
    else
  if p[1] == nil or p[2] == nil then
   abort("Wrong parameters in destroy_object function!!!")
  end
  local target_str = nil
  if p[3] ~= nil then
   target_str = p[1].."|"..p[2]..","..p[3]
  else
   target_str = p[1].."|"..p[2]
  end
  local target_position, target_id, target_init = xr_remark.init_target(obj, target_str)
  if target_id == nil then
   printf("You are trying to set non-existant target [%s] for object [%s] in section [%s]", tostring(target_str), tostring(obj:name()), tostring(db.storage[obj:id()].active_section))
  end
  sobj = alife():object(target_id)
    end
    if sobj == nil then
  return
    end
    printf("releasing object ["..sobj:name().."]")
    alife():release(sobj, true)
end

%=destroy_object(story:object_story_id)%

[ph_door@closed]
closed = true

[ph_door@open]
closed = true

[ph_door@open]
closed = true

[ph_door@open]
closed = false

[ph_door@locked]
locked = true
snd_open_start = trader_door_unlock

[logic]
active = ph_door@open

[logic]
active = ph_door@closed