Consolidated formation movement example

function serverCmdIssueMove(%client, %formation, %x, %y, %z)
{
   if (%client.selection.getObject(0).getTeam() != %client.getTeam())
      return;
   %numUnitsSelected = %client.selection.getCount();
   for (%i = 0; %i < ClientGroup.getCount(); %i++)
   {
      %cl = ClientGroup.getObject(%i);
      %cl.sendMoveEvent(%client.selection, %x SPC %y);
   }
   
   %center = "0 0 0";
   // finding the center of the selected group
   for (%i = 0; %i < %numUnitsSelected; %i++)
   {
      %center = VectorAdd(%center, %client.selection.getObject(%i).getPosition());
   }
   %center = VectorScale(%center, 1.0 / %numUnitsSelected);
   
   for(%i = 0; %i < %numUnitsSelected; %i++)
   {
      %obj = %client.selection.getObject(%i);
      %dest = %x SPC %y SPC %z;
      
      switch$(%formation)
      {
      	case "FormDoubleLine":
      	  // calculate number of columns. 
      	  %numColumns = mFloor(%numUnitsSelected / 2);
      	  // find out if this count is even or odd
      	  if ( %i % 2 > 0 )
      	    %rowOffset = 0;
      	  else
      	    %rowOffset = 1;
      	  // set column spacing
      	  %ColSpacing = 5;
      	  %rowSpacing = 5;
      	  // right now we will treat the destination position as the top left corner of the formation
      	  // so rows are always to the positive. when we add in formation orientation, this will rotate
      	  // about the destination
      	  %offset = ( mFloor(%i / 2) * %ColSpacing ) SPC
      	                ( %RowOffset * %RowSpacing ) SPC
      	                0;
      	  echo("Set FormDoubleLine Destination: Unit Count " @ %i @ " form offset " @ %offset);
      	case "FormSquare":
      	  // calculate number of columns/rows. 
      	  %numColumns = mFloor(mSqrt(%numUnitsSelected) );
      	  if (%numColumns * %numColumns < %numUnitsSelected)
      	    %numColumns++;
      	  echo("FormSquare: numColumns is " @ %numColumns);
      	  // set column spacing
      	  %ColSpacing = 5;
      	  %RowSpacing = 5;
      	  // right now we will treat the destination position as the top left corner of the formation
      	  // so rows are always to the positive. when we add in formation orientation, this will rotate
      	  // about the destination
      	  %offset = ( %i % %numColumns) * %ColSpacing SPC
      	                ( mFloor( %i / %numColumns) * %RowSpacing ) SPC
      	                0;
      	  echo("Set FormSquare Destination: Unit Count " @ %i @ " form offset " @ %offset);
      	default :
      	// default to maintain relative position
      	%offset = VectorSub(%obj.getPosition(), %center);

      }
      %dest = VectorAdd(%dest, %offset);
      %obj.clearAim();
      
      %obj.setMoveGoal(%dest);
   }
}

new GuiBitmapButtonCtrl(CM_FormSquare) {
         profile = "GuiDefaultProfile";
         horizSizing = "left";
         vertSizing = "top";
         position = "77 7";
         extent = "32 32";
         minExtent = "8 2";
         visible = "1";
         command = "CommandMenu::onFormSquareClick();";
         text = "Hold";
         groupNum = "-1";
         buttonType = "RadioButton";
         bitmap = "./commands/boxform";
      };
      new GuiBitmapButtonCtrl(CM_FormDblLine) {
         profile = "GuiDefaultProfile";
         horizSizing = "left";
         vertSizing = "top";
         position = "77 42";
         extent = "32 32";
         minExtent = "8 2";
         visible = "1";
         command = "CommandMenu::onFormDoubleLineClick();";
         text = "Hold";
         groupNum = "-1";
         buttonType = "RadioButton";
         bitmap = "./commands/lineform";
      };

function CommandMenu::onFormSquareClick()
{
  $Player::CurSquadFormation = "FormSquare";
}

function CommandMenu::onFormDoubleLineClick()
{
  $Player::CurSquadFormation = "FormDoubleLine";
}