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
//bitmap hp checker cooked meat eater(sorry)
//failsafes small const, big result
//////////////////////////////V1.00////////////////////////////////
program LRK;
{.include srl/srl.scar}
{.include srl/srl/skill/fighting.scar}
{.include srl/srl/Core/Bitmaps.scar}
Var
x,y,foodbmp,kill,hpchk :integer;
/////////////////////fill this in/////////////////////////////////////////////
const
mousecolor= 4013378;// your mouse color
eat= true; //do you want to eat?Cooked meat can only be eaten
//cook raw beef from a fire and get Cookes meat
howmanykills= 10; //how many do you want to kill
//////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////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(eat = true)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);
freebmp(foodbmp);
writeln('Ate food successfully!');
wait(1500+random(200));
end
else
if not(FindBitmapToleranceIn(foodbmp, x, y, MIX1, MIY1, MIX2, MIY2, 20))then
writeln('Could not find food');
end
else
if (eat = false )then
begin
Writeln('Said no to eat');
end;
end;
Procedure hpcheck; //marpis again tought me bitmaps
begin
gametab(2);
hpchk := BitmapFromString(32, 11, 'beNp1kzFOQzEQRB0EHIEmBT0' +
'NFR1NpFD84iMFJVJCASfgBJwCDkNHkXugXCU89KRh5Q/RKJq1d2fX' +
'Y//dehwHsFwuVg8jZBju5JvNClI5u+bUtPCaAKcEDtnu1pYnGfL0/' +
'Mhixw3VF114PDZgJiUUOhtbdEkLuzhGxxe3N0CFZMpRZqu1nxa1EN' +
'gIZEJDmlauD3ZxkdkqR5wE9Pm5aDm1/scTpTr+p//MlgPqD9xGlqe' +
'RFkk0rePqd2FECD2CLQwpb20WxCWd0duaAFx0ZhR8J1blIvg5Gyv7' +
'65NABbcoMXy/PAWv83PBSvXcuyPfa2Ul/jvk18u9OFzNREb9uDgDU' +
'33H1vlcIlz/dSlv5vD5BmqLeqLody3q8/Dz0ajWfh+PW1P9/1pMj6' +
'CNfoD1LsK335Y7N7k=');
if(FindBitmapToleranceIn(foodbmp, x, y, MIX1, MIY1, MIX2, MIY2, 20)) then
begin
writeln('Health is 3, eating food');
EatFood;
freebmp(hpchk)
end
else
if not(FindBitmapToleranceIn(foodbmp, x, y, MIX1, MIY1, MIX2, MIY2, 20)) then
begin
writeln('Health not 3,skipping eat');
end;
end;
Procedure clickkiller;
begin
hpcheck;
if FindObj(x, y, 'ttack', mousecolor, 35) then
begin
writeln('found the fight');
mouse(x,y,3,3,false);
Chooseoption('ttack');
boredhuman;
randommovement;
sleepandmovemouse(5000+random(1000))
if(infight)then
begin
repeat
writeln('Not done with fight, repeating until its done');
boredhuman;
randommovement;
sleepandmovemouse(5000+random(1000));
until not(infight)
if not (infight) then
writeln('done with fight');
kill:=kill+1
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;
begin;
setupsrl;
cleardebug;
activateclient;
repeat
clickkiller;
hpcheck;
until(kill>=howmanykills)
if(kill>=howmanykills)then
logout;
proggy;
terminatescript;
end.
error