Всем доброго времени суток! Публикую свой первый скрипт, никогда раньше этим не занимался, не судите строго))
Делал под рпг:
uses SysUtils, Classes, Utils;
procedure TakeQuest;
begin
Engine.MoveTo(18523, 145374, -3145);
Engine.MoveTo(18397, 145097, -3107);
Engine.MoveTo(-14202, 125735, -3169);
Engine.MoveTo(-13826, 126059, -3171);
Engine.MoveTo(-13251, 126173, -3171);
Engine.MoveTo(-12699, 124884, -3155);
Engine.MoveTo(-12823, 124887, -3126);
Utils.RandomDelay(500, 1500);
Engine.SetTarget(30957);
Utils.RandomDelay(500, 1500);
Engine.Dlgopen;
Utils.RandomDelay(500, 1500);
Engine.DlgSel(1);
Utils.RandomDelay(500, 1500);
Engine.DlgSel(1);
Utils.RandomDelay(500, 1500);
Engine.MoveTo(18257,145271,-3048);
Engine.MoveTo(17841,145724,-3125);
Engine.MoveTo(17367,145249,-3084);
Engine.MoveTo(17143,144908,-3044);
Engine.SetTarget(32327); //Помощник Путешественников
Engine.DlgOpen;
Utils.RandomDelay(500, 1500);
Engine.DlgSel(1); //Здесь диалог с NPC
Utils.RandomDelay(500, 1500);
Engine.DlgSel(1); //Здесь диалог с NPC
Utils.RandomDelay(500, 1500);
Engine.MoveTo(16761,144542,-3027);
Engine.MoveTo(16432,144090,-2985);
Engine.MoveTo(16090,143599,-2872);
Engine.MoveTo(15802,143152,-2752);
Engine.MoveTo(15651,142926,-2732);
Engine.SetTarget(30059);
Engine.DlgOpen; //Здесь диалог с NPC (тп из диона в Аден)
Utils.RandomDelay(500, 1500);
Engine.DlgSel(1); //Здесь диалог с NPC
Utils.RandomDelay(500, 1500);
Engine.DlgSel(7); //Здесь диалог с NPC
Utils.RandomDelay(500, 2500);
Engine.MoveTo(147306,25846,-2039);
Engine.MoveTo(147229,26529,-2230);
Engine.MoveTo(147110,26708,-2231);
Engine.MoveTo(146621,26596,-2231);
Engine.MoveTo(146607,26371,-2217);
Engine.MoveTo(146771,26266,-2216);
Engine.SetTarget(30837);
Engine.DlgOpen; //Здесь диалог с NPC Вудро)
Utils.RandomDelay(500, 1500);
Engine.DlgSel(5); //Здесь диалог с NPC
Utils.RandomDelay(500, 1500);
Engine.MoveTo(146622,26468,-2217); //путь до гк Аден
Engine.MoveTo(146629,26732,-2231);
Engine.MoveTo(147258,26614,-2230);
Engine.MoveTo(147233,26052,-2049);
Engine.MoveTo(147178,25784,-2039);
Engine.MoveTo(146831,25801,-2039);
Engine.MoveTo(146761,25825,-2039);
Engine.SetTarget(30848);
Engine.DlgOpen;
Utils.RandomDelay(500, 1500);
Engine.DlgSel(1); //Здесь диалог с NPC
Utils.RandomDelay(500, 1500);
Engine.DlgSel(3); //Здесь диалог с NPC тп в Гиран
Utils.RandomDelay(500, 1500);
Engine.SetTarget(30080);
Engine.DlgOpen; // разговор с гк Гиран Кларисса
Engine.DlgSel(1); //Здесь диалог с NPC
Utils.RandomDelay(500, 1500);
Engine.DlgSel(9); // Гавань Гирана
Utils.RandomDelay(500, 1500);
Engine.MoveTo(47221,186912,-3512); // путь до Галиона
Engine.MoveTo(46264,187080,-3512);
Engine.MoveTo(43995,188332,-3513);
Engine.MoveTo(43896,189110,-3513);
Engine.MoveTo(43933,189715,-3582);
Engine.MoveTo(44533,190683,-3652);
Engine.MoveTo(44679,190693,-3652);
Engine.SetTarget(30958); // Галион[id: 30958]
Engine.DlgOpen; // разговор с Галионом
Engine.DlgSel(1); //Здесь диалог с NPC
Utils.RandomDelay(500, 1500);
Engine.MoveTo(44464,190682,-3652);
Engine.MoveTo(43896,189474,-3582);
Engine.MoveTo(44333,187909,-3512);
Engine.MoveTo(47015,186719,-3512);
Engine.MoveTo(47888,186808,-3512);
Engine.MoveTo(47888,186808,-3480);
Engine.SetTarget(30878); // Ангелина[id: 30878]
Engine.DlgOpen;
Utils.RandomDelay(500, 1500);
Engine.DlgSel(1); //Здесь диалог с NPC тп в Гиран
Utils.RandomDelay(500, 1500);
Engine.DlgSel(1);
Utils.RandomDelay(500, 1500);
Engine.SetTarget(30080); // Кларисса[id: 30080]
Engine.DlgOpen;
Utils.RandomDelay(500, 1500);
Engine.DlgSel(1); //
Utils.RandomDelay(500, 1500);
Engine.DlgSel(3); // тп в Дион
Utils.RandomDelay(500, 1500);
Engine.MoveTo(15472, 142880, -2688);
Engine.MoveTo(15802, 143079, -2744); // путь до Свена
Engine.MoveTo(15543, 142939, -2731);
Engine.MoveTo(16669, 144350, -3017);
Engine.MoveTo(17061, 144861, -3036);
Engine.MoveTo(17496, 145357, -3094);
Engine.MoveTo(18178, 145508, -3124);
Engine.MoveTo(18318, 145172, -3103);
Engine.MoveTo(18371, 145092, -3102);
Engine.SetTarget(30957); // Свен[id: 30957]
Engine.DlgOpen;
Utils.RandomDelay(500, 1500);
Engine.DlgSel(1);
Utils.RandomDelay(500, 1500);
Engine.MoveTo(17717, 146440, -3130); //путь до Нанарин
Engine.MoveTo(17326, 147182, -3142);
Engine.MoveTo(16676, 146842, -3134);
Engine.MoveTo(16853, 146177, -3136);
Engine.MoveTo(16958, 146054, -3116);
Engine.MoveTo(17006, 146056, -3111);
Engine.SetTarget(30956); // Нанарин[id: 30956]
Engine.DlgOpen;
Utils.RandomDelay(500, 1500);
Engine.DlgSel(2); //
Utils.RandomDelay(500, 1500);
Engine.DlgSel(1); // разговор с Нанарином
Utils.RandomDelay(500, 1500);
Engine.MoveTo(16932, 146068, -3121);
Engine.MoveTo(16835, 146351, -3135);
Engine.MoveTo(16959, 146982, -3126);
Engine.MoveTo(17560, 147175, -3149);
Engine.MoveTo(18132, 145737, -3140);
Engine.MoveTo(18339, 145182, -3108);
Engine.MoveTo(18364, 145081, -3099);
Engine.SetTarget(30957); // Свен[id: 30957]
Engine.DlgOpen;
Utils.RandomDelay(500, 1500);
Engine.DlgSel(1); //
Utils.RandomDelay(500, 1500);
Engine.DlgSel(3); // Сдача квеста
end;
begin
while true do begin //Цикл , возможно здесь не правильно, Делать пока правда - а что он берет за правду не совсем понимаю
TakeQuest ();
end;
end.