Take a look in Text.scar.
SCAR Code:
procedure FixChat; forward;
{*******************************************************************************
function SaveToChatLog: Boolean;
By: WT-Fakawi / masquerader
Description: Saves chat to log file
*******************************************************************************}
procedure SaveToChatLog;
begin
FixChat;
OldLine := TheLine;
if (GetLastChatText(theline)) then
begin
if OldLine <> theLine then
begin
LastChatter(thename)
WriteFileString(thefile, TheTime + ' ' + thename + ': ' + theline +
Chr(13));
// writeln(thetime+' '+thename+': '+theline);
end
end else
begin
LastChatter(theline)
if OldLine <> theLine then
begin
WriteFileString(thefile, TheTime + ' ' + theline + Chr(13));
// writeln(thetime+' '+theline);
end
end
end;
Don't know what the error means though...