Simba Code:
procedure DepositAllButEx(Stuff: TIntegerArray);
var
i, j, x, y, TempNumber, ItemColor: Integer;
Box, Box1: TBox;
SpecialItem, DupeItem: Boolean;
begin
for i:=1 to 28 do
if ExistsItem(i) then
begin
SpecialItem:= False;
Box:= InvBox(i);
writeln(length(Stuff));
for j:=0 to High(Stuff) do
if FindDTM(Stuff[j], x, y, Box.X1, Box.Y1, Box.X2, Box.Y2) then
SpecialItem:= True;
if not SpecialItem then
begin
DupeItem:= False;
TempNumber:= CountColor(131072, Box.X1, Box.Y1, Box.X2, Box.Y2);
ItemColor:= GetColor(Box.X1+15, Box.Y1+15);
for j:=i+1 to 28 do
begin
GetInvItemBounds(i, Box1);
if ((CountColor(131072, Box1.X1, Box1.Y1, Box1.X2, Box1.Y2) = TempNumber) and (GetColor(Box.X1+15, Box.Y1+15) = Itemcolor)) then
begin
DupeItem:= True;
break;
end;
end;
if DupeItem then
begin
MouseBox(Box.X1+5, Box.Y1+5, Box.X2-5, Box.Y2-5, 2);
Wait(200+Random(300));
ChooseOption('it-All');
Wait(500+Random(300));
end else
begin
MouseBox(Box.X1+5, Box.Y1+5, Box.X2-5, Box.Y2-5, 1);
Wait(600+Random(300));
end;
end;
end;
end;
it will deposit everything apart from the DTM's which the user includes when they call the function
it can be made more accurate if instead of getting a color and comparing it with the next boxes you use create and use a bmp of some sort, however im not entirely too sure of how to do this :s
~shut