// ***********************************************************
// Versetzt eine Gruppe von Objekten an eine andere Position,
//  unter Beibehaltung der Stellung der Objekte zueinander.
//
// Aufruf: [[x,y],[Objektname1, Objektname2, usw...]] execVM "Move_Objekte.sqf"
//          [x,y] = neue Position des 1. Objekts!
// ***********************************************************

private ["_posX","_posY","_obj","_posRx","_posRy"];

//Parameter

   //neue Position
      _posX = (_this select 0) select 0;
      _posY = (_this select 0) select 1;
   
   //Liste (Array) mit den Objekt-Namen aller Objekte
      _obj  = _this select 1;

//Position des 1. Objekts als Referenz
   _posRx = getpos(_obj select 0)select 0;
   _posRy = getpos(_obj select 0)select 1;

//Schleife durch alle Objekte der Liste
   {
      //Objekte auf neue Position in Relation zum 1. Objekt
      _x setpos [_posX+((getpos _x select 0)-_posRx),_posY+((getpos _x select 1)-_posRy)]
   } forEach _obj