Что со скриптом?

[BillieJoe]

procedure Init; //Вызывается при включении скрипта
begin
CreateObject(OID_WEAPON,'Angel Slayer',65535);
end;

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

end;

procedure OnConnect(WithClient: Boolean); //Вызывается при установке соединения
begin

end;

procedure OnDisonnect(WithClient: Boolean); //Вызывается при потере соединения
begin

end;

//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin

end.

В крассной строке он находит ошибку из-за этого скрипт не работает,кто может переделать его чтобы он зароботал?