Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement