скрипт на покупку, глючит

[ChiterEPT]

В процедуру Free пропиши "timer.free;"

Добавлено через 1 минуту
и L:=0;

Добавлено через 4 минуты
Все понятно... как же я сразу не заметил Все таки обработку переменной L переставь в обработку пакета 27. Дело в том что L у тебя изначально = 0 а нуль как ты понимаешь меньше 1000000 и таймер у тебя будет включатся как только цикл завершится и флаг Zanyat вернется в значение false

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

begin
      if FromServer and (ConnectName=name)and (pck[1]=#$27)and (pck[12]=#$39)then
      begin
           i:=12;
           k:=ReadD(i);    //item ID
           l:=ReadD(i);    //количество адены
           //=IntToStr(l);
           //=IntToStr(k);
           //=TStringList.Create();
           //Add(t+': '+m);
           //SaveToFile('c:\adena.txt');
           //Free;
if (l<100000000) and (Zanyat=false) then 
         begin
              timer.enabled:=true;
              x:=1;
              Zanyat:=true;
         end;
      end;
      
end.