Results 1 to 3 of 3

Thread: how do i suggest an addition

  1. #1
    Join Date
    Jun 2007
    Location
    Lafayette, Co
    Posts
    21
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default how do i suggest an addition

    I made this, it could be part of either the DTM.scar or Object.scar and couldn't find a place to suggest it, it allows for people to find an object using a DTM instead of just a color so that the mouse doesn't bounce to too many places where you want to find something where it's color is frequent.

    SCAR Code:
    {*******************************************************************************
    function FindObjDTM(var cx, cy:Integer; var Angle: Extended; Text: string; dtm, StartAngle, EndAngle: Integer): Boolean;
    By: waterfoul
    Description: a modified version of FindObj by  Stupid3ooo and modified by Ron.
                 Finds an object using a dtm
    *******************************************************************************}


    function FindObjDTM(var cx, cy:Integer; var Angle: Extended; Text: string; dtm, StartAngle, EndAngle: Integer): Boolean;
    var
      a, c, i, x1, y1, x2, y2: Integer;
    begin
      x1 := 245;
      y1 := 165;
      x2 := 277;
      y2 := 185;
      repeat
        if (not (Loggedin)) then
          Break;
        a := a + 1;
        if (a = 1) or (a = 3) then
          c := c + 1;
        for i := 1 to c do
        begin
          if (a = 1) then
          begin
            x1 := x1 + 30;
            x2 := x2 + 30;
          end else
          if (a = 2) then
          begin
            y1 := y1 - 20;
            y2 := y2 - 20;
          end else
          if (a = 3) then
          begin
            x1 := x1 - 30;
            x2 := x2 - 30;
          end else
          if (a = 4) then
          begin
            y1 := y1 + 20;
            y2 := y2 + 20;
          end;
          if (x1 = 485) and (x2 = 517) then
            x2 := x2 - 2;
          if (y1 = 325) and (y2 = 345) then
            y2 := y2 - 7;
          if (x2 > 515) then
            Break;
          if (FindDTMRotated(dtm,cx, cy,x1, y1, x2, y2, StartAngle,EndAngle,0.01,Angle)) then
          begin
            MMouse(cx, cy, 0, 0)
            Wait(50+Random(50));
            if (IsUpText(Text)) then
            begin
              Result := True;
              Break;
            end;
          end;
        end;
        if (a = 4) then
          a := 0;
      until (x2 > 515) or (Result = True);
    end;

  2. #2
    Join Date
    May 2007
    Location
    Ohio
    Posts
    2,296
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    .includes\SRL\SRL\Core\Object.scar

  3. #3
    Join Date
    Mar 2006
    Posts
    13,241
    Mentioned
    228 Post(s)
    Quoted
    267 Post(s)

    Default

    Become an SRL member and post it in the SRL suggestions section.

    http://www.villavu.com/forum/showthr...?t=3562?t=4302
    STOP PM'ING ME

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Reflection Addition?
    By TViYH in forum SRL Site Discussion
    Replies: 19
    Last Post: 08-31-2008, 04:54 AM
  2. Another addition to our team!
    By Wizzup? in forum News and General
    Replies: 33
    Last Post: 05-08-2008, 12:46 PM
  3. Suggest something ;)
    By s33 teh pain in forum RS3 Outdated / Broken Scripts
    Replies: 0
    Last Post: 10-23-2007, 11:48 AM
  4. Suggest something...
    By Eugeniu in forum First Scripts
    Replies: 9
    Last Post: 10-07-2007, 09:24 AM

Posting Permissions

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