// Aufruf Lokal | Vienna 11.01.2011
//
// Radio schaltet automatisch beim Einsteigen in ein Fahrzeug ein und beim Verlassen aus.
//
// 1. Aufruf schaltet Radio ein. Nächster Aufruf schaltet aus. usw.
//
// Aufruf:  temp = ["Soundname",Soundlänge]] execVM "Sound.sqf";
//
// Beispiel: temp = ["MeinSound",127] execVM "Sounds\Sound.sqf";
//  Wichtig, im 2. Übergabewert die Soundlänge eingeben (hier 127 Sekunden)! 
//
// In der description.ext ist die Klasse für den Sound einzufügen.

// Lokale Variable
 private ["_s","_l","_r","_t"];

// _s: Soundname aus dem Parameter in der Aktion laden
 _s = _this select 0;
 
// _l: Länge des Musikstücks (darf nicht viel kürzer sein, sonst Überschneidung)
 _l = _this select 1;
 
//Endlosschleife
while {true} do 
 {
  if (player != vehicle player AND alive player) then // Spieler in einem Fahrzeug
   {  
   
    // _r: unsichtbares Objekt
    _r = "HeliHEmpty" createVehicle getPos player;
    // Hauptschleife Sound starten (Wiederholung bis abgeschaltet wird)
    while {player != vehicle player AND alive player} do
     {
      // Sound starten
      _r say _s;
      // _t: nach Zeitablauf Sound neu starten
      _t = time + _l - 5;
      // Warteschleife bis Soundende und "Radio" dem Objekt _r nachsetzen
      while {_t > time AND player != vehicle player AND alive player} do 
       {
        _r setPos getPos player;
        sleep 1
       }
     };
     sleep 1; 
     deleteVehicle _r
   }; 
  sleep 1 
 }

 _veh = "AH1Z" createVehicle position Player;
 _veh setVehicleInit ' temp = this addAction ["*** Radio ein- oder ausschalten ***","Sounds\Radio.sqf",["BlackAttack",127],-1,false,true,""] ';
 processInitCommands;

/* Aufruf Lokal | Vienna 30.12.2010

 Radio über Aktionsmenü ein- und ausschalten

 1. Aufruf schaltet Radio ein. Nächster Aufruf schaltet aus. usw.

 Aufruf in der Initialisierung eines Objekt:  temp = this addAction ["Aktionstext","Dateiname",["Soundname",Soundlänge],-1,false,true,""]
   Wichtig! Im 2. Übergabewert Soundlänge die Abspieldauer des Sounds eingeben (im Beispiel 127 Sekunden)!

 Beispiel 1: temp = this addAction ["*** Radio ein- oder ausschalten ***","Sounds\Radio.sqf",["BlackAttack",127],-1,false,true,""]
 
 Beispiel 2: Für Vehicle welche mit createVehicle erstellt werden
    _veh = "AH1Z" createVehicle position Player;
    _veh setVehicleInit ' temp = this addAction ["*** Radio ein- oder ausschalten ***","Sounds\Radio.sqf",["BlackAttack",127],-1,false,true,""] ';
    processInitCommands;    

In der description.ext ist die Klasse für den Sound einzufügen.
*/

// Lokale Variable
  private ["_o","_s","_l","_r","_t"];

//globale Variable beim ersten Aufruf für Radio Kontrolle initialisieren.
  if (isNil "ViennasRadio") then {ViennasRadio = false};


// _o: Objekt welches den Sound abgibt
  _o = _this select 0;

// _s: Soundname aus dem Parameter in der Aktion laden
  _s = (_this select 3) select 0;
  
// _l: Länge des Musikstücks (darf nicht viel kürzer sein, sonst Überschneidung)
  _l = (_this select 3) select 1;
 
 
//Wenn aufrufendes Objekt zerstört, dann Aktion entfernen
 if (!alive _o) exitWith {player groupChat "---- Radio nicht mehr betriebsbereit! ----"; _o removeAction (_this select 2)};


// Radio einschalten wenn ViennasRadio false und ausschalten wenn ViennasRadio true
///////////////////////////////////////////////////////////////////////////////////

  if (!ViennasRadio) then //Radio erstellen (Radio einschalten)
    {
      ViennasRadio = true;
      // _r: unsichtbares Objekt
      _r = "HeliHEmpty" createVehicle getPos _o;
      // Hauptschleife Sound starten (Wiederholung bis abgeschaltet wird)
      while {ViennasRadio AND alive _o} do
        {
          // Sound starten
          _r say _s;
          // _t: nach Zeitablauf Sound neu starten
          _t = time + _l - 5;
          // Warteschleife bis Soundende und "Radio" dem Objekt _o nachsetzen
          while {_t > time AND ViennasRadio AND alive _o} do 
            {
              _r setPos position _o;
              sleep 0.5
            }
        };
      deleteVehicle _r
  }
else // vorherigen Radioskriptaufruf beenden (Radio ausschalten)
  {
    ViennasRadio = false;