PDA

View Full Version : procedure SelectEntireInv;



Daniel
12-02-2007, 04:44 AM
This will left click all of your inventory. Good for buryer's or something else:
{************************************************* ******************************
procedure SelectEntireInventory;
by: IP-Drowner
Description: Will left click all item's in your inventory. Best used with bone
buryer script's.
************************************************** *****************************}
procedure SelectEntireInventory;
begin
if (InvFull) then
begin
MouseItem(1:Integer;True:Boolean);
Wait(97 + Random(782));
MouseItem(2:Integer;True:Boolean);
Wait(97 + Random(782));
MouseItem(3:Integer;True:Boolean);
Wait(97 + Random(782));
MouseItem(4:Integer;True:Boolean);
Wait(97 + Random(782));
MouseItem(5:Integer;True:Boolean);
Wait(97 + Random(782));
MouseItem(6:Integer;True:Boolean);
Wait(97 + Random(782));
MouseItem(7:Integer;True:Boolean);
Wait(97 + Random(782));
MouseItem(8:Integer;True:Boolean);
Wait(97 + Random(782));
MouseItem(9:Integer;True:Boolean);
Wait(97 + Random(782));
MouseItem(10:Integer;True:Boolean);
Wait(97 + Random(782));
MouseItem(11:Integer;True:Boolean);
Wait(97 + Random(782));
MouseItem(12:Integer;True:Boolean);
Wait(97 + Random(782));
MouseItem(13:Integer;True:Boolean);
Wait(97 + Random(782));
MouseItem(14:Integer;True:Boolean);
Wait(97 + Random(782));
MouseItem(15:Integer;True:Boolean);
Wait(97 + Random(782));
MouseItem(16:Integer;True:Boolean);
Wait(97 + Random(782));
MouseItem(17:Integer;True:Boolean);
Wait(97 + Random(782));
MouseItem(18:Integer;True:Boolean);
Wait(97 + Random(782));
MouseItem(19:Integer;True:Boolean);
Wait(97 + Random(782));
MouseItem(20:Integer;True:Boolean);
Wait(97 + Random(782));
MouseItem(21:Integer;True:Boolean);
Wait(97 + Random(782));
MouseItem(22:Integer;True:Boolean);
Wait(97 + Random(782));
MouseItem(23:Integer;True:Boolean);
Wait(97 + Random(782));
MouseItem(24:Integer;True:Boolean);
Wait(97 + Random(782));
MouseItem(25:Integer;True:Boolean);
Wait(97 + Random(782));
MouseItem(26:Integer;True:Boolean);
Wait(97 + Random(782));
MouseItem(27:Integer;True:Boolean);
Wait(97 + Random(782));
MouseItem(28:Integer;True:Boolean);
Wait(97 + Random(782));
end;
end;

I think that would work, i have tested it but i keep getting this error:

Line 51: [Error] (15139:12): comma (',') expected in script.

Don't know why! Anyway's, add/modify this into your script but give me some credit's.

Santa_Clause
12-02-2007, 04:59 AM
Why do you write : MouseItem(27 : Integer; True : Boolean)?

All you have to write is: MouseItem(27, True) without the type of parameter it is.

Derek-
12-02-2007, 05:01 AM
yes and you could also make this much shorter =]

procedure SelectEntireInventory;
var
i : Integer;
begin
if (InvFull) then
for i := 1 to 28 do
begin
MouseItem(i, True);
Wait(97 + Random(782));
end;
end;

but nice job. good idea =]]

mat_de_b
12-02-2007, 01:13 PM
And its not all that useful as after one is selected the others deselect...