бег ботом)

[dyh9l]

я сделал мини-скриптик, т.к. бег между клиентом и волкером отличается

const 
name = 'okda';

procedure MoveTo;
    begin       
        SendMsg('Начинаю делать процедуру');
        buf:=#$0F;
        WriteD(ReadD(2));
        WriteD(ReadD(6));
        WriteD(ReadD(10));
        WriteD(ReadD(14));
        WriteD(ReadD(18));
        WriteD(ReadD(22));
        WriteD(1);
    end;    
        
begin
if FromClient then
    case ConnectName of
        name: 
            case pck[1] of
                #$0F: begin   
                        SendMsg('Пришел пакет бега');
                        MoveTo;
                      end;
            end; 
    end;

end.

Как бы лог мне показывает

31.12.2010 05:14:32 Script: Пришел пакет бега
31.12.2010 05:14:32 Script: Начинаю делать процедуру

и тем не менее пакет

PHP код:

Tип: 0x0F (MoveBackwardToLocation)
Pазмер: 25+2
Время прихода: 05:14:32:812
0002 d  ToX: 80792 (0x00013B98)
0006 d  ToY: 146936 (0x00023DF8)
000A d  ToZ: -3520 (0xFFFFF240)
000E d  OriginX: 80712 (0x00013B48)
0012 d  OriginY: 146776 (0x00023D58)
0016 d  OriginZ: -3520 (0xFFFFF240) 


разница между пакетами клиента и бота, что в клиенте еще приплюсовывается цифра 1, типо бег мышкой или клавишами) т.е WriteD(1); у мну тупо не идет в пакет)

еще пытался добавлять pck:=''; перед процедурой, дак там вобще некак не ходило)

Добавлено через 8 минут
капец я дурак) забыл SendToServerEx(name); прямо как в подписи все

Добавлено через 2 минуты
как кста беспалевней сделать, мышкой или клавиатурой?

Добавлено через 56 минут
теперь еще одна проблема, если сделать pck:=''; то значения все время будут 0 (тоесть тока на 1 раз сработает) если же не делать pck:=''; то за 1 ходьбу делает сразу 2 пакета, правильный и неправильный)