SRL Archive - Outdated / Broken

http://revilosoft.com/rs/BumFighter.scp

Yes its in a Scar Project Now :)

848 Lines Of GoodieNess :D



Changes!

Added Player Forms!
Multi-Monster/Colour Support
Randomly Picks a Colour From the Ones You Picked
Added 1337 sk337 Randomness!
Bens Scribble!
Bone Pickup
AnyItem Pickup
New Include by Krazy (Uses SRL Too !!)
Faster then EVER!

Bumis, Yet Another Expansion :)

if you want Bumis, ill stop expaning on your scripts


IF LINK NOT WORKING

//////////////////////////////////////////////////
//               BumiSRL Fighter 2.1            //
//////////////////////////////////////////////////
{
 Version 1 - Made Fighter - Attacked Thugs Only
 Version 1.1 - Attacked Monster By Name
 Version 1.2 - Ollie Made Into SRL <3
 Version 2.0 - Fixed Up Ollies Methods
 Version 2.1 - Ollie Added Loads of New Stuff!
 
        ////////////////////////////////
        //Setup On Lines 28, 46 and 50//
        ////////////////////////////////
 
}
program BumFight;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Fighting.scar}
{.include SRL/SRL/Misc/PlayerForm.Scar}
{.include Anti-Idle.scar}

const


              { ITEM SETUP }
{Cannot Be Down there, Has to Be Above var}

     sp = 1; //Howmany Items To Pickup

  var
 SpecificItems: array[0..sp] of String;
 Lskill: string;
 killcount,killz,ABCase1,ABCase2,FightMode: Integer;
 ABMouse,Fighting: Boolean;
 StartPlayer,bones,Color1,Color2,Color3,Color4,tol: Integer;
 HPCount,SpecLength: Integer;
 stop,DoSomethingWeird,AttItByColour: Integer;
 Bonecolour,bonebmp,P1,P2,P3,P4,P5,P6,P7,HealWhen,FoodColor: Integer;
 UseFood,donttake,AnyItem: Boolean;

const

  { =========================================================================== }
                   { =============== SETUP =============== }
                     
  ItemToPick = 'Coins';   //Whats The Items Name
  
Procedure Setup;
begin
  StartPlayer:= 0;    //What Player Shall Start
  killcount:= 1;      //How Many Monsters To Slay
  FightMode:= 2;      //Your Fightmode From Top To Bottom
  Color1:= 1525854;        // Color Of Monster Here
  Color2:= 1525854;        // Color Of Monster Here
  Color3:= 1525854;        // Color Of Monster Here
  Color4:= 1525854;        // Color Of Monster Here
  tol:= 10;                // Tolerance to find the monster color. 10 is default
  UseFood:= False           //Shall We Use Food?
  FoodColor:= 0;   // Colour Of Food
  Bonecolour:= 0;  // Colour Of Bone
  AnyItem:= False;        // Want To Pick ANY Item?
  HealWhen:= 4             //2=20HP, 3=30HP,4=40HP ect
  Lskill:='hitpoints';     //Skill To Use On The Lamp
End;
                { =============== END-SETUP =============== }
{ =========================================================================== }



{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }
{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }
{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }
{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }
{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }
{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }
{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }
{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }
{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }
{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }
{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }
{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }
{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }
{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }
{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }
{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }
{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }
{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }
{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }
{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }{ DONT EDIT BELOW }


procedure Specifics;
begin
  SpecificItems[0] := ItemToPick;
end;

procedure FindRandoms;
begin
  Writeln('')
  Writeln('')
  Writeln('')
  Writeln('Searching For Randoms')
  Writeln('')
  SetRun(True)
  RotateEvery(1+random(5))
  FindNormalRandoms;
  ClickToContinue;
  CloseWindow;
  FindLamp(Lskill);
  FindDead;
  FindMod;
  FindMime;
  FindMaze;
  FindQuiz;
  FindFrog;
  FindDemon;
  NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars); // Screenname for FIRST Player in case of already loggedin.
  if Findname Then FindTalk;
end;

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

procedure Scribble(time: integer);
var
  StartTime: longint;
  reduce, align: integer;
  Next, Vector: PPoint;
  Last, Cur, Center: TPoint;
begin
  StartTime:= GetSystemTime;
  GetMousePos(Last.X, Last.Y);
  GetClientDimensions(Center.X, Center.Y);
  Center.X:= Center.X / 2;
  Center.Y:= Center.Y / 2;
  Next.R:= 5.0;
  Next.T:= Random(360);
  while GetSystemTime - StartTime < Time do
  begin
    if reduce = 0 then Next.R:= Next.R + ((Random(20) - 10) / 10);
    if (reduce > 0) and (Next.R > 0) then Next.R:= Next.R + ((Random(20) - 20) / 10);
    if (reduce > 0) and (Next.R < 0) then Next.R:= Next.R - ((Random(20) - 20) / 10);
    if Abs(Next.R) > 7 then reduce:= 10;
    Next.T:= FixD((Next.T + (Random(60) - 30)));
    Vector:= ToPolarOffset(Last, Center);
    Cur:= ToCartOffset(Next, Last);
    MoveMouse(Cur.X, Cur.Y);
    if (align > 0) or (Cur.X < 20) or (Cur.Y < 20) or (Cur.X > (Center.X * 2) - 20) or (Cur.Y > (Center.Y * 2) - 20) then
    begin
      Next.T:= AvgAngles(Next.T, Vector.T, 4, 3);
      if align = 0 then align:= 20;
    end;
    Last.X:= Cur.X;
    Last.Y:= Cur.Y;
    if reduce <> 0 then reduce:= reduce - 1;
    if align <> 0 then align:= align - 1;
  end;
end;

 procedure RandomTab;
begin
  Writeln('')
  Writeln('')
  Writeln('')
  Writeln('Switching to A Random GameTab')
  Writeln('')
GameTab(1+random(12));
end;

Procedure AntiBan1;
Begin
 ABMouse:=True
 Status('AntiBan Activated!')
 Writeln('')
  Writeln('')
  Writeln('')
  Writeln('Anti-Ban = True')
  Writeln('')
 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))
    RandomTab;
    Scribble(3000+random(200));
    FindRandoms;
   End;
  2:
   Begin
   Writeln('')
  Writeln('')
  Writeln('')
  Writeln('Checking Stats')
  Writeln('')
    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)
    Scribble(3000+random(200));
    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))
    RandomTab;
   End;
 End;
End;

Procedure AntiBan2;
Begin
 ABCase2:=Random(9)
 ABCase2:=Random(9)
 Case ABCase2 Of
  1:
   Begin
   Scribble(3000+random(200));
    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))
    RandomTab;
    FindRandoms;
   End;
  4:
   Begin
    MMouse(327,199,300,180)
    Wait(400+Random(400))
    Scribble(3000+random(200));
    MMouse(327,199,300,180)
    Wait(75+Random(400))
    RandomTab;
    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
         RandomTab;
        End;
       2:
        begin
        RandomTab;
        end
       3:
        begin
        RandomTab;
        end
       4:
        begin
        RandomTab;
        end;
      End;
    FindRandoms;
   End;
  6:
   Begin
    GetMousePos(X,Y)
    MMouse(x,y,2,2)
    GetMousePos(X,Y)
    Scribble(3000+random(200));
    MMouse(x,y,2,2)
    Wait(25+Random(20))
    GetMousePos(X,Y)
    MMouse(x,y,2,2)
    Scribble(3000+random(200));
    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)
    Scribble(3000+random(200));
    MMouse(x,y,2,2)
    Wait(200+Random(22))
    FindRandoms;
   End;
 End;
End;

function FindObjective2(var cx, cy : Integer; color, tolerance : Integer) : Boolean; // by Stupid3ooo
var
  x, y, a, c, i, x1, y1, x2, y2 : Integer;
begin
  if (FindMSColorTol(x, y, color, tolerance)) then
  begin
    x1 := 245;
    y1 := 165;
    x2 := 277;
    y2 := 185;
    repeat
      if (not (Loggedin)) then
        break;
      a := a + 1;
      if (a = 1) then
        c := c + 1;
      if (a = 3) then
        c := c + 1;
      for i := 1 to c do
      begin
        if (a = 1) then
        begin
          x1 := x1 + 30;
          x2 := x2 + 30;
        end;
        if (a = 2) then
        begin
          y1 := y1 - 20;
          y2 := y2 - 20;
        end;
        if (a = 3) then
        begin
          x1 := x1 - 30;
          x2 := x2 - 30;
        end;
        if (a = 4) then
        begin
          y1 := y1 + 20;
          y2 := y2 + 20;
        end;
        if (x1 = 485) and (x2 = 517) then
          x2 := x2 - 2;
        if (y1 = 325) and (y2 = 345) then
          y2 := y2 - 7;
        if (x2 > 515) then
          Break;
        if (FindColorTolerance(x, y, color, x1, y1, x2, y2, tolerance)) then
        begin
          MMouse(x, y, 3, 3)
          cx:=x;cy:=y;
          wait(10 + random(10));
          Result := True;
          Break;
        end;
      end;
      if (a = 4) then
        a := 0;
    until (x2 > 515) or (Result = True);
  end;
end;

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

procedure GetSpecLength;
var
c : Integer;
begin
  c:= -1;
  repeat
    SpecLength:= SpecLength + 1;
    c:= c + 1;
  until(SpecificItems[c] = '')
  SpecLength:= SpecLength - 1;
end;

procedure DoBones;
begin
  tol:= 0;
  bonebmp := BitmapFromString(27, 20, 'z78DACD55D18EE3200CFC254' +
       '2626C3FDA06FEFF93CEC559295136DDF4D2DE6D90AC1642187B66' +
       '0C94A52E196EC4F478A68870FB6BEF8D81AA529D6B962659F211E' +
       '7FF45BE22EC55ABAA48971E3373CA29167D359998FC4B9C5B4E23' +
       '366AD0C0B2B2D276BE629DEAA4A659BFD9F53954552A54B06EE40' +
       '3FC7C8BEA05CB3E99E9ABB65C7DB3BF952C297A21551626266AB4' +
       'D0F22ACE638EDB6866E0C3CFF101E28FFFC878BA6BC772759D121' +
       '752526C58B014840E3B3D5CC1164CADF519785C5A8B2E9219B960' +
       '2A5428E211C9316E6B18199D657105E116672F9E1CD4D9315A645' +
       'AE0017CC772F39339EA79E65CCF3359DF623BCBE5EFF4A6E49AAA' +
       '67AC757E8CE06E54BA1EEB13393E57CEF3F843F7D8F48723773B8' +
       'F8C5CBCA49973E821566346270181F04838DA6675BB8477E24D77' +
       '52B316EA8A5DC83861BA82F3C8C58A707495389D1BCF3CBB07264' +
       'A2BFB6A8BCDAC9C38C9C4C0208585F991B2A415F3603F3A80762D' +
       'FE7F64F7AA4ACF564FFD3E2A23E2A8DB7536A3B611792121BEEEF' +
       '1E771E7D9B853467D9EFBE2CCF5CCD4A9BDDA85AE77CE50DAB657' +
       'BFFAFD3B5DE81B1F8DBBCCF58D56C2CBD139EF7FFFCEDE1DC2E1B' +
       'EF52ECB825208D050DFA59FF7DED1E1534A4848BF07E11667F410' +
       '62ECD87E1BC2F72AFCD3F1D3D8FE0087C3AEDF');
    repeat
      FindItemBmpTol(bonebmp, 20)
      MMouse((x + 6), (y + 6), 2, 2);
      wait2(50 + random(50));
      GetMousePos(x, y);
      Mouse(x, y, 0, 0, True);
      wait2(50 + random(50));
    until(not(FindItemBmpTol(bonebmp, 20)))
  FreeBitMap(bonebmp);
end;

Procedure Fight;
var
l, tol, col : Integer;
brake : Boolean;
begin
  if (Loggedin) then
  begin
    repeat
      if(random(4) + 1 = 1)then
      begin
        col:= Bonecolour;
      end else
        AttItByColour:=Random(4)
     Case AttItByColour Of
       1:
        Begin
         col:= Color1;
        End;
       2:
        begin
        col:= Color2;
        end
       3:
        begin
        col:= Color3;
        end
       4:
        begin
        col:= Color4;
        end;
      End;
      
      if(not(FindObjective2(x, y, col, tol)))then
      begin
        tol:= tol + 1;
      end else
        begin
          tol:= 0;
          if(isuptext('Take'))or(isuptext('ttack'))then
            brake:= True;
          if(not(SpecificItems[0] = ''))then
          for l:=0 to SpecLength do
          begin
            if (isuptext(SpecificItems[l]))then
              brake:= True;
          end;
        end;
    until(brake = True)or(tol > 40)
    if (tol > 40) then
    begin
      writeln('Timed out');
      Logout;
      Terminatescript;
    end;
    if (isuptext('Attack')) then
    begin
    Writeln('')
  Writeln('')
  Writeln('')
  Writeln('Attacking Monster')
  Writeln('')
      if(not (Loggedin)) or (WeAreDead) then exit;
      GetMousePos(x, y);
      Mouse(x, y, 0, 0, True);
      FFlag(10);
      Wait2(2000);
      repeat
        if(not (Loggedin)) or (WeAreDead) then break;
      until ( (not (FindFight)) or (WeAreDead) );
      killz:= killz + 1;
      if(not (Loggedin)) then Terminatescript;
      if (WeAreDead) then begin Logout; Terminatescript; end;
    end else
    begin
      if (isuptext('Bones'))and(donttake = False)and(Bonecolour > 0) then
      begin
      Writeln('')
  Writeln('')
  Writeln('')
  Writeln('Picking Up Bones')
  Writeln('')
        GetMousePos(x, y);
        Mouse(x, y, 0, 0, True);
        wait2(200 + random(200));
        bones:= bones + 1;
      end;
      if(not(SpecificItems[0] = ''))then
      for l:=0 to SpecLength do
      begin
        if (isuptext(SpecificItems[l]))and(donttake = False) then
        begin
          GetMousePos(x, y);
          Mouse(x, y, 3, 3, True);
          wait2(200 + random(200));
        end;
      end;
      if (isuptext('Take'))and(donttake = False)and(not(isuptext('Bones')))and(AnyItem = True) then
      begin
        GetMousePos(x, y);
        Mouse(x, y, 3, 3, True);
        wait2(200 + random(200));
      end;
      if (random(9) + 1 < 3)and(bones > 0)then
      begin
        Gametab(4);
        DoBones;
      end;
      if(IsChatMessage('You don'))then
      begin
      Writeln('')
  Writeln('')
  Writeln('')
  Writeln('Burying Bones')
  Writeln('')
        Gametab(4);
        bonebmp := BitmapFromString(27, 20, 'z78DACD55D18EE3200CFC254' +
       '2626C3FDA06FEFF93CEC559295136DDF4D2DE6D90AC1642187B66' +
       '0C94A52E196EC4F478A68870FB6BEF8D81AA529D6B962659F211E' +
       '7FF45BE22EC55ABAA48971E3373CA29167D359998FC4B9C5B4E23' +
       '366AD0C0B2B2D276BE629DEAA4A659BFD9F53954552A54B06EE40' +
       '3FC7C8BEA05CB3E99E9ABB65C7DB3BF952C297A21551626266AB4' +
       'D0F22ACE638EDB6866E0C3CFF101E28FFFC878BA6BC772759D121' +
       '752526C58B014840E3B3D5CC1164CADF519785C5A8B2E9219B960' +
       '2A5428E211C9316E6B18199D657105E116672F9E1CD4D9315A645' +
       'AE0017CC772F39339EA79E65CCF3359DF623BCBE5EFF4A6E49AAA' +
       '67AC757E8CE06E54BA1EEB13393E57CEF3F843F7D8F48723773B8' +
       'F8C5CBCA49973E821566346270181F04838DA6675BB8477E24D77' +
       '52B316EA8A5DC83861BA82F3C8C58A707495389D1BCF3CBB07264' +
       'A2BFB6A8BCDAC9C38C9C4C0208585F991B2A415F3603F3A80762D' +
       'FE7F64F7AA4ACF564FFD3E2A23E2A8DB7536A3B611792121BEEEF' +
       '1E771E7D9B853467D9EFBE2CCF5CCD4A9BDDA85AE77CE50DAB657' +
       'BFFAFD3B5DE81B1F8DBBCCF58D56C2CBD139EF7FFFCEDE1DC2E1B' +
       'EF52ECB825208D050DFA59FF7DED1E1534A4848BF07E11667F410' +
       '62ECD87E1BC2F72AFCD3F1D3D8FE0087C3AEDF');
        if(not(FindItemBmpTol(bonebmp, 20)))then
        begin
          donttake:= True;
          FreeBitMap(bonebmp);
        end else
          DoBones;
      end;
    end;
  end
end;

Procedure Heal;
Begin
 Writeln('')
  Writeln('')
  Writeln('')
  Writeln('Eating Food')
  Writeln('')

 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('')
  Writeln('')
  Writeln('No Food Left, Logging Off and Loading Next Player')
  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))
   NextPlayer(False);
  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
    Mouse(648,183,3,3,true)
     Heal;
    End;
  end;
 if (FindBitmapMaskTolerance(p3,x,y,645,206,660,225,10,240))then
  begin
   Status('HP: 30s...')
   if HealWhen=3 Then
    Begin
    Mouse(648,183,3,3,true)
     Heal;
     End;
  end;
  if (FindBitmapMaskTolerance(p4,x,y,645,206,660,225,10,240))then
  begin
   Status('HP: 40s...')
   if HealWhen=4 Then
    Begin
    Mouse(648,183,3,3,true)
     Heal;
     End;
  end;
 if (FindBitmapMaskTolerance(p5,x,y,645,206,660,225,10,240))then
  begin
   Status('HP: 50s...')
   if HealWhen=5 Then
    Begin
    Mouse(648,183,3,3,true)
     Heal;
     End;
  end;
 if (FindBitmapMaskTolerance(p6,x,y,645,206,660,225,10,240))then
  begin
   if HealWhen=6 Then
    Begin
    Mouse(648,183,3,3,true)
     Heal;
     End;
  end;
  if (FindBitmapMaskTolerance(p7,x,y,645,206,660,225,10,240))then
  begin
   if HealWhen=7 Then
    Begin
    Mouse(648,183,3,3,true)
     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
  Writeln('')
  Writeln('')
  Writeln('')
  Writeln('Looking For Monster')
  Writeln('')
     Fight;
    End;
   If Fighting=True Then
    Begin
  Writeln('')
  Writeln('')
  Writeln('')
  Writeln('Starting Random MouseMovements')
  Writeln('')
     AntiBan2;
    End;
  Until(False);
End;

Procedure SetFighting;
Begin
 Mouse(559,177,7,7,True)
 Wait(500+Random(1000))
  Case FightMode Of
   1:
    Begin
    Writeln('')
  Writeln('')
  Writeln('')
  Writeln('Setting Fightmode To 1')
  Writeln('')
     Status('FightMode = 1')
     Mouse(598,285,10,10,true)
     Wait(1000+Random(1000))
    End;
   2:
    Begin
    Writeln('')
  Writeln('')
  Writeln('')
  Writeln('Setting Fightmode To 2')
  Writeln('')
     Status('FightMode = 2')
     Mouse(600,325,10,10,true)
     Wait(1000+Random(1000))
    End;
   3:
    Begin
    Writeln('')
  Writeln('')
  Writeln('')
  Writeln('Setting Fightmode To 3')
  Writeln('')
     Status('FightMode = 3')
     Mouse(597,366,10,10,true)
     Wait(1000+Random(1000))
    End;
   4:
    Begin
    Writeln('')
  Writeln('')
  Writeln('')
  Writeln('Setting Fightmode To 4')
  Writeln('')
     Status('FightMode = 4')
     Mouse(600,406,10,10,true)
     Wait(1000+Random(1000))
    End;
  End;
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
  SetUpPlayers;
  BenMouse:=True;
  Writeln('')
  Writeln('BumSRL Fighter')
  Writeln('')
  Images;
  Setup;
  SetupSRL;
  repeat
  LoginPlayer;
  SetChat('On', 1);
  SetChat('Friends', 2);
  SetChat('On', 3);
  SetFighting;
  Engine;
  until(stop=1);
repeat
 FindRandoms;
 wait(300+random(150));
 Engine;
until(stop=1);
end.

It worked great when it wasn't with SRL. But now it is going to work even better. I will test it out when I get home.

From: ollie
http://revilosoft.com/rs/BumisFighter.scp

Yes its in a Scar Project Now :)

Changes!

Added Player Forms!
Added 1337 sk337 Randomness!
Bens Scribble!
Bone Pickup
AnyItem Pickup
New Include by Krazy (Uses SRL Too !!)
Faster then EVER!

Bumis, Yet Another Expansion :)

if you want Bumis, ill stop expaning on your scripts

"Internet Explorer Cannot download [filename] from revoilsoft.com"

:(

Well that is the link that you provided us is not right.

heres the link for all those who didnt figure out to take the filename off the end and look in that rs folder in the link http://revilosoft.com/rs/BumFighter.scp


ollie i will edit the link out of my post once you realize the typo and edit your post :)

*** inside the script it says bumis 2.0 so i could be completely wrong on this link i suppose… just tell me if i am… only trying to help out ***

I did do that. But I thought it was an older version of the fighter so I didn't download it.

Failed when compiling
Line 10: [Error] (12967:25): Unknown identifier '' in script C:\Program Files\SCAR 2.03\Scripts\BumisFighter[SRL].scar

wow nice

lol it works for me :), make sure you have LATEST SRL

Line 10: [Error] (12967:25): Unknown identifier '' in script C:\SCAR 2.03\Scripts\BumisFighter[SRL].scar


line 10 is SpecificItems: array[0..sp] of String;

i do have the latest srl and it work with other scripts… if i fix the error on line 10 which is where it saysd "0…sp" and take the sp and put a number in it gets past that error but then i get a unknown bone bmp error ifi fix that i get an unknown identifier color error i really dont know what i could be doing wrong cuz like i said i have the latest srl

same problem here rik

right, it seems i coded it wrong lol, i didnt test it, so wait like a few days when i can be bothered to edit 4 lines ok :)

I really need a good fighter, I can't wait until its finished.

no worries at all ollie, ty for helping the community :)

ok you can redownload it now :)

EDIT: added BenMouse And Stuff.

Re-Download Again Please

thx ollie and congrazts with the script, some luvin over here if u ever need it ;) lol

lol :)

it should be really undetectable and Fast, hell, its better then a human..

does anyone know which fighter is the best?

From: torrent
does anyone know which fighter is the best?

I would really like to know that too.

does this script suppose to switch players when
killcount:= 5; //How Many Monsters To Slay
reaches its limit?

Maybe of newer srl scripts doesnt switch?