SRL Archive - First Scripts

Okay so here it is, works perfectly. No anti-randoms or anything like that.

Note: The script is for FrugooScape - a Runescape private server. Which only has one random event anyway.

Program BensAutominer;


var           {Don't touch}
x,y: Integer;

//\\//\\Set Up\\//\\//\\
const                 //
rockcolor1 =4412739;  //
rockcolor2 =5993307;  //
rockcolor3 =5795160;  //
//\\//\\//\\//\\//\\//\\



{Don't Touch Below!}
begin
repeat
if (FindColorSpiral(x,y,rockcolor1,361,210,473,341))
or (FindColorSpiral(x,y,rockcolor2,193,139,559,430))
or (FindColorSpiral(x,y,rockcolor3,4,27,761,608)) then
  begin
    MoveMouseSmoothEx(x,y +random(0),20,40,45,25,20)
    Wait(500)
    ClickMouse(x,y,true)
    wait(40000)
    end;
    begin;
    movemouse(625, 230)
     wait(45)
     clickmouse(625, 230, false)
     wait(45)
     movemouse(625, 270)
     wait(45)
     clickmouse(625, 270, true)
     wait(45)
     movemouse(666, 230)
     wait(45)
     clickmouse(666, 230, false)
     wait(45)
     movemouse(666, 270)
     wait(45)
     clickmouse(666, 270, true)
     wait(45)
     movemouse(710, 230)
     wait(45)
     clickmouse(710, 230, false)
     wait(45)
     movemouse(710, 270)
     wait(45)
     clickmouse(710, 270, true)
     wait(45)
     movemouse(583, 266)
     wait(45)
     clickmouse(583, 266, false)
     wait(45)
     movemouse(583, 304)
     wait(45)
     clickmouse(583, 304, true)
     wait(45)
     movemouse(622, 266)
     wait(45)
     clickmouse(622, 266, false)
     wait(45)
     movemouse(622, 304)
     wait(45)
     clickmouse(622, 304, true)
     wait(45)
     movemouse(665, 266)
     wait(45)
     clickmouse(665, 266, false)
     wait(45)
     movemouse(665, 304)
     wait(45)
     clickmouse(665, 304, true)
     wait(45)
     movemouse(707, 266)
     wait(45)
     clickmouse(707, 266, false)
     wait(45)
     movemouse(707, 304)
     wait(45)
     clickmouse(707, 304, true)
     wait(45)
     movemouse(583, 300)
     wait(45)
     clickmouse(583, 300, false)
     wait(45)
     movemouse(583, 343)
     wait(45)
     clickmouse(583, 343, true)
     wait(45)
     movemouse(622, 300)
     wait(45)
     clickmouse(622, 300, false)
     wait(45)
     movemouse(622, 343)
     wait(45)
     clickmouse(622, 343, true)
     wait(45)
     movemouse(665, 300)
     wait(45)
     clickmouse(665, 300, false)
     wait(45)
     movemouse(665, 343)
     wait(45)
     clickmouse(665, 343, true)
     wait(45)
     movemouse(707, 300)
     wait(45)
     clickmouse(707, 300, false)
     wait(45)
     movemouse(707, 343)
     wait(45)
     clickmouse(707, 343, true)
     wait(45)
     movemouse(583, 336)
     wait(45)
     clickmouse(583, 336, false)
     wait(45)
     movemouse(583, 380)
     wait(45)
     clickmouse(583, 380, true)
     wait(45)
     movemouse(622, 336)
     wait(45)
     clickmouse(622, 336, false)
     wait(45)
     movemouse(622, 380)
     wait(45)
     clickmouse(622, 380, true)
     wait(45)
     movemouse(665, 336)
     wait(45)
     clickmouse(665, 336, false)
     wait(45)
     movemouse(665, 380)
     wait(45)
     clickmouse(665, 380, true)
     wait(45)
     movemouse(707, 336)
     wait(45)
     clickmouse(707, 336, false)
     wait(45)
     movemouse(707, 380)
     wait(45)
     clickmouse(707, 380, true)
     wait(45)
     movemouse(583, 376)
     wait(45)
     clickmouse(583, 376, false)
     wait(45)
     movemouse(583, 418)
     wait(45)
     clickmouse(583, 418, true)
     wait(45)
     movemouse(622, 376)
     wait(45)
     clickmouse(622, 376, false)
     wait(45)
     movemouse(622, 418)
     wait(45)
     clickmouse(622, 418, true)
     wait(45)
     movemouse(665, 376)
     wait(45)
     clickmouse(665, 376, false)
     wait(45)
     movemouse(665, 418)
     wait(45)
     clickmouse(665, 418, true)
     wait(45)
     movemouse(707, 376)
     wait(45)
     clickmouse(707, 376, false)
     wait(45)
     movemouse(707, 418)
     wait(45)
     clickmouse(707, 418, true)
     wait(45)
     movemouse(583, 410)
     wait(45)
     clickmouse(583, 410, false)
     wait(45)
     movemouse(583, 426)
     wait(45)
     clickmouse(583, 426, true)
     wait(45)
     movemouse(622, 410)
     wait(45)
     clickmouse(622, 410, false)
     wait(45)
     movemouse(622, 426)
     wait(45)
     clickmouse(622, 426, true)
     wait(45)
     movemouse(665, 410)
     wait(45)
     clickmouse(665, 410, false)
     wait(45)
     movemouse(665, 426)
     wait(45)
     clickmouse(665, 426, true)
     wait(45)
     movemouse(707, 410)
     wait(45)
     clickmouse(707, 410, false)
     wait(45)
     movemouse(707, 426)
     wait(45)
     clickmouse(707, 426, true)
     wait(45)
     movemouse(583, 448)
     wait(45)
     clickmouse(583, 448, false)
     wait(45)
     movemouse(583, 425)
     wait(45)
     clickmouse(583, 425, true)
     wait(45)
     movemouse(622, 448)
     wait(45)
     clickmouse(622, 448, false)
     wait(45)
     movemouse(622, 425)
     wait(45)
     clickmouse(622, 425, true)
     wait(45)
     movemouse(665, 448)
     wait(45)
     clickmouse(665, 448, false)
     wait(45)
     movemouse(665, 425)
     wait(45)
     clickmouse(665, 425, true)
     wait(45)
     movemouse(707, 448)
     wait(45)
     clickmouse(707, 448, false)
     wait(45)
     movemouse(707, 425)
     wait(45)
     clickmouse(707, 425, true)
     wait(45)
    end;
until(false)
end.

I know it's lengthy, so if someone could tell me a way of shortening it down and generally neaten the script up some what i would be very grateful. =)

Also, if anyone is a bit bored and want's a small project to do, i do need help making an anti-random for FrugooScape. Its a very basic random event and should be easy to do, but i just don't have the knowledge yet! =( Just let me know if your willing to help and i'll make you a temporary account on FrugooScape.

Thank you.

If(FindColorSpiralTolerance(color)) then
repeat
Mouse(x,y,1,1,true);
until(InvFull)
DropAll;

basically the same thing..

Don't i need an include to use InvFull & drop all?

Yes u do.

use Scar tags not code and what is this stuff??

I don't know the difference between scar tags and code. And i don't know which include to use..

This is posted in My First Script lol. XD

The main one is:

{.include SRL/SRL.scar}

Don't forget to add SetupSRL in main loop.

Search the SRL folder there are lots of useful includes.

As your script it a miner then probably you should check the mining.scar in skill folder and see if you want to use anything

^ it's a frugoscape script i highly doubt anything is mining.scar will work

and use Mouse(x, y, 2, 2, false);
Wait(randomrange(50, 100));
ChooseOption('rop');

:)

Good try, though don't stuff everything in the Main Loop.
Seperate it out, such as:

Procedure Mine; 
begin
//and your code goes here
end;

Procedure Drop;
begin
//code here
end;

//MAIN LOOP HERE
begin
SetupSRL;
ActivateClient;
{DECLARE YOUR PROCS/FUNCS HERE}
end.

And dont do Wait(40000)
do this:
Repeat
Until(invfull);

GL dude if any questions i'll be glad to help.

i suggest you find a tutorial about basic scar knowledge in tutorial island, you will be able to learn about looping there ;)

also: scar tags =

without the space

program hey;

begin
  writeln('hello worl...hi :) ');
end.

and this is what they look like :)

~RM

No point using SRL on Frugoo - the drop and dropall are slightly off-target. I think.

– BP

What is the random on FrugooScape, like what is it you have to do to solve this random. I might be interested just for experience in scripting if it isn't to hard for me to solve.