XIDCine
Class LiftCage

Core.Object
   |
   +--Engine.Actor
      |
      +--Engine.Mover
         |
         +--XIII.XIIIMover
            |
            +--XIDCine.LiftCage

//____________________________________________________________________

00001	//-----------------------------------------------------------
00002	//
00003	//-----------------------------------------------------------
00004	class LiftCage extends XIIIMover;
00005	
00006	VAR actor act;
00007	//____________________________________________________________________
00008	function PostBeginPlay()
00009	{
00010	    Super.PostBeginPlay();
00011	
00012		if (KeyNum != 0)
00013		{
00014			bOpened=true;
00015			bClosed=false;
00016		}
00017		PrevKeyNum = KeyNum;
00018	}
00019	/*
00020	EVENT Attach(Actor other)
00021	{
00022		Log("ATTACH "$other);
00023	}
00024	*/
00025	EVENT Detach(Actor other)
00026	{
00027		if ( Velocity != vect(0,0,0) )
00028		{
00029			LOG ("REATTACH"@other@"To me"@name);
00030			act=other;
00031			SetTimer2(0.001,false);
00032	//		other.Velocity-=Velocity;
00033		}
00034	}
00035	
00036	EVENT Timer2()
00037	{
00038		if ( act!=none && !act.bDeleteMe )
00039			act.SetBase( self );
00040	}
00041	
00042	
00043	
00044	
00045	defaultproperties
00046	{
00047	     bNoInteractionIcon=True
00048	     MoverEncroachType=ME_IgnoreWhenEncroach
00049	     InitialState="TriggerToggle"
00050	}