supernewbie, для уменьшения текста скрипта можно части
Код:
var
Kernon1:integer;
...
и
Код:
procedure Init;
begin
Kernon1:=1025263;
...
end;
объединить в
Код:
const
Kernon1=1025263;
...
Добавлено через 3 минуты
Breadfan, скрипт очень прост: ждет прихода пакета #$0C, после этого определяет чей NpcID в пакете присутствует и посылает об этом Npc сообщение юзеру