я делал кучу разновидностей подобных ботов.. поетому накуя ты пати виндоу смотриш???
смотри- СТАТУС ПАДЕЙТ!
оттуда выдергивай инфу про ХП и МП... и про лимиты ХП и МП тоже (ммаксимальное кол-во) лимиты для того чтобы скрипт сделать универсальным типа 70% от шкалы- лить ХП.. а не фиксировать ето число константой каждый раз- переправля для нового лвл-)...
спс за твой грамотный вопрос нам.. красиво так всё нарисовал в красках- стало всё понятно сразу...
впредь если вопросы возникнут- спрашивай максимально уточняя что именно не выходит.. чтоб мы поняли..
павкет СТАТУС АПДЕЙТ приходит каждый раз при изменении кол-ва ХП и МП.... и не только.. при бафах еще и т.д.
поетому нефиг пати окно смотреть!! смотри СТАТУС АБДЕЙТ!
Добавлено спустя 5 минут 29 секунд:
MKS, я нехачу сказать что твой скрипт кривой.. просто если выдергивать инфу из СТАТУС АБДЕЙТ то ето более коректней.. и работать будет дажэ без создания пати..
P.S.- протестировано
Добавлено спустя 2 минуты:
Re: ДА БУДЕТ БОТ!
Цитата:
Сообщение от NLObP
Эта процедура одинаково работает на C4 и IL
Код:
var
MyID, CurHP, MaxHP : integer;
procedure StatsUpdate;
var
i: integer;
begin
for i:=0 to ReadD(6)-1 do begin
case pck[i*8+10] of
#$09: CurHP:=ReadD(i*8+14);
#$0A: MaxHP:=ReadD(i*8+14);
end;
end;
end;
begin
if (ConnectName=Name) and FromServer then begin
case pck[1] of
#$0E: begin
if (MyID=ReadD(2)) then StatsUpdate;
end;
end;
end;
end.
|
не проверял но думаю он прав...
СТАТУС АПДЕЙТ ИСПОЛЬЗУЕТСЯ!