[-=Ma}{imuS=-]

нашел скрипт на авто подачу МР-банок:

const
    Name='';

var MyID:Word;
    OID:String;

begin
if (FromServer) and (pck[1]=#$27) and (ReadD(12)=726) then
OID:=pck[8]+pck[9]+pck[10]+pck[11];

 if FromServer and (pck[1]=#$04) then  MyID:=ReadD(18);
 if FromServer and (pck[1]=#$0e) and (ReadD(2)=MyID) then
  if ReadD(6)=4 then
   if (ReadD(82)<=400) then //400 - кол-во MP при котором начнется пьянка.
    begin
     buf:=#$14+OID+#$00#$00#$00#$00;
     SendToServerEx(Name);
    end;
end.

работает каряво, постоянно пьет МР банки пока не зальет полностю, на "400 - кол-во MP при котором начнется пьянка " даже не смотрит.
кроме того пьет не через каждые 15 сек а постоянно систем чат аж разрывается...

помогите разобратся, надо чтобы пил только при определенном кол-ве МП, предполагаю что ошибка здесь: if (ReadD(82)<=400), возможно вместо 82 другая цифра должна быть и скрипт просто не туда смотрит, но пакет UserInfo настолько большой я не смог найти там CurrentMP, да и вобще не знаю как искать конкретный кусок

и еще как зделать чтобы пил через 15 секунд?