Results 1 to 3 of 3

Thread: Is chat finding currently working on RS07?

  1. #1
    Join Date
    Sep 2010
    Posts
    5,762
    Mentioned
    136 Post(s)
    Quoted
    2739 Post(s)

    Default Is chat finding currently working on RS07?

    Or is my code wrong :0

    Simba Code:
    {$I SRL-OSR/SRL.Simba}
    Procedure GetText;
    Var
      i, j, k, l, t, n:Integer;
      ChatText:TStringArray;
      Colors:TIntegerArray;
    Begin
      SetLength(Colors,2)
      SetLength(ChatText,16)
      Colors := [16711680,128]
      marktime(t)
      For k := 0 to 8 do
      Begin
        while j<2 do
        Begin
          ChatText[n] := GetChatBoxText(i,Colors[j]);
          Writeln('Text found ' + tostr(ChatText))
          j := j+1
        End;
       j:=0
      End;
      Writeln('Took ' + tostr(t/1000000) + ' ms')
    End;
    Begin
      GetText;
    End.


    nvm got it

    Code:
    Text found ['']
    Text found ['']
    Text found ['']
    Text found ['']
    Text found ['']
    Text found ['']
    Text found ['']
    Text found ['']
    Text found ['']
    Text found ['']
    Text found ['']
    Text found ['']
    Text found ['']
    Text found ['']
    Text found ['He']
    Text found ['']
    Text found ['Hows it going']
    Text found ['']

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

    Default

    Quote Originally Posted by Officer Barbrady View Post
    Or is my code wrong :0

    Simba Code:
    {$I SRL-OSR/SRL.Simba}
    Procedure GetText;
    Var
      i, j, k, l, t, n:Integer;
      ChatText:TStringArray;
      Colors:TIntegerArray;
    Begin
      SetLength(Colors,2)
      SetLength(ChatText,16)
      Colors := [16711680,128]
      marktime(t)
      For k := 0 to 8 do
      Begin
        while j<2 do
        Begin
          ChatText[n] := GetChatBoxText(i,Colors[j]);
          Writeln('Text found ' + tostr(ChatText))
          j := j+1
        End;
       j:=0
      End;
      Writeln('Took ' + tostr(t/1000000) + ' ms')
    End;
    Begin
      GetText;
    End.


    nvm got it

    Code:
    Text found ['']
    Text found ['']
    Text found ['']
    Text found ['']
    Text found ['']
    Text found ['']
    Text found ['']
    Text found ['']
    Text found ['']
    Text found ['']
    Text found ['']
    Text found ['']
    Text found ['']
    Text found ['']
    Text found ['He']
    Text found ['']
    Text found ['Hows it going']
    Text found ['']

    i had trouble with it look like box isnt set right

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

    Default

    deleted found my problem

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
  •