Better weather system

datablock AudioProfile(Universal_Rain_Light_1)
{
   filename    = "~/data/sounds/rain_light_1.wav";
   description = AudioLooping2d;
};

datablock PrecipitationData(Rain)
{
   type = 0;
   soundProfile = "Universal_Rain_Light_1";
   materialList = "~/data/images/raindrops.dml";
   sizeX = 0.2;
   sizeY = 0.45;

   movingBoxPer = 0.35;
   divHeightVal = 1.5;
   sizeBigBox = 1;
   topBoxSpeed = 20;
   frontBoxSpeed = 30;
   topBoxDrawPer = 0.5;
   bottomDrawHeight = 40;
   skipIfPer = -0.3;
   bottomSpeedPer = 1.0;
   frontSpeedPer = 1.5;
   frontRadiusPer = 0.5;

};

datablock PrecipitationData(Rain1)
{
   type = 0;
   materialList = "~/data/images/raindrops.dml";
   sizeX = 0.2;
   sizeY = 0.45;

   movingBoxPer = 0.35;
   divHeightVal = 1.5;
   sizeBigBox = 1;
   topBoxSpeed = 20;
   frontBoxSpeed = 30;
   topBoxDrawPer = 0.5;
   bottomDrawHeight = 40;
   skipIfPer = -0.3;
   bottomSpeedPer = 1.0;
   frontSpeedPer = 1.5;
   frontRadiusPer = 0.5;
};

datablock PrecipitationData(Snow)
{
   type = 1;
   materialList = "~/data/images/snowflakes.dml";
   sizeX = 0.20;
   sizeY = 0.20;
   
   movingBoxPer = 0.35;
   divHeightVal = 1.5;
   sizeBigBox = 1;
   topBoxSpeed = 20;
   frontBoxSpeed = 30;
   topBoxDrawPer = 0.5;
   bottomDrawHeight = 40;
   skipIfPer = -0.3;
   bottomSpeedPer = 1.0;
   frontSpeedPer = 1.5;
   frontRadiusPer = 0.5;
};

function Sky::setStormClouds(%obj, %inStartT, %inLengthT, %outStartT, %outLengthT)
{
   if(%inStartT < %outStartT)
      %obj.stormCloudsShow(false);
   else
      %obj.stormCloudsShow(true);

   %obj.schedule(%inStartT*1000, "stormClouds", 1, %inLengthT);
   %obj.schedule(%outStartT*1000, "stormClouds", 0, %outLengthT);
}

function Sky::setStormFog(%obj, %inStartT, %inLengthT, %inPer, %outStartT, %outLengthT, %outPer)
{
   if(%inStartT < %outStartT)
      %obj.stormFogShow(false);
   else
      %obj.stormFogShow(true);
   %obj.schedule(%inStartT*1000, "stormFog", %inPer, %inLengthT);
   %obj.schedule(%outStartT*1000, "stormFog", %outPer, %outLengthT);
}

function Precipitation::setStorm(%obj, %inStartT, %inLengthT, %inPer, %outStartT, %outLengthT, %outPer)
{
   if(%inStartT < %outStartT)
      %obj.stormShow(false);
   else
      %obj.stormShow(true);
   %obj.schedule(%inStartT*1000, "stormPrecipitation", %inPer, %inLengthT);
   %obj.schedule(%outStartT*1000, "stormPrecipitation", %outPer, %outLengthT);
}

function newStorm()
{
%stormstart = getrandom(120);
%stormend = %stormstart + getrandom(120,240);
%rainstart = %stormstart + getrandom(35,90);
%lightstart = %stormstart + getrandom(0,45);
%lightning = getrandom(100);
%drops = getrandom(1000,4000);
%radius = getrandom(80,150);


echo("End: " @ %stormend @ " Start: " @ %stormstart @ " Rain: " @ %rainstart @ " LStart: " @ %lightstart @ " Lightning: " @ %lightning);

%ma = nametoid(MissionArea);
%x = getword(%ma.area,0);
%y = getword(%ma.area,1);
%w = getword(%ma.area,2);
%h = getword(%ma.area,3);

%x1 = %x + (%w/2);
%y1 = %y + (%h/2);
%z1 = 200;

   %obj = new Precipitation(Precipitation) {
		position = %x1 SPC %y1 SPC %z1;
		rotation = "1 0 0 0";
		scale = "1 1 1";
		dataBlock = "Rain1";
		lockCount = "0";
		homingCount = "0";
		percentage = "1";
		color1 = "0.400000 0.450000 0.480000 1.000000";
		color2 = "-1.000000 0.000000 0.000000 1.000000";
		color3 = "-1.000000 0.000000 0.000000 1.000000";
		offsetSpeed = "0.25";
		minVelocity = "1.25";
		maxVelocity = "4";
		maxNumDrops = %drops;
		maxRadius = %radius;
   };
	
MissionGroup.add(%obj);
%obj.stormShow(false);	
	
   Sky.setStormClouds(%stormstart, 60, %stormend, 60);
   Sky.setStormFog(%stormstart, 60, 1, %stormend, 40, 0);
   Precipitation.setStorm(%rainstart, 30, 1, %stormend, 40, 0);
   %obj.schedule(%rainstart*1000,"soundon",%stormend);
   %obj.schedule((%stormend+40)*1000,"delete");
   if(%lightning <= 50){
   	%obj.schedule(%lightstart*1000,"newlightning",%stormend,(%rainstart-%lightstart));
   }
  schedule((%stormend+60)*1000,0,"newstorm");
}

function Precipitation::soundon(%this,%stormend)
{
%ma = nametoid(MissionArea);
%x = getword(%ma.area,0);
%y = getword(%ma.area,1);
%w = getword(%ma.area,2);
%h = getword(%ma.area,3);

%x1 = %x + (%w/2);
%y1 = %y + (%h/2);
%w1 = %w * 1.5;
%h1 = %h * 1.5;
%z1 = 200;
%z2 = 300;

%obj = 	new AudioEmitter(Rain) {
		position = %x1 SPC %y1 SPC %z1;
		rotation = "1 0 0 0";
		scale = "1 1 1";
		profile = "Universal_Rain_Light_1";
		useProfileDescription = "1";
		outsideAmbient = "1";
		volume = "1";
		isLooping = "1";
		is3D = "0";
		minDistance = "20";
		maxDistance = "100";
		coneInsideAngle = "360";
		coneOutsideAngle = "360";
		coneOutsideVolume = "1";
		coneVector = "0 0 1";
		loopCount = "-1";
		minLoopGap = "0";
		maxLoopGap = "0";
		type = "EffectAudioType";
	};
MissionGroup.add(%obj);
%obj.schedule(%stormend*1000,"delete");
}

function Precipitation::newlightning(%this,%stormend,%rainstart)
{

%strikes = getrandom(2,10);
%ma = nametoid(MissionArea);
%x = getword(%ma.area,0);
%y = getword(%ma.area,1);
%w = getword(%ma.area,2);
%h = getword(%ma.area,3);

%x1 = %x + (%w/2);
%y1 = %y + (%h/2);
%w1 = %w * 1.5;
%h1 = %h * 1.5;
%z1 = 200;
%z2 = 300;

%obj = new Lightning() {
		position = %x1 SPC %y1 SPC %z1;
		rotation = "1 0 0 0";
		scale = %w1 SPC %h1 SPC z2;
		dataBlock = "DefaultStorm";
		lockCount = "0";
		homingCount = "0";
		strikesPerMinute = %strikes;
		strikeWidth = "2.5";
		chanceToHitTarget = "0.5";
		strikeRadius = "20";
		boltStartRadius = "20";
		color = "1.000000 1.000000 1.000000 1.000000";
		fadeColor = "0.100000 0.100000 1.000000 1.000000";
		useFog = "1";
	};
MissionGroup.add(%obj);
%obj.schedule((%stormend+40)*1000,"delete");
%obj.schedule(%rainstart*1000,"varyspm");
}

function lightning::varyspm(%this)
{
%strikes = getrandom(2,30);
%rndtime = getrandom(15,30);
%this.strikesPerMinute = %strikes;
%this.schedule(%rndtime*1000,"varyspm");
}