Кружок нубов(Вопрос-Ответ)

[metalFan]

надо всего лишь поменять 1060 на айди мана драга ивсе, а чар инфо тебе не нужен

Добавлено через 23 минуты
фу неправда нужен еще как, вот наваял

//by 6yDDucT
//edit by metalFan (Mana)
//автоматическое использование Mana Drug
const name=('metalFan');
var MyID:Word;
    OID:String;
begin
 if (FromServer) and (ConnectName=name) and (pck[1]=#$27) and (ReadD(12)=726) then
   OID:=pck[8]+pck[9]+pck[10]+pck[11]; 
 if FromServer and (ConnectName=name) and (pck[1]=#$04) then  MyID:=ReadD(18);
 if FromServer and (ConnectName=name) and (pck[1]=#$0e) and (ReadD(2)=MyID) then
  if ReadD(6)=4 then
   if (ReadD(82)<=351) then //400 - кол-во MP при котором начнется пьянка.
    begin
     buf:=#$14+OID+#$00#$00#$00#$00;
     SendToServerEx(name);
    end;
end.

жду пасипки

[NLObP]

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

надо всего лишь поменять 1060 на айди мана драга ивсе, а чар инфо тебе не нужен

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

Используется пакет

0E=StatusUpdate:h(ObjectID)d(AttribCount)d(AttrID)d(AttrValue)

ЗЫЖ если поюзать поиск, то можно найти и другие реализации

procedure StatusUpdate;       //обновление данных о себе
var
  i: integer;
begin
  for i:=0 to ReadD(6)-1 do
    case pck[i*8+10] of
      #$09: MyHP:=ReadD(i*8+14);
      #$0A: MyMaxHP:=ReadD(i*8+14);
      #$0B: MyMP:=ReadD(i*8+14);
      #$0C: MyMaxMP:=ReadD(i*8+14);
    end;
  if (MyMP<'значение') then
  begin
  .... //юзать бутылку
  end;
end;

[metalFan]

NLObP,

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

фу неправда нужен еще как

Добавлено через 32 секунды
я его уже на 10альфе проверил

Добавлено через 1 минуту
там надо было сдвиг поменять

[OMxxxxx]

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