Нужен макрос на удаление Осколков душ(лок)

Нужен макрос на удаление у лока осколков душ. А то в сумке мест нехватает, а по 1 удалять их долго.

/run for b=0,4 do for s=1,32 do n=GetContainerItemLink(b,s);if n and string.find(n,"Осколок души") then PickupContainerItem(b,s);DeleteCursorItem();end;en d;end;