Kekropus' Letter(9/9)

[dareokon]

Во такой скриптик заволялся мб каму сгадица B)

Спойлер: Kekropus' Letter

//D@reokon
//Скрипт использует Те настройки боя которые вы поставите
//Разпакуите карты в папку Settings
//Зону поиска поставте (карта) без карт не будет работать
//Авто возврат после смерти в боте рекомендуеца отключить шоб не возникло проблем
//Начало По достижению 81 lvl для магических класов
//Закупитесь свитками телепорта и зарядами =))
//***********************************************
//(Стерите // В САМОМ НАЧАЛЕ СТРОКИ напротив нужного Бафа и поставте наптротив не нужных )
procedure DlgBuff;begin with Engine do begin
//DlgSel(1);//********Knight's Harmony
DlgSel(2);//*****Warrior's Harmony
//DlgSel(3);//*****Wizard's Harmony
end;
end;
///**********************************************
///
//
procedure exp3;
var
NPC:TL2NPC;
begin with Engine,NPCList do begin
if ByName('Герольд',npc)or ByName('Proclaimer',npc) then begin
SetTarget('Герольд');
SetTarget('Proclaimer');
MoveToTarget;
DlgOpen;
DlgSel(1);
Delay(1000);
end;
end;
end;
var
Item : TL2Item;
Effect:TL2Buff;
NPC:TL2NPC;
begin with Engine,User do begin
if not QuestStatus(10439,1)then begin
OpenQuestion;
Delay(3000);
end;
if QuestStatus(10439,1)then begin
UseItem(37127);
Delay(10000);
SetTarget(30916);
DlgOpen;
DlgSel('Квест');
DlgSel('Quest');
DlgSel(1);
DlgSel(1);
DlgSel(1);
Delay(2000);
MoveTo(108508, 221693, -3624);
MoveTo(108605, 221671, -3568);
MoveTo(108670, 221424, -3568);
MoveTo(110137, 221383, -3569);
MoveTo(110209, 220727, -3506);
MoveTo(110324, 220104, -3628);
MoveTo(110885, 219996, -3697);
MoveTo(111175, 219629, -3696);
MoveTo(111174, 219165, -3569);
MoveTo(111107, 219103, -3568);
SetTarget(32327);
DlgOpen;
DlgSel(1);
DlgBuff;
exp3;
UseItem(37039);
Delay(10000);
MoveTo(86851, 162461, -3607);
SetTarget(32641);
DlgOpen;
DlgSel('Квест');
DlgSel('Quest');
DlgSel(1);
DlgSel(1);
DlgSel(1);
Delay(2000);
end;
if not QuestStatus(10440,1)then begin
SetTarget(32641);
DlgOpen;
DlgSel('Квест');
DlgSel('Quest');
DlgSel(1);
DlgSel(1);
DlgSel(1);
DlgSel(1);
Delay(2000);
end;
if QuestStatus(10440,1)then begin
MoveTo(87151, 162676, -3602);
MoveTo(87533, 164396, -3489);
MoveTo(87518, 166061, -3506);
MoveTo(87124, 167173, -3673);
MoveTo(86621, 168901, -3790);
MoveTo(86773, 170229, -3790);
MoveTo(86925, 171389, -3715);
MoveTo(86836, 171866, -3555);
MoveTo(86268, 174835, -3723);
MoveTo(86354, 175926, -3648);
MoveTo(86248, 177997, -3711);
MoveTo(85878, 180327, -3728);
LoadZone('Filed of Silence.zmap');
FaceControl(0, True);
while not QuestStatus(10440,2) do begin
if User.Dead then begin
FaceControl(0, False);
GoHoMe;
Delay(5000);
MoveTo(111161, 219915, -3697);
MoveTo(111173, 219228, -3569);
MoveTo(111178, 219089, -3569);
MoveTo(111118, 219113, -3569);
SetTarget(32327);
DlgOpen;
DlgSel(1);
DlgBuff;
MoveTo(111243, 219168, -3568);
MoveTo(111347, 219355, -3572);
exp3;
SetTarget(30899);
DlgOpen;
DlgSel(1);
DlgSel('Поля Безмолвия');
DlgSel('Filed of Silence');
Delay(2000);
MoveTo(87151, 162676, -3602);
MoveTo(87533, 164396, -3489);
MoveTo(87518, 166061, -3506);
MoveTo(87124, 167173, -3673);
MoveTo(86621, 168901, -3790);
MoveTo(86773, 170229, -3790);
MoveTo(86925, 171389, -3715);
MoveTo(86836, 171866, -3555);
MoveTo(86268, 174835, -3723);
MoveTo(86354, 175926, -3648);
MoveTo(86248, 177997, -3711);
MoveTo(85878, 180327, -3728);
FaceControl(0, True);
Delay(2000);
end;
Delay(5000);
end;
FaceControl(0, False);
UseItem(736);
Delay(30000);
if User.Dead then begin
FaceControl(0, False);
GoHoMe;
Delay(5000);
end;
MoveTo(111161, 219915, -3697);
MoveTo(111173, 219228, -3569);
MoveTo(111178, 219089, -3569);
MoveTo(111118, 219113, -3569);
SetTarget(32327);
DlgOpen;
DlgSel(1);
DlgBuff;
MoveTo(111243, 219168, -3568);
MoveTo(111347, 219355, -3572);
exp3;
SetTarget(30899);
DlgOpen;
DlgSel(1);
DlgSel('Поля Безмолвия');
DlgSel('Filed of Silence');
Delay(2000);
MoveTo(86851, 162461, -3607);
SetTarget(32641);
MoveToTarget;
DlgOpen;
DlgSel('Квест');
DlgSel('Quest');
DlgSel(1);
DlgSel(1);
Delay(2000);
end;
if not QuestStatus(10441,1)then begin
SetTarget(32641);
DlgOpen;
DlgSel('Квест');
DlgSel('Quest');
DlgSel(1);
DlgSel(1);
DlgSel(1);
DlgSel(1);
Delay(2000);
end;
if QuestStatus(10441,1)then begin
MoveTo(87132, 162600, -3598);
MoveTo(87482, 164501, -3482);
MoveTo(87558, 166171, -3502);
MoveTo(86923, 168244, -3790);
MoveTo(86669, 169077, -3789);
MoveTo(86891, 170103, -3790);
MoveTo(87186, 171608, -3688);
MoveTo(87018, 173195, -3728);
MoveTo(86894, 173270, -3780);
MoveTo(86634, 175081, -3671);
MoveTo(87921, 175806, -3532);
MoveTo(88068, 176215, -3520);
MoveTo(88086, 176270, -3519);
LoadZone('Filed of Silence boss.zmap');
while not NPCList.ByID(27505,npc)do begin
FaceControl(0, False);
SetTarget(33869);
MoveToTarget;
DlgOpen;
DlgSel('Квест');
DlgSel('Quest');
DlgSel(1);
DlgSel(1);
DlgSel(1);
DlgSel(1);
Delay(3000);
FaceControl(0, True);
end;
while not QuestStatus(10441,2) do begin
if User.Dead then begin
FaceControl(0, False);
GoHoMe;
Delay(5000);
MoveTo(111161, 219915, -3697);
MoveTo(111173, 219228, -3569);
MoveTo(111178, 219089, -3569);
MoveTo(111118, 219113, -3569);
SetTarget(32327);
DlgOpen;
DlgSel(1);
DlgBuff;
MoveTo(111243, 219168, -3568);
MoveTo(111347, 219355, -3572);
exp3;
SetTarget(30899);
DlgOpen;
DlgSel(1);
DlgSel('Поля Безмолвия');
DlgSel('Filed of Silence');
Delay(2000);
MoveTo(87132, 162600, -3598);
MoveTo(87482, 164501, -3482);
MoveTo(87558, 166171, -3502);
MoveTo(86923, 168244, -3790);
MoveTo(86669, 169077, -3789);
MoveTo(86891, 170103, -3790);
MoveTo(87186, 171608, -3688);
MoveTo(87018, 173195, -3728);
MoveTo(86894, 173270, -3780);
MoveTo(86634, 175081, -3671);
MoveTo(87921, 175806, -3532);
MoveTo(88068, 176215, -3520);
MoveTo(88086, 176270, -3519);
FaceControl(0, True);
Delay(2000);
end;
Delay(5000);
end;
FaceControl(0, False);
MoveTo(88086, 176270, -3519);
MoveTo(88068, 176215, -3520);
MoveTo(87921, 175806, -3532);
MoveTo(86634, 175081, -3671);
MoveTo(86894, 173270, -3780);
MoveTo(87018, 173195, -3728);
MoveTo(87186, 171608, -3688);
MoveTo(86891, 170103, -3790);
MoveTo(86669, 169077, -3789);
MoveTo(86923, 168244, -3790);
MoveTo(87558, 166171, -3502);
MoveTo(87482, 164501, -3482);
MoveTo(87132, 162600, -3598);
MoveTo(87132, 162600, -3598);
MoveTo(86851, 162461, -3607);
SetTarget(32641);
DlgOpen;
DlgSel('Квест');
DlgSel('Quest');
DlgSel(1);
DlgSel(1);
DlgSel(1);
DlgSel(1);
Delay(2000);
end;
if not QuestStatus(770,1)then begin
SetTarget(32646);
MoveToTarget;
DlgOpen;
DlgSel('Квест');
DlgSel('Quest');
DlgSel(1);
DlgSel(1);
DlgSel(1);
Delay(2000);
end;
if QuestStatus(770,1)then begin
MoveTo(87151, 162676, -3602);
MoveTo(87533, 164396, -3489);
MoveTo(87518, 166061, -3506);
MoveTo(87124, 167173, -3673);
MoveTo(86621, 168901, -3790);
MoveTo(86773, 170229, -3790);
MoveTo(86925, 171389, -3715);
MoveTo(86836, 171866, -3555);
MoveTo(86268, 174835, -3723);
MoveTo(86354, 175926, -3648);
MoveTo(86248, 177997, -3711);
MoveTo(85878, 180327, -3728);
LoadZone('Filed of Silence.zmap');
FaceControl(0, True);
while not QuestStatus(770,3) do begin
if User.Dead then begin
FaceControl(0, False);
GoHoMe;
Delay(5000);
MoveTo(111161, 219915, -3697);
MoveTo(111173, 219228, -3569);
MoveTo(111178, 219089, -3569);
MoveTo(111118, 219113, -3569);
SetTarget(32327);
DlgOpen;
DlgSel(1);
DlgBuff;
MoveTo(111243, 219168, -3568);
MoveTo(111347, 219355, -3572);
exp3;
SetTarget(30899);
DlgOpen;
DlgSel(1);
DlgSel('Поля Безмолвия');
DlgSel('Filed of Silence');
Delay(2000);
MoveTo(87151, 162676, -3602);
MoveTo(87533, 164396, -3489);
MoveTo(87518, 166061, -3506);
MoveTo(87124, 167173, -3673);
MoveTo(86621, 168901, -3790);
MoveTo(86773, 170229, -3790);
MoveTo(86925, 171389, -3715);
MoveTo(86836, 171866, -3555);
MoveTo(86268, 174835, -3723);
MoveTo(86354, 175926, -3648);
MoveTo(86248, 177997, -3711);
MoveTo(85878, 180327, -3728);
FaceControl(0, True);
Delay(2000);
end;
User.Buffs.ByID(15643,Effect);
if Effect.Endtime<100000 then begin
UseItem(736);
FaceControl(0, False);
Delay(30000);
if User.Dead then begin
GoHoMe;
Delay(5000);
end;
MoveTo(111161, 219915, -3697);
MoveTo(111173, 219228, -3569);
MoveTo(111178, 219089, -3569);
MoveTo(111118, 219113, -3569);
SetTarget(32327);
DlgOpen;
DlgSel(1);
DlgBuff;
MoveTo(111243, 219168, -3568);
MoveTo(111347, 219355, -3572);
exp3;
SetTarget(30899);
DlgOpen;
DlgSel(1);
DlgSel('Поля Безмолвия');
DlgSel('Filed of Silence');
Delay(2000);
MoveTo(87151, 162676, -3602);
MoveTo(87533, 164396, -3489);
MoveTo(87518, 166061, -3506);
MoveTo(87124, 167173, -3673);
MoveTo(86621, 168901, -3790);
MoveTo(86773, 170229, -3790);
MoveTo(86925, 171389, -3715);
MoveTo(86836, 171866, -3555);
MoveTo(86268, 174835, -3723);
MoveTo(86354, 175926, -3648);
MoveTo(86248, 177997, -3711);
MoveTo(85878, 180327, -3728);
FaceControl(0, True);
Delay(2000);
end;
Delay(10000);
end;
FaceControl(0, False);
UseItem(736);
Delay(30000);
if User.Dead then begin
FaceControl(0, False);
GoHoMe;
Delay(5000);
end;
MoveTo(111161, 219915, -3697);
MoveTo(111173, 219228, -3569);
MoveTo(111178, 219089, -3569);
MoveTo(111118, 219113, -3569);
SetTarget(32327);
DlgOpen;
DlgSel(1);
DlgBuff;
MoveTo(111243, 219168, -3568);
MoveTo(111347, 219355, -3572);
exp3;
SetTarget(30899);
DlgOpen;
DlgSel(1);
DlgSel('Поля Безмолвия');
DlgSel('Filed of Silence');
Delay(2000);
MoveTo(86851, 162461, -3607);
SetTarget(32646);
MoveToTarget;
DlgOpen;
DlgSel('Квест');
DlgSel('Quest');
DlgSel(1);
DlgSel(1);
Delay(2000);
end;
if(level<=85)then begin
MoveTo(87151, 162676, -3602);
MoveTo(87533, 164396, -3489);
MoveTo(87518, 166061, -3506);
MoveTo(87124, 167173, -3673);
MoveTo(86621, 168901, -3790);
MoveTo(86773, 170229, -3790);
MoveTo(86925, 171389, -3715);
MoveTo(86836, 171866, -3555);
MoveTo(86268, 174835, -3723);
MoveTo(86354, 175926, -3648);
MoveTo(86248, 177997, -3711);
MoveTo(85878, 180327, -3728);
LoadZone('Filed of Silence.zmap');
FaceControl(0, True);
while(level<=85)do begin
if User.Dead then begin
FaceControl(0, False);
GoHoMe;
Delay(5000);
MoveTo(111161, 219915, -3697);
MoveTo(111173, 219228, -3569);
MoveTo(111178, 219089, -3569);
MoveTo(111118, 219113, -3569);
SetTarget(32327);
DlgOpen;
DlgSel(1);
DlgBuff;
MoveTo(111243, 219168, -3568);
MoveTo(111347, 219355, -3572);
exp3;
SetTarget(30899);
DlgOpen;
DlgSel(1);
DlgSel('Поля Безмолвия');
DlgSel('Filed of Silence');
Delay(2000);
MoveTo(87151, 162676, -3602);
MoveTo(87533, 164396, -3489);
MoveTo(87518, 166061, -3506);
MoveTo(87124, 167173, -3673);
MoveTo(86621, 168901, -3790);
MoveTo(86773, 170229, -3790);
MoveTo(86925, 171389, -3715);
MoveTo(86836, 171866, -3555);
MoveTo(86268, 174835, -3723);
MoveTo(86354, 175926, -3648);
MoveTo(86248, 177997, -3711);
MoveTo(85878, 180327, -3728);
FaceControl(0, True);
Delay(2000);
end;
User.Buffs.ByID(15643,Effect);
if Effect.Endtime<100000 then begin
UseItem(736);
FaceControl(0, False);
Delay(30000);
if User.Dead then begin
GoHoMe;
Delay(5000);
end;
MoveTo(111161, 219915, -3697);
MoveTo(111173, 219228, -3569);
MoveTo(111178, 219089, -3569);
MoveTo(111118, 219113, -3569);
SetTarget(32327);
DlgOpen;
DlgSel(1);
DlgBuff;
MoveTo(111243, 219168, -3568);
MoveTo(111347, 219355, -3572);
exp3;
SetTarget(30899);
DlgOpen;
DlgSel(1);
DlgSel('Поля Безмолвия');
DlgSel('Filed of Silence');
Delay(2000);
MoveTo(87151, 162676, -3602);
MoveTo(87533, 164396, -3489);
MoveTo(87518, 166061, -3506);
MoveTo(87124, 167173, -3673);
MoveTo(86621, 168901, -3790);
MoveTo(86773, 170229, -3790);
MoveTo(86925, 171389, -3715);
MoveTo(86836, 171866, -3555);
MoveTo(86268, 174835, -3723);
MoveTo(86354, 175926, -3648);
MoveTo(86248, 177997, -3711);
MoveTo(85878, 180327, -3728);
FaceControl(0, True);
Delay(2000);
end;
Delay(10000);
end;
FaceControl(0, False);
UseItem(736);
Delay(30000);
if User.Dead then begin
FaceControl(0, False);
GoHoMe;
Delay(5000);
end;
PlaySound('dc.wav');
Delay(2000);
end;
end;
end.