Форум работает в тестовом режиме. Все данные были перенесены со старого сайта 2018 года. Некоторая информация может быть недоступна, например вложения или хайды. Просьба сообщать о данных случаях через функционал "Жалоба", прямо под постом, где отсуствуют данные из хайда или проблемы с вложением.
Могут быть проблемы в "выкидыванием" с форума (слетевшей авторизацией). Нужно собрать статистику таких случаев.
Есть Тема, куда можете сообщить о проблемах с сайтом либо просто передать привет.

Результаты поиска

  1. SARCAZM

    Скрипт на делевел

    begin while User.Level > 35 do begin // lvl if not User.InCombat then begin if not Engine.SetTarget(30870) then // target id guarda + bug fix if not Engine.SetTarget(30871) then begin // target id drugogo guarda delay(11000)...
    • SARCAZM
    • Тема
    • готовый скрипт
    • Ответы: 10
    • Форум: Adrenalin
  2. SARCAZM

    Квест Collector's Dream (Мечта коллекционера)

    function CheckItemCount (const itemID: Integer; const questItem: Boolean = False) : Integer; var tempItem: TL2Item; begin if questItem then Inventory.Quest.ByID(itemID, tempItem) else Inventory.User.ByID(itemID, tempItem); Result := tempItem.Count; end; function UserInTown ...
    • SARCAZM
    • Тема
    • готовый скрипт
    • Ответы: 5
    • Форум: Adrenalin
  3. SARCAZM

    Скрипт фарма спота и возврата на него при смерти

    Примитивный пример. var obj: TL2NPC; obj2: TL2Effect; Enemy: TL2Live; Begin while 1<>2 do begin // бесконечный цикл // этот кусок не трогаем if User.Dead then // умер- вырубаем интерфейс, возврат в город и пауза 15 секунд begin Engine.FaceControl(0,false)...
    • SARCAZM
    • Тема
    • наработки
    • Ответы: 19
    • Форум: Adrenalin
  4. SARCAZM

    Пример работы с Alt+B и расходниками

    Байпассы вытягиваются через Dialog Viewer (Утилита в папке с адреналином. Гайд по ней будет на форуме, просто поищите) if not inventory.User.ByID(728, Item) or (Item.count < 500 ) then begin // проверка кол-ва итемов с ИД 728 Engine.BypassToServer('_bbshome', True) ; delay(1000)...
    • SARCAZM
    • Тема
    • наработки
    • Ответы: 2
    • Форум: Adrenalin
  5. SARCAZM

    Фарм руин страданий через ТП с Глудио

    var obj: TL2NPC; obj2: TL2Effect; Enemy: TL2Live; Begin while 1<>2 do begin // бесконечный цикл if User.Dead then // умер- вырубаем интерфейс, возврат в город и пауза 15 секунд begin Engine.FaceControl(0,false); Engine.gohome; delay(15000); end...
    • SARCAZM
    • Тема
    • готовый скрипт
    • Ответы: 3
    • Форум: Adrenalin
  6. SARCAZM

    Использование WinAPI

    В данном примере, используются 4 системных функции которые находятся системных DLL Windows. 1. MessageBox >> см.описание у microsoft 2. ShellExecute >> см.описание у microsoft 3. FindWindow >> см.описание у microsoft 4. SetWindowText >> см.описание у microsoft Скрипт выводит диалог, после...
    • SARCAZM
    • Тема
    • наработки
    • Ответы: 0
    • Форум: Adrenalin
  7. SARCAZM

    Работа с интернетом (сокеты)

    Так, для труЪ прогеров, которые хотят прикрутить к адреналину что-то из нета. 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 /...
    • SARCAZM
    • Тема
    • наработки
    • Ответы: 0
    • Форум: Adrenalin
  8. SARCAZM

    Отправка почты при выполнении условия

    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
    • SARCAZM
    • Тема
    • наработки
    • Ответы: 19
    • Форум: Adrenalin
  9. SARCAZM

    Проверка количества итемов (+квестовые итемы)

    Вставляем функцию в код: 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...
    • SARCAZM
    • Тема
    • наработки
    • Ответы: 16
    • Форум: Adrenalin
  10. SARCAZM

    Сдача в магазин\Покупка, проверка загруженности чара

    uses SysUtils, Classes; var Figth_Flag:boolean; Item: TL2Item; Npc: TL2Npc; begin Print('Продаю дроп'); // Пишет в систем чат что продает дроп Delay(500); // Пауза Engine.SetTarget('Manor Manager'); // Выбрать в таргет НПС с таким то ником Engine.MoveToTarget(-20); // Подойти к НПС...
    • SARCAZM
    • Тема
    • наработки
    • Ответы: 1
    • Форум: Adrenalin
  11. SARCAZM

    Отказ/принятие от всех диалогов трейд, респ, пати и др.

    begin while 1<>2 do begin Engine.ConfirmDialog(false); // отказ true согласие //Также именно ЭТА команда отвечает за принятие\отказ (респа,трейда и т.д. не только ивенты) delay(10000); end; delay(10000); end. Автор скрипта: Ivanius П.с: на скрине НЕ ЭТО диалоговое окно! У окон...
    • SARCAZM
    • Тема
    • наработки
    • Ответы: 5
    • Форум: Adrenalin
  12. SARCAZM

    Анти дизарм - нахрен берсов (и гладов-даунов)

    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.
    • SARCAZM
    • Тема
    • наработки
    • Ответы: 6
    • Форум: Adrenalin
  13. SARCAZM

    Использовать умения или кинуть пати по сообщению в чат

    uses sysutils,classes; begin while Engine.Status = lsOnline do begin if (ChatMessage.ChatType = mtPrivate) and ChatMessage.Unread then //непрочитанное сообщение тип чата mtPrivate=ПМ mtParty mtAll=белый begin if (ChatMessage.Text = 'пати плз') then...
    • SARCAZM
    • Тема
    • наработки
    • Ответы: 1
    • Форум: Adrenalin
  14. SARCAZM

    Проверка на смерть

    function CheckDeath: Boolean;//Проверка на смерть begin Result:=false; if User.Dead then //умерли begin Result:=true; Print('Bot Umer');//печатаем в лог Delay(1000); Engine.FaceControl(0,false);//выключаем бота Engine.GoHome;//встаем в...
    • SARCAZM
    • Тема
    • наработки
    • Ответы: 1
    • Форум: Adrenalin
  15. SARCAZM

    Паравозы. Атакуют ли нас мобы?

    function MobsAttacking : Boolean;//Атакуют ли нас мобы? var i, n: Integer; begin n := 0; for i := 0 to NpcList.Count - 1 do if (NpcList.Items(i).Target = User) and not NpcList.Items(i).Dead then inc(n); Result := n > 0; end; function inDanger: boolean;//Есть ли рядом...
    • SARCAZM
    • Тема
    • наработки
    • Ответы: 24
    • Форум: Adrenalin
  16. SARCAZM

    Заточка на ИЛе. Кликер + Адреналин

    Внимание! Есть полноценный скрипт заточки без кликера! Вроде как только для ИЛа. Точим кликером. Когда доточим до нужного уровня заточки, скрипт выкинет нас в релог. uses SysUtils; var Ench: cardinal; p2,p1,p: pointer; action: TL2Action; src, dst: string; dmg: cardinal...
    • SARCAZM
    • Тема
    • готовый скрипт
    • Ответы: 15
    • Форум: Adrenalin
  17. SARCAZM

    Проверка шага квеста

    uses SysUtils; procedure StatusQ(ID:integer=-1); Var i:integer; stat:string; begin Print('Инфо по квесту '+IntToStr(ID)); for i:=1 to 32 do begin if Engine.QuestStatus(ID,i) then stat:='OK' else stat:=' -- '; Print('Шаг '+IntToStr(i)+' - '+stat); end; end; begin...
    • SARCAZM
    • Тема
    • наработки
    • Ответы: 28
    • Форум: Adrenalin
  18. SARCAZM

    Измененный интерфейс для Интерлюда

    Еще один интерфейс под ИЛ. Пусть будет, может кому понравится.
  19. SARCAZM

    Цветной откат скилов

  20. SARCAZM

    Multiwin - Фоновые окна теперь не отстают

    Полезно, если бегаешь с окнами. На интерлюде не было опции "снизить качество фона" как в той же грации, поэтому твинки всегда отставали. Также будет полезно для кликеров ;)
Назад
Сверху