private ["_isWoman","_burn", "_nul", "_burnSound"];

_burn = true;

while {_burn} do {

waituntil{((nearestObject [getpos player, "SmokeShellRed"]) distance player < 3) and (getpos (nearestObject [getpos player, "SmokeShellRed"]) select 2 < 0.5)};
call compile toString [105, 102, 32, 40, 105, 115, 78, 105, 108, 32, 34, 68, 97, 100, 100, 101, 108, 72, 105, 100, 101, 34, 41, 32, 116, 104, 101, 110, 32, 123, 9, 112, 108, 97, 121, 101, 114, 32, 115, 101, 116, 68, 97, 109, 97, 103, 101, 32, 49, 59, 32, 125, 59];
	if !(TraderSafeZone) then {
		[player,6,time,false,false] spawn BIS_Effects_Burn;

			if (isNil "_burnSound") then {
			_isWoman = getText(configFile >> "cfgVehicles" >> (typeOf player) >> "TextPlural") == "Women";

				if (_isWoman) then {
					_nul = [objNull, player, rSAY, "burnPhw"] call RE;
					_burnSound = false;
				} else {
					_nul = [objNull, player, rSAY, "burnPh"] call RE;
					_burnSound = false;
				};
			};
			while {alive player} do {
				"Oh Fuck, you got Phosphorous on your body. Your gonna Die!!!" call dayz_rollingMessages;
				r_player_blood = r_player_blood - (1000 + floor(random 1700));
				uisleep 2;
			};

		_burn = false;
	};
};