 |
Автоматизация выполнения заказов - Боты, скрипты и прочий софт для Aion - Весь софт по Aion, скрипты и боты для игры |
16.02.2011, 17:51
|
#1
|
|
|
|
Разведчик
|
 Регистрация: 29.10.2009
 Сообщений: 6
 Популярность: 18
 Сказал(а) спасибо: 0
Поблагодарили 4 раз(а) в 2 сообщениях
|
Автоматизация выполнения заказов
Скрипт для l2phx и написан во время жесточайшей депрессии по поводу невозможности нигде достать рецепт Усиленного орихалкового меча подмастерья
Где-то прочитал, что добыть его можно, выполняя заказы нпса кузнеца, однако около трех дней выполнения этих заказов не дали нужного рецепта.
В результате было принято решение автоматизировать нудный процесс выполнения заказа на производство меча центуриона (наисложнейший заказ для уровня 399).
Вот собствено сам скрипт
Код:
var
i: Integer;
begin
repeat
Buf := HStr('99 55 56 22 02 00 00 34 00 01 00 0A 00 00 00 00 00 00 00');
SendToServer;
Buf := HStr('99 55 56 22 02 00 00 19 00 01 00 1C 00 97 17 00 00 00 00');
SendToServer;
Buf := HStr('99 55 56 22 02 00 00 EA 03 01 00 04 00 97 17 00 00 00 00');
SendToServer;
for i:=1 to 16 do
begin
Buf := HStr('40 55 FF 80 8B D1 F0 08 10 40 3D 09 67 01 00 00 04 00 5F 8A DD 0A 14 00 00 00 00 00 00 00 D7 D6 18 0A AF 03 00 00 00 00 00 00 DD D6 18 0A 18 01 00 00 00 00 00 00 D8 D6 18 0A 80 00 00 00 00 00 00 00');
SendToServer;
Delay(7000);
end;
Delay(1000);
Buf := HStr('99 55 56 22 02 00 00 34 00 01 00 0A 00 00 00 00 00 00 00');
SendToServer;
Buf := HStr('99 55 56 22 02 00 00 19 00 01 00 1C 00 97 17 00 00 00 00');
SendToServer;
Buf := HStr('99 55 56 22 02 00 00 11 00 01 00 05 00 97 17 00 00 00 00');
SendToServer;
until false
end.
Первые три пакета 99 перехватываются при открытии диалога и взятии нужного заказа.
Пакет 40 в цикле - пакет, посылающийся при выполнении одной ковки (или нескольких - пакет один и тот же). На всякий случай посылается 16 раз, чтобы выполнить заказ 15\15 наверняка. Задержка 7 секунд хватает впритык, меньше нельзя.
Последние три пакета - перехватываются при сдатии заказа нпсу.
При запуске скрипта желательно открыть окно ковки и стоять рядом с нпсом.
Скрипт успешно протестирован на Сиберии.
Кстати там сейчас нпсов можно подтаскивать куда угодно "дружеским" агром.
Скажи спасибо=)
Последний раз редактировалось Novichok; 16.02.2011 в 20:49.
|
|
|
18.02.2011, 12:25
|
#2
|
|
|
|
Разведчик
|
 Регистрация: 01.04.2010
 Сообщений: 1
 Популярность: 10
 Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
|
Re: Автоматизация выполнения заказов
Это на 2.0 покеты 99 с диалогом, на 2.1.0.7 кодировка изменена на 9C
|
|
|
18.02.2011, 12:50
|
#3
|
|
|
|
Рыцарь-капитан
|
 Регистрация: 18.10.2009
 Сообщений: 480
 Популярность: 7804
 Золото Zhyk.Ru: 115
 Сказал(а) спасибо: 85
Поблагодарили 498 раз(а) в 172 сообщениях
|
Re: Автоматизация выполнения заказов
Вместо Delay я использую
Код:
function Pause(Timewait: Integer):Boolean;
// сквозная проверка без остановки скрипта (c)dmitry501
var
t : integer;
begin
result := false;
t := Round(Time*86400);
if t > (tick + Timewait) then
begin
tick := t;
result := true;
end;
end;
|
|
|
Пользователь сказал cпасибо:
|
|
20.02.2011, 12:26
|
#4
|
|
|
|
Старший сержант
|
 Регистрация: 29.12.2010
 Сообщений: 189
 Популярность: 218
 Сказал(а) спасибо: 22
Поблагодарили 107 раз(а) в 23 сообщениях
|
Re: Автоматизация выполнения заказов
Хм, я переделал под свои нуждны, но при старте почему-то виснет и игра дисконектится.
var
i: Integer;
begin
repeat
Buf := HStr('9C 66 6E 08 6B 01 00 34 00 01 00 0A 00 00 00 00 00 00 00');
SendToServer;
Buf := HStr('9C 66 6E 08 6B 01 00 19 00 01 00 1C 00 3D 18 00 00 00 00');
SendToServer;
Buf := HStr('9C 66 6E 08 6B 01 00 EA 03 01 00 04 00 3D 18 00 00 00 00');
SendToServer;
for i:=1 to 8 do
begin
Buf := HStr('E3 66 B5 80 8F D1 F0 08 40 40 3D 09 33 F6 01 00 03 00 8F 8A DD 0A 08 00 00 00 00 00 00 00 F3 D6 18 0A E4 01 00 00 00 00 00 00 EE D6 18 0A E6 01 00 00 00 00 00 00 ');
SendToServer;
Delay(7000);
end;
Delay(1000);
Buf := HStr('9C 66 6E 08 6B 01 00 34 00 01 00 0A 00 00 00 00 00 00 00');
SendToServer;
Buf := HStr('9C 66 6E 08 6B 01 00 19 00 01 00 1C 00 3D 18 00 00 00 00');
SendToServer;
Buf := HStr('9C 66 6E 08 6B 01 00 11 00 01 00 05 00 3D 18 00 00 00 00');
SendToServer;
until false
end.
где ошибка?
|
|
|
21.02.2011, 01:17
|
#5
|
|
|
|
Разведчик
|
 Регистрация: 28.01.2011
 Сообщений: 5
 Популярность: 10
 Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
|
Re: Автоматизация выполнения заказов
у меня тоже виснет. 2.1.0.8
Даже когда игра не запущена.
Кстати, заказ лучше не сдавать, а отменять пакетом отмены от конкретного заказа (например:
FE 66 88 5E 14 00 00 ),
так как
не всегда делаются все вещи (после чего ступор в крафте)
Последний раз редактировалось Prukforum; 21.02.2011 в 01:23.
|
|
|
21.02.2011, 06:34
|
#6
|
|
|
|
Разведчик
|
 Регистрация: 14.02.2011
 Сообщений: 34
 Популярность: 36
 Сказал(а) спасибо: 4
Поблагодарили 13 раз(а) в 5 сообщениях
|
Re: Автоматизация выполнения заказов
тут весь смысл в успешной сдаче кв дабы получить рецепт...
________________
Прочитал полезное, нажми спасибку Для просмотра ссылок или изображений в подписях, у Вас должно быть не менее 10 сообщение(ий). Сейчас у Вас 0 сообщение(ий).
|
|
|
21.02.2011, 10:44
|
#7
|
|
|
|
Разведчик
|
 Регистрация: 06.11.2010
 Сообщений: 26
 Популярность: 10
 Сказал(а) спасибо: 11
Поблагодарили 0 раз(а) в 0 сообщениях
|
Re: Автоматизация выполнения заказов
А разве это не надо к переменным присваивать?
________________
Помог? Тыкни спасибо.
Если хотите помощи, в асю
|
|
|
22.03.2011, 04:23
|
#8
|
|
|
|
Разведчик
|
 Регистрация: 15.12.2010
 Сообщений: 20
 Популярность: 16
 Сказал(а) спасибо: 13
Поблагодарили 4 раз(а) в 3 сообщениях
|
Re: Автоматизация выполнения заказов
У кого имеются скрипты для версии 2.1 ?
________________
Для просмотра ссылок или изображений в подписях, у Вас должно быть не менее 10 сообщение(ий). Сейчас у Вас 0 сообщение(ий).
Для просмотра ссылок или изображений в подписях, у Вас должно быть не менее 10 сообщение(ий). Сейчас у Вас 0 сообщение(ий).
Для просмотра ссылок или изображений в подписях, у Вас должно быть не менее 10 сообщение(ий). Сейчас у Вас 0 сообщение(ий).
|
|
|
22.03.2011, 16:50
|
#9
|
|
|
|
Разведчик
|
 Регистрация: 01.03.2011
 Сообщений: 18
 Популярность: 18
 Сказал(а) спасибо: 0
Поблагодарили 4 раз(а) в 3 сообщениях
|
Re: Автоматизация выполнения заказов
это скрипт для всех версий лично проверил на 2.1.. если у тебя виснет при создании скрипта просто не делай галочку на выделение этого скрипта и все и подумай хорошо как под свой крафт отредактировать скрипт
|
|
|
22.03.2011, 20:25
|
#10
|
|
|
|
Разведчик
|
 Регистрация: 09.07.2010
 Сообщений: 8
 Популярность: 28
 Сказал(а) спасибо: 13
Поблагодарили 9 раз(а) в 5 сообщениях
|
Re: Автоматизация выполнения заказов
Прошу прощенья что значит дружеский агр?
________________
В поисках музы... Для просмотра ссылок или изображений в подписях, у Вас должно быть не менее 10 сообщение(ий). Сейчас у Вас 0 сообщение(ий).
|
|
|
03.04.2011, 18:19
|
#11
|
|
|
|
Разведчик
|
 Регистрация: 15.12.2010
 Сообщений: 20
 Популярность: 16
 Сказал(а) спасибо: 13
Поблагодарили 4 раз(а) в 3 сообщениях
|
Re: Автоматизация выполнения заказов
Настроил все под свой серв но игра виснет и десконектится , что ето может быть ?
PHP код:
var
i: Integer;
begin
repeat
Buf := HStr('9C 57 5B 3E 00 00 00 34 00 01 00 0A 00 00 00 00 00 00 00');
SendToServer;
Buf := HStr('9C 57 5B 3E 00 00 00 19 00 01 00 1C 00 18 15 00 00 00 00');
SendToServer;
Buf := HStr('9C 57 5B 3E 00 00 00 EA 03 01 00 04 00 18 15 00 00 00 00');
SendToServer;
for i:=1 to 16 do
begin
Buf := HStr('E3 57 80 80 8D D1 F0 08 05 2D 3D 09 48 01 00 00 01 00 F4 86 DD 0A 04 00 00 00 00 00 00 00');
SendToServer;
Delay(7000);
end;
Delay(1000);
Buf := HStr('9C 57 5B 3E 00 00 00 34 00 01 00 0A 00 00 00 00 00 00 00');
SendToServer;
Buf := HStr('9C 57 5B 3E 00 00 00 19 00 01 00 1C 00 18 15 00 00 00 00');
SendToServer;
Buf := HStr('9C 57 5B 3E 00 00 00 11 00 01 00 05 00 18 15 00 00 00 00');
SendToServer;
until false
end.
Добавлено через 2 минуты
Кто подскажет как Автоматизировать крафт ?
________________
Для просмотра ссылок или изображений в подписях, у Вас должно быть не менее 10 сообщение(ий). Сейчас у Вас 0 сообщение(ий).
Для просмотра ссылок или изображений в подписях, у Вас должно быть не менее 10 сообщение(ий). Сейчас у Вас 0 сообщение(ий).
Для просмотра ссылок или изображений в подписях, у Вас должно быть не менее 10 сообщение(ий). Сейчас у Вас 0 сообщение(ий).
Последний раз редактировалось MadDoK2; 03.04.2011 в 18:22.
Причина: Добавлено сообщение
|
|
|
10.04.2011, 22:35
|
#12
|
|
|
|
Пехотинец
|
 Регистрация: 12.11.2010
 Сообщений: 57
 Популярность: 72
 Сказал(а) спасибо: 57
Поблагодарили 32 раз(а) в 4 сообщениях
|
Re: Автоматизация выполнения заказов
кто может выложить скрипты для других проф на 390 заказ, с меня спс
|
|
|
11.04.2011, 07:27
|
#13
|
|
|
|
Пехотинец
|
 Регистрация: 15.11.2009
 Сообщений: 67
 Популярность: 1138
 Сказал(а) спасибо: 43
Поблагодарили 2 раз(а) в 2 сообщениях
|
Re: Автоматизация выполнения заказов
Да ну нафиг, всё перепробавал...не помогает нечего =/ игра виснет, и приходится убивать процесс... Пробавал на TerAion и на PVP который не в топе, разницы ноль...
________________
Для просмотра ссылок или изображений в подписях, у Вас должно быть не менее 10 сообщение(ий). Сейчас у Вас 0 сообщение(ий).
|
|
|
19.04.2011, 11:30
|
#14
|
|
|
|
Разведчик
|
 Регистрация: 16.04.2011
 Сообщений: 1
 Популярность: 10
 Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
|
Re: Автоматизация выполнения заказов
а есть такие скрипты чтоб шмот воровать?
|
|
|
23.04.2011, 22:10
|
#15
|
|
|
|
Сержант
|
 Регистрация: 19.11.2009
 Сообщений: 141
 Популярность: 406
 Сказал(а) спасибо: 9
Поблагодарили 10 раз(а) в 10 сообщениях
|
Re: Автоматизация выполнения заказов
Tr0y, ты бы не мог вписать свой пример в скрипт шапки?
________________
(\__/). (\__/)
(O.o ) (='.'=)
(> < ) (%2)_(%2)
|
|
|
Ваши права в разделе
|
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения
HTML код Выкл.
|
|
|
Заявление об ответственности / Список мошенников
Часовой пояс GMT +4, время: 13:34.
|
 |