accept Launch_One(Logname : in String;
                              Missil_Id : in Positive;
                              Loosers : out Players_Vectors.Vector) do
               declare
                  Missil_Attributes : Missil_Attributes_Type;
                  Launched_Missil_Attributes : Missil_Attributes_Type;
                  Wopr_Attributes   : Wopr_Attributes_Type;
                  Temp : Node_Access;
                  Prev : Node_Access;
                  Loose : Boolean := False;
                  Looser : String_Access;
                  Back : Natural := 0;
                  Local : Vector;
               begin
                  Wopr_List.Current := Wopr_List.Root;
                  Players_Vectors.Insert(Loosers, Players_Vectors.Last_Index(Loosers) + 1, new String ' (Logname), 1);
                  Text_Io.Put_Line("Launch one missil in database" );
 
                  while Wopr_List.Current /= null loop
                     if Wopr_List.Current.Player_Name.all = Logname then
                        Text_Io.Put_Line("in database logname found" );
                        if not Is_Empty(Wopr_List.Current.Wopr.Missils) then
 
                           Text_Io.Put_Line("in database missils not empty" );
                           Launched_Missil_Attributes := Element(Wopr_List.Current.Wopr.Missils, Missil_Vector_Index_Type(Missil_Id)).Missil_attributes;
 
                           Text_Io.Put_Line("delete missils" );
                           Delete(Wopr_List.Current.Wopr.Missils, Missil_Vector_Index_Type(Missil_Id), 1);
 
                           Text_Io.Put_Line("in database search target" );
 
                           Temp := Wopr_List.Root;
 
                           while Temp /= null loop
 
                              if not Is_Empty(Temp.Wopr.Missils) then
                                 Text_Io.Put_Line("in database missils not empty" );
                                 for L in 1..Last_Index(Temp.Wopr.Missils) loop
                                    Missil_Attributes := Element(temp.Wopr.Missils, Missil_Vector_Index_Type(Natural(L) - Back)).Missil_attributes;
 
                                    if (Missil_Attributes.Source.X >= Launched_Missil_Attributes.Target.X - Launched_Missil_Attributes.Charge * 2.5 and
                                          Missil_Attributes.Source.X <= Launched_Missil_Attributes.Target.X + Launched_Missil_Attributes.Charge * 2.5) and
                                      (Missil_Attributes.Source.Y >= Launched_Missil_Attributes.Target.Y - Launched_Missil_Attributes.Charge * 2.5 and
                                         Missil_Attributes.Source.Y <= Launched_Missil_Attributes.Target.Y + Launched_Missil_Attributes.Charge * 2.5) then
                                       if not Loose then
                                          Loose := True;
                                          Looser := Temp.Player_Name;
                                       end if;
                                       delete(Temp.Wopr.missils, Missil_Vector_Index_Type(Natural(L) - Back), 1);
                                       Text_Io.Put_Line("Missil destroyed" );
                                       Back := Back + 1;
                                    end if;
 
 
 
                                 end loop;
                                 Back := 0;
                              else
                                 Text_Io.Put_Line("in database missils empty" );
                              end if;
                              Text_Io.Put_Line("in database search Wopr" );
                              Wopr_Attributes := Temp.Wopr.Wopr_Attributes;
 
                              if (Wopr_Attributes.Source.X >= Launched_Missil_Attributes.Target.X - Launched_Missil_Attributes.Charge * 2.5 and
                                    Wopr_Attributes.Source.X <= Launched_Missil_Attributes.Target.X + Launched_Missil_Attributes.Charge * 2.5) and
                                (Wopr_Attributes.Source.Y >= Launched_Missil_Attributes.Target.Y - Launched_Missil_Attributes.Charge * 2.5 and
                                   Wopr_Attributes.Source.Y <= Launched_Missil_Attributes.Target.Y + Launched_Missil_Attributes.Charge * 2.5) then
 
                                 Text_Io.Put_Line("Wopr destroyed" );
 
                                 Players_Vectors.Insert(Loosers, Players_Vectors.Last_Index(Loosers) + 1, Temp.Player_name, 1);
                                 Loose := False;
 
 
 
                                 if not Is_Empty(Temp.Wopr.Missils) Then
                                    Text_Io.Put_Line("in database missils not empty" );
                                    Local := local & Temp.Wopr.Missils;
                                    Clear(Temp.Wopr.Missils);
                                 end if;
                                 Text_Io.Put_Line("in database delete node" );
                                 if Temp = Wopr_List.Root then
                                    Text_Io.Put_Line("0" );
                                    if Wopr_List.Root.Next /= null then
                                       Text_Io.Put_Line("1" );
                                       Wopr_List.Root := Wopr_List.Root.Next;
                                       Wopr_List.Current := Wopr_List.Root;
                                       Temp := Wopr_List.Current;
                                    else
                                       Text_Io.Put_Line("2" );
                                       Wopr_List.Root := null;
                                       Wopr_List.Current := null;
                                       Temp := null;
                                    end if;
 
                                 else
                                    Text_Io.Put_Line("3" );
                                    Prev.next := Temp.Next;
                                    Temp := Prev.Next;
                                 end if;
 
 
                                 Text_Io.Put_Line("in database delete node done" );
 
 
                              else
                                 Text_Io.Put_Line("4" );
                                 Prev := Temp;
                                 Temp := Temp.Next;
                              end if;
                              if Loose then
                                 Players_Vectors.Insert(Loosers, Players_Vectors.Last_Index(Loosers) + 1, looser, 1);
                                 Loose := False;
                              end if;
 
 
                           end loop;
                        end if;
                        Text_Io.Put_Line("missils :=  missil & local" );
                        Wopr_List.Current.Wopr.Missils := Wopr_List.Current.Wopr.Missils & Local;
                        Clear(Local);
                        exit;
                     end if;
                     Wopr_List.Current := Wopr_List.Current.Next;
                  end loop;
               end;
            end Launch_One;