SRL Archive - RS3 Script Requests

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:fiery:…could someone make me a simple camelot tele bot?

feel free to message me

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

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 :)

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

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!