[Помогите!] Скрипт для сина.

[Leshin61]

Всем привет и заранее спасибо, если кто сможет помочь.

Дело состоит в том что взял за основу вот это тему:
http://zhyk.ru/forum/showthread.php?t=398287
Мискалину конечно спасибо.
ПОпробовал чутка подредактировать скрипт под себя, но в итоге, что-то наворотил , ну и конечно он у меня работает на скилах через раз, то проходит серия ударов, то не проходит.вот впрочем сам скрипт

//############################
//Micro Scripting 
//class: Assassin
//Script Created by miskalin
//version #1.3
//All rights reserved 
//############################

var
Timer:TTimer;
TargetID,TimerStep,i,CountSkills:integer; 
StartSkill,NewSkill,SkillID:word;
NextSkill:array[1..3] of word;
Level:byte;
name:string;


procedure DoTheSkill(SkillID:word); 
begin
buf := HStr('D0 00 57 6F FF CC CC DD 00 60 CA 00 00 00 00 79 8D 00 00'); 
WriteH(SkillID, 6);
WriteC(Level, 8); 
WriteD(TargetID, 10); 
SendToServerEx(name);
end;


procedure Init;
begin
TimerStep:=1; //Шаг
Timer:=TTimer.Create(nil); 
Timer.OnTimer:=@OnTimer; 
Timer.enabled:=false; 
Timer.interval:=600; //интервал(в миллисекундах)//задержка скила.
Level:=9;
end;


procedure Free;
begin
   Timer.free;
end;

procedure OnTimer(Sender: TObject);
begin

case TimerStep of    
    1:    
    begin
    DoTheSkill(NextSkill[TimerStep]);
    if TimerStep=CountSkills then 
    begin 
    Timer.enabled:=False;
    TimerStep:=1;
    end
    else inc(TimerStep);
    end;

    2:    
    begin
    DoTheSkill(NextSkill[TimerStep]);
    if TimerStep=CountSkills then 
    begin 
    Timer.enabled:=False;
    TimerStep:=1;
    end
    else inc(TimerStep);
    end;

    3:    
    begin
    DoTheSkill(NextSkill[TimerStep]);
    if TimerStep=CountSkills then 
    begin 
    Timer.enabled:=False;
    TimerStep:=1;
    end
    else inc(TimerStep);
    end;


end;
end;

begin
    
// ##################Тело Скрипта#################################    

if (FromClient) and (ReadC(1) = $CE) and (ReadC(3) = $57) and (ReadC(4) = $6D) then 
    begin
    name:=ConnectName; 
    TargetID := ReadD(6);
    end;

if (FromClient) and (ReadC(1) = $D0) then  
  begin
    StartSkill:=ReadH(6); 
    case StartSkill of
        //Применение смертельных ядов
        919: //id Стартового скила, с которого продолжится серия.
        begin
        NextSkill[1]:=862; //Отравленный клинок
        CountSkills:=1; //Кол-во дополнительный скилов в серии, после стартового.
        
        Timer.interval:=200;
        Timer.enabled:=True; 
        
        end;


        //Нанесение клейма на расстоянии
        2113:
        begin
        NextSkill[1]:=875; //Рёв зверя
        NextSkill[2]:=860; //Удар зверя
        NextSkill[3]:=2110; //Бросок зверя
        NextSkill[4]:=2121; //Чудовищный шрам
        CountSkills:=4;
        
        Timer.interval:=250;
        Timer.enabled:=True; 
        end;
        

        //Внезапная атака
        579: //id Стартового скила, с которого продолжится серия.
        begin
        NextSkill[1]:=873; //Подлый удар
        CountSkills:=1; //Кол-во дополнительный скилов в серии, после стартового.
        
        Timer.interval:=250;
        Timer.enabled:=True;
        end;

        //Клык зверя
        2280:
        begin
        NextSkill[1]:=853; //Небесный плен
        CountSkills:=1;
        
        Timer.interval:=400;
        Timer.enabled:=True;
        end;

        //Контратака
        581:
        begin
        NextSkill[1]:=856; //Ураганная мощь
        CountSkills:=1;
        
        Timer.interval:=200;
        Timer.enabled:=True;
        end;

        //Засада
        2126:
        begin
        NextSkill[1]:=1987; //Атака ядом
        NextSkill[2]:=839; //Точный расчет
        NextSkill[3]:=2125; //Убийство  
        CountSkills:=3;
        
        Timer.interval:=230;
        Timer.enabled:=True;
        end;
       
        //Снятие шока
        1968:
        begin
        NextSkill[1]:=1986; //Штормовая мощь
        CountSkills:=1;
        
        Timer.interval:=200;
        Timer.enabled:=True;
        end;
        
    end;    
  end;
end.

Если кто понял в чем ошибка пожалуйста помогите исправить.