action rotating_door
{
       while (player == null) {wait (1);}
       while (vec_dist (player.x, my.x) > 100) {wait (1);} // play with 100
       ///snd_play (dooropens_wav, 100, 0);
       while (my.pan < 140)
       {
               c_rotate (me, vector(4 * time_step, 0, 0), IGNORE_MAPS);
               wait (1);
       }
}