подмена титула в чаринфо на грации, думаю без комментариев....
delphi Код:
var
a: integer;
part1, part2, Player, Title :string;
procedure Init;
begin
end;
procedure Free;
begin
end;
procedure OnConnect(WithClient: Boolean);
begin
end;
procedure OnDisonnect(WithClient: Boolean);
begin
end;
begin
if FromServer and (pck[1]=#$31) then
begin
a:=22;
Player:=ReadS(a);
a:=a+272;
part1:=Copy(pck,1,a-1);
Title:=ReadS(a);
part2:=Copy(pck,a,length(pck)-a);
buf:=part1;
WriteS('Losser');
buf:=buf+part2;
pck:=buf;
end;
end.