Engine
Class LiftExit

Core.Object
   |
   +--Engine.Actor
      |
      +--Engine.NavigationPoint
         |
         +--Engine.LiftExit

00001	//=============================================================================
00002	// LiftExit.
00003	//=============================================================================
00004	class LiftExit extends NavigationPoint
00005		placeable
00006		native;
00007	
00008	#exec Texture Import File=Textures\Lift_exit.pcx Name=S_LiftExit Mips=Off MASKED=1 COMPRESS=DXT1
00009	
00010	var() name LiftTag;
00011	var	Mover MyLift;
00012	var() byte SuggestedKeyFrame;	// mover keyframe associated with this exit - optional
00013	var byte KeyFrame;
00014	
00015	function bool SuggestMovePreparation(Pawn Other)
00016	{
00017		if ( (Other.Base == MyLift) && (MyLift != None) )
00018		{
00019			// if pawn is on the lift, see if it can get off and go to this lift exit
00020			if ( (self.Location.Z < Other.Location.Z + Other.CollisionHeight)
00021				 && Other.LineOfSightTo(self) )
00022				return false;
00023	
00024			// make pawn wait on the lift
00025			Other.DesiredRotation = rotator(Location - Other.Location);
00026			Other.Controller.WaitForMover(MyLift);
00027			return true;
00028		}
00029		return false;
00030	}
00031	
00032	defaultproperties
00033	{
00034	     SuggestedKeyFrame=255
00035	     bSpecialMove=True
00036	     Texture=Texture'Engine.S_LiftExit'
00037	}