PDA

View Full Version : Teleporter [Varrock,Lumbridge,Falador & Camelot]



joulaha
08-19-2015, 04:51 PM
Had to get 55 mage fast for my own account so made this simple script.

Can be set to repeat x amount of times. Adjust to the script where you'd like to teleport.

Just set where to teleport and amount if you want then play...
Checks if you have runes, checks if run out of runes...
Does not click mindlessly one spot!

REQUIRES
Smart 8.3 - http://villavu.com/forum/showthread.php?t=105548
Reflection - http://villavu.com/forum/showthread.php?t=107698
SRL-OSR - http://villavu.com/forum/showthread.php?t=99577
This might help with problems
https://villavu.com/forum/showthread.php?t=107436

I DO take suggestions towards the script, if you have one feel free to post
If you are so lucky that it runs longer periods please take print screen/copy of the proggy!
Seriously would appreciate to see how its working...

AFools
08-19-2015, 04:53 PM
Good Work! =D i will give this a blast tomorrow... =D

Keep the scripts coming.

joulaha
08-19-2015, 05:52 PM
1350 teleports per hour roughly, experience rates would be:
Camelot 55.5xp * 1350 = 74925xp / h
Falador 48xp * 1350 = 64800xp / h
Lumbridge 41xp * 1350 = 55350xp / h
Varrock 35xp * 1350 = 47250xp / h

kiwikiwi
08-20-2015, 02:06 PM
Congratulations on script release :) Great XP rates too :)

Deni_mulic
10-07-2015, 12:02 AM
I realise this post is old, but for anyone else trying to raise their mage with teleports, here's a working version of the script:



program JoulahaTeler;
{$DEFINE SMART8}
{$I SRL-OSR/SRL.Simba}
{$I SRL-OSR\SRL\misc\SmartGraphics.simba}

var
X, Y, MageInv, LumbridgePic, VarrockPic, TeleLoc, FaladorPic, Runes, RepeatTimes, SetAmountRepeat, XpFromSkill, CamelotPic: Integer;
//Defining X,Y and others

procedure GetLocation; //Setups
begin
TeleLoc := 4; // 1 = Varrock, 2 = Lumby, 3 = Fally, 4 = Cammy
Runes := 1; // This is just check for having runes
SetAmountRepeat := 1000; //This is how many times you want to repeat
end;

procedure DefineLetters;
begin
MageInv := BitmapFromString(13, 12, 'meJybvuJAeGaLvnOGiJ63YWidfX' +
'AiMoKLJFROQFbjkVhiXrsIgoBsOHJL7TGycIFoQVaDrDK8sMX AKRS' +
'XGtVZ24EKgAwgCVED0Qi0F6saoMMg5sARXBlQFqIAogZIQkQw EdBA' +
'iJrZO47ABeEmABnZ7TOACK5m7sGr8GDBRHA1zQu3AEm4YmAAI iNxJ' +
'QuIGqBiIAlXDBQHBiPQnJwJS4FRA+RC1AADDUgiK4arhJgGUc PIwA' +
'AADPDHqg==');
VarrockPic := BitmapFromString(10, 10, 'meJzTFxT5WVWFFekLiujDZPNMTO' +
'EILguXYmRggCO4AojU33//kGWBXIgCiC5MWYgJcDPhCuAMrNrhGpG' +
'thoijSeH3kT7e0AAAFRJ2lQ==');
FaladorPic := BitmapFromString(10, 11, 'meJz73NunLygCRD+rquAIIvIZLI' +
'UsjqkGws4zMYUjuCxc6u+/f3AEVwCRYmRgAAoCSTiCKIBIQWQhCFk' +
'BsiyyXjTtWE1GdhWmFH4f4Q8NAPqKhq0=');
CamelotPic := BitmapFromString(10, 12, 'meJzTFxT5WVWFFekLiujDZPNMTO' +
'EILguXYmRg+PvvHxABGXAFyFJAEs6AKIBIIcvCEcQWPLL4Tcb vKvw' +
'+0scbGp97+zDVQESAUhAE4SIjiDgAsmaN5Q==');
LumbridgePic := BitmapFromString(10, 7, 'meJzLMzFlZGAAor///kEYcJRnYpq' +
'HV/ZnVRVEAVAWjuBSEAQ3AVkXEOkLisAVwBFcCi6LiYBSn3v7MNVA ' +
'RIBSAPoCTRk=');
end;

procedure FreeBitmaps;
begin
Freebitmap(MageInv);
Freebitmap(LumbridgePic);
Freebitmap(VarrockPic);
Freebitmap(FaladorPic);
Freebitmap(LumbridgePic);
end;



procedure StartBotting;
begin

DefineLetters;
if (TeleLoc = 1) then
TeleLoc := VarrockPic;
XpFromSkill := 35;

if (TeleLoc = 2) then
TeleLoc := LumbridgePic;
XpFromSkill := 41;

if (TeleLoc = 3) then
TeleLoc := FaladorPic;
XpFromSkill := 48;

if (TeleLoc = 4) then
TeleLoc := CamelotPic;
XpFromSkill := 55;

if FindBitmapToleranceIn(MageInv, X, Y, 0, 0, 760, 480, 20)then
begin
wait(750);
Mouse(x, y, 4, 4, True);
wait(750);
repeat

begin;

wait (750);
if FindBitmapToleranceIn(TeleLoc, X, Y, 500, 200, 760, 480, 5)then
begin
Wait(750);
Mouse(x+5, y+5, 7, 7, True);
inc(RepeatTimes);
Cleardebug;
WriteLn('---Joulahas teleporter---');
WriteLn('Time run (' + timeRunning + ')');
WriteLn('Teleport times (' + IntToStr(RepeatTimes) + ')');
WriteLn('XP gained (' + IntToStr(RepeatTimes*XpFromSkill) + ')');
Wait(750);
end else

begin
Runes := 0;
WriteLn('Teleport not found, no runes?');
LogOut;
end;

end;

until (Runes = 0) or (RepeatTimes = SetAmountRepeat);

end else
WriteLn('No mageslot found, no runes or repeated enough.');
LogOut;

if (Runes = 0) then
WriteLn('Runes out?');
LogOut;

end;

begin
SetupSrl;
ClearDebug();
AddOnTerminate('FreeBitmaps');
GetLocation;
StartBotting;
end.


Your directories weren't setup correctly, and you didn't terminate the Mouse() statements with a semicolon.

Edit for proggy:


---Joulahas teleporter---
Time run (44 Minutes and 30 Seconds)
Teleport times (998)
XP gained (54890)
Teleport not found, no runes?
Runes out?
Succesfully freed SMART[4716]
Error: The bitmap[7] does not exist at line 45
Execution failed.
The following bitmaps were not freed: [6]