[Morganolla]

time = Millisecs();3000

;главный цикл

if door = 0
if (Millisecs()-time>3000) then открыть дверь:time = Millisecs():door = 1
end if

if door = 1
if (Millisecs()-time>7000) then закрыть дверь :time = Millisecs():door = 0
end if

Поясню: Millisecs() - это системная ф-ия которая считает милисекунды постоянно от момента включения компьютера (с 1-ой мс) до его выключения (до 4000000000 мс - около месяца...)