SRL Archive - First Scripts

Ive spent a great deal of time on this script and i appreciate all the help i got from WhoCares357 as a friend and as a great tut writer ;). Things you needa know. Make sure to START LOGGED IN!

1. works on 32 BIT
2. IT CAN WORK ON OTHER LOGS!
3. KNIFE IN FIRST INVENTORY SPACE!!!
4. WILLOW LOGS IN FIRST BANK SPACE
5. IF YOU FORGET TO GET A KNIFE IT WILL SEARCH FOR IT IN THE BANK. (in most cases this procedure doesnt work so just try to put ur knife in the first inv space =)! im still working to perfect it though)
6. WORKS ONLY IN VARROCK WEST BANK. if your lazy you can just change the OpenBankQuiet sequences to watever bank u want ;).

7. Ive disabled Antiban for now(kept it outta the main loop)
8. USE AT YOUR OWN RISK
9. SUPERVISE IT AT ALL TIMES (or just pay attention to it or something =))

good first script, btw, some things:

begin
     FixBank;
     Deposit(1,1,1);
     Wait(2000+random(304));
     FindBitmap(Knife,x,y);
     Mouse(x,y,1,1,true);
     WithDraw(1,1,1);
     CloseBank;
     FreeBitmap(Knife);
     Mouse(580,229,2,2,true);//uses the knife (First item in inv should be knife)
     Mouse(617,225,1,1,true);
     Wait(3000+random(200));
     Mouse(263,408,1,1,false);
     Mouse(276,476,1,1,true); //or ChooseOption('X logs')Mouse(276,476,1,1,true)
     Wait(2000+random(200));
     TypeSend('27');
     Writeln('We are cutting the logs');
     Wait((WaitTime*1000)+random(1345));
   end;
end;

why coords?
just :

if FindBitmap(Knife, x, y) then Mouse(x, y, 2, 2, True);

also, make smaller bmps.

keep on coding.

You don't need the disguise scar, I'm pretty sure its illegal for them to look at your toolbar(I read the T+C and I don't see anything about it).

Read the tutorial on standards in beginner section.

Your antiban is too often. Use about 1/10 chances, not one that will do it every time.

Try using a DTM instead of a BMP, a lot more effective IMO.

Maybe try to use one of SRL's bank openers and put in a const where to bank at.

Use

 
FreeBitmap(BitmapName);

And if you use DTM's do

FreeDTM(DTMname);

Otherwise it will slow down the users computer a lot after a while.

Heres one with most standards(I probably missed some) and without disguise, and a couple other fixes.

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



///////////    ////////////                                                                         ///////////////
///////////    /////                                                                                ///////////////
//////////     /////////     ////////  /////////        /////       ///  //    ///      /////////   //////////////
//////////     ///           //        //             ///   ///     /// //             //           ///////////////
///////////    ///           //        ////////     ////////////    /////             //            ///////////////
////////////   ///           //        //          ///        ///   /////              /////////    ////////////////
                                       ////////   ///          ///  /// //                    //
                                                                    ///  //          //////////
////SET UP CHARACTER RIGHT NEXT TO BANK BOOTH//////
////KNIFE IN FIRST SLOT////
////MAKE SURE WILLOWS ARE IN FIRST BANK SLOT//////
////WORKS ONLY IN VARROCK WEST BANK///
////HAVE DISABLED BITMAPS AND ANTIBAN FOR NOW!!!////
///F1 TO STOP SCRIPT or just ctrl-alt-s////




var
  Willow, Knife, x, y: Integer;

const
  WaitTime = 50; //in second
  UseAntiBan = True;//if u wanna use anti ban

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

     Players[0].Name :='username';
     Players[0].Pass :='pass';
     Players[0].Nick :='ser';
     Players[0].Active:=True;
     Players[0].pin := 0000;
     
end;



procedure DeclareBitmaps;
begin
   Willow := BitmapFromString(36, 26, 'beNrdlkFLw0AUhJu/ICKiiL' +
       'l5UiQULZZilIql9NCColJQURRFUPDi33fowPSZl2yTpfRgmEObsO/' +
       'b2bzZTd5uxV9Ja1VXtr/WydZXADrvbo4HO6P+tlV0qd7xBoSZY/60' +
       'gL+X+RZqguKF+xjVFPQ07bzcn3w8965Hu5SvrEd6Gsf6fj+j7sapx' +
       '1mKVRQrsSyLk3jfKpY19/X1empxHiHBL14lXmjTIHhWQFxemppFIG' +
       'mCm6+hXckqBOywaQGCJsODi3yvDg4DoQBIfSIKxYFMGe8HDE6v2lg' +
       'xpZIg2/aMm6+suOmd2smU4pApsFD87bHLsQRp5p7iU+CXt5T189mn' +
       'EbEQ54ebo8Iu5I34ICxkqfHEIhrEqvBWJa7AOkzTAgtlycIPmqpKW' +
       'Z1ch33BjmXZVgyw4nKN3hALpur4Ko0DG56nQ3h7hzsI9m8nWenuEe' +
       'iE2fmV/FXM7uHnL0Tzygt2RVnTUSUE2sx3WsSnS2ENl+Ui4I525GI' +
       'FHzNLWqt/eA1+ATFKWNE=');
       
    Knife := BitmapFromString(43, 37, 'beNrtVc0KAVEYndkq' +
       '7+AJRNkYG2Ihe1sWYpqmaZomkjTFahQKUeNnCqFslCd0mltDUVL6v' +
       's2cTnd165zz3XvPlSRKFHPpQjYpVilChAj/h6w3GkazySUv1AMDMo' +
       's6owGhG5LcgGyqasjFyKU1IFuaFtJfzOnj27ouiPj0p98xDEHE36+' +
       'W9Aa6pgkiPsvl71kWiPgY/mWzpn/7fduGAQzfm07o4zvtNgwgPoZ/' +
       '9Xf08WEAp4/hb2czlubH8HH3UL+344HFgLh7wdNjQFWJnTwPrXs/n' +
       '+mlQ8IDffG+GtDLcWID7+qpRAKkj0+fnVv9aYBJXeJVF/9OULk86s' +
       'B4OED3chmAtOs4XOqteg21j7+Pcf7iFRAWzmewGyjnMz/tr5QU8Pu' +
       '+BzD4gKk=');
end;


procedure SetupRS;

begin
 if(not(LoggedIn))then LoginPlayer;
 begin
   SetRun(True);
   Wait(1000 + random(100));
   GameTab(4);
   Wait(750 + random(200));
   SetChat('on', 1);
   Wait(2000 + random(200));
   SetChat('off', 2);
   MakeCompass('E');
 end;
end;

procedure OpeningBank;
begin
  if(not(FindSymbol(x, y, 'bank')))then
  begin
    Writeln('You are not in a bank... please go to varrock west bank');
    Exit;
    if(FindSymbol(x, y, 'bank'))then
    begin
      OpenBankQuiet('vwb');
      if(BankScreen)then
      begin
        FixBank;//scrolls to the top
        Wait(2000 + random(345));
        Withdraw(1, 1, 27);
        Wait(2000 + random(346));
        CloseBank;
      end else
      if(not(BankScreen))then
      begin
        repeat
          OpenBankQuiet('vwb');
        until(BankScreen);
        FixBank;//scrolls to the top
        Wait(2000 + random(345));
        Withdraw(1, 1, 27);
        Wait(2000 + random(346));
        CloseBank;
       end;
     end;
   end;
end;
      

procedure Fletching;
var
  x,y: Integer;
begin
  Gametab(4);//opens inv
  DeclareBitmaps;
  if(FindBitmap(Knife, x, y))then
  begin
    Mouse(580, 229, 2, 2, true);//uses the knife (First item in inv should be knife)
    Mouse(617, 225, 1, 1, true);
    Wait(3000 + random(200));
    Mouse(263, 408,1, 1, false);
    Mouse(276, 476,1, 1, true); //or ChooseOption('X logs')Mouse(276,476,1,1,true)
    Wait(2000 + random(200));
    TypeSend('27');
    Writeln('We are cutting the logs');
    Wait((WaitTime * 1000) + random(1345));
  end else
  if(not(FindBitmap(Knife, x, y)))then
  OpenBankQuiet('vwb');
  if(BankScreen)then
  begin
    FixBank;
    Deposit(1,1,1);
    Wait(2000+random(304));
    FindBitmap(Knife, x, y);
    Mouse(x, y, 1, 1, true);
    WithDraw(1, 1, 1);
    CloseBank;
    FreeBitmap(Knife);
    Mouse(580, 229, 2, 2, true);//uses the knife (First item in inv should be knife)
    Mouse(617, 225, 1, 1, true);
    Wait(3000 + random(200));
    Mouse(263, 408, 1, 1, false);
    Mouse(276, 476, 1, 1, true); //or ChooseOption('X logs')Mouse(276,476,1,1,true)
    Wait(2000 + random(200));
    TypeSend('27');
    Writeln('We are cutting the logs');
    Wait((WaitTime *1000) + random(1345));
  end;
end;

  
procedure Depositing;
begin
  OpenBankQuiet('vwb');
  Writeln('Opening Bank to deposit cut longbows....');
  if(BankScreen)then
  begin
    FixBank;//scrolls to the top
    Mouse(617, 227, 1, 1, false);
    Wait(2000 + random(200));
    Mouse(619, 293, 1, 1, true);
    Withdraw(1, 1, 27);
    CloseBank;
    Writeln('Thats one load =).....');
  end else
  if(not(BankScreen))then
  begin
    repeat
      OpenBankQuiet('vwb');
    until(BankScreen);
  end;
end;

procedure AntiBan;
begin
  if(UseAntiBan = True)then
  case random(110) of
    1: TypeSend('sup?');
    2: TypeSend('Wat was that?');
    3: TypeSend('Hah');
    4: RandomRClick;
    5: BoredHuman;
    6: HoverSkill('Mining', False);
    7: HoverSkill('Woodcutting', False);
    8: HoverSkill('Fletching',False);
    9: AlmostLogout;
    10: PickUpMouse;
    11: TypeSend('HAHA tight!');
  end;
end;

procedure MySignature;
begin
  ClearDebug;
  Writeln('FREAKYMONKEYS AUTO WILLOW FLETCHER');
  Writeln('Special Thanks To WHOCARES357 and the staff of http://poopnsuch.com.');
  Writeln('They are truly amazing =)');
  Wait(5000 + random(300));
  Writeln('Enjoy!!');
  Wait(2000 + random(200));
  ClearDebug;
end;
   

begin
  MySignature;
  SetupSRL;
  ActivateClient;
  SetupRS;
  OpeningBank;
  repeat
    Fletching;
    Wait(100 + Random(100));
    Depositing;
    FreeBitmap(Willow);
    Wait(100 + Random(50));
    FreeBitmap(Knife);
  until(IsFKeyDown(1));
  if(IsFKeyDown(1))then
  begin
    Writeln('Thanks for usin =)');
    TerminateScript;
  end;
end.

not too bad for a first script

hope to see more like this in the future

ok im using DTMs instead of Bitmaps for now , but still SCAR thinks that it 'finds' the dtm but i hasnt…wat have i done wrong here?

Have you tried something like this?

procedure FindIt;
begin
  if DTMRotated(DTMname, x, y, mix1, miy1, mix2, miy2) then
  begin
    Wait(50 + Random(50));
    Mouse(x, y, 3, 3, true);
    Wait(50 + Random(50));
    FreeDTM(DTMname);
  end;
end;

That looks for the DTM in the inventory.
And make sure with your DTM you use 5-15 tolerance.

wat do u mean like the tolerance i chose for the first point when making the DTM? because i put that tolerance for like 250 or so =0

Use 5-15 tolerance for a normal DTM for the main point. For a universal DTM use 255 Tolerance. The main change there was the DTMRotated and so on. Just try it.

Nice first script ;). But you should also add some messages to answer questions eh

Nice first script ;). But you should also add some messages to answer questions eh

Nice first script ;). But you should also add some messages to answer questions eh

From: Iron man ftw
Have you tried something like this?

procedure FindIt;
begin
  if DTMRotated(DTMname, x, y, mix1, miy1, mix2, miy2) then
  begin
    Wait(50 + Random(50));
    Mouse(x, y, 3, 3, true);
    Wait(50 + Random(50));
    FreeDTM(DTMname);
  end;
end;

That looks for the DTM in the inventory.
And make sure with your DTM you use 5-15 tolerance.

well..the dtm won't be rotated..and it shouldn't need tolerance either…i would just pick a random MP and use the black outline for your DTM

nice first script!

wait, if it's auto long bow fletcher why is it need a knife?

i have an error lol like it deposits the knife on the bank and then does stupid stuff

Mate, this forum is designed for people to review peoples first script, not for leechers to get around the week waiting. I bet you can't make anything up to this standard.

And this is fairly old, look at the dates, please don't gravedig.

wtf im just saying that i cant get it to work i dont wanna be a geek i just wanna cheat u have prob with that, IN FIRST PLACE THATS WHAT THIS SITEs ARE FOR ARENT THEY NOOBASS

freakymonkey how can i get it to work plz???

From: pureskull123
wtf im just saying that i cant get it to work i dont wanna be a geek i just wanna cheat u have prob with that, IN FIRST PLACE THATS WHAT THIS SITEs ARE FOR ARENT THEY NOOBASS

Slow down on the crack, kid, please. :rolleyes: Calm down..

great job, looks good.

From: pureskull123
wtf im just saying that i cant get it to work i dont wanna be a geek i just wanna cheat u have prob with that, IN FIRST PLACE THATS WHAT THIS SITEs ARE FOR ARENT THEY NOOBASS

freakymonkey how can i get it to work plz???

My turn to have lots of fun with caps on :stirthepot:

YOU HAVE TO WAIT A WEEK AND POST 10 USEFUL POSTS TO GET USE OF PROPER WORKING SCRIPTS! THE IDEA OF THIS IS TO STOP PEOPLE COMING TO SRL, GETTING ALL THE SCRIPTS AND JUST LEAVING! SRL WANTS SCRIPTERS, NOT LEECHERS!!!

Right now thats out of my system, do you understand what I'm saying?

Some people…

erm its not working for me it sayd gametab error:(

Nice nice :p

Why i got banned with my other account, for spamming :D? Tried download one file and my computer downloaded it twice and that was reason i got banned :(