B
Bumis
Guest
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.
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.
thanks!