you need to try, now no red line
var
item: TL2Item;
function buffCheck: Boolean;
var buff: TL2Buff;
begin
if not User.Buffs.ByID(1204, buff) then begin
Result:=true;
Print('sa rebuff poto');
Engine.MoveTo(87181,-143445,-1288);
Delay(500);
Engine.SetTarget(35650); // NPC ID
Delay(500);
Engine.DlgOpen;
Delay(500);
Engine.DlgSel('buff');
Delay(500);
Engine.bypasstoserver('custom_dobuff MakeBuffs WindWalk231');
Delay(1000);
Engine.bypasstoserver('custom_dobuff MakeBuffs Shield231');
Delay(1000);
Engine.bypasstoserver('custom_dobuff MakeBuffs Might231');
Delay(1000);
Engine.bypasstoserver('custom_dobuff MakeBuffs MagicBarrier231');
Delay(1000);
Engine.bypasstoserver('custom_dobuff MakeBuffs BerserkerSpirit231');
Delay(1000);
Engine.bypasstoserver('custom_dobuff MakeBuffs VampiricRage231');
Delay(1000);
Engine.bypasstoserver('custom_dobuff MakeBuffs BlessedBody231');
Delay(1000);
Engine.bypasstoserver('custom_dobuff Chat 1');
Delay(1000);
Engine.bypasstoserver('custom_dobuff MakeBuffs Haste231');
Delay(1000);
Engine.bypasstoserver('custom_dobuff MakeBuffs Focus231');
Delay(1000);
Engine.bypasstoserver('custom_dobuff MakeBuffs DeathWhisper231');
Delay(1000);
Engine.bypasstoserver('custom_dobuff MakeBuffs Guidance231');
Delay(1000);
Engine.bypasstoserver('custom_dobuff MakeBuffs ResistShock231');
Delay(1000);
Engine.DlgOpen;
Delay(500);
Engine.DlgSel('Songs');
Delay(500);
Engine.bypasstoserver('custom_dobuff MakeBuffs SongofEarth231');
Delay(1000);
Engine.bypasstoserver('custom_dobuff MakeBuffs SongofWarding231');
Delay(1000);
Engine.bypasstoserver('custom_dobuff MakeBuffs SongofWind231');
Delay(1000);
Engine.bypasstoserver('custom_dobuff MakeBuffs SongofVitality231');
Delay(1000);
Engine.bypasstoserver('custom_dobuff MakeBuffs SongofHunter231');
Delay(1000);
Engine.DlgOpen;
Delay(500);
Engine.DlgSel('Dances');
Delay(500);
Engine.bypasstoserver('custom_dobuff MakeBuffs DanceofWarior231');
Delay(1000);
Engine.bypasstoserver('custom_dobuff MakeBuffs DanceofFire231');
Delay(1000);
Engine.bypasstoserver('custom_dobuff MakeBuffs DanceofFury231');
Delay(1000);
Engine.bypasstoserver('custom_dobuff MakeBuffs DanceoftheVampire231');
Delay(1000);
Engine.DlgOpen;
Delay(500);
Engine.DlgSel('Etc Buff');
Delay(1000);
Engine.bypasstoserver('custom_dobuff MakeBuffs ChantofVictory231');
Delay(1000);
Engine.bypasstoserver('custom_dobuff MakeBuffs GreaterMight231');
Delay(1000);
Engine.DlgOpen;
Delay(500);
Engine.DlgSel('HP/MP/CP');
Delay(1000);
Print('ok chui paré.');
Engine.MoveTo(87130,-143446,-1319);
end;
Result:=false;
end;
function deadCheck: Boolean;
begin
Result := false;
if User.Dead then begin
Result := true;
Print('Dead. Pressing to village.');
Delay(1000);
Engine.FaceControl(0,false);
Engine.GOHome(rtTown); ///here change to town or other
Delay(10000);
end;
end;
begin
while true do begin
delay(150);
if User.inrange(86574,-141897,-1323, 250, 150) then begin // ch
Engine.MoveTo(86780,-142217,-1320);
Engine.MoveTo(87103,-142760,-1320);
Engine.MoveTo(87164,-143449,-1288);
end;
if user.inrange(87164,-143449,-1288, 500) then begin
buffCheck;
end;
if user.inrange(87164,-143449,-1288, 150) and User.Buffs.ByID(1204, buffCheck) then begin
Engine.SetTarget(31964);
Engine.DlgOpen;
Delay(500);
Engine.DlgSel('teleport');
Delay(500);
Engine.DlgSel('Town of Goddard');
Delay(10000);
Engine.SetTarget(31275);
Engine.DlgOpen;
Delay(500);
Engine.DlgSel('teleport');
Delay(500);
Engine.DlgSel('Hot Springs');
Delay(1000);
end;
if user.inrange(149575,-112710,-2060, 500) then begin
Print('cest parti');
Engine.MoveTo(149606,-110577,-2298);
Engine.MoveTo(149161,-109035,-2529);
Engine.MoveTo(147956,-108811,-2836);
Engine.MoveTo(145523,-109075,-3449);
Engine.MoveTo(143923,-110626,-3597);
Print('Yatta');
Delay(500);
Engine.FaceControl(0, true);
while not deadCheck do delay(1000); //while not dead, do nothing and wait.
end;
end;
end.