Neros
11-17-2012, 08:34 AM
hey, so i was wanting to use simba for a rsps i play, now because i can't use srl im pretty much stumped as to how i should go about doing it, i was thinking i'd have to use DTM's somewhere but i'm not sure now color picking seems fine :P
all im trying to make is a script that cuts normal tree's then fletches the inventory into arrow shafts. Really simple but i just dunno what i should be doin without good ol' SRL
At the minute i have came up with this.
program TreeShafter;
{$i SRL/SRL.simba}
const
Tree = 3561544;
var
x, y:Integer;
function inventfull:boolean;
begin
result := countcolortolerance(2770265,578,231,578,446,5) > 2500;
end;
procedure Chop;
begin
if (FindColorSpiralTolerance (x, y, Tree, MSX1, MSY1, MSX2, MSY2, 5)) then
begin
mouse(x, y, 5, 5, true);
wait(8000); //preferably detect inv change/pixel shift instead
end;
wait(8000); //prevent memory surge
repeat
repeat
until inventfull;
FletchLog;
until AllPlayersInactive;
end;
procedure FletchLog;
begin
FindColorTolerance(X,Y,7895169,664,442,664,442,4)
Wait(150 + Random(40));
movemouse(x, y);
Wait(220 + Random(50));
ClickMouse(x, y, Mouse_Left);
wait(100);
FindColorTolerance(X,Y,2770522,574,443,574,447,4)
Wait(150 + Random(40));
movemouse(x, y);
Wait(220 + Random(50));
ClickMouse(x, y, Mouse_Left);
wait(100);
FindColorTolerance(X,Y,16777215,410,385,410,385,4)
Wait(150 + Random(40));
movemouse(x, y);
Wait(220 + Random(50));
ClickMouse(x, y, Mouse_Right);
wait(100);
FindColorTolerance(X,Y,6121839,396,485,396,485,4)
Wait(150 + Random(40));
movemouse(x, y);
Wait(220 + Random(50));
ClickMouse(x, y, Mouse_Left);
wait(20000);
end;
begin
ClearDebug;
SetUpSrl;
SRL_EnableNavBar; // Added for offset for new navbar at the top, otherwise it will get the wrong coordinates
ActivateClient;
Chop;
FletchLog;
end.
all im trying to make is a script that cuts normal tree's then fletches the inventory into arrow shafts. Really simple but i just dunno what i should be doin without good ol' SRL
At the minute i have came up with this.
program TreeShafter;
{$i SRL/SRL.simba}
const
Tree = 3561544;
var
x, y:Integer;
function inventfull:boolean;
begin
result := countcolortolerance(2770265,578,231,578,446,5) > 2500;
end;
procedure Chop;
begin
if (FindColorSpiralTolerance (x, y, Tree, MSX1, MSY1, MSX2, MSY2, 5)) then
begin
mouse(x, y, 5, 5, true);
wait(8000); //preferably detect inv change/pixel shift instead
end;
wait(8000); //prevent memory surge
repeat
repeat
until inventfull;
FletchLog;
until AllPlayersInactive;
end;
procedure FletchLog;
begin
FindColorTolerance(X,Y,7895169,664,442,664,442,4)
Wait(150 + Random(40));
movemouse(x, y);
Wait(220 + Random(50));
ClickMouse(x, y, Mouse_Left);
wait(100);
FindColorTolerance(X,Y,2770522,574,443,574,447,4)
Wait(150 + Random(40));
movemouse(x, y);
Wait(220 + Random(50));
ClickMouse(x, y, Mouse_Left);
wait(100);
FindColorTolerance(X,Y,16777215,410,385,410,385,4)
Wait(150 + Random(40));
movemouse(x, y);
Wait(220 + Random(50));
ClickMouse(x, y, Mouse_Right);
wait(100);
FindColorTolerance(X,Y,6121839,396,485,396,485,4)
Wait(150 + Random(40));
movemouse(x, y);
Wait(220 + Random(50));
ClickMouse(x, y, Mouse_Left);
wait(20000);
end;
begin
ClearDebug;
SetUpSrl;
SRL_EnableNavBar; // Added for offset for new navbar at the top, otherwise it will get the wrong coordinates
ActivateClient;
Chop;
FletchLog;
end.