var vSoundhandle;
var vVolume;
var vFreq;
vSoundhandle = snd_loop(sndEngine, 100, 0);
while(vEngineRunning)
{
vVolume = vCarSpeed*vVolumeFactor;
vFreq = vCarSpeed*vFreqFactor;
snd_tune(vSoundhandle, vVolume, vFreq, 0);
wait(1);
}

action bdplatte {
   var oid;
	pplatte = my;
	my.passable = on;	
	my.flare = off;
	my.transparent = off;
	my.ambient = 10;
        my.z += -15;

   
//Physik Quellcode
	phent_settype(my,PH_RIGID,PH_SPHERE);
	phent_setmass(my,60,PH_POLY);
	phent_setdamping(my,0,50);
	phent_setgroup(my,2);

	vec_set(temp.x,vector(0,0,1));
	oid = phcon_add(PH_HINGE,my,0);
	phcon_setparams1(oid,vector(my.x,my.y,my.z-20),temp.x,nullvector);
	phcon_setparams2(oid,vector(-360,360,0),nullvector,nullvector);  //Darf sich um 360 Grad drehen
	phent_setdamping(my,0,75);
   
   phent_enable(my,0);
	my.tilt = -7; //Sollte klar sein
	phent_enable(my,1);
	vec_set(temp.x,vector(0,0,1));
	vec_rotate(temp.x,vector(0,-7,0));
	phcon_setparams1(oid,vector(my.x,my.y,my.z),temp.x,nullvector);
	ph_setcorrections(100000,0.001);

	while(1) {
		phcon_setmotor(oid,vector((plattespeed*-1.20),24000000,0),nullvector,nullvector);  //Platte beschleunigen

		wait(1);
	}	
}

function plat_speed_up() {
	while((key_q) && (plattespeed > -22)) {
		plattespeed -= 0.085*time;
		
		wait(1);
	}
      plattespeed = max(plattespeed,-22);
}

function plat_speed_do() {
	while((key_a) && (plattespeed < 0)) {
		plattespeed += 0.085*time;
		
		wait(1);
	}
	   plattespeed = min(plattespeed,0);
}

SOUND* sndEngine = "brumm.wav"; // define your soundfile

function EngineSound()
{
   var vSoundhandle;
   var vFreq;
   vSoundhandle = snd_loop(sndEngine, 100, 0); // play sound in a loop
   while(1)
   {       
      vFreq = plattespeed*-4; // get speed, play with -4
      snd_tune(vSoundhandle, 0, vFreq, 0); // tune sound
      wait(1);
   }
}