Program Joke;
var i,c : Integer;

Begin

{Раскидываем еду на пол}
for i := -2 to 2 do
for c := -2 to 2 do
begin
MoveItem(FindType($097B,backpack),2,ground,i,c,0);
wait(500);
end;

wait(3000);


{Собираем с пола и состыковываем}
MoveItems(ground,$097B,$FFFF,backpack,0,0,0,500);


End.