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,ScreenCharsFight ing: 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.


Reply With Quote












