SRL Archive - RS Scripts

well im not taking credit for this script other than editing it this is not my script also leave comments on how to make it more anti ban

// MonsterColor Setup on line 197
// MonsterName: Setup on line 201

program BumFighterAdvanced;
{.include SSI2.txt}
{.include BoxBreaker2.txt}
var
ABCase1,ABCase2,ABCount: Integer;
ABMouse,ABMouse2,Fighting,Looking,ScreenCharsFighting: Boolean;
MonsterColor,MonsterName: Integer;

Procedure Review;
Begin
Writeln('')
Writeln('')
Writeln('BumSlaughter V1.0')
Writeln('::::::::::::::::::')
If ABMouse=True Then
Begin
Writeln('Status: Human Simulation')
End;
If ABMouse2=True Then
Begin
Writeln('Status: Fighting/Human Simulation')
End;
If Looking=True Then
Begin
Writeln('Status: Not Fighting, Looking For Monster.')
End;
Writeln('')
Writeln('')
Writeln('')
End;

Procedure AntiBan1;
Begin
ABMouse:=True
Status('AntiBan Activated!')
ABCase1:=Random(4)
ABCase1:=Random(4)
Review;
Case ABCase1 Of
1:
Begin
MMouse(586,310,21,21)
Wait(100+Random(100))
MMouse(457,202,40,40)
Wait(100+Random(100))
MMouse(307,388,40,40)
Wait(100+Random(100))
MMouse(194,248,40,40)
Wait(100+Random(100))
MMouse(246,98,40,40)
Wait(100+Random(100))
End;
2:
Begin
Status('Checking Stats!')
Mouse(586,184,7,7,true)
Wait(20+Random(20))
GetMousePos(x,y)
MMouse(x,y,2,2)
Wait(125+Random(125))
MMouse(636,251,2,2)
Wait(12+random(9))
MMouse(648,222,7,7)
Wait(20+random(25))
GetMousePos(x,y)
MMouse(x,y,2,4)
Wait(1000+Random(1000))
End;
3:
Begin
MMouse(600,276,20,12)
Wait(45+Random(25))
MMouse(616,283,12,17)
Wait(45+Random(25))
MMouse(614,423,12,17)
Wait(190+Random(225))
Mouse(559,186,7,7,True)
Wait(500+Random(500))
GetMousePos(X,Y)
Wait(20+Random(5))
MMouse(x,y,2,6)
Mouse(584,187,2,2,true)
Wait(1000+random(200))
End;
End;
ABMouse:=False;
Review;
End;

Procedure AntiBan2;
Begin
ABMouse2:=True
ABCase2:=Random(7)
ABCase2:=Random(7)
Review;
Case ABCase2 Of
1:
Begin
MMouse(266,175,250,160)
Wait(300+Random(50))
MMouse(266,175,250,160)
Wait(300+Random(50))
MMouse(266,175,250,160)
Wait(300+Random(50))
End;
2:
Begin
MMouse(266,175,250,160)
Wait(50+Random(50))
MMouse(266,175,250,160)
Wait(300+Random(50))
MMouse(266,175,250,160)
Wait(50+Random(50))
MMouse(266,175,250,160)
Wait(800+Random(50))
MMouse(266,175,250,160)
Wait(50+Random(50))
End;
3:
Begin
Wait(2000+Random(1200))
End;
4:
Begin
MMouse(327,199,300,180)
Wait(400+Random(400))
MMouse(327,199,300,180)
Wait(75+Random(400))
MMouse(327,199,300,180)
Wait(400+Random(400))
End;
5:
Begin
MMouse(327,199,300,180)
Wait(400+Random(400))
MMouse(327,199,300,180)
Wait(400+Random(400))
MMouse(327,199,300,180)
Wait(400+Random(400))
MMouse(327,199,300,180)
MMouse(327,199,300,180)
Wait(400+Random(400))
End;
6:
Begin
GetMousePos(X,Y)
MMouse(x,y,2,2)
GetMousePos(X,Y)
MMouse(x,y,2,2)
Wait(25+Random(20))
GetMousePos(X,Y)
MMouse(x,y,2,2)
Wait(25+Random(20))
End;
7:
Begin
GetMousePos(X,Y)
MMouse(x,y,2,2)
Wait(105+Random(20))
GetMousePos(X,Y)
MMouse(x,y,2,2)
GetMousePos(X,Y)
MMouse(x,y,2,2)
Wait(200+Random(22))
GetMousePos(X,Y)
MMouse(x,y,2,2)
Wait(200+Random(22))
End;
End;
ABMouse2:=False;
Review;
End;

Procedure FindFiend;
Begin
Looking:=True;
Review; {*Color*}
If FindColorTolerance(x,y,6645641,0,0,510,333,10) Then
Begin {^Color^}
MMouse(x,y,3,3)
Wait(500+Random(500)) {*Monster*}
If IsTextInAreaEx(53,6,117,22,x,y,'Giant rat',100,UpChars,True,false,0,1,57054) then
Begin {^Monster^}
GetMousePos(x,y)
Mouse(x,y,1,1,True)
FindStrangeBox;
Wait(1600+Random(900))
Looking:=False;
End;
End;
End;

Procedure SetVariables;
Begin
ABCount:=0
UpChars:= LoadChars2(AppPath + 'CharsRS22\');
ChatChars:= LoadChars2(AppPath + 'CharsChat2\');
End;

Procedure Engine;
Begin
Repeat
Wait(20+Random(20))
Review;
ABCount:=ABCount+1
If FindColorTolerance(x,y,65280,0,0,508,330,10) Then
Begin
Fighting:=True;
End
If Not FindColorTolerance(x,y,65280,0,0,508,330,10) Then
Begin
Fighting:=False;
End
If Fighting=False Then
Begin
FindFiend;
End;
If Fighting=True Then
Begin
AntiBan2;
End;
Until(False);
End;

begin
BoxOpenerSetup;
SetVariables;
Engine;
end.

1st of all Please upload it not post it
2nd of all that script is WAAAY! outdated any inlcude that isnt SRL isnt fuctional anymore
3rd of all wtf does it do?
4th of all *STANDARDS*

Relax, it's probably his first try at scripting. Anyway, ( I don't mean this mean, but) can someone delete this, these old functions are usually very detectable. Use SRL my friend ;)

i am releaxed wtf..
and you just posted beascial exactly what i said…
and as he sid its not HIS script ^

moved

it doesnt use srl and is REALLY old

old script :S

lol