#library "WIND"
int vol;

script 1 enter
 {
   str class = "AmbientSound";


   delay(1);

   do {
     delay(1);
     int posx = GetActorX(0);
     int posy = GetActorY(0);
     int posz = GetActorZ(0) + 1.0;
     int angle = GetActorAngle(0) >> 8;

   }
   until (SpawnForced("AmbientSound", posx, posy, posz, 1516));
    Thing_Activate(1516);
   SetThingSpecial(1516, 0, 1, vol);

   delay(1);
   }

   script 2 enter
 {
   While (1)
	{
   SetThingSpecial(1516, 0, 1, vol);

    If (CheckActorCeilingTexture(0, "F_SKY1"))
		{
			If (Vol<100)
            {
            Vol+=10;
            }
            Else
            {
            Vol+=0;
            };

    sector_setfade(0, vol, 0, 0);
        Delay(1);
		}
		Else
		{
			If (Vol>0)
            {
            Vol-=10;
            }
            Else
            {
            Vol-=0;
            };

    sector_setfade(0, vol, 0, 0);
        Delay(1);
		}
		}
        Delay(1);
		}