function create_squad(actor, obj, p)
     if obj ~= nil then
      printf("pl:creating_squad from obj [%s] in section [%s]", tostring(obj:name()), tostring(db.storage[obj:id()].active_section))
     end
     local squad_id = p[1]
     if squad_id == nil then
      abort("Wrong squad identificator [NIL] in create_squad function")
     end
     local smart_name = p[2]
     if smart_name == nil then
      abort("Wrong smart name [NIL] in create_squad function")
     end

     local ltx = sim_board.squad_ltx

     if not ltx:section_exist(squad_id) then
      abort("Wrong squad identificator [%s]. Squad descr doesnt exist.", tostring(squad_id))
     end

     local board = sim_board.get_sim_board()
     local smart = board.smarts_by_names[smart_name]
     if smart == nil then
      abort("Wrong smart_name [%s] for [%s] faction in create_squad function", tostring(smart_name), tostring(player_name))
     end

     local squad = board:create_squad(smart, squad_id)

     board:enter_smart(squad, smart.id)

     for k in squad:squad_members() do
      board:setup_squad_and_group(k.object)
     end

     squad:update()
end

-- 'Создание отряда(сквада).
function create_force(squad_sect,x,y,z,lv,gv)
       local board=sim_board.get_sim_board()
       local squad=board:create_force(squad_sect,x,y,z,lv,gv)
       for k in squad:squad_members() do
          board:setup_squad_and_group(k.object)
       end
       squad:update()
end