I have this script that i made based on yours in the start of this thread but i cant seem to be able to add your script to mine i only know very little c# so its hard for me :P
var
item: TL2Item;
function buffCheck: Boolean;
var buff: TL2Buff;
begin
if not User.Buffs.ByID(1388, buff) then begin
Result:=true;
Print('Buffs are needed. Buffing...');
Engine.MoveTo(81909, 148285, -3464);
Delay(500);
Engine.SetTarget('Horadrim'); // NPC ID
Delay(500);
Engine.DlgOpen;
Delay(500);
Engine.DlgSel('farm');
Delay(500);
Print('Buffed.');
Engine.MoveTo(83378, 147917, -3400);
end;
Result:=false;
end;
function deadCheck: Boolean;
begin
Result := false;
if User.Dead then begin
Print('Dead. Pressing to village.');
Delay(1000);
Engine.FaceControl(0,false);
Engine.GoHome;
Delay(10000);
end;
end;
begin
while true do begin
delay(150);
if User.Dead then begin
deadCheck;
end;
if User.inrange(131369,114436,-3713, 250, 1000) then begin
Engine.MoveTo(134874,114441,-3720);
Engine.FaceControl(0,true);
Delay(20000);
Engine.MoveTo(135968,114977,-3720);
Delay(20000);
Engine.MoveTo(137824,114366,-3720);
Engine.MoveTo(139808,114388,-3720); //close to entrance
Delay(20000);
Engine.MoveTo(141847,114428,-3720);
Engine.MoveTo(142725,113730,-3720);
Engine.MoveTo(144446,114477,-3720);
Engine.MoveTo(146443,112252,-3720);
end;
if user.inrange(81940, 148398, -3469, 10000) then begin
buffCheck;
end;
if user.inrange(83378, 147917, -3400, 500) and User.Buffs.ByID(1388, buffCheck) then begin
Engine.SetTarget('Mystra');
delay(500);
Engine.DlgOpen;
delay(500);
Engine.DlgSel('High Level Hunting Areas');
delay(500);
Engine.DlgSel('Dragon Valley Cave');
delay(500);
Engine.DlgSel('Confirm');
end;
end;
end.