SRL Archive - Archive

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

What is the meaning to life?


Where you Referred to SRL? If yes, by whom?
yes
dark_sniper told me about this place and told me I should join up

Programming Knowledge
VB, JS, HTML, Java

Other Communitys
Moparisthebest.com, forum.gotbuddy.com, areithe.org, shadowskingdom.com

How Long have You Played Runescape
4-5+ years

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

I have been part of the cheating community since Autorune was around and I feel that I have never really given anything back to the community, however by becoming an SRL Member I feel that I will be able to accomplish that task and give something back to the community.

I started out with runescape cheating trying to write a Visual Basic application that would autoclick etc.. however after doing some google'in some I found out about some pretty awesome cheating community's and therefore started using AutoRune and SBot and those such programs. I started learning scripting then but stopped for a short while and when I came back I learned about SCAR and started learning the simple but effect advantages of using SCAR for runescape and many other games and such.

Today I use SCAR for almost everything lol, from simple arcade games to runescape cheating, I have heard about these forums for a while now and for one reason or another I haven't been able to until now to get on here and apply :P. I hope that you feel that I worthy of become a SRL member, although, I haven't even posted thus far. If accepted I will not let you down.

Sincerely,
therealjdb

Also, Credits to Dark_sniper for a few suggestions and testing my example script. :)

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

{.Include SRL\SRL.SCAR}
{.Include SRL\SRL\Skill\Mining.SCAR}

var
  i, it, orecount, loads : Integer;
  
const
   Timeage       = 10;         // How many seconds till clicking new rock.
   PickWeilded   = True;       // Is your Pick Weilded?
{*}load          = 5;          // how many loads per player?
{*}Color1        = 0;          //Primary ore color.
   Color2        = 0;          //Secondary ore color.
   Color3        = 0;          //So on..{n}{you do not have to set them all}
   Color4        = 0;          //And so on...
   Color5        = 0;          //And so on...
   Color6        = 0;          //And so on...
   {would of made ore color an array but i wanted the user to find this easily}
   mins          = 1;          // how many mins per report card?
   RunAway       = 'N';        // Which Direction to run away from fight?
  
Procedure DeclarePlayers;
begin

{*} HowManyPlayers  :=1;               // Compliant with Dynamic Array;
    NumberOfPlayers(HowManyPlayers);    // Set the Players Array Length;
    
      Players[0].Name :=''
      Players[0].Pass :='';
      Players[0].Nick :='';
      Players[0].Active :=True;
      Players[0].skill :='Mining';
      
    for i := 0 to HowManyPlayers-1 do begin
        Players[i].Active := True;
    end;
end;


Procedure Setup;
begin
  SetupSRL;
  SetupSRLMining;
  MarkTime(a);
  DeclarePlayers
  Activateclient;
  Wait(1500+random(300))
  FindPickHeadColor;
end;

Procedure AntiRandoms;
begin
  FindNormalRandoms;
  GasFound(x, y)
  FindPick;
  FindDemon;
  FindPlant;
  if (Findfight = true) then begin
    SetRun(true);
    RunAwayDirection(RunAway);
    Wait(5000 + Random(1000));
    RunBack;
  end;
end;

  


procedure FindOre;
begin
  if findcolortolerance(x, y, Color1, 178, 108, 379, 237, 5) then begin
    Mouse(x, y, 0, 0, False)
    Exit;
  end;
  if Color2 < 0 then
  if findcolortolerance(x, y, Color2, 178, 108, 379, 237, 5) then begin
    Mouse(x, y, 0, 0, False)
    Exit;
  end;
  if Color3 < 0 then
  if findcolortolerance(x, y, Color3, 178, 108, 379, 237, 5) then begin
    Mouse(x, y, 0, 0, False)
    Exit;
  end;
  if Color4 < 0 then
  if findcolortolerance(x, y, Color4, 178, 108, 379, 237, 5) then begin
    Mouse(x, y, 0, 0, False)
    Exit;
  end;
  if Color5 < 0 then
  if findcolortolerance(x, y, Color5, 178, 108, 379, 237, 5) then begin
    Mouse(x, y, 0, 0, False)
    Exit;
  end;
  if Color6 < 0 then
  if findcolortolerance(x, y, Color6, 178, 108, 379, 237, 5) then begin
    Mouse(x, y, 0, 0, False)
    Exit;
  end;
end;

procedure MineOre;
begin
  repeat
    FindOre;
  until ChooseOption(x, y, 'ine')
  AntiRandoms;
  Wait(Timeage*1000)
end;

procedure DropOre;
begin
  if InvFull then begin
    if PickWeilded then begin
      players[currentplayer].integer1 := players[currentplayer].integer1+28
      OreCount:=OreCount+28
    end;
    if not PickWeilded then begin
      players[currentplayer].integer1 := players[currentplayer].integer1+27;
      OreCount:=OreCount+28
    end;
    players[currentplayer].integer2 := players[currentplayer].integer2+1
    loads:= Loads+1
    BenMouse:=False;
    if pickweilded then
      DropAll;
    if not pickweilded then
      DropTo(2, 28)
    BenMouse:=True;
  end;
end;

Procedure ReportCard;
begin
  if ((TimeFromMark(a) / 1000) / 60 >= mins) then
    begin
      ClearDebug;
      Writeln('<->|<+>|<->|<+>|<->|<+>|<->|<+>|<->|<+><->|<+>|<->|<+>')
      Writeln(''+(players[currentplayer].name)+' Stats:')
      Writeln('You have mined: '+inttostr(players[currentplayer].integer1)+' Ores')
      Writeln('Script has worked for: '+inttostr(TimeFromMark(It))+'')
      Writeln('You have done: '+inttostr(players[currentplayer].integer2)+' loads')
      Writeln('<->|<+>|<->|<+>|<->|<+>|<->|<+>|<->|<+><->|<+>|<->|<+>')
      Writeln('<->|<+>|<->|<+>|<->|<+>|<->|<+>|<->|<+><->|<+>|<->|<+>')
      Writeln('Total stats')
      Writeln('Mined: '+inttostr(OreCount)+' ores')
      Writeln('Mined: '+inttostr(Loads)+' loads')
      Writeln('<->|<+>|<->|<+>|<->|<+>|<->|<+>|<->|<+><->|<+>|<->|<+>')
    end;
end;

Procedure Finals;
begin
  ClearDebug;
  Writeln('<->|<+>|<->|<+>|<->|<+>|<->|<+>|<->|<+><->|<+>|<->|<+>')
  Writeln(''+(players[currentplayer].name)+' Stats:')
  Writeln('You have mined: '+inttostr(players[currentplayer].integer1)+' Ores')
  Writeln('Script has worked for: '+inttostr(TimeFromMark(It))+'')
  Writeln('You have done: '+inttostr(players[currentplayer].integer2)+' loads')
  Writeln('<->|<+>|<->|<+>|<->|<+>|<->|<+>|<->|<+><->|<+>|<->|<+>')
  Writeln('<->|<+>|<->|<+>|<->|<+>|<->|<+>|<->|<+><->|<+>|<->|<+>')
  Writeln('Total stats')
  Writeln('Mined: '+inttostr(OreCount)+' ores')
  Writeln('Mined: '+inttostr(Loads)+' loads')
  Writeln('<->|<+>|<->|<+>|<->|<+>|<->|<+>|<->|<+><->|<+>|<->|<+>')
end;


procedure PlayerLoop;
var
tOut : integer;
Stop : Boolean;
begin
  if Stop = True then exit;
  If load <= players[currentplayer].integer2 then
    begin
      repeat
        NextPlayer(True);
        Wait(10000)
        if not loggedin then
          players[currentplayer].active:=False;
        Tout:=Tout+1;
      Until(loggedin) or (Tout <= 20)
        if (Tout <= 20) then begin
          if (not(Loggedin)) then begin NextPlayer(False);  Stop:=True; end;
          TOut:=0;
        end;
    end;
end;

begin
  Setup;
  MarkTime(it);
  if not loggedin then begin
    loginplayer;
  end;
  repeat
    MineOre;
    DropOre;
    AntiBan;
    PlayerLoop;
    ReportCard;
  until(False)
end.

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

I vouch for this guy.

He is extremely smart and could be a great attribute to the community in many ways.

Trust me this guy is good and not a leecher.

if he does anything wrong you can hold me responsible as well :sasmokin:

Looks like a good person. I vote yes.

why not?

I feel that I have never really given anything back to the community, however by becoming an SRL Member I feel that I will be able to accomplish that task and give something back to the community.

That attitude sounds like when noobs say they will be able to learn scripting better after becoming a member. Crappy attitude, but I'll go with dark on scripting ability.

Im im sure about this
but ill vote yes
So far from what i see in this script there's nothing special.
But i guess we can let him in,
there are already100s of leechers in anyways (not saying hes one)

Shouldnt all of these in the mining procedure

    Mouse(x, y, 0, 0, False)

Be true..?

You should make the dropore procedure drop ONLY ores,
Drop(2,28) may drop items that the user wants in their inventory.
Try making a bitmap or DTM of an ore.

Need Failsafe here

 repeat
    FindOre;
  until ChooseOption(x, y, 'ine')

EDIT:
Nah, im going to vote no.
If he is actually a good scripter, i want to see a good script.
He has nothing to fear if he knows he is good.
Just take some time and get more familiar with SRL/ The community and make a more complete and elaborate script.

No From Me :p

Ok, i'm gonna vote yes as the script looks worthy, and is way better then mine.

Only thing i saw besides what has already been stated is lack of a program name.

From: Boreas
That attitude sounds like when noobs say they will be able to learn scripting better after becoming a member. Crappy attitude, but I'll go with dark on scripting ability.

his attitude isnt crappy at all its more along the lines of my attitude… sarcastic..

and all people say stuff like that when they are shy.

Accepted.