Results 1 to 2 of 2

Thread: Anti-Randoms not working

  1. #1
    Join Date
    Feb 2007
    Posts
    849
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Anti-Randoms not working

    SCAR Code:
    program TeaStealer;
    {.include SRL/SRL.scar}

    const
    AmountToSteal = 1000;  // Amount of tea to steal
                          // 16 exp per tea


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

      Players[0].Name := ''; //your runescape account
      Players[0].Pass := ''; // your runescape password of your account
      Players[0].Nick := ''; // 2-4 letters to use for antirandoms
      Players[0].Active := True; // use this character?
     
    end;


    var
    x,y,i,Steals,EXPGained,Antibans,RandomCount,LoggedOut : integer;



    Procedure Drop;
    Begin

        case Random(4) of
        0:
          begin
            for i := 1 to 27 do
             DropItem(i);
          end;
             1: begin
             wait(Random(300));
             end;

             2: begin
             wait(Random(300));
             end;
             3: begin
             wait(Random(300));
             end;
             
             end;
    End;

    procedure Proggy;
    Begin
                EXPGained:= Steals * 16;
                ClearDebug;
                Writeln('/////////////////////////////////////////////');
                Writeln('You Stole  ' + IntToStr(Steals) +'/'+ IntToStr(AmountToSteal) + '  Times');
                Writeln('You gained '+ IntToStr(EXPGained) +' Exp' );
                Writeln('You Did '+ IntToStr(Antibans) +' Antibans' );
                Writeln('You Ran away from '+ IntToStr(RandomCount) + ' Randoms' );
                Writeln('You Logged Out ' + IntToStr(LoggedOut) + ' Times');
                Writeln('//////////////////////////////////////////////');
    End;

    procedure Antiban;
    begin
      if not LoggedIn then loginplayer;
      case Random(30) of
        0:
          begin
            HoverSkill('Thieving', False);
            Antibans:=Antibans+1;
            Proggy;
          end;
        1:
          begin
            Logout;
            wait(1000+Random(200));
            loginplayer;
             wait(100);
            Antibans:=Antibans+1;
            Proggy;
          end;
        2:
          begin
            GameTab(1 + Random(12));
            wait(800 + random(500));
            GameTab(4);
            Antibans:=Antibans+1;
            LoggedOut:=LoggedOut+1;
            Proggy;
          end;
        3:
          begin
            BoredHuman;
            Antibans:=Antibans+1;
            Proggy;
          end;
      end;

    end;

    Procedure StrayDog;
    Begin
    if FindColorSpiralTolerance(x, y, 7767471, msx1, msy1, msx2, msy2, 10) then
    Begin
    wait(300+Random(200));
    Mouse(x, y, 3, 3, false);
    wait(100+Random(200));
    ChooseOption('way');
    ChooseOption('hoo');
    wait(500+Random(3000));

    Proggy;
    End;



    End;


    procedure randoms;
    begin
      FindTalk;
      FindNormalRandoms;
      StrayDog;
      if (FindFight = true) then
      begin
        runaway('N',true,1,5000+random(1000));
        RandomCount:= RandomCount+1;
        Proggy;
        Logout;
        Proggy;
        wait(500+Random(5000));
        loginplayer;
        runaway('S',true,1,5000+random(1000));
        wait(5000+Random(2451));
      end;
      Proggy;
    end;




    Procedure FinnishScript;
    Begin
    ClearDebug;
    Proggy;
    End;

    Procedure lost;
    Begin
     begin
       if (FindSymbol(x, y, 'water source')) then
       wait(500+random(1000));
       Mouse(x+10+Random(10), y-15, 3, 3, true);
       wait(5000+Random(3000));
        end;


     { begin
       if (FindSymbol(x, y, 'dummy')) then
       wait(500+random(1000));
       runaway('S',true,1,5000+random(1000));
       wait(5000+Random(3000));
      end;}

    End;

    Procedure ClickStall;
    Begin
             repeat
                   if not FindObjCustom(x, y,  ['teal','eal','al'],  [8953516,9678010,8821930], 10) then
                   begin
                   lost;
                   wait(1000+Random(500));
                   end;
                FindObjCustom(x, y,  ['teal','eal','al'],  [8953516,9678010,8821930], 10);
                wait(800+Random(234));
                MMouse(x, y, 12, 13);
                wait(200+Random(234));
                Drop;
                Antiban;
                randoms;
                wait(800+Random(234));
                if IsUpText('teal') then
                begin
                Mouse(x,y,5,5,true);
                Steals:= Steals + 1;
                Proggy;
                Wait(1000+random(750));
              end;
            until(Steals=AmountToSteal)
    end;



    Procedure Setup;
    Begin
      makecompass('n');
      keydown(VK_UP);
      wait(500+random(150)+random(150));
      keyup(VK_UP);
      wait(random(500));
      keydown(VK_RIGHT);
      wait(100+random(100));
      keyup(VK_RIGHT);
      wait(600+random(100));
      lost;
    End;



    Begin
    SetupSRL;
    ActivateClient;
    ClearDebug;
    DeclarePlayers;
    Setup;
    repeat
    if not LoggedIn then loginplayer;
    wait(2000+Random(1000));
    ClickStall;
    Antiban;
    until(Steals=AmountToSteal)
    FinnishScript;
    End.

    That's my script and the antirandoms dont work, any suggestions?
    ________________________________________
    14:19 < cycrosism> I wonder what she would have done without it
    14:19 < cycrosism> without me*
    Cycrosism is now an it.
    Quote Originally Posted by Dervish View Post
    /Facedesk.

  2. #2
    Join Date
    Jul 2007
    Location
    's-Gravenpolder, Holland
    Posts
    204
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Try turning
    SCAR Code:
    if not LoggedIn then loginplayer;

    Into
    SCAR Code:
    LoginPlayer;

    That's what did it for me

    Goodluck!

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Anti-Randoms not working
    By HarryJames in forum OSR Help
    Replies: 5
    Last Post: 11-16-2008, 02:28 PM
  2. Karajama auto nat runner with anti bans/ anti randoms
    By mike_2922 in forum RS3 Outdated / Broken Scripts
    Replies: 1
    Last Post: 08-16-2007, 02:40 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
  •