Кружок нубов(Вопрос-Ответ)

[Time Trasher]

Решил написать свой первый скрипт

const
UseCP='2F 2C 05 00 00 01 00 00 00 00 ';  \\Пакет на использование скила
CP='27 01 00 02 00 04 00 5D 32 10 40 D8 15 00 00 33 01 00 00 05 00 00 00 00 00 00 00 00 00 00 00 00 00 ';    \\Пакет на получения банок
RelogReq='46';   \\Запрос релога
CharSel='0D 00 00 00 00';  \\Выбор чара

begin
buf:=hstr(UseCP);   \\Посылаем запрос на юзание скила
SendToServer;
end.;
if FromServer and (pck=27 01 00 02 00 04 00 5D 32 10 40 D8 15 00 00 33 01 00 00 05 00 00 00 00 00 00 00 00 00 00 00 00 00) then    \\получаем банки
begin
buf:=hstr(RelogRec);   \\посылаем запрос на релог
SendToServer;
end;
if FromServer and (pck=5F 01 00 00 00 6F 00 6B 00 20 00 6D 00 65 00 72 00 6F 00 6E 00 67 00 7E 00 20 00 6B 00 68 00 61 00 68 00 61 00 00 00) then  \\получаем подтверждение релога
begin
buf:=hstr(CharSel);   \\Посылаем выбор чара
SendToServer;
end;
end.

Думаю ошибок в коде оОченнь много после получения цп банок, скрипт начинает постоянно посылать пакеты на юзание скила, вместо того чтобы делать релогин(