мандолина барда

[жук]

скрипт на квест 15+лвл; награда 10к 

советы как улучшить или что лишние приветствуются=)

Спойлер

var
monster: TL2Npc;
begin while 1<>2 do begin 
begin
  engine.BypassToServer('_bbshome', True) ;
  delay(1111);
  Engine.BypassToServer('_bbsteleport;', True) ;
  delay(1111);
  Engine.BypassToServer('_bbsteleport;page;cities/dion', True) ;
  delay(1111);
  Engine.BypassToServer('_bbsteleport;teleport; 18748 145437 -3132 0', True) ;
  delay(1111);
  Engine.MoveTo(18392, 145064, -3056);
  delay(1111);
  Engine.SetTarget(30957);
  delay(1111);
  Engine.DlgOpen;
  delay(1111);
  Engine.DlgSel('квест');
  delay(1111);
  Engine.BypassToServer('Quest _362_BardsMandolin 30957-3.htm', true);
  delay(1111);
  Engine.MoveTo(18072, 145368, -3040);
  Engine.MoveTo(17596, 145432, -3055);
  Engine.MoveTo(17309, 145233, -3030);
  Engine.MoveTo(17032, 144936, -2992);
  Engine.MoveTo(16851, 144619, -2980);
  Engine.MoveTo(16453, 143936, -2895);
  Engine.MoveTo(16120, 143472, -2790);
  Engine.MoveTo(15736, 143003, -2710);
  Engine.MoveTo(15592, 142872, -2688);
  Engine.SetTarget (30059);
  delay(2111);
  Engine.DlgOpen;
  delay(2111);
  Engine.DlgSel('Телепортироваться');
  delay(2111);
  Engine.DlgSel('Аден');
  delay(3111);
  Engine.MoveTo(147096, 25848, -2000);
  Engine.MoveTo(147320, 25992, -1992);
  Engine.MoveTo(147294, 26335, -2110);
  Engine.MoveTo(147193, 26565, -2179);
  Engine.MoveTo(146871, 26664, -2192);
  Engine.MoveTo(146632, 26568, -2184);
  Engine.MoveTo(146595, 26372, -2168);
  Engine.MoveTo(146744, 26280, -2168);
  delay(2111);
  Engine.SetTarget(30837);
  delay(2111);
  Engine.DlgOpen;
  delay(2111);
  Engine.DlgSel('Квест');
  delay(1111);
  Engine.MoveTo(146600, 26456, -2168);
  Engine.MoveTo(146568, 26632, -2192);
  Engine.MoveTo(147107, 26619, -2179);
  Engine.MoveTo(147400, 26552, -2176);
  Engine.MoveTo(147301, 26257, -2077);
  Engine.MoveTo(147231, 25921, -2007);
  Engine.MoveTo(146886, 25825, -2000);
  Engine.MoveTo(146760, 25832, -2000);
  delay(1111);
  Engine.SetTarget (30848);
  Engine.DlgOpen;
  delay(1111);
  Engine.DlgSel('Телепортироваться');
  delay(1111);
  Engine.DlgSel('Гиран');
  delay(3111);
  Engine.MoveTo(83416, 147912, -3384);
  Engine.SetTarget (30080);
  Engine.DlgOpen;
  delay(1111);
  Engine.DlgSel('Телепортироваться');
  delay(1111);
  Engine.DlgSel('Гавань Гирана');
  delay(3111);
  Engine.MoveTo(47603, 187046, -3464);
  Engine.MoveTo(47304, 187368, -3464);
  Engine.MoveTo(46647, 187254, -3464);
  Engine.MoveTo(46183, 187187, -3464);
  Engine.MoveTo(45856, 187216, -3450);
  Engine.MoveTo(45515, 187379, -3408);
  Engine.MoveTo(45147, 187599, -3374);
  Engine.MoveTo(44724, 187832, -3395);
  Engine.MoveTo(44362, 188030, -3443);
  Engine.MoveTo(44081, 188249, -3468);
  Engine.MoveTo(44095, 188570, -3472);
  Engine.MoveTo(44088, 188920, -3472);
  Engine.MoveTo(44077, 189212, -3512);
  Engine.MoveTo(43966, 189583, -3536);
  Engine.MoveTo(43956, 189880, -3578);
  Engine.MoveTo(44117, 190212, -3608);
  Engine.MoveTo(44278, 190491, -3613);
  Engine.MoveTo(44536, 190744, -3616);
  Engine.MoveTo(44696, 190712, -3608);
  delay(1111);
  Engine.SetTarget (30958);
  Engine.DlgOpen;
  delay(1111);
  Engine.DlgSel('Квест');
  delay(1111);
  Engine.MoveTo(44465, 190611, -3615);
  Engine.MoveTo(44251, 190324, -3616);
  Engine.MoveTo(44089, 190019, -3584);
  Engine.MoveTo(43959, 189758, -3567);
  Engine.MoveTo(43872, 189313, -3482);
  Engine.MoveTo(43898, 188831, -3468);
  Engine.MoveTo(44015, 188387, -3472);
  Engine.MoveTo(44195, 188081, -3464);
  Engine.MoveTo(44582, 187864, -3408);
  Engine.MoveTo(44888, 187736, -3368);
  Engine.MoveTo(45223, 187561, -3376);
  Engine.MoveTo(45879, 187239, -3454);
  Engine.MoveTo(46371, 187104, -3470);
  Engine.MoveTo(46865, 187007, -3464);
  Engine.MoveTo(47476, 186895, -3464);
  Engine.MoveTo(47960, 186824, -3464);
  delay(1111);
  Engine.SetTarget (30878);
  Engine.DlgOpen;
  delay(1111);
  Engine.DlgSel('Телепортация');
  delay(1111);
  Engine.DlgSel('Гиран');
  delay(3111);
  Engine.MoveTo(83432, 147912, -3384);
  Engine.SetTarget (30080);
  Engine.DlgOpen;
  delay(1111);
  Engine.DlgSel('Телепортироваться');
  delay(1111);
  Engine.DlgSel('Дион');
  delay(3111);
  Engine.MoveTo(15683, 143186, -2699);
  Engine.MoveTo(16325, 143795, -2878);
  Engine.MoveTo(16520, 144029, -2922);
  Engine.MoveTo(16770, 144419, -2965);
  Engine.MoveTo(16999, 144827, -2989);
  Engine.MoveTo(17400, 145256, -3040);
  Engine.MoveTo(17738, 145445, -3040);
  Engine.MoveTo(18126, 145504, -3064);
  Engine.MoveTo(18376, 145080, -3056);
  delay(2111);
  Engine.SetTarget(30957);
  Engine.DlgOpen;
  delay(1111);
  Engine.DlgSel('квест');
  delay(1111);
  Engine.MoveTo(18108, 145515, -3075);
  Engine.MoveTo(17844, 146180, -3088);
  Engine.MoveTo(17656, 146568, -3088);
  Engine.MoveTo(17432, 146824, -3080);
  Engine.MoveTo(17432, 147000, -3088);
  Engine.MoveTo(17320, 147240, -3104);
  Engine.MoveTo(16870, 146969, -3088);
  Engine.MoveTo(16696, 146648, -3088);
  Engine.MoveTo(16834, 146217, -3088);
  Engine.MoveTo(16936, 145992, -3056);
  Engine.MoveTo(17032, 146056, -3064);
  Engine.SetTarget(30956);
  Engine.DlgOpen;
  delay(1111);
  Engine.DlgSel('квест');
  delay(1111);
  Engine.DlgSel('Мандолина Барда');
  Engine.MoveTo(16856, 146152, -3088);
  Engine.MoveTo(16810, 146517, -3088);
  Engine.MoveTo(16921, 146946, -3088);
  Engine.MoveTo(17254, 147172, -3092);
  Engine.MoveTo(17601, 147068, -3104);
  Engine.MoveTo(17871, 146412, -3074);
  Engine.MoveTo(18049, 145839, -3088);
  Engine.MoveTo(18274, 145314, -3056);
  Engine.MoveTo(18392, 145064, -3056);
  Engine.SetTarget(30957);
  Engine.DlgOpen;
  delay(1111);
  Engine.DlgSel('квест');
  delay(1111);
  Engine.BypassToServer ('Quest _362_BardsMandolin 30957-7.htm', true);
  delay(1111);
  end;
  end;
  end.

 

[HouseMD]

На этом сервере 1к награда по этому квесту.