SRL Archive - First Scripts

This is my first script! Credit goes to xtrapsp for writing me a base script!

(How do i get it as a link to download the script also!)


Supported Tele spells…
———————–
Camelot



What it Does…
—————
1. Teleports you (start anywhere with runes in your inventory)
2. Antiban-Moves screen, angle, views skills, and pauses every now and then


Future plans…
—————
1. Proggy maker
2. More tele skills
3. custom Anti-ban

program NG'sTeleporter V.1.0;
{$DEFINE SMART}
{$i SRL\SRL.simba}

 Const
 SRLStats_Username = '';
 SRLStats_Password = '';
 NumbOfPlayers=      1;
 StartPlayer=        0;
 Debug = True;


procedure DeclarePlayers;

begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer  := 0;

  with Players[0] do
  begin
    Name := '';
    Pass := '';
    Nick := '';
    Pin  := '';
    BoxRewards := ['amp'];
    lampSkill := SKILL_WOODCUTTING;
    Member := True;
    Active := True;
  end;
end;

procedure Teleport;
var
  X, Y, Spell:Integer;
 begin
 Spell := DTMFromString('mggAAAHicY2NgYJjLxMCwGIhnAvEUIJ4DxMuB2JWRgcEWil2A2A+I3YDYwyqcwcnKAI5b594AY1yAEQeGAAD+JQw3');

 Gametab(Tab_Magic);
 Wait(randomrange(1000,1750));
  begin
  FindDTM(Spell, x, y, MIX1, MIY1, MIX2, MIY2);
  Mouse(x,y, 2, 3, true);
    wait(randomrange(100,1000));
   Gametab(Tab_Magic);
  Writeln('Welcome to Camelot...Again!')
  end;
end;
Procedure AFK;
begin
  if not loggedIn then Exit;
    Case Random (100) Of
    1..15 : Wait(1000 + Random (3050));
    16..24 : Wait (1340 + Random (1093));
    25..45: Wait (1211 + Random (6000));
    46..47: Wait (20000 + Random (10000)); // To make it seem like you have left the computer
    end;
end;
procedure antiban;
begin
  if not loggedin then Exit;
    Case random (400) of
    1..15 : hoverskill('Magic', false);
    16..100 : RandomAngle(SRL_ANGLE_HIGH);
    101..130 : makecompass('N');
    131..150 : makecompass('E');
    151..165 : makecompass('S');
    166..200 : makecompass('W')
    end;
  Wait(RandomRange(800, 1200));
end;


begin
  SetupSRL;
  DeclarePlayers;
  LoginPlayer;
  Players[CurrentPlayer].Integers[0] := GetXPBarTotal;
  Writeln('Thank you for using my script, remeber to post proggy's!');
  Repeat
    FindNormalRandoms;
    Teleport;
    AFK;
    antiban;
  until(Not LoggedIn);
End.                                                  

Go to edit then go to advanced and look for the manage attachments tab and there you can upload the script as a link

Umm, you already messed up the whole script. If you put ' anywhere, it makes everything after a string until you make another one.
Your whole script is pretty much one giant string.

Take all the ' that are NOT part of Writeln('') So, no words can have a ', nothing.
I use ` for mine. (Top left of keyboard, same key as ~)
Good luck fixing those!

Yea, in the program name you have NG's. Take out the ' in NG's and it should be ok.

There are more than that, TotalKillz.
Look at the whole script, he uses a few in the Writeln, (The actual message).

Oh, theres actually one more spot near the bottom.

Just change these two lines of code and its good:

program NGsTeleporterV1;

and

Writeln('Thank you for using my script, remeber to post proggys!');

Then it should work.

Compiled for me anyway.

Yeah, that's about it.

you could change it to

 Writeln('Thank you for using my script, remeber to post proggy''s!');    

if you really want to keep that ' ;) and in Teleport it should be

Mouse(x, y, 2, 3, mouse_left);  

Tehq, why not use `, it looks more like a ' then ".

(Just pointing it out, " works perfectly. xD)

wtf its not working??