SRL Archive - Outdated / Broken

Monk Killer + Healer+food eater
it now has CRAPPY standards
Will go heal your account once your hp goes down to 5% or less

Features
wilderness detection
type of combat is choosable
eating


Other upcoming features which i just rememebred to add…
wilderness detection:done
bone picker +burier

Credits:on script…

I think people purposely make thier code dirty just so I'll clean it for them..

program monkKilla;
{.include SRL/SRl.scar}
var
Kills,Heals:integer;
{###############################################################################
#####  #####      ##    ##    ##  ##       ##           ## ##                 ##
############    ##  ##  ####  ##  ##       ##       ##  ## ##                 ##
###  ##  ###   ##    ## ## ## ##  ## ##    ## ##        ## ## ######  ## ##   ##
###      ###   ##    ## ##  ####  ####     ####     ##  ## ## ##__##  ###  #  ##
###      ###    ##  ##  ##   ###  ## ##    ## ##    ##  ## ## ##      ##      ##
###      ###      ##    ##    ##  ##  ##   ##  ##   ##  ## ## ######  ##      ##
################################################################################
##Credits;                                                                    ##
##Home: Helped me with the Healin Function and other various stuff            ##
##Keen: For making my laziness go away:p                                      ##
################################################################################
##                      INSTRUCTIONS                                          ##
##                                                                            ##
##1. USE Original  client with Low Detail, Very Bright.                       ##
##2. Set your Screen to 32 bit TRUE color.                                    ##
##3. SET HOWMANYPLAYERS inside DeclarePlayers                                 ##
##4. Set Playernames and Passwords in DeclarePlayers                          ##
##5. Drag Crosshair over RuneScape                                            ##
##6. Start script logged out.                                                 ##
################################################################################
##                              Enjoy:p                                       ##
###################Leave these alone###########################################}
const ver              = '1.0';
const color            = 1786735;
{###############################################################################
############################ Setup ############################################}
const totaltime        = 100000;    //total time on each player  in ms

Procedure DeclarePlayers;
begin
  HowManyPlayers   := 2;//number of players you are going to use
  NumberOfPlayers(HowManyPlayers);//Leave this alone
  CurrentPlayer    := 0;//the starting player

  Players[0].Name  := 'yourname'; //username here
  Players[0].Pass  := 'yourpass'; //password here
  Players[0].Nick  := 'rna';     //3letters from the username
  Players[0].Loc   := 'Monastery';  //leave as it is
  Players[0].Skill := 'attack';//type of combat to use attack,strength,defence are the only options
  Players[0].Active:= True;
     
  Players[1].Name  := 'yourname2'; //username here
  Players[1].Pass  := 'yourpass2'; //password here
  Players[1].Nick  := 'me2';     //3letters from the username
  Players[1].Loc   := 'Monastery';  //leave as it is
  Players[1].Skill := 'strength';//type of combat to use attack,strength,defence are the only options
  Players[1].Active:= True;
end;
 //if you have more than 2 accounts, just copy a paragraph from above and
     //change the number to the next one(+1)



{############### END OF SETUP DO NOT TOUCH BELOW ##############################}
Function AttackingOption: boolean;
begin
  GameTab(1);
  if(Players[CurrentPlayer].Skill = 'attack')then
    SetFightMode(1);
  if(Players[CurrentPlayer].Skill = 'strength')then
    SetFightMode(2);
  if(Players[CurrentPlayer].Skill = 'defence')then
    SetFightMode(3);
  Result:= True;
end;

Function Ask4Heal: boolean;
var
  x,y: integer;
begin
  Status('Healing');
  repeat
    repeat
      If(not(LoggedIn))then
        begin
          LoginPlayer;
          AttackingOption;
        end;
        wait(200 + random(150));
        if(FindColorTolerance(x, y, color, MSX1, MSY1, MSX2, MSY2, 8))then
          MMouse(x, y, 0, 0);
    until(isuptext('Talk-to'))or(isuptext('Attack'))
    getmousepos(x, y);
    PopUp2(x, y, 0, 0, 'Talk-to');
    Flag;
    wait(3000 + random(1000));
    repeat
      wait(10 + random(13));
    until(ClickToContinue)
    wait(4000 + random(1000));
    Mouse(293, 391, 3, 3, true);
    wait(4000 + random(1000));
    repeat
      wait(20 + random(25));
    until(findcolortolerance(x, y, 16711680, MCX1, MCY1, MCX2, MCY2, 10))
    Mouse(315, 447, 3, 3, true);
    wait(3000 + random(1000));
    repeat
      wait(20+ random(25));
    until(findcolortolerance(x, y, 16711680, MCX1, MCY1, MCX2, MCY2, 10))
    Mouse(315, 447, 3, 3, true);
  until(HpPercent > 99)
  Heals:= Heals + 1;
  Result:= True;
  if(IsChatMessage('You feel'))then
    Writeln('Account Healed');
end;

Function Attack:boolean;
var
  x,y: integer;
begin
  Status('Atacking');
  repeat
    repeat
      wait(200 + random(150));
      if(findcolortolerance(x, y, color,MSX1, MSY1, MSX2, MSY2, 8))then
        MMouse(x, y, 0, 0);
    until(isuptext('Talk-to'))or(isuptext('Attack'))
    getmousepos(x, y);
    PopUp2(x, y,0, 0, 'Attack');
    Flag;
    wait(2000 + random(1000));
  until(FindFight)
  repeat
    if(HpPercent < 5)then
      begin
        SetRun(true);
        RunAwayDirection('N');
        wait(3000);
        RunBack;
        Ask4Heal;
      end;
  until(not(FindFight))or(WeAreDead)
  Result:= True;
end;

Function FindRandoms: boolean;
begin
  if(not(loggedIn))then
    LoginPlayer;
  CloseWindow;
  ClickToContinue;
  FindLamp(Players[CurrentPlayer].Skill);
  FindDead;
  FindMod;
  FindMime;
  FindMaze;
  FindQuiz;
  FindFrog;
  FindDoctor;
  FindBox;
  FindDemon;
  if(Findname)Then
    FindTalk;
  if (FindNewBox)or (WeAreDead) then
    begin
      Players[CurrentPlayer].Active:= False;
      Logout;
      NextPlayer(true);
      Chatsoff;
    end;
  Result:= True;
end;

Procedure ChangePlayer;
begin
  if(PlayerStartTime>totaltime)then
    begin
      Logout;
      NextPlayer(true);
      Chatsoff;
      AttackingOption;
    end else
      exit;
end;

procedure ProgressReport;
begin
  writeln('----------<Monk Killer v' + (ver) + '  by HISTORY----->')
  writeln('--------------------Progress Report---------------------->')
  writeln('Worked for: ' + (TimeRunning))
  writeln('Killed: ' + IntToStr(Kills) + ' monks')
  writeln('Healed: ' + IntToStr(Heals) + ' times')
  WriteLn('                                 ');
  if(fights > 0)then
    WriteLn('  Fought ' + IntToStr(fights) + ' Time[s].');
  if(talks > 0)then
    WriteLn('  Talked to ' + IntToStr(talks) + ' Random event[s].');
  if(lamps > 0)then
    WriteLn('  Used lamps ' + IntToStr(lamps) + ' Time[s].');
  if(doctors > 0)then
    WriteLn('  Solved ' + IntToStr(doctors) + ' Fords[s].');
  if(frogs > 0)then
    WriteLn('  Solved ' + IntToStr(frogs) + ' Frog[s].');
  if(boxes > 0)then
    WriteLn('  Solved ' + IntToStr(boxes) + ' Box[es].');
  if(demons > 0)then
    WriteLn('  Solved ' + IntToStr(demons) + ' Demon[s].');
  if(logs > 0)then
    WriteLn('  Logged in ' + IntToStr(logs) + ' Time[s].');
  WriteLn('<--------------------------------------------------------->');
end;

procedure newplayer;
begin
  LoginPlayer;
  Chatsoff;
  AttackingOption;
end;

begin
  Setupsrl;
  DisGuiseScar('Monk killer v' + (ver));
  activateclient;
  DeclarePlayers;
  Heals:= 0;
  Kills:= 0;
  newplayer;
  repeat
    if(not(LoggedIn))then
      LoginPlayer;
    FindRandoms;
    FindRs;
    Attack;
    changeplayer;
    if(timerunning > '500000000')then
      break;
  until(false)
  progressreport;
end.

Even cleaner code:

program monkKilla;
{.include SRL/SRl.scar}

var
   Kills,Heals:integer;
{###############################################################################
#####  #####      ##    ##    ##  ##       ##           ## ##                 ##
############    ##  ##  ####  ##  ##       ##       ##  ## ##                 ##
###  ##  ###   ##    ## ## ## ##  ## ##    ## ##        ## ## ######  ## ##   ##
###      ###   ##    ## ##  ####  ####     ####     ##  ## ## ##__##  ###  #  ##
###      ###    ##  ##  ##   ###  ## ##    ## ##    ##  ## ## ##      ##      ##
###      ###      ##    ##    ##  ##  ##   ##  ##   ##  ## ## ######  ##      ##
################################################################################
##Credits;                                                                    ##
##Home: Helped me with the Healin Function and other various stuff            ##
##Keen: For making my laziness go away:p                                      ##
################################################################################
                      INSTRUCTIONS                                          ##
                                                                            ##
1. USE Original  client with Low Detail, Very Bright.                       ##
2. Set your Screen to 32 bit TRUE color.                                    ##
3. SET HOWMANYPLAYERS inside DeclarePlayers                                 ##
4. Set Playernames and Passwords in DeclarePlayers                          ##
5. Drag Crosshair over RuneScape                                            ##
6. Start script logged out.                                                 ##
################################################################################
##                              Enjoy:p                                       ##
###################Leave these alone###########################################}
const
ver              = '1.0';
color            = 1786735;
{###############################################################################
############################ Setup ############################################}
totaltime        = 100000;    //total time on each player  in ms


Procedure DeclarePlayers;
begin
  HowManyPlayers   := 2;//number of players you are going to use
  NumberOfPlayers(HowManyPlayers);//Leave this alone
  CurrentPlayer    := 0;//the starting player

  Players[0].Name  := 'yourname'; //username here
  Players[0].Pass  := 'yourpass'; //password here
  Players[0].Nick  := 'rna';     //3letters from the username
  Players[0].Loc   := 'Monastery';  //leave as it is
  Players[0].Skill := 'attack';//type of combat to use attack,strength,defence are the only options
  Players[0].Active:= True;

  Players[1].Name  := 'yourname2'; //username here
  Players[1].Pass  := 'yourpass2'; //password here
  Players[1].Nick  := 'me2';     //3letters from the username
  Players[1].Loc   := 'Monastery';  //leave as it is
  Players[1].Skill := 'strength';//type of combat to use attack,strength,defence are the only options
  Players[1].Active:= True;
end;
 //if you have more than 2 accounts, just copy a paragraph from above and
     //change the number to the next one(+1)



            {END OF SETUP DO NOT TOUCH BELOW}
Function AttackingOption: boolean;
begin
  GameTab(1);
  if(Players[CurrentPlayer].Skill = 'attack')then
    SetFightMode(1);
  if(Players[CurrentPlayer].Skill = 'strength')then
    SetFightMode(2);
  if(Players[CurrentPlayer].Skill = 'defence')then
    SetFightMode(3);
  Result:= True;
end;

Function Ask4Heal: boolean;
var
  x,y: integer;
begin
  Status('Healing');
  repeat
    repeat
      If(not(LoggedIn))then
        begin
          LoginPlayer;
          AttackingOption;
        end;
        wait(200 + random(150));
        if(FindColorTolerance(x, y, color, MSX1, MSY1, MSX2, MSY2, 8))then
          MMouse(x, y, 0, 0);
    until(isuptext('Talk-to'))or(isuptext('Attack'))
    getmousepos(x, y);
    PopUp2(x, y, 0, 0, 'Talk-to');
    Flag;
    wait(3000 + random(1000));
    repeat
      wait(10 + random(13));
    until(ClickToContinue)
    wait(4000 + random(1000));
    Mouse(293, 391, 3, 3, true);
    wait(4000 + random(1000));
    repeat
      wait(20 + random(25));
    until(findcolortolerance(x, y, 16711680, MCX1, MCY1, MCX2, MCY2, 10))
    Mouse(315, 447, 3, 3, true);
    wait(3000 + random(1000));
    repeat
      wait(20+ random(25));
    until(findcolortolerance(x, y, 16711680, MCX1, MCY1, MCX2, MCY2, 10))
    Mouse(315, 447, 3, 3, true);
  until(HpPercent > 99)
  Heals:= Heals + 1;
  Result:= True;
  if(IsChatMessage('You feel'))then
    Writeln('Account Healed');
end;

Function Attack:boolean;
var
  x,y: integer;
begin
  Status('Atacking');
  repeat
    repeat
      wait(200 + random(150));
      if(findcolortolerance(x, y, color,MSX1, MSY1, MSX2, MSY2, 8))then
        MMouse(x, y, 0, 0);
    until(isuptext('Talk-to'))or(isuptext('Attack'))
    getmousepos(x, y);
    PopUp2(x, y,0, 0, 'Attack');
    Flag;
    wait(2000 + random(1000));
  until(FindFight)
  repeat
    if(HpPercent < 5)then
      begin
        SetRun(true);
        RunAwayDirection('N');
        wait(3000);
        RunBack;
        Ask4Heal;
      end;
  until(not(FindFight))or(WeAreDead)
  Result:= True;
end;

Function FindRandoms: boolean;
begin
  if(not(loggedIn))then
    LoginPlayer;
  CloseWindow;
  ClickToContinue;
  FindLamp(Players[CurrentPlayer].Skill);
  FindDead;
  FindMod;
  FindMime;
  FindMaze;
  FindQuiz;
  FindFrog;
  FindDoctor;
  FindBox;
  FindDemon;
  if(Findname)Then
    FindTalk;
  if (FindNewBox)or (WeAreDead) then
    begin
      Players[CurrentPlayer].Active:= False;
      Logout;
      NextPlayer(true);
      Chatsoff;
    end;
  Result:= True;
end;

Procedure ChangePlayer;
begin
  if(PlayerStartTime>totaltime)then
    begin
      Logout;
      NextPlayer(true);
      Chatsoff;
      AttackingOption;
    end else
      exit;
end;

procedure ProgressReport;
begin
  writeln('----------<Monk Killer v' + (ver) + '  by HISTORY----->')
  writeln('--------------------Progress Report---------------------->')
  writeln('Worked for: ' + (TimeRunning))
  writeln('Killed: ' + IntToStr(Kills) + ' monks')
  writeln('Healed: ' + IntToStr(Heals) + ' times')
  WriteLn('                                 ');
  if(fights > 0)then
    WriteLn('  Fought ' + IntToStr(fights) + ' Time[s].');
  if(talks > 0)then
    WriteLn('  Talked to ' + IntToStr(talks) + ' Random event[s].');
  if(lamps > 0)then
    WriteLn('  Used lamps ' + IntToStr(lamps) + ' Time[s].');
  if(doctors > 0)then
    WriteLn('  Solved ' + IntToStr(doctors) + ' Fords[s].');
  if(frogs > 0)then
    WriteLn('  Solved ' + IntToStr(frogs) + ' Frog[s].');
  if(boxes > 0)then
    WriteLn('  Solved ' + IntToStr(boxes) + ' Box[es].');
  if(demons > 0)then
    WriteLn('  Solved ' + IntToStr(demons) + ' Demon[s].');
  if(logs > 0)then
    WriteLn('  Logged in ' + IntToStr(logs) + ' Time[s].');
  WriteLn('<--------------------------------------------------------->');
end;

procedure newplayer;
begin
  LoginPlayer;
  Chatsoff;
  AttackingOption;
end;

begin
  Setupsrl;
  DisGuiseScar('Monk killer v' + (ver));
  activateclient;
  DeclarePlayers;
  Heals:= 0;
  Kills:= 0;
  newplayer;
  repeat
    if(not(LoggedIn))then
      LoginPlayer;
    FindRandoms;
    FindRs;
    Attack;
    changeplayer;
    if(timerunning > '500000000')then
      break;
  until(false)
  progressreport;
end.

You don't need multiple "const" unless SRL is different, but I don't see how since "const" is a SCAR command not and include command.

Also all the #'s make me not even want to test your script, it lowers the look of your script, even if you made a good script I wouldn't care because it looks like crap.

It looked sexy, so I kept it there ;) :D

Allthough I agree with both Pwnd and Bebemycat2, a positive remarks would have been well in its place.

Good work, HISTORY.

Yes, I did forget to say "Good work HISTORY" so here it is:

Good Work HISTORY :)

I remain at pretty good script till standards are applied :D:p

Looks very nice, good to see people will go to so much effort to keep the community clean :)
I might try this later with some newb accounts.

From: WT-Fakawi
Allthough I agree with both Pwnd and Bebemycat2, a positive remarks would have been well in its place.

Good work, HISTORY.

Sorry, but I guess I didn't use it. I'll give you the "good job" anyways.

It looks nice, though.

i hate standards theyre just a bunch of spaces….
my next release is coming very soon….

Standards always seemed to make the script harder to read to me, but then I started trying to use them and realised they make it so much easier.

Say you have multiple repeats. When reading through the script with standards you can just see what is repeated and which until applies to which repeat because of the indent ammount. Without standards the whole script is the same and you constantly have to check if there is an until or other keyword, which makes it take longer and more complicated to read.
You may not think so now but if you started using standards after a while you would.

But there is nothing saying you have to use them it's just recommended as they are universely used and accepted as default.

i find them to hard to use…

[spam] BeBe and PWND you have way to much time on your hands [/spam]

Nice work HISTORY! can't wait 4 the next release

Standards arn't a waste of time. They help with alot of things.

Good script History, keep up the good work :)

I always had sort of semi-standards.. I didn't really think the spacing around symbols like + was worth doing, I learnt that indenting is incredibly useful in finding/preventing errors and now I follow the standards as closely as I can.

From: Krazy_Meerkat
I always had sort of semi-standards.. I didn't really think the spacing around symbols like + was worth doing, I learnt that indenting is incredibly useful in finding/preventing errors and now I follow the standards as closely as I can.

You can make your own standards. As long as everything is still legible.

I use my own :)

script has been updated

From: XxKanexX
You can make your own standards. As long as everything is still legible.

I use my own :)

Addicted to bolding pl0x?

From: I
Addicted to bolding pl0x?

I think he is. Do you?

updated once again!

I Love You :)

very nice good job

Is this better than solarwinds?
and where's the download?

You're not serious… right? This is over a half of a year old.

From: Lorax
Is this better than solarwinds?
and where's the download?

Lol, check mine out and see. Mine is pretty damn good, if I do say so myself. Download mine and try, the link is in my signature.

dudes, my script is pretty old…do you people have no eyes good enough to see the date i posted it?!