nblescartel-tales

yurka · 28 Окт 2015

uses SysUtils, Classes;
var Figth_Flag:boolean;
Item: TL2Item;
Npc: TL2Npc;
procedure kvest1;
begin
Engine.MoveTo(147736, 26376, -2128);
Engine.SetTarget('Talien');
Engine.DlgOpen;
Engine.DlgSel(1);
Engine.DlgSel(1);
Delay(500);
Engine.BypassToServer('_bbshome', True); //тп в гиран
Delay(500);
Engine.BypassToServer('02', True);
Delay(500);
Engine.BypassToServer('0a', True);
Delay(500);
Engine.BypassToServer('018', True);
Delay(6000);
Engine.MoveTo(84088, 147592, -3392);
Engine.MoveTo(83592, 147976, -3384);
Engine.MoveTo(83048, 148328, -3456);
Engine.MoveTo(82552, 148680, -3456);
Engine.MoveTo(81304, 149704, -3448);
Engine.SetTarget('Gabrielle');
Engine.DlgOpen;
Engine.DlgSel(1);
Engine.DlgSel(1);
Engine.DlgSel(1);
Delay(500);
Engine.BypassToServer('_bbshome', True); //тп в дв
Delay(500);
Engine.BypassToServer('02', True);
Delay(500);
Engine.BypassToServer('0a', True);
Delay(500);
Engine.BypassToServer('016', True);
Delay(6000);
Engine.MoveTo(117128, 76904, -2672);
Engine.SetTarget('Esmeralda');
Engine.DlgOpen;
Engine.DlgSel(1);
Engine.DlgSel(7);
Delay(6000);
Engine.MoveTo(73176, 118504, -3672);
Engine.SetTarget('Gilmore');
Engine.DlgOpen;
Engine.DlgSel(2);
Engine.DlgSel(1);
Engine.DlgSel(1);
Delay(500);
Engine.BypassToServer('_bbshome', True); //тп в дион
Delay(500);
Engine.BypassToServer('02', True);
Delay(500);
Engine.BypassToServer('0a', True);
Delay(500);
Engine.BypassToServer('01d', True);
Delay(500);
Engine.BypassToServer('011', True);
Delay(6000);
Engine.MoveTo(33080, 187512, -3216);
Engine.MoveTo(32104, 187592, -3200);
Engine.MoveTo(31048, 187592, -3264);
Engine.MoveTo(30056, 187432, -3664);
Engine.MoveTo(28424, 187368, -3632);
Engine.MoveTo(25832, 187224, -3520);
Engine.MoveTo(23640, 187032, -3536);
Engine.MoveTo(21880, 187048, -3488);
Engine.MoveTo(21039, 186830, -3324);
Engine.MoveTo(20294, 186431, -3343);
Engine.MoveTo(19688, 185528, -3344);
Engine.MoveTo(19992, 185288, -3336);
Engine.MoveTo(20936, 184680, -3336);
begin
if user.InRange(20936, 184680, -3336,700,700) then begin
engine.loadconfig('барахама');
end;
procedure kvest3a;
begin
Engine.BypassToServer('_bbshome', True); //тп в аден
Delay(500);
Engine.BypassToServer('02', True);
Delay(500);
Engine.BypassToServer('0a', True);
Delay(500);
Engine.BypassToServer('013', True);
Delay(6000);
Engine.MoveTo(147704, 26360, -2120);
Engine.SetTarget('Talien');
Engine.DlgOpen;
Engine.DlgSel(1);
Engine.DlgSel(1);
Delay(500);
Engine.BypassToServer('_bbshome', True); //тп в хейн
Delay(500);
Engine.BypassToServer('02', True);
Delay(500);
Engine.BypassToServer('0a', True);
Delay(500);
Engine.BypassToServer('015', True);
Delay(6000);
Engine.MoveTo(110088, 218984, -3456); //от тп к кантабилонуёёёёёёёёё
Engine.MoveTo(110056, 218168, -3528);
Engine.MoveTo(110040, 217320, -3728);
Engine.MoveTo(109608, 217336, -3728);
Engine.MoveTo(109144, 217496, -3712);
Engine.MoveTo(108424, 217528, -3680);
Engine.MoveTo(107832, 217560, -3656);
Engine.MoveTo(107416, 217944, -3656);
Engine.MoveTo(107208, 218040, -3656);
Engine.MoveTo(107128, 217768, -3576);
Engine.MoveTo(107080, 217224, -3576);
Engine.MoveTo(106984, 217016, -3576);
Engine.SetTarget('Kantabilon');
Engine.DlgOpen;
Engine.DlgSel(2);
Engine.DlgSel(1);
Engine.DlgSel(1);
Delay(500);
Engine.BypassToServer('_bbshome', True); //тп в хв
Delay(500);
Engine.BypassToServer('02', True);
Delay(500);
Engine.BypassToServer('0a', True);
Delay(500);
Engine.BypassToServer('016', True);
Delay(6000);
Engine.MoveTo(117128, 76904, -2672);
Engine.SetTarget('Esmeralda');
Engine.DlgOpen;
Engine.DlgSel(1);
Engine.DlgSel(7);
Delay(6000);
Engine.MoveTo(72842, 117284, -3664);
Engine.MoveTo(72637, 116462, -3692);
Engine.MoveTo(72211, 115742, -3709);
Engine.MoveTo(71816, 114920, -3712);
Engine.MoveTo(71384, 113304, -3696);
Engine.MoveTo(71272, 111784, -3712);
Engine.MoveTo(71192, 109976, -3712);
Engine.MoveTo(71111, 108293, -3712);
Engine.MoveTo(71096, 106503, -3712);
Engine.MoveTo(71128, 105128, -3680);
Engine.MoveTo(71304, 103848, -3664);
Engine.MoveTo(71448, 103080, -3688);
Engine.MoveTo(71848, 101816, -3696);
Engine.MoveTo(72136, 101096, -3680);
Engine.MoveTo(72072, 100952, -3680);
Engine.MoveTo(72312, 100632, -3648);
Engine.MoveTo(73118, 100697, -3225);
Engine.MoveTo(73688, 101016, -2864);
Engine.MoveTo(73960, 101496, -2736);
Engine.MoveTo(74328, 102312, -2672);
Engine.MoveTo(74440, 102952, -2656);
Engine.MoveTo(74568, 103608, -2688);
Engine.MoveTo(74440, 104584, -2688);
Engine.MoveTo(74504, 105144, -2688);
Engine.MoveTo(75160, 106264, -2752);
Engine.FaceControl(0,true);
Delay(60000);
end;
procedure kvest52;
begin
Engine.BypassToServer('_bbshome', True); //тп в хейн
Delay(500);
Engine.BypassToServer('02', True);
Delay(500);
Engine.BypassToServer('0a', True);
Delay(500);
Engine.BypassToServer('015', True);
Delay(6000);
Engine.MoveTo(110088, 218984, -3456); //от тп к кантабилонуёёёёёёёёё
Engine.MoveTo(110056, 218168, -3528);
Engine.MoveTo(110040, 217320, -3728);
Engine.MoveTo(109608, 217336, -3728);
Engine.MoveTo(109144, 217496, -3712);
Engine.MoveTo(108424, 217528, -3680);
Engine.MoveTo(107832, 217560, -3656);
Engine.MoveTo(107416, 217944, -3656);
Engine.MoveTo(107208, 218040, -3656);
Engine.MoveTo(107128, 217768, -3576);
Engine.MoveTo(107080, 217224, -3576);
Engine.MoveTo(106984, 217016, -3576);
Delay(5000);
Engine.SetTarget('Kantabilon');
Engine.DlgOpen;
Engine.DlgSel(2);
Engine.DlgSel(1);
Engine.DlgSel(1);
Delay(500);
Engine.BypassToServer('_bbshome', True); //тп в аден
Delay(500);
Engine.BypassToServer('02', True);
Delay(500);
Engine.BypassToServer('0a', True);
Delay(500);
Engine.BypassToServer('013', True);
Delay(6000);
Engine.MoveTo(147704, 26360, -2120);
Engine.SetTarget('Talien');
Engine.DlgOpen;
Engine.DlgSel(1);
Engine.DlgSel(1);
Delay(500);
Engine.BypassToServer('_bbshome', True); //тп в хв
Delay(500);
Engine.BypassToServer('02', True);
Delay(500);
Engine.BypassToServer('0a', True);
Delay(500);
Engine.BypassToServer('016', True);
Delay(6000);
Engine.MoveTo(117384, 76184, -2688);
Engine.MoveTo(118344, 76200, -2656);
Engine.MoveTo(119224, 76456, -2416);
Engine.MoveTo(119512, 76584, -2272);
Engine.MoveTo(119704, 76696, -2256);
Engine.MoveTo(119256, 77144, -2256);
Engine.MoveTo(119512, 77400, -2224);
Engine.MoveTo(119864, 77288, -2224);
Engine.SetTarget('Stedmiel');
Engine.DlgOpen;
Engine.DlgSel(3);
Engine.DlgSel(1);
Delay(500);
Engine.BypassToServer('_bbshome', True); //тп в аден
Delay(500);
Engine.BypassToServer('02', True);
Delay(500);
Engine.BypassToServer('0a', True);
Delay(500);
Engine.BypassToServer('013', True);
Delay(6000);
Engine.MoveTo(147704, 26360, -2120);
Engine.SetTarget('Talien');
Engine.DlgOpen;
Engine.DlgSel(1);
Engine.DlgSel(1);
Delay(500);
Engine.BypassToServer('_bbshome', True); //тп в руну
Delay(500);
Engine.BypassToServer('02', True);
Delay(500);
Engine.BypassToServer('0a', True);
Delay(500);
Engine.BypassToServer('019', True);
Delay(5000);
Engine.MoveTo(43816, -48984, -784);
Engine.MoveTo(43624, -48344, -784);
Engine.MoveTo(43016, -48248, -784);
Engine.MoveTo(41816, -48248, -784);
Engine.MoveTo(40888, -48232, -752);
Engine.MoveTo(40232, -48232, -752);
Engine.MoveTo(39656, -48232, -752);
Engine.MoveTo(38360, -48168, -1136);
Engine.MoveTo(38344, -48088, -1136);
Engine.SetTarget('Stanislava');
Engine.DlgOpen;
Engine.DlgSel(1);
Engine.DlgSel(1);
Delay(2000);
Engine.MoveTo(38232, -48120, 912);
Engine.MoveTo(37544, -48200, 912);
Engine.MoveTo(36536, -48200, 912);
Engine.MoveTo(35944, -47720, 912);
Engine.MoveTo(35880, -47384, 952);
Engine.MoveTo(35912, -47016, 1088);
Engine.MoveTo(35848, -46936, 1088);
Engine.MoveTo(35272, -46920, 1304);
Engine.MoveTo(34904, -46968, 1408);
Engine.MoveTo(34888, -47672, 1600);
Engine.MoveTo(34888, -48200, 1728);
Engine.MoveTo(34504, -48232, 1776);
Engine.MoveTo(33000, -48232, 1792);
Delay(500);
Engine.SetTarget('Virgil');
Engine.DlgOpen;
Engine.DlgSel(1);
Engine.DlgSel(1);
Engine.DlgSel(1);
Delay(500);
Engine.SetTarget('Ogmar');
Engine.DlgOpen;
Engine.DlgSel(1);
Engine.DlgSel(1);
Delay(500);
Engine.MoveTo(34152, -48216, 1792);
Engine.MoveTo(34888, -48184, 1728);
Engine.MoveTo(34904, -46920, 1408);
Engine.MoveTo(35880, -46936, 1088);
Engine.MoveTo(35944, -47720, 912);
Engine.MoveTo(36712, -48200, 912);
Engine.MoveTo(37640, -48184, 912);
Engine.MoveTo(38184, -48072, 912);
Delay(500);
Engine.SetTarget('Arisha');
Engine.DlgOpen;
Engine.DlgSel(1);
Engine.DlgSel(1);
Delay(2000);
Engine.MoveTo(37576, -48472, -1136);
Engine.MoveTo(37400, -48744, -1112);
Engine.MoveTo(37384, -49016, -1112);
Engine.MoveTo(37464, -49272, -1112);
Engine.MoveTo(38328, -49256, -1112);
Engine.SetTarget('Rahorakti');
Engine.DlgOpen;
Engine.DlgSel(6);
Engine.DlgSel(1);
Engine.DlgSel(1);
Delay(500);
Engine.BypassToServer('_bbshome', True); //тп в руну
Delay(500);
Engine.BypassToServer('02', True);
Delay(500);
Engine.BypassToServer('0a', True);
Delay(500);
Engine.BypassToServer('01e', True);
Delay(500);
Engine.BypassToServer('011', True);
Delay(5000);
Engine.MoveTo(185416, 19816, -3248);
Engine.MoveTo(184680, 19768, -3152);
Engine.MoveTo(184056, 19656, -3152);
Engine.MoveTo(183656, 18344, -3152);
Engine.MoveTo(183416, 17288, -3152);
Engine.MoveTo(183096, 16088, -3152);
Engine.MoveTo(182376, 15992, -3152);
Engine.FaceControl(0,true);
Delay(5000)
end;
procedure kvest54;
begin
Engine.FaceControl(0,false);
Engine.UseItem(736);
Delay(25000);
Engine.BypassToServer('_bbshome', True); //тп в руну
Delay(500);
Engine.BypassToServer('02', True);
Delay(500);
Engine.BypassToServer('0a', True);
Delay(500);
Engine.BypassToServer('019', True);
Delay(5000);
Engine.MoveTo(43816, -48984, -784);
Engine.MoveTo(43624, -48344, -784);
Engine.MoveTo(43016, -48248, -784);
Engine.MoveTo(41816, -48248, -784);
Engine.MoveTo(40888, -48232, -752);
Engine.MoveTo(40232, -48232, -752);
Engine.MoveTo(39656, -48232, -752);
Engine.MoveTo(38360, -48168, -1136);
Engine.MoveTo(38344, -48088, -1136);
Engine.MoveTo(37544, -48440, -1136);
Engine.MoveTo(37368, -48744, -1112);
Engine.MoveTo(37384, -49032, -1112);
Engine.MoveTo(37432, -49400, -1112);
Engine.MoveTo(38312, -49240, -1112);
Engine.SetTarget('Rahorakti');
Engine.DlgOpen;
Engine.DlgSel(6);
Engine.DlgSel(1);
Engine.DlgSel(1);
Delay(500);
Engine.MoveTo(37400, -49256, -1112);
Engine.MoveTo(37384, -48648, -1112);
Engine.MoveTo(37704, -48312, -1136);
Engine.MoveTo(38344, -48072, -1136);
Engine.SetTarget('Stanislava');
Engine.DlgOpen;
Engine.DlgSel(1);
Engine.DlgSel(1);
Delay(2000);
Engine.MoveTo(38232, -48120, 912);
Engine.MoveTo(37544, -48200, 912);
Engine.MoveTo(36536, -48200, 912);
Engine.MoveTo(35944, -47720, 912);
Engine.MoveTo(35880, -47384, 952);
Engine.MoveTo(35912, -47016, 1088);
Engine.MoveTo(35848, -46936, 1088);
Engine.MoveTo(35272, -46920, 1304);
Engine.MoveTo(34904, -46968, 1408);
Engine.MoveTo(34888, -47672, 1600);
Engine.MoveTo(34888, -48200, 1728);
Engine.MoveTo(34504, -48232, 1776);
Engine.MoveTo(33000, -48232, 1792);
Delay(500);
Engine.SetTarget('Kassandra');
Engine.DlgOpen;
Engine.DlgSel(1);
Engine.DlgSel(1);
Delay(500);
Engine.SetTarget('Virgil');
Engine.DlgOpen;
Engine.DlgSel(1);
Engine.DlgSel(1);
Engine.DlgSel(1);
Delay(500);
Engine.BypassToServer('_bbshome', True); //тп в руну
Delay(500);
Engine.BypassToServer('02', True);
Delay(500);
Engine.BypassToServer('0a', True);
Delay(500);
Engine.BypassToServer('014', True);
Delay(6000);
Engine.MoveTo(148760, -56248, -2768);
Engine.MoveTo(149272, -56472, -2760);
Engine.MoveTo(149880, -56904, -2960);
Engine.MoveTo(150136, -57864, -2960);
Engine.SetTarget('Caradine');
Engine.DlgOpen;
Engine.DlgSel(1);
Engine.DlgSel(1);
Engine.DlgSel(1);
Delay(500);
Engine.SetTarget('Caradine');
Engine.DlgOpen;
Engine.DlgSel(1);
Engine.DlgSel(1);
Engine.DlgSel(1);
Delay(500);
Engine.BypassToServer('_bbshome', True); //тп в руну
Delay(500);
Engine.BypassToServer('02', True);
Delay(500);
Engine.BypassToServer('0a', True);
Delay(500);
Engine.BypassToServer('019', True);
Delay(5000);
Engine.MoveTo(43816, -48984, -784);
Engine.MoveTo(43624, -48344, -784);
Engine.MoveTo(43016, -48248, -784);
Engine.MoveTo(41816, -48248, -784);
Engine.MoveTo(40888, -48232, -752);
Engine.MoveTo(40232, -48232, -752);
Engine.MoveTo(39656, -48232, -752);
Engine.MoveTo(38360, -48168, -1136);
Engine.MoveTo(38344, -48088, -1136);
Engine.SetTarget('Stanislava');
Engine.DlgOpen;
Engine.DlgSel(1);
Engine.DlgSel(1);
Delay(2000);
Engine.MoveTo(38232, -48120, 912);
Engine.MoveTo(37544, -48200, 912);
Engine.MoveTo(36536, -48200, 912);
Engine.MoveTo(35944, -47720, 912);
Engine.MoveTo(35880, -47384, 952);
Engine.MoveTo(35912, -47016, 1088);
Engine.MoveTo(35848, -46936, 1088);
Engine.MoveTo(35272, -46920, 1304);
Engine.MoveTo(34904, -46968, 1408);
Engine.MoveTo(34888, -47672, 1600);
Engine.MoveTo(34888, -48200, 1728);
Engine.MoveTo(34504, -48232, 1776);
Engine.MoveTo(33000, -48232, 1792);
Delay(500);
Engine.SetTarget('Virgil');
Engine.DlgOpen;
Engine.DlgSel(1);
Engine.DlgSel(1);
Delay(500);
Engine.SetTarget('Kassandra');
Engine.DlgOpen;
Engine.DlgSel(1);
Engine.DlgSel(1);
Engine.DlgSel(1);
Engine.DlgSel(1);
Engine.DlgSel(1);
Delay(500);
Engine.SetTarget('Ogmar');
Engine.DlgOpen;
Engine.DlgSel(1);
Engine.DlgSel(1);
Delay(500);
Engine.BypassToServer('_bbshome', True); //тп в руну
Delay(500);
Engine.BypassToServer('02', True);
Delay(500);
Engine.BypassToServer('0a', True);
Delay(500);
Engine.BypassToServer('025', True);
Delay(500);
Engine.BypassToServer('0b', True);
Delay(5000);
Engine.MoveTo(94088, -59000, -2688);
Engine.MoveTo(94488, -59416, -2512);
Engine.MoveTo(94712, -59672, -2464);
Engine.MoveTo(94920, -60744, -2480);
Delay(500);
Engine.SetTarget('Mysterious Dark Knight');
Engine.DlgOpen;
Engine.DlgSel(1);
Engine.DlgSel(1);
Delay(500);
end;
procedure kvest9;
begin
Engine.BypassToServer('_bbshome', True);
Delay(500);
Engine.BypassToServer('02', True);
Delay(500);
Engine.BypassToServer('0a', True);
Delay(500);
Engine.BypassToServer('023', True);
Delay(500);
Engine.BypassToServer('0f', True);
Delay(6000);
Engine.MoveTo(94181, 18354, -3627);
Engine.MoveTo(94904, 19352, -3384);
Engine.MoveTo(95176, 20392, -3200);
Engine.MoveTo(95208, 21256, -3024);
Engine.MoveTo(95352, 22184, -2864);
Engine.SetTarget('Kalis');
Engine.DlgOpen;
Engine.DlgSel(1);
Engine.DlgSel(1);
Delay(500);
Engine.BypassToServer('_bbshome', True);
Delay(500);
Engine.BypassToServer('02', True);
Delay(500);
Engine.BypassToServer('0a', True);
Delay(500);
Engine.BypassToServer('023', True);
Delay(500);
Engine.BypassToServer('0e', True);
Delay(6000);
Engine.MoveTo(63016, 29720, -3744);
Engine.MoveTo(64088, 28360, -3792);
Engine.MoveTo(64584, 27704, -3776);
Engine.MoveTo(65992, 26168, -3728);
Engine.MoveTo(66839, 25128, -3696);
Engine.MoveTo(67960, 24072, -3680);
Engine.MoveTo(68728, 23496, -3632);
Engine.MoveTo(69544, 22712, -3632);
Engine.MoveTo(69992, 22104, -3616);
Engine.MoveTo(70200, 20504, -3664);
Engine.MoveTo(70248, 19768, -3664);
Engine.MoveTo(69880, 18952, -3664);
Engine.MoveTo(69864, 18168, -3648);
Delay(500);
Engine.SetTarget('Matild');
Engine.DlgOpen;
Engine.DlgSel(1);
Engine.DlgSel(1);
Engine.DlgSel(1);
Delay(500);
Engine.BypassToServer('_bbshome', True);
Delay(500);
Engine.BypassToServer('02', True);
Delay(500);
Engine.BypassToServer('0a', True);
Delay(500);
Engine.BypassToServer('023', True);
Delay(500);
Engine.BypassToServer('0f', True);
Delay(6000);
Engine.MoveTo(94181, 18354, -3627);
Engine.MoveTo(94904, 19352, -3384);
Engine.MoveTo(95176, 20392, -3200);
Engine.MoveTo(95208, 21256, -3024);
Engine.MoveTo(95352, 22184, -2864);
Engine.SetTarget('Kalis');
Engine.DlgOpen;
Engine.DlgSel(1);
Engine.DlgSel(1);
Delay(500);
Engine.BypassToServer('_bbshome', True);
Delay(500);
Engine.BypassToServer('02', True);
Delay(500);
Engine.BypassToServer('0a', True);
Delay(500);
Engine.BypassToServer('025', True);
Delay(500);
Engine.BypassToServer('0d', True);
Delay(6000);
Engine.MoveTo(67992, -71240, -3792);
Engine.MoveTo(68344, -70632, -3744);
Engine.MoveTo(69207, -69928, -3648);
Engine.MoveTo(69832, -69432, -3632);
Engine.MoveTo(70664, -69240, -3632);
Engine.MoveTo(72376, -69432, -3616);
Engine.MoveTo(74360, -69592, -3824);
Engine.MoveTo(75560, -69880, -3648);
Engine.MoveTo(76632, -70184, -3504);
Engine.MoveTo(77736, -70488, -3392);
Engine.MoveTo(79240, -70968, -3440);
Engine.MoveTo(80314, -71284, -3392);
Engine.MoveTo(82120, -71800, -3472);
Engine.MoveTo(83304, -72296, -3472);
Engine.MoveTo(83944, -72696, -3488);
Engine.MoveTo(84925, -73350, -3581);
Engine.MoveTo(86184, -73896, -3584);
Engine.MoveTo(87576, -74344, -3488);
Engine.MoveTo(87800, -74440, -3488);
Engine.MoveTo(86888, -75496, -3480);
end;
procedure kvest10;
begin
Engine.BypassToServer('_bbshome', True); //тп в руну
Delay(500);
Engine.BypassToServer('02', True);
Delay(500);
Engine.BypassToServer('0a', True);
Delay(500);
Engine.BypassToServer('019', True);
Delay(5000);
Engine.MoveTo(43816, -48984, -784);
Engine.MoveTo(43624, -48344, -784);
Engine.MoveTo(43016, -48248, -784);
Engine.MoveTo(41816, -48248, -784);
Engine.MoveTo(40888, -48232, -752);
Engine.MoveTo(40232, -48232, -752);
Engine.MoveTo(39656, -48232, -752);
Engine.MoveTo(38360, -48168, -1136);
Engine.MoveTo(38344, -48088, -1136);
Engine.SetTarget('Stanislava');
Engine.DlgOpen;
Engine.DlgSel(1);
Engine.DlgSel(1);
Delay(2000);
Engine.MoveTo(38232, -48120, 912);
Engine.MoveTo(37544, -48200, 912);
Engine.MoveTo(36536, -48200, 912);
Engine.MoveTo(35944, -47720, 912);
Engine.MoveTo(35880, -47384, 952);
Engine.MoveTo(35912, -47016, 1088);
Engine.MoveTo(35848, -46936, 1088);
Engine.MoveTo(35272, -46920, 1304);
Engine.MoveTo(34904, -46968, 1408);
Engine.MoveTo(34888, -47672, 1600);
Engine.MoveTo(34888, -48200, 1728);
Engine.MoveTo(34504, -48232, 1776);
Engine.MoveTo(33000, -48232, 1792);
Delay(2000);
Engine.SetTarget('Кассандра');
Engine.DlgOpen;
Engine.DlgSel(1);
Delay(2000);
Engine.BypassToServer('_bbshome', True); //тп в руну
Delay(500);
Engine.BypassToServer('02', True);
Delay(500);
Engine.BypassToServer('0a', True);
Delay(500);
Engine.BypassToServer('014', True);
Delay(6000);
Engine.MoveTo(148760, -56248, -2768);
Engine.MoveTo(149272, -56472, -2760);
Engine.MoveTo(149880, -56904, -2960);
Engine.MoveTo(150136, -57864, -2960);
Engine.SetTarget('Caradine');
Engine.DlgOpen;
Engine.DlgSel(1);
Engine.DlgSel(1);
Engine.DlgSel(1);
Delay(500);
Engine.SetTarget('Ossian');
Engine.DlgOpen;
Engine.DlgSel(1);
Engine.DlgSel(1);
Delay(500);
Engine.BypassToServer('_bbshome', True);
Delay(500);
Engine.BypassToServer('02', True);
Delay(500);
Engine.BypassToServer('0a', True);
Delay(500);
Engine.BypassToServer('025', True);
Delay(500);
Engine.BypassToServer('0d', True);
Delay(6000);
Engine.MoveTo(67992, -71240, -3792);
Engine.MoveTo(68344, -70632, -3744);
Engine.MoveTo(69207, -69928, -3648);
Engine.MoveTo(69832, -69432, -3632);
Engine.MoveTo(70664, -69240, -3632);
Engine.MoveTo(72376, -69432, -3616);
Engine.MoveTo(74360, -69592, -3824);
Engine.MoveTo(75560, -69880, -3648);
Engine.MoveTo(76632, -70184, -3504);
Engine.MoveTo(77736, -70488, -3392);
Engine.MoveTo(79240, -70968, -3440);
Engine.MoveTo(80314, -71284, -3392);
Engine.MoveTo(82120, -71800, -3472);
Engine.MoveTo(83304, -72296, -3472);
Engine.MoveTo(83944, -72696, -3488);
Engine.MoveTo(84925, -73350, -3581);
Engine.MoveTo(86184, -73896, -3584);
Engine.MoveTo(87576, -74344, -3488);
Engine.MoveTo(87800, -74440, -3488);
Engine.MoveTo(88712, -75352, -3664);
Engine.MoveTo(89112, -76392, -3824);
Engine.MoveTo(88552, -77688, -3792);
Engine.MoveTo(87960, -78984, -3696);
Engine.MoveTo(86600, -79704, -3664);
Engine.MoveTo(85000, -80440, -3568);
Engine.MoveTo(83912, -80104, -3488);
end;
procedure kvest12;
begin
Engine.BypassToServer('_bbshome', True); //тп в годдард
Delay(500);
Engine.BypassToServer('02', True);
Delay(500);
Engine.BypassToServer('0a', True);
Delay(500);
Engine.BypassToServer('014', True);
Delay(6000);
Engine.MoveTo(148760, -56248, -2768);
Engine.MoveTo(149272, -56472, -2760);
Engine.MoveTo(149880, -56904, -2960);
Engine.MoveTo(150136, -57864, -2960);
Delay(500);
Engine.SetTarget('Ossian');
Engine.DlgOpen;
Engine.DlgSel(1);
Engine.DlgSel(1);
Engine.DlgSel(2);
Delay(500);
Engine.BypassToServer('_bbshome', True);
Delay(500);
Engine.BypassToServer('02', True);
Delay(500);
Engine.BypassToServer('0a', True);
Delay(500);
Engine.BypassToServer('025', True);
Delay(500);
Engine.BypassToServer('0d', True);
Delay(6000);
Engine.MoveTo(67992, -71240, -3792);
Engine.MoveTo(68344, -70632, -3744);
Engine.MoveTo(69207, -69928, -3648);
Engine.MoveTo(69832, -69432, -3632);
Engine.MoveTo(70664, -69240, -3632);
Engine.MoveTo(72376, -69432, -3616);
Engine.MoveTo(74360, -69592, -3824);
Engine.MoveTo(75560, -69880, -3648);
Engine.MoveTo(76632, -70184, -3504);
Engine.MoveTo(77736, -70488, -3392);
Engine.MoveTo(79240, -70968, -3440);
Engine.MoveTo(80314, -71284, -3392);
Engine.MoveTo(82120, -71800, -3472);
Engine.MoveTo(83304, -72296, -3472);
Engine.MoveTo(83944, -72696, -3488);
Engine.MoveTo(84925, -73350, -3581);
Engine.MoveTo(86184, -73896, -3584);
Engine.MoveTo(87576, -74344, -3488);
Engine.MoveTo(87800, -74440, -3488);
Engine.MoveTo(88888, -75400, -3696);
Engine.MoveTo(88814, -76703, -3819);
Engine.MoveTo(88168, -78712, -3728);
Engine.MoveTo(85957, -80572, -3664);
Engine.MoveTo(85256, -81448, -3552);
Engine.MoveTo(84408, -82344, -3504);
Engine.MoveTo(83752, -83080, -3536);
Engine.MoveTo(83064, -84456, -3536);
Engine.MoveTo(82407, -85800, -3557);
Engine.MoveTo(81777, -87292, -3512);
Engine.MoveTo(81192, -89240, -3344);
end;
procedure kvest13;
begin
Engine.FaceControl(0,false);
Engine.UseItem(736);
Delay(31000);
Engine.BypassToServer('_bbshome', True); //тп в годдард
Delay(500);
Engine.BypassToServer('02', True);
Delay(500);
Engine.BypassToServer('0a', True);
Delay(500);
Engine.BypassToServer('014', True);
Delay(6000);
Engine.MoveTo(148760, -56248, -2768);
Engine.MoveTo(149272, -56472, -2760);
Engine.MoveTo(149880, -56904, -2960);
Engine.MoveTo(150136, -57864, -2960);
Delay(500);
Engine.SetTarget('Ossian');
Engine.DlgOpen;
Engine.DlgSel(1);
Engine.DlgSel(1);
Delay(500);
Engine.BypassToServer('_bbshome', True); //тп в ИвориТовер
Delay(500);
Engine.BypassToServer('02', True);
Delay(500);
Engine.BypassToServer('0a', True);
Delay(500);
Engine.BypassToServer('023', True);
Delay(500);
Engine.BypassToServer('0d', True);
Delay(6000);
Engine.SetTarget('Verona');
Engine.DlgOpen;
Engine.DlgSel(3);
Engine.DlgSel(4);
Delay(5000);
Engine.MoveTo(85224, 16120, -1760);
Engine.SetTarget('Ladd');
Engine.MoveToTarget(-30);
Engine.DlgOpen;
Engine.DlgSel(4);
Engine.DlgSel(1);
Engine.DlgSel(1);
Delay(500);
Engine.BypassToServer('_bbshome', True); //тп в годдард
Delay(500);
Engine.BypassToServer('02', True);
Delay(500);
Engine.BypassToServer('0a', True);
Delay(500);
Engine.BypassToServer('014', True);
Delay(6000);
Engine.MoveTo(148760, -56248, -2768);
Engine.MoveTo(149272, -56472, -2760);
Engine.MoveTo(149880, -56904, -2960);
Engine.MoveTo(150136, -57864, -2960);
Delay(500);
Engine.SetTarget('Caradine');
Engine.DlgOpen;
Engine.DlgSel(1);
Engine.DlgSel(2);
Engine.DlgSel(1);
Engine.DlgSel(1);
Engine.DlgSel(1);
Delay(2000);
Engine.SetTarget('Lady of the Lake');
Engine.DlgOpen;
Engine.DlgSel(1);
Engine.DlgSel(1);
Engine.DlgSel(1);
Engine.DlgSel(1);
Engine.DlgSel(1);
Delay(500);
end;
//---------------------------------------------------------------------------------------------------
begin
repeat
Delay(700);
if User.InRange(147336, 25928, -2000,4500) then //поставить чара у Талиен
begin
kvest1;
Delay(3000);
end;
if User.InRange(20952, 184680, -3336, 1000)and Engine.QuestStatus(241,4) then //итем от барахам
begin
kvest3a;
end;
if User.InRange(75080, 106920, -2704,10000,10000) then // после 10 суккубов
begin
kvest52;
Delay(15000);
end;
if User.InRange(182296, 15896, -3152,4000,4000)and Engine.QuestStatus(241,15)then
begin
kvest54;
Delay(500);
end;
if User.InRange(94984, -60776, -2464,2000)and Engine.QuestStatus(242,6) then
begin
kvest9;
Delay(3000);
end;
if User.InRange(85928, -76536, -3456,200) and Engine.QuestStatus(242,11) then
begin
kvest10;
Delay(3000);
end;
if User.InRange(84092, -80084, -3488,5000) and Engine.QuestStatus(246,3)then
begin
kvest12;
Delay(3000);
end;
if Engine.QuestStatus(246,5)then
begin
kvest13;
Delay(3000);
end;
until Engine.Status = lsOnline;
end.

joingog · 28 Окт 2015

Если где-то долго прогрузится или убили, что будет?

ViperCraby · 28 Окт 2015

Просмотрел скрипт, не нашел почему то, фарма суккубов , +он подгружает конфиг 'барахама', но его нету тут в прикрепленных файлах.

yurka · 28 Окт 2015

Позже залю фуловый, в скрипте есть пару нюансов что бы заработал, увидит каждый надеюсь, лучше подконтраливать
барахама убить и после стойки старт
на споте суккубов выкл адр и после 10 старт
после 5мха нажать старт адреналина, можно с включ инртерфейсом
на падших ангелах самому поговорить и нажать старт
набиваем квестовые итемы и вставляем в башенки, говорим, там же жмем старт
бьем бижу самостоятельно квестовую, между 2 спотами после бижи жмем старт
на 100 мобах после 100 итемов жмем старт

получаем сами корону

headway · 31 Окт 2015

c использованием альт-б Телепорта или у НПС ?

yurka · 1 Ноя 2015

этот альт б

imsrl · 3 Ноя 2015

То есть вы хотите сказать, что это полный квест нублесса?

yurka · 3 Ноя 2015

[б][член=imsrl][/б],
Нет, сори в соскедней теме фул кв, просто вначале затупил и насоздавал тем...

ExClow · 7 Ноя 2015

А есть без альт б?