Вернуться   CoderX :: Forums > Lineage II > L2PacketHack > Скриптинг
Войти через OpenID

Скриптинг Форум посвещенный созданию скриптов для L2PacketHack

Чат (Новых сообщений с момента вашего последнего визита нет)
Загрузка...
Задавайте ваши вопросы на форуме. Чат предназначен для небольших разговоров.
 
Ответ
 
Опции темы Опции просмотра
Старый 31.12.2010, 07:29   #1
Местный
 
Регистрация: 11.06.2010
Сообщений: 644
Сказал Спасибо: 119
Имеет 85 спасибок в 77 сообщенях
dyh9l пока неопределено
По умолчанию бег ботом)

я сделал мини-скриптик, т.к. бег между клиентом и волкером отличается
delphi Код:
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  ToY146936 (0x00023DF8)
000A d  ToZ: -3520 (0xFFFFF240)
000E d  OriginX80712 (0x00013B48)
0012 d  OriginY146776 (0x00023D58)
0016 d  OriginZ: -3520 (0xFFFFF240
разница между пакетами клиента и бота, что в клиенте еще приплюсовывается цифра 1, типо бег мышкой или клавишами) т.е WriteD(1); у мну тупо не идет в пакет)

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

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

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

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

Последний раз редактировалось dyh9l, 31.12.2010 в 07:29. Причина: Добавлено сообщение
dyh9l вне форума   Ответить с цитированием
Старый 31.12.2010, 12:54   #2
Рыцарь
 
Аватар для alexteam
 
Регистрация: 07.03.2009
Сообщений: 9,139
Сказал Спасибо: 70
Имеет 2,820 спасибок в 1,735 сообщенях
alexteam на пути к лучшему
По умолчанию

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

delphi Код:
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.
__________________
L2Ext - project closed.
alexteam вне форума   Ответить с цитированием
Старый 31.12.2010, 12:55   #3
Местный
 
Аватар для J-Fobos
 
Регистрация: 09.06.2008
Сообщений: 867
Сказал Спасибо: 175
Имеет 468 спасибок в 259 сообщенях
J-Fobos пока неопределено
По умолчанию

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

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

В любом из нас спит гений. И с каждым днем все крепче.

Переходим на протокол нового поколения jabber
J-Fobos вне форума   Ответить с цитированием
Старый 31.12.2010, 13:06   #4
Местный
 
Аватар для Breadfan
 
Регистрация: 29.04.2008
Сообщений: 830
Сказал Спасибо: 80
Имеет 230 спасибок в 169 сообщенях
Breadfan пока неопределено
По умолчанию

Только заодно длину пакета проверяй, чтоб скрипт не фиксил пакеты бега когда вручную бежишь (актуально на ИГ волкере). Вот как-то так было: Оффтоп
__________________
На фразы в аську типа "слух карочь 1)как точить 2)как раскачаться за 5 мин" - игнор. ИМХО идиотизм
Дай голодному рыбу - он будет один день сыт. Покажи ему, как удить рыбу - он пошлёт тебя и скажет, что у него есть более интересные занятия, чем забрасывать снасти в воду
David Kastrup @ de.comp.text.tex.
"Приобретенные навыки общения с маленькими детьми - сильно упрощают взаимопонимание на форумах..."

А вы знаете, что для качественной сварки - место шва нужно протереть спиртом?

Последний раз редактировалось Breadfan, 31.12.2010 в 13:15.
Breadfan вне форума   Ответить с цитированием
Старый 10.01.2011, 14:52   #5
Местный
 
Регистрация: 04.11.2009
Адрес: Где-то в жопе европы
Сообщений: 316
Сказал Спасибо: 32
Имеет 42 спасибок в 39 сообщенях
wimax пока неопределено
По умолчанию

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

а так не проще?
wimax вне форума   Ответить с цитированием
Старый 10.01.2011, 14:56   #6
Местный
 
Регистрация: 11.06.2010
Сообщений: 644
Сказал Спасибо: 119
Имеет 85 спасибок в 77 сообщенях
dyh9l пока неопределено
По умолчанию

мож мне кто скажет на руском, buf := pck; вот эт че блд такое xD
а еще я бы очень рад услышать о том, для чего нужен lenght (да я кучу раз перечитал что оно возращает длину строки, но мне это не понятно)
__________________
dyh9l вне форума   Ответить с цитированием
Старый 10.01.2011, 16:46   #7
Местный
 
Регистрация: 04.11.2009
Адрес: Где-то в жопе европы
Сообщений: 316
Сказал Спасибо: 32
Имеет 42 спасибок в 39 сообщенях
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 то есть исправляиет
wimax вне форума   Ответить с цитированием
Ответ

  CoderX :: Forums > Lineage II > L2PacketHack > Скриптинг



Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


Часовой пояс GMT +4, время: 21:55.

vBulletin style designed by MSC Team.
Powered by vBulletin® Version 3.6.11
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. Перевод: zCarot
Locations of visitors to this page
Rambler's Top100

Вы хотите чувствовать себя в безопасности? чоп Белган обеспечит её!