Code:
{Teleporter By HatlessCow
This is a powerteleporter! just keep teleporting you to the same
spot over and over again. Full anti-randos and stuff too.
}
program TelePorter;
{.include osi.txt}
{.include boxbreaker2.txt}
const
Location = 4;//1.Varrock, 2.Lumbridge, 3.Falador 4.Camelot
//5.Ardougne, 6.WatchTower, 7.Trollheim
Times = 10;//Number of times to teleport
Username = '';
Password = '';
var ax,ay,ALD:integer;
iLamp,TalkW,TalkY:integer;
procedure LoadBmps;
begin
TalkW := BitmapFromString(17, 10,
'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000' +
'000000000000000000000000000000000000FFFFFFFFFFFF000000' +
'000000FFFFFFFFFFFF000000000000000000000000000000000000' +
'000000000000000000000000000000FFFFFFFFFFFF000000000000' +
'FFFFFFFFFFFF000000000000000000000000000000000000000000' +
'000000000000000000000000FFFFFFFFFFFF000000000000FFFFFF' +
'FFFFFF000000000000000000000000000000000000000000000000' +
'000000000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
'000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF000000' +
'000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
'000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
'000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
'000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000' +
'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000000000' +
'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFF' +
'FFFFFF000000000000FFFFFFFFFFFF000000000000000000FFFFFF' +
'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
'000000000000FFFFFFFFFFFF000000000000000000000000FFFFFF' +
'FFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFF');
TalkY := BitmapFromString(17, 10,
'FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00000000000000000000' +
'000000000000000000000000000000000000FFFF00FFFF00000000' +
'000000FFFF00FFFF00000000000000000000000000000000000000' +
'000000000000000000000000000000FFFF00FFFF00000000000000' +
'FFFF00FFFF00000000000000000000000000000000000000000000' +
'000000000000000000000000FFFF00FFFF00000000000000FFFF00' +
'FFFF00000000000000000000000000000000000000000000000000' +
'000000000000000000FFFF00FFFF00000000000000FFFF00FFFF00' +
'000000000000000000000000FFFF00FFFF00FFFF00FFFF00000000' +
'000000000000FFFF00FFFF00000000000000FFFF00FFFF00000000' +
'000000000000FFFF00FFFF00000000000000FFFF00FFFF00000000' +
'000000FFFF00FFFF00000000000000FFFF00FFFF00000000000000' +
'000000000000FFFF00FFFF00FFFF00FFFF00FFFF00000000000000' +
'FFFF00FFFF00000000000000FFFF00FFFF00000000000000000000' +
'FFFF00FFFF00000000000000FFFF00FFFF00000000000000FFFF00' +
'FFFF00000000000000FFFF00FFFF00000000000000000000FFFF00' +
'FFFF00000000000000FFFF00FFFF00000000000000FFFF00FFFF00' +
'000000000000FFFF00FFFF00000000000000000000000000FFFF00' +
'FFFF00FFFF00FFFF00FFFF00000000000000FFFF00FFFF00');
iLamp := BitmapFromString(17, 6,
'000001000001000001000001BAB815B2B015AEAD15ABAA159C9A12' +
'9291128C8A1275740E000001000001000001000001000001D0CE18' +
'CBC918C8C618C5C418C5C418C0BE18BAB815B5B315ABAA15A3A112' +
'99971292911284820E79780E6968095C5A09A6A415CECC18C5C418' +
'C2C118C0BE18BDBB18BAB815B8B615B5B315B2B015A8A715A3A112' +
'9C9A129594128E8D1281800E999712AEAD15CECC18CBC918C0BE18' +
'BDBB18BAB815B5B315B2B015AEAD15A8A715A3A1129F9E12999712' +
'88860E84820E8C8A129291129C9A12000001CBC918CBC918BAB815' +
'B8B615B5B315B2B015AEAD15A8A715A3A1129C9A1295941281800E' +
'79780E84820E000001000001000001CBC918CBC918C0BE18B8B615' +
'B2B015AEAD15ABAA15A6A4159F9E129997128C8A1279780E75740E' +
'000001000001C2C118');
end;
procedure Run;
begin
SetRun(true);
MouseFlag(645,148,1,1);
StandStill;
MouseFlag(648,20,1,1);
end;
function Fight:boolean;
begin
if(FindColorSpiral(x,y,65280,216,115,284,171))then
Result:=true;
end;
procedure FindMiscRandoms;
var ax,ay:integer;
begin
if(FindColor(ax,ay,786423,10,350,150,433))then
begin
GetScreenshot('Mod',1);
LogOut('UHOH, A MOD!!!');
end;
if(GetColor(30,418)=0)and(GetColor(72,429)=0)then
begin
GetScreenshot('Dead',1);
LogOut('You are dead!');
end;
if(FindColor(ax,ay,11503238,10,350,479,433))then
begin
GetScreenshot('Mime',1);
LogOut('Mime Found');
end;
end;
procedure LoginifNeeded(Username,Password:string);
begin
if(GetColor(328,294)=16777215)then
begin
Mouse(461,295,9,9,true);
wait(600);
Mouse(373,255,0,0,true);
wait(200);
Say(username);
wait(400);
Say(password);
wait(200);
Mouse(302,320,9,9,true);
repeat
wait(50);
until(not(GetColor(540,268)=3879730))
wait(500);
repeat
Mouse(461,95,8,8,true);
until(not(GetColor(463,93)=8421504))and(not(GetColor(463,93)=16777215))
end;
end;
procedure FindText;
var counter,c:integer; Talked2Rand:boolean;
begin
if(FindColor(x,y,65535,5,5,514,337))then wait(100)
if(FindColor(x,y,65535,5,5,514,337))and(LogedIn)then
begin
repeat
counter:=counter+2+random(1);
if((x+counter) < 515)and((y+18) < 338)then
MoveMouseSmoothEx(x+counter,y+15+random(3),1,6,15,20,20);
wait(5);
if(FindColorSpiral(x,y,65280,180,90,320,230))then
break;
if(IsTextAt2(9,9,'Ta',100))then
begin
GetMousePos(x,y);
Mouse(x,y,0,0,false);
Wait(200+random(100));
if(FindBitmap(TalkW,x,y))or(FindBitmap(TalkY,x,y))then
begin
Mouse(x,y,40,5,true);
MapFlag;
wait(1000+random(1000));
while((FindColor(x,y,16711680,5,345,510,465))or //Replaces TalkToRand
(FindColor(x,y,16777215,5,345,510,465)))and
(not(GetColor(20,434)=0))and(c<=10)do
begin
Mouse(x,y,50,2,true);
wait(2000+random(1000));
c:=c+1;
end;
Talked2Rand:=true;
end;
end;
until(counter>=250)or(Talked2Rand);
end;
end;
Procedure FindLamp;
begin
while(FindBitmapSpiralTolerance(iLamp,x,y,550,200,745,470,100)) do
begin
Mouse(x+random(2),y+random(2),10,10,true);
wait(3000+random(1000));
Mouse(157+random(2),220+random(2),12,12,true)
wait(3000+random(1000));
Mouse(248+random(2),255+random(2),10,2,true);
wait(3000+random(1000));
Mouse(226+random(2),442+random(2),10,3,true);
wait(3000+random(1000));
end;
end;
procedure Randoms;
begin
LogInIfneeded(username,password);
if(Fight)then
Run;
FindMiscRandoms;
FindText;
FindLamp;
FindStrangeBox;
end;
procedure LoadLocation;
begin
if(Location=1)then
begin
ax:=682;
ay:=248;
end;
if(Location=2)then
begin
ax:=564;
ay:=273;
end;
if(Location=3)then
begin
ax:=636;
ay:=272;
end;
if(Location=4)then
begin
ax:=730;
ay:=272;
end;
if(Location=5)then
begin
ax:=660;
ay:=296;
end;
if(Location=6)then
begin
ax:=588;
ay:=320;
end;
if(Location=7)then
begin
ax:=735;
ay:=320;
end;
end;
procedure TelePort;
begin
Randoms;
Mouse(ax,ay,1,1,true);
wait(2500);
Randoms;
end;
begin
setuposi
LoadLocation;
ALD:=0;
Mouse(736,185,5,5,true);
repeat
ALD:=ALD+1;
TelePort;
until(ALD>=Times)
end.