scriptName "wmp_distance01.sqf";

private ["_ziel", "_zielpos", "_richtung", "_abstand", "_zielSize", "_zielTyp", "_zielBrush", "_zielShape", "_zielCol", "_zielDir", "_xposM2", "_yposM2", "_markerNeu"];


_ziel = _this select 0;
_zielpos = [];
_richtung = _this select 1;
_abstand = _this select 2;


if (typename _ziel == typename objnull) exitWith {hintSilent "Kein Marker angegeben";}; 
if (typename _ziel == typename "") then {_zielpos = markerpos _ziel;};
	
_zielSize = MarkerSize _ziel;
_zielTyp = MarkerType _ziel;
_zielBrush = MarkerBrush _ziel;
_zielShape = MarkerShape _ziel;
_zielCol = MarkerColor _ziel;
_zielDir = MarkerDir _ziel;


_xposM2 = (_zielPos select 0) + _abstand * (sin _richtung);
_yposM2 = (_zielPos select 1) + _abstand * (cos _richtung);

_markerNeu = createMarker [format ["_Marker_%1", _richtung], [_xposM2, _yposM2, 0]];
_markerNeu setMarkerSize _zielSize;
_markerNeu setMarkerType _zielTyp;
_markerNeu setMarkerBrush _zielBrush;
_markerNeu setMarkerShape _zielShape;
//_markerNeu setMarkerText "Spawnmarker";
_markerNeu setMarkerColor _zielCol;
_markerNeu setMarkerDir _zielDir;


if (true) exitWith {};

scriptname "wmp_randomMarkers.sqf";

private ["_umkreis", "_rad", "_count"];

_umkreis = _this select 0;
_count = 0;
_rad = 0;


for "_rad" from 0 to 360 step 10 do
    {
        ["droppos",_rad,(ceil random _umkreis)] spawn wmp_distance01;
        _count = _count + 1;
        
        _nameArray = ["", "_umkreis", "_rad", "_count"];
	[_nameArray, _umkreis, _rad, _count] spawn wmp_ShowVars;
        
      sleep 1;
    };


if (true) exitWith {_count};

_counta = [500] call wmp_RandomMarker;


sleep 10;


_countb = [2000] call wmp_RandomMarker;


_countc = _counta + _countb;


sleep 5;

hintC format ["%1", _countc];