const
name = 'asdasd';
interval = 100; //в мс
var
TimerEnchant:TTimer;
procedure Init;
begin
TimerEnchant:=TTimer.Create(nil);
TimerEnchant.OnTimer:=@enchant;
TimerEnchant.enabled:=false;
TimerEnchant.interval:=interval;
end;
procedure Free;
begin
TimerEnchant.free;
end;
procedure enchant(Sender: TObject);
begin
SendToServerEx(name);
end;
begin
if FromClient and (pck[1]=#$23) and (ConnectName=name) then
begin
buf:=pck;
TimerEnchant.enabled:=true;
end;
begin
if FromServer and (pck[1]=#$EA) and (ConnectName=name) then
begin
TimerEnchant.enabled:=false;
end;
end;
end.
J-Fobos помоги плиз. Пытаюсь заюзать этот скрипт, но меня дисконектит сразу же как только запускаю на выполнение следующий скрипт:
Код:
vex2865, все просто. Скрипт писали не вы, у вас он не будет работать Deffol, нет конечно. Не вижу смысла вкалывать вместо других.
ПомогитеПожалуйста и BioDread сами написали себе скрипт, молодцы. А то что я выкладывал - это просто подсказки.
то что скрипт писал не я это ясно, но почему он у меня работать не будет? он же не привязан к BioDread или Помогите пожалуйста, канеш они молодцы что написали такой скрипт! и у них тоже была проблема с дисконектом! я просто хочу узнать почему дисконектит!
фобос, тебе так сложно подсказать? звездная болезнь....
вместо того, что бы помочь, ты тупо строишь из себя бога, и каждого тут судишь, дай тоже какую нибудь подсказку