Results 1 to 3 of 3

Thread: Can someone make a camelot tele bot?

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

    Question Can someone make a camelot tele bot?

    the msi one didnt work, it just clicked on superheat then logs out ive logged back in changed it many times and im just frustrated with it...could someone make me a simple camelot tele bot?

    feel free to message me

  2. #2
    Join Date
    Feb 2012
    Location
    DON'T PM ME ASKING FOR STUFF
    Posts
    2,170
    Mentioned
    38 Post(s)
    Quoted
    423 Post(s)

    Default

    I can do this in NO time. So just keeps clicking Camelot?

    Simba Code:
    program XtraCamelot;
    {$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('Just Teleported to Camelot')
      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)); // This looks like you've gone to get a drink
        end;
    end;
    begin
      SetupSRL;
      DeclarePlayers;
      LoginPlayer;
      Players[CurrentPlayer].Integers[0] := GetXPBarTotal;
      Writeln('Your using Xtra-Camelot Requested Script');
      Repeat
        FindNormalRandoms;
        Teleport;
        AFK;
      until(Not LoggedIn);
    End.


    Haven't tried it yet. Tell me how it goes

    Working, Feel free to make it more human like though
    Last edited by xtrapsp; 03-24-2012 at 08:27 PM.

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

    Default

    Quote Originally Posted by xtrapsp View Post
    I can do this in NO time. So just keeps clicking Camelot?

    Simba Code:
    program XtraCamelot;
    {$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('Just Teleported to Camelot')
      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)); // This looks like you've gone to get a drink
        end;
    end;
    begin
      SetupSRL;
      DeclarePlayers;
      LoginPlayer;
      Players[CurrentPlayer].Integers[0] := GetXPBarTotal;
      Writeln('Your using Xtra-Camelot Requested Script');
      Repeat
        FindNormalRandoms;
        Teleport;
        AFK;
      until(Not LoggedIn);
    End.


    Haven't tried it yet. Tell me how it goes

    Working, Feel free to make it more human like though

    Thanks!

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
  •