SRL Archive - First Scripts

Hi All I am currently working on a Zammy Wine Grabber. How can I loop this and set it up as a procedure and have it compile sucessfully, It Works as is. and it telegrabs one wine and stops. I was wondering how can I repeat this until your inventory gets full?

program ZammyWineGrabber;
 {.include SRL/SRL.scar}






  var
x, y: Integer;



begin
ActivateClient;
SetupSRL;
FindNormalRandoms;
MouseSpeed:=12;


Gametab(7);
  MoveMouse(690,288);
  Wait(1000);
  ClickMouse(690,288,true);
   if FindObj(x, y, 'Wine of zamorak', 8750479, 5) then
      begin
        getmousepos(x, y);
        mouse(x, y, 0, 0, true);
        FindNormalRandoms;
       end




        end.

If I can get help with learning scar then I have plenty of time to make scripts.

I can help just gimme a min to look it over k :)

program ZammyWineGrabber;

{.include SRL/SRL.scar}

var
x, y: Integer;

begin
ActivateClient;
SetupSRL;
 repeat
  FindNormalRandoms;
   MouseSpeed:=12;
    Gametab(7);
     MMouse(690,288,3,3);
      Wait(1000+random(500));
       Mouse(690,288,3,3,true);
   if FindObj(x, y, 'ine of zamorak', 8750479, 5) then
      begin
        getmousepos(x, y);
        mouse(x, y, 2, 2, true);
        FindNormalRandoms;      
     end;
  if (not (loggedin)) then TerminateScript; 
 until (InvFull);        
end.

Do not use clickmouse, or movemousesmooth, they will get you banned.

Also, I'd advise not using co-ordiantes on the screen for your clicking. They also get you banned.

Try using findcolortolerance (/spiral) and/or bitmaps/dtms. If you don't know what any of these are, visit tutorial island and learn.

Don't repeat until false, it will most likely screw up, and get you banned.

Also, add random times onto your waits, otherwise, you will be banned.

I hope you're not banned already. And I hope I helped.

Ok I took out the Anti-Randoms but you can put those in. Attatched below is a new copy of the script that should repeat itself. It compiles properly tell me if it runs ok. :)

~Insanomano~

program ZammyWineGrabber;
 {.include SRL/SRL.scar}

var
x, y: Integer;


Procedure GrabWine;
 begin
   MoveMouse(690,288);
    Wait(1000);
     ClickMouse(690,288,true);
      if FindObj(x, y, 'Wine of zamorak', 8750479, 5) then
       begin
         getmousepos(x, y);
          mouse(x, y, 0, 0, true);
           FindNormalRandoms;
          end;
         end;


begin
 repeat
  GrabWine
   until(false)
    end.
 If I can get help with learning scar then I have plenty of time to make scripts.
 // Make that into a comment next time.

thx SPORKY im still pretty new to this i was just trying to help.

From: insanomano
thx SPORKY im still pretty new to this i was just trying to help.

Haha, no problem, It's awesome you were trying to help =D

Just try to take note of what I said above :p

If you need any help, just pm me, always willing :)

I Need to work on the walking and banking part now, but this is what I have so far.

program ZammyWineGrabber;

// ProResearch's Zammy Wine Grabber
// Start Your Players in the Zammy Hut

{.include SRL/SRL.scar}

var
x, y: Integer;

 const
  DirrectionR = 'S'; //Which way to run if in fight.
  HowManyLoads = 10; //
  MySRLID = '2912'; // optional.
  MySRLPassword = 'football';

 procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  CurrentPlayer := 0;
  NumberOfPlayers(HowManyPlayers);

  Players[0].Name := '';
  Players[0].Pass := '';
  Players[0].Nick := ''; //3 letters of your username
  Players[0].Active := True;

   end;

procedure AntiBannage;
begin
  case random(16) of
    0: GameTab(5);
    1: BoredHuman;
    2: GameTab(4);
    3: GameTab(1);
    4: GameTab(2);
    5: RandomMovement
    6: BoredHuman;
    7: PickUpMouse;
    8: RandomRClick;
    9: BoredHuman;
    10: GameTab(1);
    11: RandomMovement;
    12: GameTab(5);
    13: GameTab(6);
    14: BoredHuman;
    15: GameTab(7);


  end;
  end;
  
  Procedure WalkToBank;
  begin
   MakeCompass('N')
   HighestAngle;
   MakeCompass('N')
   Mouse(681,125,3,3,true);
   FFlag(0);
   Mouse(646,148,3,3,true);
   FFlag(0);
   Mouse(646,148,3,3,true);
   FFlag(0);
   Mouse(646,148,3,3,true);
   FFlag(0);
   //////////RadialWalk or DTM From here/////
  end;


begin
ActivateClient;
SetupSRL;
SRLID := MySRlID;
SRLPassword := MySRLPassword;
  wait(100);
  DeclarePlayers;
   if (not (loggedIn)) then
  begin
    LoginPlayer;
  end;
  repeat
  FindNormalRandoms;
  AntiBannage;
   MouseSpeed:=12;
    Gametab(7);
     MMouse(690,288,3,3);
      Wait(1000+random(500));
       Mouse(690,288,3,3,true);
   if FindObj(x, y, 'ine of zamorak', 8750479, 5) then
      begin
        getmousepos(x, y);
        mouse(x, y, 2, 2, true);
        FindNormalRandoms;
        AntiBannage;
         Wait(5000);
           FindNormalRandoms;
          AntiBannage;
         Wait(5000);
             FindNormalRandoms;
           AntiBannage;
         Wait(8000);
             FindNormalRandoms;
     end;
  if (not (loggedin)) then TerminateScript;
 until (InvFull);
 WalkToBank;
 Logout;

end.

Sp0rky can you point me to a good tutorial on dtm and radial walking, and a good tutorial on how redo my mouse coords so i dont get banned. Most of these tutorials on here seem outdated.

Of course.

The script is looking a lot better though dude. Now you just need to replace the co-ords with proper walking/object finding, etc, and you're set.

A brief lesson on radial walk - By fawaki

More advanced radial walk/Explanation in more depth by BobboHobbo

King of Knives dtm tutorial

Fun with bitmaps (But don't use those outdated clickmouse and move mouse procedures :p )

Btw, 'FFlag(0)' is the same as 'Flag'

added standards.

program ZammyWineGrabber;

// ProResearch's Zammy Wine Grabber
// Start Your Players in the Zammy Hut

{.include SRL/SRL.scar}

var
  x, y: Integer;

Const
  DirrectionR = 'S'; //Which way to run if in fight.
  HowManyLoads = 10; //
  MySRLID = ''; // optional.
  MySRLPassword = '';

procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  CurrentPlayer := 0;
  NumberOfPlayers(HowManyPlayers);

  Players[0].Name := '';
  Players[0].Pass := '';
  Players[0].Nick := ''; //3 letters of your username
  Players[0].Active := True;

end;

procedure AntiBannage;
begin
  case random(16) of
    0: GameTab(5);
    1: BoredHuman;
    2: GameTab(4);
    3: GameTab(1);
    4: GameTab(2);
    5: RandomMovement
    6: BoredHuman;
    7: PickUpMouse;
    8: RandomRClick;
    9: BoredHuman;
    10: GameTab(1);
    11: RandomMovement;
    12: GameTab(5);
    13: GameTab(6);
    14: BoredHuman;
    15: GameTab(7);
  end;
end;

Procedure WalkToBank;
begin
  MakeCompass('N')
  HighestAngle;
  MakeCompass('N')
  Mouse(681,125,3,3,true);
  FFlag(0);
  Mouse(646,148,3,3,true);
  FFlag(0);
  Mouse(646,148,3,3,true);
  FFlag(0);
  Mouse(646,148,3,3,true);
  FFlag(0);
  //////////RadialWalk or DTM From here/////
end;


begin
  ActivateClient;
  SetupSRL;
  SRLID := MySRlID;
  SRLPassword := MySRLPassword;
  wait(100);
  DeclarePlayers;
  if (not (loggedIn)) then
  //begin     no need for this if only 1 command
    LoginPlayer;
  //end;
  repeat
    FindNormalRandoms;
    AntiBannage;
    MouseSpeed:=12;
    Gametab(7);
    MMouse(690,288,3,3);
    Wait(1000+random(500));
    Mouse(690,288,3,3,true);
    if FindObj(x, y, 'ine of zamorak', 8750479, 5) then
    begin
      getmousepos(x, y);
      mouse(x, y, 2, 2, true);
      FindNormalRandoms;
      AntiBannage;
      Wait(5000);
      FindNormalRandoms;
      AntiBannage;
      Wait(5000);
      FindNormalRandoms;
      AntiBannage;
      Wait(8000);
      FindNormalRandoms;
    end;
    if (not (loggedin)) then TerminateScript;
  until (InvFull);
  WalkToBank;
  Logout;
end.

edit: btw u left ur SRL ID n Pass in there, and if it was intentional, you're not allowed to.

~RM

Yeah, i know the best tut on beginning RadialWalking and DTMS. It is in the beginners section and it is called UnRivalled Guide to Scripting SCAR.

Also, Sp0rky, why can't he use coordinates? It would get you banned but if you plus and minus it then it would be more random. Like add a new variable called cx and cy and put cx:=cx+1+random(4); example.

i dont understand why you posted read TUTS!….. this not even a script

and your making people doing for you

From: IP-Drowner
Yeah, i know the best tut on beginning RadialWalking and DTMS. It is in the beginners section and it is called UnRivalled Guide to Scripting SCAR.

Also, Sp0rky, why can't he use coordinates? It would get you banned but if you plus and minus it then it would be more random. Like add a new variable called cx and cy and put cx:=cx+1+random(4); example.

Haha, that's what the two parameters after x and y in mouse are (Mouse(x,y,AddRandomOntoX,AddRandomOntoY,True)).

Basically, the runescape screen shifts (to prevent co-ord macros). It means your script may click in the right place for 5-7 minutes, but after that, it won't be clicking on the same thing.

Originally he had Mouse(co-ordx,co-ordy,0,0,True);

That meant no randomness whatsoever. Jagex easily detects people clicking on the exact same/similar co-ordinates over and over again, and they ban you for it.

So in answer to your question, he can use co-ordinates, just make sure they have alot of randomness (but still, this isn't advised).