Code:
//JUNKJ LRKJUNKJ LRKJUNKJ LRKJUNKJ LRKJUNKJ LRKJUNKJ LRKJUNKJ LRK
//JUNKJ LRKJUNKJ LRKJUNKJ LRKJUNKJ LRKJUNKJ LRKJUNKJ LRKJUNKJ LRK
//JUNKJ LRKJUNKJ LRKJUNKJ LRKJUNKJ LRKJUNKJ LRKJUNKJ LRKJUNKJ LRK
//JUNKJ LRKJUNKJ LRKJUNKJ LRKJUNKJ LRKJUNKJ LRKJUNKJ LRKJUNKJ LRK
//JUNKJ LRKJUNKJ LRKJUNKJ LRKJUNKJ LRKJUNKJ LRKJUNKJ LRKJUNKJ LRK
///////////////////////////////////////////////////////////////////
// JUNK's LRK
//bitmap eating procedure infight to keep fighting if not done
//antirandoms cooked meat eater
//failsafes small const, big result
//////////////////////////////V2.00////////////////////////////////
program LRK;
{.include srl/srl.scar}
{.include srl/srl/skill/fighting.scar}
var
x, y, foodbmp, kill : integer;
/////////////////////fill this in/////////////////////////////////////////////
const
mousecolor= 11974058;// your mouse color
eat= true; //Cooked meat can only be eaten thanks to jad(boolean)
//cook raw beef from a cow and get Cook it to get cooked meat
howmanykills= 10; //how many do you want to kill
procedure DeclarePlayers;
begin
HowManyPlayers:= 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := 'arfl';
Players[0].Active := True;
end;
//////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////dont touch the rest
procedure EatFood; // thanks to marpis
begin
foodbmp := BitmapFromString(13, 12, 'beNpzMpoV7zEpyqU/0rnWV' +
'2BAENBqZERdZbhUEmkaJagn3KkxwGZqjCseK7pCHer8rEs9zBal+A' +
'AjAqvi9mB7oDkQZSsz/Zek+cIVQyIOiIDmAJW1BNlV+1hmAwB9+ZV' +
'I');
if(hppercent<20)then //thanks to marpis again
begin
if eat then
begin
Writeln('said yes to eat.');
GameTab(tab_Inv);
wait(100+random(20));
if (FindBitmapToleranceIn(foodbmp, x, y, MIX1, MIY1, MIX2, MIY2, 20)) then
begin
Mouse(x, y, 2, 2, true);
writeln('Ate food successfully!');
wait(1500+random(200));
end else
if not(FindBitmapToleranceIn(foodbmp, x, y, MIX1, MIY1, MIX2, MIY2, 20))then
begin
writeln('Could not find food');
exit;
end;
end else
begin
Writeln('Said no to eat');
exit;
end;
end;
end;
Procedure Anti; //Estebans tutorial
begin
case random(4) of
0:Sleepandmovemouse(5000+random(1000));
1:Boredhuman;
2:begin
HoverSkill('Random', false);
wait(2500+Random(500));
end;
3:Pickupmouse;
4:Begin
Makecompass('w')
wait(1000+random(500))
makecompass('e')
end;
end;
end;
procedure waitinfight;
begin
while infight do anti;
end;
function findmouse : boolean; //Awkardsaw's tutorial tree finder
var
tpa : tpointarray; I : integer;
begin
if findcolorstolerance(TPA, mousecolor, msx1, msy1, msx2, msy2, 20) then
for i:= 0 to high(tpa) do
begin
mmouse(tpa[i].x, tpa[i].y, 0, 0);
if isuptext('ttack') then
begin
result := true;
mouse(tpa[i].x, tpa[i].y, 0, 0, false);
chooseoption('ttack');
Writeln('Mouse is found');
end else
if(not(findcolorstolerance(TPA, mousecolor, msx1, msy1, msx2, msy2, 20))) then
begin
Writeln('Mouse is not found, logging out.');
logout;
terminatescript;
end;
end;
end;
procedure proggy;
begin
writeln('Killed aprroximitely ' + inttostr(kill));
writeln('ran for '+ (timerunning));
writeln('Junkjs Lumbridge Rat Killer');
writeln('end of the script');
end;
procedure death;
begin
if(finddead)then
begin;
logout;
proggy;
Writeln('you died')
terminatescript;
end;
end;
begin;
setupsrl;
DeclarePlayers;
cleardebug;
activateclient;
if(not(loggedin))then
Loginplayer;
repeat
Findnormalrandoms;
findmouse;
EatFood;
FreeBitmap(foodbmp);
finddead;
until(kill >=howmanykills)
if(kill >=howmanykills)then
begin
logout;
proggy;
terminatescript;
end;
end.
Advice and help would be appreciated.