Results 1 to 8 of 8

Thread: Duplicate identifier

  1. #1
    Join Date
    Jun 2007
    Posts
    37
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Duplicate identifier

    whenever i tried putting in antiban it said unkown identifiers so i put in SetupSRLAntiBan; in the script and then i got Duplicate identifier RandomRClick in script how can i fix this?

  2. #2
    Join Date
    Feb 2006
    Location
    Tracy/Davis, California
    Posts
    12,631
    Mentioned
    135 Post(s)
    Quoted
    418 Post(s)

    Default

    Helps a lot if you show us the code

  3. #3
    Join Date
    Jun 2007
    Posts
    37
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    // antirandom antiban
    // Just fill in monster colors, declare players and hit run

    program Autofight;

    {.include SRL/SRL.Scar}
    {.include SRL/SRL/core/AntiBan.scar}

    var
    kills:Integer;

    const
    MonsterColor1 = 8617351;
    MonsterColor2 = 6976114;

    procedure DeclarePlayers;
      begin
     HowManyPlayers := 5; // number of players
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer:= 0;

      Players[0].Name :='';
      Players[0].Pass :='';
      Players[0].Nick :='';
      Players[0].Active:=True;

      Players[1].Name :='';
      Players[1].Pass :='';
      Players[1].Nick :='';
      Players[1].Active:=True;

      Players[2].Name :='';
      Players[2].Pass :='';
      Players[2].Nick :='';
      Players[2].Active:=True;

      Players[3].Name :='';
      Players[3].Pass :='';
      Players[3].Nick :='';
      Players[3].Active:=True;

      Players[4].Name :='';
      Players[4].Pass :='';
      Players[4].Nick :='';
      Players[4].Active:=True;

      NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);

    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;
                Players[CurrentPlayer].loc := 'No GameTab';
                Logout;
                Exit;
              end;
            end;
          7: begin
              if InBlack then
              begin
                Result := True;
                Players[CurrentPlayer].loc := 'InBlack';
                Logout;
                Exit;
              end;
            end;
          8: RC;
        end;
        wait(1);
      end;
    end;

    procedure one;
      begin
    if(FindColor(x,y,MonsterColor1,MSX1,MSY1,MSX2,MSY2))Then
      begin
      MMouse(x,y,2,2);
      if(IsUpText('Attack'))then
      begin
        GetMousePos(x,y);
        Mouse(x,y,0,0,false);
        Chooseoptionex('Attack');
        kills:=kills + 1
      end;
    end;
    end;

    Procedure AntiBan;
    var
      DBanMe: Integer;
    begin
    DBanMe:= Random(10);
     case DBanMe of

        0: RandomRClickEvery(2 + Random(13));
        1: HoverSkill('Mining', False);
        2: RandomChatEvery(10 + Random(5));
        3: RotateEvery(20 + Random(10));
        4: LeaveScreenEvery(5 + Random(5));
        5: HoverEvery(15 + Random(5), 'Attack');
        6: PickUpMouse;
        7: BoredEvery(9 + Random(24));
        8: DragItem(1, 1 + Random(18));
        9: GameTab(1 + Random(12));
        10: RotateEvery(7 + random(4));
      end;
    end;


    procedure Two;
      begin
     if(FindColor(x,y,MonsterColor2,MSX1,MSY1,MSX2,MSY2))Then
      begin
      MMouse(x,y,2,2);
      if(IsUpText('Attack'))then
      begin
        GetMousePos(x,y);
        Mouse(x,y,0,0,false);
        Chooseoptionex('Attack');
        kills:=kills + 1
      end;
    end;
    end;

     procedure Report;
      begin
      Writeln('~~~~~~~~~~~~~~~');
      Writeln('Worked for ;'+ ScriptTime2(2))
      Writeln('Killed'+IntToStr(kills)+ 'kills');
      Writeln('~~~~~~~~~~~~~~~');
    end;

      begin
      SetupSRL;
      SetupSRLAntiBan;
    repeat
      One;
      Two;
      AntiBan;
      DeclarePlayers;
      LoginPlayer;
      FindFastRandoms;
      FindNormalRandoms;
    until(false);
    end.

  4. #4
    Join Date
    Jun 2006
    Location
    USA
    Posts
    1,828
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Remove {.include SRL/SRL/core/AntiBan.scar}, its already included with SRL.scar

  5. #5
    Join Date
    Jun 2007
    Posts
    37
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    but when i do that it says unkown identifiers randomrclick and the rest of it

  6. #6
    Join Date
    Jun 2006
    Location
    USA
    Posts
    1,828
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Ipewnjoo View Post
    but when i do that it says unkown identifiers randomrclick and the rest of it
    Try adding {.incude srl/srl/extended/xantiban.scar}

  7. #7
    Join Date
    Jun 2007
    Posts
    37
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Nope still doesnt work
    sorry for long reply time had to go somewhere yesterday

  8. #8
    Join Date
    Jun 2007
    Posts
    37
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    so any help? still doesnt work

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Duplicate Identifier
    By iunseeni in forum OSR Help
    Replies: 2
    Last Post: 11-06-2007, 04:18 PM
  2. Duplicate Identifier
    By Jackrawl in forum OSR Help
    Replies: 9
    Last Post: 09-06-2007, 02:37 PM
  3. Duplicate Identifier?
    By IEatJ00erBaybees in forum OSR Help
    Replies: 7
    Last Post: 03-05-2007, 01:53 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
  •