SRL Archive - Archive

grindisbest - SRL Member Application Form


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


Programming Knowledge
SRL, Java, Delphi, C++ and C#


How Long have You Played Runescape
Year and a half

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

Well I love making scripts. Don't really like playing runescape that much, just the cheating side is fun. I used to write scripts before SRL came out. I came up with a tokkul cave script, which got my main from level 40 to 100.
I like using walking in my scripts, I think I will make more scripts like this.

Here's a progress report of the script below…
Grindisbest - Eye Of Newts!
<============== -1.01- Progress Report ===============>
You have spent 2106GP and you have collected about 729 Newts
Run For : 2 Hours, 3 Minutes, 16 Seconds

If you don't want me please be nice and tell me what I need to improve.

This script has..
Multiplayer
Anti Ban
Anti Random
Walks long distance

Thanks for reading.

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

program Grindisbest;
{.include SRL\SRL.scar}
{.include SRL\SRL\Misc\amount.scar}
{
Newt Buyer.
Start in falador bank with money in first bank slot and a
empty inventory.

By GRINDISBEST.
}
const
  LoadsPerPlayer = 3; // Loads per player til switching.
  BankMMColor = 3521761; //Only change if the script tells you it couldn't
                         //find the bank color. Bank Minimap Symbol color.
  ShopMMColor = 821750 ; //Same as BankMMColor but for the Magic Shop.
var
  newts,coins,loads,BankCMM,rock:integer;
Procedure DeclarePlayers;
begin
  HowManyPlayers := 3;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 1;

  Players[0].Name := 'user';
  Players[0].Pass := 'pass';
  Players[0].Active := True;
  Players[0].String1 := 'Mining'; //What skill to pick for lamp

  Players[1].Name := 'user';
  Players[1].Pass := 'pass';
  Players[1].Active := True;
  Players[1].String1 := 'Mining'; //What skill to pick for lamp

  Players[2].Name := 'user';
  Players[2].Pass := 'pass';
  Players[2].Active := true;
  Players[2].String1 := 'Mining'; //What skill to pick for lamp
end;

Procedure AntiRandoms;
begin
  FindNormalRandoms;
  FindLamp(Players[CurrentPlayer].String1);
end;

procedure ProgressReport;
begin
  WriteLn('Grindisbest - Eye Of Newts!');
  WriteLn('<============== -1.01- Progress Report ===============>');
  SRLRandomsReport;
  Writeln('You have spent '+inttostr(Coins)+'GP and you have collected about '+inttostr(Newts)+' Newts');
  Writeln('Run For : '+ScriptTime2(2));
end;

procedure LoadBMP;
begin
  rock := BitmapFromString(9, 1, '000000000000000000000000362' +
       '929504340504340504340000000');
end;

procedure FindShop;
var
x,y:integer;
begin
  if not findsymbol(x,y,'magic shop')then
    begin
      if not findcolortolerance(x,y,ShopMMColor,MMX1,MMY1,MMX2,MMY2,10) then
      begin
        exit;
      end;
    end;
  mouse(x,y,2,2,true);
end;

procedure FindRock;
var
x1,y1,x2,y2,x,y,a:integer;
begin
  x1:=646;
  x2:=650;
  y1:=81;
  y2:=85;
  repeat
    a:=a+1;
    if x1>568 then
    x1:=x1-2;
    if x2<728 then
    x2:=x2+2;
    if y1>5 then
    y1:=y1-2;
    if y2<158 then
    y2:=y2+2;
  until(FindBitmapSpiralTolerance(Rock, X, Y, x1, y1, x2, y2, 1) or (a=40));
  if x>0 then
  mouse(x,y,2,2,true);
end;

Procedure BankingWithDraw;
begin
  AntiRandoms;
  if ExistsItem(2) or (Amount('inv',1)<300) then
  begin
    repeat
      OpenBank3;
      wait(500);
      if not bankscreen then
        MakeCompass('S');
    until(BankScreen);
    if ExistsItem(2) then
      Deposit(2,2,2);
    writeln(inttostr(Amount('inv',1)) + ' coins in your inventory.');
    if Amount('inv',1)<300 then
      Withdraw(1,1,500);
      wait(1000);
    if Amount('inv',1)<300 then
    begin
      writeln('You need at least 300gp on '+Players[CurrentPlayer].Name+'. Changing Player');
      Closebank;
      Logout;
      NextPlayer(False);
    end;
    repeat
      Closebank;
      wait(1000);
    until(not bankscreen);
  end;
  AntiRandoms;
  MakeCompass('N');
  HighestAngle;
end;

Procedure WalkingToShop;
var
  x,y,c,d:integer;
begin
  if not LoggedIn then
  exit;
  MakeCompass('N');
  C:=FindFallyRoadColor;
  RadialWalk(c,  232, 195, 60, 0, 1);
  wait(5000+random(200));
  flag;
  AntiRandoms;
  RadialWalk(c,  215, 145, 68, 0, 1);
  wait(2000);
  flag;
  AntiRandoms;
  d:=FindRoadColor;
  if d=0 then
  begin
    RadialWalk(d,  215, 145, 68, 0, 1);
    wait(2000);
    flag;
    AntiRandoms;
  end;
  RadialWalk(d,  215, 135, 66, 0, 1);
  wait(2000);
  d:=FindRoadColor;
  flag;
  AntiRandoms;
  c:=0;
  repeat
    C:=C+1;
    RadialWalk(d,  215, 135, 66, 0, 1);
    wait(2000);
    flag;
    AntiRandoms;
  until(c=2);
  writeln('Looking for magic shop.');
  if FindSymbol(x,y,'magic shop')then
  begin
    Writeln('Found magic shop in MM');
    Mouse(x-5+random(5),y+random(5),4,9,true);
    flag;
    AntiRandoms;
    exit;
  end else
  begin
    Mouse(672, 123,20,20,true);
    FindShop;
    wait(1000);
    flag;
    AntiRandoms;
  end;
  writeln('Looking for magic shop again.');
  if FindSymbol(x,y,'magic shop')then
  begin
    Writeln('Found magic shop in MM');
    Mouse(x-5+random(5),y+random(5),4,3,true);
    flag;
    AntiRandoms;
    exit;
  end else
  begin
    Mouse(672, 123,20,20,true);
    FindShop;
    Flag;
    AntiRandoms;
    wait(500+random(200));
  end;
  wait(500+random(200));
  writeln('Looking for magic shop for the last time');
  if FindSymbol(x,y,'magic shop') then
  begin
    Writeln('Found magic shop in MM') ;
    Mouse(x-5+random(5),y+random(5),4,3,true);
    flag;
    AntiRandoms;
    exit;
  end else
  begin
    writeln('No Idea where magic shop is. Logging out and changing player.');
    Logout;
    NextPlayer(False);
  end;
end;

Procedure Shop;
var
  a,b :integer;
begin
  if not LoggedIn then
  exit;
  b:=Amount('inv',1);
  repeat
    wait(40);
    a:=0
    AntiRandoms;;
    if FindObj3(x,y,'Betty',5441620,25) then
      Mouse(x,y,1,1,false);
    if not ClickOption('Trade', 1) then
    begin
      if not ClickOption('Clancel',1)then
      begin
        a:=1;
      end else
      a:=1;
    end;
  until(a=0);
  a:=0;
  repeat
  wait(50);
  until(shopscreen);
  Repeat
    Mouse(82+Random(5), 123+Random(5),15,15,false);
    wait(30+random(100));
    if not ClickOption('Buy 10', 1) then
    begin
      ClickOption('Clancel',1);
      a:=a-1;
    end;
    wait(100+random(100));
  a:=a+1;
  Until(a=3);
  Mouse(479,34,10,10,true);
  AntiRandoms;
  Coins:=(b-Amount('inv',1))+Coins;
  Newts:=Newts+InventoryCount-1;
end;

Procedure WalkingToBank;
var
  x,y,a,b:integer;
begin
  if not LoggedIn then
  exit;
  mouse(621+random(5), 47+random(5),2,2,true);
  flag;
  AntiRandoms;
  FindRock;
  flag;
  AntiRandoms;
  a:=FindRoadColor;
  B:=0
  repeat
    B:=B+1;
    writeln(inttostr(b));
    if b>1 then
    begin
    RadialWalk(a,300,400,73,0,1);
    wait(2000);
    flag;
    end else
    RadialWalk(a,330,386,73,0,1);
    wait(2000);
    flag;
    AntiRandoms;
  until(b=3);
  RadialWalk(FindFallyRoadColor,330,400,73,0,1);
  wait(2000);
  flag;
  AntiRandoms;
  RadialWalk(FindFallyRoadColor,300,400,73,0,1);
  wait(2000);
  flag;
  AntiRandoms;
  a:=1;
  if not findsymbol(x,y,'bank')then
  begin
    A:=0;
    if findcolortolerance(x,y,BankMMColor,MMX1,MMY1,MMX2,MMY2,10) then
    begin
    a:=1;
    end;
  end;
  if a=1 then
  begin
    mouse(x,y+7,2,2,true);
    a:=0 ;
    Flag;
    AntiRandoms;
    loads:=loads+1;
    exit;
  end;
  if not findsymbol(x,y,'bank')then
  begin
    if not findcolortolerance(x,y,BankMMColor,MMX1,MMY1,MMX2,MMY2,10) then
    begin
      Logout;
      nextplayer(False);
      exit;
      writeln('Cound not find the bank. Bank Symbol has to be in the minimap.');
      writeln('and the world can not be to crowed. Changing player.')
    end;
  end;
  mouse(x,y+7,2,2,true);
  Flag;
  AntiRandoms;
  loads:=loads+1;
end;

procedure CheckColor;
var
x,y:integer;
begin
  if not findcolortolerance(x,y,BankMMColor,MMX1,MMY1,MMX2,MMY2,10) then
  begin
    writeln('Bank MM Color not found: Set new Color and restart the script.');
    TerminateScript;
  end else
  begin
    writeln('Bank MiniMap Color has been found!');
  end;
end;

begin
  SetupSRL;
  DeclarePlayers;
  DisguiseScar('iTunes');
  LoadBMP;
  LoginPlayer;
  CheckColor;
  repeat
    if not LoggedIn then
      NextPlayer(false);
    if Loads = LoadsPerPlayer then
    begin
      NextPlayer(True);
      Loads:=0;
      LoginPlayer;
    end;
    ProgressReport;
    BankingWithDraw;
    WalkingToShop;
    Shop;
    WalkingToBank;
    ClearDebug;
  until(False);

end.

I have also made an eye of newt buyer and yours looks good, so pending YoHo's copybust I will probably vote yes.

Cheers man, I insure you it's all my work.

I hate to be the ass about this kind of thing, but your app wasn't a complete month ago…

Yeah I know, sorry about that but my last one sucked so much I really wanted to put up a better side of me.

yes! I can even see radial walk there :)

Cheers for the votes going my way so far.:)

Good work. tow suggestions quickly browsing through your script.

• NextPlayer(True) logs the Player in, so no need to do LoginPlayer.
• I would suggest replacing Flag; with FFlag(10); because flag; does not resolve the "hanging" flag;

yes from me….
[noob question] With standards when u have stuff after an end; e.g.

        begin
          //crap here
        end;
        Logout;
        blahblah;

you do that not:

    begin 
      //Crap here
    end;
  Logout;
  BlahBlah;

It's just I've seen both in a lot of scripts but I always thought u did it the first way

Sure, just add some failsafes.
Try Something like

Marktime(poopie)
Repeat
Stuff
Until (Thing) or (TimeFromMark(Poopie)>30000)[/[SCAR]

Except for that and a few other things it looks good enough to me.

Eh, I'll go ahead and vote yes, but remember!

You have to break out of every loop. Let me say that again, only louder this time:
YOU HAVE TO BREAK OUT OF EVERY LOOP. In SRL there are no endless loops. All functions or procedures break one way or the other. It is vital for proper SRL scripting. Do not use:

repeat
until(false);


but break, preferably when logged out.

-WT-Fakawi

You need to break from your loop

something like this

if not LoggedIn then LoginPlayer
if not LoggedIn then Break;

That way we know that we are not logging in and are just running the script doing nothing… so we break out of the infinite loop by saying if not logged in then break.

awww wtf Yoho I want a black name :D

Hey Grind, Well you didn't wait a month, but you obviously have the talent…and I think you have a great attitude towards being receptive to the criticism you have been given here, and I think that is the only way you are able to let your talents grow…. I'm sure you're going to make a great addition to the many talented people here, and I look forward to seeing more good things from you, Good Luck, RAM

Thank you so much people for the votes and thanks for the advice on how to improve my script. By the way do these things run for 7-14 days or is it something diferent?

Also, WT-Fakawi what do you mean by the "hanging flag"?

Speical thanks to RAM too, for being real awesome to me and helping me out.

Black name=Mod
W0ot nicka!

I want a black name!!!!!

Rune Hacker = My name in the future :p

From: grindisbest
Thank you so much people for the votes and thanks for the advice on how to improve my script. By the way do these things run for 7-14 days or is it something diferent?

Also, WT-Fakawi what do you mean by the "hanging flag"?

Speical thanks to RAM too, for being real awesome to me and helping me out.

Yeah, 7-14 days, gives us time to delete the posts where we were talking about you behind your back :stirthepot: …JK

for instance, Where flag is visible in the mini-map, but player is stuck behind an obstacle, thus the flag will not disappear, and instead of clicking again, your character just stands there until it times out…..

RAM

Yes from me, great use of functions and display all important things i like to see in applications. Just add a few failsafes.

I would like a sexy blue name

Accepted.