Results 1 to 10 of 10

Thread: NG'sTeleporter

  1. #1
    Join Date
    Feb 2012
    Posts
    16
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Talking NG'sTeleporter

    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



    Simba Code:
    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.
    Last edited by nickyguy777; 03-26-2012 at 01:21 AM.

  2. #2
    Join Date
    Jan 2012
    Location
    Calgary, AB, Canada
    Posts
    1,819
    Mentioned
    5 Post(s)
    Quoted
    120 Post(s)

    Default

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

  3. #3
    Join Date
    Mar 2012
    Location
    127.0.0.1
    Posts
    3,383
    Mentioned
    95 Post(s)
    Quoted
    717 Post(s)

    Default

    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!

  4. #4
    Join Date
    Mar 2012
    Location
    Over there
    Posts
    840
    Mentioned
    4 Post(s)
    Quoted
    42 Post(s)

    Default

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

  5. #5
    Join Date
    Mar 2012
    Location
    127.0.0.1
    Posts
    3,383
    Mentioned
    95 Post(s)
    Quoted
    717 Post(s)

    Default

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

  6. #6
    Join Date
    Mar 2012
    Location
    Over there
    Posts
    840
    Mentioned
    4 Post(s)
    Quoted
    42 Post(s)

    Default

    Oh, theres actually one more spot near the bottom.

    Just change these two lines of code and its good:

    Simba Code:
    program NGsTeleporterV1;

    and

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

    Then it should work.

    Compiled for me anyway.

  7. #7
    Join Date
    Mar 2012
    Location
    127.0.0.1
    Posts
    3,383
    Mentioned
    95 Post(s)
    Quoted
    717 Post(s)

    Default

    Yeah, that's about it.

  8. #8
    Join Date
    Nov 2011
    Location
    MA
    Posts
    545
    Mentioned
    3 Post(s)
    Quoted
    10 Post(s)

    Default

    you could change it to
    Simba Code:
    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
    Simba Code:
    Mouse(x, y, 2, 3, mouse_left);

  9. #9
    Join Date
    Mar 2012
    Location
    127.0.0.1
    Posts
    3,383
    Mentioned
    95 Post(s)
    Quoted
    717 Post(s)

    Default

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

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

  10. #10
    Join Date
    Feb 2012
    Posts
    10
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    wtf its not working??

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •