BumFighter SRL 1.0.0

SRL is required to be installed. This was written on SCAR Divi 3.11, with the latest SRL.

SRL is needing tweaking right now, and this is one of the ONLY SRL Scripts that still works.

This Autofighter is universal, can be set for all monsters, with anti-randoms and anti-ban, easily setup too.

If you don't know how to use SCAR, or SRL, don't post asking what to do.

Code:

{
 BumFighter SRL v1.0.0

 Program in your settings on line 18.

 Universal AutoFighter, with Anti-Ban and Anti-Randoms.

 - Enjoy
}
program BFSRL;
var
col1,col2,col3,coltol,attacktime,antibanmins,killscripthour,size: integer;
colmonname,rawmenutext: string;
{.Include srl/srl.scar}

Procedure ScriptSettings;
begin
 colmonname:= 'rawler'  //Monster Name
 col1:= 1076883         //Monster Color 1
 col2:= 1076111         //Monster Color 2
 col3:= 1658214         //Monster Color 3
 size:= 1               //Monster Range (1-5) The area the mouse randomly moves to away from the monster color it returns.
 coltol:= 5             //Tolerance of Monster Colors
 attacktime:= 4000      //Repeat time for re-attacking Monsters
 AntiBanMins:= 1        //Every Minute to do Antibans
 KillScriptHour:= 5     //How many hours to kill script
end;

//SRL PROCEDURES AND FUNCTIONS --- >
procedure KillScript(hours: Integer);
begin
  if ((TimeFromMark(KillScriptMark) / 1000) / 3600 >= hours) then
  begin
    WriteLn('Stopping script at ' + IntToStr(hours) + ' hours');
    MMouse(Random(500), -10, 0, 0);
    TerminateScript;
  end;
end;
procedure RotateEvery(mins: Integer);
begin
  if ((TimeFromMark(RotateMark) / 1000) / 60 >= mins) then
  begin
    MarkTime(RotateMark);
    SendArrowSilentWait(Random(4), 500 + Random(500));
    SendArrowSilentWait(Random(4), 500 + Random(500));
    MakeCompass('n');
    SendArrowSilentWait(0, 1400 + Random(100));
  end;
end;
procedure RandomRClickEvery(mins: Integer);
begin
  if ((TimeFromMark(RandomClickMark) / 1000) / 60 >= mins) then
  begin
    MarkTime(RandomClickMark);
    RandomRClick;
  end;
end;
function InFight: Boolean;
begin
  Result := (FindColor(x, y, 65280, 230, 130, 280, 180) or FindColor(x, y, 255,
    230, 130, 280, 180))
end;
//SRL PROCEDURES AND FUNCTIONS < ---

Procedure Attackmon;
var
RightOrLeft: Integer;
Begin
RightOrLeft:=Random(2)
 If InFight=True Then
  Begin
   Wait(500+Random(500))
  End;
 If InFight=False Then
  Begin
   If FindColorTolerance(x,y,col1,0,0,509,336,coltol) or
      FindColorTolerance(x,y,col2,0,0,509,336,coltol) or
      FindColorTolerance(x,y,col3,0,0,509,336,coltol) then
       Begin
        MouseSpeed:=1+random(5)
         Case RightOrLeft Of
          1:
           Begin;
            Mouse(x,y,size,size,false)
            Wait(300+random(300))
            if ChooseOption(x,y,(colmonname))then
             Begin
              Wait(attacktime+random(2000))
             End
            if not ChooseOption(x,y,(colmonname))then
             Begin
              Attackmon;
             End;
           End;
          2:
           Begin
            Mouse(x,y,1,1,True)
            Wait(attacktime+random(2000))
           End;
        End;
      End;
  End;
End;

Procedure NoBan;
var
bancheck: integer;
begin
 RotateEvery(2)
 RandomRClickEvery(4)
 KillScript(KillScriptHour)
 bancheck:=Random(8)
 if BanCheck=3 Then
  begin
   If FindNormalRandoms=True Then
    Begin
     SolveTalkingRandom(RawMenuText)
    end;
  end;
end;

Procedure EnableRun;
Begin
 Mouse(675,546,5,5,true)
 Wait(500+random(500))
 If Not FindColorTolerance(x,y,1974404,617,468,668,516,5) then
  begin
   Mouse(639,493,5,5,true)
   Wait(300+random(300))
  end;
End;

Procedure MouseMovements;
var
WhatMouseMovements: Integer;
Begin
 WhatMouseMovements:=Random(10)
  if WhatMouseMovements=1 then
   begin
    MMouse(92,130,80,100)
    Wait(200+random(200))
   end;
  if WhatMouseMovements=2 then
   begin
    MMouse(86,351,75,165)
    Wait(200+random(200))
   end;
  if WhatMouseMovements=3 then
   begin
    MMouse(321,378,175,175)
    Wait(200+random(200))
   end;
  if WhatMouseMovements=4 then
   begin
    MMouse(501,210,80,100)
    Wait(200+random(200))
   end;
  if WhatMouseMovements=5 then
   begin
    MMouse(654,374,10,100)
    Wait(200+random(200))
   end;
End;

Procedure ClickATab;
var
Whichtab: Integer;
Begin
Wait(200+random(300))
 Whichtab:=Random(5)
 if Whichtab=1 Then
  Begin
   Mouse(579,247,10,10,true)
   Wait(200+random(200))
  End;
 if Whichtab=2 Then
  Begin
   Mouse(541, 246,10,10,true)
   Wait(200+random(200))
  End;
 if Whichtab=3 Then
  Begin
   Mouse(577,547,10,10,true)
   Wait(200+random(200))
  End;
 if Whichtab=4 Then
  Begin
   Mouse(709,243,10,10,true)
   Wait(200+random(200))
  End;
 if Whichtab=5 Then
  Begin
   Mouse(577,249,10,10,true)
   Wait(200+random(200))
   MMouse(582,316,7,7)
   Wait(1500+random(500))
  End;
End;

Procedure RandomActionProc;
var
WhatAction: Integer;
begin
 WhatAction:=Random(3)
 if WhatAction=1 Then
  Begin
   ClickATab;
   Writeln('click a tab')
  End;
 if WhatAction=2 Then
  Begin
   MouseMovements;
   Writeln('Mouse Movements')
  End;
 if WhatAction=3 Then
  Begin
   EnableRun;
   Writeln('Enable Run')
  End;
end;

Procedure StartScript;
var
RandomAction: Integer;
begin
 Attackmon;
 NoBan;
 Wait(200+Random(200))
 RandomAction:=Random(3)
 if RandomAction=2 then
  begin
   RandomActionProc;
  end;
end;


begin
SetupSRL;
 Repeat
  ScriptSettings;
  Wait(500+random(100))
  StartScript;
 Until(false);
end.

 

im ganan test right now .. it come with auto food eater?..

 

sounds ok

 

works great man, good job

 

So this thing auto attacks?

 

Hmmmm i set Coulers and all that , Play , it Just rights clicks and examines everything >.<

 

grr same thing is happening to me

 

hm il actuly try it lol i dident the first time

 

eh hope it works with new srl >.<seems like a good script

 

I said before, this is a great script i use it all the time, only problem, antiban doesnt always work but other than that great easy to use script.

 

how do i download it (n000b alert) do i just copy all the code and paste into scar or what

 

Looks good. Ill try it

 

Yea it does a lot of examining stuff. It's cause the colors on monster are same as a lot of the surrounding these days. RS trying to get rid of autoers...

 

Not many people report auto fighter's...atleast not in f2p but im gonna test it hope it works

 

go to rscheata.net and get nexus
its best thing out here right now

 

for guys that gets it examine everything, you need to take the collors of the enemy and paste it in the script, that way it will attack the monsters

 

Stevogangsta I don't think thats the problem. Like puredragonn said, Runescape is making many of the colors of the monsters similar to many objects and its surroundings in an attempt to get rid of its autoers.

Has anybody been banned with this script yet?

 

Works like a charm, I ran it for about 1 hour 35 min no problems, thanks!
I'll inform you if I get a ban, I'll continue to run it for about another 2 hours

 

okay, i have all the includes and SRL and im getting Error on line 32.

Line 32: [Error] (14713:19): Unknown identifier 'KillScriptMark' in script