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

кач 1-80 лвл

S

sasha282

Рег
2 Мар 2016
Сообщения
234
Реакции
0
Скрипт требует доработки.
Нужно переписать процедуру бафа, можна заменить процедуру soe (команду /unstuck) на :
procedure SoE();
begin
Engine.UseItem(10650); использовать сое, которое дается при рождении. Можете заменить ИД на простое сое.
end;

//---------------------------------------------------
// Buff
//---------------------------------------------------
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(31360);
delay(500);
Engine.DlgOpen();
delay(500);
s:=Engine.DlgText;
b:=true;
i:=1;
while b do
begin
Delete(s,1,Pos(' mass:=Copy(s,1,Pos('>',s));
Delete(s,1,Length(mass));
inc(i);
if Pos(' 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;
procedure Buffer();
begin
engine.SetTarget(31360);
delay(500);
Engine.DlgOpen();
delay(500);
buff('Warrior');
delay(2000);
end;
//---------------------------------------------------
//Вкл\Выкл Адреналин
//---------------------------------------------------
//---------------------------------------------------
//Точки спавна + путь к ГК
//---------------------------------------------------
procedure Town();
begin
//---------------------------------------------------
//Гномья Деревня
//---------------------------------------------------
if (User.Level<=80) then
begin
//---------------------------------------------------
if user.InRange(108548, -174034, -408,1000,1000) then
begin
Engine.MoveTo(109321, -174087, -552);
Engine.MoveTo(110542, -173709, -544);
Engine.MoveTo(112217, -173590, -608);
Engine.MoveTo(113332, -174632, -608);
Engine.MoveTo(113614, -175777, -672);
Engine.MoveTo(114148, -176299, -736);
Engine.MoveTo(115027, -176560, -784);
Engine.MoveTo(115440, -178250, -928);
Engine.MoveTo(115109, -178174, -896);
end;
//---------------------------------------------------
if user.InRange(115109, -178174, -896,500,500) then
begin
Engine.MoveTo(115109, -178174, -896);
end;
if user.InRange(115248,-178816,-912,500,500) then
begin
Engine.MoveTo(115191, -178162, -896);
Engine.MoveTo(115109, -178174, -896);
end;
if user.InRange(116738,-181494,-1392,500,500) then
begin
Engine.MoveTo(116676, -180285, -1200);
Engine.MoveTo(116176, -179344, -1072);
Engine.MoveTo(115429, -178611, -936);
Engine.MoveTo(115109, -178174, -896);
end;
if user.InRange(116476,-182904,-1536,500,500) then
begin
Engine.MoveTo(116625, -181672, -1448);
Engine.MoveTo(116681, -180398, -1216);
Engine.MoveTo(116484, -179615, -1128);
Engine.MoveTo(115525, -178743, -952);
Engine.MoveTo(115109, -178174, -896);
end;
if user.InRange(115485,-178077,-912,500,500) then
begin
Engine.MoveTo(115109, -178174, -896);
end;
if user.InRange(115271,-178561,-912,500,500) then
begin
Engine.MoveTo(115109, -178174, -896);
end;
if user.InRange(115271,-178561,-912,500,500) then
begin
Engine.MoveTo(115109, -178174, -896);
end;
if user.InRange(116176,-182448,-1488,500,500) then
begin
Engine.MoveTo(116613, -181591, -1424);
Engine.MoveTo(116673, -180212, -1200);
Engine.MoveTo(115676, -178823, -968);
Engine.MoveTo(115109, -178174, -896);
end;
if user.InRange(116352,-179264,-1072,500,500) then
begin
Engine.MoveTo(115470, -178880, -960);
Engine.MoveTo(115109, -178174, -896);
end;
if user.InRange(116321,-182734,-1504,500,500) then
begin
Engine.MoveTo(116638, -181736, -1448);
Engine.MoveTo(116713, -180127, -1184);
Engine.MoveTo(115597, -178764, -952);
Engine.MoveTo(115109, -178174, -896);
end;
if user.InRange(116507,-179597,-1120,500,500) then
begin
Engine.MoveTo(115419, -178814, -936);
Engine.MoveTo(115109, -178174, -896);
end;
if user.InRange(116725,-180147,-1168,500,500) then
begin
Engine.MoveTo(115669, -178854, -968);
Engine.MoveTo(115109, -178174, -896);
end;
if user.InRange(115790,-179146,-976,500,500) then
begin
Engine.MoveTo(115109, -178174, -896);
end;
end;
//---------------------------------------------------
//Эльфы
//---------------------------------------------------
if (User.Level<=80) then
begin
//---------------------------------------------------
if user.InRange(46076, 41246, -3504,1000,1000) then
begin
Engine.MoveTo(46057, 42013, -3472);
Engine.MoveTo(45941, 43246, -3264);
Engine.MoveTo(45794, 44812, -3072);
Engine.MoveTo(45628, 46545, -2992);
Engine.MoveTo(45585, 47241, -2992);
Engine.MoveTo(46787, 47929, -2992);
Engine.MoveTo(47457, 48874, -2992);
Engine.MoveTo(47456, 50359, -2999);
Engine.MoveTo(47007, 51043, -2992);
Engine.MoveTo(46915, 51475, -2976);
end;
//---------------------------------------------------
if User.inrange(45256, 49416, -3064, 3800, 3800) then
begin
Engine.MoveTo(45510, 48392, -3056);
Engine.MoveTo(46339, 49810, -3056);
Engine.MoveTo(47017, 50705, -2992);
Engine.MoveTo(46915, 51475, -2976);
end;
end;
//---------------------------------------------------
//Темные эльфы
//---------------------------------------------------
if (User.Level<=80) then
begin
//---------------------------------------------------
if user.InRange(28344, 11031, -4232,1000,1000) then
begin
Engine.MoveTo(27913, 11048, -4232);
Engine.MoveTo(27292, 11042, -3992);
Engine.MoveTo(26514, 11031, -3736);
Engine.MoveTo(24487, 11047, -3720);
Engine.MoveTo(22403, 11112, -3720);
Engine.MoveTo(20792, 11732, -3720);
Engine.MoveTo(19424, 12320, -3720);
Engine.MoveTo(17224, 13250, -3736);
Engine.MoveTo(16278, 13703, -3704);
Engine.MoveTo(15891, 14315, -3784);
Engine.MoveTo(16304, 14916, -4000);
Engine.MoveTo(16757, 15024, -4120);
Engine.MoveTo(16789, 15596, -4256);
Engine.MoveTo(16109, 15763, -4376);
Engine.MoveTo(15020, 16009, -4376);
Engine.MoveTo(13628, 16340, -4584);
Engine.MoveTo(12097, 16391, -4588);
Engine.MoveTo(11551, 16056, -4568);
Engine.MoveTo(10904, 16195, -4568);
Engine.MoveTo(10272, 17115, -4584);
Engine.MoveTo(10077, 16673, -4568);
Engine.MoveTo(9709, 15561, -4568);
end;
//---------------------------------------------------
if user.inrange (11368, 16808, -4656,3000,3000) then
begin
Engine.MoveTo(11372, 16705, -4656);
Engine.MoveTo(10629, 17040, -4584);
Engine.MoveTo(10111, 16694, -4568);
Engine.MoveTo(9709, 15561, -4568);
end;
end;
//---------------------------------------------------
//Орки
//---------------------------------------------------
if (User.Level<=80) then
begin
//---------------------------------------------------
if user.InRange (-56662,-113611,-672,1000,1000) then
begin
Engine.MoveTo(-56499, -113629, -672);
Engine.MoveTo(-55774, -113624, -672);
Engine.MoveTo(-55140, -113621, -672);
Engine.MoveTo(-54261, -113617, -392);
Engine.MoveTo(-53352, -113620, -88);
Engine.MoveTo(-51875, -113612, -80);
Engine.MoveTo(-50520, -113611, -168);
Engine.MoveTo(-49406, -113612, -232);
Engine.MoveTo(-48146, -113614, -232);
Engine.MoveTo(-47321, -113607, -232);
Engine.MoveTo(-45921, -113610, -200);
Engine.MoveTo(-45280, -113596, -232);
Engine.MoveTo(-45193, -113179, -240);
Engine.MoveTo(-44985, -112925, -242);
Engine.MoveTo(-45034, -112538, -242);
Engine.MoveTo(-45232, -112516, -242);
end;
//---------------------------------------------------
if user.inrange (-44316,-113136,-80,500,500) then
begin
Engine.MoveTo(-45232, -112516, -242);
end;
if user.inrange (-44310,-114037,-75,500,500) then
begin
Engine.MoveTo(-44318, -113082, -240);
Engine.MoveTo(-45232, -112516, -242);
end;
if user.inrange (-44704,-112896,-80,500,500) then
begin
Engine.MoveTo(-45232, -112516, -242);
end;
if user.inrange (-44720,-114304,-80,500,500) then
begin
Engine.MoveTo(-44203, -113560, -240);
Engine.MoveTo(-44485, -112853, -242);
Engine.MoveTo(-45232, -112516, -242);
end;
if user.inrange (-44206,-113392,-80,500,500) then
begin
Engine.MoveTo(-45232, -112516, -242);
end;
if user.inrange (-43970,-114150,-80,500,500) then
begin
Engine.MoveTo(-44211, -112940, -240);
Engine.MoveTo(-45232, -112516, -242);
end;
if user.inrange (-44328,-114625,-80,500,500) then
begin
Engine.MoveTo(-44174, -113354, -240);
Engine.MoveTo(-45232, -112516, -242);
end;
if user.inrange (-44884,-115063,-80,500,500) then
begin
Engine.MoveTo(-44338, -113947, -240);
Engine.MoveTo(-44222, -113084, -242);
Engine.MoveTo(-45232, -112516, -242);
end;
if user.inrange (-44923,-114659,-80,500,500) then
begin
Engine.MoveTo(-44270, -113771, -240);
Engine.MoveTo(-44380, -113047, -242);
Engine.MoveTo(-45232, -112516, -242);
end;
if user.inrange (-44232,-113701,-80,500,500) then
begin
Engine.MoveTo(-44467, -113052, -240);
Engine.MoveTo(-45232, -112516, -242);
end;
if user.inrange (-44596,-112956,-80,500,500) then
begin
Engine.MoveTo(-45232, -112516, -242);
end;
if user.inrange (-44987,-112394,-80,500,500) then
begin
Engine.MoveTo(-45232, -112516, -242);
end;
if user.inrange (-45498,-111800,-80,500,500) then
begin
Engine.MoveTo(-44947, -112511, -240);
Engine.MoveTo(-45232, -112516, -242);
end;
if user.inrange (-44637,-112373,-80,500,500) then
begin
Engine.MoveTo(-45232, -112516, -242);
end;
if user.inrange (-44189,-113065,-80,500,500) then
begin
Engine.MoveTo(-45232, -112516, -242);
end;
if user.inrange (-44048,-113463,-80,500,500) then
begin
Engine.MoveTo(-45232, -112516, -242);
end;
end;
//---------------------------------------------------
//Остров Людей
//---------------------------------------------------
if (User.Level<=80) then
begin
//---------------------------------------------------
if user.InRange(-71430, 258287, -3111,1000,1000) then
begin
Engine.MoveTo(-71553, 258156, -3111);
Engine.MoveTo(-72103, 257496, -3112);
Engine.MoveTo(-72863, 256612, -3120);
Engine.MoveTo(-74625, 254688, -3280);
Engine.MoveTo(-76295, 252528, -3336);
Engine.MoveTo(-77729, 250844, -3416);
Engine.MoveTo(-79594, 248645, -3584);
Engine.MoveTo(-80899, 247008, -3664);
Engine.MoveTo(-82499, 244833, -3720);
Engine.MoveTo(-83175, 244633, -3728);
Engine.MoveTo(-83738, 244736, -3728);
Engine.MoveTo(-84149, 244598, -3728);
end;
if user.InRange(-90957, 248070, -3568,1000,1000) then
begin
Engine.MoveTo(-90139, 248613, -3568);
Engine.MoveTo(-88609, 248897, -3568);
Engine.MoveTo(-88180, 249222, -3568);
Engine.MoveTo(-87541, 250377, -3624);
Engine.MoveTo(-86062, 250970, -3584);
Engine.MoveTo(-84082, 251249, -3640);
Engine.MoveTo(-83002, 250281, -3664);
Engine.MoveTo(-82118, 248049, -3672);
Engine.MoveTo(-81999, 245941, -3696);
Engine.MoveTo(-82549, 244785, -3720);
Engine.MoveTo(-83200, 244660, -3732);
Engine.MoveTo(-83748, 244743, -3728);
Engine.MoveTo(-84149, 244598, -3728);
end;
//---------------------------------------------------
if User.inrange(-84756, 242155, -3712,500,500) then
begin
Engine.MoveTo(-84732, 243097, -3728);
Engine.MoveTo(-85062, 243954, -3728);
Engine.MoveTo(-84149, 244598, -3728);
end;
if User.inrange(-83990, 243336, -3712,500,500) then
begin
Engine.MoveTo(-84597, 243360, -3728);
Engine.MoveTo(-85177, 243906, -3728);
Engine.MoveTo(-84149, 244598, -3728);
end;
if User.inrange(-83646, 243397, -3712,500,500) then
begin
Engine.MoveTo(-84637, 243356, -3728);
Engine.MoveTo(-85216, 244066, -3728);
Engine.MoveTo(-84149, 244598, -3728);
end;
if User.inrange(-83808, 243637, -3712,500,500) then
begin
Engine.MoveTo(-84634, 243297, -3728);
Engine.MoveTo(-85164, 244006, -3728);
Engine.MoveTo(-84149, 244598, -3728);
end;
if User.inrange(-84903, 243489, -3712,500,500) then
begin
Engine.MoveTo(-85115, 244048, -3728);
Engine.MoveTo(-84149, 244598, -3728);
end;
if User.inrange(-83537, 242537, -3712,500,500) then
begin
Engine.MoveTo(-84075, 243343, -3728);
Engine.MoveTo(-84745, 243424, -3728);
Engine.MoveTo(-85165, 244027, -3728);
Engine.MoveTo(-84149, 244598, -3728);
end;
if User.inrange(-84852, 243174, -3712,500,500) then
begin
Engine.MoveTo(-85116, 243958, -3728);
Engine.MoveTo(-84149, 244598, -3728);
end;
if User.inrange(-84623, 243193, -3712,500,500) then
begin
Engine.MoveTo(-85166, 243985, -3728);
Engine.MoveTo(-84149, 244598, -3728);
end;
if User.inrange(-84512, 242679, -3712,500,500) then
begin
Engine.MoveTo(-85158, 243990, -3728);
Engine.MoveTo(-84149, 244598, -3728);
end;
if User.inrange(-84892, 242479, -3712,500,500) then
begin
Engine.MoveTo(-84657, 243134, -3728);
Engine.MoveTo(-85132, 244037, -3728);
Engine.MoveTo(-84149, 244598, -3728);
end;
if User.inrange(-83964, 242680, -3712,500,500) then
begin
Engine.MoveTo(-84527, 242745, -3728);
Engine.MoveTo(-85105, 244035, -3728);
Engine.MoveTo(-84149, 244598, -3728);
end;
if User.inrange(-83742, 242214, -3712,500,500) then
begin
Engine.MoveTo(-84566, 242785, -3728);
Engine.MoveTo(-85134, 244050, -3728);
Engine.MoveTo(-84149, 244598, -3728);
end;
if User.inrange(-83700, 242896, -3712,500,500) then
begin
Engine.MoveTo(-84418, 242656, -3728);
Engine.MoveTo(-85110, 244013, -3728);
Engine.MoveTo(-84149, 244598, -3728);
end;
end;
//---------------------------------------------------
//Глудин
//---------------------------------------------------
if (User.Level<=80) then
begin
if User.inrange(-82909,150357,-3120,500,500) then
begin
Engine.MoveTo(-81648, 150374, -3120);
Engine.MoveTo(-80879, 150044, -3040);
Engine.MoveTo(-80789, 149798, -3040);
end;
if User.inrange(-83520,150560,-3120,500,500) then
begin
Engine.MoveTo(-82191, 150414, -3120);
Engine.MoveTo(-80994, 150079, -3040);
Engine.MoveTo(-80789, 149798, -3040);
end;
if User.inrange(-82195,150489,-3120,500,500) then
begin
Engine.MoveTo(-80972, 150059, -3040);
Engine.MoveTo(-80789, 149798, -3040);
end;
if User.inrange(-80053,154348,-3168,500,500) then
begin
Engine.MoveTo(-80891, 152811, -3168);
Engine.MoveTo(-83041, 152670, -3168);
Engine.MoveTo(-83029, 152255, -3120);
Engine.MoveTo(-82461, 150809, -3120);
Engine.MoveTo(-81016, 150057, -3040);
Engine.MoveTo(-80789, 149798, -3040);
end;
if User.inrange(-82035,152647,-3168,500,500) then
begin
Engine.MoveTo(-83023, 152640, -3168);
Engine.MoveTo(-83029, 152255, -3120);
Engine.MoveTo(-82461, 150809, -3120);
Engine.MoveTo(-81016, 150057, -3040);
Engine.MoveTo(-80789, 149798, -3040);
end;
if User.inrange(-83529,151205,-3120,500,500) then
begin
Engine.MoveTo(-82350, 150681, -3120);
Engine.MoveTo(-80902, 150015, -3040);
Engine.MoveTo(-80789, 149798, -3040);
end;
if User.inrange(-81721,151202,-3120,500,500) then
begin
Engine.MoveTo(-80960, 149995, -3040);
Engine.MoveTo(-80789, 149798, -3040);
end;
if User.inrange(-82575,151025,-3120,500,500) then
begin
Engine.MoveTo(-80994, 150083, -3040);
Engine.MoveTo(-80789, 149798, -3040);
end;
if User.inrange(-84064,150864,-3120,500,500) then
begin
Engine.MoveTo(-82566, 150542, -3120);
Engine.MoveTo(-80987, 150095, -3040);
Engine.MoveTo(-80789, 149798, -3040);
end;
if User.inrange(-82241,151163,-3120,500,500) then
begin
Engine.MoveTo(-81035, 150082, -3040);
Engine.MoveTo(-80789, 149798, -3040);
end;
if User.inrange(-81787,150780,-3120,500,500) then
begin
Engine.MoveTo(-80991, 150043, -3040);
Engine.MoveTo(-80789, 149798, -3040);
end;
end;
//---------------------------------------------------
//Глудио
//---------------------------------------------------
if (User.Level<=80) then
begin
if User.inrange(-14704,122032,-3056, 250, 150) then
begin
Engine.MoveTo(-14704,122032,-3056);
Engine.MoveTo(-14538,122671,-3116);
Engine.MoveTo(-14599,123458,-3113);
Engine.MoveTo(-12707, 122794, -3112);
end;
if User.inrange(-13709,123563,-3112, 250, 150) then
begin
Engine.MoveTo(-13709,123563,-3112);
Engine.MoveTo(-14115,123802,-3119);
Engine.MoveTo(-12707, 122794, -3112);
end;
if User.inrange(-14465,124434,-3120, 250, 150) then
begin
Engine.MoveTo(-14465,124434,-3120);
Engine.MoveTo(-12707, 122794, -3112);
end;
if User.inrange(-13513,123752,-3112, 250, 150) then
begin
Engine.MoveTo(-13513,123752,-3112);
Engine.MoveTo(-14245,123748,-3109);
Engine.MoveTo(-12707, 122794, -3112);
end;
if User.inrange(-15564,123896,-3112, 250, 150) then
begin
Engine.MoveTo(-15564,123896,-3112);
Engine.MoveTo(-14813,123869,-3124);
Engine.MoveTo(-12707, 122794, -3112);
end;
if User.inrange(-14288,122752,-3112, 250, 150) then
begin
Engine.MoveTo(-14288,122752,-3112);
Engine.MoveTo(-14525,123547,-3109);
Engine.MoveTo(-12707, 122794, -3112);
end;
if User.inrange(-15314,124131,-3112, 250, 150) then
begin
Engine.MoveTo(-15314,124131,-3112);
Engine.MoveTo(-14710,123973,-3122);
Engine.MoveTo(-12707, 122794, -3112);
end;
if User.inrange(-14592,123232,-3112, 250, 150) then
begin
Engine.MoveTo(-14592,123232,-3112);
Engine.MoveTo(-12707, 122794, -3112);
end;
end;
//---------------------------------------------------
//Дион
//---------------------------------------------------
if (User.Level<=80) then
begin
if User.inrange(19134,144847,-3096,500,500) then
begin
Engine.MoveTo(18334, 145628, -3120);
Engine.MoveTo(17423, 145399, -3064);
Engine.MoveTo(16702, 144573, -3000);
Engine.MoveTo(16082, 143495, -2816);
Engine.MoveTo(15666, 142916, -2696);
end;
if User.inrange(18954,144428,-3096,500,500) then
begin
Engine.MoveTo(18514, 145516, -3120);
Engine.MoveTo(17650, 145594, -3088);
Engine.MoveTo(16856, 144818, -3000);
Engine.MoveTo(16065, 143492, -2816);
Engine.MoveTo(15666, 142916, -2696);
end;
if User.inrange(19012,145140,-3120,500,500) then
begin
Engine.MoveTo(17964, 145799, -3104);
Engine.MoveTo(16946, 144923, -3016);
Engine.MoveTo(16104, 143443, -2800);
Engine.MoveTo(15666, 142916, -2696);
end;
if User.inrange(19613,145607,-3104,500,500) then
begin
Engine.MoveTo(17940, 145627, -3096);
Engine.MoveTo(16979, 145019, -3016);
Engine.MoveTo(16032, 143319, -2776);
Engine.MoveTo(15666, 142916, -2696);
end;
if User.inrange(18576,145136,-3104,500,500) then
begin
Engine.MoveTo(17780, 145690, -3088);
Engine.MoveTo(16857, 144803, -3000);
Engine.MoveTo(16090, 143383, -2800);
Engine.MoveTo(15666, 142916, -2696);
end;
if User.inrange(17398,145456,-3048,500,500) then
begin
Engine.MoveTo(16831, 144663, -3000);
Engine.MoveTo(16067, 143367, -2800);
Engine.MoveTo(15666, 142916, -2696);
end;
if User.inrange(17144,145055,-3024,500,500) then
begin
Engine.MoveTo(16574, 144249, -2976);
Engine.MoveTo(15954, 143243, -2752);
Engine.MoveTo(15666, 142916, -2696);
end;
if User.inrange(18078,145925,-3112,500,500) then
begin
Engine.MoveTo(17043, 145068, -3032);
Engine.MoveTo(16587, 144198, -2976);
Engine.MoveTo(15981, 143204, -2744);
Engine.MoveTo(15666, 142916, -2696);
end;
if User.inrange(19150,143941,-3056,500,500) then
begin
Engine.MoveTo(18773, 145162, -3120);
Engine.MoveTo(17787, 145734, -3088);
Engine.MoveTo(16829, 144800, -3000);
Engine.MoveTo(16227, 143520, -2840);
Engine.MoveTo(15666, 142916, -2696);
end;
if User.inrange(18512,145536,-3120,500,500) then
begin
Engine.MoveTo(17554, 145582, -3080);
Engine.MoveTo(16871, 144776, -3000);
Engine.MoveTo(16076, 143284, -2776);
Engine.MoveTo(15666, 142916, -2696);
end;
if User.inrange(18717,145711,-3080,500,500) then
begin
Engine.MoveTo(17447, 145480, -3072);
Engine.MoveTo(16781, 144675, -3000);
Engine.MoveTo(15984, 143195, -2752);
Engine.MoveTo(15666, 142916, -2696);
end;
end;
//---------------------------------------------------
//Гиран
//---------------------------------------------------
if (User.Level<=80) then
begin
if User.inrange(81376,148095,-3464,500,500) then
begin
Engine.MoveTo(81300, 147797, -3464);
Engine.MoveTo(82833, 147816, -3464);
Engine.MoveTo(82850, 147999, -3464);
Engine.MoveTo(83364, 147941, -3400);
end;
if User.inrange(82292,149450,-3464,500,500) then
begin
Engine.MoveTo(82819, 149359, -3464);
Engine.MoveTo(82839, 148036, -3464);
Engine.MoveTo(83364, 147941, -3400);
end;
if User.inrange(81562,147782,-3464,500,500) then
begin
Engine.MoveTo(82787, 147812, -3464);
Engine.MoveTo(82818, 147990, -3464);
Engine.MoveTo(83364, 147941, -3400);
end;
if User.inrange(83409,148578,-3400,500,500) then
begin
Engine.MoveTo(83364, 147941, -3400);
end;
if User.inrange(81440,149119,-3464,500,500) then
begin
Engine.MoveTo(81541, 149427, -3464);
Engine.MoveTo(82794, 149405, -3464);
Engine.MoveTo(82832, 148074, -3464);
Engine.MoveTo(83364, 147941, -3400);
end;
if User.inrange(82496,148095,-3464,500,500) then
begin
Engine.MoveTo(82505, 147784, -3464);
Engine.MoveTo(82846, 147840, -3464);
Engine.MoveTo(82845, 147998, -3464);
Engine.MoveTo(83364, 147941, -3400);
end;
if User.inrange(83473,149223,-3400,500,500) then
begin
Engine.MoveTo(83364, 147941, -3400);
end;
if User.inrange(82272,147801,-3464,500,500) then
begin
Engine.MoveTo(82828, 147862, -3464);
Engine.MoveTo(82846, 147977, -3464);
Engine.MoveTo(83364, 147941, -3400);
end;
if User.inrange(82480,149087,-3464,500,500) then
begin
Engine.MoveTo(82836, 149020, -3464);
Engine.MoveTo(83437, 148906, -3400);
Engine.MoveTo(83364, 147941, -3400);
end;
if User.inrange(81637,149427,-3464,500,500) then
begin
Engine.MoveTo(82822, 149361, -3464);
Engine.MoveTo(82842, 148116, -3464);
Engine.MoveTo(83364, 147941, -3400);
end;
if User.inrange(81062,148144,-3464,500,500) then
begin
Engine.MoveTo(81084, 147799, -3464);
Engine.MoveTo(82871, 147837, -3464);
Engine.MoveTo(82859, 147997, -3464);
Engine.MoveTo(83364, 147941, -3400);
end;
if User.inrange(83426,148835,-3400,500,500) then
begin
Engine.MoveTo(83364, 147941, -3400);
end;
if User.inrange(81033,148883,-3464,500,500) then
begin
Engine.MoveTo(81089, 147847, -3464);
Engine.MoveTo(82805, 147826, -3472);
Engine.MoveTo(82820, 147994, -3464);
Engine.MoveTo(83364, 147941, -3400);
end;
if User.inrange(83415,148235,-3400,500,500) then
begin
Engine.MoveTo(83364, 147941, -3400);
end;
end;
//---------------------------------------------------
//Орен
//---------------------------------------------------
if (User.Level<=80) then
begin
if User.inrange(80334,54400,-1552,500,500) then
begin
Engine.MoveTo(81177, 53470, -1552);
Engine.MoveTo(82371, 53438, -1499);
Engine.MoveTo(82957, 53195, -1488);
end;
if User.inrange(82323,55466,-1520,500,500) then
begin
Engine.MoveTo(82336, 54296, -1496);
Engine.MoveTo(82753, 53576, -1488);
Engine.MoveTo(82957, 53195, -1488);
end;
if User.inrange(82123,53535,-1488,500,500) then
begin
Engine.MoveTo(82957, 53195, -1488);
end;
if User.inrange(80304,56241,-1552,500,500) then
begin
Engine.MoveTo(81304, 55748, -1520);
Engine.MoveTo(82242, 55279, -1520);
Engine.MoveTo(82367, 54259, -1496);
Engine.MoveTo(82753, 53567, -1488);
Engine.MoveTo(82957, 53195, -1488);
end;
if User.inrange(82445,56012,-1520,500,500) then
begin
Engine.MoveTo(82351, 54877, -1520);
Engine.MoveTo(82362, 54219, -1488);
Engine.MoveTo(82760, 53570, -1488);
Engine.MoveTo(82957, 53195, -1488);
end;
if User.inrange(80054,53209,-1552,500,500) then
begin
Engine.MoveTo(80648, 53627, -1560);
Engine.MoveTo(81176, 53486, -1552);
Engine.MoveTo(82420, 53462, -1488);
Engine.MoveTo(82957, 53195, -1488);
end;
if User.inrange(80513,52980,-1552,500,500) then
begin
Engine.MoveTo(80176, 52983, -1552);
Engine.MoveTo(80648, 53629, -1563);
Engine.MoveTo(81186, 53469, -1552);
Engine.MoveTo(82413, 53467, -1488);
Engine.MoveTo(82957, 53195, -1488);
end;
if User.inrange(80267,55497,-1552,500,500) then
begin
Engine.MoveTo(80591, 53998, -1552);
Engine.MoveTo(81190, 53488, -1552);
Engine.MoveTo(82416, 53425, -1488);
Engine.MoveTo(82957, 53195, -1488);
end;
if User.inrange(79933,55752,-1552,500,500) then
begin
Engine.MoveTo(80364, 55141, -1552);
Engine.MoveTo(80617, 53934, -1552);
Engine.MoveTo(81186, 53488, -1552);
Engine.MoveTo(82422, 53425, -1488);
Engine.MoveTo(82957, 53195, -1488);
end;
if User.inrange(80594,55837,-1552,500,500) then
begin
Engine.MoveTo(81375, 55623, -1520);
Engine.MoveTo(82212, 55338, -1520);
Engine.MoveTo(82368, 54268, -1496);
Engine.MoveTo(82758, 53577, -1488);
Engine.MoveTo(82957, 53195, -1488);
end;
if User.inrange(82213,53964,-1488,500,500) then
begin
Engine.MoveTo(82743, 53579, -1488);
Engine.MoveTo(82957, 53195, -1488);
end;
if User.inrange(83327,55410,-1520,500,500) then
begin
Engine.MoveTo(82731, 55685, -1520);
Engine.MoveTo(82303, 55067, -1520);
Engine.MoveTo(82357, 54239, -1488);
Engine.MoveTo(82772, 53566, -1488);
Engine.MoveTo(82957, 53195, -1488);
end;
if User.inrange(79706,52986,-1552,500,500) then
begin
Engine.MoveTo(80691, 53652, -1552);
Engine.MoveTo(81183, 53455, -1552);
Engine.MoveTo(82407, 53407, -1488);
Engine.MoveTo(82957, 53195, -1488);
end;
if User.inrange(82880,55390,-1520,500,500) then
begin
Engine.MoveTo(82619, 55644, -1520);
Engine.MoveTo(82330, 55003, -1520);
Engine.MoveTo(82364, 54272, -1488);
Engine.MoveTo(82755, 53582, -1488);
Engine.MoveTo(82957, 53195, -1488);
end;
if User.inrange(82552,53447,-1488,500,500) then
begin
Engine.MoveTo(82957, 53195, -1488);
end;
if User.inrange(82638,53885,-1488,500,500) then
begin
Engine.MoveTo(82957, 53195, -1488);
end;
end;
//---------------------------------------------------
//Аден
//---------------------------------------------------
if (User.Level<=80) then
begin
if User.inrange(146811,27109,-2231,500,500) then
begin
Engine.MoveTo(147314, 26505, -2200);
Engine.MoveTo(147308, 25999, -2008);
Engine.MoveTo(147097, 25807, -2008);
Engine.MoveTo(146795, 25803, -2008);
end;
if User.inrange(146810,28059,-2294,500,500) then
begin
Engine.MoveTo(147056, 27400, -2216);
Engine.MoveTo(147308, 26513, -2200);
Engine.MoveTo(147310, 25999, -2008);
Engine.MoveTo(147087, 25804, -2008);
Engine.MoveTo(146795, 25803, -2008);
end;
if User.inrange(145686,21112,-2167,500,500) then
begin
Engine.MoveTo(145786, 21688, -2136);
Engine.MoveTo(145005, 22567, -2136);
Engine.MoveTo(144993, 24031, -2136);
Engine.MoveTo(146348, 24354, -2008);
Engine.MoveTo(146367, 25794, -2008);
Engine.MoveTo(146795, 25803, -2008);
end;
if User.inrange(148076,27069,-2231,500,500) then
begin
Engine.MoveTo(147460, 26505, -2200);
Engine.MoveTo(147306, 25998, -2008);
Engine.MoveTo(147109, 25809, -2008);
Engine.MoveTo(146795, 25803, -2008);
end;
if User.inrange(148949,21125,-2167,500,500) then
begin
Engine.MoveTo(149029, 21631, -2136);
Engine.MoveTo(149904, 22578, -2136);
Engine.MoveTo(149910, 24207, -2136);
Engine.MoveTo(148509, 24365, -2008);
Engine.MoveTo(148505, 25770, -2008);
Engine.MoveTo(147385, 25796, -2008);
Engine.MoveTo(146795, 25803, -2008);
end;
if User.inrange(144549,22828,-2167,500,500) then
begin
Engine.MoveTo(145493, 24252, -2136);
Engine.MoveTo(146389, 24337, -2008);
Engine.MoveTo(146406, 25793, -2008);
Engine.MoveTo(146795, 25803, -2008);
end;
if User.inrange(144543,24666,-2167,500,500) then
begin
Engine.MoveTo(145492, 24252, -2136);
Engine.MoveTo(146339, 24253, -2008);
Engine.MoveTo(146403, 25794, -2008);
Engine.MoveTo(146795, 25803, -2008);
end;
if User.inrange(146497,30582,-2487,500,500) then
begin
Engine.MoveTo(147455, 29966, -2456);
Engine.MoveTo(147470, 29572, -2272);
Engine.MoveTo(147462, 28572, -2264);
Engine.MoveTo(147089, 27619, -2264);
Engine.MoveTo(147089, 27424, -2208);
Engine.MoveTo(147313, 26516, -2200);
Engine.MoveTo(147310, 26006, -2008);
Engine.MoveTo(147096, 25803, -2016);
Engine.MoveTo(146795, 25803, -2008);
end;
if User.inrange(144648,29158,-2487,500,500) then
begin
Engine.MoveTo(145001, 28794, -2448);
Engine.MoveTo(144999, 27623, -2264);
Engine.MoveTo(146236, 27628, -2200);
Engine.MoveTo(146837, 27393, -2216);
Engine.MoveTo(147307, 26525, -2200);
Engine.MoveTo(147304, 25998, -2008);
Engine.MoveTo(147063, 25802, -2008);
Engine.MoveTo(146795, 25803, -2008);
end;
if User.inrange(150247,29109,-2487,500,500) then
begin
Engine.MoveTo(149905, 28786, -2456);
Engine.MoveTo(149902, 27624, -2264);
Engine.MoveTo(148694, 27625, -2200);
Engine.MoveTo(148025, 27356, -2200);
Engine.MoveTo(147458, 26502, -2200);
Engine.MoveTo(147296, 26031, -2016);
Engine.MoveTo(147062, 25803, -2008);
Engine.MoveTo(146795, 25803, -2008);
end;
if User.inrange(147848,30309,-2487,500,500) then
begin
Engine.MoveTo(147460, 29955, -2456);
Engine.MoveTo(147451, 29542, -2264);
Engine.MoveTo(147456, 28410, -2264);
Engine.MoveTo(147019, 27599, -2256);
Engine.MoveTo(147022, 27385, -2216);
Engine.MoveTo(147310, 26519, -2200);
Engine.MoveTo(147309, 26016, -2016);
Engine.MoveTo(147096, 25804, -2008);
Engine.MoveTo(146795, 25803, -2008);
end;
if User.inrange(144651,26680,-2295,500,500) then
begin
Engine.MoveTo(144684, 27015, -2264);
Engine.MoveTo(145011, 27304, -2264);
Engine.MoveTo(145184, 27644, -2264);
Engine.MoveTo(146237, 27629, -2200);
Engine.MoveTo(146785, 27377, -2200);
Engine.MoveTo(147313, 26505, -2200);
Engine.MoveTo(147309, 26006, -2008);
Engine.MoveTo(147077, 25806, -2008);
Engine.MoveTo(146795, 25803, -2008);
end;
if User.inrange(148557,30461,-2487,500,500) then
begin
Engine.MoveTo(147465, 29959, -2456);
Engine.MoveTo(147458, 29537, -2264);
Engine.MoveTo(147458, 28497, -2264);
Engine.MoveTo(147108, 27630, -2264);
Engine.MoveTo(147091, 27405, -2200);
Engine.MoveTo(147302, 26521, -2200);
Engine.MoveTo(147310, 26005, -2008);
Engine.MoveTo(147079, 25804, -2008);
Engine.MoveTo(146795, 25803, -2008);
end;
if User.inrange(147971,27982,-2294,500,500) then
begin
Engine.MoveTo(147777, 27419, -2200);
Engine.MoveTo(147312, 26511, -2200);
Engine.MoveTo(147308, 26026, -2016);
Engine.MoveTo(147101, 25806, -2008);
Engine.MoveTo(146795, 25803, -2008);
end;
end;
//---------------------------------------------------
//Годдард
//---------------------------------------------------
if (User.Level<=80) then
begin
if user.inrange(146272, -58176, -2976,500,500) then
begin
Engine.MoveTo(147611, -58249, -2976);
Engine.MoveTo(147718, -57942, -2976);
Engine.MoveTo(147712, -57303, -2776);
Engine.MoveTo(147691, -56085, -2784);
Engine.MoveTo(147977, -55262, -2728);
end;
if user.inrange(145264, -57680, -2976,500,500) then
begin
Engine.MoveTo(145555, -56870, -2976);
Engine.MoveTo(146109, -56480, -2776);
Engine.MoveTo(147689, -56064, -2768);
Engine.MoveTo(147977, -55262, -2728);
end;
if user.inrange(145696, -57696, -2976,500,500) then
begin
Engine.MoveTo(145537, -56842, -2976);
Engine.MoveTo(146081, -56483, -2776);
Engine.MoveTo(147669, -56065, -2776);
Engine.MoveTo(147977, -55262, -2728);
end;
if user.inrange(144944, -55392, -2976,500,500) then
begin
Engine.MoveTo(144970, -56350, -2976);
Engine.MoveTo(145513, -56882, -2976);
Engine.MoveTo(146108, -56460, -2776);
Engine.MoveTo(147681, -56067, -2776);
Engine.MoveTo(147977, -55262, -2728);
end;
if user.inrange(144752, -56752, -2976,500,500) then
begin
Engine.MoveTo(145508, -56850, -2976);
Engine.MoveTo(146127, -56441, -2776);
Engine.MoveTo(147638, -56079, -2776);
Engine.MoveTo(147977, -55262, -2728);
end;
if user.inrange(149120, -58064, -2976,500,500) then
begin
Engine.MoveTo(148044, -58253, -2976);
Engine.MoveTo(147727, -58002, -2976);
Engine.MoveTo(147723, -57312, -2776);
Engine.MoveTo(147723, -56117, -2776);
Engine.MoveTo(147977, -55262, -2728);
end;
if user.inrange(150400, -56752, -2976,500,500) then
begin
Engine.MoveTo(149961, -56894, -2976);
Engine.MoveTo(149266, -56415, -2776);
Engine.MoveTo(147734, -56077, -2776);
Engine.MoveTo(147977, -55262, -2728);
end;
if user.inrange(150704, -55744, -2976,500,500) then
begin
Engine.MoveTo(150237, -56866, -2976);
Engine.MoveTo(149880, -56863, -2976);
Engine.MoveTo(149284, -56435, -2776);
Engine.MoveTo(147721, -56072, -2776);
Engine.MoveTo(147977, -55262, -2728);
end;
if user.inrange(147680, -58208, -2976,500,500) then
begin
Engine.MoveTo(147719, -57318, -2776);
Engine.MoveTo(147699, -56087, -2776);
Engine.MoveTo(147977, -55262, -2728);
end;
if user.inrange(148288, -58304, -2976,500,500) then
begin
Engine.MoveTo(147725, -58015, -2976);
Engine.MoveTo(147717, -57295, -2776);
Engine.MoveTo(147700, -56075, -2776);
Engine.MoveTo(147977, -55262, -2728);
end;
if user.inrange(147232, -58480, -2976,500,500) then
begin
Engine.MoveTo(147720, -57971, -2976);
Engine.MoveTo(147706, -57267, -2776);
Engine.MoveTo(147701, -56105, -2776);
Engine.MoveTo(147977, -55262, -2728);
end;
if user.inrange(149088, -56256, -2776,500,500) then
begin
Engine.MoveTo(147735, -56062, -2768);
Engine.MoveTo(147977, -55262, -2728);
end;
if user.inrange(146832, -55904, -2776,500,500) then
begin
Engine.MoveTo(147697, -56061, -2768);
Engine.MoveTo(147977, -55262, -2728);
end;
if user.inrange(146368, -56256, -2776,500,500) then
begin
Engine.MoveTo(147699, -56061, -2768);
Engine.MoveTo(147977, -55262, -2728);
end;
if user.inrange(147664, -56464, -2776,500,500) then
begin
Engine.MoveTo(147695, -56075, -2776);
Engine.MoveTo(147977, -55262, -2728);
end;
if user.inrange(147680, -56928, -2776,500,500) then
begin
Engine.MoveTo(147687, -56090, -2776);
Engine.MoveTo(147977, -55262, -2728);
end;
if user.inrange(148560, -55904, -2776,500,500) then
begin
Engine.MoveTo(147696, -56067, -2776);
Engine.MoveTo(147977, -55262, -2728);
end;
if user.inrange(149872, -57424, -2976,500,500) then
begin
Engine.MoveTo(149926, -56898, -2976);
Engine.MoveTo(149317, -56461, -2776);
Engine.MoveTo(147789, -56082, -2776);
Engine.MoveTo(147977, -55262, -2728);
end;
if user.inrange(144960, -56224, -2976,500,500) then
begin
Engine.MoveTo(145498, -56899, -2976);
Engine.MoveTo(146141, -56450, -2776);
Engine.MoveTo(147699, -56058, -2768);
Engine.MoveTo(147977, -55262, -2728);
end;
if user.inrange(144496, -55088, -2976,500,500) then
begin
Engine.MoveTo(144806, -55667, -2976);
Engine.MoveTo(145260, -56951, -2976);
Engine.MoveTo(145514, -56873, -2976);
Engine.MoveTo(146150, -56447, -2776);
Engine.MoveTo(147696, -56060, -2768);
Engine.MoveTo(147977, -55262, -2728);
end;
if user.inrange(145392, -56960, -2976,500,500) then
begin
Engine.MoveTo(146171, -56432, -2776);
Engine.MoveTo(147664, -56076, -2776);
Engine.MoveTo(147977, -55262, -2728);
end;
end;
//---------------------------------------------------
//Руна
//---------------------------------------------------
if (User.Level<=80) then
begin
if User.inrange(38608,-47168,896,500,500)
or User.inrange(38272,-49008,896,500,500)
or User.inrange(38752,-47792,896,500,500)
or User.inrange(38112,-49792,896,500,500)
or User.inrange(38848,-48640,896,500,500) 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(38354, -48235, -1152);
Engine.MoveTo(39547, -48237, -776);
Engine.MoveTo(41153, -48228, -800);
Engine.MoveTo(42411, -48229, -800);
Engine.MoveTo(43773, -47901, -792);
Engine.MoveTo(43820, -47703, -792);
end;
if User.inrange(44368,-50592,-792,500,500) then
begin
Engine.MoveTo(44001, -49239, -792);
Engine.MoveTo(43820, -47703, -792);
end;
if User.inrange(44864,-47824,-792,500,500) then
begin
Engine.MoveTo(43813, -47829, -792);
Engine.MoveTo(43820, -47703, -792);
end;
if User.inrange(43536,-50416,-792,500,500) then
begin
Engine.MoveTo(43862, -49260, -792);
Engine.MoveTo(43820, -47703, -792);
end;
if User.inrange(45632,-47968,-792,500,500) then
begin
Engine.MoveTo(43837, -47807, -792);
Engine.MoveTo(43820, -47703, -792);
end;
if User.inrange(45824,-49056,-792,500,500) then
begin
Engine.MoveTo(45890, -48285, -792);
Engine.MoveTo(45052, -47898, -792);
Engine.MoveTo(43843, -47783, -792);
Engine.MoveTo(43820, -47703, -792);
end;
if User.inrange(44000,-49952,-792,500,500) then
begin
Engine.MoveTo(43897, -48758, -792);
Engine.MoveTo(43820, -47703, -792);
end;
if User.inrange(43792,-48928,-792,500,500) then
begin
Engine.MoveTo(43820, -47703, -792);
end;
if User.inrange(45072,-49936,-792,500,500) then
begin
Engine.MoveTo(44017, -49495, -792);
Engine.MoveTo(43871, -48613, -792);
Engine.MoveTo(43820, -47703, -792);
end;
if User.inrange(43408,-51120,-792,500,500) then
begin
Engine.MoveTo(43828, -49544, -792);
Engine.MoveTo(43838, -48376, -792);
Engine.MoveTo(43820, -47703, -792);
end;
if User.inrange(43744,-47920,-792,500,500) then
begin
Engine.MoveTo(43820, -47703, -792);
end;
end;
//---------------------------------------------------
//Хейн
//---------------------------------------------------
if (User.Level<=80) then
begin
if User.inrange(110912,219584,-3664,500,500) then
begin
Engine.MoveTo(111176, 219706, -3672);
Engine.MoveTo(111191, 219311, -3544);
Engine.MoveTo(111383, 219193, -3544);
Engine.MoveTo(111385, 219373, -3544);
end;
if User.inrange(111888,219584,-3664,500,500) then
begin
Engine.MoveTo(111615, 219680, -3672);
Engine.MoveTo(111592, 219367, -3544);
Engine.MoveTo(111383, 219210, -3544);
Engine.MoveTo(111385, 219373, -3544);
end;
if User.inrange(112064,219792,-3664,500,500) then
begin
Engine.MoveTo(111602, 219650, -3672);
Engine.MoveTo(111582, 219367, -3544);
Engine.MoveTo(111386, 219227, -3544);
Engine.MoveTo(111385, 219373, -3544);
end;
if User.inrange(107808,217856,-3672,500,500) then
begin
Engine.MoveTo(107864, 217542, -3672);
Engine.MoveTo(109641, 217452, -3744);
Engine.MoveTo(110072, 217273, -3744);
Engine.MoveTo(110085, 219116, -3472);
Engine.MoveTo(111375, 219195, -3544);
Engine.MoveTo(111385, 219373, -3544);
end;
if User.inrange(110896,220768,-3664,500,500) then
begin
Engine.MoveTo(111177, 219650, -3674);
Engine.MoveTo(111179, 219372, -3544);
Engine.MoveTo(111392, 219214, -3544);
Engine.MoveTo(111385, 219373, -3544);
end;
if User.inrange(110768,219824,-3664,500,500) then
begin
Engine.MoveTo(111172, 219649, -3672);
Engine.MoveTo(111182, 219372, -3544);
Engine.MoveTo(111384, 219213, -3544);
Engine.MoveTo(111385, 219373, -3544);
end;
if User.inrange(112112,220576,-3664,500,500) then
begin
Engine.MoveTo(111592, 219649, -3672);
Engine.MoveTo(111587, 219373, -3544);
Engine.MoveTo(111381, 219207, -3544);
Engine.MoveTo(111385, 219373, -3544);
end;
if User.inrange(110688,220576,-3664,500,500) then
begin
Engine.MoveTo(111167, 219650, -3674);
Engine.MoveTo(111179, 219370, -3544);
Engine.MoveTo(111389, 219204, -3544);
Engine.MoveTo(111385, 219373, -3544);
end;
if User.inrange(108032,218048,-3672,500,500) then
begin
Engine.MoveTo(107898, 218035, -3672);
Engine.MoveTo(107744, 217783, -3672);
Engine.MoveTo(107914, 217508, -3672);
Engine.MoveTo(109617, 217425, -3744);
Engine.MoveTo(110075, 217288, -3744);
Engine.MoveTo(110089, 219089, -3472);
Engine.MoveTo(111393, 219208, -3544);
Engine.MoveTo(111385, 219373, -3544);
end;
if User.inrange(107568,218256,-3672,500,500) then
begin
Engine.MoveTo(107588, 217805, -3672);
Engine.MoveTo(107886, 217536, -3672);
Engine.MoveTo(109722, 217411, -3744);
Engine.MoveTo(110063, 217298, -3744);
Engine.MoveTo(110081, 219011, -3472);
Engine.MoveTo(111384, 219192, -3544);
Engine.MoveTo(111385, 219373, -3544);
end;
if User.inrange(107552,218000,-3672,500,500) then
begin
Engine.MoveTo(107897, 217516, -3672);
Engine.MoveTo(109651, 217418, -3744);
Engine.MoveTo(110067, 217300, -3744);
Engine.MoveTo(110070, 219026, -3472);
Engine.MoveTo(111385, 219215, -3544);
Engine.MoveTo(111385, 219373, -3544);
end;
if User.inrange(111856,220752,-3664,500,500) then
begin
Engine.MoveTo(111595, 219661, -3672);
Engine.MoveTo(111580, 219346, -3544);
Engine.MoveTo(111385, 219210, -3544);
Engine.MoveTo(111385, 219373, -3544);
end;
end;
//---------------------------------------------------
//Шутгарт
//---------------------------------------------------
if (User.Level<=80) then
begin
if User.inrange(87184,-140256,-1536,500,500) then
begin
Engine.MoveTo(87352, -140749, -1521);
Engine.MoveTo(87352, -141373, -1329);
Engine.MoveTo(87394, -142643, -1313);
Engine.MoveTo(87072, -143407, -1288);
end;
if User.inrange(87408,-142304,-1336,500,500) then
begin
Engine.MoveTo(87385, -142637, -1313);
Engine.MoveTo(87072, -143407, -1288);
end;
if User.inrange(88240,-142736,-1336,500,500) then
begin
Engine.MoveTo(87347, -142644, -1313);
Engine.MoveTo(87072, -143407, -1288);
end;
if User.inrange(85056,-141328,-1528,500,500) then
begin
Engine.MoveTo(85220, -141883, -1536);
Engine.MoveTo(85730, -142233, -1336);
Engine.MoveTo(87340, -142632, -1313);
Engine.MoveTo(87072, -143407, -1288);
end;
if User.inrange(88624,-142480,-1336,500,500) then
begin
Engine.MoveTo(87378, -142641, -1313);
Engine.MoveTo(87072, -143407, -1288);
end;
if User.inrange(86400,-142672,-1336,500,500) then
begin
Engine.MoveTo(87360, -142646, -1313);
Engine.MoveTo(87072, -143407, -1288);
end;
if User.inrange(86560,-140320,-1536,500,500) then
begin
Engine.MoveTo(87347, -140705, -1521);
Engine.MoveTo(87358, -141365, -1329);
Engine.MoveTo(87372, -142630, -1313);
Engine.MoveTo(87072, -143407, -1288);
end;
if User.inrange(88448,-140512,-1536,500,500) then
begin
Engine.MoveTo(87343, -140685, -1521);
Engine.MoveTo(87359, -141367, -1329);
Engine.MoveTo(87374, -142634, -1313);
Engine.MoveTo(87072, -143407, -1288);
end;
if User.inrange(89712,-141472,-1528,500,500) then
begin
Engine.MoveTo(89497, -141871, -1536);
Engine.MoveTo(88991, -142217, -1336);
Engine.MoveTo(87389, -142638, -1313);
Engine.MoveTo(87072, -143407, -1288);
end;
if User.inrange(87344,-141696,-1336,500,500) then
begin
Engine.MoveTo(87370, -142626, -1313);
Engine.MoveTo(87072, -143407, -1288);
end;
if User.inrange(85472,-140752,-1536,500,500) then
begin
Engine.MoveTo(85167, -141823, -1521);
Engine.MoveTo(85723, -142224, -1344);
Engine.MoveTo(87327, -142633, -1313);
Engine.MoveTo(87072, -143407, -1288);
end;
if User.inrange(89360,-140944,-1536,500,500) then
begin
Engine.MoveTo(89551, -141809, -1521);
Engine.MoveTo(88994, -142218, -1344);
Engine.MoveTo(87401, -142640, -1313);
Engine.MoveTo(87072, -143407, -1288);
end;
if User.inrange(87776,-140384,-1536,500,500) then
begin
Engine.MoveTo(87347, -140717, -1521);
Engine.MoveTo(87368, -141367, -1329);
Engine.MoveTo(87370, -142621, -1313);
Engine.MoveTo(87072, -143407, -1288);
end;
if User.inrange(84720,-141936,-1536,500,500) then
begin
Engine.MoveTo(85220, -141847, -1536);
Engine.MoveTo(85720, -142213, -1344);
Engine.MoveTo(87300, -142634, -1313);
Engine.MoveTo(87072, -143407, -1288);
end;
if User.inrange(85968,-142384,-1336,500,500) then
begin
Engine.MoveTo(87339, -142640, -1313);
Engine.MoveTo(87072, -143407, -1288);
end;
end;
//---------------------------------------------------
//Хунтер
//---------------------------------------------------
if (User.Level<=80) then
begin
if user.inrange(117304,76318,-2670,500,500) then
begin
Engine.MoveTo(116933, 76827, -2717);
Engine.MoveTo(117101, 76869, -2696);
end;
if user.inrange(118229,74677,-2450,500,500) then
begin
Engine.MoveTo(118106, 75680, -2688);
Engine.MoveTo(117410, 76372, -2696);
Engine.MoveTo(116927, 76841, -2712);
Engine.MoveTo(117101, 76869, -2696);
end;
if user.inrange(115683,77610,-2650,500,500) then
begin
Engine.MoveTo(116445, 77256, -2720);
Engine.MoveTo(116931, 76834, -2712);
Engine.MoveTo(117101, 76869, -2696);
end;
if user.inrange(115685,75072,-2550,500,500) then
begin
Engine.MoveTo(115976, 75429, -2592);
Engine.MoveTo(116926, 76823, -2712);
Engine.MoveTo(117101, 76869, -2696);
end;
if user.inrange(115861,75200,-2550,500,500) then
begin
Engine.MoveTo(115987, 75436, -2592);
Engine.MoveTo(116931, 76826, -2712);
Engine.MoveTo(117101, 76869, -2696);
end;
if user.inrange(117671,78998,-2210,500,500) then
begin
Engine.MoveTo(116985, 78924, -2256);
Engine.MoveTo(116349, 77889, -2680);
Engine.MoveTo(116933, 76825, -2712);
Engine.MoveTo(117101, 76869, -2696);
end;
if user.inrange(116158,77443,-2660,500,500) then
begin
Engine.MoveTo(116925, 76833, -2712);
Engine.MoveTo(117101, 76869, -2696);
end;
if user.inrange(116127,76015,-2729,500,500) then
begin
Engine.MoveTo(116932, 76831, -2712);
Engine.MoveTo(117101, 76869, -2696);
end;
if user.inrange(115193,77594,-2670,500,500) then
begin
Engine.MoveTo(116116, 77440, -2704);
Engine.MoveTo(116940, 76828, -2712);
Engine.MoveTo(117101, 76869, -2696);
end;
if user.inrange(119862,76603,-2272,500,500) then
begin
Engine.MoveTo(119584, 76590, -2272);
Engine.MoveTo(118151, 76156, -2688);
Engine.MoveTo(117613, 76368, -2688);
Engine.MoveTo(116935, 76826, -2712);
Engine.MoveTo(117101, 76869, -2696);
end;
if user.inrange(117189,78952,-2264,500,500) then
begin
Engine.MoveTo(116953, 78886, -2256);
Engine.MoveTo(116353, 77887, -2688);
Engine.MoveTo(116922, 76842, -2712);
Engine.MoveTo(117101, 76869, -2696);
end;
end;
end;
procedure SoulShot();
begin
//Engine.UseItem(1835);
//Engine.UseItem(1463);
//Engine.UseItem(1464);
//Engine.UseItem(1465);
//Engine.UseItem(1466);
//Engine.UseItem(1467);
//Engine.UseItem(3947);
//Engine.UseItem(3948);
//Engine.UseItem(3950);
//Engine.UseItem(3951);
//Engine.UseItem(3952);
//Engine.UseItem(1949);
end;
//---------------------------------------------------
//Если умер летим в город
//---------------------------------------------------
procedure Dead();
begin
if User.Dead then // умер- вырубаем интерфейс, возврат в город и пауза 15 секунд
begin
Engine.FaceControl(0,false);
Engine.gohome;
end;
end;
//---------------------------------------------------
//Берем в Таргет НПЦ
//---------------------------------------------------
procedure NPC();
begin
//Orc
if user.InRange(-45232, -112516, -242,500,500) then
begin
engine.SetTarget(30576);
delay(500);
Engine.DlgOpen();
delay(500);
engine.dlgsel('Teleport');
delay(500);
end;
//Dwarf
if user.InRange(115109, -178174, -896,500,500) then
begin
engine.SetTarget(30540);
delay(500);
Engine.DlgOpen();
delay(500);
engine.dlgsel('Teleport');
delay(500);
end;
//Elf
if user.InRange(46915, 51475, -2976,500,500) then
begin
engine.SetTarget(30146);
delay(500);
Engine.DlgOpen();
delay(500);
engine.dlgsel('Teleport');
delay(500);
end;
//DElf
if user.InRange(9709, 15561, -4568,500,500) then
begin
engine.SetTarget(30134);
delay(500);
Engine.DlgOpen();
delay(500);
engine.dlgsel('Teleport');
delay(500);
end;
//Human
if user.InRange(-71467, 258378, -3104,500,500) then
begin
engine.SetTarget(30006);
delay(500);
Engine.DlgOpen();
delay(500);
engine.dlgsel('Teleport');
delay(500);
end;
//Gludio
if user.InRange(-12707, 122794, -3112,500,500) then
begin
engine.SetTarget(30256);
delay(500);
Engine.DlgOpen();
delay(500);
engine.dlgsel('Teleport');
delay(500);
end;
//Dion
if user.InRange(15666, 142916, -2696,500,500) then
begin
engine.SetTarget(30059);
delay(500);
Engine.DlgOpen();
delay(500);
engine.dlgsel('Teleport');
delay(500);
end;
//Giran
if user.InRange(83364, 147941, -3400,500,500) then
begin
engine.SetTarget(30080);
delay(500);
Engine.DlgOpen();
delay(500);
engine.dlgsel('Teleport');
delay(500);
end;
//Oren
if user.InRange(82957, 53195, -1488,500,500) then
begin
engine.SetTarget(30177);
delay(500);
Engine.DlgOpen();
delay(500);
engine.dlgsel('Teleport');
delay(500);
end;
//Aden
if user.InRange(146795, 25803, -2008,500,500) then
begin
engine.SetTarget(30848);
delay(500);
Engine.DlgOpen();
delay(500);
engine.dlgsel('Teleport');
delay(500);
end;
//Goddard
if user.InRange(147977, -55262, -2728,500,500) then
begin
engine.SetTarget(31275);
delay(500);
Engine.DlgOpen();
delay(500);
engine.dlgsel('I want to Teleport.');
delay(500);
end;
//Runa
if user.InRange(43820, -47703, -792,500,500) then
begin
engine.SetTarget(31320);
delay(500);
Engine.DlgOpen();
delay(500);
engine.dlgsel('Teleport');
delay(500);
end;
//Hein
if user.InRange(111385, 219373, -3544,500,500) then
begin
engine.SetTarget(30899);
delay(500);
Engine.DlgOpen();
delay(500);
engine.dlgsel('Teleport');
delay(500);
end;
//Schuttgart
if user.InRange(87072, -143407, -1288,500,500) then
begin
engine.SetTarget(31964);
delay(500);
Engine.DlgOpen();
delay(500);
engine.dlgsel('Teleport');
delay(500);
end;
//Gludin
if user.InRange(-80789, 149798, -3040,500,500) then
begin
engine.SetTarget(30320);
delay(500);
Engine.DlgOpen();
delay(500);
engine.dlgsel('Teleport');
delay(500);
end;
end;
//---------------------------------------------------
//Проверка на соответствие лвл\локация
//---------------------------------------------------
//ТП из стартовой точки
procedure Teleport();
begin
Town();
if (User.Level>=1) and (User.Level<8) then
begin
Town();
end;
if (User.Level>=8) and (User.Level<20) then
begin
//---------------------------------------------------
//Orc=>Human
//---------------------------------------------------
if user.InRange(-45232, -112516, -242,500,500) then
begin
NPC();
engine.dlgsel(5);
delay(20000);
Engine.MoveTo(-84149, 244598, -3728);
end;
//---------------------------------------------------
//Dwarf=>Human
//---------------------------------------------------
if user.InRange(115109, -178174, -896,500,500) then
begin
NPC();
engine.dlgsel(4);
delay(20000);
Engine.MoveTo(-84149, 244598, -3728);
end;
//---------------------------------------------------
//Elf=>Human
//---------------------------------------------------
if user.InRange(46915, 51475, -2976,500,500) then
begin
NPC();
engine.dlgsel(3);
delay(20000);
Engine.MoveTo(-84149, 244598, -3728);
end;
//---------------------------------------------------
//DElf=>Human
//---------------------------------------------------
if user.InRange(9709, 15561, -4568,500,500) then
begin
NPC();
engine.dlgsel(3);
delay(20000);
Engine.MoveTo(-84149, 244598, -3728);
end;
//---------------------------------------------------
//Gludin=>Human
//---------------------------------------------------
if user.InRange(-80789, 149798, -3040,500,500) then
begin
NPC();
engine.dlgsel(2);
delay(20000);
Engine.MoveTo(-84149, 244598, -3728);
end;
//---------------------------------------------------
//Gludio=>Gludin
//---------------------------------------------------
if user.InRange(-12707, 122794, -3112,500,500) then
begin
NPC();
engine.dlgsel(9);
delay(20000);
Engine.MoveTo(-80789, 149798, -3040);
end;
end;
if (User.Level>=20) and (User.Level<30) then
begin
//---------------------------------------------------
//Orc=>Gludio
//---------------------------------------------------
if user.InRange(-45232, -112516, -242,500,500) then
begin
NPC();
engine.dlgsel(1);
delay(20000);
Engine.MoveTo(-12707, 122794, -3112);
end;
//---------------------------------------------------
//Dwarf=>Gludio
//---------------------------------------------------
if user.InRange(115109, -178174, -896,500,500) then
begin
NPC();
engine.dlgsel(1);
delay(20000);
Engine.MoveTo(-12707, 122794, -3112);
end;
//---------------------------------------------------
//Elf=>Gludio
//---------------------------------------------------
if user.InRange(46915, 51475, -2976,500,500) then
begin
NPC();
engine.dlgsel(1);
delay(20000);
Engine.MoveTo(-12707, 122794, -3112);
end;
//---------------------------------------------------
//DElf=>Gludio
//---------------------------------------------------
if user.InRange(9709, 15561, -4568,500,500) then
begin
NPC();
engine.dlgsel(1);
delay(20000);
Engine.MoveTo(-12707, 122794, -3112);
end;
//---------------------------------------------------
//Gludio=>Gludin
//---------------------------------------------------
if user.InRange(-12707, 122794, -3112,500,500) then
begin
NPC();
engine.dlgsel(9);
delay(20000);
Engine.MoveTo(-80789, 149798, -3040);
end;
//---------------------------------------------------
//Human=>Gludin
//---------------------------------------------------
if user.InRange(-84149, 244598, -3728,500,500) then
begin
NPC();
engine.dlgsel(1);
delay(20000);
Engine.MoveTo(-80789, 149798, -3040);
end;
//---------------------------------------------------
//Dion=>Gludio
//---------------------------------------------------
if user.InRange(15666, 142916, -2696,500,500) then
begin
NPC();
engine.dlgsel(3);
delay(20000);
Engine.MoveTo(-12707, 122794, -3112);
end;
//---------------------------------------------------
//Giran=>Dion
//---------------------------------------------------
if user.InRange(83364, 147941, -3400,500,500) then
begin
NPC();
engine.dlgsel(3);
delay(20000);
Engine.MoveTo(15666, 142916, -2696);
end;
//---------------------------------------------------
//Oren=>Giran
//---------------------------------------------------
if user.InRange(82957, 53195, -1488,500,500) then
begin
NPC();
engine.dlgsel(2);
delay(20000);
Engine.MoveTo(83364, 147941, -3400);
end;
//---------------------------------------------------
//Aden=>Oren
//---------------------------------------------------
if user.InRange(146795, 25803, -2008,500,500) then
begin
NPC();
engine.dlgsel(2);
delay(20000);
Engine.MoveTo(82957, 53195, -1488);
end;
//---------------------------------------------------
//Goddard=>Aden
//---------------------------------------------------
if user.InRange(147977, -55262, -2728,500,500) then
begin
NPC();
engine.dlgsel(7);
delay(20000);
Engine.MoveTo(146795, 25803, -2008);
end;
//---------------------------------------------------
//Hein=>Goddard
//---------------------------------------------------
if user.InRange(111385, 219373, -3544,500,500) then
begin
NPC();
engine.dlgsel(5);
delay(20000);
Engine.MoveTo(147977, -55262, -2728);
end;
//---------------------------------------------------
//Schuttgart=>Goddard
//---------------------------------------------------
if user.InRange(87072, -143407, -1288,500,500) then
begin
NPC();
engine.dlgsel(2);
delay(20000);
Engine.MoveTo(147977, -55262, -2728);
end;
//---------------------------------------------------
//Runa=>Goddard
//---------------------------------------------------
if user.InRange(43820, -47703, -792,500,500) then
begin
NPC();
engine.dlgsel(1);
delay(20000);
Engine.MoveTo(147977, -55262, -2728);
end;

end;
if (User.Level>=30) and (User.Level<40) then
begin
//---------------------------------------------------
//Orc=>Gludio
//---------------------------------------------------
if user.InRange(-45080, -112456, -240,500,500) then
begin
NPC();
engine.dlgsel(1);
delay(20000);
Engine.MoveTo(-12707, 122794, -3112);
end;
//---------------------------------------------------
//Dwarf=>Gludio
//---------------------------------------------------
if user.InRange(115240, -178184, -928,500,500) then
begin
NPC();
engine.dlgsel(1);
delay(20000);
Engine.MoveTo(-12707, 122794, -3112);
end;
//---------------------------------------------------
//Elf=>Gludio
//---------------------------------------------------
if user.InRange(46952, 51496, -2976,500,500) then
begin
NPC();
engine.dlgsel(1);
delay(20000);
Engine.MoveTo(-12707, 122794, -3112);
end;
//---------------------------------------------------
//DElf=>Gludio
//---------------------------------------------------
if user.InRange(9720, 15592, -4568,500,500) then
begin
NPC();
engine.dlgsel(1);
delay(20000);
Engine.MoveTo(-12707, 122794, -3112);
end;
//---------------------------------------------------
//Human=>Gludin
//---------------------------------------------------
if user.InRange(-84184, 244616, -3728,500,500) then
begin
NPC();
engine.dlgsel(1);
delay(20000);
Engine.MoveTo(-80789, 149798, -3040);
end;
//---------------------------------------------------
//Gludin=>Gludio
//---------------------------------------------------
if user.InRange(-80813, 149767, -3038,500,500) then
begin
NPC();
engine.dlgsel(1);
delay(20000);
Engine.MoveTo(-12707, 122794, -3112);
end;
//---------------------------------------------------
//Gludio=>Dion
//---------------------------------------------------
if user.InRange(-12674, 122765, -3111,500,500) then
begin
NPC();
engine.dlgsel(5);
delay(20000);
Engine.MoveTo(15666, 142916, -2696);
end;
//---------------------------------------------------
//Dion=>Giran
//---------------------------------------------------
if user.InRange(15672, 142976, -2700,500,500) then
begin
NPC();
engine.dlgsel(1);
delay(20000);
Engine.MoveTo(83364, 147941, -3400);
end;
//---------------------------------------------------
//Oren=>Giran
//---------------------------------------------------
if user.InRange(82967, 53178, -1490,500,500) then
begin
NPC();
engine.dlgsel(2);
delay(20000);
Engine.MoveTo(83364, 147941, -3400);
end;
//---------------------------------------------------
//Aden=>Oren
//---------------------------------------------------
if user.InRange(146520, 25784, -2016,500,500) then
begin
NPC();
engine.dlgsel(2);
delay(20000);
Engine.MoveTo(82957, 53195, -1488);
end;
//---------------------------------------------------
//Goddard=>Aden
//---------------------------------------------------
if user.InRange(147921, -55280, -2729,500,500) then
begin
NPC();
engine.dlgsel(7);
delay(20000);
Engine.MoveTo(146795, 25803, -2008);
end;
//---------------------------------------------------
//Hein=>Goddard
//---------------------------------------------------
if user.InRange(111421, 219358, -3540,500,500) then
begin
NPC();
engine.dlgsel(5);
delay(20000);
Engine.MoveTo(147977, -55262, -2728);
end;
//---------------------------------------------------
//Schuttgart=>Goddard
//---------------------------------------------------
if user.InRange(87192, -143320, -1288,500,500) then
begin
NPC();
engine.dlgsel(2);
delay(20000);
Engine.MoveTo(147977, -55262, -2728);
end;
//---------------------------------------------------
//Runa=>Goddard
//---------------------------------------------------
if user.InRange(43783, -47714, -793,500,500) then
begin
NPC();
engine.dlgsel(1);
delay(20000);
Engine.MoveTo(147977, -55262, -2728);
end;

end;
if (User.Level>=40) and (User.Level<46) then
begin
//---------------------------------------------------
//Orc=>Gludio
//---------------------------------------------------
if user.InRange(-45080, -112456, -240,500,500) then
begin
NPC();
engine.dlgsel(1);
delay(20000);
Engine.MoveTo(-12707, 122794, -3112);
end;
//---------------------------------------------------
//Dwarf=>Gludio
//---------------------------------------------------
if user.InRange(115240, -178184, -928,500,500) then
begin
NPC();
engine.dlgsel(1);
delay(20000);
Engine.MoveTo(-12707, 122794, -3112);
end;
//---------------------------------------------------
//Elf=>Gludio
//---------------------------------------------------
if user.InRange(46952, 51496, -2976,500,500) then
begin
NPC();
engine.dlgsel(1);
delay(20000);
Engine.MoveTo(-12707, 122794, -3112);
end;
//---------------------------------------------------
//DElf=>Gludio
//---------------------------------------------------
if user.InRange(9720, 15592, -4568,500,500) then
begin
NPC();
engine.dlgsel(1);
delay(20000);
Engine.MoveTo(-12707, 122794, -3112);
end;
//---------------------------------------------------
//Human=>Gludin
//---------------------------------------------------
if user.InRange(-84184, 244616, -3728,500,500) then
begin
NPC();
engine.dlgsel(1);
delay(20000);
Engine.MoveTo(-80789, 149798, -3040);
end;
//---------------------------------------------------
//Gludin=>Gludio
//---------------------------------------------------
if user.InRange(-80813, 149767, -3038,500,500) then
begin
NPC();
engine.dlgsel(1);
delay(20000);
Engine.MoveTo(-12707, 122794, -3112);
end;
//---------------------------------------------------
//Gludio=>Dion
//---------------------------------------------------
if user.InRange(-12674, 122765, -3111,500,500) then
begin
NPC();
engine.dlgsel(5);
delay(20000);
Engine.MoveTo(15666, 142916, -2696);
end;
//---------------------------------------------------
//Dion=>Giran
//---------------------------------------------------
if user.InRange(15672, 142976, -2700,500,500) then
begin
NPC();
engine.dlgsel(1);
delay(20000);
Engine.MoveTo(83364, 147941, -3400);
end;
//---------------------------------------------------
//Giran=>Oren
//---------------------------------------------------
if user.InRange(83387, 147943, -3399,500,500) then
begin
NPC();
engine.dlgsel(1);
delay(20000);
Engine.MoveTo(82957, 53195, -1488);
end;
//---------------------------------------------------
//Aden=>Oren
//---------------------------------------------------
if user.InRange(146520, 25784, -2016,500,500) then
begin
NPC();
engine.dlgsel(2);
delay(20000);
Engine.MoveTo(82957, 53195, -1488);
end;
//---------------------------------------------------
//Goddard=>Aden
//---------------------------------------------------
if user.InRange(147921, -55280, -2729,500,500) then
begin
NPC();
engine.dlgsel(7);
delay(20000);
Engine.MoveTo(146795, 25803, -2008);
end;
//---------------------------------------------------
//Hein=>Goddard
//---------------------------------------------------
if user.InRange(111421, 219358, -3540,500,500) then
begin
NPC();
engine.dlgsel(5);
delay(20000);
Engine.MoveTo(147977, -55262, -2728);
end;
//---------------------------------------------------
//Schuttgart=>Goddard
//---------------------------------------------------
if user.InRange(87192, -143320, -1288,500,500) then
begin
NPC();
engine.dlgsel(2);
delay(20000);
Engine.MoveTo(147977, -55262, -2728);
end;
//---------------------------------------------------
//Runa=>Goddard
//---------------------------------------------------
if user.InRange(43783, -47714, -793,500,500) then
begin
NPC();
engine.dlgsel(1);
delay(20000);
Engine.MoveTo(147977, -55262, -2728);
end;

end;
if (User.Level>=46) and (User.Level<52) then
begin
//---------------------------------------------------
//Orc=>Gludio
//---------------------------------------------------
if user.InRange(-45080, -112456, -240,500,500) then
begin
NPC();
engine.dlgsel(1);
delay(20000);
Engine.MoveTo(-12707, 122794, -3112);
end;
//---------------------------------------------------
//Dwarf=>Gludio
//---------------------------------------------------
if user.InRange(115240, -178184, -928,500,500) then
begin
NPC();
engine.dlgsel(1);
delay(20000);
Engine.MoveTo(-12707, 122794, -3112);
end;
//---------------------------------------------------
//Elf=>Gludio
//---------------------------------------------------
if user.InRange(46952, 51496, -2976,500,500) then
begin
NPC();
engine.dlgsel(1);
delay(20000);
Engine.MoveTo(-12707, 122794, -3112);
end;
//---------------------------------------------------
//DElf=>Gludio
//---------------------------------------------------
if user.InRange(9720, 15592, -4568,500,500) then
begin
NPC();
engine.dlgsel(1);
delay(20000);
Engine.MoveTo(-12707, 122794, -3112);
end;
//---------------------------------------------------
//Human=>Gludin
//---------------------------------------------------
if user.InRange(-84184, 244616, -3728,500,500) then
begin
NPC();
engine.dlgsel(1);
delay(20000);
Engine.MoveTo(-80789, 149798, -3040);
end;
//---------------------------------------------------
//Gludin=>Gludio
//---------------------------------------------------
if user.InRange(-80813, 149767, -3038,500,500) then
begin
NPC();
engine.dlgsel(1);
delay(20000);
Engine.MoveTo(-12707, 122794, -3112);
end;
//---------------------------------------------------
//Gludio=>Dion
//---------------------------------------------------
if user.InRange(-12674, 122765, -3111,500,500) then
begin
NPC();
engine.dlgsel(5);
delay(20000);
Engine.MoveTo(15666, 142916, -2696);
end;
//---------------------------------------------------
//Dion=>Giran
//---------------------------------------------------
if user.InRange(15672, 142976, -2700,500,500) then
begin
NPC();
engine.dlgsel(1);
delay(20000);
Engine.MoveTo(83364, 147941, -3400);
end;
//---------------------------------------------------
//Giran=>Oren
//---------------------------------------------------
if user.InRange(83387, 147943, -3399,500,500) then
begin
NPC();
engine.dlgsel(1);
delay(20000);
Engine.MoveTo(82957, 53195, -1488);
end;
//---------------------------------------------------
//Oren=>Aden
//---------------------------------------------------
if user.InRange(82944, 53157, -1490,500,500) then
begin
NPC();
engine.dlgsel(1);
delay(20000);
Engine.MoveTo(146795, 25803, -2008);
end;
//---------------------------------------------------
//Goddard=>Aden
//---------------------------------------------------
if user.InRange(147921, -55280, -2729,500,500) then
begin
NPC();
engine.dlgsel(7);
delay(20000);
Engine.MoveTo(146795, 25803, -2008);
end;
//---------------------------------------------------
//Hein=>Goddard
//---------------------------------------------------
if user.InRange(111421, 219358, -3540,500,500) then
begin
NPC();
engine.dlgsel(5);
delay(20000);
Engine.MoveTo(147977, -55262, -2728);
end;
//---------------------------------------------------
//Schuttgart=>Goddard
//---------------------------------------------------
if user.InRange(87192, -143320, -1288,500,500) then
begin
NPC();
engine.dlgsel(2);
delay(20000);
Engine.MoveTo(147977, -55262, -2728);
end;
//---------------------------------------------------
//Runa=>Goddard
//---------------------------------------------------
if user.InRange(43783, -47714, -793,500,500) then
begin
NPC();
engine.dlgsel(1);
delay(20000);
end;

end;
if (User.Level>=52) and (User.Level<70) then
begin
//---------------------------------------------------
//Orc=>Gludio
//---------------------------------------------------
if user.InRange(-45080, -112456, -240,500,500) then
begin
NPC();
engine.dlgsel(1);
delay(20000);
Engine.MoveTo(-12707, 122794, -3112);
end;
//---------------------------------------------------
//Dwarf=>Gludio
//---------------------------------------------------
if user.InRange(115240, -178184, -928,500,500) then
begin
NPC();
engine.dlgsel(1);
delay(20000);
Engine.MoveTo(-12707, 122794, -3112);
end;
//---------------------------------------------------
//Elf=>Gludio
//---------------------------------------------------
if user.InRange(46952, 51496, -2976,500,500) then
begin
NPC();
engine.dlgsel(1);
delay(20000);
Engine.MoveTo(-12707, 122794, -3112);
end;
//---------------------------------------------------
//DElf=>Gludio
//---------------------------------------------------
if user.InRange(9720, 15592, -4568,500,500) then
begin
NPC();
engine.dlgsel(1);
delay(20000);
Engine.MoveTo(-12707, 122794, -3112);
end;
//---------------------------------------------------
//Human=>Gludin
//---------------------------------------------------
if user.InRange(-84184, 244616, -3728,500,500) then
begin
NPC();
engine.dlgsel(1);
delay(20000);
Engine.MoveTo(-80789, 149798, -3040);
end;
//---------------------------------------------------
//Gludin=>Gludio
//---------------------------------------------------
if user.InRange(-80813, 149767, -3038,500,500) then
begin
NPC();
engine.dlgsel(1);
delay(20000);
Engine.MoveTo(-12707, 122794, -3112);
end;
//---------------------------------------------------
//Gludio=>Dion
//---------------------------------------------------
if user.InRange(-12674, 122765, -3111,500,500) then
begin
NPC();
engine.dlgsel(5);
delay(20000);
Engine.MoveTo(15666, 142916, -2696);
end;
//---------------------------------------------------
//Dion=>Giran
//---------------------------------------------------
if user.InRange(15672, 142976, -2700,500,500) then
begin
NPC();
engine.dlgsel(1);
delay(20000);
Engine.MoveTo(83364, 147941, -3400);
end;
//---------------------------------------------------
//Giran=>Oren
//---------------------------------------------------
if user.InRange(83387, 147943, -3399,500,500) then
begin
NPC();
engine.dlgsel(1);
delay(20000);
Engine.MoveTo(82957, 53195, -1488);
end;
//---------------------------------------------------
//Oren=>Aden
//---------------------------------------------------
if user.InRange(82944, 53157, -1490,500,500) then
begin
NPC();
engine.dlgsel(1);
delay(20000);
Engine.MoveTo(146795, 25803, -2008);
end;
//---------------------------------------------------
//Goddard=>Aden
//---------------------------------------------------
if user.InRange(147921, -55280, -2729,500,500) then
begin
NPC();
engine.dlgsel(7);
delay(20000);
Engine.MoveTo(146795, 25803, -2008);
end;
//---------------------------------------------------
//Hein=>Goddard
//---------------------------------------------------
if user.InRange(111421, 219358, -3540,500,500) then
begin
NPC();
engine.dlgsel(5);
delay(20000);
Engine.MoveTo(147977, -55262, -2728);
end;
//---------------------------------------------------
//Schuttgart=>Goddard
//---------------------------------------------------
if user.InRange(87192, -143320, -1288,500,500) then
begin
NPC();
engine.dlgsel(2);
delay(20000);
Engine.MoveTo(147977, -55262, -2728);
end;
//---------------------------------------------------
//Runa=>Goddard
//---------------------------------------------------
if user.InRange(43783, -47714, -793,500,500) then
begin
NPC();
engine.dlgsel(1);
delay(20000);
Engine.MoveTo(147977, -55262, -2728);
end;

end;
if (User.Level>=70) and (User.Level<81) then
begin
//---------------------------------------------------
//Orc=>Gludio
//---------------------------------------------------
if user.InRange(-45080, -112456, -240,500,500) then
begin
NPC();
engine.dlgsel(1);
delay(20000);
Engine.MoveTo(-12707, 122794, -3112);
end;
//---------------------------------------------------
//Dwarf=>Gludio
//---------------------------------------------------
if user.InRange(115240, -178184, -928,500,500) then
begin
NPC();
engine.dlgsel(1);
delay(20000);
Engine.MoveTo(-12707, 122794, -3112);
end;
//---------------------------------------------------
//Elf=>Gludio
//---------------------------------------------------
if user.InRange(46952, 51496, -2976,500,500) then
begin
NPC();
engine.dlgsel(1);
delay(20000);
Engine.MoveTo(-12707, 122794, -3112);
end;
//---------------------------------------------------
//DElf=>Gludio
//---------------------------------------------------
if user.InRange(9720, 15592, -4568,500,500) then
begin
NPC();
engine.dlgsel(1);
delay(20000);
Engine.MoveTo(-12707, 122794, -3112);
end;
//---------------------------------------------------
//Human=>Gludin
//---------------------------------------------------
if user.InRange(-84184, 244616, -3728,500,500) then
begin
NPC();
engine.dlgsel(1);
delay(20000);
Engine.MoveTo(-80789, 149798, -3040);
end;
//---------------------------------------------------
//Gludin=>Gludio
//---------------------------------------------------
if user.InRange(-80813, 149767, -3038,500,500) then
begin
NPC();
engine.dlgsel(1);
delay(20000);
Engine.MoveTo(-12707, 122794, -3112);
end;
//---------------------------------------------------
//Gludio=>Dion
//---------------------------------------------------
if user.InRange(-12674, 122765, -3111,500,500) then
begin
NPC();
engine.dlgsel(5);
delay(20000);
Engine.MoveTo(15666, 142916, -2696);
end;
//---------------------------------------------------
//Dion=>Giran
//---------------------------------------------------
if user.InRange(15672, 142976, -2700,500,500) then
begin
NPC();
engine.dlgsel(1);
delay(20000);
Engine.MoveTo(83364, 147941, -3400);
end;
//---------------------------------------------------
//Giran=>Oren
//---------------------------------------------------
if user.InRange(83387, 147943, -3399,500,500) then
begin
NPC();
engine.dlgsel(1);
delay(20000);
Engine.MoveTo(82957, 53195, -1488);
end;
//---------------------------------------------------
//Oren=>Aden
//---------------------------------------------------
if user.InRange(82944, 53157, -1490,500,500) then
begin
NPC();
engine.dlgsel(1);
delay(20000);
Engine.MoveTo(146795, 25803, -2008);
end;
//---------------------------------------------------
//Aden=>Goddard
//---------------------------------------------------
if user.InRange(146552, 25784, -2016,500,500) then
begin
NPC();
engine.dlgsel(1);
delay(20000);
Engine.MoveTo(147977, -55262, -2728);
end;
//---------------------------------------------------
//Hein=>Goddard
//---------------------------------------------------
if user.InRange(111421, 219358, -3540,500,500) then
begin
NPC();
engine.dlgsel(5);
delay(20000);
Engine.MoveTo(147977, -55262, -2728);
end;
//---------------------------------------------------
//Schuttgart=>Goddard
//---------------------------------------------------
if user.InRange(87192, -143320, -1288,500,500) then
begin
NPC();
engine.dlgsel(2);
delay(20000);
Engine.MoveTo(147977, -55262, -2728);
end;
//---------------------------------------------------
//Runa=>Goddard
//---------------------------------------------------
if user.InRange(43783, -47714, -793,500,500) then
begin
NPC();
engine.dlgsel(1);
delay(20000);
Engine.MoveTo(147977, -55262, -2728);
end;

end;

end;
//---------------------------------------------------
//Зоны кача
//---------------------------------------------------
//8+
procedure Nub(); //Подредактировать
begin
//Human
if user.InRange(-84149, 244598, -3728,500,500) then
begin
Buffer();
NPC();
engine.dlgsel(8);
delay(20000);
Engine.MoveTo(-104200, 213688, -3264);
delay(500);
Engine.MoveTo(-102856, 213880, -3200);
delay(500);
Engine.MoveTo(-101208, 214056, -3184);
delay(500);
if user.InRange(-101208, 214056, -3184,500,500) then
begin
Engine.FaceControl(0,true);
end;
end;
//Elf
if user.InRange(46915, 51475, -2976,500,500) then
begin
Buffer();
NPC();
engine.dlgsel(5);
delay(20000);
Engine.MoveTo(21592, 51016, -3696);
delay(500);
Engine.MoveTo(22744, 49704, -3536);
delay(500);
Engine.MoveTo(23384, 49128, -3504);
delay(500);
Engine.MoveTo(23416, 48072, -3568);
delay(500);
if user.InRange(23416, 48072, -3568,500,500) then
begin
Engine.FaceControl(0,true);
end;
end;
//DElf
if user.InRange(9709, 15561, -4568,500,500) then
begin
Buffer();
NPC();
engine.dlgsel(6);
delay(20000);
Engine.MoveTo(-30024, 49624, -3536);
delay(500);
Engine.MoveTo(-29016, 48616, -3648);
delay(500);
Engine.MoveTo(-27752, 47192, -3664);
delay(500);
if user.InRange(-27752, 47192, -3664,500,500) then
begin
Engine.FaceControl(0,true);
end;
end;
//Dwarf
if user.InRange(115109, -178174, -896,500,500) then
begin
Buffer();
NPC();
engine.dlgsel(9);
delay(20000);
Engine.MoveTo(139768, -177048, -1536);
delay(500);
Engine.MoveTo(139784, -176408, -1536);
delay(500);
Engine.MoveTo(139704, -175272, -1664);
delay(500);
Engine.MoveTo(139112, -174504, -1728);
delay(500);
Engine.MoveTo(138472, -174216, -1728);
delay(500);
Engine.MoveTo(137720, -173928, -1776);
delay(500);
Engine.MoveTo(137096, -173208, -1776);
delay(500);
if user.InRange(137096, -173208, -1776,500,500) then
begin
Engine.FaceControl(0,true);
end;
end;
//Orc
if user.InRange(-45232, -112516, -242,500,500) then
begin
Buffer();
NPC();
engine.dlgsel(10);
delay(20000);
Engine.MoveTo(7560, -138728, -912);
delay(500);
Engine.MoveTo(7624, -138296, -864);
delay(500);
Engine.MoveTo(8040, -137752, -864);
delay(500);
Engine.MoveTo(8568, -137224, -944);
delay(500);
if user.InRange(8568, -137224, -944,500,500) then
begin
Engine.FaceControl(0,true);
end;
end;
end;
//20+
procedure Wasteland();
begin
if user.InRange(-80789, 149798, -3040,500,500) then
begin
Buffer();
NPC();
engine.dlgsel(14);
delay(20000);
Engine.MoveTo(-16312, 209416, -3664);
delay(500);
Engine.MoveTo(-15400, 209304, -3664);
delay(500);
Engine.MoveTo(-14776, 209512, -3664);
delay(500);
Engine.MoveTo(-13496, 209848, -3648);
delay(500);
Engine.MoveTo(-12296, 209992, -3712);
delay(500);
Engine.MoveTo(-11624, 209144, -3712);
delay(500);
Engine.MoveTo(-11000, 208360, -3712);
delay(500);
Engine.MoveTo(-10264, 207416, -3728);
delay(500);
Engine.MoveTo(-9592, 206680, -3728);
delay(500);
Engine.MoveTo(-8760, 205720, -3728);
delay(500);
Engine.MoveTo(-7864, 204920, -3728);
delay(500);
Engine.MoveTo(-6984, 203880, -3728);
delay(500);
Engine.MoveTo(-6376, 202968, -3728);
delay(500);
Engine.MoveTo(-5864, 201944, -3728);
delay(500);
Engine.MoveTo(-5496, 200840, -3712);
delay(500);
Engine.MoveTo(-5304, 199752, -3616);
delay(500);
if user.InRange(-5304, 199752, -3616,500,500) then
begin
Engine.FaceControl(0,true);
end;
end;
end;
//30+
procedure Gorgon();
begin
if user.InRange(83364, 147941, -3400,500,500) then
begin
Buffer();
NPC();
engine.dlgsel(14);
delay(20000);
Engine.MoveTo(82071, 130665, -3664);
delay(500);
Engine.MoveTo(83547, 130756, -3640);
delay(500);
Engine.MoveTo(85826, 130908, -3648);
delay(500);
Engine.MoveTo(87494, 129844, -3672);
delay(500);
Engine.MoveTo(88425, 129911, -3696);
delay(500);
Engine.MoveTo(89947, 130600, -3648);
delay(500);
Engine.MoveTo(91666, 130735, -3608);
delay(500);
Engine.MoveTo(94547, 131147, -3512);
delay(500);
Engine.MoveTo(96377, 131324, -3464);
delay(500);
if user.InRange(96377, 131324, -3464,500,500) then
begin
Engine.FaceControl(0,true);
end;
end;
end;
//40+
procedure Plains();
begin
if user.InRange(82957, 53195, -1488,500,500) then
begin
Buffer();
NPC();
engine.dlgsel(13);
delay(20000);
Engine.MoveTo(87262, 85531, -3051);
delay(500);
Engine.MoveTo(87304, 85064, -3088);
delay(500);
Engine.MoveTo(87400, 83928, -3056);
delay(500);
Engine.MoveTo(87432, 82712, -3232);
delay(500);
Engine.MoveTo(86904, 82280, -3376);
delay(500);
Engine.MoveTo(85960, 81544, -3584);
delay(500);
Engine.MoveTo(84840, 80440, -3728);
delay(500);
if user.InRange(84840, 80440, -3728,500,500) then
begin
Engine.FaceControl(0,true);
end;
end;
end;
//46+
procedure Aden();
begin
if user.InRange(146795, 25803, -2008,500,500) then
begin
Buffer();
delay(500);
Engine.MoveTo(147384, 25781, -2008);
delay(500);
Engine.MoveTo(148521, 25768, -2008);
delay(500);
Engine.MoveTo(148633, 24328, -2008);
delay(500);
Engine.MoveTo(149841, 24154, -2136);
delay(500);
Engine.MoveTo(149904, 25082, -2136);
delay(500);
Engine.MoveTo(152271, 25121, -2136);
delay(500);
Engine.MoveTo(153589, 25751, -2216);
delay(500);
Engine.MoveTo(154600, 23917, -2952);
delay(500);
Engine.MoveTo(154860, 22961, -3240);
delay(500);
Engine.MoveTo(154588, 21202, -3592);
delay(500);
Engine.MoveTo(155277, 18933, -3776);
delay(500);
Engine.MoveTo(155473, 16245, -3912);
delay(500);
if user.InRange(155473, 16245, -3912,500,500) then
begin
Engine.FaceControl(0,true);
end;
end;
end;
//52+
procedure Cemetery();
begin
if user.InRange(146795, 25803, -2008,500,500) then
begin
Buffer();
NPC();
engine.dlgsel(12);
delay(20000);
Engine.MoveTo(183352, 20312, -3168);
delay(500);
Engine.MoveTo(182552, 19624, -3168);
delay(500);
Engine.MoveTo(181464, 18488, -3168);
delay(500);
Engine.MoveTo(180872, 17512, -3168);
delay(500);
if user.InRange(180872, 17512, -3168,500,500) then
begin
Engine.FaceControl(0,true);
end;
end;
end;
//61+
procedure FG();
begin
if user.InRange(146795, 25803, -2008,500,500) then
begin
Buffer();
NPC();
engine.dlgsel(12);
delay(20000);
Engine.MoveTo(186520, 20296, -3432);
delay(500);
Engine.MoveTo(188120, 20616, -3664);
delay(500);
Engine.MoveTo(189320, 20984, -3664);
delay(500);
Engine.MoveTo(190488, 21448, -3664);
delay(500);
Engine.MoveTo(191848, 21992, -3664);
delay(500);
Engine.MoveTo(145416, -63704, -3296);
delay(500);
if user.InRange(145416, -63704, -3296,500,500) then
begin
Engine.FaceControl(0,true);
end;
end;
end;
//70+
procedure Gdd();
begin
if user.InRange(147977, -55262, -2728,500,500) then
begin
Buffer();
NPC();
engine.dlgsel(10);
delay(20000);
Engine.MoveTo(146943, -67387, -3655);
delay(500);
Engine.MoveTo(147240, -66152, -3584);
delay(500);
Engine.MoveTo(147368, -65048, -3472);
delay(500);
Engine.MoveTo(146184, -64456, -3376);
delay(500);
Engine.MoveTo(145416, -63704, -3296);
delay(500);
if user.InRange(145416, -63704, -3296,500,500) then
begin
Engine.FaceControl(0,true);
end;
end;
end;
//76+
procedure Varka(); //Дописать
begin
if user.InRange(147977, -55262, -2728,500,500) then
begin
Buffer();
NPC();
engine.dlgsel(9);
delay(20000);

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

procedure SoE();
begin
Engine.Entertext('/unstuck');
end;
//---------------------------------------------------
//Данные
//---------------------------------------------------
var obj: TL2NPC;
obj2: TL2Effect;
Item: TL2Item;
Enemy: TL2Live;
Begin
while 1<>2 do begin // бесконечный цикл
Dead();
//---------------------------------------------------
//1-8 лвл Редактировать
//---------------------------------------------------
while (User.Level>=1) and (User.Level<8) do begin
Dead();
Engine.FaceControl(0,true);
if (User.Level>=8) then
begin
Engine.FaceControl(0,false);
Teleport();
delay(5000);
SoE();
delay(15000);
Town();
end;
end;
Engine.FaceControl(0,false);
SoE();
//---------------------------------------------------
//8-20 лвл
//---------------------------------------------------
while (User.Level>=8) and (User.Level<20) do begin
Town();
Dead();
Nub();
if (User.Level>=20) then
begin
Engine.FaceControl(0,false);
delay(5000);
SoE();
delay(15000);
Town();
end;
end;
Engine.FaceControl(0,false);
SoE();
//---------------------------------------------------
//20-30 лвл
//---------------------------------------------------
while (User.Level>=20) and (User.Level<30) do begin
Teleport();
Dead();
if user.InRange(-80808, 149790, -3038,500,500) then
begin
Wasteland();
end;
if (User.Level>=30) then
begin
Engine.FaceControl(0,false);
delay(5000);
SoE();
delay(15000);
Town();
end;
end;
Engine.FaceControl(0,false);
SoE();
//---------------------------------------------------
//30-40 лвл
//---------------------------------------------------
while (User.Level>=30) and (User.Level<40) do begin
Teleport();
Dead();
if user.InRange(83415, 147926, -3399,500,500) then
begin
Gorgon();
end;
if (User.Level>=40) then
begin
Engine.FaceControl(0,false);
delay(5000);
SoE();
delay(15000);
Town();
end;
end;
Engine.FaceControl(0,false);
SoE();
//---------------------------------------------------
//40-46 лвл
//---------------------------------------------------
while (User.Level>=40) and (User.Level<46) do begin
Teleport();
Dead();
if user.InRange(82957, 53195, -1488,500,500) then
begin
Plains();
end;
if (User.Level>=46) then
begin
Engine.FaceControl(0,false);
delay(5000);
SoE();
delay(15000);
Town();
end;
end;
Engine.FaceControl(0,false);
SoE();
//---------------------------------------------------
//46-52 лвл
//---------------------------------------------------
while (User.Level>=46) and (User.Level<52) do begin
Teleport();
Dead();
if user.InRange(146795, 25803, -2008,500,500) then
begin
Aden();
end;
if (User.Level>=52) then
begin
Engine.FaceControl(0,false);
delay(5000);
SoE();
delay(15000);
Town();
end;
end;
Engine.FaceControl(0,false);
SoE();
//---------------------------------------------------
//52-61 лвл
//---------------------------------------------------
while (User.Level>=52) and (User.Level<61) do begin
Teleport();
Dead();
if user.InRange(146335, 25742, -2013,500,500) then
begin
Cemetery();
end;
if (User.Level>=61) then
begin
Engine.FaceControl(0,false);
delay(5000);
SoE();
delay(15000);
Town();
end;
end;
Engine.FaceControl(0,false);
SoE();
//---------------------------------------------------
//61-70 лвл
//---------------------------------------------------
while (User.Level>=61) and (User.Level<70) do begin
Teleport();
Dead();
if user.InRange(146335, 25742, -2013,500,500) then
begin
FG();
end;
if (User.Level>=70) then
begin
Engine.FaceControl(0,false);
delay(5000);
SoE();
delay(15000);
Town();
end;
end;
Engine.FaceControl(0,false);
SoE();
//---------------------------------------------------
//70-76 лвл
//---------------------------------------------------
while (User.Level>=70) and (User.Level<76) do begin
Teleport();
Dead();
if user.InRange(147960, -55272, -2728,500,500) then
begin
Gdd();
end;
if (User.Level>=76) then
begin
Engine.FaceControl(0,false);
delay(5000);
SoE();
delay(15000);
Town();
end;
end;
Engine.FaceControl(0,false);
SoE();
//---------------------------------------------------
//76-80 лвл
//---------------------------------------------------
while (User.Level>=76) and (User.Level<81) do begin
Teleport();
Dead();
if user.InRange(147960, -55272, -2728,500,500) then
begin
Varka();
end;
if (User.Level>=81) then
begin
Engine.FaceControl(0,false);
delay(5000);
SoE();
delay(15000);
Town();
end;
end;
Engine.FaceControl(0,false);
SoE();
end;
end.



P.S. Не забываем благодарить.
 

Вложения

  • 333.txt
    83.6 KB · Просмотры: 107
почему вы не можете весь текст в код ставить?
ЗЫ: могу помоч, но не просто так
 
@Krickt, Я выложил основу скрипта,с которой людям еще работать и работать. На РПГ например баф у нубобафера, это и нужно дописать. Можна варком на окне бафаться например. Вот поэтому я написал, что дописать нужно под себя. Подредактировал описание, а то меня не так поняли :)
Я сейчас как раз дописываю нубобаф во всех городах на рпг х7.

@Donator, потому как весь текст большой, и мне кажется что спойлер в данной ситуации уместней. Кто захочет, откроет и посмотрит.
 
@Krickt, Ах в этом смысле )) Да пусть людям служит скриптик. Если администрация решит, значит поставим хайд. Я считаю, что опытные скриптеры подредактируют скрипт и не будут пересекаться в игре с теми кто использует "как есть". Поэтому не вижу ничего плохого, в том что люди будут им пользоваться. Со скриптами на адреналин и так катастрофа...
 
Can u tell us , with what boxed buffer this script works and also does it work on all clases?
 
Спасибо будем дописывать!

Вопрос. С ходу скажите как они закупаются там и шмотки берут и т.д.
Как это реализовано или нужно будет тормозить где то и одевать?
 
ХОРВЕСТР написал(а):
Вопрос. С ходу скажите как они закупаются там и шмотки берут и т.д. Как это реализовано или нужно будет тормозить где то и одевать?
Нажмите для раскрытия...
Скрипт запускать можно в любом городе, он в зависимости от уровня полетит в нужный город и сделает тп в нужную локацию. Чтобы одевался нужно дописывать самому как и ребаф. Думаю хватит Ц и А грейда шмота, чтобы деньги сильно не тратить, и теневой пухи Б грейда.. Закуп сосок тоже нужно вписать, или из ВХ забирать купленные, потому как Б грейда не продаются в магазине.
 
Войдите или зарегистрируйтесь для ответа.
Назад
Сверху