Simba Code:
program new;
{$DEFINE SMART}
{$I SRL/SRL.simba}
{$I SRL/SRL/Skill/magic.simba}
function homeTeleport(loc:String):boolean;
var
locBox: TBox;
x, y, DTM, failSafeTime: integer;
arP: TPointArray;
begin
result:=false;
DTM := DTMFromString('mggAAAHicY2NgYDBgZmAwAWJdINaB0iCx50C5R1D8DIjfAvEHIFZWVmC49+gJCjbT12GQAMqxY8EsQMyEBUMAAI1dEnE=');
case loc of
'Bandit Camp': locBox:=inttoBox(315, 287, 335, 301);
'Al Kharid': locBox:=inttoBox(353, 215, 371, 238);
'Varrock': locBox:=inttoBox(339, 170, 353, 189);
'Lumbridge': locBox:=inttoBox(319, 233, 335, 248);
'Draynor Village': locBox:=inttoBox(300, 201, 316, 217);
'Edgeville': locBox:=inttoBox(284, 146, 299, 170);
'Port Sarim': locBox:=inttoBox(266, 236, 284, 260);
'Falador': locBox:=inttoBox(269, 193, 285, 212);
'Taverley': locBox:=inttoBox(242, 167, 261, 188);
'Burthorpe': locBox:=inttoBox(244, 133, 259, 157);
'Catherby': locBox:=inttoBox(214, 170, 231, 189);
'Seers Village': locBox:=inttoBox(182, 149, 199, 168);
'Ardougne': locBox:=inttoBox(158, 200, 177, 220);
'Yanille': locBox:=inttoBox(150, 250, 169, 273);
'Lunar Isle': locBox:=inttoBox(35, 68, 55, 86);
end;
cast('lumbridge home teleport',false);
markTime(failSafeTime);
repeat
wait(50+random(100));
until(CountColor(12378347, MSX1, MSY1, MSX2, MSY2) > 400) or (timeFromMark(failSafeTime)>10000);
wait(600+random(400));
if(CountColor(12378347, MSX1, MSY1, MSX2, MSY2) > 400)then
begin
if(not(finddtm(dtm, x, y,locBox.x1, locBox.y1, locBox.x2, locBox.y2))) then
begin
mouse((locBox.x2+locBox.x1)/2,(locBox.y2+locBox.y1)/2,3,3,true);
result:=true;
end else
mousebox(495,31,501,37,mouse_Left);
end;
freeDtm(dtm);
end;
begin
Smart_Server := 87;
setupsrl;
homeTeleport('Yanille');
end.