в StatusUpdate не всегда приходит инфа лишь о хп, потому у тебя и не срабатывает периодически, вроде както так: Оффтоп
delphi Код:
//автоматическое использование НР пробирок
const
Name = 'UberWark';
var MyID:Word;
OID:String;
i,j:integer;
begin
if FromServer and (pck[1]=#$21) and (ReadD(12)=1539) then
OID:=pck[8]+pck[9]+pck[10]+pck[11];
if FromServer and (pck[1]=#$32) then MyID:=ReadD(18);
if FromServer and (pck[1]=#$18) and (ReadD(2)=MyID) then begin
i:=ReadD(6);
for j:=1 to i do begin
if (ReadD(i*8+2)=9) and (ReadD(i*8+6)<3200) then begin
SendToServerEx(Name);
buf:=HStr('19 D9 03 21 10 00 00 00 00');
SendToServer;
end;
end;
end;
end.
Но лучше другой скрипт поищи - этот спамить будет.
__________________
На фразы в аську типа "слух карочь 1)как точить 2)как раскачаться за 5 мин" - игнор. ИМХО идиотизм
Дай голодному рыбу - он будет один день сыт. Покажи ему, как удить рыбу - он пошлёт тебя и скажет, что у него есть более интересные занятия, чем забрасывать снасти в воду
David Kastrup @ de.comp.text.tex.
"Приобретенные навыки общения с маленькими детьми - сильно упрощают взаимопонимание на форумах..."
А вы знаете, что для качественной сварки - место шва нужно протереть спиртом?
|