Mandemz
2012-12-22 14:37:51
I use the crosshair to select the client and when i click run script it doesent click at all, the person who sent me the script said it works. What could i be doing wrong?
SRL Archive - Help
Trouble Running Script On RSPS Client
rj
2012-12-22 14:41:21
Can I see the script? And what server?
Mandemz
2012-12-22 14:55:24
http://stirkbin.com/b14409 Near Reality OSS, my mouse doesent even move
rj
2012-12-22 14:59:08
From: Mandemz
http://stirkbin.com/b14409 Near Reality OSS, my mouse doesent even move
It's using mouse coords. I have a script that mines granite on nr oss but I won't release it because selling is not allowed on these forums.
Oh and its more easy to just do this:
program OSS_Granite_Miner;
{$i srl/srl.simba}
var
orecount,pph,count,N,M,X,Y,t,r1,r2,r3,r4:integer;
TPA : tpointarray;
Function fighting: boolean;
begin
if findcolor(X,Y,255,171,115,357,227)then
begin
result:=true;
end else
result:=false;
end;
procedure CheckIfInFight;
begin
if findcolor(X,Y,65280,171,115,357,227)then
begin
writeln('infight');
repeat
wait(1000);
until(fighting=false)
end;
end;
procedure CheckTrade;
begin
if findcolor(X,Y,8388736,21,415,224,433)then
begin
movemouse(X,Y);
wait(200);
clickmouse(X,Y,1);
wait(1000);
if findcolor(X,Y,192,239,258,251,272) then
begin
if findcolor(X,Y,3560818,609,213,644,267)then
movemouse(x,y);
wait(200);
clickmouse(x,y,0);
wait(200);
movemouse(x,y+70);
wait(200);
clickmouse(x,y+70,1);
wait(500);
if findcolor(x,y,49152,242,186,282,197)then
begin
movemouse(x,y);
wait(200);
clickmouse(x,y,1);
wait(2000);
if findcolortolerance(x,y,49152,204,299,250,315,0)then
begin
movemouse(x,y);
wait(200)
clickmouse(x,y,1)
wait(2000)
end;
end;
end;
end;
end;
procedure CheckDrop;
begin
if findcolortolerance(X,Y,1988533,695,408,728,436,5) or
findcolortolerance(X,Y,6184552,695,408,728,436,5) or
findcolortolerance(X,Y,1055024,695,408,728,436,5)or
findcolortolerance(X,Y,3889536,695,408,728,436,5) then
begin
t:=20;
r1:=583;
r2:=627;
r3:=668;
r4:=710;
wait(t);
movemouse(r1,240)
wait(t)
clickmouse(r1,240,0);
wait(t);
movemouse(r1,279);
wait(t);
clickmouse(r1,279,1);
wait(t);
movemouse(r1,272);
wait(t);
clickmouse(r1,272,0);
wait(t);
movemouse(r1,312)
wait(t);
clickmouse(r1,312,1)
wait(t);
movemouse(r1,306);
wait(t);
clickmouse(r1,306,0);
wait(t);
movemouse(r1,346)
wait(t);
clickmouse(r1,343,1)
wait(t);
movemouse(r1,343);
wait(t);
clickmouse(r1,343,0);
wait(t);
movemouse(r1,383)
wait(t);
clickmouse(r1,383,1)
wait(t);
movemouse(r1,377);
wait(t);
clickmouse(r1,377,0);
wait(t);
movemouse(r1,407)
wait(t);
clickmouse(r1,407,1)
wait(t);
movemouse(r1,414);
wait(t);
clickmouse(r1,414,0);
wait(t);
movemouse(r1,406)
wait(t);
clickmouse(r1,406,1)
wait(t)
movemouse(r2,201);
wait(t);
clickmouse(r2,201,0);
wait(t);
movemouse(r2,240);
wait(t);
clickmouse(r2,240,1);
wait(t);
clickmouse(r2,240,0);
wait(t);
movemouse(r2,279);
wait(t);
clickmouse(r2,279,1);
wait(t);
movemouse(r2,272);
wait(t);
clickmouse(r2,272,0);
wait(t);
movemouse(r2,312)
wait(t);
clickmouse(r2,312,1)
wait(t);
movemouse(r2,306);
wait(t);
clickmouse(r2,306,0);
wait(t);
movemouse(r2,346)
wait(t);
clickmouse(r2,343,1)
wait(t);
movemouse(r2,343);
wait(t);
clickmouse(r2,343,0);
wait(t);
movemouse(r2,383)
wait(t);
clickmouse(r2,383,1)
wait(t);
movemouse(r2,377);
wait(t);
clickmouse(r2,377,0);
wait(t);
movemouse(r2,407)
wait(t);
clickmouse(r2,407,1)
wait(t);
movemouse(r2,414);
wait(t);
clickmouse(r2,414,0);
wait(t);
movemouse(r2,406)
wait(t);
clickmouse(r2,406,1)
wait(t)
movemouse(r3,201);
wait(t);
clickmouse(r3,201,0);
wait(t);
movemouse(r3,240);
wait(t);
clickmouse(r3,240,1);
wait(t);
clickmouse(r3,240,0);
wait(t);
movemouse(r3,279);
wait(t);
clickmouse(r3,279,1);
wait(t);
movemouse(r3,272);
wait(t);
clickmouse(r3,272,0);
wait(t);
movemouse(r3,312)
wait(t);
clickmouse(r3,312,1)
wait(t);
movemouse(r3,306);
wait(t);
clickmouse(r3,306,0);
wait(t);
movemouse(r3,346)
wait(t);
clickmouse(r3,343,1)
wait(t);
movemouse(r3,343);
wait(t);
clickmouse(r3,343,0);
wait(t);
movemouse(r3,383)
wait(t);
clickmouse(r3,383,1)
wait(t);
movemouse(r3,377);
wait(t);
clickmouse(r3,377,0);
wait(t);
movemouse(r3,407)
wait(t);
clickmouse(r3,407,1)
wait(t);
movemouse(r3,414);
wait(t);
clickmouse(r3,414,0);
wait(t);
movemouse(r3,406)
wait(t);
clickmouse(r3,406,1)
wait(t)
movemouse(r4,201);
wait(t);
clickmouse(r4,201,0);
wait(t);
movemouse(r4,240);
wait(t);
clickmouse(r4,240,1);
wait(t);
clickmouse(r4,240,0);
wait(t);
movemouse(r4,279);
wait(t);
clickmouse(r4,279,1);
wait(t);
movemouse(r4,272);
wait(t);
clickmouse(r4,272,0);
wait(t);
movemouse(r4,312)
wait(t);
clickmouse(r4,312,1)
wait(t);
movemouse(r4,306);
wait(t);
clickmouse(r4,306,0);
wait(t);
movemouse(r4,346)
wait(t);
clickmouse(r4,343,1)
wait(t);
movemouse(r4,343);
wait(t);
clickmouse(r4,343,0);
wait(t);
movemouse(r4,383)
wait(t);
clickmouse(r4,383,1)
wait(t);
movemouse(r4,377);
wait(t);
clickmouse(r4,377,0);
wait(t);
movemouse(r4,407)
wait(t);
clickmouse(r4,407,1)
wait(t);
movemouse(r4,414);
wait(t);
clickmouse(r4,414,0);
wait(t);
movemouse(r4,406)
wait(t);
clickmouse(r4,406,1)
wait(700)
end;
end;
function CheckIfDoneMining : boolean;
begin
if not findcolor(N,M,4418960,X-15,Y-15,X+15,Y+15)or
(count = 100) then
begin
count:=0;
result:=true;
end else
begin
inc(count)
result:=false;
end;
end;
procedure MineGranite;
begin
if FindColor(X, Y, 4418960, 195, 170, 361, 198) then
begin
movemouse(X,Y);
wait(30);
clickmouse(X,Y,1);
inc(orecount);
wait(2000)
repeat
wait(100);
CheckIfDoneMining;
until(CheckIfDoneMining=true);
end;
end;
procedure Proggy;
begin
ClearDebug
WriteLn('_______________________________ Progress Report ______________________________');
Pph:=Round(375*orecount/(GetTimeRunning/3600000.0));
writeln('Xp made so far: ' + IntToStr(orecount*175/1000)+'k');
writeLN('Xp per hour: ' + IntToStr(pph/1000) + 'k so far');
WriteLn('______________________________________________________________________________');
end;
begin
setupsrl
cleardebug;
repeat
MineGranite;
CheckDrop;
CheckIfInFight
wait(50)
Proggy
until(false)
end. Mandemz
2012-12-22 15:05:46
But can you tell why it won't work?
rj
2012-12-22 15:07:01
It's looking for specific colors instead of color tolerance..
Mandemz
2012-12-22 15:09:23
Oh. Would you take an oss account for the script? jw
J J
2012-12-22 15:12:27
Formatted the script with the proper Syntax
Changed CheckDrop to an TIntegerArray format for you
If it isn't doing anythhing then it doesn't find the granite color. It will print out something in the debug when it finds the granite color.
Try using
FindColorTolerance(X, Y, Color, X1, Y1, X2, Y2, Tolerance);
Use a tolerance of around 10-15.
program OSS_Granite_Miner;
{$i srl/srl.simba}
var
orecount, pph, count, N, M, X, Y, t, r1, r2, r3, r4: integer;
TPA: tpointarray;
function fighting: boolean;
begin
if findcolor(X, Y, 255, 171, 115, 357, 227) then
begin
result := true;
end
else
result := false;
end;
procedure CheckIfInFight;
begin
if findcolor(X, Y, 65280, 171, 115, 357, 227) then
begin
writeln('infight');
repeat
wait(1000);
until (fighting = false)
end;
end;
procedure CheckTrade;
begin
if findcolor(X, Y, 8388736, 21, 415, 224, 433) then
begin
movemouse(X, Y);
wait(200);
clickmouse(X, Y, 1);
wait(1000);
if findcolor(X, Y, 192, 239, 258, 251, 272) then
begin
if findcolor(X, Y, 3560818, 609, 213, 644, 267) then
movemouse(x, y);
wait(200);
clickmouse(x, y, 0);
wait(200);
movemouse(x, y + 70);
wait(200);
clickmouse(x, y + 70, 1);
wait(500);
if findcolor(x, y, 49152, 242, 186, 282, 197) then
begin
movemouse(x, y);
wait(200);
clickmouse(x, y, 1);
wait(2000);
if findcolortolerance(x, y, 49152, 204, 299, 250, 315, 0) then
begin
movemouse(x, y);
wait(200) clickmouse(x, y, 1) wait(2000)
end;
end;
end;
end;
end;
procedure CheckDrop;
begin
if findcolortolerance(X, Y, 1988533, 695, 408, 728, 436, 5) or findcolortolerance(X, Y, 6184552, 695, 408, 728, 436, 5) or findcolortolerance(X, Y, 1055024, 695, 408, 728, 436, 5) or findcolortolerance(X, Y, 3889536, 695, 408, 728, 436, 5) then
begin
t := 20;
r1 := 583;
r2 := 627;
r3 := 668;
r4 := 710;
wait(t);
movemouse(r1, 240) wait(t) clickmouse(r1, 240, 0);
wait(t);
movemouse(r1, 279);
wait(t);
clickmouse(r1, 279, 1);
wait(t);
movemouse(r1, 272);
wait(t);
clickmouse(r1, 272, 0);
wait(t);
movemouse(r1, 312) wait(t);
clickmouse(r1, 312, 1) wait(t);
movemouse(r1, 306);
wait(t);
clickmouse(r1, 306, 0);
wait(t);
movemouse(r1, 346) wait(t);
clickmouse(r1, 343, 1) wait(t);
movemouse(r1, 343);
wait(t);
clickmouse(r1, 343, 0);
wait(t);
movemouse(r1, 383) wait(t);
clickmouse(r1, 383, 1) wait(t);
movemouse(r1, 377);
wait(t);
clickmouse(r1, 377, 0);
wait(t);
movemouse(r1, 407) wait(t);
clickmouse(r1, 407, 1) wait(t);
movemouse(r1, 414);
wait(t);
clickmouse(r1, 414, 0);
wait(t);
movemouse(r1, 406) wait(t);
clickmouse(r1, 406, 1) wait(t) movemouse(r2, 201);
wait(t);
clickmouse(r2, 201, 0);
wait(t);
movemouse(r2, 240);
wait(t);
clickmouse(r2, 240, 1);
wait(t);
clickmouse(r2, 240, 0);
wait(t);
movemouse(r2, 279);
wait(t);
clickmouse(r2, 279, 1);
wait(t);
movemouse(r2, 272);
wait(t);
clickmouse(r2, 272, 0);
wait(t);
movemouse(r2, 312) wait(t);
clickmouse(r2, 312, 1) wait(t);
movemouse(r2, 306);
wait(t);
clickmouse(r2, 306, 0);
wait(t);
movemouse(r2, 346) wait(t);
clickmouse(r2, 343, 1) wait(t);
movemouse(r2, 343);
wait(t);
clickmouse(r2, 343, 0);
wait(t);
movemouse(r2, 383) wait(t);
clickmouse(r2, 383, 1) wait(t);
movemouse(r2, 377);
wait(t);
clickmouse(r2, 377, 0);
wait(t);
movemouse(r2, 407) wait(t);
clickmouse(r2, 407, 1) wait(t);
movemouse(r2, 414);
wait(t);
clickmouse(r2, 414, 0);
wait(t);
movemouse(r2, 406) wait(t);
clickmouse(r2, 406, 1) wait(t) movemouse(r3, 201);
wait(t);
clickmouse(r3, 201, 0);
wait(t);
movemouse(r3, 240);
wait(t);
clickmouse(r3, 240, 1);
wait(t);
clickmouse(r3, 240, 0);
wait(t);
movemouse(r3, 279);
wait(t);
clickmouse(r3, 279, 1);
wait(t);
movemouse(r3, 272);
wait(t);
clickmouse(r3, 272, 0);
wait(t);
movemouse(r3, 312) wait(t);
clickmouse(r3, 312, 1) wait(t);
movemouse(r3, 306);
wait(t);
clickmouse(r3, 306, 0);
wait(t);
movemouse(r3, 346) wait(t);
clickmouse(r3, 343, 1) wait(t);
movemouse(r3, 343);
wait(t);
clickmouse(r3, 343, 0);
wait(t);
movemouse(r3, 383) wait(t);
clickmouse(r3, 383, 1) wait(t);
movemouse(r3, 377);
wait(t);
clickmouse(r3, 377, 0);
wait(t);
movemouse(r3, 407) wait(t);
clickmouse(r3, 407, 1) wait(t);
movemouse(r3, 414);
wait(t);
clickmouse(r3, 414, 0);
wait(t);
movemouse(r3, 406) wait(t);
clickmouse(r3, 406, 1) wait(t) movemouse(r4, 201);
wait(t);
clickmouse(r4, 201, 0);
wait(t);
movemouse(r4, 240);
wait(t);
clickmouse(r4, 240, 1);
wait(t);
clickmouse(r4, 240, 0);
wait(t);
movemouse(r4, 279);
wait(t);
clickmouse(r4, 279, 1);
wait(t);
movemouse(r4, 272);
wait(t);
clickmouse(r4, 272, 0);
wait(t);
movemouse(r4, 312) wait(t);
clickmouse(r4, 312, 1) wait(t);
movemouse(r4, 306);
wait(t);
clickmouse(r4, 306, 0);
wait(t);
movemouse(r4, 346) wait(t);
clickmouse(r4, 343, 1) wait(t);
movemouse(r4, 343);
wait(t);
clickmouse(r4, 343, 0);
wait(t);
movemouse(r4, 383) wait(t);
clickmouse(r4, 383, 1) wait(t);
movemouse(r4, 377);
wait(t);
clickmouse(r4, 377, 0);
wait(t);
movemouse(r4, 407) wait(t);
clickmouse(r4, 407, 1) wait(t);
movemouse(r4, 414);
wait(t);
clickmouse(r4, 414, 0);
wait(t);
movemouse(r4, 406) wait(t);
clickmouse(r4, 406, 1) wait(700)
end;
end;
function CheckIfDoneMining: boolean;
begin
if not findcolor(N, M, 4418960, X - 15, Y - 15, X + 15, Y + 15) or (count = 100) then
begin
count := 0;
result := true;
end
else
begin
inc(count) result := false;
end;
end;
procedure MineGranite;
begin
if FindColor(X, Y, 4418960, 195, 170, 361, 198) then
begin
movemouse(X, Y);
wait(30);
clickmouse(X, Y, 1);
inc(orecount);
wait(2000)
repeat
wait(100);
CheckIfDoneMining;
until (CheckIfDoneMining = true);
end;
end;
procedure Proggy;
begin
ClearDebug WriteLn('_______________________________ Progress Report ______________________________');
Pph := Round(375 * orecount / (GetTimeRunning / 3600000.0));
writeln('Xp made so far: ' + IntToStr(orecount * 175 / 1000) + 'k');
writeLN('Xp per hour: ' + IntToStr(pph / 1000) + 'k so far');
WriteLn('______________________________________________________________________________');
end;
begin
setupsrl cleardebug;
repeat
MineGranite;
CheckDrop;
CheckIfInFight wait(50) Proggy
until (false)
end.Changed CheckDrop to an TIntegerArray format for you
program OSS_Granite_Miner;
{$i srl/srl.simba}
var
orecount, pph, count, N, M, X, Y, t: integer;
function fighting: boolean;
begin
if findcolor(X, Y, 255, 171, 115, 357, 227) then
begin
result := true;
end
else
result := false;
end;
procedure CheckIfInFight;
begin
if findcolor(X, Y, 65280, 171, 115, 357, 227) then
begin
writeln('infight');
repeat
wait(1000);
until (fighting = false)
end;
end;
procedure CheckTrade;
begin
if findcolor(X, Y, 8388736, 21, 415, 224, 433) then
begin
movemouse(X, Y);
wait(200);
clickmouse(X, Y, 1);
wait(1000);
if findcolor(X, Y, 192, 239, 258, 251, 272) then
begin
if findcolor(X, Y, 3560818, 609, 213, 644, 267) then
movemouse(x, y);
wait(200);
clickmouse(x, y, 0);
wait(200);
movemouse(x, y + 70);
wait(200);
clickmouse(x, y + 70, 1);
wait(500);
if findcolor(x, y, 49152, 242, 186, 282, 197) then
begin
movemouse(x, y);
wait(200);
clickmouse(x, y, 1);
wait(2000);
if findcolortolerance(x, y, 49152, 204, 299, 250, 315, 0) then
begin
movemouse(x, y);
wait(200) clickmouse(x, y, 1) wait(2000)
end;
end;
end;
end;
end;
procedure CheckDrop;
var
XCoords, YCoords: TIntegerArray;
XX, YY: Integer;
begin
if findcolortolerance(X, Y, 1988533, 695, 408, 728, 436, 5) or findcolortolerance(X, Y, 6184552, 695, 408, 728, 436, 5) or findcolortolerance(X, Y, 1055024, 695, 408, 728, 436, 5) or findcolortolerance(X, Y, 3889536, 695, 408, 728, 436, 5) then
begin
t := 20;
XCoords := [583, 627, 668, 710];
YCoords := [240, 279, 272, 312, 306, 346, 353, 383, 377, 407, 414, 406];
for XX := 0 to high(XCoords) do
for YY := 0 to high(YCoords) do
begin
MoveMouse(XCoords[XX], YCoords[YY]);
Wait(t);
if (YY mod 2) = 0 then
ClickMouse(XCoords[XX], YCoords[YY], 0)
else
ClickMouse(XCoords[XX], YCoords[YY], 1);
end;
Wait(1000);
end;
end;
function CheckIfDoneMining: boolean;
begin
if not findcolor(N, M, 4418960, X - 15, Y - 15, X + 15, Y + 15) or (count = 100) then
begin
count := 0;
result := true;
end
else
begin
inc(count);
result := false;
end;
end;
procedure MineGranite;
begin
if FindColor(X, Y, 4418960, 195, 170, 361, 198) then
begin
writeln('We found the granite color, going to click it');
movemouse(X, Y);
wait(30);
clickmouse(X, Y, 1);
inc(orecount);
wait(2000);
while not(CheckIfDoneMining) do
wait(100);
end;
end;
procedure Proggy;
begin
WriteLn('_______________________________ Progress Report ______________________________');
Pph := Round(375 * orecount / (GetTimeRunning / 3600000.0));
writeln('Xp made so far: ' + IntToStr(orecount * 175 / 1000) + 'k');
writeLN('Xp per hour: ' + IntToStr(pph / 1000) + 'k so far');
WriteLn('______________________________________________________________________________');
end;
begin
setupsrl;
cleardebug;
repeat
MineGranite;
CheckDrop;
CheckIfInFight
Proggy;
until (false)
end.If it isn't doing anythhing then it doesn't find the granite color. It will print out something in the debug when it finds the granite color.
Try using
FindColorTolerance(X, Y, Color, X1, Y1, X2, Y2, Tolerance);
Use a tolerance of around 10-15.
rj
2012-12-22 15:13:54
From: Mandemz
Oh. Would you take an oss account for the script? jw
Selling scripts ins't allowed.