Results 1 to 6 of 6

Thread: Help with Antirandoms

  1. #1
    Join Date
    Aug 2007
    Location
    Emo-land
    Posts
    1,109
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Help with Antirandoms

    Hi everyone, I really need a good antirandoms procedure. At the moment I am only using things like:
    SCAR Code:
    Procedure CheckForRandoms;
    begin
      FTWait(2);
      FindNormalRandoms;
      Wait(10);
      FindEnt(x,y,true);
      if (FindFight) then
      begin
        x := 644;
        y := 83;
        Mouse(x, y + 50, 0, 0, true);
        Wait(8500 + random(3500));
        Mouse(x, y - 50, 0, 0, true);
      end;
    end;
    This works fine for ents and tree spirits, but nothing else really! Has anyone got any better procedures? Please I really need them for my GnomeAgilityRunner - V2.3 Just released.
    Thankyou for any help you can give me,
    Fr0zn S0ul

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

    Default

    Heres Mine, Just add it:

    SCAR Code:
    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;

    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;

  3. #3
    Join Date
    Apr 2007
    Location
    Colchester, UK
    Posts
    1,220
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    fruity lo0py are u sure thats urs????

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

    Default

    Its what I use in my script, but its taken from other people with comments also.

  5. #5
    Join Date
    Oct 2006
    Posts
    2,297
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Fr0zn S0ul View Post
    Hi everyone, I really need a good antirandoms procedure. At the moment I am only using things like:
    SCAR Code:
    Procedure CheckForRandoms;
    begin
      FTWait(2);
      FindNormalRandoms;
      Wait(10);
      FindEnt(x,y,true);
      if (FindFight) then
      begin
        x := 644;
        y := 83;
        Mouse(x, y + 50, 0, 0, true);
        Wait(8500 + random(3500));
        Mouse(x, y - 50, 0, 0, true);
      end;
    end;
    This works fine for ents and tree spirits, but nothing else really! Has anyone got any better procedures? Please I really need them for my GnomeAgilityRunner - V2.3 Just released.
    Thankyou for any help you can give me,
    Fr0zn S0ul
    Use FindFastRandoms by WT-Fakawi then:
    SCAR Code:
    procedure RandomsSolving;
    begin
      FindFastRandoms;//you need to copy/paste this into your script, remember as long as you credit properly, you can use every piece of code made by WT-Fakawi
      FindNormalRandoms;
      //other stuff th at's needed like InFight; or FindEnt; or so, depents on which script :p
    end;
    [QUOTE=Santa_Clause;277761]I love you too TSN :p[/QUOTE]
    [CENTER][URL="http://www.stats.srl-forums.com/sigs"][IMG]http://www.stats.srl-forums.com/sigs/1324.png[/IMG][/URL][/CENTER]

  6. #6
    Join Date
    Aug 2007
    Location
    Emo-land
    Posts
    1,109
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    OK thanks for the help guys

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Antirandoms
    By Adamb_135 in forum OSR Help
    Replies: 1
    Last Post: 04-24-2007, 11:58 PM
  2. AntiRandoms
    By antibinki in forum OSR Help
    Replies: 3
    Last Post: 04-02-2007, 01:58 AM
  3. Need help with antirandoms
    By Johura in forum OSR Help
    Replies: 1
    Last Post: 03-28-2007, 11:29 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
  •