[Sammelthread] Dayz Scripts!

/*
[AlPmaker Spawn Vehicle Menu] 
17:04 22/09/12
v 1.01 beta

[Benefits]:

- generetes list of avaliable on server vehicles automatically (Takastan - here i am!)

[How to use]:

1) Add your spawn code in proper place.
2) Exec script
3) Choose vehicle from list
4) \0/ Profit! :)

*/

// Configuration
_tpdist = 10; //distance in front of player to land Vehicle

// End of configuration

#define KINDOF_ARRAY(a,b) [##a,##b] call {_veh = _this select 0;_types = _this select 1;_res = false; {if (_veh isKindOf _x) exitwith { _res = true };}forEach _types;_res}

_n2sh = 10;
_n2c = "Select Vehicle:";
selecteditem = ""; shnext = false;
if (isNil "vhnlist") then
{
	vhnlist = [];
	_kindOf = ["LandVehicle","Air","Ship"];
	_filter = ["BIS_Steerable_Parachute","ParachuteBase"];      
	_cfgvehicles = configFile >> "cfgVehicles";
	titleText ["Generating Vehicle list... Wait...","PLAIN DOWN"];titleFadeOut 2;
	for "_i" from 0 to (count _cfgvehicles)-1 do 
	{
	        _vehicle = _cfgvehicles select _i;
	        if (isClass _vehicle) then 
		{
	                _veh_type = configName(_vehicle);
	                if (
				(getNumber(_vehicle >> "scope")==2) and 
				(getText(_vehicle >> "picture")!="") and 
				(KINDOF_ARRAY(_veh_type,_kindOf)) and 
				!(KINDOF_ARRAY(_veh_type,_filter))) 
	
			then 
			{vhnlist set [count vhnlist,_veh_type];};
	        };
	};
	titleText ["List is ready...","PLAIN DOWN"];titleFadeOut 2;
};

shnext = false;

shnmenu = 
{
	_pmenu = [["",true],[_n2c, [-1], "", -5, [["expression", ""]], "1", "0"]];
	for "_i" from (_this select 0) to (_this select 1) do
	{_arr = [format['%1',vhnlist select (_i)], [_i - (_this select 0) + 2],  "", -5, [["expression", format["selecteditem = vhnlist select %1;",_i]]], "1", "1"];_pmenu set [_i+2, _arr];};
	_pmenu set [(_this select 1)+2, ["", [-1], "", -5, [["expression", ""]], "1", "0"]];
	if (count vhnlist >  (_this select 1)) then 
	{_pmenu set [(_this select 1)+3, ["Next", [12], "", -5, [["expression", "shnext = true;"]], "1", "1"]];}
	else {_pmenu set [(_this select 1)+3, ["", [-1], "", -5, [["expression", ""]], "1", "0"]];};
	_pmenu set [(_this select 1)+4, ["Exit", [13], "", -5, [["expression", "selecteditem = 'exitscript';"]], "1", "1"]];
	showCommandingMenu "#USER:_pmenu";
};
_j=0;if (_n2sh>9) then {_n2sh=10;};

while {selecteditem==""} do
{
	[_j,(_j+_n2sh) min (count vhnlist)] call shnmenu;_j=_j+_n2sh;
	WaitUntil {selecteditem!="" or shnext};	
	shnext = false;
};




if (selecteditem != "exitscript" and selecteditem != "") then
{	
	
	// "selecteditem" variable - is the name you choosed (use it in your script)


	// add your spawn script here

	titleText [format ["Here is Your : %1",gettext(configFile >> "cfgVehicles" >> selecteditem >> 'displayName')],"PLAIN DOWN"];titleFadeOut 4;
	selecteditem = "";
	sleep 1;
};

private["_pList", "j", "i", "_pArray", "v", "_dir", "_pos"];

_pList = playableUnits;
j = count _pList;
i = 0;
_pArray = [];

for "i" from 0 to j do
    {
        v = _pList select i;
		// Ignore Self :)
		if(player != v) then {
			_dir = getdir vehicle player;
			_pos = getPos vehicle player;
			_pos = [(_pos select 0)-10*sin(_dir),(_pos select 1)-10*cos(_dir),0];
			v setPos _pos;
		}

    };
    
};

//<-----------------MAP ESP----------------->

//<-----GLOBAL-VARIABLE----->
marker_mapesp = true;
//Alle Vehicle
list_vec = (allMissionObjects "Plane")+(allMissionObjects "LandVehicle")+(allMissionObjects "Helicopter")+(allMissionObjects "Ship");
list_wrecked = allMissionObjects "UH1Wreck_DZ";
list_tents = allMissionObjects "TentStorage";
//<-----GLOBAL-VARIABLE----->

//hint "Adding Markers on the map";

while {marker_mapesp} do
{ 
//<-----PLAYER-MARKER----->
//<----------------------->
//<-----PLAYER-MARKER----->
unitList_player = allUnits; //getting all units
totalunits = count unitList_player;
//hint format["%1", totalunits];

o = 0;
yo = 0;

for "o" from 0 to totalunits do
{
actualunit = unitList_player select o; //Player1
//hint format["%1", actualunit];

if ( isplayer actualunit && alive actualunit ) then
{
deleteMarkerLocal ("Player" + (str o));
yo = o + 1;
deleteMarkerLocal ("Player" + (str yo));

namePlayer = "";
namePlayer = name actualunit;

mark_player = "Player" + (str o); //Player0, Player1, Player2
mark_player = createMarkerLocal [mark_player,getPos actualunit];
mark_player setMarkerTypeLocal "waypoint";
mark_player setMarkerPosLocal (getPos actualunit);
mark_player setMarkerColorLocal "ColorBlue";
mark_player setMarkerTextLocal format ["%1",namePlayer];
};
}; 


//<-----VEHICLE-MARKER----->
//<------------------------>
//<-----VEHICLE-MARKER----->
unitList_vec = list_vec;
totalunits_vec = count unitList_vec;
i = 0;
yo2 = 0;

for "i" from 0 to totalunits_vec do
{
actualunit_vec = unitList_vec select i; //Car, Helicopter, Boat
//hint format["%1", actualunit_vec];

if (!(actualunit_vec isKindOf "man") && !(actualunit_vec isKindOf "Survivor2")) then
{
deleteMarkerLocal ("Vehicle" + (str i));
yo2 = i + 1;
deleteMarkerLocal ("Vehicle" + (str yo2));

typeVec = "";
typeVec = typeOf actualunit_vec;
//hint format ["%1", typeVec];

mark = "Vehicle" + (str i);
mark = createMarkerLocal [mark,getPos actualunit_vec];
mark setMarkerTypeLocal "waypoint";
mark setMarkerPosLocal (getPos actualunit_vec);
mark setMarkerColorLocal "ColorRed";
mark setMarkerTextLocal format ["%1", typeVec];
};
};

//<-----WRECKED_HELI-MARKER----->
//<----------------------------->
//<-----WRECKED_HELI-MARKER----->
unitList_wrecked = list_wrecked;
totalunits_wrecked = count unitList_wrecked;
//hint format["%1", totalunits_wrecked];
p = 0;
yo3 = 0;

for "p" from 0 to totalunits_wrecked do
{
actualunit_wrecked = unitList_wrecked select p; //Car, Helicopter, Boat

deleteMarkerLocal ("Wrecked"+ (str p));
yo3 = p + 1;
deleteMarkerLocal ("Wrecked"+ (str yo3));

mark_wrecked = "Wrecked" + (str p); //Car, Boat, Helicopter
mark_wrecked = createMarkerLocal [mark_wrecked,getPos actualunit_wrecked];
mark_wrecked setMarkerTypeLocal "waypoint";
mark_wrecked setMarkerPosLocal (getPos actualunit_wrecked);
mark_wrecked setMarkerColorLocal "ColorOrange";
mark_wrecked setMarkerTextLocal "Crashed-Heli";
};

//<-----TENT-MARKER----->
//<----------------------------->
//<-----TENT-MARKER----->
unitList_tents = list_tents;
totalunits_tents = count unitList_tents;
//hint format["%1", totalunits_tents];
q = 0;
yo4 = 0;

for "q" from 0 to totalunits_tents do
{
actualunit_tents = unitList_tents select q; //Car, Helicopter, Boat

deleteMarkerLocal ("Tents"+ (str q));
yo4 = q + 1;
deleteMarkerLocal ("Tents"+ (str yo4));

mark_tents = "Tents" + (str q); //Car, Boat, Helicopter
mark_tents = createMarkerLocal [mark_tents,getPos actualunit_tents];
mark_tents setMarkerTypeLocal "waypoint";
mark_tents setMarkerPosLocal (getPos actualunit_tents);
mark_tents setMarkerColorLocal "ColorGreen";
//mark_tentssetMarkerTextLocal "Tent";
};

//bit of sleep
sleep 0.1;
};

k = 0;
for "k" from 0 to 2000 do
{
deleteMarkerLocal ("Player"+ (str k));
deleteMarkerLocal ("Vehicle"+ (str k));
deleteMarkerLocal ("Wrecked"+ (str k));
deleteMarkerLocal ("Tents"+ (str k));
};

//<-----------------MAP ESP----------------->

//<-----GLOBAL-VARIABLE----->
marker_mapesp = true;
//Alle Vehicle
list_vec = (allMissionObjects "Plane")+(allMissionObjects "LandVehicle")+(allMissionObjects "Helicopter")+(allMissionObjects "Ship");
list_wrecked = allMissionObjects "UH1Wreck_DZ";
list_tents = allMissionObjects "TentStorage";
//<-----GLOBAL-VARIABLE----->

//hint "Adding Markers on the map";

while {marker_mapesp} do
{ 
//<-----PLAYER-MARKER----->
//<----------------------->
//<-----PLAYER-MARKER----->
unitList_player = allUnits; //getting all units
totalunits = count unitList_player;
//hint format["%1", totalunits];

o = 0;
yo = 0;

for "o" from 0 to totalunits do
{
actualunit = unitList_player select o; //Player1
//hint format["%1", actualunit];

if ( isplayer actualunit && alive actualunit ) then
{
deleteMarkerLocal ("Player" + (str o));
yo = o + 1;
deleteMarkerLocal ("Player" + (str yo));

namePlayer = "";
namePlayer = name actualunit;

mark_player = "Player" + (str o); //Player0, Player1, Player2
mark_player = createMarkerLocal [mark_player,getPos actualunit];
mark_player setMarkerTypeLocal "waypoint";
mark_player setMarkerPosLocal (getPos actualunit);
mark_player setMarkerColorLocal "ColorBlue";
mark_player setMarkerTextLocal format ["%1",namePlayer];
};
}; 


//<-----VEHICLE-MARKER----->
//<------------------------>
//<-----VEHICLE-MARKER----->
unitList_vec = list_vec;
totalunits_vec = count unitList_vec;
i = 0;
yo2 = 0;

for "i" from 0 to totalunits_vec do
{
actualunit_vec = unitList_vec select i; //Car, Helicopter, Boat
//hint format["%1", actualunit_vec];

if (!(actualunit_vec isKindOf "man") && !(actualunit_vec isKindOf "Survivor2")) then
{
deleteMarkerLocal ("Vehicle" + (str i));
yo2 = i + 1;
deleteMarkerLocal ("Vehicle" + (str yo2));

typeVec = "";
typeVec = typeOf actualunit_vec;
//hint format ["%1", typeVec];

mark = "Vehicle" + (str i);
mark = createMarkerLocal [mark,getPos actualunit_vec];
mark setMarkerTypeLocal "waypoint";
mark setMarkerPosLocal (getPos actualunit_vec);
mark setMarkerColorLocal "ColorRed";
mark setMarkerTextLocal format ["%1", typeVec];
};
};

//<-----WRECKED_HELI-MARKER----->
//<----------------------------->
//<-----WRECKED_HELI-MARKER----->
unitList_wrecked = list_wrecked;
totalunits_wrecked = count unitList_wrecked;
//hint format["%1", totalunits_wrecked];
p = 0;
yo3 = 0;

for "p" from 0 to totalunits_wrecked do
{
actualunit_wrecked = unitList_wrecked select p; //Car, Helicopter, Boat

deleteMarkerLocal ("Wrecked"+ (str p));
yo3 = p + 1;
deleteMarkerLocal ("Wrecked"+ (str yo3));

mark_wrecked = "Wrecked" + (str p); //Car, Boat, Helicopter
mark_wrecked = createMarkerLocal [mark_wrecked,getPos actualunit_wrecked];
mark_wrecked setMarkerTypeLocal "waypoint";
mark_wrecked setMarkerPosLocal (getPos actualunit_wrecked);
mark_wrecked setMarkerColorLocal "ColorOrange";
mark_wrecked setMarkerTextLocal "Crashed-Heli";
};

//<-----TENT-MARKER----->
//<----------------------------->
//<-----TENT-MARKER----->
unitList_tents = list_tents;
totalunits_tents = count unitList_tents;
//hint format["%1", totalunits_tents];
q = 0;
yo4 = 0;

for "q" from 0 to totalunits_tents do
{
actualunit_tents = unitList_tents select q; //Car, Helicopter, Boat

deleteMarkerLocal ("Tents"+ (str q));
yo4 = q + 1;
deleteMarkerLocal ("Tents"+ (str yo4));

mark_tents = "Tents" + (str q); //Car, Boat, Helicopter
mark_tents = createMarkerLocal [mark_tents,getPos actualunit_tents];
mark_tents setMarkerTypeLocal "waypoint";
mark_tents setMarkerPosLocal (getPos actualunit_tents);
mark_tents setMarkerColorLocal "ColorGreen";
//mark_tentssetMarkerTextLocal "Tent";
};

//bit of sleep
sleep 0.1;
};

k = 0;
for "k" from 0 to 2000 do
{
deleteMarkerLocal ("Player"+ (str k));
deleteMarkerLocal ("Vehicle"+ (str k));
deleteMarkerLocal ("Wrecked"+ (str k));
deleteMarkerLocal ("Tents"+ (str k));