SRL Archive - RS3 Outdated / Broken Scripts

Hi guys :)

Was bores so decided to make a cow fighter with Reflection.
Don't wear anything you would like to lose. Thumbrule: Max 3 items.

Features:
Deathwalk - checks if player is in Lumbridge - if true it walk to the cows.
Finds cows - Only find cows that are not fighting and walks to them.

V 1.1:
Added better cow finding.
Health check. Runs if health falls below a percent.

Upcoming features:
Bone burying.
Meat cooker.
Hide banker.


Please post what you think, also post proggies. :)

Post reserved for good proggies.

Frbahanbh:
Cows Killed: 48
Time Running: 20 Minutes 50 Seconds
Exp Gained: 1656

Frdabaha:
Cows Killed: 35
Time Running: 12 Minutes 10 Seconds
Exp Gained: 1220

Total Cows Killed: 83
Total Time Running: 1 Hours, 24 Minutes and 39 Seconds
Total Exp Gained: 2876

      if (FindObjCustom(x, y, ['Cow', 'ow', 'Co'], [4018778, 9870498], 4)) then
      begin
        MMouse(x, y, 4, 4);

line 130-132, a little less bannable, and 1/3 chance more of finding cow.

From: jakeyboy29

      if (FindObjCustom(x, y, ['Cow', 'ow', 'Co'], [4018778, 9870498], 4)) then
      begin
        MMouse(x, y, 4, 4);

line 130-132, a little less bannable, and 1/3 chance more of finding cow.

Yeah, currently working on a new way to attack it, but really can' seem to get anything working.
Tried the ClickNPC funvtion in the D-Include but almost alle the times it clicks beside the cow.

Got any ideas on how to click it?
Perhaps just use a simple FindColorSpiralTolerance?

function bonesonground:boolean;
Var
  CTS, I: Integer;
  TPA: TPointArray;
  ATPA: Array of TPointArray;
begin
  CTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.03, 0.08);
  FindColorsSpiralTolerance(MSCX, MSCY, TPA, 0000000, MSX1, MSY1, MSX2, MSY2, 84);
  ColorToleranceSpeed(CTS);
  ATPA := TPAToATPAEx(TPA, 15, 15);
  For I := 0 to High(ATPA) do
  begin
    MiddleTPAEx(ATPA[i], x, y);
    MMouse(x, y, 2, 2);
    If(IsUpTextMultiCustom(['Cow'])) then
    begin
      Result := True;
      GetMousePos(x, y);
      Break;
    end;
  end;
end;

try this one mate…. were it says 000000 put the cow colour there.

From: jakeyboy29

function bonesonground:boolean;
Var
  CTS, I: Integer;
  TPA: TPointArray;
  ATPA: Array of TPointArray;
begin
  CTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.03, 0.08);
  FindColorsSpiralTolerance(MSCX, MSCY, TPA, 0000000, MSX1, MSY1, MSX2, MSY2, 84);
  ColorToleranceSpeed(CTS);
  ATPA := TPAToATPAEx(TPA, 15, 15);
  For I := 0 to High(ATPA) do
  begin
    MiddleTPAEx(ATPA[i], x, y);
    MMouse(x, y, 2, 2);
    If(IsUpTextMultiCustom(['Cow'])) then
    begin
      Result := True;
      GetMousePos(x, y);
      Break;
    end;
  end;
end;

try this one mate…. were it says 000000 put the cow colour there.

Why would I do that when it's done in Reflection? I can just use the GetAllGroundItems?

I was all these errors well they were hints saying something wasn't used in script.

will post progress report

Good script, logged me in set it to strength and logged me out:

Cows Killed: 0
Time Running:
Exp Gained: 0

Total Cows Killed: 0
Total Time Running: 41 Seconds
Total Exp Gained: 0