SolvedEarthQuake Script?

//--- Earthquake

player spawn {
	//playsound "eq";
	for "_i" from 0 to 200 do {
		_vx = vectorup _this select 0;
		_vy = vectorup _this select 1;
		_vz = vectorup _this select 2;
		_coef = 0.01 - (0.0001 * _i);
		_this setvectorup [
			_vx+(-_coef+random (2*_coef)),
			_vy+(-_coef+random (2*_coef)),
			_vz+(-_coef+random (2*_coef))
		];
		sleep (0.01 + random 0.01);
	};
	[player, 0, 0] call BIS_fnc_setPitchBank;
};

EarthQuake_destruction_zone	= 100;//Radius - 0 = No Damage  


damageradius = {
if (EarthQuake_destruction_zone > 0) then
{
	{_x setdamage 1} forEach (nearestObjects [(getpos vehicle player), [], EarthQuake_destruction_zone]);
};