//Drosselt die Geschwindigkeit eines Helis für eine bestimmte Zeit [Vienna 27.05.2001]
//
//Parameter:[Heliname, Gesamtzeit in Sekunden, Geschwindigkeit]
//
//Aufrufbeispiel für Auslöser:  temp = [Heli1,60,40] execVM "HeliSpeed.sqf";

Private ["_u","_s1","_s2","_t"];

_u  = _this select 0;          //Heliname
_t  = time + (_this select 1); //Gesamtdauer
_s1 = _this select 2;          //Endgeschwindkigkeit

_s2 = speed _u; //Anfangsgeschwindigkeit auslesen

//Schleife die den Heli langsam abbremst
driver _u sideChat format["Geschwindigkeit von %1 km/h auf %2 km/h drosseln!",floor _s2,_s1];
while {_s2 > _s1} do
 {
   _u limitSpeed _s2;
   _s2 = _S2 - 0.2;
   sleep 0.01 
 };

//Schleife die die gewünschte Geschwindigkeit bis Zeitablauf hält
while {_t > time} do
 {
   _u limitSpeed _s1
 };

driver _u sideChat "Geschwindigkeitsdrosselung beendet!"