SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
sorry i dont learn thes but maybe i learn leater

Other Communitys
im new in scripting and thes is my first community

How Long have You Played Runescape
5 years so far

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

hi,im now back and im a real scripter i was noob copy and past but now i make my own scripts you will see that on my script its useing (srl) and its very cool you will like it and i think you will use it alot in your fletching
i just learned the scripting in like the last 2 weeks its easy to learn it and soon you all will know me and i will be the best scripter hehe in my dreams i will make all my scripts for your site only and i think if you give me a chance i will give you the best scripts that i can make so please if you want say yes and if u not that not matter because i know other sites or may be i will not go on other sites may be i will script for my self
so as i say if you want me say yes and i think most of you will say no because i have a little posts that is my proplem i dont like posting very much but if i have a script that i make it i will post it i just post when there is bugs in my scripts or maybe i wanna talk about some thing i need a help on or maybe some one will need it from me but thes site is really cool you can learn scripting easy here and i think i will make a tut guid that will help new scripters and i forget tellin you all i think i will make guild miner but im not sure because its hard to work on it so maybe i will need some helps i think thes what i need to talk about now
and i will hopefuly to know what would you will say and if you wnt me or know because i dont care i will leave you with the script now .
sorry for my bad english as all my bad spelling.
best wishes and say yes lol.

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

  ///////////////////dark evil bows strainger//////////////////////\
 ////////////////////////you must do thes//////////////////////////\\
/////////////////////////its not for sell//////////////////////////\\\
 //////// 1- set up on line 32-35.                          /////////
 //////// 2- chouce how many bows you need to do in line 19./////////
 //////// 3- but the screen resolutin to 1024,768.          /////////
 //////// 4- but the bows (u) on the sec slot on the bank.  /////////
 //////// 5- but the bs on the first slot on the bank.      /////////
 ////////////////////////////////////////////////////////////////////
 ////its work best what it can in varrock east bank or west bank////
//////////////////////////now auto!!!////////////////////////////////


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

////////////////////////////////////////////
const
RunAwayDir = 'n';
bowstodo = 2000; //how many bows you need to done {beta} example if you
                 //have 1000 bows and bs then but in {bowstodo}
                 //1017 so that mean 17 more but as i say its {beta}
Player0 = 0;



Procedure DeclarePlayers;
begin
HowManyPlayers  := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
            {///////////////////set up your player//////////////////////}
                 Players[0].Name   := 'user name';// your user name
                 Players[0].Pass   := 'password';//your password
                 Players[0].Nick   := 'nick name';// your nick name
                 Players[0].Active := True;

end;

var xwhite : Integer;
    xyellow : Integer;
    allwhite : Integer;
    allyellow : Integer;
    bowstrainged : integer;
////////////////////////////dont touch please/////////////////////////////
procedure loadingbitmap;
begin

xwhite := BitmapFromString(9, 8, 'z78DA333040003724604084382' +
       'E35C4A8A74417F1AEA2BF0BC90B43E275010051AB6079');

xyellow := BitmapFromString(8, 7, 'z78DA333000013720809' +
       '1C8009738A62C7E95E4A927C60DF4710FF1E10300667947F1');



allwhite := BitmapFromString(17, 9, 'z78DA333040003724804BC' +
       '400AF7AF2C4A96B1AFD6DC10F46436CD41652C501022DD2CD');

allyellow := BitmapFromString(17, 9, 'z78DA3330400037208091' +
       'B8440CF0AA274F9CBAA6D1DF16FCE468888DDA42AA3800C8E7C5E' +
       '9');


end;
Procedure RunAway;
begin
  RunAwayDirection(RunAwayDir);
  Wait(12000+random(2000));
  RunBack;
end;


Procedure Randoms;
begin
  FindTalk;
      wait(10)
      FindNormalRandoms;
      if(FindFight)then
    RunAway;
end;

procedure Bank;
var
  x, y, fs, fs2 : Integer;
begin

   repeat
       randoms;
       Flag;
   if (FindObj(x, y, 'booth', 607324, 10)) then
       Mouse(x, y, 4, 4, False)
     else
   if (FindObj3(x, y, 'booth', 7243412, 10)) then
       Mouse(x, y, 4, 4, False)
     else
   if (FindObj3(x, y, 'booth', 6324369, 10)) then
       Mouse(x, y, 4, 4, False);
       Wait(250+random(20));
   if (ClickOption('quickly', 1)) then
   begin
      Flag;
   repeat
      Wait(100+random(20));
      fs := fs + 1;
   until (BankScreen) or (fs >= 50);
   end;
      fs2 := fs2 + 1;
   until (BankScreen) or (fs2 > 5);
end;



procedure takebowsandstrings;
   begin
     FixBank;
       wait(2000)
       mmouse(98,81,2,2);
       wait(500+random(100));
       clickmouse(98,81,false);
       wait(2000)
       findbitmap(xwhite,x,y);
       mmouse(x,y,2,2);
       findbitmap(xyellow,x,y);
       wait(500+random(100));
       clickmouse(x,y,true);
       wait(500)
       wait(1500)
       sendkeys('14');
       wait(500+random(100));
       KeyDown(13);
       wait(500+random(100));
       mmouse(143,74,2,2);
       wait(500+random(100));
       clickmouse(140,75,false);
       wait(2000)
       findbitmap(allwhite,x,y);
       mmouse(x,y,2,2);
       findbitmap(allyellow,x,y);
       wait(500+random(100));
       clickmouse(x,y,true);
       wait(500+random(100));
       movemousesmooth(486,41);
       wait(1000+random(100));
       clickmouse(486,41,true);
       bowstrainged := bowstrainged+14;
    end;
procedure setinvinpos;
   begin
       wait(100+random(150));
       mmouse(587, 228, 2, 2);
       wait(113);
       holdmouse(587,228,true);
       wait(312);
       mmouse(675,446,2,2);
       wait(500+random(131));
       releasemouse(675,446,true);
    end;
procedure makefullbows;
    begin
       wait(100+RANDOM(30));
       mmouse(672,445,2,2);
       wait(100+random(100));
       Clickmouse(672,445,true);
       wait(100+RANDOM(100));
       mmouse(702,441,2,2);
       wait(100+random(10));
       clickmouse(702,441,true);
       wait(100+random(20));
    end;
procedure selectinglogbow;
   begin
       mmouse(254,401,2,2);
       wait(1000+random(100));
       Clickmouse(254,401,false);
       wait(500+random(100));
       findbitmap(xwhite,x,y);
       mmouse(x,y,2,2);
       wait(1000+random(100));
       findbitmap(xyellow,x,y);
       wait(500+random(100));
       Clickmouse(x,y,true);
       wait(2000+random(100));
       wait(100)
       sendkeys('27');
       wait(500+random(100));
       KeyDown(13);
    end;

procedure deposititall;
  begin
      wait(1500+random(100));
      mmouse(626,229,2,2);
      wait(1500+random(100));
      clickmouse(626,229,false);
      wait(1000+random(100));
      findbitmap(allwhite,x,y);
      mmouse(x,y,2,2);
      wait(1500+random(100));
      findbitmap(allyellow,x,y);
      wait(500+random(100));
      mmouse(x,y,2,2);
      wait(1500+random(100));
      clickmouse(x,y,true);
      wait(1500+random(100));
      mmouse(485,40,1,1);
      wait(1500+random(100));
      clickmouse(485,40,true);
      wait(200+random(20));
   end;
    procedure Report;
begin
ClearDebug;
  SRLRandomsReport;
  WriteLn('////////////////////////////////////////////')
  WriteLn('   dark evil bow strainger     ')
  WriteLn('                                            ')
  WriteLn('  Running Time: ' + (TimeRunning) + '')
  WriteLn('  bow straiged: ' + IntToStr (bowstrainged) +  '')
  WriteLn('  Approx. XP Gained: ' + IntToStr (bowstrainged*75) +  '')
  WriteLn('////////////////////////////////////////////  ')
end;

begin
  setupSRL;
    loadingbitmap;
      declareplayers;
       CurrentPlayer:= Player0;
        activateclient;
          loginplayer;
repeat
                   Bank;
             takebowsandstrings;
        setinvinpos;
    wait(500)
  makefullbows;
  makefullbows;
  makefullbows;
  makefullbows;
  makefullbows;
  makefullbows;
  makefullbows;
  makefullbows;
  makefullbows;
  makefullbows;
  makefullbows;
  makefullbows;
  makefullbows;
  makefullbows;
  makefullbows;
    wait(1500+random(20));
     Bank;
           wait(1000+random(20)) ;
              deposititall;
                    wait(1000+random(20));
                      report;
                        until (bowstrainged >= bowstodo);
                     if (bowstrainged >= bowstodo) then
                  begin
             Logout;
     TerminateScript;
  end;
end.

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

      wait(1500+random(100));
      mmouse(626,229,2,2);
      wait(1500+random(100));
      clickmouse(626,229,false);
      wait(1000+random(100));
      findbitmap(allwhite,x,y);
      mmouse(x,y,2,2);
      wait(1500+random(100));
      findbitmap(allyellow,x,y);
      wait(500+random(100));
      mmouse(x,y,2,2);
      wait(1500+random(100));
      clickmouse(x,y,true);
      wait(1500+random(100));
      mmouse(485,40,1,1);
      wait(1500+random(100));
      clickmouse(485,40,true);
      wait(200+random(20));
   end;

Thats full of clickmouses and coordclicking, and it will get you banned, and there's more coordclicking.
Sorry, but a no for me.

Too simple
No multiplayer
IT mostly clicks cords and clickmouse is detectable.
You see.

clickmouse(626,229,false);

Only clicks at EXACTLY 626,229 every time.
Making it VERY detectable.
Try using colors/DTMs/Bitmaps and read up more on multiplyer.
No from me

sorry, but a no from me… just way too simple.

Try and add in some extra stuff, and definitely USE RANDOMNESS!!!

ClickMouse is totally un-needed.

ditto wat they said and just a hint. You don't need to make ur standards in ur main loop totally retarded :D

hi, at least give me a chance to be srl mem so that i like something to do that make me happy

Well,, at least I am happy you didn't copied this script, like many others do :eek:
Though, it is a No for me .. People allready told you why..

Good luck with learning scar! ;)

Study more srl. I agree with others

From: dark evil
hi, at least give me a chance to be srl mem so that i like something to do that make me happy

we have given u a chance…….actually we've given u unlimited chances as long as u don't get urself banned. We can't just accept u cos u want it….keep trying