jhildy
07-31-2007, 12:10 AM
i released these to members but i thought id release them to non-members aswell because i would like some more feedback. these are the same functions and the MMouseinv ect but they use the whole box of where an item is.
Function InvTbox(i: integer): Tbox;
begin
row := ceil(i div 4);
col :=i mod 4
if (col < 0) then
begin
col := 4;
end;
Result.x1:=569+(42*(col-1));
Result.y1:=213+(36*(row-1));
Result.x2:=600+(42*(col-1));
Result.y2:=244+(36*(row-1));
end;
Procedure MMouseItemBox(i: integer);
var Box: Tbox;
begin
Box:=InvTbox(i);
x:=RandomRange(Box.X1,Box.X2);
y:=RandomRange(Box.Y1,Box.Y2);
MMouse(x,y,0,0);
end;
Procedure MouseItemBox(i: integer;Left: boolean);
var Box: Tbox;
begin
Box:=InvTbox(i);
x:=RandomRange(Box.X1,Box.X2);
y:=RandomRange(Box.Y1,Box.Y2);
Mouse(x,y,0,0,Left);
end;
//by lorax made with InvBox
procedure DropItemBox(i: Integer);
begin
GameTab(4);
if ExistsItem(i) then
begin
MouseItemBox(i, False);
Wait(50 + Random(100));
if ChooseOption(x, y, 'Drop') then
Wait(200 + Random(100));
end;
end;
//By lorax with InvBox
Procedure DropAllBox;
begin
for i:=1 to 28 do
Dropitembox(i);
end;
//by sdcit made with invbox
procedure DropTobox(x, y: Integer);
var
todr: Integer;
begin
for todr := x to y do
DropItembox(todr)
end;
//By RSN with Invbox
procedure DragItembox(inv1, inv2: Integer);
var
x, y: Integer;
begin
MMouseItemBox(Inv1);
GetMousePos(x, y);
HoldMouse(x, y, True);
Wait(150 + Random(50));
MMouseItembox(Inv2);
GetMousePos(x, y);
ReleaseMouse(x, y, True);
Wait(100 + Random(100));
MMouse(x, y, 2, 2)
end;
i also adapted some current srl functions to use them.
Function InvTbox(i: integer): Tbox;
begin
row := ceil(i div 4);
col :=i mod 4
if (col < 0) then
begin
col := 4;
end;
Result.x1:=569+(42*(col-1));
Result.y1:=213+(36*(row-1));
Result.x2:=600+(42*(col-1));
Result.y2:=244+(36*(row-1));
end;
Procedure MMouseItemBox(i: integer);
var Box: Tbox;
begin
Box:=InvTbox(i);
x:=RandomRange(Box.X1,Box.X2);
y:=RandomRange(Box.Y1,Box.Y2);
MMouse(x,y,0,0);
end;
Procedure MouseItemBox(i: integer;Left: boolean);
var Box: Tbox;
begin
Box:=InvTbox(i);
x:=RandomRange(Box.X1,Box.X2);
y:=RandomRange(Box.Y1,Box.Y2);
Mouse(x,y,0,0,Left);
end;
//by lorax made with InvBox
procedure DropItemBox(i: Integer);
begin
GameTab(4);
if ExistsItem(i) then
begin
MouseItemBox(i, False);
Wait(50 + Random(100));
if ChooseOption(x, y, 'Drop') then
Wait(200 + Random(100));
end;
end;
//By lorax with InvBox
Procedure DropAllBox;
begin
for i:=1 to 28 do
Dropitembox(i);
end;
//by sdcit made with invbox
procedure DropTobox(x, y: Integer);
var
todr: Integer;
begin
for todr := x to y do
DropItembox(todr)
end;
//By RSN with Invbox
procedure DragItembox(inv1, inv2: Integer);
var
x, y: Integer;
begin
MMouseItemBox(Inv1);
GetMousePos(x, y);
HoldMouse(x, y, True);
Wait(150 + Random(50));
MMouseItembox(Inv2);
GetMousePos(x, y);
ReleaseMouse(x, y, True);
Wait(100 + Random(100));
MMouse(x, y, 2, 2)
end;
i also adapted some current srl functions to use them.