Форум работает в тестовом режиме. Все данные были перенесены со старого сайта 2018 года. Некоторая информация может быть недоступна, например вложения или хайды. Просьба сообщать о данных случаях через функционал "Жалоба", прямо под постом, где отсуствуют данные из хайда или проблемы с вложением.
Могут быть проблемы в "выкидыванием" с форума (слетевшей авторизацией). Нужно собрать статистику таких случаев.
Есть Тема, куда можете сообщить о проблемах с сайтом либо просто передать привет.

Скрипт на спойл в лабиринтах.

A

Artesia

Рег
19 Май 2017
Сообщения
8
Реакции
0
uses SysUtils, Classes;
var Fight_Flag:Boolean;
Item: TL2Item;
obj: TL2Npc;
Npc: TL2Npc;
obj2: TL2Effect;
var L2Skill: TL2Skill;
Enemy: TL2Live;
var i, n: Integer;

////////////////////////////////////////////////////////////////////////

Begin // ГЛАВНЫЙ БЕГИН

Print('СТАРТУЮ СКРИПТ');
delay(555);
engine.loadconfig('Varnish');
Print('-============= ЗАГРУЗИЛ КОНФИГ Varnish');
delay(555);
engine.loadzone('Varnish');
delay(555);
Print('-============= ЗАГРУЗИЛ ЗОНУ Varnish');

////////////////////////////////////////////////////////////////////////
// старт фарма сразу с места !!!
////////////////////////////////////////////////////////////////////////

if user.inrange(123344, -111461, -2615,6000,1000)
then begin
Print('-=== Я НА МЕСТЕ НАЧИНАЮ ЕБАШИТЬ ');
delay(555);
Engine.FaceControl(0,true);
end;

/////////////////////////////////////////////////////////////////////////

begin // ЗАЦЫКЛЕННО ПО КРУГУ НА ЕТОМ БЕГИНЕ
// все что выше выполняется 1 раз при старте
while 1<>2 do begin

/////////////////////////////////////////////////////////////////////

if User.Dead // умер - бот офф, тп город пауза 20 сек
then begin
delay(500);
Print('Етого Пердуна постигла АНАЛЬНАЯ кара');
delay(500);
Engine.FaceControl(0,false);
delay(15000);
engine.restart;
Engine.delay(10000);
engine.GameStart(0);
delay(5555);
engine.loadconfig('Varnish');
Print('-============= ЗАГРУЗИЛ ПО НОВОЙ КОНФИГ Varnish');
delay(555);
engine.loadzone('Varnish');
delay(555);
Print('-============= ЗАГРУЗИЛ ПО НОВОЙ ЗОНУ Varnish');
delay(11111); // полежать чутка а то палевно моментально в город тп
Engine.gohome;
delay(20000);
end;

/////////////////////////////////////////////////////////////////////
// LABEL STT
/////////////////////////////////////////////////////////////////////

if User.inrange(87184,-140256,-1536, 250, 150) then begin
Engine.MoveTo(87184,-140256,-1536);
Engine.MoveTo(87368,-140838,-1512);
Engine.MoveTo(87319,-141796,-1338);
Engine.MoveTo(87145,-142916,-1313);
Engine.MoveTo(87070,-143418,-1290);
end;
if User.inrange(87408,-142304,-1336, 250, 150) then begin
Engine.MoveTo(87408,-142304,-1336);
Engine.MoveTo(87145,-142916,-1313);
Engine.MoveTo(87070,-143418,-1290);
end;
if User.inrange(88240,-142736,-1336, 250, 150) then begin
Engine.MoveTo(88240,-142736,-1336);
Engine.MoveTo(87585,-142662,-1338);
Engine.MoveTo(87070,-143418,-1290);
end;
if User.inrange(85056,-141328,-1528, 250, 150) then begin
Engine.MoveTo(85056,-141328,-1528);
Engine.MoveTo(85181,-141845,-1539);
Engine.MoveTo(85804,-142279,-1339);
Engine.MoveTo(87157,-142636,-1338);
Engine.MoveTo(87070,-143418,-1290);
end;
if User.inrange(88624,-142480,-1336, 250, 150) then begin
Engine.MoveTo(88624,-142480,-1336);
Engine.MoveTo(87548,-142686,-1331);
Engine.MoveTo(87070,-143418,-1290);
end;
if User.inrange(86400,-142672,-1336, 250, 150) then begin
Engine.MoveTo(86400,-142672,-1336);
Engine.MoveTo(87143,-142570,-1338);
Engine.MoveTo(87070,-143418,-1290);
end;
if User.inrange(86560,-140320,-1536, 250, 150) then begin
Engine.MoveTo(86560,-140320,-1536);
Engine.MoveTo(87300,-140655,-1539);
Engine.MoveTo(87385,-141436,-1339);
Engine.MoveTo(87246,-142537,-1338);
Engine.MoveTo(87070,-143418,-1290);
end;
if User.inrange(88448,-140512,-1536, 250, 150) then begin
Engine.MoveTo(88448,-140512,-1536);
Engine.MoveTo(87410,-140642,-1539);
Engine.MoveTo(87299,-141493,-1338);
Engine.MoveTo(87291,-142607,-1338);
Engine.MoveTo(87070,-143418,-1290);
end;
if User.inrange(89712,-141472,-1528, 250, 150) then begin
Engine.MoveTo(89712,-141472,-1528);
Engine.MoveTo(89497,-141893,-1539);
Engine.MoveTo(88963,-142272,-1339);
Engine.MoveTo(87737,-142631,-1338);
Engine.MoveTo(87070,-143418,-1290);
end;
if User.inrange(87344,-141696,-1336, 250, 150) then begin
Engine.MoveTo(87344,-141696,-1336);
Engine.MoveTo(87354,-142594,-1338);
Engine.MoveTo(87070,-143418,-1290);
end;
if User.inrange(85472,-140752,-1536, 250, 150) then begin
Engine.MoveTo(85472,-140752,-1536);
Engine.MoveTo(85191,-141803,-1539);
Engine.MoveTo(85909,-142322,-1338);
Engine.MoveTo(87096,-142671,-1338);
Engine.MoveTo(87070,-143418,-1290);
end;
if User.inrange(89360,-140944,-1536, 250, 150) then begin
Engine.MoveTo(89360,-140944,-1536);
Engine.MoveTo(89539,-141762,-1539);
Engine.MoveTo(88910,-142276,-1339);
Engine.MoveTo(87637,-142734,-1332);
Engine.MoveTo(87070,-143418,-1290);
end;
if User.inrange(87776,-140384,-1536, 250, 150) then begin
Engine.MoveTo(87776,-140384,-1536);
Engine.MoveTo(87403,-140707,-1539);
Engine.MoveTo(87351,-141645,-1338);
Engine.MoveTo(87310,-142568,-1338);
Engine.MoveTo(87070,-143418,-1290);
end;
if User.inrange(84720,-141936,-1536, 250, 150) then begin
Engine.MoveTo(84720,-141936,-1536);
Engine.MoveTo(85201,-141842,-1539);
Engine.MoveTo(85807,-142262,-1339);
Engine.MoveTo(87116,-142704,-1338);
Engine.MoveTo(87070,-143418,-1290);
end;
if User.inrange(85968,-142384,-1336, 250, 150) then begin
Engine.MoveTo(85968,-142384,-1336);
Engine.MoveTo(87116,-142704,-1338);
Engine.MoveTo(87070,-143418,-1290);
end;

//////////////////////////////////////////////////////////////////////////
// LABEL BUFF
/////////////////////////////////////////////////////////////////////////

if User.inrange(87070,-143418,-1290, 250, 150)
then
begin // с етим бегином сцепленно елсе!
Engine.MoveTo(147039, 25663, -2039);
engine.settarget(31360);
Engine.Delay(2333);
engine.dlgOpen();
Engine.Delay(2131);
Engine.DlgSel('Save/Load');
Engine.Delay(2531);
Engine.Bypasstoserver('custom_dobuff ProfBuffs 123',true);
delay(6333);
engine.dlgOpen();
Engine.Delay(2531);
Engine.Bypasstoserver('custom_dobuff RestoreAll',true);
Engine.Delay(2531);

////////////////////////////////////////////////////////////////////
//LABEL (TP --------)
////////////////////////////////////////////////////////////////////
Engine.MoveTo(87094, -143450, -1318);
delay(3333);
Engine.SetTarget(31964);
delay(3333);
Engine.DlgOpen();
delay(3333);
Engine.DlgSel(1);
delay(3333);
Engine.DlgSel(13); // Варка
delay(10000);

Engine.MoveTo(113855, -109294, -871);
Engine.MoveTo(114067, -109770, -883);
Engine.MoveTo(114928, -110934, -922);
Engine.MoveTo(115774, -112063, -1107);
Engine.MoveTo(116273, -112871, -1211);
Engine.MoveTo(116221, -114442, -1559);
Engine.MoveTo(116592, -115656, -1796);
Engine.MoveTo(117605, -116275, -2055);
Engine.MoveTo(119159, -116853, -2481);
Engine.MoveTo(121354, -118281, -2560);
Engine.MoveTo(122228, -118763, -2614);
Engine.MoveTo(123893, -117192, -2619);
Engine.MoveTo(124717, -116050, -2609);
Engine.MoveTo(125797, -116063, -2605);
Engine.MoveTo(125782, -115013, -2602);
Engine.MoveTo(125113, -113966, -2599);
Engine.MoveTo(124138, -112637, -2609);
Engine.MoveTo(123950, -111557, -2618);
Engine.MoveTo(122541, -111634, -2549);
Engine.MoveTo(123344, -111461, -2615);






////////////////////////////////////////////////////////////////////



//////////////////////////////////////////////////////////////////////////////
// LABEL FARM
//////////////////////////////////////////////////////////////////////////////

delay(555);
Engine.FaceControl(0,true);
delay(555);
Print('-=== ДОБЕЖАЛ ПОРА ЕБАШИТЬ ');

/////////////////////////////////////////////////////////////////////////////
end
else begin // если непришол в зону фарма то улечу в город
if not User.InRange(123344, -111461, -2615,6000,1000)
then begin
Engine.FaceControl(0,false);
delay(555);
Print('-=== БЛЯ ГДЕ Я ? ');
engine.entertext ('/unstuck');
delay(25000);
end;
delay(555);
end;
delay(555);
end;
delay(555);
end;
delay(555);
end.uses SysUtils, Classes;
var Fight_Flag:Boolean;
Item: TL2Item;
obj: TL2Npc;
Npc: TL2Npc;
obj2: TL2Effect;
var L2Skill: TL2Skill;
Enemy: TL2Live;
var i, n: Integer;

////////////////////////////////////////////////////////////////////////

Begin // ГЛАВНЫЙ БЕГИН

Print('СТАРТУЮ СКРИПТ');
delay(555);
engine.loadconfig('Varnish');
Print('-============= ЗАГРУЗИЛ КОНФИГ Varnish');
delay(555);
engine.loadzone('Varnish');
delay(555);
Print('-============= ЗАГРУЗИЛ ЗОНУ Varnish');

////////////////////////////////////////////////////////////////////////
// старт фарма сразу с места !!!
////////////////////////////////////////////////////////////////////////

if user.inrange(123344, -111461, -2615,6000,1000)
then begin
Print('-=== Я НА МЕСТЕ НАЧИНАЮ ЕБАШИТЬ ');
delay(555);
Engine.FaceControl(0,true);
end;

/////////////////////////////////////////////////////////////////////////

begin // ЗАЦЫКЛЕННО ПО КРУГУ НА ЕТОМ БЕГИНЕ
// все что выше выполняется 1 раз при старте
while 1<>2 do begin

/////////////////////////////////////////////////////////////////////

if User.Dead // умер - бот офф, тп город пауза 20 сек
then begin
delay(500);
Print('Етого Пердуна постигла АНАЛЬНАЯ кара');
delay(500);
Engine.FaceControl(0,false);
delay(15000);
engine.restart;
Engine.delay(10000);
engine.GameStart(0);
delay(5555);
engine.loadconfig('Varnish');
Print('-============= ЗАГРУЗИЛ ПО НОВОЙ КОНФИГ Varnish');
delay(555);
engine.loadzone('Varnish');
delay(555);
Print('-============= ЗАГРУЗИЛ ПО НОВОЙ ЗОНУ Varnish');
delay(11111); // полежать чутка а то палевно моментально в город тп
Engine.gohome;
delay(20000);
end;

/////////////////////////////////////////////////////////////////////
// LABEL STT
/////////////////////////////////////////////////////////////////////

if User.inrange(87184,-140256,-1536, 250, 150) then begin
Engine.MoveTo(87184,-140256,-1536);
Engine.MoveTo(87368,-140838,-1512);
Engine.MoveTo(87319,-141796,-1338);
Engine.MoveTo(87145,-142916,-1313);
Engine.MoveTo(87070,-143418,-1290);
end;
if User.inrange(87408,-142304,-1336, 250, 150) then begin
Engine.MoveTo(87408,-142304,-1336);
Engine.MoveTo(87145,-142916,-1313);
Engine.MoveTo(87070,-143418,-1290);
end;
if User.inrange(88240,-142736,-1336, 250, 150) then begin
Engine.MoveTo(88240,-142736,-1336);
Engine.MoveTo(87585,-142662,-1338);
Engine.MoveTo(87070,-143418,-1290);
end;
if User.inrange(85056,-141328,-1528, 250, 150) then begin
Engine.MoveTo(85056,-141328,-1528);
Engine.MoveTo(85181,-141845,-1539);
Engine.MoveTo(85804,-142279,-1339);
Engine.MoveTo(87157,-142636,-1338);
Engine.MoveTo(87070,-143418,-1290);
end;
if User.inrange(88624,-142480,-1336, 250, 150) then begin
Engine.MoveTo(88624,-142480,-1336);
Engine.MoveTo(87548,-142686,-1331);
Engine.MoveTo(87070,-143418,-1290);
end;
if User.inrange(86400,-142672,-1336, 250, 150) then begin
Engine.MoveTo(86400,-142672,-1336);
Engine.MoveTo(87143,-142570,-1338);
Engine.MoveTo(87070,-143418,-1290);
end;
if User.inrange(86560,-140320,-1536, 250, 150) then begin
Engine.MoveTo(86560,-140320,-1536);
Engine.MoveTo(87300,-140655,-1539);
Engine.MoveTo(87385,-141436,-1339);
Engine.MoveTo(87246,-142537,-1338);
Engine.MoveTo(87070,-143418,-1290);
end;
if User.inrange(88448,-140512,-1536, 250, 150) then begin
Engine.MoveTo(88448,-140512,-1536);
Engine.MoveTo(87410,-140642,-1539);
Engine.MoveTo(87299,-141493,-1338);
Engine.MoveTo(87291,-142607,-1338);
Engine.MoveTo(87070,-143418,-1290);
end;
if User.inrange(89712,-141472,-1528, 250, 150) then begin
Engine.MoveTo(89712,-141472,-1528);
Engine.MoveTo(89497,-141893,-1539);
Engine.MoveTo(88963,-142272,-1339);
Engine.MoveTo(87737,-142631,-1338);
Engine.MoveTo(87070,-143418,-1290);
end;
if User.inrange(87344,-141696,-1336, 250, 150) then begin
Engine.MoveTo(87344,-141696,-1336);
Engine.MoveTo(87354,-142594,-1338);
Engine.MoveTo(87070,-143418,-1290);
end;
if User.inrange(85472,-140752,-1536, 250, 150) then begin
Engine.MoveTo(85472,-140752,-1536);
Engine.MoveTo(85191,-141803,-1539);
Engine.MoveTo(85909,-142322,-1338);
Engine.MoveTo(87096,-142671,-1338);
Engine.MoveTo(87070,-143418,-1290);
end;
if User.inrange(89360,-140944,-1536, 250, 150) then begin
Engine.MoveTo(89360,-140944,-1536);
Engine.MoveTo(89539,-141762,-1539);
Engine.MoveTo(88910,-142276,-1339);
Engine.MoveTo(87637,-142734,-1332);
Engine.MoveTo(87070,-143418,-1290);
end;
if User.inrange(87776,-140384,-1536, 250, 150) then begin
Engine.MoveTo(87776,-140384,-1536);
Engine.MoveTo(87403,-140707,-1539);
Engine.MoveTo(87351,-141645,-1338);
Engine.MoveTo(87310,-142568,-1338);
Engine.MoveTo(87070,-143418,-1290);
end;
if User.inrange(84720,-141936,-1536, 250, 150) then begin
Engine.MoveTo(84720,-141936,-1536);
Engine.MoveTo(85201,-141842,-1539);
Engine.MoveTo(85807,-142262,-1339);
Engine.MoveTo(87116,-142704,-1338);
Engine.MoveTo(87070,-143418,-1290);
end;
if User.inrange(85968,-142384,-1336, 250, 150) then begin
Engine.MoveTo(85968,-142384,-1336);
Engine.MoveTo(87116,-142704,-1338);
Engine.MoveTo(87070,-143418,-1290);
end;

//////////////////////////////////////////////////////////////////////////
// LABEL BUFF
/////////////////////////////////////////////////////////////////////////

if User.inrange(87070,-143418,-1290, 250, 150)
then
begin // с етим бегином сцепленно елсе!
Engine.MoveTo(147039, 25663, -2039);
engine.settarget(31360);
Engine.Delay(2333);
engine.dlgOpen();
Engine.Delay(2131);
Engine.DlgSel('Save/Load');
Engine.Delay(2531);
Engine.Bypasstoserver('custom_dobuff ProfBuffs 123',true);
delay(6333);
engine.dlgOpen();
Engine.Delay(2531);
Engine.Bypasstoserver('custom_dobuff RestoreAll',true);
Engine.Delay(2531);

////////////////////////////////////////////////////////////////////
//LABEL (TP --------)
////////////////////////////////////////////////////////////////////
Engine.MoveTo(87094, -143450, -1318);
delay(3333);
Engine.SetTarget(31964);
delay(3333);
Engine.DlgOpen();
delay(3333);
Engine.DlgSel(1);
delay(3333);
Engine.DlgSel(13); // Варка
delay(10000);

Engine.MoveTo(113855, -109294, -871);
Engine.MoveTo(114067, -109770, -883);
Engine.MoveTo(114928, -110934, -922);
Engine.MoveTo(115774, -112063, -1107);
Engine.MoveTo(116273, -112871, -1211);
Engine.MoveTo(116221, -114442, -1559);
Engine.MoveTo(116592, -115656, -1796);
Engine.MoveTo(117605, -116275, -2055);
Engine.MoveTo(119159, -116853, -2481);
Engine.MoveTo(121354, -118281, -2560);
Engine.MoveTo(122228, -118763, -2614);
Engine.MoveTo(123893, -117192, -2619);
Engine.MoveTo(124717, -116050, -2609);
Engine.MoveTo(125797, -116063, -2605);
Engine.MoveTo(125782, -115013, -2602);
Engine.MoveTo(125113, -113966, -2599);
Engine.MoveTo(124138, -112637, -2609);
Engine.MoveTo(123950, -111557, -2618);
Engine.MoveTo(122541, -111634, -2549);
Engine.MoveTo(123344, -111461, -2615);






////////////////////////////////////////////////////////////////////



//////////////////////////////////////////////////////////////////////////////
// LABEL FARM
//////////////////////////////////////////////////////////////////////////////

delay(555);
Engine.FaceControl(0,true);
delay(555);
Print('-=== ДОБЕЖАЛ ПОРА ЕБАШИТЬ ');

/////////////////////////////////////////////////////////////////////////////
end
else begin // если непришол в зону фарма то улечу в город
if not User.InRange(123344, -111461, -2615,6000,1000)
then begin
Engine.FaceControl(0,false);
delay(555);
Print('-=== БЛЯ ГДЕ Я ? ');
engine.entertext ('/unstuck');
delay(25000);
end;
delay(555);
end;
delay(555);
end;
delay(555);
end;
delay(555);
end.uses SysUtils, Classes;
var Fight_Flag:Boolean;
Item: TL2Item;
obj: TL2Npc;
Npc: TL2Npc;
obj2: TL2Effect;
var L2Skill: TL2Skill;
Enemy: TL2Live;
var i, n: Integer;

////////////////////////////////////////////////////////////////////////

Begin // ГЛАВНЫЙ БЕГИН

Print('СТАРТУЮ СКРИПТ');
delay(555);
engine.loadconfig('Varnish');
Print('-============= ЗАГРУЗИЛ КОНФИГ Varnish');
delay(555);
engine.loadzone('Varnish');
delay(555);
Print('-============= ЗАГРУЗИЛ ЗОНУ Varnish');

////////////////////////////////////////////////////////////////////////
// старт фарма сразу с места !!!
////////////////////////////////////////////////////////////////////////

if user.inrange(123344, -111461, -2615,6000,1000)
then begin
Print('-=== Я НА МЕСТЕ НАЧИНАЮ ЕБАШИТЬ ');
delay(555);
Engine.FaceControl(0,true);
end;

/////////////////////////////////////////////////////////////////////////

begin // ЗАЦЫКЛЕННО ПО КРУГУ НА ЕТОМ БЕГИНЕ
// все что выше выполняется 1 раз при старте
while 1<>2 do begin

/////////////////////////////////////////////////////////////////////

if User.Dead // умер - бот офф, тп город пауза 20 сек
then begin
delay(500);
Print('Етого Пердуна постигла АНАЛЬНАЯ кара');
delay(500);
Engine.FaceControl(0,false);
delay(15000);
engine.restart;
Engine.delay(10000);
engine.GameStart(0);
delay(5555);
engine.loadconfig('Varnish');
Print('-============= ЗАГРУЗИЛ ПО НОВОЙ КОНФИГ Varnish');
delay(555);
engine.loadzone('Varnish');
delay(555);
Print('-============= ЗАГРУЗИЛ ПО НОВОЙ ЗОНУ Varnish');
delay(11111); // полежать чутка а то палевно моментально в город тп
Engine.gohome;
delay(20000);
end;

/////////////////////////////////////////////////////////////////////
// LABEL STT
/////////////////////////////////////////////////////////////////////

if User.inrange(87184,-140256,-1536, 250, 150) then begin
Engine.MoveTo(87184,-140256,-1536);
Engine.MoveTo(87368,-140838,-1512);
Engine.MoveTo(87319,-141796,-1338);
Engine.MoveTo(87145,-142916,-1313);
Engine.MoveTo(87070,-143418,-1290);
end;
if User.inrange(87408,-142304,-1336, 250, 150) then begin
Engine.MoveTo(87408,-142304,-1336);
Engine.MoveTo(87145,-142916,-1313);
Engine.MoveTo(87070,-143418,-1290);
end;
if User.inrange(88240,-142736,-1336, 250, 150) then begin
Engine.MoveTo(88240,-142736,-1336);
Engine.MoveTo(87585,-142662,-1338);
Engine.MoveTo(87070,-143418,-1290);
end;
if User.inrange(85056,-141328,-1528, 250, 150) then begin
Engine.MoveTo(85056,-141328,-1528);
Engine.MoveTo(85181,-141845,-1539);
Engine.MoveTo(85804,-142279,-1339);
Engine.MoveTo(87157,-142636,-1338);
Engine.MoveTo(87070,-143418,-1290);
end;
if User.inrange(88624,-142480,-1336, 250, 150) then begin
Engine.MoveTo(88624,-142480,-1336);
Engine.MoveTo(87548,-142686,-1331);
Engine.MoveTo(87070,-143418,-1290);
end;
if User.inrange(86400,-142672,-1336, 250, 150) then begin
Engine.MoveTo(86400,-142672,-1336);
Engine.MoveTo(87143,-142570,-1338);
Engine.MoveTo(87070,-143418,-1290);
end;
if User.inrange(86560,-140320,-1536, 250, 150) then begin
Engine.MoveTo(86560,-140320,-1536);
Engine.MoveTo(87300,-140655,-1539);
Engine.MoveTo(87385,-141436,-1339);
Engine.MoveTo(87246,-142537,-1338);
Engine.MoveTo(87070,-143418,-1290);
end;
if User.inrange(88448,-140512,-1536, 250, 150) then begin
Engine.MoveTo(88448,-140512,-1536);
Engine.MoveTo(87410,-140642,-1539);
Engine.MoveTo(87299,-141493,-1338);
Engine.MoveTo(87291,-142607,-1338);
Engine.MoveTo(87070,-143418,-1290);
end;
if User.inrange(89712,-141472,-1528, 250, 150) then begin
Engine.MoveTo(89712,-141472,-1528);
Engine.MoveTo(89497,-141893,-1539);
Engine.MoveTo(88963,-142272,-1339);
Engine.MoveTo(87737,-142631,-1338);
Engine.MoveTo(87070,-143418,-1290);
end;
if User.inrange(87344,-141696,-1336, 250, 150) then begin
Engine.MoveTo(87344,-141696,-1336);
Engine.MoveTo(87354,-142594,-1338);
Engine.MoveTo(87070,-143418,-1290);
end;
if User.inrange(85472,-140752,-1536, 250, 150) then begin
Engine.MoveTo(85472,-140752,-1536);
Engine.MoveTo(85191,-141803,-1539);
Engine.MoveTo(85909,-142322,-1338);
Engine.MoveTo(87096,-142671,-1338);
Engine.MoveTo(87070,-143418,-1290);
end;
if User.inrange(89360,-140944,-1536, 250, 150) then begin
Engine.MoveTo(89360,-140944,-1536);
Engine.MoveTo(89539,-141762,-1539);
Engine.MoveTo(88910,-142276,-1339);
Engine.MoveTo(87637,-142734,-1332);
Engine.MoveTo(87070,-143418,-1290);
end;
if User.inrange(87776,-140384,-1536, 250, 150) then begin
Engine.MoveTo(87776,-140384,-1536);
Engine.MoveTo(87403,-140707,-1539);
Engine.MoveTo(87351,-141645,-1338);
Engine.MoveTo(87310,-142568,-1338);
Engine.MoveTo(87070,-143418,-1290);
end;
if User.inrange(84720,-141936,-1536, 250, 150) then begin
Engine.MoveTo(84720,-141936,-1536);
Engine.MoveTo(85201,-141842,-1539);
Engine.MoveTo(85807,-142262,-1339);
Engine.MoveTo(87116,-142704,-1338);
Engine.MoveTo(87070,-143418,-1290);
end;
if User.inrange(85968,-142384,-1336, 250, 150) then begin
Engine.MoveTo(85968,-142384,-1336);
Engine.MoveTo(87116,-142704,-1338);
Engine.MoveTo(87070,-143418,-1290);
end;

//////////////////////////////////////////////////////////////////////////
// LABEL BUFF
/////////////////////////////////////////////////////////////////////////

if User.inrange(87070,-143418,-1290, 250, 150)
then
begin // с етим бегином сцепленно елсе!
Engine.MoveTo(147039, 25663, -2039);
engine.settarget(31360);
Engine.Delay(2333);
engine.dlgOpen();
Engine.Delay(2131);
Engine.DlgSel('Save/Load');
Engine.Delay(2531);
Engine.Bypasstoserver('custom_dobuff ProfBuffs 123',true);
delay(6333);
engine.dlgOpen();
Engine.Delay(2531);
Engine.Bypasstoserver('custom_dobuff RestoreAll',true);
Engine.Delay(2531);

////////////////////////////////////////////////////////////////////
//LABEL (TP --------)
////////////////////////////////////////////////////////////////////
Engine.MoveTo(87094, -143450, -1318);
delay(3333);
Engine.SetTarget(31964);
delay(3333);
Engine.DlgOpen();
delay(3333);
Engine.DlgSel(1);
delay(3333);
Engine.DlgSel(13); // Варка
delay(10000);

Engine.MoveTo(113855, -109294, -871);
Engine.MoveTo(114067, -109770, -883);
Engine.MoveTo(114928, -110934, -922);
Engine.MoveTo(115774, -112063, -1107);
Engine.MoveTo(116273, -112871, -1211);
Engine.MoveTo(116221, -114442, -1559);
Engine.MoveTo(116592, -115656, -1796);
Engine.MoveTo(117605, -116275, -2055);
Engine.MoveTo(119159, -116853, -2481);
Engine.MoveTo(121354, -118281, -2560);
Engine.MoveTo(122228, -118763, -2614);
Engine.MoveTo(123893, -117192, -2619);
Engine.MoveTo(124717, -116050, -2609);
Engine.MoveTo(125797, -116063, -2605);
Engine.MoveTo(125782, -115013, -2602);
Engine.MoveTo(125113, -113966, -2599);
Engine.MoveTo(124138, -112637, -2609);
Engine.MoveTo(123950, -111557, -2618);
Engine.MoveTo(122541, -111634, -2549);
Engine.MoveTo(123344, -111461, -2615);






////////////////////////////////////////////////////////////////////



//////////////////////////////////////////////////////////////////////////////
// LABEL FARM
//////////////////////////////////////////////////////////////////////////////

delay(555);
Engine.FaceControl(0,true);
delay(555);
Print('-=== ДОБЕЖАЛ ПОРА ЕБАШИТЬ ');

/////////////////////////////////////////////////////////////////////////////
end
else begin // если непришол в зону фарма то улечу в город
if not User.InRange(123344, -111461, -2615,6000,1000)
then begin
Engine.FaceControl(0,false);
delay(555);
Print('-=== БЛЯ ГДЕ Я ? ');
engine.entertext ('/unstuck');
delay(25000);
end;
delay(555);
end;
delay(555);
end;
delay(555);
end;
delay(555);
end.
 
Делал под Дрим, через свитки ТП по городам

var obj: TL2NPC;
obj2: TL2Effect;

Enemy: TL2Live;
Begin
while 1<>2 do begin
if User.Dead then
begin
Engine.FaceControl(0,false);
Engine.gohome;
delay(3000);
Engine.UseItem(7135);
delay(15000);
Engine.MoveTo(87121, -143447, -1287);

end;
if user.inrange(87121, -143447, -1287,250,150) then begin
delay(5000);
engine.settarget(31360);
delay(1000);
engine.dlgopen();
delay(1000);
engine.dlgsel(13);
delay(2000);
engine.settarget(31964);
delay(1000);
engine.dlgopen();
delay(1000);
engine.dlgsel(1);
delay(1000);
engine.dlgsel(13);
delay(5000);
end;

if user.inrange(113883, -108733, -843,250,150) then begin
Engine.MoveTo(116056, -107903, -864);
Engine.MoveTo(117870, -107619, -1070);
Engine.MoveTo(118914, -107079, -1180);
Engine.MoveTo(119226, -105853, -1474);
Engine.MoveTo(120449, -105155, -2001);
Engine.MoveTo(121802, -106137, -2193);
Engine.MoveTo(123090, -105950, -2614);
Engine.MoveTo(123309, -104153, -2708);
Engine.MoveTo(124124, -103529, -2679);
Engine.MoveTo(124764, -104251, -2679);
Engine.MoveTo(125234, -105751, -2767);
Engine.MoveTo(126251, -106138, -2767);
Engine.MoveTo(127523, -106431, -2767);
end;

if user.inrange(127523, -106431, -2767,250,150) then begin
Engine.FaceControl(0,true);
end;
end;
delay(550);
end.
 
@Artesia, Я пока дочитал думал глаза поломаю !Прикольно конечно ,но зачем так много ?Неужели нельзя все отдельными процедурами вынести ?
 
СКРИПТ НА КБП
uses SysUtils, Classes;
var Fight_Flag:Boolean;
Item: TL2Item;
obj: TL2Npc;
Npc: TL2Npc;
obj2: TL2Effect;
var L2Skill: TL2Skill;
Enemy: TL2Live;
var i, n: Integer;

////////////////////////////////////////////////////////////////////////

Begin // ГЛАВНЫЙ БЕГИН

Print('СТАРТУЮ СКРИПТ');
delay(555);
engine.loadconfig('CBP');
Print('-============= ЗАГРУЗИЛ КОНФИГ CBP');
delay(555);
engine.loadzone('CBP');
delay(555);
Print('-============= ЗАГРУЗИЛ ЗОНУ CBP');

////////////////////////////////////////////////////////////////////////
// старт фарма сразу с места !!!
////////////////////////////////////////////////////////////////////////

if user.inrange(110685, -100723, -3671,6000,1000)
then begin
Print('-=== Я НА МЕСТЕ НАЧИНАЮ ЕБАШИТЬ ');
delay(555);
Engine.FaceControl(0,true);
end;

/////////////////////////////////////////////////////////////////////////

begin // ЗАЦЫКЛЕННО ПО КРУГУ НА ЕТОМ БЕГИНЕ
// все что выше выполняется 1 раз при старте
while 1<>2 do begin

/////////////////////////////////////////////////////////////////////

if User.Dead // умер - бот офф, тп город пауза 20 сек
then begin
delay(500);
Print('Етого Пердуна постигла АНАЛЬНАЯ кара');
delay(500);
Engine.FaceControl(0,false);
delay(15000);
engine.restart;
Engine.delay(10000);
engine.GameStart(0);
delay(5555);
engine.loadconfig('CBP');
Print('-============= ЗАГРУЗИЛ ПО НОВОЙ КОНФИГ CBP');
delay(555);
engine.loadzone('CBP');
delay(555);
Print('-============= ЗАГРУЗИЛ ПО НОВОЙ ЗОНУ CBP');
delay(11111); // полежать чутка а то палевно моментально в город тп
Engine.gohome;
delay(20000);
end;

/////////////////////////////////////////////////////////////////////
// LABEL STT
/////////////////////////////////////////////////////////////////////

if User.inrange(87184,-140256,-1536, 250, 150) then begin
Engine.MoveTo(87184,-140256,-1536);
Engine.MoveTo(87368,-140838,-1512);
Engine.MoveTo(87319,-141796,-1338);
Engine.MoveTo(87145,-142916,-1313);
Engine.MoveTo(87070,-143418,-1290);
end;
if User.inrange(87408,-142304,-1336, 250, 150) then begin
Engine.MoveTo(87408,-142304,-1336);
Engine.MoveTo(87145,-142916,-1313);
Engine.MoveTo(87070,-143418,-1290);
end;
if User.inrange(88240,-142736,-1336, 250, 150) then begin
Engine.MoveTo(88240,-142736,-1336);
Engine.MoveTo(87585,-142662,-1338);
Engine.MoveTo(87070,-143418,-1290);
end;
if User.inrange(85056,-141328,-1528, 250, 150) then begin
Engine.MoveTo(85056,-141328,-1528);
Engine.MoveTo(85181,-141845,-1539);
Engine.MoveTo(85804,-142279,-1339);
Engine.MoveTo(87157,-142636,-1338);
Engine.MoveTo(87070,-143418,-1290);
end;
if User.inrange(88624,-142480,-1336, 250, 150) then begin
Engine.MoveTo(88624,-142480,-1336);
Engine.MoveTo(87548,-142686,-1331);
Engine.MoveTo(87070,-143418,-1290);
end;
if User.inrange(86400,-142672,-1336, 250, 150) then begin
Engine.MoveTo(86400,-142672,-1336);
Engine.MoveTo(87143,-142570,-1338);
Engine.MoveTo(87070,-143418,-1290);
end;
if User.inrange(86560,-140320,-1536, 250, 150) then begin
Engine.MoveTo(86560,-140320,-1536);
Engine.MoveTo(87300,-140655,-1539);
Engine.MoveTo(87385,-141436,-1339);
Engine.MoveTo(87246,-142537,-1338);
Engine.MoveTo(87070,-143418,-1290);
end;
if User.inrange(88448,-140512,-1536, 250, 150) then begin
Engine.MoveTo(88448,-140512,-1536);
Engine.MoveTo(87410,-140642,-1539);
Engine.MoveTo(87299,-141493,-1338);
Engine.MoveTo(87291,-142607,-1338);
Engine.MoveTo(87070,-143418,-1290);
end;
if User.inrange(89712,-141472,-1528, 250, 150) then begin
Engine.MoveTo(89712,-141472,-1528);
Engine.MoveTo(89497,-141893,-1539);
Engine.MoveTo(88963,-142272,-1339);
Engine.MoveTo(87737,-142631,-1338);
Engine.MoveTo(87070,-143418,-1290);
end;
if User.inrange(87344,-141696,-1336, 250, 150) then begin
Engine.MoveTo(87344,-141696,-1336);
Engine.MoveTo(87354,-142594,-1338);
Engine.MoveTo(87070,-143418,-1290);
end;
if User.inrange(85472,-140752,-1536, 250, 150) then begin
Engine.MoveTo(85472,-140752,-1536);
Engine.MoveTo(85191,-141803,-1539);
Engine.MoveTo(85909,-142322,-1338);
Engine.MoveTo(87096,-142671,-1338);
Engine.MoveTo(87070,-143418,-1290);
end;
if User.inrange(89360,-140944,-1536, 250, 150) then begin
Engine.MoveTo(89360,-140944,-1536);
Engine.MoveTo(89539,-141762,-1539);
Engine.MoveTo(88910,-142276,-1339);
Engine.MoveTo(87637,-142734,-1332);
Engine.MoveTo(87070,-143418,-1290);
end;
if User.inrange(87776,-140384,-1536, 250, 150) then begin
Engine.MoveTo(87776,-140384,-1536);
Engine.MoveTo(87403,-140707,-1539);
Engine.MoveTo(87351,-141645,-1338);
Engine.MoveTo(87310,-142568,-1338);
Engine.MoveTo(87070,-143418,-1290);
end;
if User.inrange(84720,-141936,-1536, 250, 150) then begin
Engine.MoveTo(84720,-141936,-1536);
Engine.MoveTo(85201,-141842,-1539);
Engine.MoveTo(85807,-142262,-1339);
Engine.MoveTo(87116,-142704,-1338);
Engine.MoveTo(87070,-143418,-1290);
end;
if User.inrange(85968,-142384,-1336, 250, 150) then begin
Engine.MoveTo(85968,-142384,-1336);
Engine.MoveTo(87116,-142704,-1338);
Engine.MoveTo(87070,-143418,-1290);
end;

//////////////////////////////////////////////////////////////////////////
// LABEL BUFF
/////////////////////////////////////////////////////////////////////////

if User.inrange(87070,-143418,-1290, 250, 150)
then
begin // с етим бегином сцепленно елсе!
Engine.MoveTo(147039, 25663, -2039);
engine.settarget(31360);
Engine.Delay(2333);
engine.dlgOpen();
Engine.Delay(2131);
Engine.DlgSel('Save/Load');
Engine.Delay(2531);
Engine.Bypasstoserver('custom_dobuff ProfBuffs 123',true);
delay(6333);
engine.dlgOpen();
Engine.Delay(2531);
Engine.Bypasstoserver('custom_dobuff RestoreAll',true);
Engine.Delay(2531);

////////////////////////////////////////////////////////////////////
//LABEL (TP --------)
////////////////////////////////////////////////////////////////////
Engine.MoveTo(87094, -143450, -1318);
delay(3333);
Engine.SetTarget(31964);
delay(3333);
Engine.DlgOpen();
delay(3333);
Engine.DlgSel(1);
delay(3333);
Engine.DlgSel(13); // Варка
delay(10000);

Engine.MoveTo(113908, -108735, -843);
Engine.MoveTo(112448, -108401, -896);
Engine.MoveTo(111812, -107816, -1065);
Engine.MoveTo(110918, -106928, -1637);
Engine.MoveTo(110242, -106224, -2044);
Engine.MoveTo(109872, -105591, -2323);
Engine.MoveTo(109653, -104719, -2691);
Engine.MoveTo(109398, -103357, -3179);
Engine.MoveTo(108898, -101309, -3559);
Engine.MoveTo(109959, -100824, -3658);
Engine.MoveTo(110685, -100723, -3671);





////////////////////////////////////////////////////////////////////



//////////////////////////////////////////////////////////////////////////////
// LABEL FARM
//////////////////////////////////////////////////////////////////////////////

delay(555);
Engine.FaceControl(0,true);
delay(555);
Print('-=== ДОБЕЖАЛ ПОРА ЕБАШИТЬ ');

/////////////////////////////////////////////////////////////////////////////
end
else begin // если непришол в зону фарма то улечу в город
if not User.InRange(110685, -100723, -3671,6000,1000)
then begin
Engine.FaceControl(0,false);
delay(555);
Print('-=== БЛЯ ГДЕ Я ? ');
engine.entertext ('/unstuck');
delay(25000);
end;
delay(555);
end;
delay(555);
end;
delay(555);
end;
delay(555);
end.
 
@Lannar, Ну сорян. я готовый выложил. мб кто то подредактирует под себя. но у меня все хорошо работает.
 
Спойл КОАЛ
uses SysUtils, Classes;
var Fight_Flag:Boolean;
Item: TL2Item;
obj: TL2Npc;
Npc: TL2Npc;
obj2: TL2Effect;
var L2Skill: TL2Skill;
Enemy: TL2Live;
var i, n: Integer;

////////////////////////////////////////////////////////////////////////

Begin // ГЛАВНЫЙ БЕГИН

Print('СТАРТУЮ СКРИПТ');
delay(555);
engine.loadconfig('COAL');
Print('-============= ЗАГРУЗИЛ КОНФИГ COAL');
delay(555);
engine.loadzone('COAL1');
delay(555);
Print('-============= ЗАГРУЗИЛ ЗОНУ COAL1');

////////////////////////////////////////////////////////////////////////
// старт фарма сразу с места !!!
////////////////////////////////////////////////////////////////////////

if user.inrange(-43920, -247543, -7935,6000,1000)
then begin
Print('-=== Я НА МЕСТЕ НАЧИНАЮ ЕБАШИТЬ ');
delay(555);
Engine.FaceControl(0,true);
end;

/////////////////////////////////////////////////////////////////////////

begin // ЗАЦЫКЛЕННО ПО КРУГУ НА ЕТОМ БЕГИНЕ
// все что выше выполняется 1 раз при старте
while 1<>2 do begin

/////////////////////////////////////////////////////////////////////

if User.Dead // умер - бот офф, тп город пауза 20 сек
then begin
delay(500);
Print('Етого Пердуна постигла АНАЛЬНАЯ кара');
delay(500);
Engine.FaceControl(0,false);
delay(15000);
engine.restart;
Engine.delay(10000);
engine.GameStart(0);
delay(5555);
engine.loadconfig('COAL');
Print('-============= ЗАГРУЗИЛ ПО НОВОЙ КОНФИГ COAL');
delay(555);
engine.loadzone('COAL1');
delay(555);
Print('-============= ЗАГРУЗИЛ ПО НОВОЙ ЗОНУ COAL1');
delay(11111); // полежать чутка а то палевно моментально в город тп
Engine.gohome;
delay(20000);
end;

/////////////////////////////////////////////////////////////////////
// LABEL STT
/////////////////////////////////////////////////////////////////////

if User.inrange(19134,144847,-3096, 250, 150) then begin
Engine.MoveTo(19134,144847,-3096);
Engine.MoveTo(18041,144052,-3057);
Engine.MoveTo(16727,144111,-2980);
Engine.MoveTo(15933,143331,-2771);
Engine.MoveTo(15628,142920,-2704);
end;
if User.inrange(18954,144428,-3096, 250, 150) then begin
Engine.MoveTo(18954,144428,-3096);
Engine.MoveTo(18600,144387,-3070);
Engine.MoveTo(17733,143924,-3037);
Engine.MoveTo(16711,144167,-2980);
Engine.MoveTo(16622,144034,-2932);
Engine.MoveTo(15963,143381,-2784);
Engine.MoveTo(15628,142920,-2704);
end;
if User.inrange(19012,145140,-3120, 250, 150) then begin
Engine.MoveTo(19012,145140,-3120);
Engine.MoveTo(19021,145126,-3123);
Engine.MoveTo(17600,145497,-3079);
Engine.MoveTo(16468,144129,-2964);
Engine.MoveTo(15628,142920,-2704);
end;
if User.inrange(19613,145607,-3104, 250, 150) then begin
Engine.MoveTo(19613,145607,-3104);
Engine.MoveTo(17638,145591,-3084);
Engine.MoveTo(16214,143659,-2863);
Engine.MoveTo(15628,142920,-2704);
end;
if User.inrange(18576,145136,-3104, 250, 150) then begin
Engine.MoveTo(18576,145136,-3104);
Engine.MoveTo(17727,145541,-3082);
Engine.MoveTo(16414,144174,-2969);
Engine.MoveTo(15628,142920,-2704);
end;
if User.inrange(17398,145456,-3048, 250, 150) then begin
Engine.MoveTo(17398,145456,-3048);
Engine.MoveTo(17727,145541,-3082);
Engine.MoveTo(16414,144174,-2969);
Engine.MoveTo(15628,142920,-2704);
end;
if User.inrange(17144,145055,-3024, 250, 150) then begin
Engine.MoveTo(17144,145055,-3024);
Engine.MoveTo(16350,143905,-2923);
Engine.MoveTo(15628,142920,-2704);
end;
if User.inrange(18078,145925,-3112, 250, 150) then begin
Engine.MoveTo(18078,145925,-3112);
Engine.MoveTo(16559,144353,-2987);
Engine.MoveTo(15628,142920,-2704);
end;
if User.inrange(19150,143941,-3056, 250, 150) then begin
Engine.MoveTo(19150,143941,-3056);
Engine.MoveTo(18112,145633,-3104);
Engine.MoveTo(17108,145059,-3031);
Engine.MoveTo(16469,144176,-2969);
Engine.MoveTo(15628,142920,-2704);
end;
if User.inrange(18512,145536,-3120, 250, 150) then begin
Engine.MoveTo(18512,145536,-3120);
Engine.MoveTo(17226,145360,-3048);
Engine.MoveTo(16419,143955,-2935);
Engine.MoveTo(15628,142920,-2704);
end;
if User.inrange(18717,145711,-3080, 250, 150) then begin
Engine.MoveTo(18717,145711,-3080);
Engine.MoveTo(17226,145360,-3048);
Engine.MoveTo(16419,143955,-2935);
Engine.MoveTo(15628,142920,-2704);
end;

//////////////////////////////////////////////////////////////////////////
// LABEL BUFF
/////////////////////////////////////////////////////////////////////////

if User.inrange(15628,142920,-2704, 250, 150)
then
begin // с етим бегином сцепленно елсе!
Engine.MoveTo(15788, 142889, -2732);
engine.settarget(31360);
Engine.Delay(2333);
engine.dlgOpen();
Engine.Delay(2131);
Engine.DlgSel('Save/Load');
Engine.Delay(2531);
Engine.Bypasstoserver('custom_dobuff ProfBuffs 123',true);
delay(6333);
engine.dlgOpen();
Engine.Delay(2531);
Engine.Bypasstoserver('custom_dobuff RestoreAll',true);
Engine.Delay(2531);


Engine.MoveTo(15635, 142797, -2732);
delay(3333);
Engine.SetTarget(31031);
delay(3333);
Engine.DlgOpen();
delay(3333);
Engine.DlgSel(21);
delay(10000);

Engine.MoveTo(-52849, -250017, -7933);
Engine.MoveTo(-52791, -249393, -7935);
Engine.MoveTo(-51271, -249369, -7935);
Engine.MoveTo(-51037, -248652, -7929);
Engine.MoveTo(-50945, -247447, -7935);
Engine.MoveTo(-50648, -247412, -7935);
Engine.MoveTo(-50657, -246341, -7932);
Engine.MoveTo(-49758, -246456, -7935);
Engine.MoveTo(-49670, -246952, -7935);
Engine.MoveTo(-48681, -247038, -7935);
Engine.MoveTo(-48651, -248075, -7935);
Engine.MoveTo(-49723, -248076, -7935);
Engine.MoveTo(-49302, -249432, -7935);
Engine.MoveTo(-48219, -249417, -7935);
Engine.MoveTo(-48210, -250257, -7933);
Engine.MoveTo(-47110, -250230, -7933);
Engine.MoveTo(-47149, -249542, -7935);
Engine.MoveTo(-47111, -248885, -7933);
Engine.MoveTo(-46641, -248526, -7933);
Engine.MoveTo(-46633, -247059, -7935);
Engine.MoveTo(-45474, -247042, -7935);
Engine.MoveTo(-44803, -247194, -7933);
Engine.MoveTo(-43920, -247543, -7935);




////////////////////////////////////////////////////////////////////



//////////////////////////////////////////////////////////////////////////////
// LABEL FARM
//////////////////////////////////////////////////////////////////////////////

delay(555);
Engine.FaceControl(0,true);
delay(555);
Print('-=== ДОБЕЖАЛ ПОРА ЕБАШИТЬ ');

/////////////////////////////////////////////////////////////////////////////
end
else begin // если непришол в зону фарма то улечу в город
if not User.InRange(-43920, -247543, -7935,6000,1000)
then begin
Engine.FaceControl(0,false);
delay(555);
Print('-=== БЛЯ ГДЕ Я ? ');
engine.entertext ('/unstuck');
delay(25000);
end;
delay(555);
end;
delay(555);
end;
delay(555);
end;
delay(555);
end.
 
Скрипт на спойл СТИЛ

uses SysUtils, Classes;
var Fight_Flag:Boolean;
Item: TL2Item;
obj: TL2Npc;
Npc: TL2Npc;
obj2: TL2Effect;
var L2Skill: TL2Skill;
Enemy: TL2Live;
var i, n: Integer;

////////////////////////////////////////////////////////////////////////

Begin // ГЛАВНЫЙ БЕГИН

Print('СТАРТУЮ СКРИПТ');
delay(555);
engine.loadconfig('STEEL1');
Print('-============= ЗАГРУЗИЛ КОНФИГ STEEL1');
delay(555);
engine.loadzone('STEEL1');
delay(555);
Print('-============= ЗАГРУЗИЛ ЗОНУ STEEL1');

////////////////////////////////////////////////////////////////////////
// старт фарма сразу с места !!!
////////////////////////////////////////////////////////////////////////

if user.inrange(136892, 4030, -4551,6000,1000)
then begin
Print('-=== Я НА МЕСТЕ НАЧИНАЮ ЕБАШИТЬ ');
delay(555);
Engine.FaceControl(0,true);
end;

/////////////////////////////////////////////////////////////////////////

begin // ЗАЦЫКЛЕННО ПО КРУГУ НА ЕТОМ БЕГИНЕ
// все что выше выполняется 1 раз при старте
while 1<>2 do begin

/////////////////////////////////////////////////////////////////////

if User.Dead // умер - бот офф, тп город пауза 20 сек
then begin
delay(500);
Print('Етого Пердуна постигла АНАЛЬНАЯ кара');
delay(500);
Engine.FaceControl(0,false);
//delay(15000);
//engine.restart;
//Engine.delay(10000);
//engine.GameStart(0);
//delay(5555);
//engine.loadconfig('STEEL1');
//Print('-============= ЗАГРУЗИЛ ПО НОВОЙ КОНФИГ STEEL1');
//delay(555);
//engine.loadzone('STEEL1');
//delay(555);
//Print('-============= ЗАГРУЗИЛ ПО НОВОЙ ЗОНУ STEEL1');
delay(11111); // полежать чутка а то палевно моментально в город тп
Engine.gohome;
delay(20000);
end;

/////////////////////////////////////////////////////////////////////
// LABEL ADEN
/////////////////////////////////////////////////////////////////////

if user.INRANGE(149787, 24026, -2162,200,300) then begin
Engine.MoveTo(148827, 24255, -2050);
Engine.MoveTo(148476, 24637, -2039);
Engine.MoveTo(148456, 25699, -2039);
Engine.MoveTo(147634, 25763, -2039);
Engine.MoveTo(146760, 25774, -2039); // у гк
end;

if user.INRANGE(145011, 24100, -2162,200,300) then begin
Engine.MoveTo(146102, 24270, -2052);
Engine.MoveTo(146448, 24672, -2039);
Engine.MoveTo(146472, 25743, -2039);
Engine.MoveTo(146760, 25774, -2039); // у гк
end;

if user.INRANGE(148578, 25793, -2034,200,300) then begin
Engine.MoveTo(146760, 25774, -2039); // у гк
end;

if user.INRANGE(146354, 25232, -2034,200,300) then begin
Engine.MoveTo(146541, 25730, -2039);
Engine.MoveTo(146760, 25774, -2039); // у гк
end;

if user.INRANGE(147381, 25979, -2007,200,300) then begin
Engine.MoveTo(146760, 25774, -2039); // у гк
end;

if user.INRANGE(147456, 30120, -2455,200,300) then begin
Engine.MoveTo(147453, 29590, -2306);
Engine.MoveTo(147163, 27729, -2295);
Engine.MoveTo(147120, 27329, -2231);
Engine.MoveTo(147201, 26528, -2231);
Engine.MoveTo(147196, 25831, -2039);
Engine.MoveTo(146760, 25774, -2039); // у гк
end;

if user.INRANGE(149913, 27610, -2295,200,300) then begin
Engine.MoveTo(148706, 27638, -2231);
Engine.MoveTo(148455, 27511, -2263);
Engine.MoveTo(147609, 26544, -2230);
Engine.MoveTo(147177, 25857, -2039);
Engine.MoveTo(146760, 25774, -2039); // у гк
end;

if user.INRANGE(147414, 27062, -2199,200,300) then begin
Engine.MoveTo(147213, 26521, -2231);
Engine.MoveTo(147216, 25887, -2039);
Engine.MoveTo(146760, 25774, -2039); // у гк
end;

if user.INRANGE(145037, 27664, -2290,200,300) then begin
Engine.MoveTo(146011, 27622, -2231);
Engine.MoveTo(146395, 27533, -2271);
Engine.MoveTo(147233, 26566, -2229);
Engine.MoveTo(147256, 25918, -2039);
Engine.MoveTo(146755, 25771, -2039); // точка у гк
end;

if user.INRANGE(146038,30519,-2456,200,300) then begin

engine.MOVETO(146302,30520,-2487);
engine.MOVETO(147426,30024,-2487);
engine.MOVETO(147456,29080,-2294);
engine.MOVETO(147239,28319,-2294);
engine.MOVETO(146950,27379,-2231);
engine.MOVETO(146982,26673,-2231);
engine.MOVETO(146410,27351,-2231);
end;
if user.INRANGE(148946,21121,-2136,100,300) then begin

engine.MOVETO(149102,21467,-2167);
engine.MOVETO(149770,22728,-2167);
engine.MOVETO(149883,24041,-2167);
engine.MOVETO(148480,24401,-2039);
engine.MOVETO(148613,25890,-2039);
engine.MOVETO(147402,25872,-2039);
engine.MOVETO(147233,26756,-2230);
engine.MOVETO(146982,26673,-2231);
engine.MOVETO(146410,27351,-2231);
end;
if user.INRANGE(144635,26664,-2264,100,300) then begin

engine.MOVETO(144597,26380,-2295);
engine.MOVETO(145055,26407,-2264);
engine.MOVETO(145049,27608,-2295);
engine.MOVETO(147027,27602,-2295);
engine.MOVETO(146982,26673,-2231);
engine.MOVETO(146410,27351,-2231);
end;
if user.INRANGE(146819,28063,-2264,100,300) then begin

engine.MOVETO(146982,26673,-2231);
engine.MOVETO(146410,27351,-2231);
end;
if user.INRANGE(148565,30463,-2456,100,300) then begin

engine.MOVETO(147461,30077,-2487);
engine.MOVETO(147463,28690,-2294);
engine.MOVETO(147060,27928,-2295);
engine.MOVETO(146982,26673,-2231);
engine.MOVETO(146410,27351,-2231);
END;
if user.INRANGE(145686,21114,-2136,100,300) then begin
engine.MOVETO(145795,21557,-2167);
engine.MOVETO(145011,22557,-2167);
engine.MOVETO(145004,25167,-2167);
engine.MOVETO(145032,27680,-2295);
engine.MOVETO(146990,27563,-2287);
engine.MOVETO(146982,26673,-2231);
engine.MOVETO(146410,27351,-2231);
end;

if user.INRANGE(144559,22835,-2136,100,300) then begin

engine.MOVETO(145377,24198,-2167);
engine.MOVETO(146389,24315,-2039);
engine.MOVETO(146441,25848,-2039);
engine.MOVETO(147229,25908,-2039);
engine.MOVETO(147476,26763,-2230);
engine.MOVETO(146982,26673,-2231);
engine.MOVETO(146410,27351,-2231);
end;
if user.INRANGE(144526,24661,-2136,100,300) then begin

engine.MOVETO(144989,25169,-2167);
engine.MOVETO(145013,27574,-2295);
engine.MOVETO(146940,27637,-2295);
engine.MOVETO(146982,26673,-2231);
engine.MOVETO(146410,27351,-2231);
end;
if user.INRANGE(148010,27996,-2264,100,300) then begin

engine.MOVETO(147987,27993,-2295);
engine.MOVETO(146894,27984,-2295);
engine.MOVETO(146982,26673,-2231);
engine.MOVETO(146410,27351,-2231);
end ;
if user.INRANGE(150227,29104,-2456,100,300) then begin

engine.MOVETO(149986,28933,-2487);
engine.MOVETO(149873,27730,-2295);
engine.MOVETO(149234,27622,-2295);
engine.MOVETO(148101,27616,-2295);
engine.MOVETO(147760,27033,-2231);
engine.MOVETO(146982,26673,-2231);
engine.MOVETO(146410,27351,-2231);
end;
if user.INRANGE(147970,27040,-2200,100,300) then begin

engine.MOVETO(146982,26673,-2231);
engine.MOVETO(146410,27351,-2231);
end ;
if user.INRANGE(144626,29145,-2456,100,300) then begin

engine.MOVETO(144975,29036,-2487);
engine.MOVETO(144968,28432,-2415);
engine.MOVETO(145039,27679,-2295);
engine.MOVETO(146999,27606,-2295);
engine.MOVETO(146982,26673,-2231);
engine.MOVETO(146410,27351,-2231);
end;
if user.INRANGE(148112,30439,-2456,100,300) then begin

engine.MOVETO(147493,30037,-2487);
engine.MOVETO(147434,28611,-2294);
engine.MOVETO(147015,27979,-2295);
engine.MOVETO(146982,26673,-2231);
engine.MOVETO(146410,27351,-2231);
end;
if user.INRANGE(146814,27108,-2200,100,300) then begin
engine.MOVETO(146982,26673,-2231);
engine.MOVETO(146410,27351,-2231);
end;
if user.INRANGE(146494,30584,-2456,100,300) then begin

engine.MOVETO(147475,30014,-2487);
engine.MOVETO(147410,28770,-2294);
engine.MOVETO(147016,27926,-2295);
engine.MOVETO(146982,26673,-2231);
engine.MOVETO(146410,27351,-2231);
end;

if user.inrange(146410, 27351, -2231,200,200) then begin
Print('-=== я на пол пути ? ');
engine.MOVETO(146410,27351,-2231);
Engine.MoveTo(147300, 26073, -2060);
Engine.MoveTo(147139, 25842, -2039);
Engine.MoveTo(146744, 25736, -2016);
end;

//////////////////////////////////////////////////////////////////////////
// LABEL BUFF
/////////////////////////////////////////////////////////////////////////

if User.inrange(146744, 25736, -2016, 250, 150)
then
begin // с етим бегином сцепленно елсе!
Engine.MoveTo(147039, 25663, -2039);
engine.settarget(31360);
Engine.Delay(2333);
engine.dlgOpen();
Engine.Delay(2131);
Engine.DlgSel('Save/Load');
Engine.Delay(2531);
Engine.Bypasstoserver('custom_dobuff ProfBuffs 123',true);
delay(6333);
engine.dlgOpen();
Engine.Delay(2531);
Engine.Bypasstoserver('custom_dobuff RestoreAll',true);
Engine.Delay(2531);

////////////////////////////////////////////////////////////////////
//LABEL (TP --------)
////////////////////////////////////////////////////////////////////
Engine.MoveTo(146760, 25786, -2039);
delay(3333);
Engine.SetTarget(30848);
delay(3333);
Engine.DlgOpen();
delay(3333);
Engine.DlgSel(1);
delay(3333);
Engine.DlgSel(18); // Варка
delay(10000);

Engine.MoveTo(121283, 15965, -4959);
Engine.MoveTo(122783, 15162, -4580);
Engine.MoveTo(124678, 12404, -4158);
Engine.MoveTo(127604, 10521, -3914);
Engine.MoveTo(128581, 10880, -3756);
Engine.MoveTo(130026, 12321, -3775);
Engine.MoveTo(132110, 11300, -4140);
Engine.MoveTo(133736, 8784, -4302);
Engine.MoveTo(135629, 5787, -4449);
Engine.MoveTo(136892, 4030, -4551);




////////////////////////////////////////////////////////////////////



//////////////////////////////////////////////////////////////////////////////
// LABEL FARM
//////////////////////////////////////////////////////////////////////////////

delay(555);
Engine.FaceControl(0,true);
delay(555);
Print('-=== ДОБЕЖАЛ ПОРА ЕБАШИТЬ ');

/////////////////////////////////////////////////////////////////////////////
end
else begin // если непришол в зону фарма то улечу в город
if not User.InRange(138728, 4917, -4405,6000,1000)
then begin
Engine.FaceControl(0,false);
delay(555);
Print('-=== БЛЯ ГДЕ Я ? ');
engine.entertext ('/unstuck');
delay(25000);
end;
delay(555);
end;
delay(555);
end;
delay(555);
end;
delay(555);
end.
 
Скрипт на спойл КБП и АСОФ

uses SysUtils, Classes;
var Fight_Flag:Boolean;
Item: TL2Item;
obj: TL2Npc;
Npc: TL2Npc;
obj2: TL2Effect;
var L2Skill: TL2Skill;
Enemy: TL2Live;
var i, n: Integer;

////////////////////////////////////////////////////////////////////////

Begin // ГЛАВНЫЙ БЕГИН

Print('СТАРТУЮ СКРИПТ');
delay(555);
engine.loadconfig('CBPASOF');
Print('-============= ЗАГРУЗИЛ КОНФИГ CBPASOF');
delay(555);
engine.loadzone('CBPASOF');
delay(555);
Print('-============= ЗАГРУЗИЛ ЗОНУ CBPASOF');

////////////////////////////////////////////////////////////////////////
// старт фарма сразу с места !!!
////////////////////////////////////////////////////////////////////////

if user.inrange(110685, -100723, -3671,6000,1000)
then begin
Print('-=== Я НА МЕСТЕ НАЧИНАЮ ЕБАШИТЬ ');
delay(555);
Engine.FaceControl(0,true);
end;

/////////////////////////////////////////////////////////////////////////

begin // ЗАЦЫКЛЕННО ПО КРУГУ НА ЕТОМ БЕГИНЕ
// все что выше выполняется 1 раз при старте
while 1<>2 do begin

/////////////////////////////////////////////////////////////////////

if User.Dead // умер - бот офф, тп город пауза 20 сек
then begin
delay(500);
Print('Етого Пердуна постигла АНАЛЬНАЯ кара');
delay(500);
Engine.FaceControl(0,false);
delay(15000);
engine.restart;
Engine.delay(10000);
engine.GameStart(0);
delay(5555);
engine.loadconfig('CBPASOF');
Print('-============= ЗАГРУЗИЛ ПО НОВОЙ КОНФИГ CBPASOF');
delay(555);
engine.loadzone('CBPASOF');
delay(555);
Print('-============= ЗАГРУЗИЛ ПО НОВОЙ ЗОНУ CBPASOF');
delay(11111); // полежать чутка а то палевно моментально в город тп
Engine.gohome;
delay(20000);
end;

/////////////////////////////////////////////////////////////////////
// LABEL STT
/////////////////////////////////////////////////////////////////////

if User.inrange(87184,-140256,-1536, 250, 150) then begin
Engine.MoveTo(87184,-140256,-1536);
Engine.MoveTo(87368,-140838,-1512);
Engine.MoveTo(87319,-141796,-1338);
Engine.MoveTo(87145,-142916,-1313);
Engine.MoveTo(87070,-143418,-1290);
end;
if User.inrange(87408,-142304,-1336, 250, 150) then begin
Engine.MoveTo(87408,-142304,-1336);
Engine.MoveTo(87145,-142916,-1313);
Engine.MoveTo(87070,-143418,-1290);
end;
if User.inrange(88240,-142736,-1336, 250, 150) then begin
Engine.MoveTo(88240,-142736,-1336);
Engine.MoveTo(87585,-142662,-1338);
Engine.MoveTo(87070,-143418,-1290);
end;
if User.inrange(85056,-141328,-1528, 250, 150) then begin
Engine.MoveTo(85056,-141328,-1528);
Engine.MoveTo(85181,-141845,-1539);
Engine.MoveTo(85804,-142279,-1339);
Engine.MoveTo(87157,-142636,-1338);
Engine.MoveTo(87070,-143418,-1290);
end;
if User.inrange(88624,-142480,-1336, 250, 150) then begin
Engine.MoveTo(88624,-142480,-1336);
Engine.MoveTo(87548,-142686,-1331);
Engine.MoveTo(87070,-143418,-1290);
end;
if User.inrange(86400,-142672,-1336, 250, 150) then begin
Engine.MoveTo(86400,-142672,-1336);
Engine.MoveTo(87143,-142570,-1338);
Engine.MoveTo(87070,-143418,-1290);
end;
if User.inrange(86560,-140320,-1536, 250, 150) then begin
Engine.MoveTo(86560,-140320,-1536);
Engine.MoveTo(87300,-140655,-1539);
Engine.MoveTo(87385,-141436,-1339);
Engine.MoveTo(87246,-142537,-1338);
Engine.MoveTo(87070,-143418,-1290);
end;
if User.inrange(88448,-140512,-1536, 250, 150) then begin
Engine.MoveTo(88448,-140512,-1536);
Engine.MoveTo(87410,-140642,-1539);
Engine.MoveTo(87299,-141493,-1338);
Engine.MoveTo(87291,-142607,-1338);
Engine.MoveTo(87070,-143418,-1290);
end;
if User.inrange(89712,-141472,-1528, 250, 150) then begin
Engine.MoveTo(89712,-141472,-1528);
Engine.MoveTo(89497,-141893,-1539);
Engine.MoveTo(88963,-142272,-1339);
Engine.MoveTo(87737,-142631,-1338);
Engine.MoveTo(87070,-143418,-1290);
end;
if User.inrange(87344,-141696,-1336, 250, 150) then begin
Engine.MoveTo(87344,-141696,-1336);
Engine.MoveTo(87354,-142594,-1338);
Engine.MoveTo(87070,-143418,-1290);
end;
if User.inrange(85472,-140752,-1536, 250, 150) then begin
Engine.MoveTo(85472,-140752,-1536);
Engine.MoveTo(85191,-141803,-1539);
Engine.MoveTo(85909,-142322,-1338);
Engine.MoveTo(87096,-142671,-1338);
Engine.MoveTo(87070,-143418,-1290);
end;
if User.inrange(89360,-140944,-1536, 250, 150) then begin
Engine.MoveTo(89360,-140944,-1536);
Engine.MoveTo(89539,-141762,-1539);
Engine.MoveTo(88910,-142276,-1339);
Engine.MoveTo(87637,-142734,-1332);
Engine.MoveTo(87070,-143418,-1290);
end;
if User.inrange(87776,-140384,-1536, 250, 150) then begin
Engine.MoveTo(87776,-140384,-1536);
Engine.MoveTo(87403,-140707,-1539);
Engine.MoveTo(87351,-141645,-1338);
Engine.MoveTo(87310,-142568,-1338);
Engine.MoveTo(87070,-143418,-1290);
end;
if User.inrange(84720,-141936,-1536, 250, 150) then begin
Engine.MoveTo(84720,-141936,-1536);
Engine.MoveTo(85201,-141842,-1539);
Engine.MoveTo(85807,-142262,-1339);
Engine.MoveTo(87116,-142704,-1338);
Engine.MoveTo(87070,-143418,-1290);
end;
if User.inrange(85968,-142384,-1336, 250, 150) then begin
Engine.MoveTo(85968,-142384,-1336);
Engine.MoveTo(87116,-142704,-1338);
Engine.MoveTo(87070,-143418,-1290);
end;

//////////////////////////////////////////////////////////////////////////
// LABEL BUFF
/////////////////////////////////////////////////////////////////////////

if User.inrange(87070,-143418,-1290, 250, 150)
then
begin // с етим бегином сцепленно елсе!
Engine.MoveTo(147039, 25663, -2039);
engine.settarget(31360);
Engine.Delay(2333);
engine.dlgOpen();
Engine.Delay(2131);
Engine.DlgSel('Save/Load');
Engine.Delay(2531);
Engine.Bypasstoserver('custom_dobuff ProfBuffs 123',true);
delay(6333);
engine.dlgOpen();
Engine.Delay(2531);
Engine.Bypasstoserver('custom_dobuff RestoreAll',true);
Engine.Delay(2531);

////////////////////////////////////////////////////////////////////
//LABEL (TP --------)
////////////////////////////////////////////////////////////////////
Engine.MoveTo(87094, -143450, -1318);
delay(3333);
Engine.SetTarget(31964);
delay(3333);
Engine.DlgOpen();
delay(3333);
Engine.DlgSel(1);
delay(3333);
Engine.DlgSel(13); // Варка
delay(10000);

Engine.MoveTo(113908, -108735, -843);
Engine.MoveTo(112448, -108401, -896);
Engine.MoveTo(111812, -107816, -1065);
Engine.MoveTo(110918, -106928, -1637);
Engine.MoveTo(110242, -106224, -2044);
Engine.MoveTo(109872, -105591, -2323);
Engine.MoveTo(109653, -104719, -2691);
Engine.MoveTo(109398, -103357, -3179);
Engine.MoveTo(108439, -101836, -3579);
Engine.MoveTo(107182, -102858, -3707);






////////////////////////////////////////////////////////////////////



//////////////////////////////////////////////////////////////////////////////
// LABEL FARM
//////////////////////////////////////////////////////////////////////////////

delay(555);
Engine.FaceControl(0,true);
delay(555);
Print('-=== ДОБЕЖАЛ ПОРА ЕБАШИТЬ ');

/////////////////////////////////////////////////////////////////////////////
end
else begin // если непришол в зону фарма то улечу в город
if not User.InRange(107182, -102858, -3707,6000,1000)
then begin
Engine.FaceControl(0,false);
delay(555);
Print('-=== БЛЯ ГДЕ Я ? ');
engine.entertext ('/unstuck');
delay(25000);
end;
delay(555);
end;
delay(555);
end;
delay(555);
end;
delay(555);
end.
 
весьма неплохой скрипт,я бы еще добавил пару проверок,автор молодец(и юмора добавил)
 
Войдите или зарегистрируйтесь для ответа.
Назад
Сверху