Crée une macro et ecriver :
/script i=19;for j=0,3 do for k=1,18 do while i>1 and not CursorHasItem() do i=i-1;if i==2 or i==4 then i=i-1;end;if i==15 then i=10;end;PickupInventoryItem(i);end;t=GetContainerItemInfo(j,k);if t==nil then PickupContainerItem(j,k);end;end;end;