Скрипт Адреналин

[avrel]

всем привет ! есть добрые люди которые могут поделится любым скриптом по ботв Adrenalin

[15dimka15]

ап,было бы очень полезно)

[lollipops1st]

Ап, тоже жду)

[kpywka]

ап

[4ereIIok]

uses SysUtils, Classes;
var Figth_Flag:boolean;
Item: TL2Item;
Npc: TL2Npc;
procedure kvest1;
begin
Engine.SetTarget('Мартин');
Engine.MoveToTarget(-20);
Engine.DlgOpen;
Engine.DlgSel(8);
Engine.DlgSel(1);
Engine.DlgSel(1);
Engine.MoveTo(-81272, 150248, -3104);
Engine.MoveTo(-81016, 150104, -3024);
Delay(500);
Engine.SetTarget('Richlin');
Engine.MoveToTarget(-20);
Engine.DlgOpen;
Engine.DlgSel(1);
Engine.DlgSel(5);
Delay(5000);
Engine.SetTarget('Wirphy');
Engine.MoveToTarget(-20);
Engine.DlgOpen;
Engine.DlgSel(1);
Engine.DlgSel(10);
Delay(5000);
Engine.MoveTo(138536, -206040, -3584);
kvest2;
end;
procedure kvest2;
begin
Engine.LoadConfig('Спойл 20-25');
Delay(500);
Figth_Flag:=true;
Engine.Facecontrol(0,True);
Delay(300000);
Engine.Facecontrol(0,False);
Delay(500);
Engine.UseItem(736);
Delay(30000);
kvest3;
end;
procedure kvest3;
begin
Engine.MoveTo(116632, -179928, -1136);
Engine.MoveTo(115144, -178200, -880);
Engine.SetTarget('Wirphy');
Engine.MoveToTarget(-20);
Engine.DlgOpen;
Engine.DlgSel(1);
Engine.DlgSel(1);
Delay(5000);
Engine.SetTarget('Bella');
Engine.MoveToTarget(-20);
Engine.DlgOpen;
Engine.DlgSel(2);
Engine.DlgSel(9);
Delay(5000);
Engine.MoveTo(-82552, 150664, -3104);
Engine.SetTarget('Мартин');
Engine.MoveToTarget(-20);
Engine.DlgOpen;
Engine.DlgSel(8);
Engine.DlgSel(1);
kvest4;
end;
procedure kvest4;
begin
Engine.MoveTo(-81272, 150248, -3104);
Engine.MoveTo(-81016, 150104, -3024);
Delay(500);
Engine.SetTarget('Richlin');
Engine.MoveToTarget(-20);
Engine.DlgOpen;
Engine.DlgSel(1);
Engine.DlgSel(1);
Delay(5000);
Engine.SetTarget('Bella');
Engine.MoveToTarget(-20);
Engine.DlgOpen;
Engine.DlgSel(8);
Engine.DlgSel(1);
Engine.DlgSel(1);
Engine.SetTarget('Bella');
Engine.MoveToTarget(-20);
Engine.DlgOpen;
Engine.DlgSel(2);
Engine.DlgSel(5);
Delay(5000);
Engine.MoveTo(17992, 146040, -3104);
Engine.MoveTo(17384, 147576, -3104);
Engine.SetTarget('Метти');
Engine.MoveToTarget(-20);
Engine.DlgOpen;
Engine.DlgSel(2);
Engine.DlgSel(1);
Engine.MoveTo(17992, 146040, -3104);
Engine.MoveTo(15704, 143000, -2688);
Engine.SetTarget('Trisha');
Engine.MoveToTarget(-20);
Engine.DlgOpen;
Engine.DlgSel(1);
Engine.DlgSel(1);
Delay(5000);
Engine.MoveTo(81560, 149736, -3448);
Engine.MoveTo(81384, 150328, -3512);
Engine.MoveTo(80072, 149960, -3520);
Engine.MoveTo(79960, 149480, -3520);
Engine.SetTarget('Элли');
Engine.MoveToTarget(-20);
Engine.DlgOpen;
Engine.DlgSel(5);
Engine.DlgSel(1);
Engine.DlgSel(1);
Engine.MoveTo(79960, 149480, -3520);
Engine.MoveTo(80072, 149960, -3520);
Engine.MoveTo(81384, 150328, -3512);
Engine.MoveTo(81560, 149736, -3448);
Engine.SetTarget('Clarissa');
Engine.MoveToTarget(-20);
Engine.DlgOpen;
Engine.DlgSel(1);
Engine.DlgSel(7);
Delay(5000);
Engine.SetTarget('Bella');
Engine.MoveToTarget(-20);
Engine.DlgOpen;
Engine.DlgSel(2);
Engine.DlgSel(9);
Delay(5000);
Engine.MoveTo(-82552, 150664, -3104);
Engine.SetTarget('Мартин');
Engine.MoveToTarget(-20);
Engine.DlgOpen;
Engine.DlgSel(8);
Engine.DlgSel(1);
pause;
end;

//---------------------------------------------------------------------------------------------------
begin
repeat
Delay(700);
if User.InRange(-84456, 150792, -3104,4500){ and not Inventory.User.ByID(10477, Item)} then
begin
kvest1;
Delay(3000);
end;
if User.InRange(138536, -206040, -3584,3500) then
begin
kvest2;
Delay(3000);
end;
if User.InRange(115790, -179146, -976,3500) then
begin
kvest3;
Delay(3000);
end;
until Engine.Status = lsOnline;
end.

квест на волка, спасибо мне, если помог

[glebman17]

up

[Mermay]

Цитата: Сообщение от 4ereIIok uses SysUtils, Classes; var Figth_Flag:boolean; Item: TL2Item; Npc: TL2Npc; procedure kvest1; begin Engine.SetTarget('Мартин'); Engine.MoveToTarget(-20); Engine.DlgOpen; Engine.DlgSel(8); Engine.DlgSel(1); Engine.DlgSel(1); Engine.MoveTo(-81272, 150248, -3104); Engine.MoveTo(-81016, 150104, -3024); Delay(500); Engine.SetTarget('Richlin'); Engine.MoveToTarget(-20); Engine.DlgOpen; Engine.DlgSel(1); Engine.DlgSel(5); Delay(5000); Engine.SetTarget('Wirphy'); Engine.MoveToTarget(-20); Engine.DlgOpen; Engine.DlgSel(1); Engine.DlgSel(10); Delay(5000); Engine.MoveTo(138536, -206040, -3584); kvest2; end; procedure kvest2; begin Engine.LoadConfig('Спойл 20-25'); Delay(500); Figth_Flag:=true; Engine.Facecontrol(0,True); Delay(300000); Engine.Facecontrol(0,False); Delay(500); Engine.UseItem(736); Delay(30000); kvest3; end; procedure kvest3; begin Engine.MoveTo(116632, -179928, -1136); Engine.MoveTo(115144, -178200, -880); Engine.SetTarget('Wirphy'); Engine.MoveToTarget(-20); Engine.DlgOpen; Engine.DlgSel(1); Engine.DlgSel(1); Delay(5000); Engine.SetTarget('Bella'); Engine.MoveToTarget(-20); Engine.DlgOpen; Engine.DlgSel(2); Engine.DlgSel(9); Delay(5000); Engine.MoveTo(-82552, 150664, -3104); Engine.SetTarget('Мартин'); Engine.MoveToTarget(-20); Engine.DlgOpen; Engine.DlgSel(8); Engine.DlgSel(1); kvest4; end; procedure kvest4; begin Engine.MoveTo(-81272, 150248, -3104); Engine.MoveTo(-81016, 150104, -3024); Delay(500); Engine.SetTarget('Richlin'); Engine.MoveToTarget(-20); Engine.DlgOpen; Engine.DlgSel(1); Engine.DlgSel(1); Delay(5000); Engine.SetTarget('Bella'); Engine.MoveToTarget(-20); Engine.DlgOpen; Engine.DlgSel(8); Engine.DlgSel(1); Engine.DlgSel(1); Engine.SetTarget('Bella'); Engine.MoveToTarget(-20); Engine.DlgOpen; Engine.DlgSel(2); Engine.DlgSel(5); Delay(5000); Engine.MoveTo(17992, 146040, -3104); Engine.MoveTo(17384, 147576, -3104); Engine.SetTarget('Метти'); Engine.MoveToTarget(-20); Engine.DlgOpen; Engine.DlgSel(2); Engine.DlgSel(1); Engine.MoveTo(17992, 146040, -3104); Engine.MoveTo(15704, 143000, -2688); Engine.SetTarget('Trisha'); Engine.MoveToTarget(-20); Engine.DlgOpen; Engine.DlgSel(1); Engine.DlgSel(1); Delay(5000); Engine.MoveTo(81560, 149736, -3448); Engine.MoveTo(81384, 150328, -3512); Engine.MoveTo(80072, 149960, -3520); Engine.MoveTo(79960, 149480, -3520); Engine.SetTarget('Элли'); Engine.MoveToTarget(-20); Engine.DlgOpen; Engine.DlgSel(5); Engine.DlgSel(1); Engine.DlgSel(1); Engine.MoveTo(79960, 149480, -3520); Engine.MoveTo(80072, 149960, -3520); Engine.MoveTo(81384, 150328, -3512); Engine.MoveTo(81560, 149736, -3448); Engine.SetTarget('Clarissa'); Engine.MoveToTarget(-20); Engine.DlgOpen; Engine.DlgSel(1); Engine.DlgSel(7); Delay(5000); Engine.SetTarget('Bella'); Engine.MoveToTarget(-20); Engine.DlgOpen; Engine.DlgSel(2); Engine.DlgSel(9); Delay(5000); Engine.MoveTo(-82552, 150664, -3104); Engine.SetTarget('Мартин'); Engine.MoveToTarget(-20); Engine.DlgOpen; Engine.DlgSel(8); Engine.DlgSel(1); pause; end; //--------------------------------------------------------------------------------------------------- begin repeat Delay(700); if User.InRange(-84456, 150792, -3104,4500){ and not Inventory.User.ByID(10477, Item)} then begin kvest1; Delay(3000); end; if User.InRange(138536, -206040, -3584,3500) then begin kvest2; Delay(3000); end; if User.InRange(115790, -179146, -976,3500) then begin kvest3; Delay(3000); end; until Engine.Status = lsOnline; end. квест на волка, спасибо мне, если помог

вставил я твой квест на волка ))
Есть ли какие нибудь нюансы ?
Хроники там сервер, рейты ?