SRL Archive - SRL Archives

Long time since I've made one -

Function music_SwitchTrack: Boolean;

Var
   TPAA: T2DPointArray;
   TPA: TPointArray;
   i, l, z: Integer;
   TB: TBox;
Begin
  GameTab(13);
  For I := 0 To 6 Do
    If FindColor(X, Y, 65280, 554, 268, 713, 445) Then
      Break
    Else
      MouseBox(715, 284, 729, 436, 1);
  If FindColor(X, Y, 65280, 554, 268, 713, 445) Then
  Begin
    FindColorsTolerance(TPA, 65280, 554, 268, 713, 445, 0);
    TPAA := TPAToATPAEx(TPA, 150, 11);
    L := GetArrayLength(TPAA);
    For I := 0 To Random(L - 1) Do
      Swap(TPAA[Random(L)], TPAA[Random(L)]);
    I := 0;
    While (Not Result) And (i < L) Do
    Begin
      z := Random(L);
      If GetArrayLength(TPAA[i]) > 10 Then
      Begin
        TB := GetTPABounds(TPAA[i]);
        MouseBox(TB.x1, TB.y1, TB.x2, TB.y2, 1);
        Result := True;
        Break;
      End;
      I := I + 1;
    End;
  End;
End;

Nice, but which ass listens to rs2 music then your insane!

This will be very useful I think, But it has to be pretty random but Good Job.

@Hermpie.
Maybe n3s :p

I don't, but I know that bots don't which is good enough reason for an antiban.

I like it, i don't know anyone who actually listens to the music in rs though. hehe . :)


edited : nvm, being an idiot.

Works great.

Perhaps let it check for different songs, ie scroll down / up the list.

And check if the previous song is accidently the new song, Cause that would = ban :\

Ie, cause you have it switching to say…
attack3
Being at the top of the list, then sometime down the line, you repress the music to change songs and it's
attack3
AGAIN and it keeps looping, oh noes.

Perhaps include sound volume, ie, check if sound is actually on before turning on a song.

Looks a lot like mine in my caver ^^. Just you're a TPA addict. ;)

procedure SetMusik;
var mx,my: integer;
begin
  GameTab(13);
  Wait(Random(2000));
  MouseBox(715,284,728,435,1);
  Wait(Random(7000));
  if FindColorTolerance(mx,my, 65280, 562, 270, 661, 450, 5) then
  begin
    Mouse(mx + Random(125), my + Random(8), 0, 0, True);
    Wait(Random(3000));
  end else
  begin
    MouseBox(562,268,711,449,1);
    Wait(Random(5000));
  end;
end;

Yours is nice anyways though :)

n3s, nice function. But why so complex? (Compared to Hy's..)

By the way - Hy, can I use that procedure in my script w/credit?

@Evil- Because n3ss3s shows off his skills with TPA's ;), and yes, you may use it ^^.

There would be no point to make a thread for a FindColorTolerance, and don't know about the look-alike… Yours is nice anyway though ;)