SRL Archive - Outdated / Broken

[SRL] BumisFighter

ollie

2006-05-06 17:55:15

NEW VERSION OF BUMFIGHTER IS OUT -

http://www.villavu.com/forums/showthread.php?t=1547

For Archive, Old Script Here

Made By Bumis, Edit By Me - I Got His Permission From MoparIsTheBest.com

Ollie/Radeon took my script, and he added Random Events, but removed alot of my code, such as my AutoHeal, it's back and much better.

New Features:
1. Anti-Randoms: Thanks to SRL & Ollie
2. Universal Healing: Pick your food and when to heal easily!.
3. Super speed from BumFighter 1.2 and Ollie's update. About 5x Faster!!!
3. Improved ban prection.

4: Removed the random right/left click, and made it always left. Goes faster.

This is a fully functional AutoFighter now. I think the next step will be adding forms, to make it alot cleaner.

Enjoy, I stayed up all night writing this nubs.


//////////////////////////////////////////////////
//               BumiSRL Fighter 2.0            //
//////////////////////////////////////////////////
//    BumFighter 1.1, Edited by Ollie/Radeon.   //
//////////////////////////////////////////////////
//               Setup On Line 23               //
//               ////////\\\\\\\\               //
//////////////////////////////////////////////////
program RADFighter;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Fighting.scar}
var
ABCase1,ABCase2,FightMode: Integer;
ABMouse,Fighting,AutoLogin: Boolean;
Color1,Color2,Color3,tol: Integer;
HPCount: Integer;
user,pass:string;
stop,DoSomethingWeird: Integer;
P1,P2,P3,P4,P5,P6,P7,HealWhen,FoodColor: Integer;
UseFood: Boolean;

Procedure Setup;
begin
{ User Setup}
User:='username';
Pass:='password';
FightMode:=1;
AutoLogin:=true;
{ Monster Setup }
Color1:=7028284;        // Color Of Monster1 Here
Color2:=5517358;        // Color Of Monster2 Here
Color3:=3940898;        // Color Of Monster3 Here
tol:=10;                // Tolerance to find the monster color. 10 is default
{ Food Setup }
UseFood:=False
FoodColor:=000000002
HealWhen:=4             //2=20HP, 3=30HP,4=40HP ect

End;

procedure FindRandoms;
begin
  RotateEvery(1+random(5))
  FindNormalRandoms;
  ClickToContinue;
  CloseWindow;
  FindLamp('mining');
  FindDead;
  FindMod;
  FindMime;
  FindMaze;
  FindQuiz;
  FindFrog;
  FindDemon;
  if Findname Then FindTalk;
end;

Procedure OpenFriends;
Begin
 Mouse(584,485,5,5,true)
 Wait(300+random(300))
End;

Procedure AntiBan1;
Begin
 ABMouse:=True
 Status('AntiBan Activated!')
 ABCase1:=Random(5)
 ABCase1:=Random(5)
 Case ABCase1 Of
  1:
   Begin
    MMouse(586,310,21,21)
    Wait(100+Random(100))
    MMouse(246,98,40,40)
    Wait(100+Random(100))
    FindRandoms;
   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))
    GetMousePos(x,y)
    MMouse(x,y,2,4)
    Wait(1000+Random(1000))
    FindRandoms;
   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))
    FindRandoms;
   End;
  4:
   Begin
    CMMouse(585,187,5,5)
    Wait(1+random(20))
    GetMousePos(x,y)
    Mouse(x,y,0,0,true)
    Wait(120+random(120))
    CMMouse(588,265,20,20)
    Wait(2000+random(1000))
   End;
 End;
End;

Procedure AntiBan2;
Begin
 ABCase2:=Random(9)
 ABCase2:=Random(9)
 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))
    FindRandoms;
   End;
  2:
   Begin
    MMouse(266,175,250,160)
    Wait(800+Random(50))
    MMouse(266,175,250,160)
    Wait(50+Random(50))
    OpenFriends;
    FindRandoms;
   End;
  3:
   Begin
    Wait(2000+Random(1200))
    FindRandoms;
   End;
  4:
   Begin
    MMouse(327,199,300,180)
    Wait(400+Random(400))
    MMouse(327,199,300,180)
    Wait(75+Random(400))
    FindRandoms;
   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))
    DoSomeThingWeird:=Random(4)
     Case DoSomeThingWeird Of
       1:
        Begin
         OpenFriends;
        End;
       2:
        begin
        end
       3:
        begin
        end
       4:
        begin
        end;
      End;
    FindRandoms;
   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))
    FindRandoms;
   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))
    FindRandoms;
   End;
 End;
End;

Procedure RenameScar;
begin
DisguiseScar('iTunes');
end;

Procedure FindFoe;
begin
If FindColorTolerance(x,y,Color1,0,0,511,330,tol) or
   FindColorTolerance(x,y,Color2,0,0,511,330,tol) or
   FindColorTolerance(x,y,Color3,0,0,511,330,tol) then
   Begin
    MMouse(x,y,1,1)
    Wait(20+random(20))
    If IsTextInAreaEx(4,4,55,24,x,y,'Attack',100,UpChars,True,false,0,1,14475232) then
     Begin
      GetMousePos(x,y)
      Mouse(x,y,0,1,true)
      GetMousePos(X,Y)
      wait(2000+random(500))
      GetMousePos(X,Y)
     End;
   End;
If not FindColorTolerance(x,y,Color1,0,0,511,330,tol) or
     FindColorTolerance(x,y,Color2,0,0,511,330,tol) or
     FindColorTolerance(x,y,Color3,0,0,511,330,tol) then
 Begin
  Wait(50+random(20))
 End;
end;

Procedure Heal;
Begin
 Writeln('')
 Writeln('--- Eating')
 Writeln('')
 Mouse(648,183,3,3,true)
 Wait(700+Random(200))
 If FindColorTolerance(x,y,FoodColor,555,209,743,466,10) then
  Begin
   Wait(25+random(20))
   MMouse(x,y,5,5)
   Wait(100+Random(200))
   If IsTextInAreaEx(0,0,30,22,x,y,'Eat',100,UpChars,True,false,0,1,15198183) then
    Begin
     GetMousePos(x,y)
     MMouse(x,y,1,1)
     Mouse(x,y,0,0,true)
    End
  End;
 If not FindColorTolerance(x,y,FoodColor,555,209,743,466,10) then
  Begin
   Writeln('')
   Writeln('--- Out Of Food... Signing off!')
   Writeln('')
   Wait(15000+random(5000))
   Mouse(646,480,5,5,true)
   Wait(500+random(500))
   Mouse(646,373,3,3,true)
   Wait(5000+random(2000))
   Mouse(646,480,5,5,true)
   Wait(500+random(500))
   Mouse(646,373,3,3,true)
   Wait(160000+Random(160000))
   Stop:=1
  End;
End;

Procedure LookAtHP;
begin
If Not FindColorTolerance(x,y,2763390,574,172,598,195,10) then
 Begin
  Mouse(586,186,6,6,true)
  wait(1000+random(200))
 End;
 if (FindBitmapMaskTolerance(P2,x,y,645,206,660,225,10,240))then
  begin
   Status('HP: 20s...')
   If HealWhen=2 Then
    Begin
     Heal;
    End;
  end;
 if (FindBitmapMaskTolerance(p3,x,y,645,206,660,225,10,240))then
  begin
   Status('HP: 30s...')
   if HealWhen=3 Then
    Begin
     Heal;
     End;
  end;
  if (FindBitmapMaskTolerance(p4,x,y,645,206,660,225,10,240))then
  begin
   Status('HP: 40s...')
   if HealWhen=4 Then
    Begin
     Heal;
     End;
  end;
 if (FindBitmapMaskTolerance(p5,x,y,645,206,660,225,10,240))then
  begin
   Status('HP: 50s...')
   if HealWhen=5 Then
    Begin
     Heal;
     End;
  end;
 if (FindBitmapMaskTolerance(p6,x,y,645,206,660,225,10,240))then
  begin
   if HealWhen=6 Then
    Begin
     Heal;
     End;
  end;
  if (FindBitmapMaskTolerance(p7,x,y,645,206,660,225,10,240))then
  begin
   if HealWhen=7 Then
    Begin
     Heal;
     End;
  end;
end;

Procedure Engine;
Begin
HPCount:=HPCOUNT+1
If HPCount=3+Random(3) Then
 Begin
  If UseFood=True Then
   Begin
    Writeln('looking at hp')
    HPCount:=0
    LookAtHP;
   End;
 End;
  Repeat
   Wait(20+Random(20))
   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
     FindFoe;
    End;
   If Fighting=True Then
    Begin
     AntiBan2;
    End;
  Until(False);
End;

Procedure SetFighting;
Begin
 Mouse(559,177,7,7,True)
 Wait(500+Random(1000))
  Case FightMode Of
   1:
    Begin
     Status('FightMode = 1')
     Mouse(598,285,10,10,true)
     Wait(1000+Random(1000))
    End;
   2:
    Begin
     Status('FightMode = 2')
     Mouse(600,325,10,10,true)
     Wait(1000+Random(1000))
    End;
   3:
    Begin
     Status('FightMode = 3')
     Mouse(597,366,10,10,true)
     Wait(1000+Random(1000))
    End;
   4:
    Begin
     Status('FightMode = 4')
     Mouse(600,406,10,10,true)
     Wait(1000+Random(1000))
    End;
  End;
End;



 Procedure Login;
 Var
  ClickHereToPlay, Tx, Ty, C : Integer;
 Begin;
 if(AutoLogin)then
   ClickHereToPlay := BitmapFromString(29, 2, 'z78DA7373230C0C' +
     'C0C0CCD4D0C0C014971A73376323232333274367034B08896902A' +
     '60804983A1A9A1A58E03219228B693BB209585C8BC30DC800EA5A' +
     'BCFE4251EF6A6460688AE95A2C2683CD040002BE5286');
   If(Not(LoggedIn))Then
    Begin
      Wait(1000);
      ClickOption('Cancel', 1);
      ClickOption('Exist', 1);
      If(ClickOption('Username', 1))Then
        Begin
          TypeSend(''+User+'');
          Wait(100 + Random(100));
          Mouse(327, 272, 0, 0, True);
          TypeSend(''+Pass+'');
          Wait(100 + Random(100));
        End;
      ClickOption('Login', 1);
      MarkTime(Mark);
      Repeat
       Wait(100);
      Until(Not(FindText(Tx, ty, 'onnect', UpChars, 240, 200, 530, 240)))Or(TimeFromMark(Mark) > 20000);
      Repeat
       Wait(1000);
      Until(FindBitmapToleranceIn(ClickHereToPlay, X, Y, 380, 290, 620, 380, 20));
      Wait(1000 + Random(500));
      Mouse(x, y, 20, 2, True);
      Repeat
       Wait(1000);
       C := C+1;
      Until(LoggedIn)Or(C >= 600);
    End;
  FreeBitmap(ClickHereToPlay);
 End;
 
Procedure Images;
begin
 P1 := BitmapFromString(3, 8,
       '000000FFFFFF000000FFFFFFFFFFFF000000000000FFFFFF000000' +
       '000000FFFFFF000000000000FFFFFF000000000000FFFFFF000000' +
       '000000FFFFFF000000FFFFFFFFFFFFFFFFFF');
 P2 := BitmapFromString(5, 8,
       '000000FFFFFFFFFFFFFFFFFF000000FFFFFF000000000000000000' +
       'FFFFFF000000000000000000000000FFFFFF000000000000000000' +
       'FFFFFF000000000000000000FFFFFF000000000000000000FFFFFF' +
       '000000000000000000FFFFFF000000000000000000000000FFFFFF' +
       'FFFFFFFFFFFFFFFFFFFFFFFF');
 P3 := BitmapFromString(4, 8,
       '000000FFFFFFFFFFFF000000FFFFFF000000000000FFFFFF000000' +
       '000000000000FFFFFF000000FFFFFFFFFFFF000000000000000000' +
       '000000FFFFFF000000000000000000FFFFFFFFFFFF000000000000' +
       'FFFFFF000000FFFFFFFFFFFF000000');
 P4 := BitmapFromString(4, 8,
       'FFFFFF000000000000000000FFFFFF000000000000000000FFFFFF' +
       '000000000000000000FFFFFF000000FFFFFF000000FFFFFF000000' +
       'FFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFFFF' +
       '000000000000000000FFFFFF000000');
 P5 := BitmapFromString(4, 8,
       'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000FFFFFF' +
       '000000000000000000FFFFFFFFFFFFFFFFFF000000000000000000' +
       '000000FFFFFF000000000000000000FFFFFFFFFFFF000000000000' +
       'FFFFFF000000FFFFFFFFFFFF000000'); {Image for 5 in stats}
 P6 := BitmapFromString(5, 8,
       '000000000000FFFFFFFFFFFF000000000000FFFFFF000000000000' +
       'FFFFFFFFFFFF000000000000000000000000FFFFFF000000FFFFFF' +
       'FFFFFF000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
       '000000000000FFFFFFFFFFFF000000000000000000FFFFFF000000' +
       'FFFFFFFFFFFFFFFFFF000000');       {Image for 6 in stats}
 P7 := BitmapFromString(4, 8,
       'FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000FFFFFF000000' +
       '000000FFFFFF000000000000000000FFFFFF000000000000FFFFFF' +
       '000000000000000000FFFFFF000000000000FFFFFF000000000000' +
       '000000FFFFFF000000000000000000');  {Image for 7 in stats}
end;


begin
{ MAIN Stuff Here }
  Writeln('')
  Writeln('BumSRL Fighter 2.0')
  Writeln('')
  Images;
  Setup;
  SetupSRL;
  RenameScar;
  Login;
  SetChat('Off', 1);
  SetChat('Off', 2);
  SetChat('Off', 3);
  SetFighting;
  Engine;
end.
repeat
 FindRandoms;
 wait(300+random(150));
 Engine;
until(stop:=1
end.

lolpie

2006-05-08 19:27:28

i dont know if i am doing anything wrong. when i start logged out, it enters my username and pass, but when the next screen comes (the one with the big red button that says "CLICK HERE TO PLAY") the autofighter doesn't do anything, it doesnt click on the red button.

i have the latest SRL version

SubiN

2006-05-09 00:13:25

it works perfectly well for me ?

Black Hat

2006-05-15 19:11:38

Line 54: Error 12386:1 Unknown Identifier 'FindDoctor' in script

driger1592

2006-05-15 19:14:24

I believe that was taken out in SRL version 2, but I could be wrong ( I need to get more involved some time… ), so just take the line that says FindDoctor; out of the script.

ollie

2006-05-23 09:24:54

yes it was taken out, (Find Doctor)

and you have to wait a little while for it to login :)

leader

2006-05-23 12:16:27

I don't think they have that random anymore anyway.

ollie

2006-05-25 10:05:27

probably not, use my update of this now :)