[BerkooT]

var
Name : string;
a, b, c, i, offset : integer;
myID : integer;
myX, myY, myZ : integer;
n, s : string;

timer1: TTimer;

const
summ_friend = 1403;
buff_skill = 4699;

off_party = false;


procedure Init; //Вызывается при включении скрипта
begin
Name := '';
myID := 0;
myX := 0;
myY := 0;
myZ := 0;
end;

procedure Free; //Вызывается при выключении скрипта
begin

end;

//вызывается при срабатывании таймера
procedure OnTimer1(Sender: TObject);
begin

//say('on shadow timer');
sendmsg('skill ready!');

timer1.enabled := false;
end;


procedure UpdateClassID(class_id : integer);
begin
if (Name <> '') then exit;
//warlock
if (class_id = 92) or (class_id = 14) then
begin
Name := ConnectName;
Say(name, 'kot detected :'+connectname);
end;
end;

procedure OnChatSay;
var
channel : integer;
nick : string;
msg : string;
from_id : integer;
begin
i := 10;
channel := ReadD(6); // channel
nick := ReadS(i); // nick
msg := ReadS(i+4);
from_id := ReadD(2);

// призвать кота
if (channel = 3) and (msg = 'kot!') then
begin
MagicSkillUse(name, 1331); // <----------
end;

// дать бафф с кота
if (channel = 3) and (msg = 'kot') then
begin
SendActionUse(name, 1007); // <-----------
end;

// unsummon kot
if (channel = 3) and (msg = 'kot-') then
begin
SendActionUse(name, 52); // unsummon
end;

// summon friend
if (channel = 3) and
(
(msg = 'summ me') or
(msg = 'summon') or
(msg = 'summ<')
) then begin
SendAction(name, from_id, myX, myY, myZ);
MagicSkillUse(name, summ_friend);
end;

end;



//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin
if FromServer then case pck[1] of
// user info
#$32: begin
i := 22;

ReadS(i); // name
ReadD(i); // race
ReadD(i); // sex

// class id
UpdateClassID(ReadD(i));
if (name <> '') and (myID = 0) then begin
myID := ReadD(18);
myX := ReadD(2);
myY := ReadD(6);
myZ := ReadD(10);
Say(name, 'my id='+inttostr(myid));
end;
end;

// sys msg
#$62: if off_party then begin
offset := 2;
// msg id
a := ReadD(offset);
// получили эффект скилла на себя
if (a = 110) then begin
//sendmsg('sys effect');
c := ReadD(offset); // count

for i := 1 to c do begin
// type
if (ReadD(offset) = 4) then begin
i := ReadD(offset); // skill id
if i = buff_skill then SendLeave(name);
end;
end;
end;

end;
end;

if FromServer and (ConnectName = Name) then
case pck[1] of
// validate position
#$59: begin
myX := ReadD(2);
myY := ReadD(6);
myZ := ReadD(10);
end;

// creature say
#$4A: begin
i := 10;
OnChatSay;
end;
end;
end.

Почему не компилится скрипт ?
вот тут вот скрипт не компилится
Say(name, 'kot detected :'+connectname);