SRL Archive - RS3 Outdated / Broken Scripts

Updated it finnaly, it now does most SRL Randoms exept for the pick head falling off, going to put that in later, it should handle trades.

Nice first script good stuff. one question won't
repeat
x:= 265;
y:= 177;
if (Findcolorspiral(x,y,rockcol,0,0,700,700)) then
Mouse(x,y,2,2,true);
Wait(5000);
until(InvFull)
Loads:= Loads+1;

mean it will just click at the exact same co ords every time?

From: rkroxpunk
Nice first script good stuff. one question won't
repeat
x:= 265;
y:= 177;
if (Findcolorspiral(x,y,rockcol,0,0,700,700)) then
Mouse(x,y,2,2,true);
Wait(5000);
until(InvFull)
Loads:= Loads+1;

mean it will just click at the exact same co ords every time?

It actually wont, If it finds color then value of x and y will change to coords where color is.
x:= 265;
y:= 177;
These are not needed in this…

From: Pentti
It actually wont, If it finds color then value of x and y will change to coords where color is.
x:= 265;
y:= 177;
These are not needed in this…

I thought that putting the x:= 265; y:= 177; above the FindColorSpiral would make it search for the color that is closest to those co-ordinates.

nah just get rid of them they're not needed….it will find the colour and click it if u just have everything the same except for that x:=blah and y:= blah

I read the TUT on how to put Randoms into a script but for some reason they wont work. When I call upon the randoms Procedure in the Mining Procedure it doesnt compile, and putting them into the mail loop doesn't seem to work.

what random procedure are you using?
how are you calling it?
what error on compile?
*post your section of script*
**please**
;)

From: lefamaster
what random procedure are you using?
how are you calling it?
what error on compile?
*post your section of script*
**please**
;)

{------------------------------}
procedure MineOre;
begin
  repeat
    Randoms; {<----- That is how i am calling upon it  }
    if (Findcolorspiral(x,y,rockcol,0,0,700,700)) then
    Mouse(x,y,2,2,true);
    Wait(5000);
  until(InvFull)
  Loads:= Loads+1;
end;


{------------------------------}
procedure Randoms;
begin
    FindTalk;
    Wait(1);
    if (FindFight) then
    begin
      WriteLn('You are attacked, trying to escape.');
      RunAwayDirection('N');
      Wait(8000+random(3000));
      WriteLn('Escape done, now, go back to mining.');
      RunBack;
    end;
    Wait(1);
    FindTalk;
    Wait(1);
    FindLamp('mining');
    Wait(1);
    FindDemon;
    Wait(1);
    FindMod;
    Wait(1);
    FindScapeRune;
    Wait(1);
    SolvePinball;
    Wait(1);
    FindQuiz;
    Wait(1);
    NoGameTab;
    Wait(1);
    FindTalk;
    Wait(1)
    HandleTrade;
    Wait(1)
    FindNormalRandoms;
  end;
{------------------------------}

and this is the error I get when I compile

Failed when compiling
Line 88: [Error] (19442:1): Unknown identifier 'Randoms' in script

Not a bad start, is this your first script

From: pini3000
Not a bad start, is this your first script

This isn't my first script, it is my first Powerminer.