Results 1 to 21 of 21

Thread: Simple Autofighter

  1. #1
    Join Date
    Sep 2006
    Location
    New Jersey, USA
    Posts
    5,347
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default Simple Autofighter

    Simple Autofighter v3

    Just a simple autofighter script. I may add more features later; I just whipped this up so I could level up my noobs while I did other stuff.

    I'm releasing this mainly for anyone who wants an autofighter base to build upon, or for anyone who wants to study a simple, efficient script

    If anyone's interested in this script, I may add in some extra features like antiban, auto eating, etc

    NOW WITH ANTIRANDOMS, FINDTALK, AND ANTIBAN

    WARNING: THIS SCRIPT IS NOT MEANT TO BE RUN OVERNIGHT. IT IS MADE TO LVL YOUR NOOBS WHILE YOU DO SOMETHING ELSE NEARBY.
    Interested in C# and Electrical Engineering? This might interest you.

  2. #2
    Join Date
    Sep 2006
    Location
    New Jersey, USA
    Posts
    5,347
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    ~~reserved post~~
    Interested in C# and Electrical Engineering? This might interest you.

  3. #3
    Join Date
    Feb 2007
    Location
    SparklesProd.com
    Posts
    2,406
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    lol! That really is simple :P

    Ty for release, nicely indently, what i like to see

    Could you not add a find normal randoms? so there's some kind of protection :P

  4. #4
    Join Date
    Dec 2006
    Location
    Helsinki, Finland
    Posts
    177
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

  5. #5
    Join Date
    Sep 2006
    Location
    New Jersey, USA
    Posts
    5,347
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    Quote Originally Posted by julle13 View Post
    Nice Shortest autofighter ever?
    Quite possibly

    Adding findnormalrandoms in a min...

    EDIT:

    Added antirandoms! Yay!
    Interested in C# and Electrical Engineering? This might interest you.

  6. #6
    Join Date
    Dec 2006
    Location
    Third rock from the sun.
    Posts
    2,510
    Mentioned
    4 Post(s)
    Quoted
    1 Post(s)

    Default

    Nice, lol

  7. #7
    Join Date
    Sep 2006
    Location
    New Jersey, USA
    Posts
    5,347
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    As far as I know...its the only 20 line autofighter EVER!
    Interested in C# and Electrical Engineering? This might interest you.

  8. #8
    Join Date
    Dec 2006
    Location
    Third rock from the sun.
    Posts
    2,510
    Mentioned
    4 Post(s)
    Quoted
    1 Post(s)

    Default

    Make that 22!

  9. #9
    Join Date
    Dec 2006
    Location
    Third rock from the sun.
    Posts
    2,510
    Mentioned
    4 Post(s)
    Quoted
    1 Post(s)

    Default

    SCAR Code:
    program New;
    {.include SRL/SRL.scar}
    begin
    SetupSRL;
     repeat
      if(FindObj(x, y, 'hicken', 15264235, 5))then
       FTWait(30)
        Mouse(x, y, 2, 2, True);
        FTWait(10);
       FindNormalRandoms;
      Wait(10000 + Random(3000));
     until(False);
    end.

    13 LINE CHICKEN FIGHTER!!!

  10. #10
    Join Date
    Sep 2006
    Location
    New Jersey, USA
    Posts
    5,347
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    Heh...due to a *slight* rework, I have been able to pack antiban and findtalks into 20 lines, where it took you 22 =D
    Interested in C# and Electrical Engineering? This might interest you.

  11. #11
    Join Date
    Dec 2006
    Location
    Third rock from the sun.
    Posts
    2,510
    Mentioned
    4 Post(s)
    Quoted
    1 Post(s)

    Default

    Heh. This is fun

    Post your 5 liner

  12. #12
    Join Date
    Sep 2006
    Location
    New Jersey, USA
    Posts
    5,347
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    *cough cough* four liner...

    SCAR Code:
    program Fighter;
    {.include SRL\SRL.scar}
    const color = 1648937;
    begin SetupSRL repeat if (FindColorTolerance(x, y, color, MSXX1, MSY1, MSX2, MSY2, 5)) then if (not (x = 1)) and (not (y = 1)) then MMouse(x, y, 1, 1) if (IsUpText('Attack')) then begin Mouse(x, y, 5, 5, true) wait(10000 + random(5000)) end wait(50 + random(25)) FindNormalRandoms AntiBan FindTalk until(isfkeydown(12)) end.
    Interested in C# and Electrical Engineering? This might interest you.

  13. #13
    Join Date
    Dec 2006
    Location
    Helsinki, Finland
    Posts
    177
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Lol, nice. That must be against scripting standards

  14. #14
    Join Date
    Dec 2006
    Location
    Third rock from the sun.
    Posts
    2,510
    Mentioned
    4 Post(s)
    Quoted
    1 Post(s)

    Default

    Soooo against scripting standards

  15. #15
    Join Date
    Jun 2006
    Posts
    250
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    OWNED.

    It may be 45 lines, but methinks it would run for hours...
    SCAR Code:
    program Fighter;
    {.include SRL\SRL.scar}
    {.include SRL\SRL\Skill\fighting.scar}
    const MonsterColor = 2907004;

    Var
    Kills: integer;

    Function InFightAt(x, y: Integer):Boolean;
    var
      dx, dy: Integer;
    begin
     if ( FindColor(dx, dy, GreenStatusColor, x - 20, y - 10, x + 20, y + 10) or
        FindColor(dx, dy, RedStatusColor, x - 20, y - 10, x + 20, y + 10)   or
        FindColor(dx, dy, 16728128, x - 20, y - 10, x + 20, y + 10)   or
        FindColor(dx, dy, 192, x - 20, y - 10, x + 20, y + 10) ) then
        Result:=True;
    end;

    Procedure Randoms;
    Begin
      FindNormalRandoms;
      FindTalk;
      If isfkeydown(12) then TerminateScript
    End;

    begin
      SetupSRL;
      repeat
        SendArrowSilentWait(1,200+random(500))
        if InFight then Kills := Kills + 1
        if (FindObj3(x, y, 'Attack', MonsterColor, 5) and (InFight = false)) then
          if (not InFightAt(x,y)) then
          Begin
            Mouse(x, y, 5, 5, true);
            Flag
            Wait(1000)
          End
        While Infight do Randoms
        Randoms
        AntiBan;
        ClearDebug
        Writeln('You have killed ' + inttostr(kills) + ' monsters!')
      until (False)
    end.

  16. #16
    Join Date
    Dec 2006
    Location
    .̿̂̔͋͗̎̆ͥ̍̒ͤ͂̾̌̀̅
    Posts
    3,012
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    Owned ?

    SCAR Code:
    program SeagullKiller; {.include SRL/SRL.scar} {.include SRL/SRL/Skill/Fighting.scar} {.include SRL/SRL/Skill/Ranging.scar} const GullsToOwn = 125; FightWay = 2; ReportTime = 60;  RandomTimeOut = 5; WaitTime = 3; FastKilling = True;  ArrowPicking = False; AntiB = true; AntiR = True; var GullCol : array[0..5]of integer; KillsDone,WaitGull,Attacks,FastWaiting,MMWater :integer; WAN :boolean; procedure DeclarePlayers; begin HowManyPlayers:= 1; NumberOfPlayers(HowManyPlayers); Players[0].Name :=''; Players[0].Pass :=''; Players[0].Nick :=''; Players[0].Active :=True; end; procedure SetUpPlayer; begin if(not(LoggedIn))then begin LogInPlayer; end; if(LoggedIn)then begin SetFightMode(FightWay); Wait(345+random(800)); SetRun(True); Wait(450+random(300)); PerfectNorth; end; end; procedure Getposition; var GFC :integer; WA :integer; BL :integer; ToF :boolean; begin GFC:=0; BL:=0; WAN:=False; if(FindBitmapToleranceIn(MMWater,x,y,MMx1,MMy1,MMx2,MMy2,50))then begin Writeln('Found water'); WAN:=True; Exit; end; if(not(FindBitmapToleranceIn(MMWater,x,y,MMx1,MMy1,MMx2,MMy2,50)))then Writeln('Cant find water... We maybe lost..'); repeat BL:=BL+1; WA:=random(5); if(FindObj(x,y,'eag',GullCol[WA],15))then begin Writeln('Still found the seagull..'); Players[CurrentPlayer].loc := 'Not clear.'; ToF:=True; end; until(ToF=True)or(BL=10); if(BL=10)then begin Writeln('Cant find water or seagulls! We must be lost.'); LogOut; WAN:=False; TerminateScript; if(ToF=True)then begin Writeln('We will try to survive...'); WAN:=True; Exit; end; end; end; Procedure AntiBanzZ; var RaBC : Integer; begin if(AntiB)then begin if(not(LoggedIn))then begin Exit; end; RaBC:=Random(35) case RaBC of 1: BoredEvery(2 + Random(10)); 2: MakeCompass('N'); 3: HoverSkill('Strenght',false); 4: LeaveScreenEvery(10 + Random(5)); 5: BoredEvery(9 + Random (21)); 6: DoEmote(1 + Random(20)); 7: RotateEvery(20 + Random(5)); 8: MMouse(Random(300),Random(400),10,10) end; end; end; procedure CheckLogin; begin if(not(LoggedIn))then begin Writeln('Not logged in...'); LogInPlayer; Writeln('Logged in.'); end; end; procedure LoadStuff; begin GullCol[0]:= 6596828; GullCol[1]:= 6399189; GullCol[2]:= 15395821; GullCol[3]:= 9737375; GullCol[4]:= 14869733; GullCol[5]:= 5673663; MMWater:=BitmapFromString(2,2,'6277A56277A56277A56277A5'); WaitGull:=WaitTime*1000; end; procedure LoadWaiting; begin if(FastKilling=true)then begin FastWaiting:=12*10000; end; if(FastKilling=true)then begin FastWaiting:=20*10000; end; end; procedure QuickRands; begin if(not(AntiR))then begin exit; end; if(AntiR)then begin CloseWindow; Wait(10); FindTalk; Wait(10); FindDead; Wait(10); FindMime; Wait(10); FindMaze; Wait(10); FindQuiz; Wait(10); FindScapeRune; Wait(10); ClickToContinue; Wait(10); FindTalk; Wait(10+Random(50)); end; end; procedure CheckFightStatus; var ReleaseLoop :integer; begin ReleaseLoop:=0; if(not(InFight))then begin Exit; end; if(InFight)then begin repeat ReleaseLoop:=ReleaseLoop+1; Wait(WaitGull+random(2000)); QuickRands; until(not(InFight))or(ReleaseLoop=5) KillsDone:=KillsDone+1; end; end; procedure KillTheBitches; var RAG :integer; DBL :integer; WA :integer; MarkT :integer; begin MarkTime(MarkT); DBL:=0; RAG:=RandomTimeOut+random(5); Writeln('Killing seagulls..'); repeat CheckLogin; DBL:=DBL+1; CheckFightStatus; WA:=random(5); if(FindObj(x,y,'eag',GullCol[WA],15))then begin MMouse(x+random(3),y+random(3),2,2); Mouse(x,y,2,2,true); Flag; Attacks:=Attacks+1; QuickRands; end; until(DBL=RAG)or(TimeFromMark(MarkT)=FastWaiting+random(12000)); end; procedure ProgressReport; begin Writeln('****----Seagull Slasher by GoF ProgressReport----****'); Writeln(''); Writeln('Killed '+inttostr(KillsDone)+' out of '+inttostr(GullsToOwn)+' Seagulls.'); Writeln('Total time used: '+TimeRunning); Writeln('Times Attacked Seagulls:'+IntToStr(Attacks)+''); Writeln(''); Writeln('****----------------End Of Report----------------****'); end; procedure MainLoop; begin if (not(LoggedIn)) then begin LoginPlayer; end; SetUpPlayer; repeat if(not(LoggedIn)) then begin LoginPlayer; end; KillTheBitches; AntiBanzz; Getposition; FindNormalRandoms; ProgressReport; until (KillsDone=GullsToOwn) end; begin SetUpSRL; LoadStuff; LoadWaiting; DeclarePlayers; MainLoop; end.

  17. #17
    Join Date
    Sep 2006
    Location
    New Jersey, USA
    Posts
    5,347
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    What scripting standards?
    Interested in C# and Electrical Engineering? This might interest you.

  18. #18
    Join Date
    Jun 2006
    Posts
    250
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Teehee.

    I've developed a propper fighter from this now:
    SCAR Code:
    program SimpleFighter;
    {.include SRL\SRL.scar}
    {.include SRL\SRL\Skill\fighting.scar}

    /////////////////////////////////////////////////////////////
    ///////////////////////Instructions//////////////////////////
    /////////////////////////////////////////////////////////////
    ////////////////////Setup MonsterColor///////////////////////
    //////////////////////Hold f12 to stop///////////////////////
    /////////////////////////////////////////////////////////////

    const MonsterColor = 2510699;
    Const Tolerance = 5;
    const MultiFight = False; //Can you attack a monster already fighting
    Const RunDir = 'N';

    Const StartPlayer = 0;  // Determines who will play first

    Procedure DeclarePlayers;
    begin
         HowManyPlayers  :=1;               // Set Number of Players here.
         NumberOfPlayers(HowManyPlayers);   // Sets the Players Array Length;
         CurrentPlayer:=StartPlayer;        // CurrentPlayer = Array Index

         Players[0].Name :='';
         Players[0].Pass :='';
         Players[0].Nick :='';
         Players[0].Loc  :='Loc1';
         Players[0].Skill:='Mining';
         Players[0].Active:=True;

         writeln('You have currently ' +inttostr(HowManyPlayers)+' Players set to run. The starting player is '+ players[currentplayer].name);

    End;


    Var
    Kills,RanMark,HpMark: integer;

    Procedure Spin(Time: integer);
    Var a : integer;
    Begin
      A := Random(3)
      if (a = 0) then a := 1
      if (a = 2) then a := 3
      SendArrowSilentWait(a, Time);
    end;

    Function InFightAt(x, y: Integer):Boolean;
    var
      dx, dy: Integer;
    begin
     if ( FindColor(dx, dy, GreenStatusColor, x - 20, y - 10, x + 20, y + 10) or
        FindColor(dx, dy, RedStatusColor, x - 20, y - 10, x + 20, y + 10)   or
        FindColor(dx, dy, 16728128, x - 20, y - 10, x + 20, y + 10)   or
        FindColor(dx, dy, 192, x - 20, y - 10, x + 20, y + 10) ) then
        Result:=True;
    end;

    Procedure WaitForHp;
    Begin
      Repeat
        If Random(3) = 0 then Spin(200+random(500))
        Wait(5000)
        FindTalk
        FindNormalRandoms
        If Random(3) = 0 then RandomRClick
      Until ((HpPercent > 50) or (TimeFromMark(HpMark) > 240000))
    End;

    Procedure Randoms;
    Begin
      Status(IntToStr(TimeFromMark(RanMark)) + 'ms since last randoms check')
      FindNormalRandoms;
      FindTalk;
      If isfkeydown(12) then TerminateScript
      If random(30) = 0 then
       if(HpPercent < 30)then
        Begin; MarkTime(HpMark); RunTo(RunDir,true); WaitForHp; End;
      MarkTime(RanMark)
      If Random(9) = 0 then Spin(200+random(500))
    End;

    begin
      SetupSRL;
      DeclarePlayers
      NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
      SetRun(True)
      repeat
        Spin(200+random(500))
        if InFight then Kills := Kills + 1
        if (FindObj3(x, y, 'Attack', MonsterColor, Tolerance) and (InFight = false)) then
          if ((not InFightAt(x,y)) or (MultiFight = true)) then
          Begin
            Mouse(x, y, 5, 5, true);
            Wait(500)
            Flag
            Wait(500)
          End
        While Infight do Randoms
        Randoms
        AntiBan;
        ClearDebug
        Writeln('You have worked for ' + TimeRunning + '!')
        Writeln('You have killed ' + inttostr(kills) + ' monsters!')
        SRLRandomsReport
      until (False)
    end.

    I'll release it after a 2 hour test.

  19. #19
    Join Date
    Sep 2006
    Location
    New Jersey, USA
    Posts
    5,347
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    Nice! Wow...did I really start this?
    Interested in C# and Electrical Engineering? This might interest you.

  20. #20
    Join Date
    Feb 2007
    Posts
    43
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    well this auto fighter wont even attack... it just keeps lookin at the monster

  21. #21
    Join Date
    Jun 2006
    Posts
    250
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Meh. Worked for me

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. New Autofighter?
    By Skepsis in forum News and General
    Replies: 10
    Last Post: 12-03-2007, 08:42 AM
  2. Need a simple autofighter, please help =(
    By blindman in forum RS3 Outdated / Broken Scripts
    Replies: 6
    Last Post: 06-27-2007, 10:40 PM
  3. Replies: 5
    Last Post: 03-26-2007, 07:57 PM
  4. [Req][Scar] Simple Autofighter
    By jacksmannequin in forum RS3 Outdated / Broken Scripts
    Replies: 4
    Last Post: 01-28-2007, 09:52 PM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •