Results 1 to 18 of 18

Thread: Radar?!

  1. #1
    Join Date
    Jul 2007
    Posts
    1,431
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Radar?!

    Well, it's not connected with rs, but looks fun
    SCAR Code:
    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.
    [CENTER][SIZE="4"]Inactive[/SIZE]I forgot my password[/CENTER]

  2. #2
    Join Date
    Dec 2006
    Location
    Third rock from the sun.
    Posts
    2,510
    Mentioned
    4 Post(s)
    Quoted
    1 Post(s)

    Default

    *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?

  3. #3
    Join Date
    Mar 2007
    Posts
    3,116
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

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

  4. #4
    Join Date
    Apr 2007
    Posts
    3,152
    Mentioned
    3 Post(s)
    Quoted
    1 Post(s)

    Default

    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
    SCAR Tutorials: The Form Tutorial | Types, Arrays, and Classes
    Programming Projects: NotePad | Tetris | Chess


  5. #5
    Join Date
    Dec 2006
    Location
    Boss central
    Posts
    811
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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[i];
    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.
    Being A Boss

  6. #6
    Join Date
    Oct 2006
    Posts
    1,190
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    good job, how did u learn to do that?



  7. #7
    Join Date
    Jun 2007
    Posts
    785
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

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

    [22:20] <[-jesus-]> freddy, go uninstall yourself

  8. #8
    Join Date
    Jun 2007
    Location
    Wednesday
    Posts
    2,446
    Mentioned
    3 Post(s)
    Quoted
    1 Post(s)

    Default

    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!
    By reading this signature you agree that mixster is superior to you in each and every way except the bad ways but including the really bad ways.

  9. #9
    Join Date
    May 2006
    Location
    Amsterdam
    Posts
    3,620
    Mentioned
    5 Post(s)
    Quoted
    0 Post(s)

    Default

    Funny
    Verrekte Koekwous

  10. #10
    Join Date
    Jul 2007
    Posts
    1,055
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

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

  11. #11
    Join Date
    Jul 2007
    Posts
    1,431
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I made game with this, please look into "other scripts" for "the radar"
    [CENTER][SIZE="4"]Inactive[/SIZE]I forgot my password[/CENTER]

  12. #12
    Join Date
    Apr 2007
    Location
    The Netherlands
    Posts
    5,553
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    hey good thing man looks cool
    ~Hermen

  13. #13
    Join Date
    Jan 2008
    Location
    California, US
    Posts
    2,765
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

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

    edit: it was mixster :P
    Quote Originally Posted by mixster05 View Post
    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!
    SCAR Code:
    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.

  14. #14
    Join Date
    Jun 2007
    Location
    Netherlands
    Posts
    137
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

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

  15. #15
    Join Date
    Jun 2007
    Location
    Wednesday
    Posts
    2,446
    Mentioned
    3 Post(s)
    Quoted
    1 Post(s)

    Default

    Quote Originally Posted by Da 0wner View Post
    someone said they wanted a red radar. well here ya go =]
    I was joking . Ahwell, thanks anyway . The next radar I want is a gaydar (handheld version is best).
    By reading this signature you agree that mixster is superior to you in each and every way except the bad ways but including the really bad ways.

  16. #16
    Join Date
    Jul 2007
    Posts
    1,431
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by mixster05 View Post
    I was joking . Ahwell, thanks anyway . The next radar I want is a gaydar (handheld version is best).
    g*yradar?
    No idea how to make that

    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...
    [CENTER][SIZE="4"]Inactive[/SIZE]I forgot my password[/CENTER]

  17. #17
    Join Date
    Jan 2008
    Location
    California, US
    Posts
    2,765
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

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

  18. #18
    Join Date
    Mar 2007
    Posts
    3,116
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    It means he's a useful poster.

    Edit:Just messing around with it I got this:
    SCAR Code:
    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.

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •