SCAR Code:
function GetNick(Name: string; NickLength: Integer):string;
var I: integer;
begin
if (Length(Name) + 1) < NickLength then
begin
Writeln('Name ' + Name + ': too short, Nick :' + IntToStr(NickLength) + ' too long');
exit;
end;
SetLength(result, NickLength);
for I:= 1 to NickLength do
result[I]:= Name[Round(Length(Name) / 2) + (I - (Round(NickLength / 2)))];
end;
function GetChatName(text: string): string;
var tradename: string;
begin
if FindText(x, y, text, SmallChars, MCX1, MCY1, MCX2, MCY2) then
begin
tradename:= GetTextAtEx(-1, y, 1, SmallChars, false, true, 0, 0, 0, 50, false, tr_AllChars);
wait(1);
tradename:= Trim(tradename);
if tradename[length(tradename)] = ':' then
setlength(tradename, (length(tradename) - 1));
result:= tradename;
Writeln(':'+result+':');
end else
Writeln('No Name Found');
end;