This is a VERY basic script. I needed to get a few magic levels so I set this up real quick. I decided a member might be able to benefit from this every once in a while so I will put it up for the community!

Start the script anywhere, with law runes in your inventory and an air staff equipped.

Features
- Repeatedly cats the Camelot teleport
- Antiban every 100-200 casts
- Random check every 25-35
- Progress report every 50 casts
- 70k xp/hr (cost about 330k/hr in law runes)

Things To Note
- The script does NOT check for laws or an air staff so have them.
- The script will NOT log you out if you run out of runes so don't leave it running if you will run out of law runes.
- This script is meant for quick magic xp to gain a few levels. I would not advise using this script or this method for long periods of time due to the lack of fail safes and the method is pricey compared to other methods.


Simba Code:
program AlsCamTele;
{$DEFINE SMART}
{$i srl/srl.simba}

Var
T,A,K,TimeGone,XPN,XPH,XPO: Integer;

Procedure DeclarePlayers;
Begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;
  Players[0].Name :=''; // Enter your username here.
  Players[0].Pass :=''; // Enter your password here.
  Players[0].Nick :=''; // Enter nickname for progres report.
  Players[0].Active:=True;
  Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins'];
End;

Procedure Proggy;
Begin
  ClearDebug;
  K   := (0)
  TimeGone := (GetTimeRunning/1000);
  XPN      := ((GetXPBar(1))-XPO);
  XPH      := ((3600*(XPN))/(TimeGone));
  Writeln('Time Ran  : '+MsToTime(GetTimeRunning,Time_Bare));
  Writeln('Gained Xp : '+IntToStr(XPN));
  Writeln('Exp/hr    : '+IntToStr(XPH));
End;

Procedure IfRandoms;
Begin
  T := 0;
  FindNormalRandoms;
  GameTab(tab_Magic);
  Mouse(574,253,5,5,True);
End;

Procedure AntiBan;
Begin
  A := 0;
  HoverSkill('runecrafting',False);
  GameTab(tab_Magic);
  Mouse(574,253,5,5,True);
End;

Procedure CameTele;
Begin
  Wait(RandomRange(2500,2750));
  ClickMouse2(True);
  IncEx(T,1); IncEx(A,1); IncEx(K,1);
  If (T>=(25+Random(10))) Then IfRandoms;
  If (A>=(100+Random(100))) Then AntiBan;
  If (K>=(50)) Then Proggy;
End;

Begin
  ClearDebug;
  MouseSpeed := RandomRange(10,20);
  Smart_Server := 00;
  Smart_Members := True;
  Smart_Signed := True;
  Smart_SuperDetail := False
  SetupSRL;
  ActivateClient;
  DeclarePlayers;
  LoginPlayer;
  T := 0; A := 0; K := 0;
  XPO := GetXpBar(1);
  GameTab(tab_Magic);
  Mouse(574,253,5,5,True);
  Repeat
    CameTele;
  Until(False);
End.