BumFighter SRL 1.0.0 [CURRENTLY WORKING]

[Bumis]

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.

{
 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.

 

[canofan]

alright i just puit the scrip in..... congrats succesfullly compilied baout to try it

 

[canofan]

just uh one quick q how do i get it to work exactly it wud be much better if u gave a nice quick tut

 

[Bumis]

Download SCAR from whereever you get it. 3.11 Divi. Make sure it downloads the includes and SRL, copy and paste the code into SCAR, save the Script as "BumFighter SRL 1.0.0.scar", and read the top of the script, tells you which line to setup. Use color picker, enter colors, part of the monsters name (case sensitive), and run it.