//Автоматизация заточки предметов до необходимого уровня.
const
Name='/BuffaloBill/'; //без этого не останавливал timer.enabled:=false;
var
timer:TTimer;
procedure Init;
begin
timer:=TTimer.Create(nil);
timer.interval:=2000;
timer.OnTimer:=@fireTimer;
timer.enabled:=true;
end;
procedure Free;
begin
timer.Free;
end;
procedure fireTimer(Sender: TObject);
begin
buf:=hstr('/19 02 E7 02 10 00 00 00 00/');
SendToServer;
buf:=hstr('/D0 4F 00 40 DD 02 10/');
SendToServer;
buf:=hstr('/5F 40 DD 02 10 00 00 00 00/');
SendToServer;
end;
begin
if FromServer and (ConnectName=Name) and (pck = HStr('/40 DD 02 10/')) then begin
timer.enabled:=false;
end;
end.
Подскажите пожалусто, что в этом скрипте не правильно, а то он не работает...(Это скрипт вроде как на заточку=\)
Последний раз редактировалось konata, 22.04.2009 в 12:52.
|