ФАРМ мос x1200 fange

jOKER3245 · 24 Апр 2017

var
item: TL2Item;
function buffCheck: Boolean;
var buff: TL2Buff;
begin
if not User.Buffs.ByID(1062,buff) then begin
Result:=true;
baff
end;
Result:=false;
end;
function deadCheck: Boolean;
begin
Result :=false;
if User.Dead then begin
Engine.FaceControl (0,false);
Engine.GoHome;
Delay(10000);
end;

end;

procedure baff;
function Buff(value:string):boolean;
var
s:string;
bypass:string;
i:integer;
b:boolean;
mass:array [1..100] of string;
Obj: TL2Buff;
begin
Engine.Settarget(50000);
Engine.DlgOpen();
s:=Engine.DlgText;
b:=true;
i:=1;
while b do
begin
Delete(s,1,Pos('<button',s)-1);
mass:=Copy(s,1,Pos('>',s));
Delete(s,1,Length(mass));
inc(i);
if Pos('<button',s) = 0 then
b:=false;
end;
for i:=1 to 100 do
if mass <> '' then
if Pos(value,mass) <> 0 then
begin
bypass := mass;
delete(bypass,1,pos('action="',bypass)+17);
bypass:=Copy(bypass,1,pos('"',bypass)-1);
break;
end;
Engine.ByPassToServer(bypass);
end;
begin
buff('Набор мага'); //- Название нужной кнопки
Delay(500);
end;
procedure tp;
var
obj: TL2NPC;
obj2: TL2Effect;

Enemy:TL2Live;
Begin
while 1<>2 do begin
if User.Dead then
begin
deadCheck;
Engine.FaceControl(0,false);
Engine.gohome;
delay(5000);
end;
if user.inrange(146272, -58176, -2976, 250, 150) //возле хранилища
then
begin
Engine.MoveTo(147593, -58103, -3007);
Engine.MoveTo(147727, -57141, -2807);
Engine.MoveTo(147936, -55368, -2760); //возле гк
end;
if user.inrange(145264, -57680, -2976, 250, 150) //возле хранилища 2
then
begin
Engine.MoveTo(145588, -56926, -3007);
Engine.MoveTo(146673, -56095, -2807);
Engine.MoveTo(147543, -56054, -2807);
Engine.MoveTo(147936, -55368, -2760); //возле гк
end;
if user.inrange(145696, -57696, -2976, 250, 150) //возле хранилища 3
then
begin
Engine.MoveTo(145510, -56930, -3007);
Engine.MoveTo(146499, -56202, -2807);
Engine.MoveTo(147481, -56031, -2807);
Engine.MoveTo(147936, -55368, -2760); //возле гк
end;
if user.inrange(144944, -55392, -2976, 250, 150) //самый край
then
begin
Engine.MoveTo(145153, -56813, -3007);
Engine.MoveTo(145569, -56855, -3007);
Engine.MoveTo(146467, -56271, -2807);
Engine.MoveTo(147566, -56034, -2807);
Engine.MoveTo(147936, -55368, -2760); //возле гк
end;
if user.inrange(144752, -56752, -2976, 250, 150) //самый край
then
begin
Engine.MoveTo(145534, -56884, -3007);
Engine.MoveTo(146265, -56418, -2807);
Engine.MoveTo(147407, -56063, -2807);
Engine.MoveTo(147936, -55368, -2760); //возле гк
end;

//восточная лестница
if user.inrange(149120, -58064, -2976, 250, 150) //магазин
then
begin
Engine.MoveTo(147706, -58107, -3007);
Engine.MoveTo(147751, -56737, -2807);
Engine.MoveTo(147936, -55368, -2760); //возле гк
end;
if user.inrange(150400, -56752, -2976, 250, 150) //самый край
then
begin
Engine.MoveTo(149935, -56870, -3007);
Engine.MoveTo(149139, -56390, -2807);
Engine.MoveTo(147929, -56063, -2807);
Engine.MoveTo(147936, -55368, -2760); //возле гк
end;
if user.inrange(150704, -55744, -2976, 250, 150) //самый край 2
then
begin
Engine.MoveTo(149935, -56870, -3007);
Engine.MoveTo(149139, -56390, -2807);
Engine.MoveTo(147929, -56063, -2807);
Engine.MoveTo(147936, -55368, -2760); //возле гк
end;

//северная лелтница
if user.inrange(147680, -58208, -2976, 250, 150) //низ центр лестницы
then
begin
Engine.MoveTo(147727, -57141, -2807);
Engine.MoveTo(147936, -55368, -2760); //возле гк
end;
if user.inrange(148288, -58304, -2976, 250, 150) //низ центр лестницы чуть правее
then
begin
Engine.MoveTo(147738, -58050, -3007);
Engine.MoveTo(147727, -57141, -2807);
Engine.MoveTo(147936, -55368, -2760); //возле гк
end;
if user.inrange(147232, -58480, -2976, 250, 150) //низ центр лестницы чуть левее
then
begin
Engine.MoveTo(147677, -58063, -3007);
Engine.MoveTo(147727, -57141, -2807);
Engine.MoveTo(147936, -55368, -2760); //возле гк
end;
if user.inrange(149088, -56256, -2776, 250, 150)
then
begin
Engine.MoveTo(147854, -56054, -2807);
Engine.MoveTo(147934, -55354, -2760);
end;

//площадь
if user.inrange(146832, -55904, -2776, 250, 150) //площадь слева от лестницы
then
begin
Engine.MoveTo(147529, -56046, -2807);
Engine.MoveTo(147936, -55368, -2760); //возле гк
end;
if user.inrange(146368, -56256, -2776, 250, 150) //площадь слева от лестницы 2
then
begin
Engine.MoveTo(147529, -56046, -2807);
Engine.MoveTo(147936, -55368, -2760); //возле гк
end;
if user.inrange(147664, -56464, -2776, 250, 150) //площадь центр
then
begin
Engine.MoveTo(147936, -55368, -2760); //возле гк
end;
if user.inrange(147680, -56928, -2776, 250, 150) //площадь центр 2
then
begin
Engine.MoveTo(147810, -56110, -2807);
Engine.MoveTo(147936, -55368, -2760); //возле гк
end;
if user.inrange(148560, -55904, -2776, 250, 150) //площадь справа от лестницы
then
begin
Engine.MoveTo(147936, -55368, -2760); //возле гк
end;
if user.inrange(149872, -57424, -2976, 250, 150)
then
begin
Engine.MoveTo(149897, -56910, -2979);
Engine.MoveTo(149230, -56412, -2779);
Engine.MoveTo(147939, -55999, -2772);
Engine.MoveTo(147936, -55368, -2760); //возле гк
end;
if user.inrange(144960, -56224, -2976, 250, 150)
then
begin
Engine.MoveTo(145458, -56853, -2979);
Engine.MoveTo(146343, -56326, -2779);
Engine.MoveTo(147625, -55995, -2772);
Engine.MoveTo(147936, -55368, -2760); //возле гк
end;
if user.inrange(144496, -55088, -2976, 250, 150)
then
begin
Engine.MoveTo(145327, -56873, -2979);
Engine.MoveTo(146337, -56445, -2779);
Engine.MoveTo(147533, -55963, -2766);
Engine.MoveTo(147936, -55368, -2760); //возле гк
end;
if user.inrange(145392, -56960, -2976, 250, 150)
then
begin
Engine.MoveTo(146347, -56305, -2779);
Engine.MoveTo(147514, -56003, -2772);
Engine.MoveTo(147936, -55368, -2760); //возле гк
end;
if User.inrange(38608,-47168,896, 250, 150)
or User.inrange(38272,-49008,896, 250, 150)
or User.inrange(38752,-47792,896, 250, 150)
or User.inrange(38112,-49792,896, 250, 150)
or User.inrange(38848,-48640,896, 250, 150) then begin
Engine.MoveTo(39113,-48225,898);
Engine.MoveTo(38294,-48089,898);

Engine.SetTarget(31698);
Engine.DlgOpen;
Engine.DlgSel(1);
Engine.DlgSel(1);
Engine.CancelTarget;
Delay(3000);

Engine.MoveTo(39522,-48234,-784);
Engine.MoveTo(41591,-48221,-801);
Engine.MoveTo(43323,-48185,-795);
Engine.MoveTo(43827,-47698,-794);
end;
if User.inrange(44368,-50592,-792, 250, 150) then begin
Engine.MoveTo(44368,-50592,-792);
Engine.MoveTo(43997,-49427,-795);
Engine.MoveTo(43831,-48480,-795);
Engine.MoveTo(43827,-47698,-794);
end;
if User.inrange(44864,-47824,-792, 250, 150) then begin
Engine.MoveTo(44864,-47824,-792);
Engine.MoveTo(44025,-47893,-795);
Engine.MoveTo(43827,-47698,-794);
end;
if User.inrange(43536,-50416,-792, 250, 150) then begin
Engine.MoveTo(43536,-50416,-792);
Engine.MoveTo(43833,-49293,-795);
Engine.MoveTo(43847,-48397,-795);
Engine.MoveTo(43827,-47698,-794);
end;
if User.inrange(45632,-47968,-792, 250, 150) then begin
Engine.MoveTo(45632,-47968,-792);
Engine.MoveTo(44070,-47930,-795);
Engine.MoveTo(43827,-47698,-794);
end;
if User.inrange(45824,-49056,-792, 250, 150) then begin
Engine.MoveTo(45824,-49056,-792);
Engine.MoveTo(46022,-48351,-795);
Engine.MoveTo(45441,-48000,-795);
Engine.MoveTo(44189,-47900,-795);
Engine.MoveTo(43827,-47698,-794);
end;
if User.inrange(44000,-49952,-792, 250, 150) then begin
Engine.MoveTo(44000,-49952,-792);
Engine.MoveTo(43862,-48669,-795);
Engine.MoveTo(43827,-47698,-794);
end;
if User.inrange(43792,-48928,-792, 250, 150) then begin
Engine.MoveTo(43792,-48928,-792);
Engine.MoveTo(43827,-47698,-794);
end;
if User.inrange(45072,-49936,-792, 250, 150) then begin
Engine.MoveTo(45072,-49936,-792);
Engine.MoveTo(44258,-49647,-795);
Engine.MoveTo(43864,-48552,-795);
Engine.MoveTo(43827,-47698,-794);
end;
if User.inrange(43408,-51120,-792, 250, 150) then begin
Engine.MoveTo(43408,-51120,-792);
Engine.MoveTo(43805,-49830,-795);
Engine.MoveTo(43870,-48626,-795);
Engine.MoveTo(43827,-47698,-794);
end;
if User.inrange(43744,-47920,-792, 250, 150) then begin
Engine.MoveTo(43744,-47920,-792);
Engine.MoveTo(43827,-47698,-794);

Engine.SetTarget (31320);
delay(5000);
Engine.DlgOpen();
Engine.DlgSel (4);
Engine.DlgSel (13);
Engine.FaceControl (0,false);
Engine.MoveTo(123389, -74903, -2896);
Engine.MoveTo(123078, -74866, -2888);
Engine.MoveTo(122776, -74851, -2880);
Engine.MoveTo(122545, -74849, -2880);
Engine.MoveTo(122397, -74849, -2920);
Engine.MoveTo(122198, -74849, -2984);
Engine.MoveTo(122133, -74849, -3008);
Engine.MoveTo(122054, -74853, -3032);
Engine.MoveTo(121992, -74853, -3056);
Engine.MoveTo(121913, -74854, -3080);
Engine.MoveTo(121839, -74856, -3112);
Engine.MoveTo(121770, -74856, -3128);
Engine.MoveTo(121691, -74859, -3160);
Engine.MoveTo(121613, -74859, -3184);
Engine.MoveTo(121483, -74860, -3224);
Engine.MoveTo(121348, -74861, -3264);
Engine.MoveTo(121271, -74869, -3264);
Engine.MoveTo(121180, -74881, -3264);
Engine.MoveTo(121086, -74905, -3264);
Engine.MoveTo(120955, -74953, -3264);
Engine.MoveTo(120848, -75033, -3264);
Engine.MoveTo(120777, -75113, -3264);
Engine.MoveTo(120790, -75140, -3264);
Engine.MoveTo(120738, -75240, -3264);
Engine.MoveTo(120759, -75347, -3264);
Engine.MoveTo(120786, -75471, -3264);
Engine.MoveTo(120810, -75671, -3264);
Engine.MoveTo(120821, -75807, -3264);
Engine.MoveTo(120839, -75932, -3264);
Engine.MoveTo(120845, -76082, -3264);
Engine.MoveTo(120819, -76179, -3264);
Engine.MoveTo(120759, -76280, -3264);
Engine.MoveTo(120696, -76336, -3264);
Engine.MoveTo(120591, -76351, -3264);
Engine.MoveTo(120446, -76370, -3264);
Engine.MoveTo(120189, -76401, -3264);
Engine.MoveTo(120074, -76401, -3264);
Engine.MoveTo(120010, -76400, -3264);
Engine.MoveTo(119979, -76401, -3264);
Engine.MoveTo(119742, -76389, -3368);
Engine.MoveTo(119624, -76399, -3392);
Engine.MoveTo(119543, -76409, -3392);
Engine.MoveTo(119405, -76403, -3392);
Engine.MoveTo(119207, -76408, -3392);
Engine.MoveTo(119053, -76418, -3392);
Engine.MoveTo(118910, -76418, -3392);
Engine.MoveTo(118736, -76412, -3392);
Engine.MoveTo(118549, -76414, -3392);
Engine.MoveTo(118413, -76416, -3392);
Engine.MoveTo(118283, -76414, -3392);
Engine.MoveTo(118167, -76425, -3392);
Engine.MoveTo(118052, -76469, -3392);
Engine.MoveTo(117954, -76539, -3392);
Engine.MoveTo(117870, -76675, -3392);
Engine.MoveTo(117863, -76770, -3392);
Engine.MoveTo(117884, -76924, -3392);
Engine.MoveTo(117949, -77025, -3392);
Engine.MoveTo(118066, -77117, -3392);
Engine.MoveTo(118125, -77236, -3392);
Engine.MoveTo(118143, -77329, -3392);
Engine.MoveTo(118134, -77457, -3392);
Engine.MoveTo(118082, -77575, -3392);
Engine.MoveTo(117973, -77725, -3392);
Engine.MoveTo(117896, -77751, -3392);
Engine.MoveTo(117775, -77775, -3392);
Engine.MoveTo(117644, -77803, -3392);
Engine.MoveTo(117480, -77804, -3392);
Engine.MoveTo(117348, -77779, -3392);
Engine.MoveTo(117208, -77697, -3392);
Engine.MoveTo(117070, -77599, -3392);
Engine.MoveTo(116958, -77539, -3392);
Engine.MoveTo(116857, -77487, -3392);
Engine.MoveTo(116708, -77401, -3392);
Engine.MoveTo(116549, -77311, -3392);
Engine.MoveTo(116420, -77246, -3392);
Engine.MoveTo(116269, -77165, -3392);
Engine.MoveTo(116157, -77111, -3392);
Engine.MoveTo(116021, -77047, -3392);
Engine.MoveTo(115870, -77011, -3392);
Engine.MoveTo(115664, -77032, -3392);
Engine.MoveTo(115506, -77085, -3392);
Engine.MoveTo(115410, -77152, -3392);
Engine.MoveTo(115329, -77277, -3392);
Engine.MoveTo(115299, -77389, -3392);
Engine.MoveTo(115285, -77515, -3392);
Engine.MoveTo(115325, -77635, -3392);
Engine.MoveTo(115383, -77838, -3392);
Engine.MoveTo(115405, -78034, -3392);
Engine.MoveTo(115438, -78269, -3392);
Engine.MoveTo(115491, -78422, -3392);
Engine.MoveTo(115534, -78583, -3392);
Engine.MoveTo(115642, -78625, -3392);
Engine.MoveTo(115894, -78669, -3392);
Engine.MoveTo(116126, -78709, -3392);
Engine.MoveTo(116276, -78762, -3392);
Engine.MoveTo(116355, -78849, -3392);
Engine.MoveTo(116404, -78948, -3392);
Engine.MoveTo(116408, -79042, -3392);
Engine.MoveTo(116358, -79106, -3392);
Engine.MoveTo(116276, -79217, -3392);
Engine.MoveTo(116158, -79323, -3392);
Engine.MoveTo(116067, -79402, -3392);
Engine.MoveTo(115964, -79603, -3392);
Engine.MoveTo(115961, -79813, -3392);
Engine.FaceControl (0,true);

end;
if user.inrange (147936, -55368, -2760, 2500, 1500)then begin
BuffCheck;
delay(2550);
Engine.SetTarget (31275);
delay(5000);
Engine.DlgOpen();
Engine.DlgSel (4);
Engine.DlgSel (4);
delay(5000);
Engine.FaceControl (0,false);
Engine.MoveTo(123389, -74903, -2896);
Engine.MoveTo(123078, -74866, -2888);
Engine.MoveTo(122776, -74851, -2880);
Engine.MoveTo(122545, -74849, -2880);
Engine.MoveTo(122397, -74849, -2920);
Engine.MoveTo(122198, -74849, -2984);
Engine.MoveTo(122133, -74849, -3008);
Engine.MoveTo(122054, -74853, -3032);
Engine.MoveTo(121992, -74853, -3056);
Engine.MoveTo(121913, -74854, -3080);
Engine.MoveTo(121839, -74856, -3112);
Engine.MoveTo(121770, -74856, -3128);
Engine.MoveTo(121691, -74859, -3160);
Engine.MoveTo(121613, -74859, -3184);
Engine.MoveTo(121483, -74860, -3224);
Engine.MoveTo(121348, -74861, -3264);
Engine.MoveTo(121271, -74869, -3264);
Engine.MoveTo(121180, -74881, -3264);
Engine.MoveTo(121086, -74905, -3264);
Engine.MoveTo(120955, -74953, -3264);
Engine.MoveTo(120848, -75033, -3264);
Engine.MoveTo(120777, -75113, -3264);
Engine.MoveTo(120790, -75140, -3264);
Engine.MoveTo(120738, -75240, -3264);
Engine.MoveTo(120759, -75347, -3264);
Engine.MoveTo(120786, -75471, -3264);
Engine.MoveTo(120810, -75671, -3264);
Engine.MoveTo(120821, -75807, -3264);
Engine.MoveTo(120839, -75932, -3264);
Engine.MoveTo(120845, -76082, -3264);
Engine.MoveTo(120819, -76179, -3264);
Engine.MoveTo(120759, -76280, -3264);
Engine.MoveTo(120696, -76336, -3264);
Engine.MoveTo(120591, -76351, -3264);
Engine.MoveTo(120446, -76370, -3264);
Engine.MoveTo(120189, -76401, -3264);
Engine.MoveTo(120074, -76401, -3264);
Engine.MoveTo(120010, -76400, -3264);
Engine.MoveTo(119979, -76401, -3264);
Engine.MoveTo(119742, -76389, -3368);
Engine.MoveTo(119624, -76399, -3392);
Engine.MoveTo(119543, -76409, -3392);
Engine.MoveTo(119405, -76403, -3392);
Engine.MoveTo(119207, -76408, -3392);
Engine.MoveTo(119053, -76418, -3392);
Engine.MoveTo(118910, -76418, -3392);
Engine.MoveTo(118736, -76412, -3392);
Engine.MoveTo(118549, -76414, -3392);
Engine.MoveTo(118413, -76416, -3392);
Engine.MoveTo(118283, -76414, -3392);
Engine.MoveTo(118167, -76425, -3392);
Engine.MoveTo(118052, -76469, -3392);
Engine.MoveTo(117954, -76539, -3392);
Engine.MoveTo(117870, -76675, -3392);
Engine.MoveTo(117863, -76770, -3392);
Engine.MoveTo(117884, -76924, -3392);
Engine.MoveTo(117949, -77025, -3392);
Engine.MoveTo(118066, -77117, -3392);
Engine.MoveTo(118125, -77236, -3392);
Engine.MoveTo(118143, -77329, -3392);
Engine.MoveTo(118134, -77457, -3392);
Engine.MoveTo(118082, -77575, -3392);
Engine.MoveTo(117973, -77725, -3392);
Engine.MoveTo(117896, -77751, -3392);
Engine.MoveTo(117775, -77775, -3392);
Engine.MoveTo(117644, -77803, -3392);
Engine.MoveTo(117480, -77804, -3392);
Engine.MoveTo(117348, -77779, -3392);
Engine.MoveTo(117208, -77697, -3392);
Engine.MoveTo(117070, -77599, -3392);
Engine.MoveTo(116958, -77539, -3392);
Engine.MoveTo(116857, -77487, -3392);
Engine.MoveTo(116708, -77401, -3392);
Engine.MoveTo(116549, -77311, -3392);
Engine.MoveTo(116420, -77246, -3392);
Engine.MoveTo(116269, -77165, -3392);
Engine.MoveTo(116157, -77111, -3392);
Engine.MoveTo(116021, -77047, -3392);
Engine.MoveTo(115870, -77011, -3392);
Engine.MoveTo(115664, -77032, -3392);
Engine.MoveTo(115506, -77085, -3392);
Engine.MoveTo(115410, -77152, -3392);
Engine.MoveTo(115329, -77277, -3392);
Engine.MoveTo(115299, -77389, -3392);
Engine.MoveTo(115285, -77515, -3392);
Engine.MoveTo(115325, -77635, -3392);
Engine.MoveTo(115383, -77838, -3392);
Engine.MoveTo(115405, -78034, -3392);
Engine.MoveTo(115438, -78269, -3392);
Engine.MoveTo(115491, -78422, -3392);
Engine.MoveTo(115534, -78583, -3392);
Engine.MoveTo(115642, -78625, -3392);
Engine.MoveTo(115894, -78669, -3392);
Engine.MoveTo(116126, -78709, -3392);
Engine.MoveTo(116276, -78762, -3392);
Engine.MoveTo(116355, -78849, -3392);
Engine.MoveTo(116404, -78948, -3392);
Engine.MoveTo(116408, -79042, -3392);
Engine.MoveTo(116358, -79106, -3392);
Engine.MoveTo(116276, -79217, -3392);
Engine.MoveTo(116158, -79323, -3392); var
item: TL2Item;
function buffCheck: Boolean;
var buff: TL2Buff;
begin
if not User.Buffs.ByID(1062,buff) then begin
Result:=true;
baff
end;
Result:=false;
end;
function deadCheck: Boolean;
begin
Result :=false;
if User.Dead then begin
Engine.FaceControl (0,false);
Engine.GoHome;
Delay(10000);
end;

end;

procedure baff;
function Buff(value:string):boolean;
var
s:string;
bypass:string;
i:integer;
b:boolean;
mass:array [1..100] of string;
Obj: TL2Buff;
begin
Engine.Settarget(50000);
Engine.DlgOpen();
s:=Engine.DlgText;
b:=true;
i:=1;
while b do
begin
Delete(s,1,Pos('<button',s)-1);
mass:=Copy(s,1,Pos('>',s));
Delete(s,1,Length(mass));
inc(i);
if Pos('<button',s) = 0 then
b:=false;
end;
for i:=1 to 100 do
if mass <> '' then
if Pos(value,mass) <> 0 then
begin
bypass := mass;
delete(bypass,1,pos('action="',bypass)+17);
bypass:=Copy(bypass,1,pos('"',bypass)-1);
break;
end;
Engine.ByPassToServer(bypass);
end;
begin
buff('Набор мага'); //- Название нужной кнопки
Delay(500);
end;
procedure tp;
var
obj: TL2NPC;
obj2: TL2Effect;

Enemy:TL2Live;
Begin
while 1<>2 do begin
if User.Dead then
begin
deadCheck;
Engine.FaceControl(0,false);
Engine.gohome;
delay(5000);
end;
if user.inrange(146272, -58176, -2976, 250, 150) //возле хранилища
then
begin
Engine.MoveTo(147593, -58103, -3007);
Engine.MoveTo(147727, -57141, -2807);
Engine.MoveTo(147936, -55368, -2760); //возле гк
end;
if user.inrange(145264, -57680, -2976, 250, 150) //возле хранилища 2
then
begin
Engine.MoveTo(145588, -56926, -3007);
Engine.MoveTo(146673, -56095, -2807);
Engine.MoveTo(147543, -56054, -2807);
Engine.MoveTo(147936, -55368, -2760); //возле гк
end;
if user.inrange(145696, -57696, -2976, 250, 150) //возле хранилища 3
then
begin
Engine.MoveTo(145510, -56930, -3007);
Engine.MoveTo(146499, -56202, -2807);
Engine.MoveTo(147481, -56031, -2807);
Engine.MoveTo(147936, -55368, -2760); //возле гк
end;
if user.inrange(144944, -55392, -2976, 250, 150) //самый край
then
begin
Engine.MoveTo(145153, -56813, -3007);
Engine.MoveTo(145569, -56855, -3007);
Engine.MoveTo(146467, -56271, -2807);
Engine.MoveTo(147566, -56034, -2807);
Engine.MoveTo(147936, -55368, -2760); //возле гк
end;
if user.inrange(144752, -56752, -2976, 250, 150) //самый край
then
begin
Engine.MoveTo(145534, -56884, -3007);
Engine.MoveTo(146265, -56418, -2807);
Engine.MoveTo(147407, -56063, -2807);
Engine.MoveTo(147936, -55368, -2760); //возле гк
end;

//восточная лестница
if user.inrange(149120, -58064, -2976, 250, 150) //магазин
then
begin
Engine.MoveTo(147706, -58107, -3007);
Engine.MoveTo(147751, -56737, -2807);
Engine.MoveTo(147936, -55368, -2760); //возле гк
end;
if user.inrange(150400, -56752, -2976, 250, 150) //самый край
then
begin
Engine.MoveTo(149935, -56870, -3007);
Engine.MoveTo(149139, -56390, -2807);
Engine.MoveTo(147929, -56063, -2807);
Engine.MoveTo(147936, -55368, -2760); //возле гк
end;
if user.inrange(150704, -55744, -2976, 250, 150) //самый край 2
then
begin
Engine.MoveTo(149935, -56870, -3007);
Engine.MoveTo(149139, -56390, -2807);
Engine.MoveTo(147929, -56063, -2807);
Engine.MoveTo(147936, -55368, -2760); //возле гк
end;

//северная лелтница
if user.inrange(147680, -58208, -2976, 250, 150) //низ центр лестницы
then
begin
Engine.MoveTo(147727, -57141, -2807);
Engine.MoveTo(147936, -55368, -2760); //возле гк
end;
if user.inrange(148288, -58304, -2976, 250, 150) //низ центр лестницы чуть правее
then
begin
Engine.MoveTo(147738, -58050, -3007);
Engine.MoveTo(147727, -57141, -2807);
Engine.MoveTo(147936, -55368, -2760); //возле гк
end;
if user.inrange(147232, -58480, -2976, 250, 150) //низ центр лестницы чуть левее
then
begin
Engine.MoveTo(147677, -58063, -3007);
Engine.MoveTo(147727, -57141, -2807);
Engine.MoveTo(147936, -55368, -2760); //возле гк
end;
if user.inrange(149088, -56256, -2776, 250, 150)
then
begin
Engine.MoveTo(147854, -56054, -2807);
Engine.MoveTo(147934, -55354, -2760);
end;

//площадь
if user.inrange(146832, -55904, -2776, 250, 150) //площадь слева от лестницы
then
begin
Engine.MoveTo(147529, -56046, -2807);
Engine.MoveTo(147936, -55368, -2760); //возле гк
end;
if user.inrange(146368, -56256, -2776, 250, 150) //площадь слева от лестницы 2
then
begin
Engine.MoveTo(147529, -56046, -2807);
Engine.MoveTo(147936, -55368, -2760); //возле гк
end;
if user.inrange(147664, -56464, -2776, 250, 150) //площадь центр
then
begin
Engine.MoveTo(147936, -55368, -2760); //возле гк
end;
if user.inrange(147680, -56928, -2776, 250, 150) //площадь центр 2
then
begin
Engine.MoveTo(147810, -56110, -2807);
Engine.MoveTo(147936, -55368, -2760); //возле гк
end;
if user.inrange(148560, -55904, -2776, 250, 150) //площадь справа от лестницы
then
begin
Engine.MoveTo(147936, -55368, -2760); //возле гк
end;
if user.inrange(149872, -57424, -2976, 250, 150)
then
begin
Engine.MoveTo(149897, -56910, -2979);
Engine.MoveTo(149230, -56412, -2779);
Engine.MoveTo(147939, -55999, -2772);
Engine.MoveTo(147936, -55368, -2760); //возле гк
end;
if user.inrange(144960, -56224, -2976, 250, 150)
then
begin
Engine.MoveTo(145458, -56853, -2979);
Engine.MoveTo(146343, -56326, -2779);
Engine.MoveTo(147625, -55995, -2772);
Engine.MoveTo(147936, -55368, -2760); //возле гк
end;
if user.inrange(144496, -55088, -2976, 250, 150)
then
begin
Engine.MoveTo(145327, -56873, -2979);
Engine.MoveTo(146337, -56445, -2779);
Engine.MoveTo(147533, -55963, -2766);
Engine.MoveTo(147936, -55368, -2760); //возле гк
end;
if user.inrange(145392, -56960, -2976, 250, 150)
then
begin
Engine.MoveTo(146347, -56305, -2779);
Engine.MoveTo(147514, -56003, -2772);
Engine.MoveTo(147936, -55368, -2760); //возле гк
end;
if User.inrange(38608,-47168,896, 250, 150)
or User.inrange(38272,-49008,896, 250, 150)
or User.inrange(38752,-47792,896, 250, 150)
or User.inrange(38112,-49792,896, 250, 150)
or User.inrange(38848,-48640,896, 250, 150) then begin
Engine.MoveTo(39113,-48225,898);
Engine.MoveTo(38294,-48089,898);

Engine.SetTarget(31698);
Engine.DlgOpen;
Engine.DlgSel(1);
Engine.DlgSel(1);
Engine.CancelTarget;
Delay(3000);

Engine.MoveTo(39522,-48234,-784);
Engine.MoveTo(41591,-48221,-801);
Engine.MoveTo(43323,-48185,-795);
Engine.MoveTo(43827,-47698,-794);
end;
if User.inrange(44368,-50592,-792, 250, 150) then begin
Engine.MoveTo(44368,-50592,-792);
Engine.MoveTo(43997,-49427,-795);
Engine.MoveTo(43831,-48480,-795);
Engine.MoveTo(43827,-47698,-794);
end;
if User.inrange(44864,-47824,-792, 250, 150) then begin
Engine.MoveTo(44864,-47824,-792);
Engine.MoveTo(44025,-47893,-795);
Engine.MoveTo(43827,-47698,-794);
end;
if User.inrange(43536,-50416,-792, 250, 150) then begin
Engine.MoveTo(43536,-50416,-792);
Engine.MoveTo(43833,-49293,-795);
Engine.MoveTo(43847,-48397,-795);
Engine.MoveTo(43827,-47698,-794);
end;
if User.inrange(45632,-47968,-792, 250, 150) then begin
Engine.MoveTo(45632,-47968,-792);
Engine.MoveTo(44070,-47930,-795);
Engine.MoveTo(43827,-47698,-794);
end;
if User.inrange(45824,-49056,-792, 250, 150) then begin
Engine.MoveTo(45824,-49056,-792);
Engine.MoveTo(46022,-48351,-795);
Engine.MoveTo(45441,-48000,-795);
Engine.MoveTo(44189,-47900,-795);
Engine.MoveTo(43827,-47698,-794);
end;
if User.inrange(44000,-49952,-792, 250, 150) then begin
Engine.MoveTo(44000,-49952,-792);
Engine.MoveTo(43862,-48669,-795);
Engine.MoveTo(43827,-47698,-794);
end;
if User.inrange(43792,-48928,-792, 250, 150) then begin
Engine.MoveTo(43792,-48928,-792);
Engine.MoveTo(43827,-47698,-794);
end;
if User.inrange(45072,-49936,-792, 250, 150) then begin
Engine.MoveTo(45072,-49936,-792);
Engine.MoveTo(44258,-49647,-795);
Engine.MoveTo(43864,-48552,-795);
Engine.MoveTo(43827,-47698,-794);
end;
if User.inrange(43408,-51120,-792, 250, 150) then begin
Engine.MoveTo(43408,-51120,-792);
Engine.MoveTo(43805,-49830,-795);
Engine.MoveTo(43870,-48626,-795);
Engine.MoveTo(43827,-47698,-794);
end;
if User.inrange(43744,-47920,-792, 250, 150) then begin
Engine.MoveTo(43744,-47920,-792);
Engine.MoveTo(43827,-47698,-794);

Engine.SetTarget (31320);
delay(5000);
Engine.DlgOpen();
Engine.DlgSel (4);
Engine.DlgSel (13);
Engine.FaceControl (0,false);
Engine.MoveTo(123389, -74903, -2896);
Engine.MoveTo(123078, -74866, -2888);
Engine.MoveTo(122776, -74851, -2880);
Engine.MoveTo(122545, -74849, -2880);
Engine.MoveTo(122397, -74849, -2920);
Engine.MoveTo(122198, -74849, -2984);
Engine.MoveTo(122133, -74849, -3008);
Engine.MoveTo(122054, -74853, -3032);
Engine.MoveTo(121992, -74853, -3056);
Engine.MoveTo(121913, -74854, -3080);
Engine.MoveTo(121839, -74856, -3112);
Engine.MoveTo(121770, -74856, -3128);
Engine.MoveTo(121691, -74859, -3160);
Engine.MoveTo(121613, -74859, -3184);
Engine.MoveTo(121483, -74860, -3224);
Engine.MoveTo(121348, -74861, -3264);
Engine.MoveTo(121271, -74869, -3264);
Engine.MoveTo(121180, -74881, -3264);
Engine.MoveTo(121086, -74905, -3264);
Engine.MoveTo(120955, -74953, -3264);
Engine.MoveTo(120848, -75033, -3264);
Engine.MoveTo(120777, -75113, -3264);
Engine.MoveTo(120790, -75140, -3264);
Engine.MoveTo(120738, -75240, -3264);
Engine.MoveTo(120759, -75347, -3264);
Engine.MoveTo(120786, -75471, -3264);
Engine.MoveTo(120810, -75671, -3264);
Engine.MoveTo(120821, -75807, -3264);
Engine.MoveTo(120839, -75932, -3264);
Engine.MoveTo(120845, -76082, -3264);
Engine.MoveTo(120819, -76179, -3264);
Engine.MoveTo(120759, -76280, -3264);
Engine.MoveTo(120696, -76336, -3264);
Engine.MoveTo(120591, -76351, -3264);
Engine.MoveTo(120446, -76370, -3264);
Engine.MoveTo(120189, -76401, -3264);
Engine.MoveTo(120074, -76401, -3264);
Engine.MoveTo(120010, -76400, -3264);
Engine.MoveTo(119979, -76401, -3264);
Engine.MoveTo(119742, -76389, -3368);
Engine.MoveTo(119624, -76399, -3392);
Engine.MoveTo(119543, -76409, -3392);
Engine.MoveTo(119405, -76403, -3392);
Engine.MoveTo(119207, -76408, -3392);
Engine.MoveTo(119053, -76418, -3392);
Engine.MoveTo(118910, -76418, -3392);
Engine.MoveTo(118736, -76412, -3392);
Engine.MoveTo(118549, -76414, -3392);
Engine.MoveTo(118413, -76416, -3392);
Engine.MoveTo(118283, -76414, -3392);
Engine.MoveTo(118167, -76425, -3392);
Engine.MoveTo(118052, -76469, -3392);
Engine.MoveTo(117954, -76539, -3392);
Engine.MoveTo(117870, -76675, -3392);
Engine.MoveTo(117863, -76770, -3392);
Engine.MoveTo(117884, -76924, -3392);
Engine.MoveTo(117949, -77025, -3392);
Engine.MoveTo(118066, -77117, -3392);
Engine.MoveTo(118125, -77236, -3392);
Engine.MoveTo(118143, -77329, -3392);
Engine.MoveTo(118134, -77457, -3392);
Engine.MoveTo(118082, -77575, -3392);
Engine.MoveTo(117973, -77725, -3392);
Engine.MoveTo(117896, -77751, -3392);
Engine.MoveTo(117775, -77775, -3392);
Engine.MoveTo(117644, -77803, -3392);
Engine.MoveTo(117480, -77804, -3392);
Engine.MoveTo(117348, -77779, -3392);
Engine.MoveTo(117208, -77697, -3392);
Engine.MoveTo(117070, -77599, -3392);
Engine.MoveTo(116958, -77539, -3392);
Engine.MoveTo(116857, -77487, -3392);
Engine.MoveTo(116708, -77401, -3392);
Engine.MoveTo(116549, -77311, -3392);
Engine.MoveTo(116420, -77246, -3392);
Engine.MoveTo(116269, -77165, -3392);
Engine.MoveTo(116157, -77111, -3392);
Engine.MoveTo(116021, -77047, -3392);
Engine.MoveTo(115870, -77011, -3392);
Engine.MoveTo(115664, -77032, -3392);
Engine.MoveTo(115506, -77085, -3392);
Engine.MoveTo(115410, -77152, -3392);
Engine.MoveTo(115329, -77277, -3392);
Engine.MoveTo(115299, -77389, -3392);
Engine.MoveTo(115285, -77515, -3392);
Engine.MoveTo(115325, -77635, -3392);
Engine.MoveTo(115383, -77838, -3392);
Engine.MoveTo(115405, -78034, -3392);
Engine.MoveTo(115438, -78269, -3392);
Engine.MoveTo(115491, -78422, -3392);
Engine.MoveTo(115534, -78583, -3392);
Engine.MoveTo(115642, -78625, -3392);
Engine.MoveTo(115894, -78669, -3392);
Engine.MoveTo(116126, -78709, -3392);
Engine.MoveTo(116276, -78762, -3392);
Engine.MoveTo(116355, -78849, -3392);
Engine.MoveTo(116404, -78948, -3392);
Engine.MoveTo(116408, -79042, -3392);
Engine.MoveTo(116358, -79106, -3392);
Engine.MoveTo(116276, -79217, -3392);
Engine.MoveTo(116158, -79323, -3392);
Engine.MoveTo(116067, -79402, -3392);
Engine.MoveTo(115964, -79603, -3392);
Engine.MoveTo(115961, -79813, -3392);
Engine.FaceControl (0,true);

end;
if user.inrange (147936, -55368, -2760, 2500, 1500)then begin
BuffCheck;
delay(2550);
Engine.SetTarget (31275);
delay(5000);
Engine.DlgOpen();
Engine.DlgSel (4);
Engine.DlgSel (4);
delay(5000);
Engine.FaceControl (0,false);
Engine.MoveTo(123389, -74903, -2896);
Engine.MoveTo(123078, -74866, -2888);
Engine.MoveTo(122776, -74851, -2880);
Engine.MoveTo(122545, -74849, -2880);
Engine.MoveTo(122397, -74849, -2920);
Engine.MoveTo(122198, -74849, -2984);
Engine.MoveTo(122133, -74849, -3008);
Engine.MoveTo(122054, -74853, -3032);
Engine.MoveTo(121992, -74853, -3056);
Engine.MoveTo(121913, -74854, -3080);
Engine.MoveTo(121839, -74856, -3112);
Engine.MoveTo(121770, -74856, -3128);
Engine.MoveTo(121691, -74859, -3160);
Engine.MoveTo(121613, -74859, -3184);
Engine.MoveTo(121483, -74860, -3224);
Engine.MoveTo(121348, -74861, -3264);
Engine.MoveTo(121271, -74869, -3264);
Engine.MoveTo(121180, -74881, -3264);
Engine.MoveTo(121086, -74905, -3264);
Engine.MoveTo(120955, -74953, -3264);
Engine.MoveTo(120848, -75033, -3264);
Engine.MoveTo(120777, -75113, -3264);
Engine.MoveTo(120790, -75140, -3264);
Engine.MoveTo(120738, -75240, -3264);
Engine.MoveTo(120759, -75347, -3264);
Engine.MoveTo(120786, -75471, -3264);
Engine.MoveTo(120810, -75671, -3264);
Engine.MoveTo(120821, -75807, -3264);
Engine.MoveTo(120839, -75932, -3264);
Engine.MoveTo(120845, -76082, -3264);
Engine.MoveTo(120819, -76179, -3264);
Engine.MoveTo(120759, -76280, -3264);
Engine.MoveTo(120696, -76336, -3264);
Engine.MoveTo(120591, -76351, -3264);
Engine.MoveTo(120446, -76370, -3264);
Engine.MoveTo(120189, -76401, -3264);
Engine.MoveTo(120074, -76401, -3264);
Engine.MoveTo(120010, -76400, -3264);
Engine.MoveTo(119979, -76401, -3264);
Engine.MoveTo(119742, -76389, -3368);
Engine.MoveTo(119624, -76399, -3392);
Engine.MoveTo(119543, -76409, -3392);
Engine.MoveTo(119405, -76403, -3392);
Engine.MoveTo(119207, -76408, -3392);
Engine.MoveTo(119053, -76418, -3392);
Engine.MoveTo(118910, -76418, -3392);
Engine.MoveTo(118736, -76412, -3392);
Engine.MoveTo(118549, -76414, -3392);
Engine.MoveTo(118413, -76416, -3392);
Engine.MoveTo(118283, -76414, -3392);
Engine.MoveTo(118167, -76425, -3392);
Engine.MoveTo(118052, -76469, -3392);
Engine.MoveTo(117954, -76539, -3392);
Engine.MoveTo(117870, -76675, -3392);
Engine.MoveTo(117863, -76770, -3392);
Engine.MoveTo(117884, -76924, -3392);
Engine.MoveTo(117949, -77025, -3392);
Engine.MoveTo(118066, -77117, -3392);
Engine.MoveTo(118125, -77236, -3392);
Engine.MoveTo(118143, -77329, -3392);
Engine.MoveTo(118134, -77457, -3392);
Engine.MoveTo(118082, -77575, -3392);
Engine.MoveTo(117973, -77725, -3392);
Engine.MoveTo(117896, -77751, -3392);
Engine.MoveTo(117775, -77775, -3392);
Engine.MoveTo(117644, -77803, -3392);
Engine.MoveTo(117480, -77804, -3392);
Engine.MoveTo(117348, -77779, -3392);
Engine.MoveTo(117208, -77697, -3392);
Engine.MoveTo(117070, -77599, -3392);
Engine.MoveTo(116958, -77539, -3392);
Engine.MoveTo(116857, -77487, -3392);
Engine.MoveTo(116708, -77401, -3392);
Engine.MoveTo(116549, -77311, -3392);
Engine.MoveTo(116420, -77246, -3392);
Engine.MoveTo(116269, -77165, -3392);
Engine.MoveTo(116157, -77111, -3392);
Engine.MoveTo(116021, -77047, -3392);
Engine.MoveTo(115870, -77011, -3392);
Engine.MoveTo(115664, -77032, -3392);
Engine.MoveTo(115506, -77085, -3392);
Engine.MoveTo(115410, -77152, -3392);
Engine.MoveTo(115329, -77277, -3392);
Engine.MoveTo(115299, -77389, -3392);
Engine.MoveTo(115285, -77515, -3392);
Engine.MoveTo(115325, -77635, -3392);
Engine.MoveTo(115383, -77838, -3392);
Engine.MoveTo(115405, -78034, -3392);
Engine.MoveTo(115438, -78269, -3392);
Engine.MoveTo(115491, -78422, -3392);
Engine.MoveTo(115534, -78583, -3392);
Engine.MoveTo(115642, -78625, -3392);
Engine.MoveTo(115894, -78669, -3392);
Engine.MoveTo(116126, -78709, -3392);
Engine.MoveTo(116276, -78762, -3392);
Engine.MoveTo(116355, -78849, -3392);
Engine.MoveTo(116404, -78948, -3392);
Engine.MoveTo(116408, -79042, -3392);
Engine.MoveTo(116358, -79106, -3392);
Engine.MoveTo(116276, -79217, -3392);
Engine.MoveTo(116158, -79323, -3392);
Engine.MoveTo(116067, -79402, -3392);
Engine.MoveTo(115964, -79603, -3392);
Engine.MoveTo(115961, -79813, -3392);

end;
Engine.FaceControl (0,true);
end;
delay(550);
end;

begin
tp;
end.
Engine.MoveTo(116067, -79402, -3392);
Engine.MoveTo(115964, -79603, -3392);
Engine.MoveTo(115961, -79813, -3392);

end;
Engine.FaceControl (0,true);
end;
delay(550);
end;

begin
tp;
end.

Kac · 10 Июн 2017

А в каких комнатах он там фармит? Интересно знать, чтобы если что запускать на х50-х100

STRARRY · 11 Июн 2017

такойже вопрос где фармит он

ФАРМ мос x1200 fange

jOKER3245

Kac

STRARRY