SRL Archive - Archive

Wool - SRL Member Application Form
Wool

What is the meaning to life?


Where you Referred to SRL? If yes, by whom?
no


Programming Knowledge
SCAR

Other Communitys
Been to sythe.com

How Long have You Played Runescape
About 3 years

Are you affilated in anyway with Jagex LTD?
No Comment
—————————————————–
Please write down a paragraph about Yourself.

I have just recently came across SCAR about a month ago and decided to give it a try. I began running peoples scripts and getting an idea of the program. I got bored with always looking for the perfect script and decided to try and make my own. I found this site and decided I would become a member and get going. Ive been learning scar for about 2 weeks and learning fast. Im going to be a very active member of this community and put in as much as I can.

——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted

This is one of my first scripts I have made, very basic as you can see. Im learning SCAR and hope to become very good at it.

{ POWER-MINER V 1.0                       ___                      |
 ______         _______                  |   |\\\\\\\              |
 \     \   _   /      /                  |   |\\\\\\\\\\           |
  \     \_/ \_/      / ______   ______   |   |\\\\\\\\\\\\\        |
   \       __       / |   _  | |  _   |  |   |\\\\\\\\\\\\\\\\     |
    \     /  \     /  |  |*| | | |*|  |  |   |\\\\\\\\\\\\\\\\\\\  |
     \___/    \___/   |______| |______|  |___|\\\\\\\\\\\\\\\\\\\\\|
                                                                   |
1. Set the constants                                               |
2. Stand by rocks you wish to mine                                 |
3. Lower SCAR window so it can find rocks                          |
4. Drag crosshair to the RS Window and play                        |
                       Script by WOOL                              |
___________________________________________________________________|
}
program Powerminer;
{.include srl/srl.scar}

var
oresmined : integer;
loadsdroped : integer;

//////////////////////////////SET UP HERE ////////////////////////////////
                                                                        //
const                                                                   //
rockcolor=3099239;  //Pick ore color                                    //
pickaxe=true;       //true if picks equipped, false if nott             //
numberofpicks=1;    //number of picks in invetory                       //
emptyore=1;        //number of times to drop ore before end             //
timetowait=5000;    //Amount of time befor next click in miliseconds    //
                                                                        //
/////////////////////////////END OF SETUP/////////////////////////////////

procedure intro;
begin
cleardebug;
wait(500);
writeln('W----');
wait(200);
writeln('0------');
wait(200);
writeln('0--------');
wait(200);
writeln('L-----------');
wait(200);
writeln('S C R I P T S');
wait(100);
end;

//--------------------------------------------------------------------\\

Procedure minerocks;
Begin
if(Findcolor(x,y,rockcolor,5,5,515,340))then
begin
Mouse(x,y,1,1,true)
Wait(timetowait+random(300))
oresmined := oresmined + 1;
end;
end;

//--------------------------------------------------------------------\\

Procedure Dropore;
begin
If (InvFull) Then
begin
If (PickAxe) Then
DropTo(1,28)
else
DropTo(numberofpicks,28)
loadsdroped := loadsdroped + 1;
end;
end;

//--------------------------------------------------------------------\\

procedure Progreport;
begin
writeln('')
writeln('Script ran for : ' + scripttime2 (2))
writeln('Mined and droped' + inttostr(oresmined) + 'ores!');
writeln('')
end;

//---------------------------------------------------------------------\\

begin
SetUpSRL;
intro;
repeat
minerocks;
dropore;
until(loadsdroped = emptyore)
progreport
end.


   

——————————————————

Well its a good start,
but no antirandoms or gasscheck
i see a lot of room for imporvment though,
work on it more, add more features and try again later

Sorry, I say No, because your script was too simple. You are learning scripting, right? Well, keep still learning a few weeks, add antirandoms like yohojo8 said and something else good stuff into your script. Keep working on your power miner :).

It's a start, but a bit simplistic and indeed no antirandoms…

I'm also saying no sorry, and btw i belive you mean sythe.org not .com