_z1 = ((getPosASL _x) select 2) - (_bootpos select 2);

lhd = [this] execVM "CreateLHD.sqf";

_LHDspawn = _this select 0;
_LHDdir = getdir _LHDspawn;
_LHDspawnpoint = getposasl _LHDspawn;

_land_lhd_house1 = "Land_LHD_house_1" createvehicle _LHDspawnpoint;
_land_lhd_house2 = "Land_LHD_house_2" createvehicle _LHDspawnpoint;
_land_lhd_elev = "Land_LHD_elev_R" createvehicle _LHDspawnpoint;
_land_lhd1 = "Land_LHD_1" createvehicle _LHDspawnpoint;
_land_lhd2 = "Land_LHD_2" createvehicle _LHDspawnpoint;
_land_lhd3 = "Land_LHD_3" createvehicle _LHDspawnpoint;
_land_lhd4 = "Land_LHD_4" createvehicle _LHDspawnpoint;
_land_lhd5 = "Land_LHD_5" createvehicle _LHDspawnpoint;
_land_lhd6 = "Land_LHD_6" createvehicle _LHDspawnpoint;
_land_lhd_house1 setdir _LHDdir;
_land_lhd_house2 setdir _LHDdir;
_land_lhd_elev setdir _LHDdir;
_land_lhd1 setdir _LHDdir;
_land_lhd2 setdir _LHDdir;
_land_lhd3 setdir _LHDdir;
_land_lhd4 setdir _LHDdir;
_land_lhd5 setdir _LHDdir;
_land_lhd6 setdir _LHDdir;
_land_lhd_house1 setpos _LHDspawnpoint;
_land_lhd_house2 setpos _LHDspawnpoint;
_land_lhd_elev setpos _LHDspawnpoint;
_land_lhd1 setpos _LHDspawnpoint;
_land_lhd2 setpos _LHDspawnpoint;
_land_lhd3 setpos _LHDspawnpoint;
_land_lhd4 setpos _LHDspawnpoint;
_land_lhd5 setpos _LHDspawnpoint;
_land_lhd6 setpos _LHDspawnpoint;

_land_lhd_house1 attachTo [_LHDspawn,[-3.3,-6.15,17],"hatch1"];
_land_lhd_house2 attachTo [_LHDspawn,[-6.49,-46.8,19.07],"hatch1"];
_land_lhd_elev attachTo [_LHDspawn,[2.4,-115.9,0.23],"hatch1"];
_land_lhd1 attachTo [_LHDspawn,[-0.61,84.1,-0.65],"hatch1"];
_land_lhd2 attachTo [_LHDspawn,[-1.23,22.8,-0.65],"hatch1"];
_land_lhd3 attachTo [_LHDspawn,[0,0,0],"hatch1"];
_land_lhd4 attachTo [_LHDspawn,[-2.065,-44.9,1],"hatch1"];
_land_lhd5 attachTo [_LHDspawn,[-2.45,-89.8,0.35],"hatch1"];
_land_lhd6 attachTo [_LHDspawn,[-2.05,-130.8,0.35],"hatch1"];

player addaction ["Bewegung!","bewegung.sqf",[_LHDspawn,_land_lhd1]];

_array = _this select 3;
_boot = _array select 0;
_lhd1 = _array select 1;
_enemyside = east;

hold = false;
_boot setVelocity [0,5,0];

_objects = nearestObjects [_boot, ["LAND","AIR"], 100];
_max = (count _objects) - 1;
_i = 0;

for [{_i = 0},{_i <= _max},{_i = _i + 1}] do {
	_penemy = _objects select _i;
	_engine = IsEngineOn _penemy;
	If ((side _penemy) == east || !(alive _penemy)) then {
		_objects = _objects - [_penemy];
	};
};

{
	_bootpos = _boot modelToWorld [0,0,0];
	_xpos = _x modelToWorld [0,0,0];
	_x1 = (_xpos select 0) - (_bootpos select 0);
	_y1 = (_xpos select 1) - (_bootpos select 1);
	_z1 = ((getPosASL _x) select 2) - (_bootpos select 2);
	_dir = direction _x;
		hint format ["Name: %5\n\n_X Z (Model): %3\n_X Z (getPos): %4\n_X Z (...ASL): %8\n\nBoot Z (Model): %2\nBoot Z (getPos): %6\nBoot Z (...ASL): %7\n\nLHD1 Z (Model): %8\nLHD1 Z (getPos): %9\nLHD1 Z (...ASL): %10\n\nZ1: %1",_z1,_bootpos select 2,_xpos select 2,((getpos _x) select 2),name _x,(getpos _boot) select 2,(getPosASL _boot) select 2, (getPosASL _x) select 2,(_lhd1 modelToWorld [0,0,0]),((getPos _lhd1) select 2), (getposASL _lhd1) select 2];
 	_x attachTo [_boot,[_x1,_y1,_z1]];
	attached = true;
	KEY_pressed = compile preprocessfile "onTop_KEY_pressed.sqf";
	(findDisplay 46) displaySetEventHandler ["KeyDown", "_this call KEY_pressed"];
	If (_x isKindOf "AIR") then {_x addaction ["Detach + Get In","detach.sqf"]};
	_x setdir _dir;
	sleep 1;
} foreach _objects;

player groupChat "You can detach yourself by pressing the Insert (Einfuegen) key.";

While {!hold} do {
	_boot setVelocity [0,5,0];
	sleep 5;
};

this enableSimulation false;