PDA

View Full Version : [Magic] IncrediblyGreatAutoTeleporter



Calluminati
03-08-2016, 03:57 AM
Made this to quickly get 55 mage.
Start with any teleporter in the ability slot one.
Simple antiban and on screen proggy.
27232

program Telepawrt;
{$DEFINE SMART}
{$I SRL-6/SRL.simba}

var
ebola: integer = 0;

procedure declarePlayers();
begin
setLength(players, 1);
with players[0] do
begin
loginName := 'USERNAME'; // username
password := 'PASSWORD'; //password
isActive := true;
world := -1;// set 0 for random -1 for play button 138 for world 138
isMember := true;
end
currentPlayer := 0;
end;
procedure writeStatus;
begin
with (smartImage) do
begin
clearArea(Mainscreen.getBounds());

drawText('Times clicked: ' + IntToStr(ebola), point(1, 365), upcharsex, false, clwhite);
end;
end;
procedure Antiban();
begin
case random(6000) of
1..60:
begin
pickUpMouse();
wait(randomRange(50, 250));
end;
61..150:
begin
smallRandomMouse();
wait(randomRange(100, 500));
end;
150..214:
begin
mouseOffClient(OFF_CLIENT_RANDOM);
wait(randomRange(512, 1051));
end;
215..250:
begin
case random(4) of
1: hoverSkill(SKILL_MAGIC);
2: hoverRandomSkill();
end;
wait(randomRange(2000, 7500));
end;
251..310:
begin
sleepAndMoveMouse(2150 + random(2000));
wait(randomRange(500, 1250));
end;
end;
end;
procedure Click
begin
wait(randomRange(90, 140));
actionBar.clickSlot(1);
AntiBan;
wait(randomRange(10, 250));
inc(ebola);
end
begin
clearDebug();
smartEnableDrawing :=true;
setupSRL();
Writeln('Logging in');
declarePlayers();
repeat
if not isLoggedIn() then
begin
players[currentPlayer].login();
exitSquealOfFortune();
mainScreen.setAngle(MS_ANGLE_HIGH);
minimap.setAngle(MM_DIRECTION_NORTH);
end;
begin
Click();
writeStatus;
end;
until players.getActive() < 1;
end.

KeepBotting
03-08-2016, 12:29 PM
var
ebola: integer = 0;

LOL

Gratz on the release!

ckbbe
09-04-2016, 06:15 PM
Works like a charm.