SCAR Code:
//smart version\\
//-----------------\\
//created by ben600006 \\
// \\
// \\
// \\
//setup player on lines 24- 31 \\
//---------------------------------\\
//start with correct runes in inventory\\
/////////////////////////////////////////
////////////////////////////////////////
program new;
{.include SRL\SRL\Misc\Smart.scar}
{.include srl/srl.scar}
var x, y, teleport, Clicked, AntiBanz, tab7, AntiRandomz : Integer;
const
world = 68;//change the world number if desired\\
procedure DeclarePlayers;
begin
HowManyPlayers := 1; //Amount of Characters using
NumberOfPlayers(HowManyPlayers); //Don't touch
CurrentPlayer := 0; //Player to start with (eg. Players[0] = 0)
Players[0].Name := ''; //Username
Players[0].Pass := ''; //Password
Players[0].Nick := ''; //3-4 small letters of the username
Players[0].Active := True; //Using Character? True = yes; False = no
end;
//do not edit below here\\
procedure bitmaps;
begin
teleport := BitmapFromString(11, 12, 'beNrr/dzXC0IigvpAVFX1' +
'E44gInBZZClMZXAFpiZ5cISsAC77799fOIKrgcsyMDACxYEkHMHVQ' +
'GQhCiAITQ2yAmQTMA3BagWaIzH1EvQmwYAiENQAjrClCQ==');
tab7 := BitmapFromString(26, 24, 'beNqF1EFLVFEYxvFpb6Nm2gzO' +
'2BCiIy0mQYVkNo3WolaGigrqQheBROOiGFsEgrQURZdBhCvXIS2VP' +
'oKfqD898vBy7p0RHg7n3nvOj/Oee88t9n2dqpGD+tP9iern+hgt2R' +
'sfdXaflZ2tWul9ZYS8Kz8mi6VH5NXIIGkODxAokB5aofBAMbgxlpq' +
'JJudLvaZOpK5/n31YaLxtDJtFW/0PZleoSnG0NpJLzU2Wt5eaikxR' +
'jkyVllQXqdb8bKTam6+j6fTQRJ1+Wl9uNUx1dho2FR5x8+J47+TbD' +
'lOotAelGo14VZEFZBhhVrVayS0woXAuvzeVw48rXCr0CSBJNN6+Kc' +
'ZAeUlyztuzikBaCiTaQyjiLzNSbFek7BAtT62ov1c/pbFv2VWZYi5' +
'adHKp25sfUYsU2+VVeXPipsUCRf35daS3gMZJoaP3IkrjNTEbzISi' +
'Qzla3lr1CZ3Om2niGuNcd/iu9Gl1owjHTRo3ecoYIlMVJelBceo5v' +
'1zyPRCeMiYxvQkKn1Y36uVQUWsjDOMpYxKT+1TKO6JMWi5zKUV/AB' +
'9ebV1iGtTacikWRsvBF8h9g1lTx6cb5fCRGLzXTCj/crOgWnW6mfw' +
'E/LvwdGpUZgaLWdyxiYATqbhdchTL3kmPiab2338eT7Tzov/h82Kf' +
'Lz0AQf0o+6VrYXEWyF3+AT7A8+w=');
end;
procedure report;
begin
WriteLn('[-------------progress report-------------]');
WriteLn('[ clicked ' + IntToStr(Clicked) + ' times ]');
WriteLn('[ ------Ran for ' + TimeRunning + '-------]');
writeln('[-antiban ' + IntToStr(AntiBanz) + 'times-]');
writeln('[-antirandom ' + IntToStr(AntiRandomz) + 'times-]');
WriteLn('[-----------created by ben600006----------]');
end;
procedure AntiRandoms;
Begin
mouse(x,y,0,0,true);
findnormalrandoms;
flag;
ftwait(2);
end;
procedure AntiBan;
begin
if not LoggedIn then loginplayer;
case Random(50) of
1: RandomRClick;
2: HoverSkill('Woodcutting', False);
3: RandomMovement;
4: BoredHuman;
5: AlmostLogout;
end;
AntiBanz := AntiBanz + 1;
end;
procedure teleporting;
begin
gametab(7);
wait (2000+random(265+random(659)))
repeat
if not(findbitmapspiraltolerance(tab7,x,y,1,1,1000,1000,20)) then
begin
gametab(7)
end else
wait (200+random(200));
if (findbitmapspiraltolerance(teleport,x,y,1,1,1000,1000,20)) then
begin
Mouse(x,y,10,10,true);
Clicked := Clicked + 1;
end else
begin
AntiRandoms
if (findbitmapspiraltolerance(teleport,x,y,1,1,1000,1000,20)) then
begin
teleporting
end else
begin
logout;
exit;
end;
wait (2000+random(500))
antiban
if not (loggedin) then
begin
loginplayer;
teleporting;
end;
if not (findbitmapspiraltolerance(tab7,x,y,1,1,1000,1000,20)) then
begin
AntiRandoms
gametab(7)
end;
end;
until not (findbitmapspiraltolerance(teleport,x,y,1,1,1000,1000,20))
end;
procedure SetupSMART;
begin
SmartSetupEx(World, False, True);
SetTargetDC(SmartGetDC);
end;
begin
SetupSMART;
SetupSRL;
writeln('please wait whilst SMART loads')
DeclarePlayers
bitmaps
LoginPlayer
AntiRandoms
teleporting
srlrandomsreport
report
end.