[OSRS] Throwaway magic teleporter

{$DEFINE SRL_USE_REMOTEINPUT}
{$I SRL/osr.simba}


(* This is to fix magic tab detection *)
function TRSMagic.GetSpellBook: ERSSpellBook; override;
begin
  Result := ERSSpellBook.STANDARD;
end;

(* let's teleport to the highest available location! *)
var
  curr: ERSSpell;
  dots: TPointArray;
begin
  Mouse.Move(Mouse.Position, 45);

  while (RSClient.IsLoggedIn() and Magic.Open()) and
       ((Magic.CanActivate(ERSSpell.WATCHTOWER_TELEPORT) and Magic.CastSpell(curr := ERSSpell.WATCHTOWER_TELEPORT)) or
        (Magic.CanActivate(ERSSpell.ARDOUGNE_TELEPORT)   and Magic.CastSpell(curr := ERSSpell.ARDOUGNE_TELEPORT))   or
        (Magic.CanActivate(ERSSpell.CAMELOT_TELEPORT)    and Magic.CastSpell(curr := ERSSpell.CAMELOT_TELEPORT))    or
        (Magic.CanActivate(ERSSpell.FALADOR_TELEPORT)    and Magic.CastSpell(curr := ERSSpell.FALADOR_TELEPORT))    or
        (Magic.CanActivate(ERSSpell.LUMBRIDGE_TELEPORT)  and Magic.CastSpell(curr := ERSSpell.LUMBRIDGE_TELEPORT))  or
        (Magic.CanActivate(ERSSpell.VARROCK_TELEPORT)    and Magic.CastSpell(curr := ERSSpell.VARROCK_TELEPORT)))   do
  begin
    WriteLn(123);
    Wait(750, 10000, wdLeft);
    dots := Minimap.GetDots(ERSMinimapDot.PLAYER);

    if Random(3)   = 0 then Antiban.SmallRandomMouse;
    if Random(60)  = 0 then Wait(200, 12000, wdLeft);
    if Random(120) = 0 then Mouse.Move(Minimap.PointToMs(dots[Random(Low(dots), High(dots))]));
    if Random(160) = 0 then begin Antiban.SmallRandomMouse; Wait(100, 4200); end;
    if Random(280) = 0 then Antiban.RandomRotate;
    if Random(300) = 0 then Stats.MouseOver(ERSSkill.MAGIC);
    if Random(300) = 0 then Antiban.RandomTab;
  end;
end.