Originally Posted by
Awkwardsaw
can i add some of your procedures to the rsc include?
Ofc
You might want to add this too:
Code:
//option: 1=move, 2=clickleft, 3=clickright
function MouseItemRSC(I, Option: Integer): Boolean;//by antti mies
var
x, y: Integer;
MM: Boolean;
begin
if not InRange(Option, 1, 3) or not InRange(I, 1, 30) then
begin
WriteLn('Invalid numbers in MouseItemRSC');
Exit;
end;
Dec(I);
y := ((I+5)/5)-1;
x := I mod 5;
if not GameTabOpenedRSC(6) then MM := True;
if not GameTabRSC(6) then Exit;
if MM then MMouse(RSX1+477, 40, 33, 30);
Wait(99+Random(99));
MMouse(RSX1+285+x*49, 50+y*34, 5, 5);
Result := GameTabOpenedRSC(6);
GetMousePos(x, y);
if MM then Wait(99+Random(99));
case Option of
1: MMouse(x, y, 0, 0);
2: Mouse(x, y, 0, 0, True);
3: Mouse(x, y, 0, 0, False);
end;
Wait(300+Random(200));
end;
EDIT: RE-READ the instructions in order to get sleeper working