Code:
program Lukes_KickAss_Alcher;
//*********************************************************************************//
// //
// //
// WELCOME TO LUKE'S KICK ASS ALCHER! //
// Made by Fredbear/RSisDead(Simba username) //
// 1. Fill out the setup //
// 2. Hit "Run"! //
// 3. Enjoy! //
// //
// //
//*********************************************************************************//
Alch_Count :extended;
const
ALCH_STACKED = True; // If the item you are alching is stacked (I.E arrows, bolts etc,) change this to true!
// If you are using a stacked item, place it in your second inventory slot, the first being your nature runes.
NUMBER_OF_ALCHS = 500; // Set this to the number of alchs you plan on casting (This prevents you from alching your santa hat.)
procedure DeclarePlayers;
begin
HowManyPlayers := 1; // Set this to one if you are not sure what you are doing.
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := ''; // Put your username in between the ''
Players[0].Pass := ''; // Put your password in between the ''
Players[0].Nick := '';
Players[0].Member := True; // Are you a member?
Players[0].Active := True;
Players[0].Pin := ''; // Put your pin in between the ''
Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence']
end;
// Leave the rest of this alone unless you know what you are doing!
Function Is_Done :boolean;
begin
if NUMBER_OF_ALCHS = Alch_count then;
LogOut;
Wait(randomrange(400, 500));
TerminateScript;
end;
Function Banking :boolean;
begin;
Writeln('Banking...');
ActivateClient;
MakeCompass('E');
SetAngle(SRL_ANGLE_HIGH);
Mouse(251, 83, 0, 0, false);
Wait(randomrange(800, 850));
Mouse(238, 127, 0, 0, true);
Wait(randomrange(800, 850));
Mouse(51, 107, 2, 3, false);
Wait(randomrange(800, 850));
Mouse(85, 184, 0, 0, true);
Wait(randomrange(800, 850));
Mouse(489, 35, 1, 1, true);
Wait(randomrange(800, 850));
end;
procedure Alch_Multislot;
begin
if ALCH_STACKED = False then;
if Alch_Count < NUMBER_OF_ALCHS then;
wait(100);
MakeCompass('E');
SetAngle(SRL_ANGLE_HIGH);
Writeln('Alching...');
Mouse(747, 189, 2, 2, true);
Mouse(784, 190, 2, 2, true);
wait(randomrange(400, 500));
Mouse(571, 375, 2, 2, true);
wait(randomrange(400, 500));
Mouse(611, 226, 2, 2, true);
Alch_Count:=Alch_Count+1;
wait(randomrange(400, 500));
Mouse(565, 377, 2, 2, true);
wait(randomrange(400, 500));
Mouse(662, 221, 2, 2, true);
Alch_Count:=Alch_Count+1;
wait(randomrange(400, 500));
Mouse(577, 368, 2, 2, true);
wait(randomrange(400, 500));
Mouse(703, 228, 2, 2, true);
Alch_Count:=Alch_Count+1;
wait(randomrange(400, 500));
Mouse(566, 377, 2, 2, true);
wait(randomrange(400, 500));
Mouse(576, 257, 2, 2, true);
Alch_Count:=Alch_Count+1;
wait(randomrange(400, 500));
Mouse(566, 377, 2, 2, true);
wait(randomrange(400, 500));
Mouse(616, 265, 2, 2, true);
Alch_Count:=Alch_Count+1;
wait(randomrange(400, 500));
Mouse(566, 377, 2, 2, true);
wait(randomrange(400, 500));
Mouse(656, 262, 2, 2, true);
Alch_Count:=Alch_Count+1;
wait(randomrange(400, 500));
Mouse(566, 377, 2, 2, true);
wait(randomrange(400, 500));
Mouse(706, 268, 2, 2, true);
wait(randomrange(400, 500));
Mouse(566, 377, 2, 2, true);
wait(randomrange(400, 500));
Mouse(580, 297, 2, 2, true);
wait(randomrange(400, 500));
Mouse(566, 377, 2, 2, true);
wait(randomrange(400, 500));
Mouse(622, 297, 2, 2, true);
wait(randomrange(400, 500));
Mouse(566, 377, 2, 2, true);
wait(randomrange(400, 500));
Mouse(657, 299, 2, 2, true);
wait(randomrange(400, 500));
Mouse(566, 377, 2, 2, true);
wait(randomrange(400, 500));
Mouse(698, 303, 2, 2, true);
wait(randomrange(400, 500));
Mouse(577, 368, 2, 2, true);
wait(randomrange(400, 500));
Mouse(569, 341, 2, 2, true);
wait(randomrange(400, 500));
Mouse(577, 368, 2, 2, true);
wait(randomrange(400, 500));
Mouse(627, 330, 2, 2, true);
wait(randomrange(400, 500));
Mouse(577, 368, 2, 2, true);
wait(randomrange(400, 500));
Mouse(668, 331, 2, 2, true);
wait(randomrange(400, 500));
Mouse(577, 368, 2, 2, true);
wait(randomrange(400, 500));
Mouse(702, 342, 2, 2, true);
wait(randomrange(400, 500));
Mouse(577, 368, 2, 2, true);
wait(randomrange(400, 500));
Mouse(573, 370, 2, 2, true);
wait(randomrange(400, 500));
Mouse(577, 368, 2, 2, true);
wait(randomrange(400, 500));
Mouse(624, 369, 2, 2, true);
wait(randomrange(400, 500));
Mouse(577, 368, 2, 2, true);
wait(randomrange(400, 500));
Mouse(653, 368, 2, 2, true);
wait(randomrange(400, 500));
Mouse(577, 368, 2, 2, true);
wait(randomrange(400, 500));
Mouse(707, 373, 2, 2, true);
wait(randomrange(400, 500));
Mouse(577, 368, 2, 2, true);
wait(randomrange(400, 500));
Mouse(574, 414, 2, 2, true);
wait(randomrange(400, 500));
Mouse(577, 368, 2, 2, true);
wait(randomrange(400, 500));
Mouse(621, 407, 2, 2, true);
wait(randomrange(400, 500));
Mouse(577, 368, 2, 2, true);
wait(randomrange(400, 500));
Mouse(656, 408, 2, 2, true);
wait(randomrange(400, 500));
Mouse(577, 368, 2, 2, true);
wait(randomrange(400, 500));
Mouse(698, 408, 2, 2, true);
wait(randomrange(400, 500));
Mouse(577, 368, 2, 2, true);
wait(randomrange(400, 500));
Mouse(573, 447, 2, 2, true);
wait(randomrange(400, 500));
Mouse(577, 368, 2, 2, true);
wait(randomrange(400, 500));
Mouse(620, 439, 2, 2, true);
wait(randomrange(400, 500));
Mouse(577, 368, 2, 2, true);
wait(randomrange(400, 500));
Mouse(660, 439, 2, 2, true);
wait(randomrange(400, 500));
Mouse(577, 368, 2, 2, true);
wait(randomrange(400, 500));
Mouse(702, 447, 2, 2, true);
wait(randomrange(400, 500));
Is_Done;
Wait(200);
Banking;
Wait(randomrange(2000, 2200));
Alch_Multislot;
end;
Procedure Alch_Singleslot;
begin;
If ALCH_STACKED = True then;
Mouse(748, 187, 3, 3, true);
Wait(randomrange(400, 500));
Mouse(577, 376, 3, 4, true);
wait(randomrange(400, 500));
Mouse(613, 232, 2, 2, true);
Alch_Count:=Alch_Count+1;
wait(randomrange(400, 500));
Alch_Singleslot;
end;
Function Execute :Integer;
begin
smart_server := 91;
smart_members := false;
smart_signed :=true;
smart_superdetail := false;
SetupSRL;
DeclarePlayers;
LoginPlayer;
end;
begin
Execute;
end.