:PPolyDoor
    door 1
    playrepeat  World/StoneDoorMove
end

:PDoorOpen
    play        doors/dor_open
    playrepeat  World/StoneDoorMove
    stopsound   plats/plat_stop
end

:PDoorClose
    play        doors/dor_close
    playrepeat  World/StoneDoorMove
    stopsound   plats/plat_stop
end

:PPlatform
    playrepeat  plats/plat_mid
    stopsound   plats/plat_stop
end

:PPlatformStop
    play        plats/plat_stop
    nostopcutoff
end

:AutoDoorOpen
    playuntildone  doors/autodoor_open
end

:AutoDoorClose
    playuntildone  doors/autodoor_close
end

[PDoor
    0  PDoorOpen
    1  PDoorClose
    2  PDoorOpen
    3  PDoorClose
]
