Advertisement
WarPie90

[OSRS] Throwaway magic teleporter

May 22nd, 2022 (edited)
997
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. {$DEFINE SRL_USE_REMOTEINPUT}
  2. {$I SRL/osr.simba}
  3.  
  4.  
  5. (* This is to fix magic tab detection *)
  6. function TRSMagic.GetSpellBook: ERSSpellBook; override;
  7. begin
  8.   Result := ERSSpellBook.STANDARD;
  9. end;
  10.  
  11. (* let's teleport to the highest available location! *)
  12. var
  13.   curr: ERSSpell;
  14.   dots: TPointArray;
  15. begin
  16.   Mouse.Move(Mouse.Position, 45);
  17.  
  18.   while (RSClient.IsLoggedIn() and Magic.Open()) and
  19.        ((Magic.CanActivate(ERSSpell.WATCHTOWER_TELEPORT) and Magic.CastSpell(curr := ERSSpell.WATCHTOWER_TELEPORT)) or
  20.         (Magic.CanActivate(ERSSpell.ARDOUGNE_TELEPORT)   and Magic.CastSpell(curr := ERSSpell.ARDOUGNE_TELEPORT))   or
  21.         (Magic.CanActivate(ERSSpell.CAMELOT_TELEPORT)    and Magic.CastSpell(curr := ERSSpell.CAMELOT_TELEPORT))    or
  22.         (Magic.CanActivate(ERSSpell.FALADOR_TELEPORT)    and Magic.CastSpell(curr := ERSSpell.FALADOR_TELEPORT))    or
  23.         (Magic.CanActivate(ERSSpell.LUMBRIDGE_TELEPORT)  and Magic.CastSpell(curr := ERSSpell.LUMBRIDGE_TELEPORT))  or
  24.         (Magic.CanActivate(ERSSpell.VARROCK_TELEPORT)    and Magic.CastSpell(curr := ERSSpell.VARROCK_TELEPORT)))   do
  25.   begin
  26.     WriteLn(123);
  27.     Wait(750, 10000, wdLeft);
  28.     dots := Minimap.GetDots(ERSMinimapDot.PLAYER);
  29.  
  30.     if Random(3)   = 0 then Antiban.SmallRandomMouse;
  31.     if Random(60)  = 0 then Wait(200, 12000, wdLeft);
  32.     if Random(120) = 0 then Mouse.Move(Minimap.PointToMs(dots[Random(Low(dots), High(dots))]));
  33.     if Random(160) = 0 then begin Antiban.SmallRandomMouse; Wait(100, 4200); end;
  34.     if Random(280) = 0 then Antiban.RandomRotate;
  35.     if Random(300) = 0 then Stats.MouseOver(ERSSkill.MAGIC);
  36.     if Random(300) = 0 then Antiban.RandomTab;
  37.   end;
  38. end.
Advertisement
RAW Paste Data Copied
Advertisement