Results 1 to 5 of 5

Thread: Need Help making my Anti Ban not work all the time!

  1. #1
    Join Date
    Sep 2007
    Posts
    50
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Need Help making my Anti Ban not work all the time!

    SCAR Code:
    {.Script Info:
    # ScriptName  = Test 1
    # Author      = Me
    # Description = Test
    # Version     = 1.0
    # Date        = 14th September
    # Comments    =
    /Script Info}

    program New;

    {*************************************************************************]
    [=========================================================================]
    [*************************************************************************}


    {.include SRL/SRL.scar}

    {*************************************************************************]
    [=========================================================================]
    [*************************************************************************}


    Var
      ChatName : String;
      AutoRespondCount, X, Y, CurrentTime : Integer;


    {*************************************************************************]
    [=========================================================================]
    [*************************************************************************}


    Const NumberOfUsers          = 5;              // Amount of Users 1 - 5
    Const StartPlayer            = 0;              // Account Number 0 - 4, no 5 because of 0

    Const Loads                  = 10;             // Amount of Loads to do before switching player
    Const TimePerPlayer          = 1;             // Time for One player

    Const MSSpeed                = 15;             // Speed of the Mouse, 30 Being Fast 1 Being Slow

    {*************************************************************************]
    [=========================================================================]
    [*************************************************************************}


    Const SRLStatsID             = '';             // Your SRL Stats ID.
    Const SRLStatsPass           = '';             // Your SRL Stats Pass.

    {*************************************************************************]
    [===Dont Have SRL Stats? Go to: [url]www.stats.srl-forums.com[/url] and Register!!===]
    [*************************************************************************}


    {*************************************************************************]
    [=========================================================================]
    [*************************************************************************}


    Const Version                = 1;              // Dont Edit This, for My Use Only

    {*************************************************************************]
    [=========================================================================]
    [*************************************************************************}


    Procedure DeclarePlayers;

    Begin
       HowManyPlayers:= NumberOfUsers;
       NumberOfPlayers( HowManyPlayers );
       CurrentPlayer := StartPlayer;

       Players[0].Name :='';        // Username
       Players[0].Pass :='';        // Password
       Players[0].Nick :='';        // 3 or 4 Letters from your Username
       Players[0].Loc :='Bank';     // Where Abouts, Leave This!
       Players[0].Active:=True;

       Players[1].Name :='';        // Username
       Players[1].Pass :='';        // Password
       Players[1].Nick :='';        // 3 or 4 Letters from your Username
       Players[1].Loc :='Bank';     // Where Abouts, Leave This!
       Players[1].Active:=True;

       Players[2].Name :='';        // Username
       Players[2].Pass :='';        // Password
       Players[2].Nick :='';        // 3 or 4 Letters from your Username
       Players[2].Loc :='Bank';     // Where Abouts, Leave This!
       Players[2].Active:=True;

       Players[3].Name :='';        // Username
       Players[3].Pass :='';        // Password
       Players[3].Nick :='';        // 3 or 4 Letters from your Username
       Players[3].Loc :='Bank';     // Where Abouts, Leave This!
       Players[3].Active:=True;

       Players[4].Name :='';        // Username
       Players[4].Pass :='';        // Password
       Players[4].Nick :='';        // 3 or 4 Letters from your Username
       Players[4].Loc :='Bank';     // Where Abouts, Leave This!
       Players[4].Active:=True;

    End;

    {*************************************************************************]
    [=========================================================================]
    [*************************************************************************}


    Function GetChatMessage(Text: String): Boolean;
    Var
    TX, TY: Integer;
    Chat: String;
    Begin
      If(IsTextInAreaEx(40, 415, 130, 415, TX, TY, ':', 0, SmallChars, False, True, 0, 0, 0))then
      Begin
        Chat:= Lowercase(Trim(GetTextAtEx(TX + 8, 415, 0, SmallChars, False, False, 0, 1, 16711680, 40, False, TR_AllChars)));
        If(Pos(Text, Chat) <> 0)then
        Begin
          Result:= True;
        end;
      end;
    end;

    {*************************************************************************]
    [=========================================================================]
    [*************************************************************************}


    Function GetChatName(Name: String): Boolean;
    Var
    I: Integer;
    Begin
      ChatName:= Lowercase(Trim(GetTextAtEx(21, 415, 0, SmallChars, False, False, 0, 0, 0, 50, False, TR_AllChars)));
      I:= Pos(':', ChatName);
      If(I <> 0)then
      Begin
        Delete(ChatName, I, I);
      end;
      If(Pos(Name, ChatName) <> 0)then
      Begin
        Result:= True;
      end;
    end;

    {*************************************************************************]
    [=========================================================================]
    [*************************************************************************}


    procedure AutoRespond;
    var
    Response, Level: String;
    TheReply: Integer;
    begin
      if(GetChatMessage(Players[CurrentPlayer].Name))then
      begin
        AutoRespondCount := AutoRespondCount + 1;
        TheReply := Random(3) + 1;
        case (TheReply) of
          0 : Response := ('ya?');
          1 : Response := ('what?');
          2 : Response := ('yeah');
        end;
        TypeSend(Response);
      end;

      if(GetChatMessage('lol'))
      or (GetChatMessage('ha'))
      or (GetChatMessage('haha'))
      or (GetChatMessage('rofl'))
      or (GetChatMessage('lmao'))
      or (GetChatMessage('lmfao'))then
      begin
        AutoRespondCount := AutoRespondCount + 1;
        TheReply := Random(9) + 1;
        case (TheReply) of
          0 : Response := ('lol');
          1 : Response := ('haha');
          2 : Response := ('rofl');
          3 : Response := ('lmao');
          4 : Response := ('lolz');
          5 : Response := ('roflz');
          6 : Response := ('hehe');
          7 : Response := ('ha');
          8 : Response := ('lols');
          9 : Response := ('rofls');
        end;
        TypeSend(Response);
      end;

       if(GetChatMessage('wc'))
       or (GetChatMessage('woodcutting'))
       or (GetChatMessage('wcing'))
       or (GetChatMessage('cutting'))
       and (GetChatMessage('lvl'))
       or (GetChatMessage('level'))
       or (GetChatMessage('lvls'))
       or (GetChatMessage('lvlz'))
       or (GetChatMessage('stats'))
       or (GetChatMessage('levels'))then
       begin
         AutoRespondCount := AutoRespondCount + 1;
         Level := IntToStr(GetSkillLevel('woodcutting'));
          Response:= ('My lvl is ' + Level);
        TypeSend(Response);
       end;

          if(GetChatMessage('fm'))
       or (GetChatMessage('firemaking'))
       or (GetChatMessage('fming'))
       and (GetChatMessage('lvl'))
       or (GetChatMessage('level'))
       or (GetChatMessage('lvls'))
       or (GetChatMessage('lvlz'))
       or (GetChatMessage('levels'))then
       begin
         AutoRespondCount := AutoRespondCount + 1;
         Level := IntToStr(GetSkillLevel('firemaking'));
          Response:= ('My lvl is ' + Level);
        TypeSend(Response);
       end;

          if(GetChatMessage('fish'))
       or (GetChatMessage('fishing'))
       or (GetChatMessage('fishin'))
       and (GetChatMessage('lvl'))
       or (GetChatMessage('level'))
       or (GetChatMessage('lvls'))
       or (GetChatMessage('lvlz'))
       or (GetChatMessage('stats'))
       or (GetChatMessage('levels'))then
       begin
         AutoRespondCount := AutoRespondCount + 1;
         Level := IntToStr(GetSkillLevel('fishing'));
          Response:= ('My lvl is ' + Level);
        TypeSend(Response);
       end;

       if(GetChatMessage('what'))
       or (GetChatMessage('wut'))
       or (GetChatMessage('wat'))
       and (GetChatMessage('doing'))
       or (GetChatMessage('doin'))
       or (GetChatMessage('happening')) then
       begin
        AutoRespondCount := AutoRespondCount + 1;
        TheReply := Random(4) + 1;
        case (TheReply) of
          0 : Response := ('hello');
          1 : Response := ('watz up');
          2 : Response := ('wat up');
          3 : Response := ('whats up');
          4 : Response := ('what up');
        end;
        TypeSend(Response);
      end;
    end;

    {*************************************************************************]
    [=========================================================================]
    [*************************************************************************}


    Procedure DoChats;

    Begin
      SetChat('On', 1);
      SetChat('On', 1);
      SetChat('Friends', 2);
      SetChat('Friends', 2);
      SetChat('On', 3);
      SetChat('On', 3);
    End;

    {*************************************************************************]
    [=========================================================================]
    [*************************************************************************}


    procedure LoadDTMs;
    begin
    end;

    {*************************************************************************]
    [=========================================================================]
    [*************************************************************************}


    Procedure SetupScript;

    Begin
      ClearDebug;
      WriteLn('Cleared Debug');
      //Signature;
      ActivateClient;
      WriteLn('Activated Client');
      Wait(100);
      SetupSRL;
      WriteLn('Setup SRL');
      DeclarePlayers;
      WriteLn('Declared Players');
      MouseSpeed := MSSpeed;
      WriteLn('Mouse Speed : '+inttostr(MSSpeed));
      CurrentPlayer := StartPlayer;
      WriteLn('Start Player');
      wait(100);
      MarkTime(CurrentTime);
    End;

    {*************************************************************************]
    [=========================================================================]
    [*************************************************************************}


    function TravSymbol(SymbolName: string): boolean;
    begin
      if(not(LoggedIn)) then Exit;
      if (FindSymbol(x,y,SymbolName)) then
      begin
        Mouse(x, y, 4, 2, true);
        Wait(550+random(550));
        FFlag(2+random(7));
        Result := True;
      end;
    end;

    {*************************************************************************]
    [=========================================================================]
    [*************************************************************************}


    Procedure SetupUser;
    Begin
      LoginPlayer;
      WriteLn('Logged in Player');
      Wait(1000);
      DoChats;
      WriteLn('Done Chats');
      HighestAngle;
      WriteLn('Highest Angle');
      MakeCompass('N');
      WriteLn('Compass North');
      SetRun(True);
      GameTab(4);
    End;

    {*************************************************************************]
    [=========================================================================]
    [*************************************************************************}


    Procedure DoAntiBan;
    Begin
      case Random(8) of
      1: HoverSkill('Random', False);
      2: HoverSkill('Mining', False);
      3: Begin BoredHuman; End;
      4: GameTab(1+random(11));
      5: AlmostLogout;
      6: RandomMovement;
      7: RandomRClick;
      8: PickUpMouse;
      end;
    end;

    {*************************************************************************]
    [=========================================================================]
    [*************************************************************************}


    function FindFastRandoms: Boolean; //By WT-Fakawi.
    var
      i: Integer;
    begin
      for i := 1 to 8 do
      begin
        case I of
          1: if FindDead then
              Result := True;
          2: if FindMod then
              Result := True;
          3: if FindMime then
              Result := True;
          4: if FindMaze then
              Result := True;
          5: if FindQuiz then
              Result := True;
          6: if FindDemon then
              Result := True;
          7: begin
              if NoGameTab then
              begin
                Result := True;
                Logout;
                Exit;
              end;
            end;
          7: begin
              if InBlack then
              begin
                Result := True;
                Logout;
                Exit;
              end;
            end;
          8: RC;
        end;
        wait(1);
      end;
    end;

    {*************************************************************************]
    [=========================================================================]
    [*************************************************************************}


    procedure Randoms;
    begin
      FindNormalRandoms;
      FindFastRandoms;
      AutoRespond;
      if (FindFight) then
      begin
        Status('Running...');
        RunAwayDirection('N');
        Wait(8500 + random(3500));
        RunBack;
      end;
    end;

    {*************************************************************************]
    [=========================================================================]
    [*************************************************************************}


    procedure WowLetsBegin;
    Begin
      Repeat
        DoAntiBan;
        Randoms;
      until(false)
    End;

    {*************************************************************************]
    [=========================================================================]
    [*************************************************************************}


    Begin
      //MoveToTray;
      Wait(1000)
      ActivateClient;
      SetupScript;
      SetupUser;
      Repeat
        WowLetsBegin;
      Until(TimeFromMark(CurrentTime) = (TimePerPlayer*60000))
    End.
    Can someone please make my anti-ban not work all the time, thanks!

  2. #2
    Join Date
    May 2007
    Location
    Netherlands, Amersfoort
    Posts
    2,701
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    what's wrong? i just got 'Successfully compiled'

    is it not working while playing ore what?

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

    Default

    It does work but it does it all the time, I want it to be every now and then.

  4. #4
    Join Date
    May 2007
    Location
    Netherlands, Amersfoort
    Posts
    2,701
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    search: 'marktime'

  5. #5
    Join Date
    Sep 2007
    Posts
    50
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thanks.

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Need help making scripts with anti-random.
    By daniiboy69 in forum OSR Help
    Replies: 3
    Last Post: 10-07-2008, 04:33 AM
  2. FindDeformed making RS time out..
    By NewToAutoing in forum OSR Help
    Replies: 2
    Last Post: 05-23-2007, 01:35 AM
  3. Anti-Randoms Refusing To Work...
    By Azzon in forum OSR Help
    Replies: 3
    Last Post: 03-10-2007, 12:54 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
  •