Doberman, понятно почему зависает, твое условие:
if FromClient and (ConnectName = 'NAME') and (pck[1]=#$C4) никогда не выполняется, и когда приходит время программа пытается отправить переменную PaketManora в котрой хз что сейчас находиться. Ты бы добавил:
//если перехвачен пакет на покупку семян то
if FromClient and (ConnectName = 'NAME') and (pck[1]=#$C4) then
begin
//запоминаем его полностью
PaketManora:=pck;
// отправляем клиенту что пакет запомнен
buf:=hstr('4A AB F6 A0 48 02 00 00 00 2D 00 3E 00 56 00 4F 00 52 00 4F 00 4E 00 37 00 00);
writes(buf, 'пакет на покупку запомнен!);
SendToClient;
end;
И ты точно не забыл вместо 'NAME' поставить имя твоего чара?
Последний раз редактировалось Yegor, 17.07.2009 в 15:39.
|