XIIIMP
Class LoseLife

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

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


Function Summary
 
simulated		 GiveTo(Pawn Other)
     
//__________________________________________________________________________


Source Code 

00001	//-----------------------------------------------------------
00002	//
00003	//-----------------------------------------------------------
00004	class LoseLife extends MarioSuperBonus;
00005	
00006	var Pawn MyPawn;
00007	
00008	simulated event Destroyed()
00009	{
00010	    RemoveIconInPlayerHud();
00011	    super.Destroyed();
00012	}
00013	
00014	//__________________________________________________________________________
00015	
00016	simulated function GiveTo( pawn Other )
00017	{
00018	    Super.GiveTo(other);
00019	    MyPawn = Other;
00020	    AddIconInPlayerHud( Other );
00021	    SetTimer(1.0,true);
00022	    SetTimer2(20.0,false);
00023	}
00024	
00025	//__________________________________________________________________________
00026	
00027	event Timer()
00028	{
00029	    if( MyPawn.Health > 50 )
00030	    {
00031	       MyPawn.Health -= 12.5;
00032	
00033	       if( MyPawn.Health < 50 )
00034	           MyPawn.Health = 50;
00035	    }
00036	}
00037	
00038	//__________________________________________________________________________
00039	
00040	event Timer2()
00041	{
00042	    SetTimer( 0.0,false );
00043	    SetTimer2( 0.0,false );
00044	
00045	    Destroy();
00046	}
00047	
00048	//__________________________________________________________________________
00049	
00050	
00051	
00052	defaultproperties
00053	{
00054	     BonusIconId=128
00055	}
End Source Code