I don't know does it exists or not but I made one:)
Useful for power-scripts if you want to clear inventory...
SCAR Code:procedure DropItemsExceptColors(colorz : TIntegerArray);
var IC : TPoint;
var I, J, x, y : integer;
begin
Gametab(4);
Wait(1000 + random(1000));
for i := 1 to 28 do
begin
Wait(50);
if ExistsItem(i) then
begin
IC := ItemCoords(i)
For j := 0 to (GetArrayLength(Colorz)-1) do
begin
if FindColorSpiralTolerance(x, y, colorz[j],ic.x - 20, ic.y - 20, ic.x + 20, ic.y + 20, 5) then break;
if j = (GetArrayLength(Colorz)-1) then dropitem(i);
end;
end;
end;
end;
Usage example:
SCAR Code:DropItemsExceptColors([12345, 4325346, 3453465]);
Add many colors you want, but seperate them with comma

