Results 1 to 14 of 14

Thread: AntiBan and AntiRandom Help?

  1. #1
    Join Date
    Oct 2008
    Location
    USA all da way
    Posts
    27
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    AntiBan and AntiRandom Help?

    I have a script that I made and am looking to add AntiBan or AntiRandom. I don't know howto add them so I was wondering if someone could add them for me or help me out because... I'm stuck....




    SCAR Code:
    program  1337-Power;
    {.include SRL\SRL.scar}

    var
      x,y : integer;
      Loads : integer;

    const
      Treecolor=7579023;

    procedure chop;
    begin
      If (Not(LoggedIN)) then Exit;
      repeat
        if(FindColorTolerance(x, y,Treecolor, MSX1, MSY1, MSX2, MSY2, 10))then
        begin
          Mouse(x,y,0,0,false);
          if(chooseOption('hop'))then
          wait(11000+random(9000))
        end;
      until(InvFull);
    end;

    Procedure drop;
    begin
      if(InvFull)then
      begin
        DropAll;
        Loads:=Loads+1;
      end;
    end;

    begin
      SetupSRL;
      repeat
        chop;
        drop;
      until(false)
    end.

  2. #2
    Join Date
    Sep 2008
    Location
    Aussie mate
    Posts
    411
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by 1337N3SS View Post



    SCAR Code:
    program  1337-Power;
    {.include SRL\SRL.scar}

    var
      x,y : integer;
      Loads : integer;

    const
      Treecolor=7579023;

    procedure chop;
    begin
      If (Not(LoggedIN)) then Exit;
      repeat
        if(FindColorTolerance(x, y,Treecolor, MSX1, MSY1, MSX2, MSY2, 10))then
        begin
          Mouse(x,y,0,0,false);
          if(chooseOption('hop'))then
          wait(11000+random(9000))
        end;
      until(InvFull);
    end;

    Procedure drop;
    begin
      if(InvFull)then
      begin
        DropAll;
        Loads:=Loads+1;
      end;
    end;

    begin
      SetupSRL;
      repeat
        chop;
        drop;
      until(false)
    end.
    SCAR Code:
    program  1337-Power;
    that wont run by itself...thats error 1

    umm its to short. very bannable...i added in setup players+ declare players + antirandoms+ antiban...keep reading tutorials or add me on msn joelster134@hotmail.com or PM me for more help if you need it

    heres wat i put in

    SCAR Code:
    program  Power;
    {.include SRL\SRL.scar}




    var
      x,y : integer;
      Loads : integer;

    const
      Treecolor=7579023;
     
    procedure declareplayers;
    begin
      howmanyplayers:=1;  // NO TOUCHY!
      numberofplayers(howmanyplayers);
      players[0].name:='username';
      players[0].pass:='pass';
      players[0].nick:='3- for letter of your name';
      players[0].active:=true;

      Mousespeed:= 20;

    end;

    procedure PreparePlayer;
    begin
      if not LoggedIn then LoginPlayer;
      SetRun(True);
    end;

    {~~~~~~~~~~~~~~~~~~~~~~]
    [Made by Joelster134   ]
    [used in cammy telle   ]
    [                      ]
    [~~~~~~~~~~~~~~~~~~~~~~}

    procedure randoms;
    begin
      findnormalrandoms;
      if findfight=true then
      begin
        runaway('E',true,1,5000+random(1000));
      end;
    end;

    //End of Anti-Randoms

    procedure AntiBan;
    begin
      if not LoggedIn then Exit;
      case (Random(30)) of
        11:  RandomMovement;
        15: BoredHuman;
        24:  PickUpMouse;
        27: begin
             Gametab(1 + Random(12));
             Wait(3220 + Random(2415));
             Gametab(4);
            end;
        30: SleepAndMoveMouse(3600);
      end;
    end;


    procedure chop;
    begin
      If (Not(LoggedIN)) then Exit;
      repeat
        if(FindColorTolerance(x, y,Treecolor, MSX1, MSY1, MSX2, MSY2, 10))then
        begin
          Mouse(x,y,0,0,false);
          if(chooseOption('hop'))then
          Randoms;
          wait(11000+random(9000))
         
        end;
      until(InvFull);
    end;

    Procedure drop;
    begin
      if(InvFull)then
      begin
        DropAll;
        Loads:=Loads+1;
        Randoms;
        AntiBan;
      end;
    end;

    begin
      SetupSRL;
      repeat
        chop;
        drop;
        randoms;
        AntiBan;
      until(false)
    end.
    IM BACK!!!!!!!!!!!!!!!!!

  3. #3
    Join Date
    Oct 2008
    Location
    USA all da way
    Posts
    27
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    so that bottom one is the new working script?

  4. #4
    Join Date
    Oct 2008
    Location
    USA all da way
    Posts
    27
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    OK yeah I figured it out.. .I'm going to test it.. If this works I should have like 60 wc by morning.... thanks man!!!!!

  5. #5
    Join Date
    Sep 2008
    Location
    Aussie mate
    Posts
    411
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Np btw try ot to double post and dont forget to read how to auto...it will minimise ur banning
    IM BACK!!!!!!!!!!!!!!!!!

  6. #6
    Join Date
    Oct 2008
    Location
    USA all da way
    Posts
    27
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    dont work... when i start it it chops one willlow then another tab with all the anti ban opens... help?

  7. #7
    Join Date
    Sep 2008
    Location
    Aussie mate
    Posts
    411
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Go to Zephyrys in public test centre...that should solve it..
    IM BACK!!!!!!!!!!!!!!!!!

  8. #8
    Join Date
    Oct 2008
    Location
    USA all da way
    Posts
    27
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ANd Joelster, im just gonna ask u for help again... I got like 40 something wcing, do you think you can make my script bank the willows at like draynor?
    Thanks!!

  9. #9
    Join Date
    Sep 2008
    Location
    Aussie mate
    Posts
    411
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Become a SRL junior mem and look at mine and add me on msn ill gladly help you make it do that im goin now ill be back 1 hour or so
    IM BACK!!!!!!!!!!!!!!!!!

  10. #10
    Join Date
    Oct 2008
    Location
    USA all da way
    Posts
    27
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i got like 4 days till junior

  11. #11
    Join Date
    Sep 2008
    Location
    Aussie mate
    Posts
    411
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Add me on msn then ill gladly help
    IM BACK!!!!!!!!!!!!!!!!!

  12. #12
    Join Date
    Oct 2008
    Location
    USA all da way
    Posts
    27
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I added you on MSN.. Accept the Invite from Rowdy.

  13. #13
    Join Date
    Sep 2008
    Location
    Aussie mate
    Posts
    411
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Sweet + accepted
    IM BACK!!!!!!!!!!!!!!!!!

  14. #14
    Join Date
    Jan 2008
    Location
    Ontario, Canada
    Posts
    7,805
    Mentioned
    5 Post(s)
    Quoted
    3 Post(s)

    Default

    You should write things like banking.

    If you are having troubles, then open the srl files and read through some of the functions. Just try and figure out how to use them!
    Writing an SRL Member Application | [Updated] Pascal Scripting Statements
    My GitHub

    Progress Report:
    13:46 <@BenLand100> <SourceCode> @BenLand100: what you have just said shows you 
                        have serious physchological problems
    13:46 <@BenLand100> HE GETS IT!
    13:46 <@BenLand100> HE FINALLY GETS IT!!!!1

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. AntiRandom Question
    By spamthis in forum OSR Help
    Replies: 7
    Last Post: 09-12-2008, 07:06 AM
  2. Antiban and Antirandom stuff?
    By Mod Mopar in forum OSR Help
    Replies: 3
    Last Post: 11-26-2006, 01:25 AM

Posting Permissions

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