1. with Exceptions;           use Exceptions; 
  2. with Vehicle_Interface;    use Vehicle_Interface; 
  3. with Vehicle_Message_Type; use Vehicle_Message_Type; 
  4.  
  5. package body Vehicle_Task_Type is 
  6.  
  7.    task body Vehicle_Task is 
  8.  
  9.       Vehicle_No     : Swarm_Element_Index; 
  10.  
  11.    begin 
  12.  
  13.       -- You need to react to this call and provide your task_id. 
  14.       -- You can e.g. employ the assigned vehicle number (Vehicle_No) 
  15.       -- in communications with other vehicles. 
  16.  
  17.       accept Identify (Set_Vehicle_No : Swarm_Element_Index; Local_Task_Id : out Task_Id) do 
  18.          Vehicle_No     := Set_Vehicle_No; 
  19.          Local_Task_Id  := Current_Task; 
  20.       end Identify; 
  21.  
  22.       -- Replace the rest of this task with your code. 
  23.  
  24.       loop 
  25.          delay 1.0; 
  26.       end loop; 
  27.  
  28.    exception 
  29.       when E : others => Show_Exception (E); 
  30.  
  31.    end Vehicle_Task; 
  32.  
  33. end Vehicle_Task_Type;