25.12.2009, 19:53
|
#2
|
Рыцарь
Регистрация: 07.03.2009
Сообщений: 9,139
Сказал Спасибо: 70
Имеет 2,820 спасибок в 1,735 сообщенях
|
ну, да... правильно... Оффтоп
delphi Код:
var
monster:ttimer;
procedure Init; //Вызывается при включении скрипта
begin
useforconnectname = 'connectionname'; //1
monster:=TTimer.Create(nil);
monster.OnTimer:=@Onmonster;
monster.enabled:=false;
monster.interval:=5000;
end;
procedure Free; //Вызывается при выключении скрипта
begin
monster.free;
end;
procedure SAY(msg:string);
begin
buf := '';
writemask('cddss',[#$4a,0,10,'',msg]);
SendToClient;
end;
procedure OnMonster(sender:tobject); //2
begin
say('hallo');
end;
//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin
monster.enabled := true;
end.
__________________
L2Ext - project closed.
|
|
|