[Скрипт] Авто использование банок HP MP

[altairalentus]

Вот может кому то нужно скрипт автоматом использует банку хп мп когда остается меньше 1/3
для начала нужно указать банки которые нужно использовать
.hpitem - пишем в общий чат и юзаем банку на ХП
.mpitem - пишем в общий чат и юзаем банку на МП
все скрипт готов к использованию
Необходимо создать файл AutoHpMp.txt в папке программы

//AutoHpMp
//Script by AltairAlentus
var
config:tstringlist;
savemod:boolean;
savetype:string;
procedure Init; 
begin
Config:=tstringlist.create;
Config.loadfromfile('AutoHpMp.txt');
end;

procedure Free; 
begin
Config.savetofile('AutoHpMp.txt');
end;

procedure check(id:string);
    var 
        Cur:integer;   
        Max:integer;
    begin 
        Max:=readd(10);
        Cur:=readd(6);
        If (Max/3)>Cur then 
        if id='hp' then useitem(strtoint(Config.values['HPitem']))
                   else useitem(strtoint(Config.values['MPitem']))
    
    end;
       
procedure useitem(Id:integer);
    begin
         buf:=HStr('CC 00 57 6B FF');
         writed(Id);  
         writec(0); 
         sendtoserver;
    end; 
    
procedure saveitem(type:string);
    begin
        if savemod then 
            begin
                config.values[savetype]:=(inttostr(readd(6)));
                savemod:=false;
            end
            else 
                begin
                    savemod:=true;  
                    savetype:=type;
    end;        end;
       
begin
if fromserver then 
    case pck[1] of 
      #$23: check('hp');
      #$22: check('mp');
    end;  
if FromClient then   
    case pck[1] of
        #$b2:    
             case reads(7) of
                '.hpitem': saveitem('HPitem'); 
                '.mpitem': saveitem('MPitem');
                
             end; 
        #$cc: if savemod then saveitem('ok')
    end;

end.

Если кому то будет нужно то можно сделать с проверкой отката банок например обычная банка в откате тогда будет использоваться корень или кристалл

[vlq]

Выросту когда спасибку поставлю молодец очень удобно +++++

[c-lavr]

красиво скрипт написан!
Можешь подкинуть инфу по работе с файлами в скриптпаскале?
А то мои знания слабенькие в этом напрвлении

[bloodraven]

А можно сделать что б банки по откату жрались ?^^
п.с.а то вечно син без маны бегает

[c-lavr]

Цитата: Сообщение от bloodraven А можно сделать что б банки по откату жрались ?^^ п.с.а то вечно син без маны бегает

можно)

        Max:=readd(10);
        Cur:=readd(6);
               If (Max/3)>Cur then ...

Cur - это переменная, в которую записывается время до окончания действия банки.

поэтому можно изменить так:

        Cur:=readd(6);
              If Cur<1 then ...

[dwenarik]

создал AutoHpMp.txt в папке l2phx . При запуске скрипта пишит, что не может его найти...

[altairalentus]

Цитата: Сообщение от dwenarik создал AutoHpMp.txt в папке l2phx . При запуске скрипта пишит, что не может его найти...

может у тебя не отображает расширение файла тогда создай текстовый файл и назви AutoHpMp

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

Цитата: Сообщение от c-lavr можно) Max:=readd(10); Cur:=readd(6); If (Max/3)>Cur then ... Cur - это переменная, в которую записывается время до окончания действия банки. поэтому можно изменить так: Cur:=readd(6); If Cur<1 then ...

Постой в Cur текущее количество ХП\МП
В 22 и 23 пакетах с 6-9 байт текущие количество 10-13 байт максимальное

[KPEHDEJl]

Цитата: Сообщение от altairalentus Если кому то будет нужно то можно сделать с проверкой отката банок например обычная банка в откате тогда будет использоваться корень или кристалл

Добрый день . Опишите пожалуйста как сделать

[c-lavr]

Цитата: Сообщение от altairalentus Постой в Cur текущее количество ХП\МП В 22 и 23 пакетах с 6-9 байт текущие количество 10-13 байт максимальное

Сори тупанул)
С откатом банок есть скрипт через пета вроде.

[altairalentus]

Цитата: Сообщение от c-lavr Сори тупанул) С откатом банок есть скрипт через пета вроде.

видел надо как то сделать но проблема негде тестить на моем сервере пет не работает

[dwenarik]

создал текстовый файл и назвал AutoHpMp, всё заработало, спс .

[KPEHDEJl]

Как сделать что если одна банка в откате он жрал другую?

[altairalentus]

Цитата: Сообщение от KPEHDEJl Как сделать что если одна банка в откате он жрал другую?

Надо сделать проверку отката банок. В ближайшие время я обновлю скрипт сейчас немного занят скоро СЕСИЯ!

[martiniFresh]

Привет, altairalentus.
Такая проблема:
Не получаеться работа с файлом. Создаю файл, включаю скрипт, в игре делаю всё по инструкции. Смотрю файл, а он пустой. Запись в него не идёт. Из за чего может быть? Пробовала и с .txt и без него создавать. Может можно уже как то прописать в текстовый файл строки на ману и здоровье. Обьясни пожалуйста, какие именно строки записываються в текстовый файл? И почему может не записывать программа?

[altairalentus]

Цитата: Сообщение от martiniFresh Привет, altairalentus. Такая проблема: Не получаеться работа с файлом. Создаю файл, включаю скрипт, в игре делаю всё по инструкции. Смотрю файл, а он пустой. Запись в него не идёт. Из за чего может быть? Пробовала и с .txt и без него создавать. Может можно уже как то прописать в текстовый файл строки на ману и здоровье. Обьясни пожалуйста, какие именно строки записываються в текстовый файл? И почему может не записывать программа?

Нужно создать текстовый файл с именем AutoHpMp а скрип сам должен записать значения записать вручную не получится ид банок в каждого разные