XIDMaps
Class SMarin02

Core.Object
   |
   +--Engine.Actor
      |
      +--Engine.Info
         |
         +--XIII.MapInfo
            |
            +--XIDMaps.Map11_SousMarin
               |
               +--XIDMaps.SMarin02

//_____________________________________________________________________________

00001	//-----------------------------------------------------------
00002	//
00003	//-----------------------------------------------------------
00004	class SMarin02 extends Map11_SousMarin;
00005	
00006	var(SMarin02Setup) Name KeyEvent;
00007	var(SMarin02Setup) XIIIPawn KeyKeeper;
00008	var(SMarin02Setup) Porte DoorToOpen;
00009	var(SMarin02Setup) name EventClefPorte;
00010	
00011	//_____________________________________________________________________________
00012	function FirstFrame()
00013	{
00014	    local inventory Inv;
00015	
00016	    Super.FirstFrame();
00017	
00018	    if ( KeyKeeper != none )
00019	    {
00020	      Inv = GiveSomething(class'Keys', KeyKeeper );
00021	      Inv.Event = KeyEvent;
00022	      Keys(Inv).KeyCodeName = DoorToOpen.UnlockItemCode;
00023	      XIIIItems(Inv).EventCausedOnPick = EventClefPorte;
00024	    }
00025	}
00026	
00027	// No need for script as there is only one objective.
00028	
00029	
00030	defaultproperties
00031	{
00032	}