SRL Archive - Research & Development Lounge

Well, it's not connected with rs, but looks fun:D

program New;

var
  x, y, midx, midy, buffer, i : integer;
  angle, radius : extended;
  Canvas : TCanvas;
  Colors : TIntegerArray;
begin
  SetArrayLength(colors, 9);

  Colors[0] := 2720044;
  Colors[1] := 2322469;
  Colors[2] := 2056481;
  Colors[3] := 1592858;
  Colors[4] := 1261076;
  Colors[5] := 995600;
  Colors[6] := 795405;
  Colors[7] := 331781;
  Colors[8] := 0;
  
  MidX := 100;
  MidY := 100;
  Radius := 85;
  BitmapFromString(200, 200,'')
  FastDrawClear(Buffer, 0);
  DisplayDebugImgWindow(200, 200);
  Canvas := GetDebugCanvas;
  SetClientPos(True);
  Canvas.Pen.Width := 2;
  repeat
    angle := angle + 0.5;
    X := MidX + Round((radius + 1) * Cos(Radians(Angle - 90)));
    Y := MidY + Round((radius + 1) * Sin(Radians(Angle - 90)));
    FastSetPixel(buffer,x,y,clgreen)
    SafeDrawBitmap(Buffer, GetDebugCanvas, 0, 0);
  until(Angle >= 360);
  repeat
    for i := 0 to 8 do
    begin
      angle := angle + 0.05;
      Canvas.Pen.Color := colors[i];
      X := MidX + Round(radius * Cos(Radians(Angle - 90-(i * 5))));
      Y := MidY + Round(radius * Sin(Radians(Angle - 90-(i * 5))));
      canvas.moveto(midx,midy)
      canvas.lineto(x,y)
    end;

  until IsFKeyDown(8);
  wait(1000);
  canvas.free;
end.

*Copies it down and gets ready to start SCAR up when he remembers that it's not installed*

くそ！

I'll have to do that…

So what does this do?

It looks like a radar. That all. Very cool, Very usless

very cool. almost useless.

unless u make some game with radar incorporated into it. Thatd be cool :)

i like stuff like this. Just because i know i dont know how to do it :p

wow cool how u learn
i was messin with the script and came up with this

program New;

var
x, y, midx, midy, buffer, i : integer;
angle, radius : extended;
Canvas : TCanvas;
Colors : TIntegerArray;
begin
SetArrayLength(colors, 9);

Colors[0] := 2720044;
Colors[1] := 2322469;
Colors[2] := 2056481;
Colors[3] := 1592858;
Colors[4] := 1261076;
Colors[5] := 995600;
Colors[6] := 795405;
Colors[7] := 331781;
Colors[8] := 0;

MidX := 100;
MidY := 100;
Radius := 85;
BitmapFromString(200, 200,'')
FastDrawClear(Buffer, 0);
DisplayDebugImgWindow(200, 200);
Canvas := GetDebugCanvas;
SetClientPos(True);
Canvas.Pen.Width := 2;
repeat
angle := angle + 0.5;
X := MidX + Round((radius + 1) * Cos(Radians(Angle - 0)));
Y := MidY + Round((radius + 1) * Sin(Radians(Angle - 0)));
FastSetPixel(buffer,x,y,clgreen)
SafeDrawBitmap(Buffer, GetDebugCanvas, 0, 0);
until(Angle >= 360);
repeat
for i := 0 to 8 do
begin
angle := angle + 0.05;
Canvas.Pen.Color := colors;
X := MidX + Round(radius * Cos(Radians(Angle - 1-(i * 5))));
Y := MidY + Round(radius * Sin(Radians(Angle - 8000-(i * 5))));
canvas.moveto(midx,midy)
canvas.lineto(x,y)
end;

until IsFKeyDown(8);
wait(1000);
canvas.free;
end.

good job, how did u learn to do that?

lol nice… now make it work with the rs minimap and if it sees a yellow dot it will appear on it xD

Very nice little random thing, but I want a red radar ;)
Anyway, it's going to be very useful when I get round to learning to abuse the debug image - I could make stick men in a whole new way!

Funny :D

VERY fun to mess around and play with :D. Nice job. That'd be awesome if it was like a runescape mod detectore (haha yea right).

I made game with this, please look into "other scripts" for "the radar"

hey good thing man looks cool ;)

someone said they wanted a red radar. well here ya go =]

edit: it was mixster :P

From: mixster05
Very nice little random thing, but I want a red radar ;)
Anyway, it's going to be very useful when I get round to learning to abuse the debug image - I could make stick men in a whole new way!

 program New;

var
  x, y, midx, midy, buffer, i : integer;
  angle, radius : extended;
  Canvas : TCanvas;
  Colors : TIntegerArray;
begin
  SetArrayLength(colors, 9);

  Colors[0] := 4937456;
  Colors[1] := 4937456;
  Colors[2] := 4937456;
  Colors[3] := 4937456;
  Colors[4] := 4937456;
  Colors[5] := 4937456;
  Colors[6] := 4937456;
  Colors[7] := clRed;
  Colors[8] := 0;

  MidX := 100;
  MidY := 100;
  Radius := 85;
  BitmapFromString(200, 200,'')
  FastDrawClear(Buffer, 0);
  DisplayDebugImgWindow(200, 200);
  Canvas := GetDebugCanvas;
  SetClientPos(True);
  Canvas.Pen.Width := 2;
  repeat
    angle := angle + 0.5;
    X := MidX + Round((radius + 1) * Cos(Radians(Angle - 90)));
    Y := MidY + Round((radius + 1) * Sin(Radians(Angle - 90)));
    FastSetPixel(buffer,x,y,clred)
    SafeDrawBitmap(Buffer, GetDebugCanvas, 0, 0);
  until(Angle >= 360);
  repeat
    for i := 0 to 8 do
    begin
      angle := angle + 0.05;
      Canvas.Pen.Color := colors[i];
      X := MidX + Round(radius * Cos(Radians(Angle - 90-(i * 5))));
      Y := MidY + Round(radius * Sin(Radians(Angle - 90-(i * 5))));
      canvas.moveto(midx,midy)
      canvas.lineto(x,y)
    end;

  until IsFKeyDown(8);
  wait(1000);
  canvas.free;
end.

Haha it looks cool but indeed its useless for me :p but nice job !

From: Da 0wner
someone said they wanted a red radar. well here ya go =]

I was joking :p. Ahwell, thanks anyway :) . The next radar I want is a gaydar (handheld version is best).

From: mixster05
I was joking :p. Ahwell, thanks anyway :) . The next radar I want is a gaydar (handheld version is best).

g*yradar?
No idea how to make that:confused:

actually…hmmm…

Make the script to show *cute pictures*, and if runner doesn't watch to the end, then it means hes not intrested about girls, and hes g*y.

I know, i'm genius
Edit: it was joke, im not genius…im very stupid…

Hey Mixster, how do I get that notepad thing you have by your name? That avatar or whatever?

It means he's a useful poster.

Edit:Just messing around with it I got this:

program New;
var
  x, y, midx, midy, buffer, i : integer;
  angle, radius : extended;
  Canvas : TCanvas;
  Colors : TIntegerArray;
begin
  SetArrayLength(colors, 9);

  Colors[0] := 2720044;
  Colors[1] := 2322469;
  Colors[2] := 2056481;
  Colors[3] := 1592858;
  Colors[4] := 1261076;
  Colors[5] := 995600;
  Colors[6] := 795405;
  Colors[7] := 331781;
  Colors[8] := 0;

  MidX := 75;
  MidY := 75;
  Radius := 85;
  BitmapFromString(150, 150,'')
  FastDrawClear(Buffer, 0);
  DisplayDebugImgWindow(150, 150);
  Canvas := GetDebugCanvas;
  Canvas.Pen.Width := 2;
  repeat
    for i := 0 to 8 do
    begin
      angle := angle + 0.50;
      Canvas.Pen.Color := colors[i];
      X := MidX + Round(radius * Cos(Radians(Angle - 90-(i * 5))));
      Y := MidY + Round(radius * Sin(Radians(Angle - 90-(i * 5))));
      canvas.lineto(x+Random(20),y+Random(20))
    end;
  until IsFKeyDown(8);
  wait(1000)
  canvas.free;
end.