Показать сообщение отдельно
Старый 14.05.2011, 07:44   #2
Местный
 
Регистрация: 04.11.2009
Адрес: Где-то в жопе европы
Сообщений: 316
Сказал Спасибо: 32
Имеет 42 спасибок в 39 сообщенях
wimax пока неопределено
По умолчанию

ты пакеты отпровляиеш не из бота а из l2phx так что разницы нету что ето бот либо клиент.
ну скрипт чтота типа такого хз будет работать или нет ибо писал быстро =)
Код:
Const
Name='Avrelio'; //ник
paket='0000000000'; //сам пакет на бафф
var
   Timer01: TTimer;
procedure Init;
begin
   Timer01:=TTimer.Create(nil); //выделяем памать и т.п.
   Timer01.OnTimer:=@OnTimer01; 
   Timer01.enabled:=true; //врубаем сразу таймер после запуска
   Timer01.interval:=250000; //пишем как часто будет слатса пакет 
end;
   
procedure Free;
begin
    Timer01.free;
end;



procedure OnTimer01(Sender: TObject);
begin
pck:='';
buf:=HStr(paket); 
SendToServerEx(Name);
end;

begin
end.
wimax вне форума   Ответить с цитированием
За это сообщение wimax нажился 2 спасибками от: