Скрипт

[Nickers]

Pocuk,

как зациклить скрипт?

как поделить одно значение на другое и сравнять с третьим(уже заданым и задать его как?)?

Const
  X=666; //Постоянное значение

Var
  Timer01 : TTimer;
  Y, Z : Integer;

Procedure Init; //Выполняется при запуске скрипта.
begin
 Timer01:=TTimer.Create(nil);
 Timer01.OnTimer:=@OnTimer01; //Назначаем выполняемое тело таймера.
 Timer01.enabled:=false; //Начальное положение (Выключено)
 Timer01.interval:=2000; //Интервал в мс (2000 = 2с.)
end;

Procedure Free;
begin
  Timer01.Free; //Освобождаем память из под таймера
end;

Procedure OnTimer01; //Тело Timer01 (Запускается раз в Timer01.interval)
begin //Выполняется каждые 2секунды вне зависимости от пакета #$12
  if ((X/Y)=Z) then Y:=X;   
end;

begin
    //Если приходит пакет ID:12 то запускает таймер. (От клиента)
    if FromClient and (pck[1]=#$12) then 
    begin
      Timer01.enabled:=true; 
      Z:=ReadD(10); //Из каждого пакета #$12 забираем нужные значения.
      Y:=ReadD(14);
    end;

    //Если приходит пакет со 2м значением, равным 7ми вырубаем таймер
    if FromServer and (ReadD(2)=7) then Timer01.enabled:=false; 
    //(От Сервера)
end.

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

у меня именно 4х байтовое значение надо делить на 2х байтовое

Если они числа, то при переводе в десятичную систему, это только говорит о том, что 4х байтное число может принимать большие значения.