SRL Archive - News and General

Did runescape change the way flags work? because they are fucking up for me…

You mean they go anywhere you click??

That was fixed.. sorry if I'm wrong.

yeah, if i click somewhere with a flag, the flag just sits where i click… is that a SMART issue?

It an 'everything' issue my friend, thats why Lordsaturn ate FFlag and shmaht it back out with some new failsafes.

my scripts dont work no more :'(
well they do… just slowlier

I think it's a runescape issue..

procedure Flags;
begin
  FFlag(20);
  Wait(3000 + Random(1000));
end;

It should speed your script up :)

From: Frt

procedure Flags;
begin
  FFlag(20);
  Wait(3000 + Random(1000));
end;

It should speed your script up :)

lolno.
Just use SRL's >.<

Runescape made path finding server side so its the way runescape works now

From: noidea
lolno.
Just use SRL's >.<

SRL's messes up still.

No it doesnt. It waits like 5 seconds now, instead of 30.

Here is one made by lordsaturn that works better than the one in srl IMHO

procedure DFlag(FDist: integer);
var
  dist, a, check: Integer;
begin
  check := GetSystemTime;
  while FlagPresent do
  begin
    dist := FlagDistance;
    if (dist = 0) or (dist < FDist) then Exit;
    a := GetSystemTime;
    if GetSystemTime - check > 20000 then
    begin
      Mouse(MMCX, MMCY, 0, 0, True);
      Exit;
    end;
    while dist = FlagDistance do
    begin
      if GetSystemTime - a > 1500 then
        Exit;
      Wait(10);
    end;
    if Random(30) = 1 Then IdleTime(500, 1000, 0.01);
  end;
end;

yeah i made one like that mormonman ;)

but just… better… :p

Umm, they also don't show up if you click to do something, like open a bank, or chop a willow etc. Olds news might be old I don't know XD. I just never play RuneScape so idk.

Use my sexy functions :p

{*******************************************************************************
Function DifferentMSColours: Boolean;
By: Floor66
Description: This function takes the colours of specific MainScreen points,
             waits 100 + Random(50), takes new colours, and checks if the
             colours are different from the first ones taken.
*******************************************************************************}

Function DifferentMSColours(MS_Points : Integer): Boolean;
Var
  BeginColours, CheckColours : Array Of Integer;
  ColorCoords : TPointArray;
  i : Integer;
Begin
  SetLength(ColorCoords, MS_Points);
  SetLength(BeginColours, MS_Points);
  SetLength(CheckColours, MS_Points);
  For i := 0 To High(BeginColours) Do
  Begin
    ColorCoords[i].x := MSCX + Random(50);
    ColorCoords[i].y := MSCY + Random(50);
    BeginColours[i] := GetColor(ColorCoords[i].x, ColorCoords[i].y);
  End;
  Wait(100 + Random(50));
  For i := 0 To High(CheckColours) Do
  Begin
    CheckColours[i] := GetColor(ColorCoords[i].x, ColorCoords[i].y);
    If BeginColours[i] <> CheckColours[i] Then
      Result := True;
  End;
End;

{*******************************************************************************
Procedure CharacterMoving;
By: Floor66
Description: This procedure incorporates the function DifferentMSColours to do
             a check if the character is still moving. A real handy check when
             doing something with walking!
*******************************************************************************}

Function CharacterMoving: Boolean;
Var
  Checks, t : Integer;
Begin
  Wait(1500 + Random(250));
  Result := True;
  MarkTime(t);
  Repeat
    If (Not DifferentMSColours(7)) Then
      Inc(Checks);
    If (Checks >= 2) Or (Not FlagPresent) Then
      Result := False;
    If TimeFromMark(t) >= (10 * 1000) Then
      Result := False;
  Until(Not Result);
End;

{Use as:
While CharacterMoving Do
  Wait(10 + Random(50));}

They work flawless really. It waits 'til the character is 100% standing still.