Коробка передач (нужна помощь)

[IBZY]

Всем привет, я в скриптах новенький(язык плохо знаю), строго не судите.
Суть скрипта: при пакете ХХХ от клиента в память записывантся цыфра х (от 0 до 3), и зависимо от цыфры в памяти идёт изменение входящево пакета.

//                                                                                     .
var
speed:TStrings;
//                                                                                     .
procedure Init;
begin
speed:=TStringList.Create;
end;
//                                                                                     .
procedure Free;
begin
speed.Free;
end;
//                                                                                     .
begin
begin
    begin
        if fromclient and (pck='38 2E 00 73 00 70 00 30 00 00 00 00 00 00 00') then
        speed:='0';
    end;
    begin
        if fromclient and (pck='38 2E 00 73 00 70 00 31 00 00 00 00 00 00 00') then
        speed:='1';
    end;
    begin
        if fromclient and (pck='38 2E 00 73 00 70 00 32 00 00 00 00 00 00 00') then
        speed:='2';
    end;
    begin
        if fromclient and (pck='38 2E 00 73 00 70 00 33 00 00 00 00 00 00 00') then
        speed:='3';
    end;
end;
begin
if speed='0' then
    begin
        if fromserver and (pck[1]=#$04) then pck[366]:=pck[366];
        if fromserver and (pck[1]=#$04) then pck[377]:=pck[367];
    end; 
if speed='1' then
    begin
        if fromserver and (pck[1]=#$04) then pck[366]:=#$FF;
        if fromserver and (pck[1]=#$04) then pck[377]:=#$01;
    end;
if speed='2' then
    begin
        if fromserver and (pck[1]=#$04) then pck[366]:=#$FF;
        if fromserver and (pck[1]=#$04) then pck[377]:=#$02;
    end;
if speed='3' then
    begin
        if fromserver and (pck[1]=#$04) then pck[366]:=#$FF;
        if fromserver and (pck[1]=#$04) then pck[377]:=#$03;
    end;
end;
end.

вопрос: что должно быть вместо speed:TStrings; и speed:=TStringList.Create; (стринг неподходит точно).
Может чот нетак делаю?

[alexteam]

var
speed:integer;
begin
speed:=5555;
if speed=5555 then
end;

[IBZY]

СПС
итак я исправил и доделал скрипт
команды(в чат):
.sp0 - стандартная скорость
.sp1 - 1-я передача
.sp2 - 2-я передача
.sp3 - 3-я передача
после использования команды нужно чото надеть или снять (пушку, шапку, щит и т д) для обновления пакета UserInfo.
когда далеко отбежали и не грузятся мобы и чары то нужно использовать какойто скил(аркана павер или другие ауры тож подходят).
принцип работы частично взят с етого скрипта
работает только на серверах без геодаты (или с оч плохой).
хроники-интерлюд.
у меня и у друга работает
всем удачи
PS:исправил здесь дабы избежать флуда

[alexteam]

p1=356+2*length(ConnectName);
p2=357+2*length(ConnectName);

[SmertoO]

Эх. Сам начинал делать такой скрипт) Правда не много по другому, работающий скорее как скрипт на тп, опираясь на самую северную,южную,западную,восточную точки.