//Licht für ein Objekt

//Aufruf: [Objekt, Licht unter x Meter an, Helligkeit, [Position des Lichts am Objekt]] execVM "Kabinenlicht.sqf";

//Aufrufbeispiel für Initzeile des Helis: temp = [Heli1,50,0.01,[0, -3.25, -0.25]] execVM "Kabinenlicht.sqf";

if (!isServer) exitWith {}; //exit wenn nicht Server

private ["_Objekt","_bisMeter","_Helligkeit","_LichtPos","_Licht","_Ein"];

_Objekt     = _this select 0; // Objekt an die das Licht gebunden wird
_bisMeter   = _this select 1; // Höhe bis zu der das Licht leuchtet (von 0 - _bisMeter)
_Helligkeit = _this select 2; // Helligkeit des Lichts
_LichtPos   = _this select 3; // Array für Position des Lichts am Objekt

_Licht = "#lightpoint" createVehicle [0,0];
_Licht setLightAmbient    [1, 0, 0];
_Licht setLightColor      [1, 0, 0];
_Licht lightAttachObject  [_Objekt, _LichtPos];

while {damage _Objekt < 0.8} do  //Schleife solange Objekt nicht zerstört
  {
    if (position _Objekt select 2 > _bisMeter) then // Licht aus
      {
        _Licht setLightBrightness 0;
        //warten bis Objekt unter der Höhe
        waitUntil {damage _Objekt > 0.8 or position _Objekt select 2 < _bisMeter} 
      }
    else                                            // Licht ein 
      {
        _Licht setLightBrightness _Helligkeit;
        //warten bis Objekt über der Höhe
        waitUntil {damage _Objekt > 0.8 or position _Objekt select 2 > _bisMeter} 
      }
  };

deleteVehicle _Licht  //Lichtobjekt löschen


/*
setLightBrightness = Die Lichtstärke, wie hell die Lichtquelle leuchten soll. (0-1)
setLightAmbient    = Das Licht Ambiente (am besten die selben Werte wie für setLightColor)
setLightColor      = Die Lichtfarbe von weiss über blau und grün zu rot (setLightColor [rot, grün, blau] 
                     weiss = [1, 1, 1]  grün = [0, 1, 1]  rot = [1, 0, 0]  blau = [0, 0, 1]
lightAttachObject  = Hier wird das Licht an ein Objekt/Fahrzeug geheftet. (wie attachTo Befehl)
*/

//Rotes Heli-Kabinenlicht.   Lokaler aufruf.          [Vienna  15.11.2011]
//
//Aufruf: [Objekt, Licht unter x Meter an, Helligkeit, [Position des Lichts am Objekt]] execVM "Kabinenlicht.sqf";
//
//Beispiel: [_h,30,0.01,[0, -3.25, -0.25]] execVM "myHeli\Kabinenlicht.sqf";

private ["_Objekt","_bisMeter","_Helligkeit","_LichtPos","_Licht"];

_Objekt     = _this select 0; // Objekt an die das Licht gebunden wird
_bisMeter   = _this select 1; // Höhe bis zu der das Licht leuchtet (von 0 - _bisMeter)
_Helligkeit = _this select 2; // Helligkeit des Lichts
_LichtPos   = _this select 3; // Array für Position des Lichts am Objekt
//Licht erstellen
_Licht = "#lightpoint" createVehicle [0,0];
_Licht setLightAmbient    [1, 0, 0];
_Licht setLightColor      [1, 0, 0];
_Licht lightAttachObject  [_Objekt, _LichtPos];
//Schleife solange Objekt vorhanden
while {alive _Objekt} do  
  {
    if (position _Objekt select 2 > _bisMeter) then // Licht aus
      {
        _Licht setLightBrightness 0;
        //warten bis Objekt unter der Höhe
        waitUntil {!alive _Objekt or position _Objekt select 2 < _bisMeter} 
      }
    else                                            // Licht ein 
      {
        _Licht setLightBrightness _Helligkeit;
        //warten bis Objekt über der Höhe
        waitUntil {!alive _Objekt or position _Objekt select 2 > _bisMeter} 
      }
  };
deleteVehicle _Licht  //Lichtobjekt löschen

...

// _h: Heli
  _h = createVehicle ["Mi17_Civilian", myHeliZielPosition, [], _dErst, "FLY"];

//Kabinenlicht aufrufen
  [_h,30,0.01,[0, -3.25, -0.25]] execVM "myHeli\Kabinenlicht.sqf";

...