Показать сообщение отдельно
Старый 13.03.2008, 18:26   #41
Рыцарь
 
Аватар для QaK
 
Регистрация: 28.09.2007
Сообщений: 1,558
Сказал Спасибо: 71
Имеет 351 спасибок в 244 сообщенях
QaK пока неопределено
По умолчанию

Код:
const CharName='Сюдапишешьимятвоегочара';

procedure Init;
begin
end;

procedure Free;
begin
end;

begin
//сначала пример блока от клиента с заменой
if (FromClient) and (ConnectName=CharName) then 
begin if pck=#$2F+#$06+#$00 //пример абсолютно нереальный сюда ставишь свой пакет
         then begin pck:=''; //блокируем пакет
                          buf:=#$2F+#$07 //аналогично формируем другой пакет
                          SendToServerEx(CharName); // посылаем подмененный пакет 
                end;

end;
//для блокировки со стороны сервера и замены изменить FromClient на FromServer и SendToServerEx на SendToClientEx
end.
А вообше - учись юзать поиск, таких решений уже 1000 раз просили и писали.
QaK вне форума   Ответить с цитированием