SRL Archive - Help

How would I do this? FindBlackChatMessage isn't working for me.

My procedure:

procedure WaitForSignal;
begin
ScriptStatus:= 'Waiting for the signal';
ProgressReport;
if FindBlackChatMessage('[My Username]: 0') then
begin
writeln('found it');
end
else
writeln('didnt find it');
end;

Why doesn't this work? It always returns false.
The message IS there.
The message IS black.

I set my friends' chat to black text, spoke that chat message and FindBlackChatMessage doesn't find it.
So what's up?

Works for me, make sure all capitalization is correct.

From: Footy
Works for me, make sure all capitalization is correct.

Does it start looking at the beginning of a line? Because my friends' chat tab is in the way.

In other words, will it find '[my username]: 0' if it's actually '[my friends' chat tag] [my username]: 0' with the friends' chat tab being blue?

EDIT: It works when I only include my username. Maybe there's something that's throwing it off…I have a 0 in my username, would that screw it up?

Hmm, I doubt it. There's a function in SRL that reads the black text in the chat box and outputs it. I'm not positive what it's called, but if you find it, run it and see what's output.

From: Footy
Hmm, I doubt it. There's a function in SRL that reads the black text in the chat box and outputs it. I'm not positive what it's called, but if you find it, run it and see what's output.

I believe I've got it.

Seems that FindBlackChatMessage doesn't like finding the first character in a line. Easily worked around.

Thanks ;)

You might be interested in this function if you're waiting for a specific message to appear:

function WaitMessage(Time: Integer; Text: String; Line: TIntegerArray): Boolean;
var
  hLine, t, i: Integer;
begin
  Result := False;
  hLine := High(Line);
  FixChat;
  MarkTime(t);
  while (TimeFromMark(t) < Time) do
  begin
    for i := 0 to hLine do
    begin
      Result := (Pos(Text, GetChatBoxText(Line[i], clMessage)) <> 0);
      if Result then
        Exit;
    end;
    Wait(25);
  end;
end;

:)

From: Runaway
You might be interested in this function if you're waiting for a specific message to appear:

function WaitMessage(Time: Integer; Text: String; Line: TIntegerArray): Boolean;
var
  hLine, t, i: Integer;
begin
  Result := False;
  hLine := High(Line);
  FixChat;
  MarkTime(t);
  while (TimeFromMark(t) < Time) do
  begin
    for i := 0 to hLine do
    begin
      Result := (Pos(Text, GetChatBoxText(Line[i], clMessage)) <> 0);
      if Result then
        Exit;
    end;
    Wait(25);
  end;
end;

:)

That seems pretty complex :P Thanks! I'll use this in later versions of my upcoming script.

From: KeepBotting
How would I do this? FindBlackChatMessage isn't working for me.

My procedure:

procedure WaitForSignal;
begin
ScriptStatus:= 'Waiting for the signal';
ProgressReport;
if FindBlackChatMessage('[My Username]: 0') then
begin
writeln('found it');
end
else
writeln('didnt find it');
end;

Why doesn't this work? It always returns false.
The message IS there.
The message IS black.

I set my friends' chat to black text, spoke that chat message and FindBlackChatMessage doesn't find it.
So what's up?

Eh…? So is this what your friend actually said: Hi [My Username]: 0, nice to meet you'?

I'm pretty sure you want it to search for ur actual username, and NOT the words 'My UserName'? If it's meant to recognize a variable containing a string, you should just input the variable name without the ''. Also why put a [] around ur variable?

I believe what Riwu is trying to say is rather than searching for the string you have with [My Username] try and replace it with something along these lines:

procedure WaitForSignal;
begin
ScriptStatus:= 'Waiting for the signal';
ProgressReport;

if FindBlackChatMessage(Players[CurrentPlayer].Nick + ' 0') then
  writeln('found it') else
writeln('didnt find it');
end;

From: riwu
Eh…? So is this what your friend actually said: Hi [My Username]: 0, nice to meet you'?

I'm pretty sure you want it to search for ur actual username, and NOT the words 'My UserName'? If it's meant to recognize a variable containing a string, you should just input the variable name without the ''. Also why put a [] around ur variable?

From: P1ng
I believe what Riwu is trying to say is rather than searching for the string you have with [My Username] try and replace it with something along these lines:

procedure WaitForSignal;
begin
ScriptStatus:= 'Waiting for the signal';
ProgressReport;

if FindBlackChatMessage(Players[CurrentPlayer].Nick + ' 0') then
  writeln('found it') else
writeln('didnt find it');
end;

I had just censored my username, that's why it's there.