Могут быть проблемы в "выкидыванием" с форума (слетевшей авторизацией). Нужно собрать статистику таких случаев.
Есть Тема, куда можете сообщить о проблемах с сайтом либо просто передать привет.
наработки
-
Логирование клинса
uses SysUtils, StdCtrls, Controls, Forms, Dialogs; type TEvents = class (tobject) procedure OnClick(Sender: tobject); end; var Frm,Form : TForm; LB : TListBox; Events: TEvents; bDel : TButton; bSave : TButton; Action: TL2Action; obj : TL2Live...- scriptermolodoi
- Тема
- наработки
- Ответы: 8
- Форум: Adrenalin
-
G
1-80 (для пвп серверов)
Затупливает в районе 1-30, надо доработать. + надо выставлять через интерфейс атаку бота, скилы.- Groma
- Тема
- наработки
- Ответы: 9
- Форум: Adrenalin
-
С мира по нитке
Привет, скрипты не мои, по этому извиняюсь если повторяются или это именно ваш скрипт. Сам пишу не сложные, учусь.Здесь буду вылаживать всё что есть(почти)). capcha and back to spot procedure backtospot; function CheckStatus: Boolean; begin Result:=true; if User.Dead then begin... -
D
<Sloupok> Скрипт на квесты у Маркелы (Деревня Карамель)! Need Help
Ребят, привет. Собсно о себе. Скрипты не писал ранее, поэтому прошу треш не разводить о качестве написанного. Взялся за это не благодарное дело, по просьбе товарищей. Нашел 1 квесты у Маркелы, малец переделал (как правильно), вышло не плохо, бегает проходит. Уверившись в своих силах , решил...- DIMDIMKA
- Тема
- help script adrenalin наработки
- Ответы: 2
- Форум: Помощь в настройке/скриптах
-
R
Скрипт ТТ бижи
Взял за основу скрипт Сарказма, пока бегает по ХСу по гномам, проблем нет никаких, но как только дело доходит до сдачи " в процедуре 12 после каста СоЕ " квеста в городе, начинаются проблемы( Бот просто не забегает в ВХ с некоторых спотов, или же просто встряет в стену , не пытаясь спуститься...- reacver
- Тема
- наработки
- Ответы: 2
- Форум: Помощь в настройке/скриптах
-
Продажа/Покупка у NPC торговца
Пример иcпользования Engine.NPCTrade (Не путать с NPCExchange) uses SysUtils, Classes; Item: TL2Item; Npc: TL2Npc; begin Engine.SetTarget('Manor Manager'); // Выбрать в таргет НПС с таким то ником Engine.MoveToTarget(-20); // Подойти к НПС Engine.DlgOpen; // Начать диалог с НПС... -
Парсинг меняющегося байпасса
Поскольку я теперь не играю на серверах где пашет крякнутый адреналин, буду снова выкладывать свои скрипты и наработки. Начнем с парсинга меняющихся байпассов. Писал для себя, возможны костыли и кровоизлияние из глаз у "труЪ кодеров" (Спешл фо глеб с форума топхоуп) Чтобы найти... -
Байпассы
В общем в этой теме распишу как засниффить и отправить байпассы. У нас в папке с адреналином есть архив Dialog(Alt+ B ). В инструкции мы можем найти ссылку на скачивание видео - http://rghost.ru/44951001. (Чтобы вам не пришлось скачивать я залил его на ютуб, автором видео я не являюсь.) Можно... -
Нон стоп фарм варки
Делал для себя, сервер L2 Hunter. Под ваш сервер переделаете сами ;) Бот фармит варку. В случае смерти он встает в гдд, бежит к тп и летит обратно в варку. Помимо этого, в скрипте есть оповещалка о появлении капчи. Также есть наработки обхода капчи, где нужно просто нажать "продолжить", для... -
Маршруты для Classic
Глудин - Глудио Глудио - Дион Обратный путь Дион-Глудио Дион - Гиран старт в центре Диона Гиран - Дион старт у ворот Глудио - глудин Орен - Гиран Глудио - Деревня Эльфов -
Скрипт фарма спота и возврата на него при смерти
Примитивный пример. var obj: TL2NPC; obj2: TL2Effect; Enemy: TL2Live; Begin while 1<>2 do begin // бесконечный цикл // этот кусок не трогаем if User.Dead then // умер- вырубаем интерфейс, возврат в город и пауза 15 секунд begin Engine.FaceControl(0,false)... -
Пример работы с Alt+B и расходниками
Байпассы вытягиваются через Dialog Viewer (Утилита в папке с адреналином. Гайд по ней будет на форуме, просто поищите) if not inventory.User.ByID(728, Item) or (Item.count < 500 ) then begin // проверка кол-ва итемов с ИД 728 Engine.BypassToServer('_bbshome', True) ; delay(1000)... -
Использование WinAPI
В данном примере, используются 4 системных функции которые находятся системных DLL Windows. 1. MessageBox >> см.описание у microsoft 2. ShellExecute >> см.описание у microsoft 3. FindWindow >> см.описание у microsoft 4. SetWindowText >> см.описание у microsoft Скрипт выводит диалог, после... -
Работа с интернетом (сокеты)
Так, для труЪ прогеров, которые хотят прикрутить к адреналину что-то из нета. uses Classes, TCP; var Head: TStringList; Socket: TTCPBlockSocket; i: integer; procedure OnFree; begin Head.Free; Socket.Free; end; begin Head := TStringList.Create; Head.Add('GET /... -
Отправка почты при выполнении условия
if inventory.User.ByID(57, Item) and (Item.count > 250000) then begin Engine.SendMail('Ник', 'тема', 'комент',[id,кол-во,id,кол-во,id,кол-во,id,кол-во,id,кол-во,id,кол-во]); delay(1000); end; Если адены больше 250 000 то шлем почту Автор скрипта: Ivanius -
Проверка количества итемов (+квестовые итемы)
Вставляем функцию в код: function CheckItemCount (const itemID: Integer; const quest: Boolean = False) : Integer; var tempItem: TL2Item; begin if quest then Inventory.Quest.ByID(itemID, tempItem) else Inventory.User.ByID(itemID, tempItem); Result := tempItem.Count; end... -
Сдача в магазин\Покупка, проверка загруженности чара
uses SysUtils, Classes; var Figth_Flag:boolean; Item: TL2Item; Npc: TL2Npc; begin Print('Продаю дроп'); // Пишет в систем чат что продает дроп Delay(500); // Пауза Engine.SetTarget('Manor Manager'); // Выбрать в таргет НПС с таким то ником Engine.MoveToTarget(-20); // Подойти к НПС... -
Отказ/принятие от всех диалогов трейд, респ, пати и др.
begin while 1<>2 do begin Engine.ConfirmDialog(false); // отказ true согласие //Также именно ЭТА команда отвечает за принятие\отказ (респа,трейда и т.д. не только ивенты) delay(10000); end; delay(10000); end. Автор скрипта: Ivanius П.с: на скрине НЕ ЭТО диалоговое окно! У окон... -
Анти дизарм - нахрен берсов (и гладов-даунов)
var item: TL2Item; begin while true do if inventory.user.byid(10771, item) and not (Item.Equipped) then begin // Меняем 10771 на id своей пухи Delay(500); Engine.UseItem(10771); // Меняем 10771 на id своей пухи Delay(800); end; end.