Path of the Elven Oracle

[10sfp]

Доброго времени суток всем.
Возник вопрос следующего плана: есть ли готовый скрипт на 1 профу еешки? Или любого другого класа (для Gracia Epilogue).
Цену вопроса можно озвучить в ЛС.

 

[sasha282]

@10sfp, Тебе нельзя в ЛС писать. У меня есть готовый скрипт на профу ЕЕ,ВК,спойла. Skype: Sanya628292

 

[shayne]

Engine.MoveTo(-14394, 123656, -3143);
	Engine.MoveTo(-14074, 122172, -2984);
	//Нюби хельпер в глудио
	Engine.SetTarget (31077); 
	Engine.MoveToTarget (-20);
	Engine.DlgOpen;
	delay (500);
	Engine.DlgSel (2);
	delay (500);
	Engine.DlgSel (1);
	delay (500);
	//Мануэль 
	Engine.MoveTo(-13902, 121741, -2994);
	Engine.MoveTo(-13667, 121683, -2994);
	Engine.SetTarget (30293); 
	Engine.MoveToTarget (-20);
	Engine.DlgOpen;
	delay (500);
	Engine.DlgSel (4);
	delay (500);
	Engine.DlgSel (1);
	delay (500);
	Engine.DlgOpen;
	delay (500);
	Engine.DlgSel (1);
	//Учим скиллы
	for tt := 1 to 6 do
	begin
		Engine.LearnSkill(1177);
		Engine.LearnSkill(1015);
		Engine.LearnSkill(244);
		Engine.LearnSkill(249);
	end;
	//ГК в глудио
	Engine.MoveTo(-13098, 121795, -2994);
	Engine.MoveTo(-13112, 122288, -3015);
	Engine.MoveTo(-13283, 122418, -3015);
	Engine.MoveTo(-13270, 122669, -3080);
	Engine.MoveTo(-13024, 122694, -3127);
	Engine.SetTarget (30256); 
	Engine.MoveToTarget (-20);
	Engine.DlgOpen;
	delay (500);
	Engine.DlgSel (2);
	delay (500);
	Engine.DlgSel (9);
	delay (500);
	//Алана
	respot3:
	CheckLoading (30320);
	if tmp <> 0 then
	begin
		Engine.MoveTo(-83004, 150904, -3155);
		Engine.SetTarget(31076);
		Engine.MoveToTarget (-20);
		Engine.DlgOpen;
		Engine.DlgSel(2);
		delay(500);
		Engine.DlgSel(1);
		delay(500);
		tmp := 0;
	end;
	Engine.MoveTo(-81082, 150185, -3070);
	Engine.MoveTo(-83048, 151861, -3155);
	Engine.MoveTo(-83067, 152735, -3204);
	Engine.MoveTo(-85932, 152768, -3203);
	Engine.MoveTo(-87716, 3153000, -3289);
	Engine.MoveTo(-88799, 153256, -3647);
	Engine.MoveTo(-90538, 153480, -3646);
	Engine.MoveTo(-91366, 153801, -3538);
	Engine.MoveTo(-92181, 154208, -3328);

	Engine.SetTarget(30424);
	Engine.MoveToTarget (-20);
		Engine.DlgOpen;
	Engine.DlgSel(1);
		delay(500);
	Engine.DlgSel(1);
		delay(500);
	Engine.DlgSel(1);
		delay(500);
	Engine.DlgSel(1);
		delay(500);
	
	//бой
	while not Inventory.Quest.ById(1234, Item) do
	begin
		for check := 1 to 3 do
		begin
			if check = 1 then
				NpcList.ById(27032, Enemy);
			if check = 2 then
				NpcList.ById(27033, Enemy);
			if check = 3 then
				NpcList.ById(27034, Enemy);
			while not Enemy.Dead do
			begin
				if User.HP < 50 then
					begin
						Engine.SetTarget (User);
						Engine.UseItem (5790);
						Engine.UseSkill(1015);
					end;	
					Engine.SetTarget(Enemy);
					Engine.UseItem (5790); 
					Engine.UseSkill(1177);
					delay (100);
			end;
				if	User.Dead then
			begin
				Engine.GoHome;
				tmp :=1;
				goto respot3;
			 end;
		end;
		delay (100);
	end; 
	begin
	 Engine.SetTarget(30424);
	 Engine.MoveToTarget (-20);
	 Engine.DlgOpen;
	 delay(500);
	 Engine.DlgSel(1);
	end;
	//Перин
	Engine.MoveTo(-90749, 153328, -3661);
	Engine.MoveTo(-89787, 149327, -3624);
	Engine.MoveTo(-89148, 147540, -3103);
	Engine.MoveTo(-89803, 147299, -3077);
	Engine.MoveTo(-93146, 147634, -2715);
 
	Engine.SetTarget(30428);
	Engine.MoveToTarget (-20);
	Engine.DlgOpen;
	Engine.DlgSel(1);
	delay(500);
	Engine.DlgSel(1);
	delay(500);
	Engine.DlgSel(1);
	delay(300);
	//бой 2
	NpcList.ById(27035, Enemy);
	while not Enemy.Dead or User.Dead do
		begin
		if User.HP < 50 then
				begin
					Engine.SetTarget (User);
					Engine.UseItem (5790);
					Engine.UseSkill(1015);
				end;	
		Engine.SetTarget(Enemy);
		Engine.UseItem (5790); 
		Engine.UseSkill(1177);
		delay (100);
		end;
		
	while not Inventory.Quest.ById(1275, Item) do
	begin
		Engine.SetTarget(30428);
		delay (100);
	end;				
	Engine.SetTarget(30428);
	Engine.MoveToTarget (-20);
	Engine.DlgOpen;
	delay(500);
	Engine.DlgSel(1);
	delay(500); 
	//Алана
	Engine.MoveTo(-89146, 147139, -3097);
	Engine.MoveTo(-89699, 148556, -3458);
	Engine.MoveTo(-90451, 153275, -3678);
	Engine.MoveTo(-92293, 154214, -3276);
	Engine.SetTarget(30424);
	Engine.MoveToTarget (-20);
	Engine.DlgOpen;
	delay(500);
	Engine.DlgSel(1);
	delay(500);
	//Бежим сдавать квест
	//ТП в Камаэль Виледж -> Ельфийская деревня -> Глудио
	Engine.UseItem(12753);
	CheckLoading (32135);// нюби хелпер в камаэле
	Engine.SetTarget (32135);
	Engine.MoveToTarget (-20);
	Engine.DlgOpen;
	delay (500);
	Engine.DlgSel (1);
	delay (1500);
	Engine.DlgOpen;
	 delay (1500);
	//ТП в Эльфийскую Деревню
	Engine.DlgSel (5);
	delay (500);
	Engine.DlgSel (3);
	delay (500);
	CheckLoading (30599); // Нюби хелпер в Эльфийской Деревне
	//ТП в Глудио 
	Engine.MoveTo(47206, 51116, -3022);
	Engine.MoveTo(47060, 51324, -2998);
	Engine.SetTarget (30146); 
	Engine.MoveToTarget (-20);
	Engine.DlgOpen;
	delay (500);
	Engine.DlgSel (1);
	delay (500);
	Engine.DlgSel (1);
	CheckLoading (30256);//ГК в Глудио
	//Мануэль
	Engine.MoveTo(-13259, 122636, -3080);
	Engine.MoveTo(-13319, 122376, -3015);
	Engine.MoveTo(-13083, 122193, -3015);
	Engine.MoveTo(-13111, 121792, -2994);
	Engine.MoveTo(-13306, 121660, -2985);
	Engine.MoveTo(-13408, 121592, -2994);
	Engine.SetTarget (30293); 
	Engine.MoveToTarget (-20);
	Engine.DlgOpen;
	delay (500);
	Engine.DlgSel (4);
	delay (500);