SRL Archive - Archive

How Long have You Played Runescape?
8 Year(s)


Are you affilated in anyway with Jagex LTD?
no

Were you Referred to SRL?



What is your general programming knowledge?
I've scripted for SCAR back in the day (around 2005/06). I've been on SRL forums for awhile now, and I have been getting back into scripting/programming.


Are you a member of any other communities?
Robotzindisguise (Qwnecl).


Tell us about yourself…

From: Isshin
My name is Tyler Hardin, and I am currently a sophomore in college. I'm a bowler, and bowl in college. I maintain a 3.8GPA and spend a lot of time studying and with school work. I quit Runescape with the release os EOC, but have recently got back into it with the release os 2007 servers. I played 2006scape and remakes, and used some edited scripts to bot on them, as I hardly have time to play legitly.

Please show us one (or multiple) of your scripts.

This is an edited combat script I found while browsing the SRL forums a few months ago. I edited a few lines to make it more efficeient at killing monsters in a 2006 remake. It was originally for soulsplit. I Do not remember the user's name.

program Old_RS_fighter;

{$i srl/srl.simba}

const
  COLOR =  4283214;  //  Monster Colour
  TOL   =  3;        //  Colour Tolerance

function Click(): boolean;
var
  x, y, w, h: integer;
  B: TBox;
begin
  GetMousePos(x, y);
  w := 525;
  h := 338;
  GetClientDimensions(w, h);
  B := IntToBox(x - 15, y - 15, x + 15, y + 15);
  if B.x1 < 0 then B.x1 := 0;
  if B.y1 < 0 then B.y1 := 0;
  if B.x2 > w then B.x2 := w;
  if B.y2 > h then B.y2 := h;
  begin
    if findColorTolerance(x, y, 62713, B.x1, B.y1, B.x2, B.y2, 20) then
    begin
    Result := True
      Exit;
    end;
  end;
end;


Function YellowClick: Boolean;
begin
  Result := Click;
end;


Function RedClick: Boolean;
begin
  Result := Not Click;
end;


Function Moving: Boolean;
var
  MovingBox: Tbox;
begin
  MovingBox   := IntToBox(259, 133, 272, 151);
  Result := (AveragePixelShift(MovingBox, 600, 250) > 80);
  //Writeln(IntToStr(AveragePixelShift(MovingBox, 500, 300))); //Shows PixelShift in debug

end;


Function InFight: Boolean;
var
  InFightBox: Tbox;
begin
  InFightBox  := IntToBox(260, 137, 277, 185);
  Result := (AveragePixelShift(InFightBox, 600, 250) > 100);
  //Writeln(IntToStr(AveragePixelShift(InFightBox, 500, 300))); //Shows PixelShift in debug

end;


procedure FindMonster;
var
  I, Kill : Integer;
  Corners, TPA: TPointArray;

begin
  Corners := [Point(266, 174), Point(0, 0), Point(520, 0), Point(0, 340), Point(520, 340)];// Corners of the client and center point
  I := 0

  begin
    repeat
      if I = 4 then
        Exit;

      if FindColorsSpiralTolerance(Corners[i].X, Corners[i].Y, TPA, COLOR, MSX1, MSY1, MSX2, MSY2, TOL) then
        begin
          MarkTime(Kill);
          Mouse(TPA[i].X, TPA[i].Y, 0, 0, true);
          Writeln('Attempting To Attack!');

          if YellowClick then
            begin
              Writeln('');
              Writeln('Missed!');
              Writeln('Searching Again!');
              Writeln('');
              Continue;
            end;

            if RedClick then
            begin
              Wait(2500-4500);

            if (TimeFromMark(Kill) > 4600-6000) and not Moving then
              begin
                Writeln('');
                Writeln('Monster Already In Combat');
                i := i + 1;
                Writeln('Searching Again!');
                Writeln('');
                Continue;
              end else

              if InFight then
                begin
                  Writeln('Attacking!');
                  begin
                    repeat
                      Wait(200);
                    until not InFight and not Moving or (TimeFromMark(Kill) > 10000 - 12000);
                  end;
                  Writeln('Monster Dead!');
                  Writeln('');
                  Wait(1500);
                end;
              end;
          end;
      until (false);
  end;
end;



begin
  SetupSRL;
  ClearDebug;
  begin
    repeat
      FindMonster;
    until (false);
  end;
end.

It's nice that you put that you have edited someone else's script to make it work for 07 but sadly it's a no from me, I'd like to see a script with most of it being your own work

Justin

Sorry, you need to submit a script of your own making. Please check out the tutorial section to learn some scripting techniques. Also involve yourself in the community and get to know us! That is a big part of being a member at SRL.

Feel free to try again in 4 weeks. :)

Closed