Первоя Професия Godes of Destruction (Helios)

[dareokon]

Начало Деревня говорящего острова -центер , либо любая зона Эсагира.
Выполнение-До выбора професии.
(С Обновлением...... B) )
Не забываем про конфиги разпоковать закинуть в папку Settings.

Спойлер

procedure Buff;var Obj:TL2NPC; begin with Engine,User do begin/////////////////////// ///////////// ////////////////////////// ////////////
SetTarget(32327);////////////////////////////////////////////////////////////////////// /////////////////////////////////////// /////////////////////
MoveToTarget;////////////////////////////////////////////////////////////////////////////////// /////////////////// //////////////////////
DlgOpen;//////////////////////////////////////// //////////////////////////////////////////////////////////////////////// ///////////
DlgSel(1); ////////////////////////////////////////////////////////////////////////////////////////////////////// //////////////////////
DlgSel(2);//Баф------ 3 Маг. 2 Воин *************************************************
SkillAll;///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// ///////////////////////////////
CancelTarget;///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
Delay(1000);/////////////////////////////////////////////////////////////////////////////////////////////// //////////////////////////
end;
end;
procedure SkillAll;
var
i:integer;
begin
with Engine,User do begin
for i:=1 to 2000 do begin
while LearnSkill(i) do begin
LearnSkill(i);
Delay(1000);
end;
end;
end;
end;
procedure GoToHoMe;
begin with Engine,User do begin
FaceControl(0, False);
FaceControl(0, False);
while not Dead
and not InRange(147711, -56357, -2807, 5000)//Goddart
and not InRange(44123, -48599, -823, 5000)//Runa
and not InRange(147456, 26616, -2230, 6000)//Aden
and not InRange(81650, 54822, -1536, 4000)//oren
and not InRange(111379, 220022, -3703, 5000)//Hein
and not InRange(-83529, 151205, -3000, 5000)//Gludin
and not InRange(-14298, 123629, -3143, 4000)//Gludio
and not InRange(-114381, 255982, -1480, 4000)do begin//Talking
UseItem(736);
Delay(30000);
end;
if Dead then begin
GoHoMe;
GoHoMe;
Delay(5000);
end;
end;
end;
procedure Config;
var
skill: TL2Skill;
begin with Engine,User do begin
if SkillList.ByID(118, skill)then LoadConfig('1');
if not SkillList.ByID(118, skill)then LoadConfig('2');
end;
end;

var
Item:TL2Item;
npc:TL2NPC;
Effect:TL2Buff;
begin
with Engine,User do begin
if(level>17)then begin
Config;
while not QuestStatus(10331,1)do begin
if user.dead then begin
GoToHoMe;
end;
if InRange(-113511, 256587, -1531, 4000)then begin
MoveTo(-113511+random(70), 256587+random(70), -1531);
SetTarget(30006);
MoveToTarget;
DlgOpen;
DlgSel(1);
DlgSel('Руины Эсагира');
Delay(3000);
end;
if InRange(-109300, 237498, -2944, 1000)then begin
SetTarget(33180);
MoveToTarget;
DlgOpen;
DlgSel(1);
Delay(3000);
end;
if InRange(-114989, 230287, -1690, 1000)then begin
MoveTo(-114989, 230287, -1690);
Buff;
SetTarget(33197);
MoveToTarget;
DlgOpen;
DlgSel(1);
Delay(3000);
end;
if InRange(-113951, 235806, -3115, 2000)then begin
MoveTo(-115215+random(70), 235917+random(70), -3115);
MoveTo(-114554+random(70), 235686+random(70), -3115);
MoveTo(-113951+random(70), 235806+random(70), -3115);
MoveTo(-113613+random(70), 236996+random(70), -3040);
SetTarget(33182);
MoveToTarget;
DlgOpen;
DlgSel(1);
Delay(3000);
end;
if InRange(-118360, 232496, -2930, 2000)then begin
MoveTo(-118810+random(70), 232884+random(70), -2895);
MoveTo(-118701+random(30), 232654+random(30), -2929);
MoveTo(-118360+random(70), 232496+random(70), -2930);
MoveTo(-117902+random(120), 232849+random(120), -2930);
SetTarget(33189);
MoveToTarget;
DlgOpen;
DlgSel(1);
Delay(3000);
end;
if InRange(-116160, 240509, -2768, 2000)then begin
MoveTo(-116127+random(50), 239920+random(50), -2956);
MoveTo(-116160+random(20), 240509+random(20), -2768);
MoveTo(-116948+random(70), 240840+random(70), -2769);
SetTarget(33191);
MoveToTarget;
DlgOpen;
DlgSel(1);
Delay(3000);
end;
if InRange(-110849, 238756, -2952, 2000)then begin
MoveTo(-111354+random(50), 238193+random(50), -2893);
MoveTo(-110997+random(20), 238214+random(20), -2951);
MoveTo(-110849+random(50), 238756+random(50), -2952);
MoveTo(-111276+random(50), 239289+random(50), -2951);
MoveTo(-111989+random(100), 239965+random(100), -2952);
SetTarget(33188);
MoveToTarget;
DlgOpen;
DlgSel(1);
Delay(3000);
end;
if InRange(-111796, 233021, -3178, 2000)then begin
MoveTo(-112521+random(70), 233729+random(70), -3124);
SetTarget(32978);
MoveToTarget;
DlgOpen;
bypasstoserver('quest_accept?quest_id=10331');
CancelTarget;
Delay(3000);
end;
Delay(3000);
end;
while QuestStatus(10331,1)and not QuestStatus(10331,2)do begin
SetTarget(32978);///Sebion
MoveToTarget;
DlgOpen;
DlgSel(1);
DlgSel(1);
DlgSel(1);
Delay(3000);
MoveTo(-119140, 211160, -8592);
SetTarget(19155);///Infiltration Officer Combat Assistant
MoveToTarget;
DlgOpen;
DlgSel(1);
Delay(1000);
MoveTo(-118574, 211366, -8620);
LoadZone('1.zmap');
FaceControl(0, True);
while NpcList.ByID(22998,npc)do begin
if user.dead then break;
Delay(3000);
end;
FaceControl(0, False);
MoveTo(-118061, 211408, -8620);
MoveTo(-117077, 212471, -8618);
Delay(5000);
SetTarget(19155);///Infiltration Officer Combat Assistant
MoveToTarget;
DlgOpen;
DlgSel(1);
Delay(1500);
MoveTo(-116750, 212756, -8620);
LoadZone('2.zmap');
FaceControl(0, True);
while inventory.user.byID(17615,Item)and(Item.count<3)or not inventory.user.byID(17615,Item)do begin
if user.dead then break;
if inventory.user.byID(17615,Item)and(Item.count>=3)then break;
Delay(8000);
end;
FaceControl(0, False);
SetTarget(33215);
MoveToTarget;
DlgOpen;
DlgSel(1);
Delay(1000);
DlgOpen;
DlgSel(1);
Delay(1000);
DlgOpen;
DlgSel(1);
Delay(1000);
DlgOpen;
DlgSel(1);
Delay(1000);
MoveTo(-117011, 213485, -8618);
MoveTo(-117416, 213891, -8618);
MoveTo(-117802, 214192, -8618);
Delay(10000);
SetTarget(19155);///Infiltration Officer Combat Assistant
MoveToTarget;
DlgOpen;
DlgSel(1);
DlgSel(1);
Delay(1000);
MoveTo(-117494, 214009, -8618);
LoadZone('3.zmap');
FaceControl(0, True);
while NPCList.ByID(33216,NPC)do begin
if user.dead then break;
Delay(2000);
end;
FaceControl(0, False);
MoveTo(-117972, 214438, -8618);
MoveTo(-118744, 214358, -8592);
MoveTo(-119152, 213748, -8618);
Delay(8000);
SetTarget(19155);///Infiltration Officer Combat Assistant
MoveToTarget;
DlgOpen;
DlgSel(1);
Delay(1000);
MoveTo(-118835, 213477, -8701);
MoveTo(-118422, 213081, -8708);
LoadZone('4.zmap');
FaceControl(0, True);
while not QuestStatus(10331,2)do begin
if user.dead then break;
Delay(3000);
end;
if user.dead then begin
GoHoMe;
Delay(6000);
end;
Delay(3000);
end;
while QuestStatus(10331,2)do begin
if InRange(-118386, 213035, -8672, 1000)then begin
FaceControl(0, False);
while NpcList.ByID(19155,npc)and(DistTo(npc)>100)do begin
Delay(1000);
end;
Delay(3000);
SetTarget(19155);
MoveToTarget;
DlgOpen;
DlgSel(1);
Delay(3000);
end;
if InRange(-111796, 233021, -3178, 2000)then begin
SetTarget(32978);
MoveToTarget;
DlgOpen;
DlgSel(1);
DlgSel(1);
Delay(2000);
MoveTo(-111025, 232185, -3232);
SetTarget(33185);
MoveToTarget;
DlgOpen;
DlgSel(1);
Delay(3000);
end;
if InRange(-114675, 230171, -1648, 2000)then begin
SetTarget(33197);
MoveToTarget;
DlgOpen;
DlgSel(4);
Delay(3000);
end;
if InRange(-114381, 255982, -1480, 5000)then begin
MoveTo(-1148897+random(70), 2530677+random(70), -1546);
MoveTo(-115342+random(25), 253257+random(25), -1523);
MoveTo(-115908+random(25), 253284+random(25), -1532);
MoveTo(-1159007+random(25), 254069+random(25), -1541);
MoveTo(-1160417+random(70), 2548937+random(70), -1534);
MoveTo(-116565+random(25), 255286+random(25), -1470);
MoveTo(-117340+random(25), 255638+random(25), -1325);
MoveTo(-117853+random(9), 255856+random(9), -1353);
Delay(3000);
end;
if InRange(-117853, 255856, -1353, 200)then break;
Delay(3000);
end;
Delay(3000);
end;
end;
end.

 

[Krickt]

У этого человека, когда он пишет скрипты, в голове напрочь отсутствует вопрос "как это можно сделать проще?".
Со слезами на глазах представляю, как он это пишет.