Results 1 to 9 of 9

Thread: Graphics Settings

  1. #1
    Join Date
    Nov 2007
    Posts
    437
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Graphics Settings

    Use these to set all the Graphics Options on GameTab 11 as well as change the brightness. The first two are just open close procedures that you do not need. The second two are useful.

    SCAR Code:
    // * procedure OpenGraphicsSettings                              // * by Dusk412
    // * procedure CloseGraphicsSettings;                            // * by Dusk412
    // * procedure SetBrightness(Point: Integer);                    // * by Dusk412
    // * procedure SetOptions(Option: String; Choice: String);       // * by Dusk412

    {*******************************************************************************
    procedure OpenGraphicsSettings;
    By: Dusk412
    Description: Opens Graphics Settings Window
    *******************************************************************************}


    procedure OpenGraphicsSettings;
    var
      cx, cy : Integer;
    begin
      if (not LoggedIn) then Exit;
      GameTab(11);
      Wait(200+random(100));
      MMouse(586, 249, 10, 10);
      Wait(50+random(50));
      GetMousePos(cx, cy);
      if (IsUpTextMultiCustom(['raphic', 'etting'])) then Mouse(cx, cy, 0, 0, True);
    end;

    {*******************************************************************************
    procedure CloseGraphicsSettings;
    By: Dusk412
    Description: Closes Graphics Settings Window
    *******************************************************************************}


    procedure CloseGraphicsSettings;
    var
      cx, cy : Integer;
    begin
      if (not LoggedIn) then Exit;
      MMouse(486, 36, 5, 5);
      Wait(50+random(50));
      GetMousePos(cx, cy);
      if (IsUpText('lose')) then Mouse(cx, cy, 0,0, True);
    end;

    {*******************************************************************************
    procedure SetBrightness(Point: Integer);
    By: Dusk412
    Description: Sets Brightness To Point
    *******************************************************************************}


    procedure SetBrightness(Point: Integer);
    var
      P: TPoint;
      cx, cy: integer;
    begin
      if (not LoggedIn) then Exit;
      if (Point < 0) or (Point > 4) then Exit;
      OpenGraphicsSettings;
      Wait(200+random(100));
      P := IntToPoint(50 + (Point * 32) , 297);
      if not FindColorTolerance(cx, cy, 10172937, P.x -6, P.y -6, P.x +6, P.y +6, 10) then
        Mouse(P.x, P.y, 3, 3, True);
      Wait(200+random(100));
      CloseGraphicsSettings;
    end;

    {*******************************************************************************
    procedure SetOptions(Option: String; Choice: String);
    By: Dusk412
    Description: Changes Graphics Option To Choice
    *******************************************************************************}


    procedure SetOptions(Option: String; Choice: String);
    {******************************************
    * Option             * Choice             *
    *******************************************
    * visible levels     * current/all        *
    * remove roofs       * always/selectively *
    * ground decoration  * off/on             *
    * texture detail     * low/high           *
    * idle animations    * few/many           *
    * flickering effects * off/on             *
    * ground textures    * few/many           *
    * character shadows  * off/on             *
    ******************************************}

    var
      P, C: TPoint;
    begin
      if (not LoggedIn) then Exit;
      OpenGraphicsSettings;
      Wait(200+random(100));
      case (Lowercase(Option)) of
        'visible levels': P := IntToPoint(246 , 72);
        'remove roofs': P := IntToPoint(246 , 92);
        'ground decoration': P := IntToPoint(246 , 112);
        'texture detail': P := IntToPoint(246 , 132);
        'idle animations': P := IntToPoint(246 , 152);
        'flickering effects': P := IntToPoint(246 , 172);
        'ground textures': P := IntToPoint(246 , 192);
        'character shadows': P := IntToPoint(469 , 72);
        else
        begin
          WriteLn('ERROR: Unknown Option!');
          Exit;
        end;
      end;
      case (Lowercase(Choice)) of
        'all', 'always', 'off', 'low', 'few': C := IntToPoint(P.x - 70 , P.y + 14);
        'current', 'selectively', 'on', 'high', 'many': C := IntToPoint(P.x - 70 , P.y + 29);
        else
        begin
          Writeln('ERROR: Unknown Choice!');
          CloseGraphicsSettings;
          Exit;
        end;
      end;
      Mouse(P.x, P.y, 6, 6, True);
      Wait(200+random(100));
      Mouse(C.x, C.y, 4, 2, True);
      CloseGraphicsSettings;
    end;

  2. #2
    Join Date
    Jun 2007
    Location
    south park
    Posts
    1,160
    Mentioned
    0 Post(s)
    Quoted
    62 Post(s)

    Default

    So this goes in the script not in the srl folder?
    http://www.youtube.com/user/YoHoJoSRL
    Good scripting guides on youtube
    Formerly known as (djcheater)

  3. #3
    Join Date
    Nov 2007
    Posts
    437
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Well you can do whatever you want with it. I just made it cuz the ones they have now do not work.

  4. #4
    Join Date
    Jul 2007
    Location
    Ottawa, Canada
    Posts
    930
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Good work dusky. You is smart.

    but dude the srl devs have made all this, they are just finishing touches now
    ~ Metagen

  5. #5
    Join Date
    May 2008
    Posts
    266
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Good work dusky. You is smart.

    but dude the srl devs have made all this, they are just finishing touches now
    OMG really? I can't wait to auto again =p

  6. #6
    Join Date
    Dec 2006
    Posts
    908
    Mentioned
    1 Post(s)
    Quoted
    17 Post(s)

    Default

    you can auto still, there are some SRLs that were fixed by gr8 ppl like Dust412.

  7. #7
    Join Date
    Dec 2006
    Location
    Program TEXAS home of AUTOERS
    Posts
    7,934
    Mentioned
    26 Post(s)
    Quoted
    237 Post(s)

    Default

    yeah you could replace the 1 that already made :P and wait till devs

  8. #8
    Join Date
    Jun 2007
    Location
    south park
    Posts
    1,160
    Mentioned
    0 Post(s)
    Quoted
    62 Post(s)

    Default

    So Where Do I Paste That What Folder?
    http://www.youtube.com/user/YoHoJoSRL
    Good scripting guides on youtube
    Formerly known as (djcheater)

  9. #9
    Join Date
    Nov 2007
    Posts
    437
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Frankly, I would just wait at this point. The new rev will be out soon. But if you want to, just use these functions locally in a script if u even actually need them, many scripts dont.

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Audio Settings
    By Dusk412 in forum Research & Development Lounge
    Replies: 2
    Last Post: 07-09-2008, 04:53 AM
  2. Chat Settings
    By Lacky in forum OSR Help
    Replies: 6
    Last Post: 11-01-2007, 07:48 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
  •