6200xs

Цели, как и пути их достижения, могут быть разными. Кому-то нравится самостоятельно карабкаться на вершину, преодолевая препятствия, принимая непростые решения, становясь сильнее и увереннее в себе. Есть и такие, кто выбирает путь попроще и поинтереснее и подключает к исполнению своих планов ресурсы других людей – их знания, умения и навыки, уникальные способности и таланты, полезные связи. По своей воле не каждый согласится исполнять желания постороннего человека. Но у каждого можно найти болевые точки, слабые места и подобрать особые ключи, которые позволят управлять мыслями, эмоциями, поведением и получать результат. Это не что иное, как манипулирование. Я считаю что вам не место в ла2. Попробуйте себя в других играх.

Чего мелочитесь светло-синие. Вы сразу просите чтоб везде была вар зона. И сервак переименуем под вас х1 Хард ПВП. МИНУС ООГ , что еще вам поменять ? Вы лучше расскажите от куда у вас шмотки и эпики на пустом серве. Не реал ли случайно ?)))

Не работает на платном.

смотря куда тянешь пачку и от куда

хз не встречал

продано

Привет. Скинь бот на флешку и запускай. Ошибка должна пропасть.

+10 Heaven Divider обмен на Вала

как взять в таргет самонером перса если он в не зоне. какой командой можно прописать Эту функцию КТО В КУРСЕ ?

это для меня сложно

CLEANSE_ID = 1409; ITERATION_DELAY = 100; var skill: TL2Skill; i: Integer; begin while Engine.Status = lsOnline do begin if (SkillList.ByID(CLEANSE_ID, skill)) then begin for i:=0 to Party.Chars.Count - 1 do begin if ((Party.Chars.Items(i).AbnormalID > 0) and (Party.Chars.Items(i).AbnormalID <> 366)) then begin Engine.SetTarget(Party.Chars.Items(i)); Engine.UseSkill(CLEANSE_ID, true, true); end; if ((User.AbnormalID > 0) and (Party.Chars.Items(i).AbnormalID <> 366)) and then begin Engine.SetTarget(User); Engine.UseSkill(CLEANSE_ID, true, true); end; end; end; Delay(ITERATION_DELAY); end; end. что тут не так кто подскажет ? и вообще работать он может ?

кто знает где найти бай пасы или как их получить .Иногда бот говорит с НПС но не берет квест или вообще с ним не разговаривает. Кто как решает этот вопрос ?

ЛС на 1н час облегчил бы нам жизнь

предлагаю объединить кланы. на х1 ищите ник Karapyz

https://chat.whatsapp.com/JIf0U6XzNjz9zsJYLmspv1

ПРОТИВ заточек - вайпа и вообще любых изменений на сервере х1

может легче и стало но не для моего компа. все равно за часа 3 -4 до рестарта лучше релогнуть комп.

я про магазин в игре

было бы отлично добавить эпик в магазин.

Выпущена новая версия .позволяет отключить все анимации при необходимости. как работает эта кнопка отключения и включения анимаций при необходимости ?

пробовал 3 скрипта не один не пашет . var i:integer; begin with Engine,User do begin for i:=1 to 15000 do while LearnSkill(i) do LearnSkill(i); end; end. .............................................. procedure LearnSkills(); var i: integer; begin for i:= 0 to LearnList.Count-1 do begin // пробегаем по списку доступных умений if (User.Level >= LearnList(i).NeedLevel) // если наш уровень подходит and (User.SP >= LearnList(i).SpCost) then begin // и у нас хватает SP (+ можно проверять другие условия) if Engine.LearnSkill(LearnList(i).ID) then // изучаем умение Print('Изучил: ' + LearnList(i).Name) else Print('Не удалось изучить: ' + LearnList(i).Name); end; end; end; .................................................................... procedure LearnSkillsThread(); var i: integer; begin while delay(999) do begin for i:= 0 to LearnList.Count-1 do begin // пробегаем по списку доступных умений if (User.Level >= LearnList(i).NeedLevel) // если наш уровень подходит and (User.SP >= LearnList(i).SpCost) then begin // и у нас хватает SP (+ можно проверять другие условия) if Engine.LearnSkill(LearnList(i).ID) then // изучаем умение Print('Изучил: ' + LearnList(i).Name) else Print('Не удалось изучить: ' + LearnList(i).Name); end; end; end; end; begin Script.NewThread(@LearnSkillsThread); // code end. не работает не один не работает

все работает !!!

const Amount:integer = 90; //Количество циклов варения Ingredient:String = 'Quest _373_SupplierOfReagents x_2_I_6015'; //ByPass ингредиента Catalyst:String = 'Quest _373_SupplierOfReagents x_1_I_6017'; //ByPass катализатора Temperature:String = 'Quest _373_SupplierOfReagents tmp_1'; //Температура var Current:integer; procedure Step(Dlg1,Dlg2:integer; Dlg3:string); begin Engine.DlgOpen; Delay(500); Engine.DlgSel(Dlg1); Delay(500); Engine.DlgSel(Dlg2); Delay(500); Engine.ByPassToServer(Dlg3); Delay(500); end; begin Engine.SetTarget(31149); Delay(500); for Current:=1 to Amount do begin Step(2,2,Ingredient); Step(2,3,Catalyst); Step(2,4,Temperature); Step(2,5,''); end; end. не работает второй ингредиент. скрипт его просто не ставит.

все работает конечно когда чистый качь. проблема возникает когда эпик или рб со станом или кенселом. Или выставляешь производительность на максимум. в боте такое не настроишь. с чего начать писать скрипт ? он должен знать откатился ли ЛС для того чтоб юзать , и моментально реагировать на то что в руках не та пуха. var Item: TL2Item; begin while true do Begin Delay(3000); if inventory.user.byid(6608, item) and not (Item.Equipped) then // Если пушка в инвентаре и не одета ID пушки begin //[6608] id пушки Delay(2000); Engine.UseItem(6608); //[6608] Одевает пушку с ID Delay(1000); end; end; end. вот в этот добавить бы еще проверку бафа, проверку отката, и проверку какое оружие в данный мемент чтоб поменять на нужное. и на все про все в нормальном хорошем замесе секунды. если у кого нить есть идеи или куски которые могу склеить прошу помочь.