Results 1 to 8 of 8

Thread: Change login music and updated loggedin

  1. #1
    Join Date
    Oct 2006
    Posts
    207
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Change login music and updated loggedin

    The login screen has changed, there is now an option of enabling or disabling sound:
    SCAR Code:
    Function LoginMusicOn:Boolean;
    begin
      Result:=(GetColor(748,477)=65536)
    end;

    Function ChangeLoginMusic(yes :Boolean):Boolean;
    begin
      if(not LoginMusicOn=yes) then
      begin
        Mouse(744, 480, 10, 10, True);
        ChangeLoginMusic(yes);
      end
    end;

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

    Default

    thanks, i wanted to do this lol
    Infractions, reputation, reflection, the dark side of scripting, they are.

  3. #3
    Join Date
    Feb 2006
    Location
    Amsterdam
    Posts
    6,136
    Mentioned
    28 Post(s)
    Quoted
    17 Post(s)

    Default

    Nope, LoggedIn hasnt changed. Keep it as it is.

    SCAR Code:
    function LoggedIn: Boolean;
    begin
      Result := (GetColor(422, 480) = 16777215);
    end;
    SRL is a Library of routines made by the SRL community written for the Program Simba.
    We produce Scripts for the game Runescape.

  4. #4
    Join Date
    Feb 2006
    Location
    Locked in RAM's closet !
    Posts
    2,001
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    lawl i got bored and made on

    SCAR Code:
    Function LoginMusic( S : String) : Boolean;
    Begin
      If LowerCase(S) = 'off' Then Begin
        if (GetColor(745, 480) = 1315974) Then Begin
          Result:= False;
          Exit;
        End;
        Mouse(730, 466, 25, 25, True)
        Result:= False;
      End;
      If LowerCase(S) = 'on' Then Begin
        if not (GetColor(745, 480) = 1315974) Then Begin
          Result:= True;
          Exit;
        End;
        Mouse(730, 466, 25, 25, True)
        Result:= True;
      End;
    End;


    soooo much bigger
    Darky has stopped by to say hello :).
    10-21-2010
    Updated-
    10-09-2012

  5. #5
    Join Date
    Feb 2006
    Location
    Amsterdam
    Posts
    6,136
    Mentioned
    28 Post(s)
    Quoted
    17 Post(s)

    Default

    Result = Always False, no need to set it. In Delphi every non set variable is evaluated to nill, 0, False.
    SRL is a Library of routines made by the SRL community written for the Program Simba.
    We produce Scripts for the game Runescape.

  6. #6
    Join Date
    Feb 2006
    Location
    Locked in RAM's closet !
    Posts
    2,001
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    I know that

    I just want to make sure the code it self knows that it is false XD

    but i guesse to make it shorter
    SCAR Code:
    Function LoginMusic( S : String ) : Boolean;
    Begin
      If LowerCase(S) = 'off' Then Begin
        If (GetColor(745, 480) = 1315974) Then Begin
          Exit;
        End;
        Mouse(730, 466, 25, 25, True)
      End;
      If LowerCase(S) = 'on' Then Begin
        If Not (GetColor(745, 480) = 1315974) Then Begin
          Result:= True;
          Exit;
        End;
        Mouse(730, 466, 25, 25, True)
        Result:= True;
      End;
    End;
    Darky has stopped by to say hello :).
    10-21-2010
    Updated-
    10-09-2012

  7. #7
    Join Date
    Nov 2006
    Location
    California, USA
    Posts
    336
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Dark, here you are.

    SCAR Code:
    function LoginMusic(OnOff: Boolean): Boolean;
    begin
      if(not(OnOff)) then
      begin
        if(GetColor(745, 480) = 1315974) then
          Exit;
        Mouse(730, 466, 25, 25, True)
      end
      else
      begin
        Result:= not(GetColor(745, 480) = 1315974);
        if(Result = True) then
          Exit;
        Mouse(730, 466, 25, 25, True)
        Result:= True;
      end;
    end;

  8. #8
    Join Date
    Oct 2006
    Posts
    207
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by WT-Fakawi View Post
    Nope, LoggedIn hasnt changed. Keep it as it is.

    SCAR Code:
    function LoggedIn: Boolean;
    begin
      Result := (GetColor(422, 480) = 16777215);
    end;
    Really? Im sure last night when i tested it it kept on saying it was logged in =S Oh well i will check again tonight...

    Edit: Oops it LoggedIn not LoggedOut

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Minimap Colors change at each Login
    By WT-Fakawi in forum RS has been updated.
    Replies: 18
    Last Post: 05-18-2006, 02:04 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
  •