где-то как-то так, или около того: Оффтоп
delphi Код:
const
Name='UberWark';
var MyID:Word;
OID:String;
useP:boolean;
Timer01:TTimer;
MinHP:integer;
procedure Init;
begin
Timer01:=TTimer.Create(nil); //выделяем памать и т.п.
Timer01.OnTimer:=@OnTimer01; //привязываем процедуру к событию
Timer01.enabled:=false; //начальное положение включен(true)/выключен(false)
Timer01.interval:=11000; //интервал(в милисекундах) как часто таймер срабатывает
MinHP:=7000; //уровень хп при котором пьет
end;
procedure Free; //Вызывается при выключении скрипта
begin
Timer01.enabled:=False;
Timer01.free;
end;
procedure OnTimer01; //проц-ра выполняющаяся по таймеру
begin
useP:=false; //спустя interval/1000 секунд после отправки пакета юза банки - сбрасываем флаг
end;
begin
if FromServer and (connectname=name) and (pck[1]=#$32) then MyID:=ReadD(18);
if FromServer and (connectname=name) and (pck[1]=#$18) and (ReadD(2)=MyID) then begin
if ReadD(6)=4 then begin
if (ReadD(10)=9) and (ReadD(14)<=MinHP) and (useP=false) then //HP<MinHP и банка не задействована
begin
useP:=True; //флаг - "работает ли сейчас банка" включить
Timer01.enabled:=True; //таймер включить
buf:=HStr('19 D9 03 21 10 00 00 00 00'); //пакет юз банки
SendToServerEx(Name);
end;
if (ReadD(10)=9) and (ReadD(14)>MinHP) and (useP) then begin
useP:=False; //хп выровняли, но флаг все еще установлен? сбрасываем
Timer01.enabled:=False; //таймер выключить
end;
end;
end;
end.
ЗЫ: требуется постоянно обновлять пакет использования банки, либо все-таки собраться с силами и переделать нормально
Но лучше http://coderx.ru/showpost.php?p=121935&postcount=12 вот этот переделать
__________________
На фразы в аську типа "слух карочь 1)как точить 2)как раскачаться за 5 мин" - игнор. ИМХО идиотизм
Дай голодному рыбу - он будет один день сыт. Покажи ему, как удить рыбу - он пошлёт тебя и скажет, что у него есть более интересные занятия, чем забрасывать снасти в воду
David Kastrup @ de.comp.text.tex.
"Приобретенные навыки общения с маленькими детьми - сильно упрощают взаимопонимание на форумах..."
А вы знаете, что для качественной сварки - место шва нужно протереть спиртом?
Последний раз редактировалось Breadfan, 22.11.2010 в 21:03.
|