Я понимаю что для С4, пробывал модифицировать под фрею, но увы.. без результатно, запускается нормально, но не глотает банки, видать не определяет хп, и интересно откуда берутся ети цифры Read (33) например. В моем случае пакет 18 (статусупдейт) Read(14) = CurHP Read(11) = MaxHP
Я понимаю что для С4, пробывал модифицировать под фрею, но увы.. без результатно, запускается нормально, но не глотает банки, видать не определяет хп, и интересно откуда берутся ети цифры Read (33) например. В моем случае пакет 18 (статусупдейт) Read(14) = CurHP Read(11) = MaxHP
а, понятно.. что нечего не понятно в расшифровке вродебы не указывается под каким ид тот или иной параметр пакета. Это я про детальную расшифровку (та что в окне phx) может быть другая какая есть..
Последний раз редактировалось afonbka, 22.11.2010 в 12:15.
или хотябы подскажите как сделать, чтобы в этом скрипте хп проверялось только у заданного конекта, а не у всех окон. Вот скрипт.
Код:
//автоматическое использование НР пробирок
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 минуту
Хотя нет, все также пьет по старому не перестовая и не смотря неначье хп. Помогите решить проблему.
Последний раз редактировалось afonbka, 22.11.2010 в 13:48.
Причина: Добавлено сообщение
if FromServer and(pck[1]=#$32)then MyID:=ReadD(18);
if FromServer and(pck[1]=#$18)and(ReadD(2)=MyID)then
=>>
delphi Код:
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
__________________ На фразы в аську типа "слух карочь 1)как точить 2)как раскачаться за 5 мин" - игнор. ИМХО идиотизм
Дай голодному рыбу - он будет один день сыт. Покажи ему, как удить рыбу - он пошлёт тебя и скажет, что у него есть более интересные занятия, чем забрасывать снасти в воду
David Kastrup @ de.comp.text.tex.
"Приобретенные навыки общения с маленькими детьми - сильно упрощают взаимопонимание на форумах..."
А вы знаете, что для качественной сварки - место шва нужно протереть спиртом?