Results 1 to 4 of 4

Thread: ChatsBlackText

  1. #1
    Join Date
    Nov 2006
    Posts
    2,369
    Mentioned
    4 Post(s)
    Quoted
    78 Post(s)

    Default ChatsBlackText

    I just want to know hot to use ChatBlackText.
    I want it to check if last or secondlast line results 'manag'

    SCAR Code:
    {*******************************************************************************
    function ChatsBlackText: Array Of String;
    By: Wizzup?
    Description: Gets all text with color 0 in chatbox:
     line 1 is result[0]
     line 2 is result[1]
     line 3 is result[2]
     line 4 is result[3]
     line 5 is result[5]
     line 6 is result[6]
     line 7 is result[7]
     line 8 is result[8]
    *******************************************************************************}


    function ChatsBlackText: array of string;
    var
      I: Byte;
      tpa: TPointArray;
    begin
      SetArrayLength(tpa, 9);
      for I := 1 to 8 do
        tpa[i] := TextCoords(i);

      SetArrayLength(Result, 9);
      for I := 1 to 8 do
        Result[I] := Trim(GetTextAtEx(tpa[i].x - 2, tpa[i].y - 2, 0, SmallChars, False,
          False, 0, 1, 0, 80, False, tr_AllChars));
    end;
    Quote Originally Posted by DeSnob View Post
    ETA's don't exist in SRL like they did in other communities. Want a faster update? Help out with updating, otherwise just gotta wait it out.

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

    Default

    SCAR Code:
    program New;
    {.include srl/srl.scar}
    var
      A:Array of String;
    begin
      A:=ChatsBlackText;
      If (Pos('manag', A[7])>0) or (Pos('manag', A[8])>0) then
        Writeln('See?')
    end.

  3. #3
    Join Date
    Nov 2006
    Posts
    2,369
    Mentioned
    4 Post(s)
    Quoted
    78 Post(s)

    Default

    Quote Originally Posted by Mylesmadness View Post
    SCAR Code:
    program New;
    {.include srl/srl.scar}
    var
      A:Array of String;
    begin
      A:=ChatsBlackText;
      If (Pos('manag', A[7])>0) or (Pos('manag', A[8])>0) then
        Writeln('See?')
    end.
    Thank you
    Quote Originally Posted by DeSnob View Post
    ETA's don't exist in SRL like they did in other communities. Want a faster update? Help out with updating, otherwise just gotta wait it out.

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

    Default

    yep

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
  •