SRL Archive - Archive

<!– BEGIN TEMPLATE: formanswers –>
arash - SRL Member Application Form
arash

What is the meaning to life?


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


Programming Knowledge
Pascal

Other Communitys
slopdog.com (neopets site)

How Long have You Played Runescape
5 Years

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

I am a 15 year old student at Winston Churchill. I first got interested into computers when my dad bought me a game called spy fox. Then it just grew from there when I saw one of my family members play runescape. He had an autominer from some place and offered to sell me it for 10 dollars. I then got interested into runescape and found kaitnieks.com. From then on I leeched scar scripts. I have slowly learned to script since discovering this site and using srl, so 3 weeks ago I think I wrote an ok script for Scar.

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

//Miner made by arash.
//Remember to use the crosshair on the RS screen.
//Can NOT bank ore yet, I am still working on it.

program Miner;
{.include SRL/SRL.Scar}
{.include SRL/SRL/Skill/Mining.Scar}

Const
RockColor = 0; //Pick rock color here.
RockColor2 = 0; //Pick a different one here.
MineWait = 0; //Change this depending on your mining level.
LoadsToDo = 0; //This is how many loads you do.
Banking = False; //Do you want to bank the ore or not? Must leave false.

Var
Loads:Integer;

Procedure FindNubRandoms;
begin
 FindNormalRandoms;
 FindLamp('Mining')
 ClickToContinue;
 FindScapeRune;
 FindGas(x,y);
 DwarfItem;
 SolveFrog;
 FindPick;
 FindMime;
 FindFight;
 FindDead;
 FindTalk;
 FindMod;
end;

Procedure MineOre;
  begin
  If FindMSColorTol(x,y,RockColor,2) Or
  FindMSColorTol(x,y,RockColor2,2) Then
  begin
     MMouse(x,y,3,3)
      If IsUpTextMulti('Mine','Rock','ck') Then
       Mouse(x,y,2,2,true)
       FindNormalRandoms;
       FindGas(x,y)
       FindPick;
       Wait(MineWait+Random(517))
        Repeat
      Until(invfull)
   end;
end;

Procedure DropOre;
begin
 DropTo(2,28);
 FindNormalRandoms;
end;

begin
 SetupSRL;
 SetupSRLMining;
 ActivateClient;
 HighestAngle;
 FindPickHeadColor;
 FindNubRandoms;
 AntiBan;
 Repeat
 MineOre;
 FindNubRandoms;
 If(Banking) = False Then
 DropOre;
 FindNubRandoms;
   Until(Loads = LoadsToDo)
    If(Loads = LoadsToDo) Then
   LogOut;
 TerminateScript;
end.

——————————————————
<!– END TEMPLATE: formanswers –>

By Drunkenoldma
What the hell?

By Drunkenoldman –> He designed the format for the

 tags.

Uhm, you are on the right track, but more effort is needed. Keep it up.

I like your scripting style. :D
But Im not voting yet… I have a suggestion, add multiplayers in it.

And I think you have a lil bug in the script:

begin
 SetupSRL;
 SetupSRLMining;
 ActivateClient;
 HighestAngle;
 FindPickHeadColor;
 FindNubRandoms;
 AntiBan; ////////////////////
 Repeat
 MineOre;
 FindNubRandoms;
 If(Banking) = False Then
 DropOre;
 FindNubRandoms;
   Until(Loads = LoadsToDo)
    If(Loads = LoadsToDo) Then
   LogOut;
 TerminateScript;
end.

Shouldn't AntiBan; be in the repeat loop? ;)

No from me, it seems it's just partially copied. Like this

Banking = False; //Do you want to bank the ore or not? Must leave false.

If(Banking) = False Then

And this will not do anything

        Repeat
      Until(invfull)

And it's very detectable.

Where do you count loads?

Also

   Until(Loads = LoadsToDo)
    If(Loads = LoadsToDo) Then

Last line is useless because it will do next thing anyways after until.

No.

Never use ClickToContinue in any randoms, aswell. (Like I do in my ess miner lol really got to take that out.)

You need player array, antirandoms (they dont work well without player array) and just a better knowledge overal.
This script is quire simple and repetitive.

Ur code looks nice but its a bit too simple.. Ill save my vote for later incase u update that.

Alright I will learn a bit more and then resubmit please delete this application.

Remember u need to wait a month.

Before applying again though (and after a month of course) I'd suggest having at least a 200 lines + script, or else you will probably get rejected again. Add more fail safes and things like that everything that was said above and you'll be good.

Thanks everyone for their constructive thoughts.
Thanks everyone
I appreciate it

Never use ClickToContinue in any randoms, aswell. (Like I do in my ess miner lol really got to take that out.)

lol… i didn't know that, why? :confused: