SCAR 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 Stat Progress
//failsafes Boner picker and burrier
//////////////////////////////V4.00////////////////////////////////
program LRK;
{.include srl/srl.scar}
{.include srl/srl/skill/fighting.scar}
var
x,y :integer;
const
eat= true;
howmanykills= 30; //for each player
skiller= 'attack';//shared,attack,strength,defence? Scimitars only.
Player1act= true; //player 1 active?
UserN= 'farflafa'; //Username
PassW= 'cookieca'; //Password
NickN= 'arfl'; //3-4 letters of your name, no capitals or first letter
/////////////////////////////////////////////////////////////////////////////
procedure DeclarePlayers;
begin
HowManyPlayers:= 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := UserN;
Players[0].Pass := PassW;
Players[0].Nick := NickN;
Players[0].Active := Player1act;
end;
////////////////////////////////////////////////////////////dont touch the rest
//////////////////////////////////////////////////////////////////////////////
procedure LoadDTM;
var bone :integer;
begin
bone := DTMFromString('78DA637CC6C4C0708A910106803C86FAB2520' +
'611200D1365FC88AA062A8A4402E94740358708A8B94384394F80' +
'6A2EE1570300705B0A09');
end;
//////////////////////////////////////////////////////////////////////////////
function FindBone : Boolean;
var Bone :integer;
begin
Result:= FindDTM(bone, X, Y, MIX1, MIY1, MIX2, MIY2);
end;
//////////////////////////////////////////////////////////////////////////////
Procedure Boner; //LOLZER
var bonesb,bone :integer;
begin
if(findbone)then
begin
Freedtm(bone);
repeat
mouse(x,y,3,3,true);
bonesb:=bonesb+1;
Writeln('Burried');
wait(2000+random(500));
until not findbone;
end else
begin
Writeln('Done with bones');
Writeln('Did not find the bone Dtm in your inventory.');
end;
end;
//////////////////////////////////////////////////////////////////////////////
procedure EatFood;
var foodbmp :integer;
begin
foodbmp := BitmapFromString(13, 12, 'beNpzMpoV7zEpyqU/0rnWV' +
'2BAENBqZERdZbhUEmkaJagn3KkxwGZqjCseK7pCHer8rEs9zBal+A' +
'AjAqvi9mB7oDkQZSsz/Zek+cIVQyIOiIDmAJW1BNlV+1hmAwB9+ZV' +
'I');
if(hppercent<20)then
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 running and waiting to restore hp');
runaway('n',false,1,60000)
end;
end else
begin
Writeln('Said no to eat');
exit;
end;
end;
end;
//////////////////////////////////////////////////////////////////////////////
procedure invcheck;
begin
if(invfull)then
begin
boner;
writeln('Inventory full burying bones...');
end;
end;
//////////////////////////////////////////////////////////////////////////////
procedure Bonepick;
var pick :integer;
begin
x:=Mscx;
y:=Mscy;
findcolorspiral(x,y,12961212, msx1, msy1, msx2, msy2)
begin
Writeln('Finding Bones')
mmouse(x,y, 3, 3);
Wait(500);
if isuptext('ake') then
begin
Writeln('Found bones')
mouse(x,y, 0, 0, false);
chooseoption('ones');
Writeln('Took Bones')
pick:=pick+1
end else
writeln('Bones not found or didnt try, stopping');
end;
end;
//////////////////////////////////////////////////////////////////////////////
Procedure Anti;
begin
case random(60) of
0:Sleepandmovemouse(5000+random(1000));
1:Boredhuman;
2:begin
Case random(4) of
0: HoverSkill('strength', false);
1: HoverSkill('attack', false);
2: HoverSkill('defence', false);
3: HoverSkill('prayer', false);
end;
end;
3:Pickupmouse;
4:Begin
Makecompass('w')
wait(1000+random(500))
makecompass('e')
wait(1000+random(500))
Makecompass('w')
end;
5:randomrclick;
end;
end;
//////////////////////////////////////////////////////////////////////////////
function findmouse : boolean;
var tpa : tpointarray; I : integer;
var kill :integer;
begin
x := mscx;
y := mscy;
findcolorsspiraltolerance(x, y, TPA, 12566197, msx1, msy1, msx2, msy2, 10);
mmouse(tpa[0].x, tpa[0].y, 3, 3); // line 184
Wait(500);
if isuptext('ttack') then
begin
result := true;
mouse(tpa[i].x, tpa[i].y, 3, 3, false);
chooseoption('ttack');
Writeln('Mouse is found');
wait(5000+random(1000))
if(infight)then
begin
While infight do Anti;
If not infight then
begin
Kill:=Kill+1
writeln('Picking bone...');
bonepick;
end else
if(not(findcolorstolerance(TPA, 12961212, msx1, msy1, msx2, msy2, 20))) then
begin
Result := False;
Writeln('Mouse is not found, logging out.');
logout;
terminatescript;
end;
end;
end;
end;
//////////////////////////////////////////////////////////////////////////////
procedure proggy;
var kill,pick,bonesb :integer;
begin
writeln('---------------------=Proggy=---------------------');
writeln('|------------------------------------------------|');
writeln('|Killed aprroximitely ' + inttostr(kill)+' |');
writeln('|ran for '+ (timerunning)+ ' |');
writeln('|Picked up '+ inttostr(pick) + ' bones |');
writeln('|burried '+ inttostr(bonesb) + ' bones |');
writeln('|Junkjs Lumbridge Rat Killer |');
writeln('|end of the script |');
writeln('|Make sure you post a proggy or suggestion |');
writeln('==================================================');
Writeln('|==Skills are below. Att, Str, Def, and prayer.==|');
Writeln('==================================================');
getxp('attack');
getxp('strength');
getxp('defence');
getxp('prayer');
end;
//////////////////////////////////////////////////////////////////////////////
procedure death;
begin
if(finddead)then
begin
logout;
proggy;
Writeln('You died.Terminating.')
terminatescript;
end;
end;
//////////////////////////////////////////////////////////////////////////////
Procedure setskiller;
begin
case Lowercase(skiller) of
'attack': SetFightMode(1);
'strength': SetFightMode(2);
'shared': SetFightMode(3);
'defence': SetFightMode(4);
end;
end;
//////////////////////////////////////////////////////////////////////////////
var kill,foodbmp :integer;
begin
setupsrl;
DeclarePlayers;
cleardebug;
activateclient;
if(not(loggedin))then
Loginplayer;
setrun(true)
makecompass('w');
Setangle(true);
Setskiller;
Retaliate(true);
repeat
Findnormalrandoms;
makecompass('w');
findmouse;
EatFood;
FreeBitmap(foodbmp);
finddead;
until(kill >=howmanykills)
if(kill >=howmanykills)then
begin
logout;
proggy;
terminatescript;
end;
end.
//////////////////////////////////////////////////////////////////////////////
//CREDITS-CREDITS-CREDITS-CREDITS-CREDITS-CREDITS-CREDITS-CREDITS-CREDITS /|
// JAD Feroc1ty Boreas I don't know if they helped me /|
// Marpis Baked Ian but i did know that they had /|
// Esteban Tarajunky Evilkitten the time to post in my threads /|
// MasterBB Awkwardsaw cohen and help. Thanks guys /|
//////////////////////////////////////////////////////////////////////////////
//Jad-mentor
//marpis- bitmaps
//esteban- tutorial
//MasterBB- login help
//feroc1ty- random time with infight;
//Baked- Standards and others
//Tarajunky- Tpa idea
//Awkwardsaw- Tutorial And procedure
//Boreas- Find width and height with findobj tpa
//Ian- True False infight;
//EvilKitten- Chooseoption
//cohen-Feedback
//Junkj- Making this all happen
//////////////////////////////////////////////////////////////////////////////
//!Not responsible for banned acounts!!!Not responsible for banned acounts! //
//////////////////////////////////////////////////////////////////////////////