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
SCAR Code:
//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!