Made this just for you :sasmokin:
You will have to add in and edit all the coordinates urself.
If this is too complicated for you, go read up some tutorials.
program new;
{$i SRL/srl.simba}
procedure DropInv;
var
InvBoxPS: TBoxArray;
i,x,y: Integer;
begin
InvBoxPS:=[IntToBox(xs,yx,xe,ye),IntToBox(xs,yx,xe,ye),IntToBox(xs,yx,xe,ye)];
//add in all the boxes of the inv slot that you want it to drop. Replace xs,yx,xe,ye with the boundaries of the box
for i:=0 to High(InvBoxPS) do
begin
if FindColor(x, y, srl_outline_black, InvBoxPS[i].x1, InvBoxPS[i].y1, InvBoxPS[i].x2, InvBoxPS[i].y2) then
//im assuming the private server items have 'srl_outline_black' too, if not change the color
begin
Mouse(RandomRange(InvBoxPS[i].x1,InvBoxPS[i].x2), RandomRange(InvBoxPS[i].y1,InvBoxPS[i].y2),0,0,false);
GetMousePos(x,y);
Mouse(x+50,y+50,2,2,true); //change that 50 to the distance b/w the click and the drop option
end;
end;
end;
begin
MouseSpeed:=20;
DropInv;
end.
EDIT: you may be able to get the coordinates by getting the whole inventory box, then dividing the difference in x by 4, and y by 7. (i.e. like drawing a grid of 28 equally sized small boxes in the big inv box)