Results 1 to 16 of 16

Thread: need help with an autofighter

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

    Default need help with an autofighter

    i made an autofighter for scar 3.11 and srl 3.81 and i get this error when i compile

    Line 234: [Error] (15092:5): Unknown identifier 'PolyGlotTalk' in script C:\Program Files\SCAR 3.11\includes\SRL/SRL/extended/xAntiBan.Scar

    any ideas

    EDIT: i deleted dontbanme in the include btw

    and can u look at this v2 and see if anything is wrong



  2. #2
    Join Date
    Apr 2007
    Location
    Michigan -.-
    Posts
    1,357
    Mentioned
    2 Post(s)
    Quoted
    4 Post(s)

    Default

    you either can just delete the polygottalk

    or you can make your own antiban (pretty easy)

    look at sum beginner tuts on anitban so you can make yours unique
    METAL HEAD FOR LIFE!!!

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

    Default

    but the error is in xantiban a include with srl

    im using srl 3.81 and scar 3.11



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

    Default

    thanks but the error is in xantiban a include with srl

    im using srl 3.81 and scar 3.11

    [QUOTE=Bonfield;162230]i SCAR 3.11\includes\SRL/SRL/extended/xAntiBan.Scar
    QUOTE]

    so what should i do



  5. #5
    Join Date
    Jan 2007
    Location
    Not here
    Posts
    1,604
    Mentioned
    2 Post(s)
    Quoted
    19 Post(s)

    Default

    open up ur SCAR folder....the following are names of folders until i say XAntiBan.scar

    go to includes>SRL>SRL>Extended>XAntiBan.scar

    scroll down until you find "DontBanMe" Procedure and delete that whole procedure. (It's the bottom one)
    Sleeping...

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

    Default

    thanks for he help

    i did that but now i get an error saying

    Line 66: [Error] (15136:1): Unknown identifier 'findobjarea' in script

    what should i do



  7. #7
    Join Date
    Apr 2007
    Location
    California
    Posts
    259
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I'm not sure about that part, but you don't have to delete anything from your includes. You just have to put {.include SRL/SRL/Extended/xAutoTalk.scar} And you have to make sure you put it above the include for xAntiban.scar or you'll still get errors. That'll fix the PolyGlotTalk error.

    Actually, i did a quick check and FindObjArea is in SRL/Extended/xObject.scar. So make sure you have {.include SRL/SRL/Extended/xObject.scar} also.

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

    Default

    thanks for the help can u have a quick look at version 2?

    EDIT version 2 updated



  9. #9
    Join Date
    Apr 2007
    Location
    California
    Posts
    259
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    move {.include SRL/SRL/extended/xDTM.scar} above {.include SRL/SRL/extended/xObject.scar}. Or just make it all look like this:

    SCAR Code:
    {.include SRL/srl.scar}
    {.include SRL/srl/skill/Fighting.scar}
    {.include SRL/SRL/extended/xDTM.scar}
    {.include SRL/SRL/extended/xObject.scar}
    {.include SRL/SRL/Extended/xAutoTalk.scar}
    {.include SRL/SRL/extended/xAntiBan.Scar}

  10. #10
    Join Date
    Jan 2007
    Location
    Not here
    Posts
    1,604
    Mentioned
    2 Post(s)
    Quoted
    19 Post(s)

    Default

    I was sure when I added xAntiBan I still got the error....eh nvm
    Sleeping...

  11. #11
    Join Date
    Apr 2007
    Location
    California
    Posts
    259
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by rkroxpunk View Post
    I was sure when I added xAntiBan I still got the error....eh nvm
    it worked now, and it worked for me in the past when i did that. Also i think you mean xAutoTalk.

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

    Default

    yeah thanks for the help lol now i changed alot in my script and i get another error can u look at it

    SCAR Code:
    program Autofighter;
    {.include SRL/srl.scar}
    {.include SRL/srl/skill/Fighting.scar}
    {.include SRL/SRL/extended/xObject.scar}
    {.include SRL/SRL/Extended/xAutoTalk.scar}
    {.include SRL/SRL/extended/xDTM.scar}
    {.include SRL/SRL/extended/xAntiBan.Scar}


    {this is an autofighter that i made
    all u have to do is fill out lines 19-28  and run}



    const StartPlayer = 0;

    var monsters, Att,Str,Def:Integer; Goal : String;

    const
    mColor1 = 3312517;  {colour of monster}
    mcolor2 = 7118212;  {colour of monster}
    mcolor3 = 3444360;  {colour of monster}
    Monster = 'Goblin';   {name}
    tol = 5;
    mode = 2;     {1 att 2 str 3 controlled 4 defence}
    EvenSkills = False {true or false}
    Eat = 'No' ;    {yes/no}
    Eathp = 5;   {when you want to eat}
    Foodname = 'shrimp';   {name}
    Foodcolor = 1;    {colour of food}
    VerNumber = '2.5'; // Version Number

    Procedure DeclarePlayers;
    begin
    HowManyPlayers := 1;
    NumberOfPlayers(HowManyPlayers);
    CurrentPlayer := StartPlayer;

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

    procedure WriteLns(Text: string);
    begin
      WriteLn(Text);
      Wait(200);
    end;

    procedure Credits;
    begin
      WriteLns(' [ B ]');
      WriteLns(' [ B o ]');
      WriteLns(' [ B o n ]');
      WriteLns(' [ B o n f ]');
      WriteLns(' [ B o n f i ]');
      WriteLns(' [ B o n f i e  ]');
      WriteLns(' [ B o n f i e l ]');
      WriteLns(' [ B o n f i e l d ]');
      WriteLns(' [ B o n f i e l d s ]');
      WriteLns(' [ B o n f i e l d s A ]');
      WriteLns(' [ B o n f i e l d s A u ]');
      WriteLns(' [ B o n f i e l d s A u t ]');
      WriteLns(' [ B o n f i e l d s A u t o ]');
      WriteLns(' [ B o n f i e l d s A u t o F ]');
      WriteLns(' [ B o n f i e l d s A u t o F i ]');
      WriteLns(' [ B o n f i e l d s A u t o F i g ]');
      WriteLns(' [ B o n f i e l d s A u t o F i g  h ]');
      WriteLns(' [ B o n f i e l d s A u t o F i g h t ]');
      WriteLns(' [ B o n f i e l d s A u t o F i g h t e ]');
      WriteLns(' [ B o n f i e l d s A u t o F i g h t e r]');
      ClearDebug;
      WriteLn('tell me how my script goes =] =]') ;
    end;

    procedure ProgressReport;
    Begin
      ClearDebug;
      Writeln('<|----------------------------------------------|>');
      Writeln(' AutoFighter v'+VerNumber+' by Bonfield ');
      Writeln(' Worked for: '+ScriptTime2(2));
      Writeln(' Attacked ' + IntToStr(Monsters));
      Writeln('<|----------------------------------------------|>');

    end;


    procedure Mode2name;
    begin if(Mode = 1) then begin
    Goal := 'Attack';
    end;
    if(Mode = 2) then begin
    Goal := 'Strength';
    end;
    if(Mode = 3) then begin
    Goal := 'Strength';
    end;
    if(Mode = 4) then begin
    Goal := 'Defence';
    end; end;

    procedure EatFood;
    begin
    repeat
    if(eat = 'Yes')then begin if(gethp < Eathp) then begin
    Gametab(4)
    findobjarea(x,y,foodname,557,211,734,458,foodcolor,5,true);
    isuptext(foodname);
    Mouse(x,y,5,5,true);
    end;
    end;
    until(gethp > eathp);
    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 AntiBanage; {made by JAD and i changed a little}
    begin
      if(not(LoggedIn))then
      Exit;
      case Random(13) of

        0: RandomRClickEvery(3 + Random(3));

        1: begin   if mode=1 then
             HoverSkill('Attack', false);
             wait(2000+random(1000));
             GameTab(4);
           end;

        2: begin  if mode=2 then
             HoverSkill('Strength', false);
             wait(500+random(1000));
             GameTab(4);
           end;

        3:   begin  if mode=4 then
             HoverSkill('Defence', false);
             wait(500+random(1000));
             GameTab(4);
             end;

        4: LeaveScreenEvery(10 + Random(4));

        5: PickUpMouse;

        6: BoredEvery(10 + Random(5));

        7: begin
             GameTab(1 + Random(12));
             wait(1000+random(1000));
             GameTab(4);
           end;

        8: MouseBox(MSX1,MMY1,MMX2,MMY2,3);

        9: AntiBan;

        10: SleepAndMoveMouse(600000+random(300000));

      end;
    end;


    procedure FindRandoms;
    begin
      FindFastRandoms;
      FindNormalRandoms;
    end;


    procedure SkillCheck;
    begin if(Mode = 1) then begin
    HoverSkill('Attack',false);
    end; if(Mode = 2) then begin
    HoverSkill('Strength',false);
    end; if(Mode = 3) then begin
    HoverSkill('Attack',false);
    wait(1000 + random(500));
    HoverSkill('Strength',false);
    end; if(Mode = 4) then begin
    HoverSkill('Defence',false);
    end;
    end;

    procedure EvenSkill;
    var Att,Str,Def:Integer;
    begin
    ProgressReport;
    if(EvenSkills=True)
    then begin
    Att:=GetSkillLevel('Attack')
    Str:=GetSkillLevel('Strength')
    Def:=GetSkillLevel('Defence')
    writeln('Att: '+inttostr(Att))
    writeln('Str: '+inttostr(Str))
    writeln('Def: '+inttostr(Def))
    if(Att>Str)
    then begin
    report;
    writeln('Att>Str')
    if(mode=2)
    then begin
    ProgressReport;
    exit;
    end;
    mode:=2
    writeln('Setting To Str')
    SetFightMode(2)
    Randoms;
    exit;
    end;
    if(Str>Def)
    then begin
    ProgressReport;
    writeln('Str>Def')
    if(mode=4)
    then begin
    ProgressReport;
    exit;
    end;
    mode:=4
    writeln('Setting to Def')
    SetFightMode(4)
    FindFastRandoms;
    AntiBanage;
    FindRandoms;
    exit;
    end;
    if(Def>Att)
    then begin
    ProgerssReport;
    writeln('Def>Att')
    if(mode=1)
    then begin
    ProgressReport;
    exit;
    end;
    Mode:=1
    writeln('Setting to Att')
    SetFightMode(1)
    FindFastRandoms;
    AntiBanage;
    FindRandoms;
    ProgressReport;
    exit;
    end;

    procedure Fighter;
    begin
    kills =; 0;
    antiBanage;
    if (not(findattackablenpc(mcolor1, mcolor2, mcolor3, tol, monster))) then begin end;
    KAttackMonster(mcolor1, mcolor2, mcolor3, tol, monster);
    wait(1000 + random(120));
    outfight;
    Monsters := Monsters + 1;
    ProgressReport;
    end;

    procedure Setup;
    begin
    Declareplayers;
    Credits;
    SetupSRL;
    ActivateClient;
    SRLRandomsReport;
    end;



    begin
    setup;
    repeat if (not (loggedin)) then begin
    loginplayer;
    SetRun(true);
    wait(2000 + random(1000));
    highestangle;
    end;
    antiBanage;
    FindNormalRandoms;
    wait(200 + random(200));
    fighter;
    wait(200 + random(200));
    antiBanage;
    until (false);
    ProgressReport;
    Logout;
    End.



  13. #13
    Join Date
    Apr 2007
    Location
    Perth, Australia
    Posts
    3,926
    Mentioned
    3 Post(s)
    Quoted
    2 Post(s)

    Default

    You need to put xDTM before xObject when you include it into your script. ie:
    SCAR Code:
    {.include SRL/srl.scar}
    {.include SRL/srl/skill/Fighting.scar}
    {.include SRL/SRL/Extended/xDTM.scar}   // moved the xDTM up here.
    {.include SRL/SRL/extended/xObject.scar}
    {.include SRL/SRL/Extended/xAutoTalk.scar}
    {.include SRL/SRL/extended/xAntiBan.Scar}

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

    Default

    thanks how come tho?

    i did that now it says

    Line 249: [Error] (16833:1): Identifier expected in script

    SCAR Code:
    program Autofighter;
    {.include SRL/srl.scar}
    {.include SRL/srl/skill/Fighting.scar}
    {.include SRL/SRL/Extended/xDTM.scar}   // moved the xDTM up here.
    {.include SRL/SRL/extended/xObject.scar}
    {.include SRL/SRL/Extended/xAutoTalk.scar}
    {.include SRL/SRL/extended/xAntiBan.Scar}


    {this is an autofighter that i made
    all u have to do is fill out lines 19-28  and run}



    const StartPlayer = 0;

    var monsters, Att,Str,Def:Integer; Goal : String;

    const
    mColor1 = 3312517;  {colour of monster}
    mcolor2 = 7118212;  {colour of monster}
    mcolor3 = 3444360;  {colour of monster}
    Monster = 'Goblin';   {name}
    tol = 5;
    mode = 2;     {1 att 2 str 3 controlled 4 defence}
    EvenSkills = False {true or false}
    ;Eat = 'No';    {yes/no}
    Eathp = 5;   {when you want to eat}
    Foodname = 'shrimp';   {name}
    Foodcolor = 1;    {colour of food}
    VerNumber = '2.5'; // Version Number

    Procedure DeclarePlayers;
    begin
    HowManyPlayers := 1;
    NumberOfPlayers(HowManyPlayers);
    CurrentPlayer := StartPlayer;

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

    procedure WriteLns(Text: string);
    begin
      WriteLn(Text);
      Wait(200);
    end;

    procedure Credits;
    begin
      WriteLns(' [ B ]');
      WriteLns(' [ B o ]');
      WriteLns(' [ B o n ]');
      WriteLns(' [ B o n f ]');
      WriteLns(' [ B o n f i ]');
      WriteLns(' [ B o n f i e  ]');
      WriteLns(' [ B o n f i e l ]');
      WriteLns(' [ B o n f i e l d ]');
      WriteLns(' [ B o n f i e l d s ]');
      WriteLns(' [ B o n f i e l d s A ]');
      WriteLns(' [ B o n f i e l d s A u ]');
      WriteLns(' [ B o n f i e l d s A u t ]');
      WriteLns(' [ B o n f i e l d s A u t o ]');
      WriteLns(' [ B o n f i e l d s A u t o F ]');
      WriteLns(' [ B o n f i e l d s A u t o F i ]');
      WriteLns(' [ B o n f i e l d s A u t o F i g ]');
      WriteLns(' [ B o n f i e l d s A u t o F i g  h ]');
      WriteLns(' [ B o n f i e l d s A u t o F i g h t ]');
      WriteLns(' [ B o n f i e l d s A u t o F i g h t e ]');
      WriteLns(' [ B o n f i e l d s A u t o F i g h t e r]');
      ClearDebug;
      WriteLn('tell me how my script goes =] =]') ;
    end;

    procedure ProgressReport;
    Begin
      ClearDebug;
      Writeln('<|----------------------------------------------|>');
      Writeln(' AutoFighter v'+VerNumber+' by Bonfield ');
      Writeln(' Worked for: '+ScriptTime2(2));
      Writeln(' Attacked ' + IntToStr(Monsters));
      Writeln('<|----------------------------------------------|>');

    end;


    procedure Mode2name;
    begin if(Mode = 1) then begin
    Goal := 'Attack';
    end;
    if(Mode = 2) then begin
    Goal := 'Strength';
    end;
    if(Mode = 3) then begin
    Goal := 'Strength';
    end;
    if(Mode = 4) then begin
    Goal := 'Defence';
    end; end;

    procedure EatFood;
    begin
    repeat
    if(eat = 'Yes')then begin if(gethp < Eathp) then begin
    Gametab(4)
    findobjarea(x,y,foodname,557,211,734,458,foodcolor,5,true);
    isuptext(foodname);
    Mouse(x,y,5,5,true);
    end;
    end;
    until(gethp > eathp);
    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 AntiBanage; {made by JAD and i changed a little}
    begin
      if(not(LoggedIn))then
      Exit;
      case Random(13) of

        0: RandomRClickEvery(3 + Random(3));

        1: begin   if mode=1 then
             HoverSkill('Attack', false);
             wait(2000+random(1000));
             GameTab(4);
           end;

        2: begin  if mode=2 then
             HoverSkill('Strength', false);
             wait(500+random(1000));
             GameTab(4);
           end;

        3:   begin  if mode=4 then
             HoverSkill('Defence', false);
             wait(500+random(1000));
             GameTab(4);
             end;

        4: LeaveScreenEvery(10 + Random(4));

        5: PickUpMouse;

        6: BoredEvery(10 + Random(5));

        7: begin
             GameTab(1 + Random(12));
             wait(1000+random(1000));
             GameTab(4);
           end;

        8: MouseBox(MSX1,MMY1,MMX2,MMY2,3);

        9: AntiBan;

        10: SleepAndMoveMouse(600000+random(300000));

      end;
    end;


    procedure FindRandoms;
    begin
      FindFastRandoms;
      FindNormalRandoms;
    end;


    procedure SkillCheck;
    begin if(Mode = 1) then begin
    HoverSkill('Attack',false);
    end; if(Mode = 2) then begin
    HoverSkill('Strength',false);
    end; if(Mode = 3) then begin
    HoverSkill('Attack',false);
    wait(1000 + random(500));
    HoverSkill('Strength',false);
    end; if(Mode = 4) then begin
    HoverSkill('Defence',false);
    end;
    end;

    procedure EvenSkill;
    var Att,Str,Def:Integer;
    begin
    ProgressReport;
    if(EvenSkills=True)
    then begin
    Att:=GetSkillLevel('Attack')
    Str:=GetSkillLevel('Strength')
    Def:=GetSkillLevel('Defence')
    writeln('Att: '+inttostr(Att))
    writeln('Str: '+inttostr(Str))
    writeln('Def: '+inttostr(Def))
    if(Att>Str)
    then begin
    ProgressReport;
    writeln('Att>Str')
    if(mode=2)
    then begin
    ProgressReport;
    exit;
    end;

    procedure Fighter;
    begin
    kills =; 0;
    antiBanage;
    if (not(findattackablenpc(mcolor1, mcolor2, mcolor3, tol, monster))) then begin end;
    KAttackMonster(mcolor1, mcolor2, mcolor3, tol, monster);
    wait(1000 + random(120));
    outfight;
    Monsters := Monsters + 1;
    ProgressReport;
    end;

    procedure Setup;
    begin
    Declareplayers;
    Credits;
    SetupSRL;
    ActivateClient;
    SRLRandomsReport;
    end;



    begin
    setup;
    repeat if (not (loggedin)) then begin
    loginplayer;
    SetRun(true);
    wait(2000 + random(1000));
    highestangle;
    end;
    antiBanage;
    FindNormalRandoms;
    wait(200 + random(200));
    fighter;
    wait(200 + random(200));
    antiBanage;
    until (false);
    ProgressReport;
    Logout;
    End.



  15. #15
    Join Date
    Apr 2007
    Location
    Perth, Australia
    Posts
    3,926
    Mentioned
    3 Post(s)
    Quoted
    2 Post(s)

    Default

    I think its because SCAR loads the includes in order so if it comes across a function thats in another include that hasn't been loaded yet it returns an error. Also with your identifier expected. Its probably because in your last procedure (EvenSkill) you've get 4 begin statements to 1 end. Every begin must have an end statement. And you also really need to work on your standards. It so hard to see where the begins and ends are.

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

    Default

    ok thanks ill get it to work properly then i will fix my standards

    i fixed my script

    someone tell me how it goes

    SCAR Code:
    program Autofighter;
    {.include SRL/srl.scar}
    {.include SRL/srl/skill/Fighting.scar}
    {.include SRL/SRL/Extended/xDTM.scar}
    {.include SRL/SRL/extended/xObject.scar}
    {.include SRL/SRL/Extended/xAutoTalk.scar}
    {.include SRL/SRL/extended/xAntiBan.Scar}


    {this is an autofighter that i made
    all u have to do is fill out lines 19-28  and run}



    const StartPlayer = 0;

    var m, monsters, Att,Str,Def:Integer; Goal : String;

    const

    mColor1 = 3312517;  {colour of monster}
    mcolor2 = 7118212;  {colour of monster}
    mcolor3 = 3444360;  {colour of monster}
    Monster = 'Goblin';   {name}
    tol = 5;
    mode = 2;     {1 att 2 str 3 controlled 4 defence}
    EvenSkills = False; {true or false}
    Eat = 'No';    {yes/no}
    Eathp = 5;   {when you want to eat}
    Foodname = 'shrimp';   {name}
    Foodcolor = 1;    {colour of food}
    VerNumber = '2.5'; // Version Number

    Procedure DeclarePlayers;
    begin

    HowManyPlayers := 1;
    NumberOfPlayers(HowManyPlayers);
    CurrentPlayer := StartPlayer;

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

    end;

    procedure WriteLns(Text: string);
    begin

      WriteLn(Text);
      Wait(200);

    end;

    procedure Credits;
    begin

      WriteLns(' [ B ]');
      WriteLns(' [ B o ]');
      WriteLns(' [ B o n ]');
      WriteLns(' [ B o n f ]');
      WriteLns(' [ B o n f i ]');
      WriteLns(' [ B o n f i e  ]');
      WriteLns(' [ B o n f i e l ]');
      WriteLns(' [ B o n f i e l d ]');
      WriteLns(' [ B o n f i e l d s ]');
      WriteLns(' [ B o n f i e l d s A ]');
      WriteLns(' [ B o n f i e l d s A u ]');
      WriteLns(' [ B o n f i e l d s A u t ]');
      WriteLns(' [ B o n f i e l d s A u t o ]');
      WriteLns(' [ B o n f i e l d s A u t o F ]');
      WriteLns(' [ B o n f i e l d s A u t o F i ]');
      WriteLns(' [ B o n f i e l d s A u t o F i g ]');
      WriteLns(' [ B o n f i e l d s A u t o F i g  h ]');
      WriteLns(' [ B o n f i e l d s A u t o F i g h t ]');
      WriteLns(' [ B o n f i e l d s A u t o F i g h t e ]');
      WriteLns(' [ B o n f i e l d s A u t o F i g h t e r]');
      ClearDebug;
      WriteLn('tell me how my script goes =] =]') ;
    end;

    procedure ProgressReport;
    Begin
      ClearDebug;
      Writeln('<|----------------------------------------------|>');
      Writeln(' AutoFighter v'+VerNumber+' by Bonfield ');
      Writeln(' Worked for: '+ScriptTime2(2));
      Writeln(' Attacked ' + IntToStr(Monsters));
      Writeln('<|----------------------------------------------|>');

    end;


    procedure Mode2name;
    begin
    if(Mode = 1) then begin
    Goal := 'Attack';
    end;
    if(Mode = 2) then begin
    Goal := 'Strength';
    end;
    if(Mode = 3) then begin
    Goal := 'Strength';
    end;
    if(Mode = 4) then begin
    Goal := 'Defence';
    end; end;

    procedure EatFood;
    begin
    repeat
    if(eat = 'Yes')then begin if(gethp < Eathp) then begin
    Gametab(4)
    findobjarea(x,y,foodname,557,211,734,458,foodcolor,5,true);
    isuptext(foodname);
    Mouse(x,y,5,5,true);
    end;
    end;
    until(gethp > eathp);
    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 AntiBanage; {made by JAD and i changed a little}
    begin
      if(not(LoggedIn))then
      Exit;
      case Random(13) of

        0: RandomRClickEvery(3 + Random(3));

        1: begin   if mode=1 then
             HoverSkill('Attack', false);
             wait(2000+random(1000));
             GameTab(4);
           end;

        2: begin  if mode=2 then
             HoverSkill('Strength', false);
             wait(500+random(1000));
             GameTab(4);
           end;

        3:   begin  if mode=4 then
             HoverSkill('Defence', false);
             wait(500+random(1000));
             GameTab(4);
             end;

        4: LeaveScreenEvery(10 + Random(4));

        5: PickUpMouse;

        6: BoredEvery(10 + Random(5));

        7: begin
             GameTab(1 + Random(12));
             wait(1000+random(1000));
             GameTab(4);
           end;

        8: MouseBox(MSX1,MMY1,MMX2,MMY2,3);

        9: AntiBan;

        10: SleepAndMoveMouse(600000+random(300000));

      end;
    end;


    procedure FindRandoms;
    begin
      FindFastRandoms;
      FindNormalRandoms;
    end;


    procedure SkillCheck;
    begin if(Mode = 1) then begin
    HoverSkill('Attack',false);
    end; if(Mode = 2) then begin
    HoverSkill('Strength',false);
    end; if(Mode = 3) then begin
    HoverSkill('Attack',false);
    wait(1000 + random(500));
    HoverSkill('Strength',false);
    end; if(Mode = 4) then begin
    HoverSkill('Defence',false);
    end;
    end;

    procedure EvenSkill;
    var Att,Str,Def:Integer;
    begin
    ProgressReport;
    if(EvenSkills=True)
    then begin
    Att:=GetSkillLevel('Attack')
    Str:=GetSkillLevel('Strength')
    Def:=GetSkillLevel('Defence')
    writeln('Att: '+inttostr(Att))
    writeln('Str: '+inttostr(Str))
    writeln('Def: '+inttostr(Def))
    if(Att>Str)
    then begin
    ProgressReport;
    writeln('Att greater than Str')
    if(mode=2)
    then begin
    ProgressReport;
    exit;
    end;
    if(Att<Str)
    then begin
    ProgressReport;
    writeln('Att less than Str')
    if(mode=1)
    then begin
    ProgressReport;
    exit;
    end;
    if(Att>Def)
    then begin
    ProgressReport;
    writeln('Att greater than Def')
    if(mode=3)
    then begin
    ProgressReport;
    exit;
    end;
    if(Att<Str)
    then begin
    ProgressReport;
    writeln('Attless than Str')
    if(mode=1)
    then begin
    ProgressReport;
    exit;
    end;
    end;
    end;
    end;
    end;
    end;
    end;


    procedure Fighter;
    begin
    m:= 0;
    antiBanage;
    if (not(findattackablenpc(mcolor1, mcolor2, mcolor3, tol, monster))) then begin end;
    KAttackMonster(mcolor1, mcolor2, mcolor3, tol, monster);
    wait(1000 + random(120));
    outfight;
    Monsters := m + 1;
    ProgressReport;
    end;

    procedure Setup;
    begin
    Declareplayers;
    Credits;
    SetupSRL;
    ActivateClient;
    SRLRandomsReport;
    end;



    begin
    setup;
    repeat if (not (loggedin)) then begin
    loginplayer;
    SetRun(true);
    wait(2000 + random(1000));
    highestangle;
    end;
    antiBanage;
    FindNormalRandoms;
    wait(200 + random(200));
    fighter;
    wait(200 + random(200));
    antiBanage;
    until (false);
    ProgressReport;
    Logout;
    End.



Thread Information

Users Browsing this Thread

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

Similar Threads

  1. THE new autofighter NX
    By HayHay89 in forum News and General
    Replies: 13
    Last Post: 08-10-2008, 03:11 AM
  2. Autofighter
    By mistak in forum OSR Help
    Replies: 5
    Last Post: 05-17-2008, 05:10 PM
  3. autofighter
    By Bonfield in forum RS3 Outdated / Broken Scripts
    Replies: 43
    Last Post: 08-27-2007, 10:04 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
  •