XIIIMP
Class LoseArmor

source: C:\XIII\XIIIMP\Classes\LoseArmor.uc
Core.Object
   |
   +--Engine.Actor
      |
      +--Engine.Inventory
         |
         +--XIIIMP.MarioSuperBonus
            |
            +--XIIIMP.LoseArmor
Direct Known Subclasses:None

class LoseArmor
extends XIIIMP.MarioSuperBonus

//----------------------------------------------------------- // //-----------------------------------------------------------
Variables
 Pawn MyPawn


Function Summary
 
simulated
GiveTo(Pawn Other)
     
//__________________________________________________________________________



Source Code


00001	//-----------------------------------------------------------
00002	//
00003	//-----------------------------------------------------------
00004	class LoseArmor extends MarioSuperBonus;
00005	
00006	var Pawn MyPawn;
00007	
00008	simulated event Destroyed()
00009	{
00010	    RemoveIconInPlayerHud();
00011	    super.Destroyed();
00012	}
00013	
00014	//__________________________________________________________________________
00015	
00016	function RemoveArmor(class<Inventory> ItemClass, Pawn P)
00017	{
00018	    local Inventory NewItem;
00019	
00020	    if( P.FindInventoryType(ItemClass)!=None )
00021	    {
00022	        NewItem = P.FindInventoryType(ItemClass);
00023	
00024	        if( NewItem != none )
00025	        {
00026	            if( Armor(NewItem).Charge > 20 )
00027	            {
00028	//                log("--- REMOVE ARMOR ---");
00029	                Armor(NewItem).Charge -= 5;
00030	
00031	                if( Armor(NewItem).Charge < 20 )
00032	                    Armor(NewItem).Charge = 20;
00033	            }
00034	        }
00035	    }
00036	}
00037	
00038	//__________________________________________________________________________
00039	
00040	simulated function GiveTo( pawn Other )
00041	{
00042	    Super.GiveTo(other);
00043	    MyPawn = Other;
00044	    AddIconInPlayerHud( Other );
00045	    SetTimer(1.0,true);
00046	    SetTimer2(20.0,false);
00047	}
00048	
00049	//__________________________________________________________________________
00050	
00051	event Timer()
00052	{
00053	    RemoveArmor(class'Casque', MyPawn);
00054	    RemoveArmor(class'GiletMk1', MyPawn);
00055	}
00056	
00057	//__________________________________________________________________________
00058	
00059	event Timer2()
00060	{
00061	    SetTimer( 0.0,false );
00062	    SetTimer2( 0.0,false );
00063	
00064	    Destroy();
00065	}
00066	
00067	//__________________________________________________________________________
00068	
00069	
00070	
00071	defaultproperties
00072	{
00073	     BonusIconId=64
00074	}

End Source Code