SRL Archive - RS3 Outdated / Broken Scripts

I am proud to present my newest creation

The Transporter

What it does
For now, will raise your magic level by teleporting to Camelot.
Uses Smart!

Set it up
Set-up lines 13-14, 19-41

//The Transporter by 70s_dollar//
//Set-up lines 13,14, 19-41//
//Special Thanks to Cyrocism for helping me out with this scipt! Thanks again!

program Transporter;
{.include SRL/SRL/Misc/Smart.scar}
{.Include SRL\SRL.SCAR}

var sx,sy,TeleNum:Integer;


Const
  UseSleep = 'True'; //True or False to sleep every now and then
  Teleperperson = 10; //How many teleports per person? Recommend till you run out of runes

procedure DeclarePlayers;

 begin
  HowManyPlayers := 1; {How many players?}
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0; {What player do whish to use?}

  Players[0].Name := ''; //username
  Players[0].Pass := ''; //password
  Players[0].Nick := ''; //3-4 letters of name
  Players[0].Active := True;

  {Players[1].Name := ''; //username
  Players[1].Pass := ''; //password
  Players[1].Nick := ''; //3-4 letters of name
  Players[1].Active := False;

  Players[2].Name := ''; //username
  Players[2].Pass := ''; //password
  Players[2].Nick := ''; //3-4 letters of name
  Players[2].Active := False;

  Players[3].Name := ''; //username
  Players[3].Pass := ''; //password
  Players[3].Nick := ''; //3-4 letters of name
  Players[3].Active := False;      }

end;

procedure AntiBan;

begin
  if not LoggedIn then Exit;
  case Random(180) of
    0: Begin
          RandomRClick;
          wait(1000+random(1000));
       end;
    1: HoverSkill('random', False);
    2: HoverSkill('Magic', False);
    3: RandomMovement;
    4: BoredHuman;
    5: If (UseSleep = 'True') or (UseSleep = 'true') then
       Begin
        Writeln('Sleeping');
        SleepAndMoveMouse(10000+random(50000)); //10 to 60 seconds
        Writeln('Finished sleeping, returning to Tele');
       end;
   end;
end;


Procedure AntiRandom;
begin
    FindNormalRandoms;
    if (findfight=true) then
    begin
      runaway('S',true,1,5000+random(2000));
  end;
end;

Procedure ProgressReport;


Begin
 ClearDebug;
 Writeln('|---------------------------------------------------------------------|');
 Writeln('|------------------- The Transporter by 70s dollar -------------------|');
 Writeln('|---------------------------------------------------------------------|');
 Writeln('|- We Teleported a total of ' + IntToStr(TeleNum) + ' times ------------------|');
 Writeln('|---------------------------------------------------------------------|');
 Writeln('|----------------------- Post Progress Reports! ----------------------|');
 Writeln('|---------------------------------------------------------------------|');
end;

Procedure Transport;

begin
 sx := 716;
 sy := 301;
 if(not(GameTab(7))) then
    GameTab(7);
 Wait(2500+Random(1000));
 Mouse(sx, sy, 7, 7, True);
 Inc(TeleNum);
end;

Procedure SetupSmart;
Begin
  Writeln('Loading SMART');
  SmartSetupEx(23, false, true, false);
  wait(3000);
  SetTargetDC(SmartGetDC);
  repeat
    wait(100);
  until(SmartGetColor(253, 233)<>1118604);
  Cleardebug;
  Writeln('SMART loaded');
end;

procedure MainLoop;
begin
 If(not(loggedin)) then loginplayer;
  repeat
  Transport;
  until(TeleNum >= Teleperperson) or (AllPlayersInactive) or (not(loggedin));
  if (AllPlayersInactive) then
  begin
    Logout;
    Cleardebug;
    ProgressReport;
    Writeln('All players are inactive');
    wait(500+random(500));
    Writeln('Thank you for using Transporter');
    TerminateScript;
  end else
  begin
    Nextplayer(True);
  If(not(loggedin)) then
  Begin
     Writeln('No players are logged in');
     TerminateScript;
  end;
 end;
end;

Procedure SetupScript;
Begin
If (UseSleep = 'True') or (UseSleep = 'true') then
 Begin
 Cleardebug;
  SetupSRL;
   Cleardebug;
   SetupSmart;
   DeclarePlayers;;
    If (not(loggedin)) then loginplayer;
    makecompass('n');
    SetAngle(True);
    Setrun(true);
 end else
   Begin
     ClearDebug;
     Writeln('Please set UseSleep to true or false');
     TerminateScript;
   end;
end;

begin
 Setupscript;
   Repeat
     Mainloop;
   Until(AllPlayersInactive);
end.

end

Thank you for reading, and as always post proggies!

Way too simple… No Anti-ban in sight? besides simple randoms.

From: noob-2
Way too simple… No Anti-ban in sight? besides simple randoms.

Are you serious? It's right below declare players, ever try looking?

Yeah but you don't call it in your main loop.

But I think its an ok first attempt, keep learning and see what more interesting and helpful features you can add into it. Like a law rune detector to see when you can/cannot cast the spell.

One thing I noticed is that when you switch players for when all the casts are done it says NextPlayer(true) which keeps the current player active, but it just moves into the next one, you want to use NextPlayer(false) so that it never goes onto that player again.

Also sx and sy can be declared locally to make the script more efficient.

From: Richard
Yeah but you don't call it in your main loop.

But I think its an ok first attempt, keep learning and see what more interesting and helpful features you can add into it. Like a law rune detector to see when you can/cannot cast the spell.

One thing I noticed is that when you switch players for when all the casts are done it says NextPlayer(true) which keeps the current player active, but it just moves into the next one, you want to use NextPlayer(false) so that it never goes onto that player again.

Also sx and sy can be declared locally to make the script more efficient.

Well my plan for this is to eventually develop into an AIO teleporter, so I guess you gotta start somewhere, yea, I did notice that it would keep logging in and out, will update today.

It looks like over 90% of your script was stolen from my Drain Willows one before i did big updates to it. I can tell you did some small edits to make it look like yours and you did not even ask me if you could use it.

It is good that you know what all of it means and I am glad to see your learning more about scar. I will allow you to use it but next time just ask please

From: cycrosism
It looks like over 90% of your script was stolen from my Drain Willows one before i did big updates to it. I can tell you did some small edits to make it look like yours and you did not even ask me if you could use it.

agreed. I know its yours because your the only one who uses strings instead of booleans :p

Look at my updated version(s)

From: cycrosism
It looks like over 90% of your script was stolen from my Drain Willows one before i did big updates to it. I can tell you did some small edits to make it look like yours and you did not even ask me if you could use it.

It is good that you know what all of it means and I am glad to see your learning more about scar. I will allow you to use it but next time just ask please

Sorry, I'll credit you, however I'm currently semi-re-writing this script, so there'll be different functions in there

You copied more then my "simple" antiban, but i'm not going to argue with you. Ty for putting credits

hey here's a proggy function that tells how much exp they earned!

Begin
ClearDebug;
Writeln('|———————————————————————|');
Writeln('|——————- The Transporter by 70s dollar ——————-|');
Writeln('|———————————————————————|');
Writeln('|- We Teleported a total of ' + IntToStr(TeleNum) + ' times ——————|');
Writeln('|- To gain a total XP of ' + IntToStr(TeleNum * 55.5) + '! —————-|')
Writeln('|———————————————————————|');
Writeln('|———————– Post Progress Reports! ———————-|');
Writeln('|———————————————————————|');
end;

LOL!

NICE!

~Sandstorm

i didnt know you can grave dig scripts ;p