drain soul

/cast Drain Soul(Rank 1)
/run ClearCursor();local z,c,s,i=C_Container;for b=0,4 do c,s=0,z.GetContainerNumSlots(b);for j=1,s do i=z.GetContainerItemID(b,j);if i==6265 then c=c+1;if c>=s then z.PickupContainerItem(b,j);end;end;end;end
/click DelItem