// by begginer. thanks for using it. Enjoy it :)

program AttackCow;
{$DEFINE SMART}
{$i SRL/srl.simba}
{$i SRL/SRL/skill/fighting.simba}
     var
   x: Integer;

const
  SRLStats_Username = '';   //Insert your SRL stats username here.
  SRLStats_Password = '';   //Insert your SRL stats password here.
  BreakEvery        = 120;  //How many minutes before breaking?
  BreakFor          = 5;    //How many minutes to break for?
  Version           = '1';
  NumbOfPlayers     = 1;    //How many players are you using?
  StartPlayer       = 0;    //Which player will you start with? (0 means first)
  Tolerance   = 2;
procedure DeclarePlayers;
begin
  NumberOfPlayers(NumbOfPlayers);
  CurrentPlayer := 0;

  Players[0].Name     :='lormail.com';     //Insert player username here.
  Players[0].Pass     :='072';     //Insert player password here.
  Players[0].Active   := True;  //Leave True to use this player.
end;

procedure Startup;
        begin
          Smart_Server := 97;
          Smart_Members := False;
          Smart_Signed := False;
          Smart_SuperDetail := False;
          SetupSRL;
          DeclarePlayers;
          LogInPlayer;
          MouseSpeed := 21;
          wait(100+random(100));
         end;

 Procedure PlayerSetup;
begin
  LoginPlayer;
  SetAngle(SRL_ANGLE_HIGH);
end;


function FightCow:Boolean;
var
  x, y: Integer;
Begin
x:=MSCX;
y:=MSCY;
begin

  if FindObjCustom(x, y, ['att', 'ack', 'Cow', 'ow'], [4148562, 9018547, 3950926, 7112099, 5007241], 5) then
  Mouse(x, y, 3, 3, true);

     wait(5000+Random(5000));   // Change this if you want for faster attacking. 1000 = 1SECOND
  Writeln('We found a Cow. Attacking it');
end;

end;
procedure AntiBan;

begin
Writeln ('Anti-banning');
  x := Random(500)  case x of 0: HoverSkill('Attack', false);
    1:
      HoverSkill('Strength', false);
    2:
      HoverSkill('Defence', false);
    3:
      HoverSkill('hitpoints', false);
    12..15:
      PickUpMouse;
    16..25:
      RandomMovement;
    26..27:
      RandomRClick;
    28..32:
      BoredHuman;
    33:
      ExamineInv;
     34..50:
     RandomRClick;


     end;

  Wait(RandomRange(800, 1200));
end;

procedure EatIfLow;
var
  MMColor: string;
  x, y, Lobster: Integer;
  begin
  Lobster := DTMFromString('mlwAAAHicY2dgYJjPxMCwGIoXAvFMIF4AxEuAuJ8RgicB8XQg7oLiDiDm4+NjKLcRZJjtJ86wJVqaYV2EFMP8AHGGbTHSDFxAc3FhRjwYCgD3pg8b');

begin
  GetMMLevels('hp', MMColor);
  if (MMColor = 'Red') then
  repeat
    if FindDTM(Lobster, x, y, MIX1, MIY1, MIX2, MIY2) then
    begin
      InvMouse(CoordsToItem(x, y), 3);
      if WaitUpText('Eat Lobster', 100) then
      begin
        ClickMouse2(true);
        Wait(RandomRange(350, 525));
      end;
    end else
      Break;
    GetMMLevels('hp', MMColor)
  until((MMColor = 'Green'))
 end;
 FreeDTM(Lobster);
end;

function PickCowhide:Boolean;
var
  x, y: Integer;
  Begin
x:=MSCX;
y:=MSCY;

begin
  if FindObjCustom(x, y, ['ake co', 'owhide'], [15856381, 15856381], 1) then
  Mouse(x, y, 3, 3, false);
  WaitUpTextMulti(['ake co', 'owhide'], 50);
     wait(500+Random(300));
  Writeln('We found Cowhide');
      end;
end;

procedure PickHide;
var
   x, y, CowhideDTM: integer;
          Begin
x:=MSCX;
y:=MSCY;
        begin
CowhideDTM := DTMFromString('mrAAAAHic42BgYJjPzMCwBIhnQvFsIF4KxMuYIXJcjAwMLEDMBsQ8QCwIxPxAzA3ErED89/NHvJgQYCSAYQAAP60cgw==');
  if FindDTM(CowhideDTM, x, y, MSX1, MSY1, MSX2, MSY2) then
          begin
             Mouse(x, y, 3, 3, false);
          WaitUpTextMulti(['ake', 'owhide'], 50);
     wait(500+Random(300));
  Writeln('We found Cowhide DTM');
             end;
           FreeDTM(CowhideDTM);
             end;
             end;

begin


  ActivateClient;

  Startup;
  PlayerSetup;

   PickHide;
  repeat
    FightCow;

    PickHide;
    PickHide;
    PickCowhide;
    PickHide;                // this will be for repeating action
                       // this will be for repating eating
    AntiBan;




  until(false);

end.