bfspoil

procedure rebuff;
var
b1,b2:tl2buff;
i1:tl2item;
begin
while true do begin
delay(500);
  if (not user.inrange(43799, -48104, -792, 900)) then
    if (not user.buffs.byid(1204, b1)) or
	(not user.buffs.byid(268, b2)) or
	(user.buffs.byid(1204, b1) and (b1.endtime <= 640000)) or
     (user.buffs.byid(268, b2) and (b1.endtime <= 640000)) then
			if inventory.user.byid(736, i1) then
			engine.useitem(736)
				else engine.entertext('/unstuck');
				delay(7500);
			end;
  end;

procedure dead;
begin
while true do begin
delay(500);
	if user.dead then begin
	delay(1500);
	engine.gohome;
	end;
  end;
end;

procedure themegax20Rune;
var
b1,b2:tl2buff;
begin
while true do begin
delay(150);
if user.inrange(43799, -48104, -792, 900)  then
		if (not user.buffs.byid(1204, b1)) or
		(not user.buffs.byid(268, b2)) or
		(user.buffs.byid(1204, b1) and (b1.endtime <= 640000)) or
	  (user.buffs.byid(268, b2) and (b1.endtime <= 640000)) then
    begin
    Engine.MoveTo(43501, -47786, -823, 600);
    delay(250);
    end;
end;
end;

procedure buffer;
var
b1,b2:tl2buff;
begin
while true do begin
delay(500);
	if (user.inrange(43501, -47786, -823, 400)) then
		if (not user.buffs.byid(1204, b1)) or
		(not user.buffs.byid(268, b2)) or
		(user.buffs.byid(1204, b1) and (b1.endtime <= 640000)) or
		 (user.buffs.byid(268, b2) and (b1.endtime <= 640000)) then
		   begin
	    engine.FaceControl(0, false);
			engine.settarget(11003);
			engine.movetotarget;
			engine.dlgopen;
			engine.dlgsel(4);
			delay(250);
			engine.dlgsel(2);
			delay(250);
			engine.dlgsel(5);
			delay(250);
			engine.dlgsel(11);
			delay(250);
			engine.dlgsel(22);
			delay(250);
			engine.dlgsel(25);
			delay(250);
			engine.dlgsel(30);
			delay(250);
			engine.dlgsel(15);
			delay(250);
			engine.dlgsel(17);
			delay(250);
			engine.dlgsel(8);
			delay(250);
			end;
		end;
end;

 procedure teleport;
var
b1,b2:tl2buff;
begin
while true do begin
delay(500);
	if (user.inrange(43501, -47786, -823,1500)) and
	   (user.buffs.byid(1204, b1) and (b1.endtime >= 640000)) and
	   (user.buffs.byid(268, b2) and (b1.endtime >= 640000)) then
			begin
			engine.FaceControl(0, false);
			delay(5500);
      Engine.MoveTo(43795, -47671, -823);
      delay(250);
			engine.settarget(31320);
			engine.movetotarget;
			delay(1000);
			engine.dlgopen;
			engine.dlgsel(1);
			delay(1000);
			engine.dlgsel(10);
			delay(7500);
			end;
		end;
	end;

procedure spoilspot;

 begin
 delay(1500);
while true do begin
 if user.inrange(43475, -88091, -2849, 700) then begin
       Engine.MoveTo(43475, -88091, -2849);
       Engine.MoveTo(43695, -88231, -2843);
        Engine.MoveTo(44462, -87952, -2638);
         Engine.MoveTo(44607, -87900, -2605);
          Engine.MoveTo(45993, -87476, -2664);
            Engine.MoveTo(47650, -87095, -2719);
             Engine.MoveTo(47920, -87036, -2704);
              Engine.MoveTo(49708, -86569, -2714);
               Engine.MoveTo(50564, -85554, -2810);
                Engine.MoveTo(50670, -85429, -2838);
                  Engine.MoveTo(51476, -84401, -2775);
                   Engine.MoveTo(52527, -84150, -2734);

   Engine.FaceControl(0, true);
 if user.inrange(52280,-84216,-2720, 4000) then begin

   while not user.dead do begin

  if  User.Target.ID = (21470) then Engine.UseItem(6644);
  delay(50);
  if  User.Target.ID = (21476) then Engine.UseItem(6644);
  delay(50);
  if  User.Target.ID = (21478) then Engine.UseItem(6644);
  delay(50);
  if  User.Target.ID = (21481) then Engine.UseItem(6644);
  delay(50);
  if  User.Target.ID = (21484) then Engine.UseItem(6644);
  delay(50);
  if  User.Target.ID = (21486) then Engine.UseItem(6644);
  delay(50);
  if  User.Target.ID = (21477) then Engine.UseItem(6644);
  delay(50);
  if  User.Target.ID = (21478) then Engine.UseItem(6644);
  delay(50);
  if  User.Target.ID = (21479) then Engine.UseItem(6644);
  delay(50);
  if  User.Target.ID = (21480) then Engine.UseItem(6644);
  delay(50);
  if  User.Target.ID = (21482) then Engine.UseItem(6644);
  delay(50);
  if  User.Target.ID = (21472) then Engine.UseItem(6644);
  delay(50);
  if  User.Target.ID = (21473) then Engine.UseItem(6644);
  delay(50);
  if  User.Target.ID = (21474) then Engine.UseItem(6644);
  delay(50);
  if  User.Target.ID = (21475) then Engine.UseItem(6644);
  delay(50);
  if  User.Target.ID = (21470) then Engine.UseItem(6644);
  delay(50);
  if  User.Target.ID = (21483) then Engine.UseItem(6644);
  delay(50);
  end;
  end;
  end;
  end;
  end;

begin
Script.NewThread(@rebuff); delay(1500);
Script.NewThread(@dead); delay(1500);
Script.NewThread(@themegax20Rune); delay(1500);
Script.NewThread(@buffer); delay(1500);
Script.NewThread(@teleport); delay(1500);
Script.NewThread(@spoilspot); delay(1500);

end.