Code:
////////////////////////////////////////////////////////////////////////////
/////////////////////////5 choice auto tele/////////////////////////////////
/////////////////////////////by bbri06//////////////////////////////////////
///////////////////////////my first script//////////////////////////////////
{features
1.5 choice tele system
2.user friendly
3.no lag!
4.it's free
things it doesn't have
1.anti randoms(its my first script lol)}
program autotele;
{.include SRL/SRL.scar}
{.include/SRL/Core/Login.scar}
{.include/SRL/Core/inventory.scar}
var
c,a,b:integer;
const
timestotele=16;{double the amount you want to do}
placetotele=4;{1=varrok, 2=lumbridge, 3=falador, 4=camelot, 5=ardougne}
procedure spellbook;
begin
movemousesmooth(740,187)
wait(500)
clickmouse(740,187,true)
end;
procedure varroktele;
begin
if(not(findcolor(a,b,16349818,576,258,602,285)))th en
begin
spellbook;
end
if(findcolor(a,b,16349818,576,258,602,285))then
begin
movemousesmooth(591,271)
wait(100+random(50))
clickmouse(591,271,true)
wait(1200+random(100))
end
end;
procedure lumbytele;
begin
if(not(findcolor(a,b,16349818,646,260,672,287)))th en
begin
spellbook;
end
if(findcolor(a,b,16349818,646,260,672,287))then
begin
movemousesmooth(659,270+random(3))
wait(100)
clickmouse(659,270,true)
wait(1200+random(10))
end
end;
procedure fallytele;
begin
if(not(findcolor(a,b,16349818,553,285,578,311)))th en
begin
spellbook;
end
if(findcolor(a,b,16349818,553,285,578,311))then
begin
movemousesmooth(566,295)
wait(100+random(30))
clickmouse(566,295,true)
wait(1200)
end
end;
procedure cammytele;
begin
if(not(findcolor(a,b,16349818,670,285,696,310)))th en
begin
spellbook;
end
if(findcolor(a,b,16349818,670,285,696,310))then
begin
movemousesmooth(682,294)
wait(100-random(10))
clickmouse(682,294,true)
wait(1200+random(50))
end
end;
procedure ardytele;
begin
if(not(findcolor(a,b,16349818,672,336,645,310)))th en
begin
spellbook;
end
if(findcolor(a,b,16349818,672,336,645,310))then
begin
movemousesmooth(658,320+random(4))
wait(100)
clickmouse(658,320,true)
wait(1200+random(10))
end
end;
procedure tele;
begin
if(placetotele=1)then
begin
varroktele;
end
if(placetotele=2)then
begin
lumbytele;
end
if(placetotele=3)then
begin
fallytele;
end
if(placetotele=4)then
begin
cammytele
end
if(placetotele=5)then
begin
ardytele
end
end;
begin
setupsrl;
repeat
tele;
c:=c+1
until(c=timestotele)
writeln('FINISHED TELEPORTING')
writeln('LOGING OFF')
logout;
end.