SRL Archive - RS3 Outdated / Broken Scripts

Feather Eater V 0.7 REV #10
By Spaztaz666

Usage: Kills Chickens and pick up feathers

Features:
AntiBan
AntiRandoms
FightModes
Feather Pickup
Other Stuff…

Known Bugs:
Stats dont work? im not sure but i dont think so??

Post Proggies and Any Other Bugs
Proggies:

/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*
*/ FeatherEater V0.9
*/ Killing For 14 Minutes and 36 Seconds
*/ Killed 57 Chickens
*/ Picked 0 Feathers
/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*

Log:
V0.9 - Fixed Crazy mouse movements, added SRL Stats
V0.8 - Fixed Bugs, made array
V0.7 - Huge improvements, re-wrote many procedures
V0.5 - Fixed bug, added more colors
V0.1 - Wrote!

great job =)

cmon guys use this script and help him out a bit =D

This is a really good script, the only problem that I had was that the mouse would spaz out and I think that it was looking for chickens but there were chickens like right in front of my person.

yes i know about the spazzy mouse but i cant seem to figure out why lol
any help would be greatly appreciated,
it might be the chicken colors so you could try getting them again,
also turn the debug on and tell me what tol it finds them.

~Spaz

Procedure TempHighestAngle;
begin
  if not(loggedIn) then exit;
  MarkTime(s);
  repeat
    keydown(VK_UP);
  until TimeFromMark(s) >= (1000+Random(500))
end

Use

SetAngle(true);

if (not(loggedin)) then loginplayer;

LogInPlayer already has "If Not LoggedIn".
So, temove the "If not loggedin" part just to make it look better.

Function RandomChickColor: integer;
 Begin
  Status('Picking Random Chicken Color from Consts.');
  Case Random(5) of
    0: Result := ChickenColor;
    1: Result := ChickenColor2;
    2: Result := ChickenColor3;
    3: Result := ChickenColor4;
    4: Result := ChickenColor5;
  end;
end;

That made me go "WdF?".

Instead of that, use:

Procedure AttackChicken;
var
  p, g, a, i: Integer;
  ChickenColor: Array [0..4] of integer;
begin
ChickenColor[0]  = 1055613;
ChickenColor[1] = 8299963;
ChickenColor[2] = 1055621;
ChickenColor[3] = 2841210;
ChickenColor[4] = 3706527;
  For I := 0 to 4 do
    If (FindColorTolerance(x, y, ChickenColor[i], MSX1, MSY1, MSX2, MSY2, 5)) then
    begin
      MMouse(x, y, 1, 1)
      If IsUptextMulti('cken','hicken','chic') then
      begin
         Mouse(x,y,1,1, false)
         chooseoption('tack')
         MarkTime(g);
         If (Debug) then Writeln('Killing Chicken');
         FindNormalRandoms;
         AntiLog;
         Chick := Chick + 1
         Chickens := Chickens + 1
         FindNormalRandoms;
// Rest of procedures here.
         Exit;

I don't know if I explained it too well, read a tut on arroys.

ahhh ok thx evil, ill read up on them and make some changes

~Spaz

sorry for double post but Updated :)

~Spaz