SCAR Code:
//Uses item in inventory spot 1 with item in inventory spot 2
Procedure UseItems(inv1,inv2: integer);
begin
if existsitem(inv1) and existsitem(inv2) then
begin
UseItem(inv1);
Wait(100+random(50));
UseItem(inv2);
end else;
Writeln('Theres nothing in one of the inventory spots');
end;
// uses dtm1 with dtm2
Procedure UseItemsDTM(Dtm1,Dtm2: integer);
begin
if FindDTM(DTM1,X,Y,MIX1,MIY1,MIX2,MIY2) and
FindDTM(DTM2,X,Y,MIX1,MIY1,MIX2,MIY2) then
begin
FindDTM(DTM1,X,Y,MIX1,MIY1,MIX2,MIY2);
Mouse(x,y,3,3,true);
FindDTM(DTM1,X,Y,MIX1,MIY1,MIX2,MIY2);
Mouse(x,y,3,3,true);
end else;
writeln('Cannot find DTMs');
end;
SCAR Code:
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;
