SRL Archive - RS3 Script Requests

im new and i dont really know how to search forums for the scripts if there is one already can someone please link me

Do you just want a simple Cow killer? and collecting hides. I can make a simple cow killer for you :)

Here, I made it quick fast. Just killing cows. I might need myself this later on.

// 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)

procedure DeclarePlayers;
begin
  NumberOfPlayers(NumbOfPlayers);
  CurrentPlayer := 0;

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


function FightCow:Boolean;
var
  x, y: Integer;
begin
  if FindObjCustom(x, y, ['att', 'ack', 'Cow', 'ow'], [4148562, 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;

procedure AntiBan;

begin
Writeln ('Anti-banning');
  x := Random(50)  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;




begin
  SetupSRL;
  ActivateClient;
  DeclarePlayers;
  EatIfLow;
  repeat
    FightCow;                // this will be for repeating action
    EatIfLow;                   // this will be for repating eating
    AntiBan;

  until(false);

end.

cheers mate but does it collect the cow hides? since they are 530gp each and cows like 1 hit kills for me but whoever can make one like ty :) im off to bed wont be on till tomorrow so if there is one in the morning i thank you in advance ;)

So, I can add collecting cow hides. Then try experimenting with walking

cheers man please update me on how its going i would like to know :) tyvm

i tried the cow killing script works great =]

Yeah, but trying to put looting cowhides. :)

Oh that would be good =]

Lol, haha. Begginer thats your flesh scrawler with changed colors and names! :P

Working cool :p. While LOLing u can help with pickup hides :)

MY sig has a perfect solution! :P
My first TUT! :P

Has looting been added?

have cow hide looting beendded yet?

No still not. Adding this feature is kind of goldfarming, so this might be kept private

Ya, it is goldfarming… and we dont care for goldfarming here.! :P