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.