Перейти к содержанию
LineaAge II Forum L2Corvet

Скрипт на качь тёмного эльфа с 1 по 20 лвл

Охотник

Автор Охотник,
в Скрипты

 Поделиться

Рекомендуемые сообщения

Охотник Бродяга

Охотник

Опубликовано
Опубликовано

Очередное моё творение может быть пригодится кому-нибудь. Примитивно, без проверок!

Качь тёмного эльфа воина но можно и под мага переделать. После создания чара нужно выбрать автоатаку мобов ну и хил при маленьком ХП

Правда иногда тупит в начале когда гем выбивает но это видать особенность сервера. А так в принципе можно и дальше дописать например под качь академиков) Кстати ребятки скриптописцы! Никак не могу заставить адрик покупать теневую пушку на 6 лвл поэтому поставил паузу на 6 лвл.

Спойлер

var
obj: TL2NPC;
obj2: TL2Effect;
Enemy: TL2Live;

Begin
Engine.BypassToServer('_bbshome');
delay(1000);
Engine.BypassToServer('_bbsbuffer');
delay(1000);
Engine.BypassToServer('_bbsbufferbypass_giveBuffSet figher 0 0');
delay(1000);
Engine.BypassToServer('_bbsbufferbypass_heal 0 0 0');
delay(2000);
Engine.MoveTo(28424, 11032, -4232);
delay(2500);
Engine.SetTarget(30131);   // Помощник Новичков
delay(2500);
Engine.DlgOpen;
delay(1500);
Engine.DlgSel(1);
delay(3500);
engine.facecontrol(0, true);
while User.Level<3 do begin
Delay (1000);
if User.Level=3 then break;
if User.Dead then break;
end;  
engine.facecontrol(0, false);
delay(4500);
Engine.MoveTo(28424, 11032, -4232);
delay(3500);
Engine.SetTarget(30131);   // Помощник Новичков
delay(2500);
Engine.DlgOpen;
delay(2500);
Engine.DlgSel(1);
delay(2500);
Engine.SetTarget(30129);   // Митраэль
delay(2500);
Engine.DlgOpen;
delay(1500);
Engine.DlgSel(1);
delay(1500);
Engine.BypassToServer('Quest _999_T1Tutorial isle');
delay(10000);
Engine.MoveTo(-119944, 44504, 368);
delay(500);
Engine.MoveTo(-119720, 44520, 368);
delay(500);
Engine.SetTarget(32135);   // Гид Новичков
delay(500);
Engine.DlgOpen;
delay(500);
Engine.BypassToServer('_bbsteleport');
delay(1000);
Engine.BypassToServer('_bbsteleport;teleport; -95800 240168 -3264 0');
delay(10000);
engine.facecontrol(0, true);
while User.Level<6 do begin
Delay (1000);
if User.Level=6 then break;
if User.Dead then break;
end;  
engine.facecontrol(0, false);  
delay(15000);
Engine.BypassToServer('_bbsteleport');
delay(1000);
Engine.BypassToServer('_bbsteleport;teleport; -119784 44504 352 0');
delay(15000);
Engine.MoveTo(-119720, 44504, 368);
delay(500);
Engine.SetTarget(32135);   // Гид Новичков
delay(500);
Engine.DlgOpen;
delay(500);
Engine.BypassToServer('npc_268448525_Quest NewbieGuideSystem');
delay(1000);
Engine.BypassToServer('Quest NewbieGuideSystem newbie_give_weapon_coupon');
delay(1000);
Engine.SetTarget(32135);   // Гид Новичков
delay(500);
Engine.DlgOpen;
delay(500);
Engine.BypassToServer('npc_268448525_Quest NewbieGuideSystem');
delay(1000);
Engine.BypassToServer('Quest NewbieGuideSystem newbie_show_weapon');
script.pause();
delay(2000);
Engine.BypassToServer('_bbshome');
delay(1000);
Engine.BypassToServer('_bbsbuffer');
delay(1000);
Engine.BypassToServer('_bbsbufferbypass_giveBuffSet figher 0 0');
delay(1000);
Engine.BypassToServer('_bbsbufferbypass_heal 0 0 0');
delay(2000);
Engine.BypassToServer('_bbshome');
delay(1000);
Engine.BypassToServer('_bbsteleport');
delay(1000);
Engine.BypassToServer('_bbsteleport;teleport; -84024 243304 -3728 0');
delay(15000);
Engine.MoveTo(-83688, 242824, -3712);
delay(1000);
Engine.MoveTo(-83080, 242136, -3712);
delay(1000);
Engine.MoveTo(-82584, 241656, -3712);
delay(1000);
Engine.MoveTo(-82280, 241464, -3712);
delay(1000);
Engine.MoveTo(-82232, 241544, -3712);
delay(1000);
Engine.SetTarget(30039);   // Гилберт
delay(500);
Engine.DlgOpen;
delay(1000);
Engine.BypassToServer('npc_268450474_Quest');
delay(1000);
Engine.BypassToServer('Quest _257_TheGuardIsBusy 30039-03.htm');
delay(1500);
Engine.BypassToServer('_bbsteleport');
delay(1000);
Engine.BypassToServer('_bbsteleport;teleport; -95800 240168 -3264 0');
delay(10000);
engine.facecontrol(0, true);
while User.Level<8 do begin
Delay (1000);
if User.Level=8 then break;
if User.Dead then break;
end;  
engine.facecontrol(0, false);  
delay(15000);
Engine.BypassToServer('_bbshome');
delay(1000);
Engine.BypassToServer('_bbsteleport');
delay(1000);
Engine.BypassToServer('_bbsteleport;teleport; -84024 243304 -3728 0');
delay(15000);
Engine.MoveTo(-83688, 242824, -3712);
delay(1000);
Engine.MoveTo(-83080, 242136, -3712);
delay(1000);
Engine.MoveTo(-82584, 241656, -3712);
delay(1000);
Engine.MoveTo(-82280, 241464, -3712);
delay(1000);
Engine.MoveTo(-82232, 241544, -3712);
delay(1000);
Engine.SetTarget(30039);   // Гилберт
delay(500);
Engine.DlgOpen;
delay(1000);
Engine.BypassToServer('npc_268450474_Quest');
delay(1000);
Engine.BypassToServer('Quest _257_TheGuardIsBusy 30039-06.htm');
delay(3000);
Engine.BypassToServer('_bbshome');
delay(1000);
Engine.BypassToServer('_bbsteleport');
delay(1000);
Engine.BypassToServer('_bbsteleport;page;territory/kamael');
delay(1000);
Engine.BypassToServer('_bbsteleport;teleport; -85928 37095 -2048 0');
delay(10000);
Engine.MoveTo(-86472, 37000, -2032);
delay(1000);
Engine.MoveTo(-87432, 37032, -2128);
delay(1000);
Engine.MoveTo(-87832, 37144, -2144);
delay(1000);
engine.facecontrol(0, true);
while User.Level<15 do begin
Delay (1000);
if User.Level=15 then break;
if User.Dead then break;
end;  
engine.facecontrol(0, false);  
delay(15000);  
Engine.BypassToServer('_bbshome');
delay(1000);
Engine.BypassToServer('_bbsteleport');
delay(1000);
Engine.BypassToServer('_bbsteleport;page;territory/telf');
delay(1000);
Engine.BypassToServer('_bbsteleport;teleport; -18415 85624 -3680 0');
delay(15000);
Engine.MoveTo(-18168, 84584, -3640);
delay(1000);
engine.facecontrol(0, true);
while User.Level<20 do begin
Delay (1000);
if User.Level=20 then break;
if User.Dead then break; 
Engine.gohome;
delay(30000);
end;
end.

 

1
Ссылка на комментарий
Поделиться на другие сайты
жук Вассал

жук

Опубликовано
Опубликовано
12 часов назад, Охотник сказал:

Очередное моё творение может быть пригодится кому-нибудь. Примитивно, без проверок!

Качь тёмного эльфа воина но можно и под мага переделать. После создания чара нужно выбрать автоатаку мобов ну и хил при маленьком ХП

Правда иногда тупит в начале когда гем выбивает но это видать особенность сервера. А так в принципе можно и дальше дописать например под качь академиков) Кстати ребятки скриптописцы! Никак не могу заставить адрик покупать теневую пушку на 6 лвл поэтому поставил паузу на 6 лвл.

  Показать контент

var
obj: TL2NPC;
obj2: TL2Effect;
Enemy: TL2Live;

Begin
Engine.BypassToServer('_bbshome');
delay(1000);
Engine.BypassToServer('_bbsbuffer');
delay(1000);
Engine.BypassToServer('_bbsbufferbypass_giveBuffSet figher 0 0');
delay(1000);
Engine.BypassToServer('_bbsbufferbypass_heal 0 0 0');
delay(2000);
Engine.MoveTo(28424, 11032, -4232);
delay(2500);
Engine.SetTarget(30131);   // Помощник Новичков
delay(2500);
Engine.DlgOpen;
delay(1500);
Engine.DlgSel(1);
delay(3500);
engine.facecontrol(0, true);
while User.Level<3 do begin
Delay (1000);
if User.Level=3 then break;
if User.Dead then break;
end;  
engine.facecontrol(0, false);
delay(4500);
Engine.MoveTo(28424, 11032, -4232);
delay(3500);
Engine.SetTarget(30131);   // Помощник Новичков
delay(2500);
Engine.DlgOpen;
delay(2500);
Engine.DlgSel(1);
delay(2500);
Engine.SetTarget(30129);   // Митраэль
delay(2500);
Engine.DlgOpen;
delay(1500);
Engine.DlgSel(1);
delay(1500);
Engine.BypassToServer('Quest _999_T1Tutorial isle');
delay(10000);
Engine.MoveTo(-119944, 44504, 368);
delay(500);
Engine.MoveTo(-119720, 44520, 368);
delay(500);
Engine.SetTarget(32135);   // Гид Новичков
delay(500);
Engine.DlgOpen;
delay(500);
Engine.BypassToServer('_bbsteleport');
delay(1000);
Engine.BypassToServer('_bbsteleport;teleport; -95800 240168 -3264 0');
delay(10000);
engine.facecontrol(0, true);
while User.Level<6 do begin
Delay (1000);
if User.Level=6 then break;
if User.Dead then break;
end;  
engine.facecontrol(0, false);  
delay(15000);
Engine.BypassToServer('_bbsteleport');
delay(1000);
Engine.BypassToServer('_bbsteleport;teleport; -119784 44504 352 0');
delay(15000);
Engine.MoveTo(-119720, 44504, 368);
delay(500);
Engine.SetTarget(32135);   // Гид Новичков
delay(500);
Engine.DlgOpen;
delay(500);
Engine.BypassToServer('npc_268448525_Quest NewbieGuideSystem');
delay(1000);
Engine.BypassToServer('Quest NewbieGuideSystem newbie_give_weapon_coupon');
delay(1000);
Engine.SetTarget(32135);   // Гид Новичков
delay(500);
Engine.DlgOpen;
delay(500);
Engine.BypassToServer('npc_268448525_Quest NewbieGuideSystem');
delay(1000);
Engine.BypassToServer('Quest NewbieGuideSystem newbie_show_weapon');
script.pause();
delay(2000);
Engine.BypassToServer('_bbshome');
delay(1000);
Engine.BypassToServer('_bbsbuffer');
delay(1000);
Engine.BypassToServer('_bbsbufferbypass_giveBuffSet figher 0 0');
delay(1000);
Engine.BypassToServer('_bbsbufferbypass_heal 0 0 0');
delay(2000);
Engine.BypassToServer('_bbshome');
delay(1000);
Engine.BypassToServer('_bbsteleport');
delay(1000);
Engine.BypassToServer('_bbsteleport;teleport; -84024 243304 -3728 0');
delay(15000);
Engine.MoveTo(-83688, 242824, -3712);
delay(1000);
Engine.MoveTo(-83080, 242136, -3712);
delay(1000);
Engine.MoveTo(-82584, 241656, -3712);
delay(1000);
Engine.MoveTo(-82280, 241464, -3712);
delay(1000);
Engine.MoveTo(-82232, 241544, -3712);
delay(1000);
Engine.SetTarget(30039);   // Гилберт
delay(500);
Engine.DlgOpen;
delay(1000);
Engine.BypassToServer('npc_268450474_Quest');
delay(1000);
Engine.BypassToServer('Quest _257_TheGuardIsBusy 30039-03.htm');
delay(1500);
Engine.BypassToServer('_bbsteleport');
delay(1000);
Engine.BypassToServer('_bbsteleport;teleport; -95800 240168 -3264 0');
delay(10000);
engine.facecontrol(0, true);
while User.Level<8 do begin
Delay (1000);
if User.Level=8 then break;
if User.Dead then break;
end;  
engine.facecontrol(0, false);  
delay(15000);
Engine.BypassToServer('_bbshome');
delay(1000);
Engine.BypassToServer('_bbsteleport');
delay(1000);
Engine.BypassToServer('_bbsteleport;teleport; -84024 243304 -3728 0');
delay(15000);
Engine.MoveTo(-83688, 242824, -3712);
delay(1000);
Engine.MoveTo(-83080, 242136, -3712);
delay(1000);
Engine.MoveTo(-82584, 241656, -3712);
delay(1000);
Engine.MoveTo(-82280, 241464, -3712);
delay(1000);
Engine.MoveTo(-82232, 241544, -3712);
delay(1000);
Engine.SetTarget(30039);   // Гилберт
delay(500);
Engine.DlgOpen;
delay(1000);
Engine.BypassToServer('npc_268450474_Quest');
delay(1000);
Engine.BypassToServer('Quest _257_TheGuardIsBusy 30039-06.htm');
delay(3000);
Engine.BypassToServer('_bbshome');
delay(1000);
Engine.BypassToServer('_bbsteleport');
delay(1000);
Engine.BypassToServer('_bbsteleport;page;territory/kamael');
delay(1000);
Engine.BypassToServer('_bbsteleport;teleport; -85928 37095 -2048 0');
delay(10000);
Engine.MoveTo(-86472, 37000, -2032);
delay(1000);
Engine.MoveTo(-87432, 37032, -2128);
delay(1000);
Engine.MoveTo(-87832, 37144, -2144);
delay(1000);
engine.facecontrol(0, true);
while User.Level<15 do begin
Delay (1000);
if User.Level=15 then break;
if User.Dead then break;
end;  
engine.facecontrol(0, false);  
delay(15000);  
Engine.BypassToServer('_bbshome');
delay(1000);
Engine.BypassToServer('_bbsteleport');
delay(1000);
Engine.BypassToServer('_bbsteleport;page;territory/telf');
delay(1000);
Engine.BypassToServer('_bbsteleport;teleport; -18415 85624 -3680 0');
delay(15000);
Engine.MoveTo(-18168, 84584, -3640);
delay(1000);
engine.facecontrol(0, true);
while User.Level<20 do begin
Delay (1000);
if User.Level=20 then break;
if User.Dead then break; 
Engine.gohome;
delay(30000);
end;
end.

 

у тебя какая версия адрика? чет id не совпадают

0
Ссылка на комментарий
Поделиться на другие сайты
Охотник Бродяга

Охотник

Опубликовано
  • Автор
Опубликовано
1 час назад, жук сказал:

у тебя какая версия адрика? чет id не совпадают

С сайта крякнутый. А где именно не совпадает? 

0
Ссылка на комментарий
Поделиться на другие сайты
жук Вассал

жук

Опубликовано
Опубликовано
4 часа назад, Охотник сказал:

С сайта крякнутый. А где именно не совпадает? 

сорян я затупил при копирке все работает

engine.npcexchange(айди;1 <вол-во); проверь на шадоу пушу возьмет нет у меня щя возможности нет зайти

 

0
Ссылка на комментарий
Поделиться на другие сайты
жук Вассал

жук

Опубликовано
Опубликовано
В 21.09.2021 в 21:08, Охотник сказал:

Очередное моё творение может быть пригодится кому-нибудь. Примитивно, без проверок!

Качь тёмного эльфа воина но можно и под мага переделать. После создания чара нужно выбрать автоатаку мобов ну и хил при маленьком ХП

Правда иногда тупит в начале когда гем выбивает но это видать особенность сервера. А так в принципе можно и дальше дописать например под качь академиков) Кстати ребятки скриптописцы! Никак не могу заставить адрик покупать теневую пушку на 6 лвл поэтому поставил паузу на 6 лвл.

  Показать контент

var
obj: TL2NPC;
obj2: TL2Effect;
Enemy: TL2Live;

Begin
Engine.BypassToServer('_bbshome');
delay(1000);
Engine.BypassToServer('_bbsbuffer');
delay(1000);
Engine.BypassToServer('_bbsbufferbypass_giveBuffSet figher 0 0');
delay(1000);
Engine.BypassToServer('_bbsbufferbypass_heal 0 0 0');
delay(2000);
Engine.MoveTo(28424, 11032, -4232);
delay(2500);
Engine.SetTarget(30131);   // Помощник Новичков
delay(2500);
Engine.DlgOpen;
delay(1500);
Engine.DlgSel(1);
delay(3500);
engine.facecontrol(0, true);
while User.Level<3 do begin
Delay (1000);
if User.Level=3 then break;
if User.Dead then break;
end;  
engine.facecontrol(0, false);
delay(4500);
Engine.MoveTo(28424, 11032, -4232);
delay(3500);
Engine.SetTarget(30131);   // Помощник Новичков
delay(2500);
Engine.DlgOpen;
delay(2500);
Engine.DlgSel(1);
delay(2500);
Engine.SetTarget(30129);   // Митраэль
delay(2500);
Engine.DlgOpen;
delay(1500);
Engine.DlgSel(1);
delay(1500);
Engine.BypassToServer('Quest _999_T1Tutorial isle');
delay(10000);
Engine.MoveTo(-119944, 44504, 368);
delay(500);
Engine.MoveTo(-119720, 44520, 368);
delay(500);
Engine.SetTarget(32135);   // Гид Новичков
delay(500);
Engine.DlgOpen;
delay(500);
Engine.BypassToServer('_bbsteleport');
delay(1000);
Engine.BypassToServer('_bbsteleport;teleport; -95800 240168 -3264 0');
delay(10000);
engine.facecontrol(0, true);
while User.Level<6 do begin
Delay (1000);
if User.Level=6 then break;
if User.Dead then break;
end;  
engine.facecontrol(0, false);  
delay(15000);
Engine.BypassToServer('_bbsteleport');
delay(1000);
Engine.BypassToServer('_bbsteleport;teleport; -119784 44504 352 0');
delay(15000);
Engine.MoveTo(-119720, 44504, 368);
delay(500);
Engine.SetTarget(32135);   // Гид Новичков
delay(500);
Engine.DlgOpen;
delay(500);
Engine.BypassToServer('npc_268448525_Quest NewbieGuideSystem');
delay(1000);
Engine.BypassToServer('Quest NewbieGuideSystem newbie_give_weapon_coupon');
delay(1000);
Engine.SetTarget(32135);   // Гид Новичков
delay(500);
Engine.DlgOpen;
delay(500);
Engine.BypassToServer('npc_268448525_Quest NewbieGuideSystem');
delay(1000);
Engine.BypassToServer('Quest NewbieGuideSystem newbie_show_weapon');
script.pause();
delay(2000);
Engine.BypassToServer('_bbshome');
delay(1000);
Engine.BypassToServer('_bbsbuffer');
delay(1000);
Engine.BypassToServer('_bbsbufferbypass_giveBuffSet figher 0 0');
delay(1000);
Engine.BypassToServer('_bbsbufferbypass_heal 0 0 0');
delay(2000);
Engine.BypassToServer('_bbshome');
delay(1000);
Engine.BypassToServer('_bbsteleport');
delay(1000);
Engine.BypassToServer('_bbsteleport;teleport; -84024 243304 -3728 0');
delay(15000);
Engine.MoveTo(-83688, 242824, -3712);
delay(1000);
Engine.MoveTo(-83080, 242136, -3712);
delay(1000);
Engine.MoveTo(-82584, 241656, -3712);
delay(1000);
Engine.MoveTo(-82280, 241464, -3712);
delay(1000);
Engine.MoveTo(-82232, 241544, -3712);
delay(1000);
Engine.SetTarget(30039);   // Гилберт
delay(500);
Engine.DlgOpen;
delay(1000);
Engine.BypassToServer('npc_268450474_Quest');
delay(1000);
Engine.BypassToServer('Quest _257_TheGuardIsBusy 30039-03.htm');
delay(1500);
Engine.BypassToServer('_bbsteleport');
delay(1000);
Engine.BypassToServer('_bbsteleport;teleport; -95800 240168 -3264 0');
delay(10000);
engine.facecontrol(0, true);
while User.Level<8 do begin
Delay (1000);
if User.Level=8 then break;
if User.Dead then break;
end;  
engine.facecontrol(0, false);  
delay(15000);
Engine.BypassToServer('_bbshome');
delay(1000);
Engine.BypassToServer('_bbsteleport');
delay(1000);
Engine.BypassToServer('_bbsteleport;teleport; -84024 243304 -3728 0');
delay(15000);
Engine.MoveTo(-83688, 242824, -3712);
delay(1000);
Engine.MoveTo(-83080, 242136, -3712);
delay(1000);
Engine.MoveTo(-82584, 241656, -3712);
delay(1000);
Engine.MoveTo(-82280, 241464, -3712);
delay(1000);
Engine.MoveTo(-82232, 241544, -3712);
delay(1000);
Engine.SetTarget(30039);   // Гилберт
delay(500);
Engine.DlgOpen;
delay(1000);
Engine.BypassToServer('npc_268450474_Quest');
delay(1000);
Engine.BypassToServer('Quest _257_TheGuardIsBusy 30039-06.htm');
delay(3000);
Engine.BypassToServer('_bbshome');
delay(1000);
Engine.BypassToServer('_bbsteleport');
delay(1000);
Engine.BypassToServer('_bbsteleport;page;territory/kamael');
delay(1000);
Engine.BypassToServer('_bbsteleport;teleport; -85928 37095 -2048 0');
delay(10000);
Engine.MoveTo(-86472, 37000, -2032);
delay(1000);
Engine.MoveTo(-87432, 37032, -2128);
delay(1000);
Engine.MoveTo(-87832, 37144, -2144);
delay(1000);
engine.facecontrol(0, true);
while User.Level<15 do begin
Delay (1000);
if User.Level=15 then break;
if User.Dead then break;
end;  
engine.facecontrol(0, false);  
delay(15000);  
Engine.BypassToServer('_bbshome');
delay(1000);
Engine.BypassToServer('_bbsteleport');
delay(1000);
Engine.BypassToServer('_bbsteleport;page;territory/telf');
delay(1000);
Engine.BypassToServer('_bbsteleport;teleport; -18415 85624 -3680 0');
delay(15000);
Engine.MoveTo(-18168, 84584, -3640);
delay(1000);
engine.facecontrol(0, true);
while User.Level<20 do begin
Delay (1000);
if User.Level=20 then break;
if User.Dead then break; 
Engine.gohome;
delay(30000);
end;
end.

 

Engine.npcexchange(10477,1);
delay(1000);
Engine.UseItem(10477);

вот берет одевает за купон 

1
Ссылка на комментарий
Поделиться на другие сайты
Охотник Бродяга

Охотник

Опубликовано
  • Автор
Опубликовано
В 23.09.2021 в 05:54, жук сказал:

Engine.npcexchange(10477,1);
delay(1000);
Engine.UseItem(10477);

вот берет одевает за купон 

Ок.Спасибо! Проверю на старте.А то капец не удобно было) 

0
Ссылка на комментарий
Поделиться на другие сайты

Присоединяйтесь к обсуждению

Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.
Примечание: Ваш пост будет проверен модератором, прежде чем станет видимым.

Гость
Ответить в этой теме...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.

×
 Поделиться
Перейти к списку тем
×
×
  • Создать...