_shellArray =
[
	"ARTY_Sh_122_HE",
	"ARTY_Sh_81_HE"
];

_shell = _shellArray call BIS_fnc_selectRandom;

_explosion = _shell createVehicle position IED2;

private ["_usbv","_boom","_alarm","_nachricht","_warnung"];
_usbv = _this select 0;
_alarm = _this select 1;
_boom = _this select 2;
_nachricht = localize "STR_usbv_sicht"; // ich arbeite mit einer STringtable für mehrsprachige Ausgabe
_warnung = 0;
// hier besteht die Möglichkeit das Ding zu entschärfen
IED_boom = _this select 0 addAction [format ["<t color='#000080'>%1</t>", localize "STR_action_IED"], "scripte\usbv_wegmachen.sqf"];

while {alive _usbv} do
{
_no = nearestObjects [_usbv,["man","car","tank","motorcycle"],_alarm]; //___ nur Autos, LKW
_no1 = _no select 0;
    if (!isNull _no1 && _warnung == 0 ) then {hint parsetext format ["<br /><t align='center' color='#FF1500' size='1.5'>%1</t><br />",_nachricht]; _warnung = 1;};
    if (!isNull _no1 && side _no1 == WEST && (_no1 distance _usbv <= _boom)) then 
    {
     _granate = createVehicle ["r_80mm_he",[getPos _usbv select 0, getPos _usbv select 1],[], 0, 'FLY'];
    deleteVehicle _usbv;
    _warnung = 0;
    };
     sleep 0.1;
    };
// *** IED_remove wird durch das entschärfen auf 1 gesetzt. 
if (!isNil"IED_remove") exitWith {};
_granate = createVehicle ["r_80mm_he",[getPos _usbv select 0, getPos _usbv select 1],[], 0, 'FLY'];
deleteVehicle _usbv;    
(_this select 0) removeAction IED_boom;    


//gün #00E500
//rot #FF1500

_shellArray =
[
	"ARTY_Sh_122_HE",
	"ARTY_Sh_81_HE"
];
_shell = _shellArray call BIS_fnc_selectRandom;
_explosion = _shell createVehicle position IED2;
sleep 0.5;
deleteVehicle IED2;