XIIIMP
Class SuperArmor

Core.Object
   |
   +--Engine.Actor
      |
      +--Engine.Inventory
         |
         +--XIIIMP.MarioSuperBonus
            |
            +--XIIIMP.SuperArmor

//__________________________________________________________________________

00001	//-----------------------------------------------------------
00002	//
00003	//-----------------------------------------------------------
00004	class SuperArmor extends MarioSuperBonus;
00005	
00006	//__________________________________________________________________________
00007	
00008	simulated event Destroyed()
00009	{
00010	    RemoveIconInPlayerHud();
00011	    super.Destroyed();
00012	}
00013	
00014	//__________________________________________________________________________
00015	
00016	event Timer2()
00017	{
00018	    SetTimer( 0.0,false );
00019	    SetTimer2( 0.0,false );
00020	
00021	    Destroy();
00022	}
00023	
00024	//__________________________________________________________________________
00025	
00026	function Inventory GiveArmor(class<Inventory> ItemClass, Pawn P)
00027	{
00028	  local Inventory NewItem;
00029	
00030	  if( P.FindInventoryType(ItemClass)==None )
00031	  {
00032	    NewItem = Spawn(ItemClass,,,P.Location);
00033	    if( NewItem != None )
00034	      NewItem.GiveTo(P);
00035	  }
00036	  else
00037	  {
00038	    NewItem = P.FindInventoryType(ItemClass);
00039	
00040	    Armor(NewItem).Charge = 100;
00041	  }
00042	  return NewItem;
00043	}
00044	
00045	//__________________________________________________________________________
00046	
00047	simulated function GiveTo( pawn Other )
00048	{
00049	    Super.GiveTo(other);
00050	
00051	    GiveArmor(class'Casque', Other);
00052	    GiveArmor(class'GiletMk1', Other);
00053	    AddIconInPlayerHud( Other );
00054	    SetTimer2(1.0,false);
00055	}
00056	
00057	
00058	
00059	defaultproperties
00060	{
00061	     BonusIconId=2048
00062	}