program ChocolateDust;
//*******************************\\
// Chocolate Dust Maker by Mika \\
// version 1.0 \\
// last updated August 31, 2011 \\
//*******************************\\
// Setup \\
// Fill in lines 28-32. \\ //credit goes to me, Coh3n and IPwnz for the thing on the right.
// Start infront of chest \\ //edit script feely just give me credit.
// in Lumbrige castle basment. \\
// And hit run. :) \\
//*******************************\\
// IMPORTANT: \\
// Remember to put chocolate \\
// in 3rd bank slot in 1st bank tab \\
// Have pestle and mortar in \\
// 1st invy tab. \\
//*********************************\\
{$i srl/srl/misc/smart.scar}
{$i srl/srl.scar}
const
NumberYouWant = 50;
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
// Edit line 89 to change how many invys to make. Defult is 50.
Players[0].Name := ''; // Username
Players[0].Pass := ''; // Password
Players[0].Nick := ''; // 3-4 lowercase letters from username; used for random event detection
Players[0].Active := True; // Set to true if you want to use Player 0
Players[0].Pin := ''; // Leave blank if the player doesn't have a bank pin
end;
function MakeDust: Boolean;
var
x, y : Integer;
begin
Wait (500 + Random(411))
Mouse(141, 104, 7, 7, false);//rite click 3rd slot bank
(waitOptionMulti(['ll', 'All'], 350))
Wait (500 + Random(411))
Mouse(489, 34, 2, 2, true);// close bank booth
Wait (750 + Random(311))
Mouse(578, 229, 7, 7, true);// left click first invy slot
Wait (500 + Random(411))
Case Random(17) Of
0:Begin
Mouse(663, 295, 5, 5, true); //11th invy slot
End;
1..18:Begin
Mouse(621, 227, 9, 8, true); // second invy slot
End;
17:Begin
Mouse(621, 263, 5, 5, true); //6th invy slot //Dynamite : Invent slot: InvMouse(InvSlot, Action: Byte)
End;
end;
Wait (1140 + Random(211))
Mouse(259, 424, 34, 31, true); //make all
Wait (17900 + Random(411))
Mouse(297, 162, 5, 7, true); //left click chest
Wait (700 + Random(311))
Case Random(13) Of
0:Begin
Mouse(577, 266, 5, 5, false); //11th invy slot rite click deposit
(waitOptionMulti(['ll', 'All'], 400));
End;
1..12:Begin
Mouse(621, 227, 6, 6, false); // second invy slot rite click deposit
(waitOptionMulti(['ll', 'All'], 400));
End;
13:Begin
Mouse(621, 263, 5, 5, false); //6th invy slot rite click deposit
(waitOptionMulti(['ll', 'All'], 400));
End;
end;
end;
Procedure RepeatBuyChocolate;
var
NumberOfBuys: Integer;
begin
repeat
Wait(1481 + Random(175))
MakeDust;
Inc(NumberOfBuys);
Writeln('We have made ' + IntToStr(NumberOfBuys * 27) + ' Chocolate Dust');
until (NumberOfBuys = NumberYouWant); // Dynamite : Use Constants, ease of use for user
end;
begin
// These 4 lines HAVE to be set BEFORE you call SetupSRL;
Smart_Server := 40;
Smart_Members := True;
Smart_Signed := True;
Smart_SuperDetail := False;
ClearDebug;
SetupSRL;
DeclarePlayers; // Calls the procedure, you can't forget this!
LoginPlayer; // You want your player to login, right?
Wait(4000);
KeyDown(VK_Up)//will make you have your left arrow get "in use"
Wait(919+ Random(95));//change this accordingly to the amount of time you want it to be in use
KeyUp(VK_Up)
Mouse(657, 188, 6, 8, true); //click invy
Wait (1000 + Random(411))
Mouse(297, 162, 5, 5, true); //left click chest
RepeatBuyChocolate;
end.
Just a couple of little things, I have to go out =)
-Boom