Перейти к содержимому

Фотография
- - - - -

Ищу "СкриптоПисца"


  • Авторизуйтесь для ответа в теме
Сообщений в теме: 7

#1
Dojkee

Dojkee
  • 5
    0
    Не выбрано
    • Lvl 3
    • Пользователь
    ВКонтакте
    beejeee59

Привет всем

Хочу заказать скрипт со следующим посылом : 

Делаем маршрут из точки А в точку Б, но во время пока бежим, переодически кастуем Агр (собираем парик) в определенных точках (ПосИнРендж как вариант) 

После того как добежали до точки Б, активируем интерфейс, сливаем мобов и бежим на другой круг - из точки С в очку D, и делаем то же самое. После возвращаемся на первый круг

как то так

upd/// 

Скрипт "универсальный"

Локация - то же

Проверки на бафф и прочее Не надо

Основная задача - пробежать, собрать парик - вкл интерфейс, убить и на след круг

Не более того


Сообщение отредактировал Dojkee: 26 Январь 2020 - 15:20

  • 0

#2
vvfrc33

vvfrc33
  • 117
    28
    Горит!
    • Lvl 40
    • Пользователь
    Skype
    teodor2475
    Город
    СПБ

Dojkee, вот пример древний тут самому можно за 3 минуты под себя изменить 
 

uses SysUtils;
const
AgrSkillID = 286;//агро скилл 


function Mobs_count(ChampIgnoreHP:int64) : integer;    //хп выще которого моб будет игнориться функцией
var
list: TNpcList;
i,j: Integer;
begin
list := TNpcList.Create;
result:=0;
  for i := 0 to NpcList.Count - 1 do begin
   if not NpcList.Items(i).dead then  begin
    if  NpcList.Items(i).inzone then  begin
      if (NpcList.Items(i)).z > (user.z-50) then begin
          if (NpcList.Items(i)).z < (user.z+50) then begin
            if  NpcList.Items(i).Curhp < ChampIgnoreHP then begin
              list.Add(NpcList.items(i));
            end;
        end;
      end;
    end;
   end;
  end;
result:=list.count;
list.free;
end;


procedure Smenaspota;
begin
  while delay(555) do begin
    if user.inrange(77624, -51400, -5624,2500,600) and (Mobs_count(3000000) < 1) and (user.inzone) then begin
      engine.facecontrol(0,False);
      Engine.MoveTo(77048, -51640, -5624);
      Engine.MoveTo(76072, -51992, -5624);
      Engine.MoveTo(75160, -52248, -5624);
      Engine.MoveTo(74808, -53048, -5624);
      Engine.MoveTo(75256, -54360, -5624);   //2
      engine.loadzone('stakato2');
      engine.useskill(AgrSkillID);
      engine.facecontrol(0,true);
    end;


    if user.inrange(75256, -54360, -5624,2200,450) and (Mobs_count(3000000) < 1)  and (user.inzone) then begin   
      engine.facecontrol(0,False);
      Engine.MoveTo(74920, -53480, -5624);
      Engine.MoveTo(74952, -52760, -5616);
      Engine.MoveTo(75288, -52200, -5624);
      Engine.MoveTo(75912, -51992, -5616);
      Engine.MoveTo(77240, -51624, -5624);  //1
      engine.loadzone('stakato');
      engine.useskill(AgrSkillID);
      engine.facecontrol(0,true);
    end;
  end;
end;


begin
  Script.NewThread(@Smenaspota);
  Delay(-1);
end.

  • 0

Пишу скрипты на заказ 

Discord neowhite#3259


#3
Dojkee

Dojkee
  • 5
    0
    Не выбрано
    • Lvl 3
    • Пользователь
    ВКонтакте
    beejeee59

vvfrc33,

если не составит труда. можно пояснения к "строчкам" в скрипте? 


  • 0

#4
Dojkee

Dojkee
  • 5
    0
    Не выбрано
    • Lvl 3
    • Пользователь
    ВКонтакте
    beejeee59

Вроде точки поменял, вбил свое, но при запуске ничего не происходит

uses SysUtils;
const
AgrSkillID = 286;//агро скилл 


function Mobs_count(ChampIgnoreHP:int64) : integer;    //хп выще которого моб будет игнориться функцией
var
list: TNpcList;
i,j: Integer;
begin
list := TNpcList.Create;
result:=0;
  for i := 0 to NpcList.Count - 1 do begin
   if not NpcList.Items(i).dead then  begin
    if  NpcList.Items(i).inzone then  begin
      if (NpcList.Items(i)).z > (user.z-50) then begin
          if (NpcList.Items(i)).z < (user.z+50) then begin
            if  NpcList.Items(i).Curhp < ChampIgnoreHP then begin
              list.Add(NpcList.items(i));
            end;
        end;
      end;
    end;
   end;
  end;
result:=list.count;
list.free;
end;
                         
                         
                          

procedure Smenaspota;
begin
  while delay(555) do begin
    if user.inrange(123672, -52632, -2448,2500,600) and (Mobs_count(3000000) < 1) and (user.inzone) then begin
      engine.facecontrol(0,False);
      Engine.MoveTo(77048, -51640, -5624);
      Engine.MoveTo(76072, -51992, -5624);
      Engine.MoveTo(75160, -52248, -5624);
      Engine.MoveTo(74808, -53048, -5624);
      Engine.MoveTo(75256, -54360, -5624);   //2
      engine.loadzone('test1');
      engine.useskill(AgrSkillID);
      engine.facecontrol(0,true);
    end;


    if user.inrange(120440, -55640, -2240,2200,450) and (Mobs_count(3000000) < 1)  and (user.inzone) then begin   
      engine.facecontrol(0,False);
      Engine.MoveTo(74920, -53480, -5624);
      Engine.MoveTo(74952, -52760, -5616);
      Engine.MoveTo(75288, -52200, -5624);
      Engine.MoveTo(75912, -51992, -5616);
      Engine.MoveTo(77240, -51624, -5624);  //1
      engine.loadzone('test2');
      engine.useskill(AgrSkillID);
      engine.facecontrol(0,true);
    end;
  end;
end;


begin
  Script.NewThread(@Smenaspota);
  Delay(-1);
end.

Сообщение отредактировал Dojkee: 26 Январь 2020 - 15:55

  • 0

#5
ScythLab

ScythLab

1) Функция Mobs_count прекрасна.

2) Скрипт не будет во время пробежки использовать агр.

 

вбил свое
а маршрут за тебя кто вбивать будет?
  • 0

Хобби: разработка непубличного бота для Lineage


#6
Dojkee

Dojkee
  • 5
    0
    Не выбрано
    • Lvl 3
    • Пользователь
    ВКонтакте
    beejeee59

д

1. Можно по подробнее про нее ? 

2. как сделать что бы юзал? 

3.. Куда вбить маршрут.

Если на то пошло, я не обязательно прошу все сделать сказать за спасибо

Готов и заплатить за него в "готовом виде" 


  • 0

#7
pups

pups

думаю первый/второй пункты бесполезены, исходя из третьего)

Готов и заплатить за него в "готовом виде" 

эм, здравствуйте :daaa:
  • 0

Discord: pups#9809


#8
ScythLab

ScythLab

Готов и заплатить за него в "готовом виде"
Прочти подпись у vvfrc33 и можешь следовать написанному, может еще кто-то пишет скрипты под заказ, а я слишком ленивый и слишком жадный для этого  ;)
  • 0

Хобби: разработка непубличного бота для Lineage



Количество пользователей, читающих эту тему: 0

0 пользователей, 0 гостей, 0 анонимных

Rawr.pro - Сделано с для игроков.