Shuttleu
2010-09-08 08:56:16
well i made this for http://villavu.com/forum/showthread.php?t=58863 and thought it might do well in SRL
~shut
var
FileName, LastMessage, LastName: string;
procedure SaveRSChatLog;
var
TheFile, i: Integer;
TheString: string;
LinesMessage, LinesName: array of string;
begin
if (FileName = '') then
FileName:= IncludePath+'SRL\Logs\RSChatlog'+IntToStr(GetSystemTime);
TheFile:= AppendFile(ScriptPath+FileName);
LinesMessage:= ChatBoxTextArray(clChat);
LinesName:= ChatBoxTextArray(clMessage);
for i:=1 to 8 do
if LinesMessage[i]=LastMessage then
if LinesName[i]=LastName then
break;
if (not(i=1)) then
for i:= i-1 downto 1 do
TheString:= TheString+LinesName[i]+''+LinesMessage[i]+Chr(13);
LastMessage:= LinesMessage[1];
LastName:= LinesName[1];
WriteFileString(TheFile, TheString);
CloseFile(TheFile);
end;~shut