[ampeg]

const
Nick='DamageControl';
var
 ListID:integer;
 Timer01: TTimer;
 TimerCyrcle:integer;

procedure Init;
begin
   Timer01:=TTimer.Create(nil); 
   Timer01.OnTimer:=@OnTimer01; 
   Timer01.enabled:=true; 
   Timer01.interval:=1500; 
   TimerCyrcle:=1;
end;
procedure OnTimer01(Sender: TObject);
begin
    case TimerCyrcle of
        1:begin   
            buf:=hstr('04 C9 2C 10 48 21 43 01 00 32 44 02 00 74 F2 FF FF 00');
            SendToServerEx(Nick);
            SendToServerEx(Nick);
            Inc(TimerCyrcle);
        end;
        2:begin
             buf:=hstr('20 74 00 65 00 73 00 74 00 5F 00 73 00 65 00 72 00 76 00 65 00 72 00 5F 00 68 00 65 00 6C 00 70 00 65 00 72 00 5F 00 67 00 6D 00 6F 00 2E 00 68 00 74 00 6D 00 00 00');
            SendToServerEx(Nick);
            Inc(TimerCyrcle);
         end; 
     3:begin
            buf:=hstr('21 6D 00 65 00 6E 00 75 00 5F 00 73 00 65 00 6C 00 65 00 63 00 74 00 3F 00 61 00 73 00 6B 00 3D 00 2D 00 31 00 26 00 72 00 65 00 70 00 6C 00 79 00 3D 00 31 00 32 00 00 00');
            SendToServerEx(Nick);
            TimerCyrcle:=1;
            Timer01.enabled:=false;    
        end;    
        end;
      
    end;
procedure Free;
begin
  Timer01.free;
end;    
    

  begin    
                If (ConnectName=Nick) and FromServer and (pck[1] = #$11) then begin
                ListID:=ReadD(6);
                buf:=hstr('1F' + 'IntToStr(ListID)' + '01 00 00 00 B1 19 00 00 01 00 00 00');
                SendToServerEx(Nick);
             end;    
  end.

почему-то не переходит в "тело" скрипта...