Code:
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' +
'AiMoKLJFROQFbjkVhiXrsIgoBsOHJL7TGycIFoQVaDrDK8sMXAKRS' +
'XGtVZ24EKgAwgCVED0Qi0F6saoMMg5sARXBlQFqIAogZIQkQwEdBA' +
'iJrZO47ABeEmABnZ7TOACK5m7sGr8GDBRHA1zQu3AEm4YmAAIiNxJ' +
'QuIGqBiIAlXDBQHBiPQnJwJS4FRA+RC1AADDUgiK4arhJgGUcPIwA' +
'AADPDHqg==');
VarrockPic := BitmapFromString(10, 10, 'meJzTFxT5WVWFFekLiujDZPNMTO' +
'EILguXYmRggCO4AojU33//kGWBXIgCiC5MWYgJcDPhCuAMrNrhGpG' +
'thoijSeH3kT7e0AAAFRJ2lQ==');
FaladorPic := BitmapFromString(10, 11, 'meJz73NunLygCRD+rquAIIvIZLI' +
'UsjqkGws4zMYUjuCxc6u+/f3AEVwCRYmRgAAoCSTiCKIBIQWQhCFk' +
'BsiyyXjTtWE1GdhWmFH4f4Q8NAPqKhq0=');
CamelotPic := BitmapFromString(10, 12, 'meJzTFxT5WVWFFekLiujDZPNMTO' +
'EILguXYmRg+PvvHxABGXAFyFJAEs6AKIBIIcvCEcQWPLL4TcbvKvw' +
'+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.