[Помогите]Прикрутить таймер к скрипту

[afonbka]

Я понимаю что для С4, пробывал модифицировать под фрею, но увы.. без результатно, запускается нормально, но не глотает банки, видать не определяет хп, и интересно откуда берутся ети цифры Read (33) например. В моем случае пакет 18 (статусупдейт) Read(14) = CurHP Read(11) = MaxHP

[dyh9l]

Сообщение от afonbka

Я понимаю что для С4, пробывал модифицировать под фрею, но увы.. без результатно, запускается нормально, но не глотает банки, видать не определяет хп, и интересно откуда берутся ети цифры Read (33) например. В моем случае пакет 18 (статусупдейт) Read(14) = CurHP Read(11) = MaxHP

цифры берутся из расшифровки пакета

[afonbka]

а, понятно.. что нечего не понятно в расшифровке вродебы не указывается под каким ид тот или иной параметр пакета. Это я про детальную расшифровку (та что в окне phx) может быть другая какая есть..

[supernewbie]

это не ид, а номер байта

[afonbka]

или хотябы подскажите как сделать, чтобы в этом скрипте хп проверялось только у заданного конекта, а не у всех окон. Вот скрипт.

//автоматическое использование НР пробирок
const
    Name = 'UberWark';

var MyID:Word;
    OID:String;

begin
 if FromServer and (pck[1]=#$32) then  MyID:=ReadD(18);
 if FromServer and (pck[1]=#$18) and (ReadD(2)=MyID) then
  if ReadD(6)=4 then
   if (ReadD(14)<=ReadD(11)) then
    begin
     buf:=HStr('19 D9 03 21 10 00 00 00 00');    
     SendToServerEx(Name);
    end;
end.

Определяет хп у всех окон, например у бд неполное хп, варк жрет банки, у свс не полное хп, варк жрет банки, в общем определяет хп у всех окон, но пакет на питье отправляет все правильно. Прошу помоч реализовать

В общем надо, чтоыб вот эту процедуру

begin
 if FromServer and (pck[1]=#$32) then  MyID:=ReadD(18);
 if FromServer and (pck[1]=#$18) and (ReadD(2)=MyID) then
  if ReadD(6)=4 then
   if (ReadD(14)<=ReadD(11)) then

скрипт выполнял толькона конекте (Name) То есть UberWark

Добавлено через 22 минуты
Думаю что вот так ето делается?

if FromServer and (ConnectName=Name)

Добавлено через 4 минуты
Но теперь он их пьет непереставая, несмотря неначье хп. Прошу помоч разобратся...

Добавлено через 9 минут
Вот так вот помоему получилось:

 if FromServer and (ConnectName=(Name))

Добавлено через 1 минуту

Хотя нет, все также пьет по старому не перестовая и не смотря неначье хп. Помогите решить проблему.

[Breadfan]

if FromServer and (pck[1]=#$32) then  MyID:=ReadD(18);
 if FromServer and (pck[1]=#$18) and (ReadD(2)=MyID) then

=>>

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

[afonbka]

Спасибо. сейчас проверю. До этого делал точно также, но давало ошибку в строке (connectname=name) а сейчас нет сейчас протестю. Спасибо все работает. Правдо первый раз загрузил, пил неперестовая, потом помудрил, удалил 1 функцию, потом снова добавил и норм все стало. Спасибо. Теперь буду мудрить чтобы привязать таймер. Прошу помоч если ктонито может..

//чёртово автоматическое использование грёбаных НР пробирок
const
    Name='UberWark';

var MyID:Word;
    OID:String;

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
  if ReadD(6)=4 then
   if (ReadD(14)<=ReadD(11)) then
    begin
     buf:=HStr('19 D9 03 21 10 00 00 00 00');    
     SendToServerEx(Name);
    end;
end.

Или подскажите хотябы как сделать на этот скрипт не таймер, а обычный Delay 10 секунд.

[dyh9l]

Сообщение от afonbka

Спасибо. сейчас проверю. До этого делал точно также, но давало ошибку в строке (connectname=name) а сейчас нет сейчас протестю. Спасибо все работает. Правдо первый раз загрузил, пил неперестовая, потом помудрил, удалил 1 функцию, потом снова добавил и норм все стало. Спасибо. Теперь буду мудрить чтобы привязать таймер. Прошу помоч если ктонито может..

//чёртово автоматическое использование грёбаных НР пробирок
const
    Name='UberWark';

var MyID:Word;
    OID:String;

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
  if ReadD(6)=4 then
   if (ReadD(14)<=ReadD(11)) then
    begin
     buf:=HStr('19 D9 03 21 10 00 00 00 00');    
     SendToServerEx(Name);
    end;
end.

Или подскажите хотябы как сделать на этот скрипт не таймер, а обычный Delay 10 секунд.

c делеем будешь в лагах стоять

[afonbka]

да? спасибо что предупредил тогда надо думу думать как таймер привязать правильно, на весь скрипт...

[Breadfan]

где-то как-то так, или около того:Оффтоп

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 вот этот переделать