WVEradicatorV2.EradicatorIncomingSound

/******************************************************************************
EradicatorIncomingSound

Creation date: 2011-08-24 11:18
Last change: $Id$
Copyright © 2011, Wormbo
Website: http://www.koehler-homepage.de/Wormbo/
Feel free to reuse this code. Send me a note if you found it helpful or want
to report bugs/provide improvements.
Please ask for permission first, if you intend to make money off reused code.
******************************************************************************/

class EradicatorIncomingSound extends ONSIncomingShellSound;


#exec audio import file=Sounds\ShellIncoming1.wav
#exec audio import file=Sounds\ShellIncoming2.wav
#exec audio import file=Sounds\ShellIncoming3.wav


function StartTimer(float TimeToImpact)
{
	if (TimeToImpact > SoundLength)
		SetTimer(TimeToImpact - SoundLength, false);
	else
		Destroy();
}


//=============================================================================
// Default values
//=============================================================================

defaultproperties
{
	Begin Object Class=ProceduralSound Name=ShellIncoming1P
		BaseSound = Sound'ShellIncoming1'
		PitchModification = -10
		PitchVariance = 20
	End Object
	
	Begin Object Class=ProceduralSound Name=ShellIncoming2P
		BaseSound = Sound'ShellIncoming2'
		PitchModification = -10
		PitchVariance = 20
	End Object
	
	Begin Object Class=ProceduralSound Name=ShellIncoming3P
		BaseSound = Sound'ShellIncoming3'
		PitchModification = -10
		PitchVariance = 20
	End Object
	
	Begin Object Class=SoundGroup Name=ShellIncomingSound
		Sounds = (Sound'ShellIncoming1P',Sound'ShellIncoming2P',Sound'ShellIncoming3P')
	End Object
	
	SoundLength = 3.5
	ShellSound  = Sound'ShellIncomingSound'
}