SRL Archive - Archive

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

What is the meaning to life?
Scripting SCAR, playing sports and eating lol.

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


Programming Knowledge
some HTML

Other Communitys
sythe.org

How Long have You Played Runescape
about 20 months

Are you affilated in anyway with Jagex LTD?
No.
—————————————————–
Please write down a paragraph about Yourself.
Well i have been a part of this community for about 2 weeks now, and all i have done is read
read read and write write write scripts lol. I have spent 3-4 hours everyday reading how to script, or just posting/helping out the community (hopefully) in my sig i have 2 tutorials that I wrote which you may want to check out :)


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

 { /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
this script does not feature pickaxe head finding. will add soon. start   ||
near rock(s) you want to mine, pick axe weilded or in first inv slot.     ||
make sure to setup lines 10-13 + lines 56-94. if you encounter any bugs   ||
while running this script, or just want to tell me what a GREAT script    ||
this is :), pm me on SRL forums, or add me on e-mail or MSN.              ||
<a href="mailto:runescapemacro@hotmail.com">runescapemacro@hotmail.com</a>                                         ||
please do not use anything in this script without asking from me first.   ||
i am not responsible for any banned accounts. happy macroing :)           ||
\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/

                          Thanks To:
JR and Boreas for helping me with a few errors. special thanks to pwnaz0r
for helping me fix a few bugs, he's an uber scripter :). Thanks WhoCares357
for making one of the most uber tuts on SRL forums :) thanks to anybody i
left out for helping me when i needed it.
thank you SRL Community for making SRL and kaitnieks for making scar :)
}
program JADMiner;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Mining.scar}

const
  RockColor = 4219786; //the color of rock you want script to mine
  Loads = 1; //Number of loads you want to do before stopping.
  JADProggy = true; //true or false for progress report
  DirToRun = 'N'; //Direction to run if fight is found
  OnlyDropOres = true; //use DTM's to only drop ores and keep gems and stuff.
  DropCeptPick = false; //if set to true then it will drop everything except
                    //pick. if set to true, make sure to set if your pick
                    //is weilded in the player arrays, or it may drop it.
{ IMPORTANT! OnlyDropOres and DropCeptPick NEED to be set differently! so
DO NOT set both to true or both to false. they NEEDto be different. }

procedure Signature;
begin
  ClearDebug;
  writeln(' program JAD Miner by yours truely: ');
  writeln('   __________   /\       ______     ');
  writeln('  |__________| /  \     | ____ \    ');
  writeln('      |  |    / /\ \    | |   \ \   ');
  writeln('  ___ |  |   / /__\ \   | |    \ \  ');
  writeln('  \  \|  |  / /____\ \  | |    / /  ');
  writeln('   \     | / /      \ \ | |___/ /   ');
  writeln('    \____|/ /        \ \|______/    ');
  wait(5000);
end;
{/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
-                          |||||||||||||||||||
-            ---------->   || SETUP Players || <----------
-                          |||||||||||||||||||
\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/}

procedure DeclarePlayers;
begin
  HowManyPlayers := 6; //Number of PLAYERS. active or not.
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0; //Player to start on.
       //set all user names, passwords and nicks correctly please.
  Players[0].Name := 'UserName';
  Players[0].Pass := 'Password';
  Players[0].Nick := '3-4 letters of UserName';
  Players[0].Active := True;
  Players[0].Boolean1 := False; //is pick equiped? if not then put in FIRST inv slot

  Players[1].Name := 'UserName';
  Players[1].Pass := 'Password';
  Players[1].Nick := '3-4 letters of UserName';
  Players[1].Active := False;
  Players[1].Boolean1 := False; //is pick equiped? if not then put in FIRST inv slot

  Players[2].Name := 'UserName';
  Players[2].Pass := 'Password';
  Players[2].Nick := '3-4 letters of UserName';
  Players[2].Active := False;
  Players[2].Boolean1 := False; //is pick equiped? if not then put in FIRST inv slot

  Players[3].Name := 'UserName';
  Players[3].Pass := 'Password';
  Players[3].Nick := '3-4 letters of UserName';
  Players[3].Active := False;
  Players[3].Boolean1 := False; //is pick equiped? if not then put in FIRST inv slot

  Players[4].Name := 'UserName';
  Players[4].Pass := 'Password';
  Players[4].Nick := '3-4 letters of UserName';
  Players[4].Active := False;
  Players[4].Boolean1 := False; //is pick equiped? if not then put in FIRST inv slot

  Players[5].Name := 'UserName';
  Players[5].Pass := 'Password';
  Players[5].Nick := '3-4 letters of UserName';
  Players[5].Active := False;
  Players[5].Boolean1 := False; //is pick equiped? if not then put in FIRST inv slot
end;
       { don't touch below unless you know what your doing! }

{/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\

             ---------->   Random Finding   <----------

\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/}

procedure FindRandoms;
var
  TimeMark: Integer;
  Talk: Integer;
begin
  if FindGas(x, y) then
  begin
    RunAwayDirection(DirToRun);
    Wait(5000 + random(1500));
    RunBack;
  end;
  for Talk := 1 to Time do
  begin
    Wait(500 + random(100));
    FindTalk;
  end;
  begin
    MarkTime(TimeMark);
    Wait(1500 + random(100));
    FindNormalRandoms;
    if (TimeFromMark(TimeMark) > 30000) then
      Exit;
  end;
  if (FindFight = true) then
  begin
    RunAwayDirection(DirToRun);
    Wait(10000 + random(2000));
    RunBack;
  end;
end;
{/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\

                ---------->  Anti Ban  <----------

\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/}

function DoAntiBan: Boolean;
begin
  AntiBan;
  wait(50 + random(100));
  BoredEvery(3 + random(3));
  wait(100 + random(100))
    RotateEvery(7 + random(4));
  wait(750 + random(250));
  LeaveScreenEvery(5 + random(7));
  wait(500 + random(150));
end;
{==========================================================================

               ---------->   JAD Proggy   <----------

==========================================================================}
var
  LoadsNum: Integer;
  Ores: Integer;

procedure JADProggie;
begin
  if (JADProggy = False) then
    Exit;
  if (JADProggy = true) then
  begin
    ClearDebug;
    Writeln('[]========================================[]');
    Writeln('---------------->JAD Proggy<----------------');
    Writeln('  Worked For : ' + ScriptTime2(2) + '         ');
    Writeln('--------------------------------------------');
    Writeln('  did ' + IntToStr(LoadsNum) + ' Loads' + '    ');
    Writeln('--------------------------------------------');
    Writeln('  Mined ' + IntToStr(Ores) + ' ores' + '        ');
    Writeln('[]========================================[]');
  end;
end;
{/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\

                ----------> Tolerance Changer <----------
                thanks to pwnaz0r for helping me with this
\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/}
var J, M, Tol: Integer;

function GetTolerance: Integer;
var
  i: Integer;
begin
  i := 0;
  repeat
    i := i + 1;
    if (FindColorSpiralTolerance(J, M, RockColor, 0, 0, 249, 179, i)) then
    begin
      MMouse(J, M, 0, 0)
        if (IsUpText('ocks')) then
        Result := Tol;
    end;
  until (i > 2600);
  Result := Tol;
end;

{/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\

                   ----------> Mines Rock <----------

\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/}

function FindRock: Boolean;
var x, y: Integer;
  Tol: Integer;
begin
  if (not (LoggedIn)) then
    Exit;
  Result := False
    Tol := 3;
  if (FindColorSpiralTolerance(x, y, RockColor, 0, 0, 249, 179, Tol)) then
  begin
    MMouse(x, y, 2, 2);
    if (IsUpText('ocks')) then
      Result := True;
  end;
  if (not (result)) then
    if (not (Result)) then
      Tol := GetTolerance
end;
/////////////////////////////////////////////////////////next function

function WhileMining: Boolean;
begin
  if (not (LoggedIn)) then
    Exit;
  Result := False;
  repeat
    MMouse(x, y, 0, 0);
    Wait(50 + random(500));
    if (IsUpText('ocks')) then
      begin
      GetMousePos(x,y);
      if (FindColorSpiralTolerance(x, y, RockColor, 0, 0, 249, 179, Tol)) then
        begin
        Mouse(x, y, 2, 2, true);
        Wait(1000 + random(250));
        Result := True;
        Exit;
        end;
      end;
    if (not (Result)) then
    begin
      Tol := GetTolerance;
    end;
    Ores := Ores + 1;
  until
    (InvFull);
  LoadsNum := LoadsNum + 1;
end;

function MineRock: Boolean;
begin
  if (not (LoggedIn)) then
    Exit;
  Result := False;
  repeat
    MMouse(x, y, 0, 0);
    Wait(50 + random(500));
    if (IsUpText('ocks')) then
      begin
      GetMousePos(x,y);
      Mouse(x, y, 2, 2, true);
      Wait(1000 + random(250));
      Result := True;
      end;
    if (not (Result)) then
    begin
      Tol := GetTolerance;
    end;
    Ores := Ores + 1;
  until
    (InvFull);
  LoadsNum := LoadsNum + 1;
end;
{/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\

                   ---------->   Drops Ore   <----------

\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/}

procedure DropOre;
var Ore, x, y: Integer;
begin
  if (not (loggedin)) then
    Exit;
  Ore := DTMFromString('78DA63AC64666078CBC8800EFEC36820604C0' +
    '7AAF98CAE86118904D2B94035CF08A8A903AA7944404D2B11E694' +
    '02D5FC22A0A604A8E63E7E3500A8CD0ECB');
  GameTab(4);
  if (OnlyDropOres = true) then
  begin
    repeat
      if FindDTM(Ore, x, y, 820, 471, 995, 733) then
      begin
        MMouse(x, y, 0, 0);
        wait(200 + random(100));
        Mouse(x, y, 4, 6, false);
        if (ChooseOption(x, y, 'rop')) then
      end;
    until (not (FindDTM(Ore, x, y, 820, 471, 995, 733)));
    if (DropCeptPick = true) and (Players[CurrentPlayer].Boolean1 = false) then
    begin
      DropTo(2, 28);
    end;
    if (DropCeptPick = true) and (Players[CurrentPlayer].Boolean1 = true) then
    begin
      DropAll;
    end;
  end;
end;
{/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\

                 ---------->   Main Loop   <----------

\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/}
begin
  SetupSRL;
  SetupSRLMining;
  DeclarePlayers;
  if (not (LoggedIn)) then
  begin
    LoginPlayer
      MakeCompass('N');
    HighestAngle;
  end;
  Signature;
  ActivateClient;
  MakeCompass('N');
  SetRun(true);
  repeat
    FindRock;
    MineRock;
    while (WhileMining) do
    begin
      FindRandoms;
      DoAntiBan;
    end;
    DropOre;
    JadProggie;
    if (not (LoggedIn)) then
    begin
      NextPlayer(True);
      MakeCompass('N');
      HighestAngle;
    end;
  until (LoadsNum < (Loads));
end.

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

You seem to know your stuff. I've seen your tutorial on the basics of SRL functions and I like it. The script looks pretty solid too. I vote yes.

Looks great to me.
And Boreas said you've worked hard on it, i can tell.
Yes From Me

Standards good
Whiles in main loop good
Playerswitching good
AntiRandoms good

Comments and intro are also good (not just because I'm in there :p )

Yes

Yes for all of the above reasons ;).

Boom son yes for JAD :P

Someone memberize him already. And give him a tut cup. I had one when my tuts weren't even on how to script lol.

From: Boreas
Someone memberize him already. And give him a tut cup. I had one when my tuts weren't even on how to script lol.

If I am not allowed to post in this thread then I am very sorry :) I just wanted to say thanks to everybody who said yes, it really means a lot to me :) but what do you mean "give me a tut cup"? whats a tut cup? is it an award of some type? lol. anyway, you should check out my new tut 5 easy steps to scripting scar too, its pretty good I think but I need fee back :) (link in sig) really sorry again if i wasn't allowed to post here :redface:

Thats a tut cup.
You get it for writing tutorials.

Yes you are allowed, especially to defend yourself or answer questions. If you were not allowed, Dankness would have made it so that you can't post if you tried. Look to the right of my helping bear and above my dev gears, thats a tut cup. I got that for writing my FAQ and how to be a member, which were both not about how to script. All of your tuts are, so I think you deserve a tut cup more than I did.

Thanks a lot boreas :) that means a lot coming from you. so the key the gear and the scissors are tutorial cups then? is there anything like a tut or something that explains what means what and how to get each?

Yea it's in general site discussion or something. SRL Cups and Ranks I think.

edit
lol you posted in it
http://www.villavu.com/forum/showthread.php?t=2410

lol i know i saw it somewhere :p i posted that a looooonnng time ago when i joined :p

yeah ?

script looks good.

In! Sorry for the delay.