/* 
erstellt am 24.07.2016 durch Drunken Officer
Das Script erstellt eine Palette an einem zufällig ausgesuchten Marker.Es wird ein Feuer an dieser Palette entzündet. Desweiteren wird ein Menüeintrag zum Löschen erstellt.
*/


if !(isServer) exitWith {};

private ["_mkrarray", "_mkr"];
_mkrarray=[];
for "_z" from 1 to 50 do
	{
		//_mrk= call compile format [" 'mkr_palette_%1' ",_z];
		_mrk = format ["mkr_palette_%1",_z];
		_mkrarray pushBack _mrk;
	};
	
{_x setmarkerAlpha 0} forEach _mkrarray;

while {true} do

{
sleep (2*1);
//-- Es wäre zum einen diese Variante möglich. Hinter dem letzen Marker kommt KEIN Komma !!!
//palette = createVehicle ["Land_Pallets_F", getMarkerPos "mkr_palette_1", ["mkr_palette_2","mkr_palette_3","mkr_palette_2","mkr_palette_4","mkr_palette_5","mkr_palette_6","mkr_palette_7",............."mkr_palette_50"], 0, "NONE"];


// --- ein anderer Weg 
_selectMarker = _mkrarray call bis_fnc_selectrandom;
hint str (_selectMarker);
_selectMarker setMarkerAlpha 1;

palette = createVehicle ["Land_Pallets_F", getMArkerPos _selectMarker, [], 0, "NONE"]; publicVariable "palette";
palette setdir (random 360); 
palette setVariable ["var_fireisgone",false, true];

[palette,["<t color='#ffb400'>Feuer löschen</t>",{ [(_this select 0), (_this select 2)] remoteExec ["removeAction"]; palette setVariable ["var_fireisgone",true, true]; },nil,6,true,false,"","_this distance _target < 5 && side _this == RESISTANCE" ] ] remoteExec ["addaction"];

				Firesource1 = "#particlesource" createVehicle (position palette);      
				Firesource1 setParticleClass "BigDestructionFire";  
				Firesource1 attachto [palette,[0,0,0.13]];
				// publicVariable "Firesource1"; 
		
//---- löscht Palette und Feuer
waituntil { sleep 1; palette getVariable ["var_fireisgone",true]; };
deleteVehicle Firesource1;
sleep 4;
deleteVehicle palette;
_selectMarker setMarkerAlpha 0;

};

[palette,["<t color='#ffb400'>Feuer löschen</t>",{ [(_this select 0), (_this select 2)] remoteExec ["removeAction"]; palette setVariable ["var_fireisgone",true, true]; },nil,6,true,false,"","_this distance _target < 5 && side _this == RESISTANCE && 'A3L_Extinguisher' == currentWeapon _this" ] ] remoteExec ["addaction"];