Results 1 to 14 of 14

Thread: My first Script, SimpleStinger

  1. #1
    Join Date
    Nov 2007
    Location
    Winland
    Posts
    12
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default My first Script, SimpleStinger

    This is my first script. It's quite basic stringer, it doesn't (atleast not yet) have antirandoms but it moves mouse and rightclicks randomely while stringing.

    SCAR Code:
    //This is my first script so it's quite basic but it works! -Simsaladin
    //HOW TO USE: Have the bows(u) and the bowstrings in two first slots in your bank and Set Up line 16

    program SimpleStringer;
    {.include srl/srl/misc/Smart.scar}
    {.include SRL/SRL.scar}

    var
    x, y, BowCount, Loads:integer;

    const
    Swordcolor = 10264383; //Used to check is bow combined with string
    LoadsToDo = 50; //Declare how many loads you want to do

    procedure bank;//Banks all in inv and takes 14 bows and bowstrings
    begin
    Writeln('banking...')
     OpenBankQuiet('veb');//change the bank you are in://'feb' (Falador East Bank)
     wait(700+random(200));                            //'fwb' (Falador West Bank)
      DepositAll;                                      //'veb' (Varrock East Bank)
      Withdraw(1,1,14);                                //'vwb' (Varrock West Bank)
      Withdraw(2,1,14);                                //'db'  (Draynor Bank)
     CloseBank;                                        //'eb'  (Edgeville Bank)
    Writeln('Banking done');                           //'akb' (Al-Kharid Bank)
    end;

    procedure stringbow;//strings the bows
    begin
     repeat
      Mouse(576, 229, 5, 5, true);
        wait(700+random(200));
      Mouse(705, 445, 5, 5, true);
        wait(700+random(200));
     until(findColorTolerance(x,y,Swordcolor,33, 370,39, 376 ,7));
      wait(700+random(200));
       Mouse(258, 421, 5, 5, false);
         wait(600+random(150));
         ChooseOption('All');
         writeln('Stringing...');
     SleepAndMoveMouse(6000+random(400));
     RandomRClick;
     SleepAndMoveMouse(11000+random(400));
    Writeln('Stringing done');
    Loads:= (Loads + 1);
    BowCount:= (BowCount + 14);
    end;

    procedure ProgressReport;//Progress Report
    begin
     ClearDebug;
      Writeln('/\/\/\/\/\ProgressReport/\/\/\/\/\/\/\/\');
      Writeln('/\                                    /\');
      Writeln('/\  Time Running | ' + TimeRunning);
      Writeln('/\  Loads done   | ' + IntToStr(Loads));
      Writeln('/\  Bows Strung  | ' + IntToStr(BowCount));
      Writeln('/\  Exp earned   | ' + IntToStr(BowCount * 75));
      Writeln('/\                                    /\');
      Writeln('/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\')
    end;

    begin//Mainloop
    SetupSRL;
      Smartsetupex(138, true, true, false);
      Settargetdc(smartgetdc);
      repeat
        wait(100);
      until(SmartGetColor(253, 233)<>1118604);
     repeat
      bank;
      stringbow;
      ProgressReport;
     until(Loads = LoadsToDo);
    end.

  2. #2
    Join Date
    Dec 2008
    Posts
    2,813
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    oh noes! use Mouse instead of MoveMouseSmoothEx and ClickMouse.. those are bannable..

  3. #3
    Join Date
    Sep 2007
    Posts
    638
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    begin//Mainloop
    SetupSRL;
     repeat
      ClearDebug;
      bank;
      stringbow;
     BowCount:= (BowCount + 14);
     Writeln('Stringed ' + IntToStr(BowCount) + ' bows')
     until(false);
    end.

    That will/should make it display the total number of bows that have been strung.

    ClearDebug will clear the text area so that it doesn't get to cluttered with 'stringing...' and 'stringing done'

    Try making a cool progress report. There are a few tutorials on doing that.

    Like 99_ said, use Mouse instead of ClickMouse or MoveMouse. They will get you banned.

    Mouse(x,y,XRandom,YRandom,RClick);

    Also like you said, antiban and randoms. Search for a tutorial on cases for the antiban.

    ...By the way, congratulations on your first script.

  4. #4
    Join Date
    Nov 2007
    Location
    Winland
    Posts
    12
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Okay, I added proggy, changed MoveMouseSmoothEx->Mouse and other little things plus made Smart compatible.

    I still need to add some antibans and randoms but it's 0:30 am here in finland and school tomorrow so it's bedtime now.

    I've also been kind of busy last few days so i haven't had time for scripting or browsing forums

  5. #5
    Join Date
    Feb 2009
    Posts
    11
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Do you have to be a member to use this script?

  6. #6
    Join Date
    Sep 2007
    Posts
    638
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Well because fletching is a members only skill...you would have to have a members account for it to work correctly.

    You can try to run it on a free account if you want, but it won't do anything but get you banned.

    SCAR Code:
    until(Loads = LoadsToDo);

    should be

    SCAR Code:
    until((Loads + 1) > LoadsToDo);

    This saves you if SCAR some how glitches and doesn't check the until or if it adds more than one. I don't know if this is still a problem but with the older versions of SCAR you had to be careful about it.

    Next I would look into DeclarePlayers procedure. This allows you to have multiple accounts or login accounts that get logged out for any reason. It also allows you to do antirandoms.

    P.S. Anti randoms are broken right now... so you may have to wait a while.

  7. #7
    Join Date
    Dec 2008
    Posts
    16
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i might try it it looks good

  8. #8
    Join Date
    Dec 2008
    Posts
    2,813
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    you don't need Loads + 1.. use until(Loads >= LoadsToDo); or until(Loads >= (RandomRange(LoadsToDo-5, LoadsToDo+5))); for more randomness

  9. #9
    Join Date
    Nov 2007
    Location
    Winland
    Posts
    12
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    How is DeclarePlayers procedure related to Antirandoms?

    I'm working on DTMs right now (just learned them) and adding more randomness. Also looking for those cases...

  10. #10
    Join Date
    Dec 2008
    Posts
    2,813
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    DeclarePlayers is related to antirandoms because of nicknames..

  11. #11
    Join Date
    Mar 2009
    Posts
    11
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    wow man congrats on your first script im still working on mine hope to have it done this week
    We search far and vast plains in search of hell, when in turn it is in each and everyone of us!
    "as a matter of biology if something bites you its probably female"

  12. #12
    Join Date
    Nov 2007
    Location
    Winland
    Posts
    12
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Okay, I think i get it, with nick SRL antirandoms can search for talking randoms(correct if im wrong).

    Btw, does anyone know when antirandoms get updated? I guess they are quite broken right now..?

    Thanks Scettidunn. I have tried to understand scripts and scar for about an year now, but until now I have begun to understand them

  13. #13
    Join Date
    Dec 2008
    Posts
    2,813
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    You're right

    but yes.. randoms are down atm and the biggest problem is GETTING the randoms to do the solvers :\

  14. #14
    Join Date
    Nov 2007
    Location
    Winland
    Posts
    12
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    yeah, I alched 2k yew longs in one run with very basic alching script and i didn't get a single random... so, on the other hand randoms update is good because you get less randoms

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •