# Not supported by LEC

symbols
message     startup
message     arrived
message     activated

thing    Elev     linkid=10
thing    door0    linkid=10
thing    door1    linkid=10
thing    door2    linkid=10
thing    door3    linkid=10

surface     switch0    linkid=0
surface     switch1    linkid=1
surface     move0    linkid=5
surface     move1    linkid=5

flex     elev_speed=4
flex     door_speed=4
int      movestatus=0      local

sound    wav0=Activate02.wav
sound    wav1=lgclick1.wav
end

# .................................................................................................

code

startup:

//   sectoradjoins(getthingsector(door1), 0);
   MoveToFrame(door0,1,door_speed);
   MoveToFrame(door1,1,door_speed);
   return;

# .................................................................................................

activated:
   if (movestatus==0)
   {
   if (getsenderid()<2) call callfloor;
   else if (getsenderid()==5) call closedoor;
   }
   return;

# .................................................................................................

arrived:
   if (movestatus==3) call opendoor;
   else if (movestatus==2) call move_elev;
   else if (movestatus==4) call resetstatus;
   return;

# .................................................................................................

callfloor:
   if (getsenderid()!=getcurframe(elev)) call closedoor;
   return;

# .................................................................................................

closedoor:
   if (getcurframe(elev)==0) 
{ 
movetoframe(door0,0,door_speed); 
movetoframe(door1,0,door_speed); 
}
   else if (getcurframe(elev)==1) 
{ 
movetoframe(door2,0,door_speed); 
movetoframe(door3,0,door_speed); 
}
   setwallcel(switch0,1);
   setwallcel(switch1,1);
   setwallcel(move0,1);
   setwallcel(move1,1);
   PlaySoundPos(wav0, SurfaceCenter(GetSenderRef()), 0.6, -1, -1, 0);
   movestatus=2;
   return;

# .................................................................................................

opendoor:
   if (getcurframe(elev)==0)
      {
//      sectoradjoins(getthingsector(door0), 1);
        movetoframe(door0,1,door_speed);
	movetoframe(door1,1,door_speed);
      }
   else if (getcurframe(elev)==1)
      {
//      sectoradjoins(getthingsector(door2), 1);
        movetoframe(door2,1,door_speed);
	movetoframe(door3,1,door_speed);
      }
   movestatus=4;
   return;

# .................................................................................................

resetstatus:
   setwallcel(switch0,0);
   setwallcel(switch1,0);
   setwallcel(move0,0);
   setwallcel(move1,0);
   PlaySoundPos(wav1, SurfaceCenter(GetSenderRef()), 0.6, -1, -1, 0);
   movestatus=0;
   return;

# .................................................................................................

move_elev:
   if (getcurframe(elev)==0)
      {
//      sectoradjoins(getthingsector(door0), 0);
      movetoframe(elev,1,elev_speed);
      }
   else if (getcurframe(elev)==1)
      {
//      sectoradjoins(getthingsector(door2), 0);
      movetoframe(elev,0,elev_speed);
      }
   movestatus=3;
   return;
end