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! //
// //
// //
//*********************************************************************************//
{$DEFINE SMART}
{.include SRL/SRL/Misc/Smart.simba}
{.include SRL/SRL.simba}
{.include SRL/SRL/Skill/Magic.simba}
{$i sps/sps.simba}
{$i SRL/SRL/misc/paintsmart.simba}
var
AlchStacked :Boolean;
Function IDKWhatImDoing :extended;
begin
AlchStacked := False; // 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 Item slot, the first being your nature runes.
Procedure Execute;
begin
smart_server := 91;
smart_members := false;
smart_signed :=true;
smart_superdetail := false;
SetupSRL;
DeclarePlayers;
LoginPlayer;
Alch_Multislot;
end;
end;
const
NUMBER_OF_ALCHS =27; //Replace this number with the number of alchs you plan on performing
procedure DeclarePlayers;
begin
HowManyPlayers := 0;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
with Players[0] do
begin
Name := '';
Pass := '';
Member := True;
Active := True;
end;
end;
procedure Alch_Multislot;
begin
while AlchStacked = False do;
Mouse(784, 190, 2, 2, true);
Mouse(571, 375, 2, 2, true);
Mouse(611, 226, 2, 2, true);
Mouse(565, 377, 2, 2, true);
Mouse(662, 221, 2, 2, true);
Mouse(577, 368, 2, 2, true);
Mouse(703, 228, 2, 2, true); // fourth slot
Mouse(566, 377, 2, 2, true);
Mouse(576, 257, 2, 2, true); //fifth slot
Mouse(566, 377, 2, 2, true);
Mouse(616, 265, 2, 2, true); // sixth
Mouse(566, 377, 2, 2, true);
Mouse(656, 262, 2, 2, true); // seventh
Mouse(566, 377, 2, 2, true);
Mouse(706, 268, 2, 2, true); // eighth
Mouse(566, 377, 2, 2, true);
Mouse(580, 297, 2, 2, true); // 9th slot
Mouse(566, 377, 2, 2, true);
Mouse(622, 297, 2, 2, true); // 10th
Mouse(566, 377, 2, 2, true);
Mouse(657, 299, 2, 2, true); // 11th
Mouse(566, 377, 2, 2, true);
Mouse(698, 303, 2, 2, true); // 12th
Mouse(577, 368, 2, 2, true);
Mouse(569, 341, 2, 2, true); // 13th
Mouse(577, 368, 2, 2, true);
Mouse(627, 330, 2, 2, true); // 14th
Mouse(577, 368, 2, 2, true);
Mouse(668, 331, 2, 2, true); // 15th
Mouse(577, 368, 2, 2, true);
Mouse(702, 342, 2, 2, true); // 16th
Mouse(577, 368, 2, 2, true);
Mouse(573, 370, 2, 2, true); // 17th
Mouse(577, 368, 2, 2, true);
Mouse(624, 369, 2, 2, true); // 18th
Mouse(577, 368, 2, 2, true);
Mouse(653, 368, 2, 2, true); // 19th
Mouse(577, 368, 2, 2, true);
Mouse(707, 373, 2, 2, true); // 20th
Mouse(577, 368, 2, 2, true);
Mouse(574, 414, 2, 2, true); // 21st
Mouse(577, 368, 2, 2, true);
Mouse(621, 407, 2, 2, true); // 22nd
Mouse(577, 368, 2, 2, true);
Mouse(656, 408, 2, 2, true); // 23rd
Mouse(577, 368, 2, 2, true);
Mouse(698, 408, 2, 2, true); // 24th
Mouse(577, 368, 2, 2, true);
Mouse(573, 447, 2, 2, true); // 25th
Mouse(577, 368, 2, 2, true);
Mouse(620, 439, 2, 2, true); // 26th
Mouse(577, 368, 2, 2, true);
Mouse(660, 439, 2, 2, true); // 27th
Mouse(577, 368, 2, 2, true);
Mouse(702, 447, 2, 2, true); // 28th
end;
Function Execute :Integer;
begin
smart_server := 91;
smart_members := false;
smart_signed :=true;
smart_superdetail := false;
SetupSRL;
DeclarePlayers;
LoginPlayer;
Alch_Multislot;
end;
begin
end.
Now i get this error: