бег ботом)

[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 пакета, правильный и неправильный)

[alexteam]

аццкий быдлокод )

begin
if FromClient then
    case ConnectName of
        name: 
            case pck[1] of
                #$0F: begin 
                        buf := pck;
                        WriteD(1);
                        pck := buf;
                        SendMsg('Пофиксили');
                      end;
            end; 
    end;

end.

[J-Fobos]

Все можно сделать намного проще. Не блокировать pck, а изменять его. Вот так pck:=pck+#$00+#$00+#$00+#$00;

ps: опять я опоздал с ответом

[Breadfan]

Только заодно длину пакета проверяй, чтоб скрипт не фиксил пакеты бега когда вручную бежишь (актуально на ИГ волкере). Вот как-то так было: Оффтоп

begin
   if fromclient and (pck[1]=#01) and ((length(pck))<>29) then begin
   sendmsg('Alert!!! '+inttostr(length(pck)));
   pck:=pck+hstr('01 00 00 00');
    end;
end.

как вариант:

if fromclient and (pck[1]=#01) and ((length(pck))=25) then pck:=pck+hstr('01 00 00 00');

[wimax]

begin
if (fromclient) and (pck[1]=#$0F) and (length(pck)<28) then
begin
buf:=pck;
pck:='';
WriteD(0);
SendToServer;
end;
end.

а так не проще?

[dyh9l]

мож мне кто скажет на руском, buf := pck; вот эт че блд такое xD
а еще я бы очень рад услышать о том, для чего нужен lenght (да я кучу раз перечитал что оно возращает длину строки, но мне это не понятно)

[wimax]

begin
if (fromclient) and (pck[1]=#$0F) and (length(pck)<28) then
begin
buf:=pck;
pck:='';
WriteD(0);
SendToServer;
end;
end.

как я понел length он делает сначала проверку сколка байтовый пакет <28 то если меньше он добавляет до этого же числа то есть 28
и отправление pck с длиной в 28 то есть исправляиет