SRL Archive - RS3 Outdated / Broken Scripts

hey everybody, i posted this in first script forum, but only one person responded, but didn't post a report. anywho, this script is extremely simple, has no progress report or anti-randoms or anything like that. works, but u might have trouble if other people are around or doors are closed. any feedback will be extremely appreciated.

I added some code and notes.

program GuardMurder;
{.include SRL/SRL.Scar}
// * Load SRL Include.

const
  Kills = 500;

var
  i: integer;

procedure Kill;
begin
  if (FindColorTolerance(x, y, 8326527, 4, 24, 766, 521, 10))then // * Use tol.
  begin
    MMouse(x, y, 3, 3); // * Never use "MoveMouseSmooth(x,y)" ez to get banned. 3, 3 random off x, y
    Wait(150 + random(100));
    if (IsUpText('Attack'))then // * Check UpText for "Attack"
    begin
      GetMousePos(x, y); // Get current mouse position.
      Mouse(x, y, 0, 0, true); // * Never use ClickMouse(x, y, true); ez to get banned.
      Wait(7500 + random(1500)); // Try using another method.
    end;
  end;
end;

begin
  SetUpSRL;
  i:= 0;
  repeat
    Kill;
    i:= i + 1;
  until (i >= Kills);
  if (Kills = 0) then
  repeat
    kill;
  Until(False);
end.

Try reading this to add randoms to your script.

Good luck. :]

Well, this is an edited version of white shadows, just added some log in, anti random and proggies and stuff :)

//-------------------------------------------------------------------------------//
//-------------------------------------------------------------------------------//
//---           /|  |\        ||  [||]  |\        /|  |||||||||  \||    /\    ---//
//---          //|  ||\       ||   ||   ||\      /||  ||          ||   //\\   ---//
//---         //||  ||\\      ||   ||   ||\\    //||  ||          /   //  \\  ---//
//---        // ||  || \\     ||   ||   || \\  // ||  ||              \\      ---//
//---       //  ||  ||  \\    ||   ||   ||  \\//  ||  ||               \\     ---//
//---      //   ||  ||   \\   ||   ||   ||   \/   ||  ||||||            \\    ---//
//---     //====||  ||    \\  ||   ||   ||        ||  ||                 \\   ---//
//---    //     ||  ||     \\ ||   ||   ||        ||  ||                  \\  ---//
//---   //      ||  ||      \\||   ||   ||        ||  ||              \\  //  ---//
//---  //       ||  ||       \||   ||   ||        ||  ||               \\//   ---//
//--- //        ||  ||        \|  [||]  ||        ||  |||||||||         \/    ---//
//---//                                                                       ---//
//-------------------------------------------------------------------------------//
//-------------------------------------------------------------------------------//
//-----------------------------Al Kharid Guard Killer----------------------------//
//-------------------------------------------------------------------------------//
//-------------------------------------------------------------------------------//
//------       Play with 32 bit color, low detail, and max brightness      ------//
//------        Place Character in Palace in Al Kharid Near Warriors       ------//
//------    Fill out Line 13 and set skill you want to train in the game   ------//
//-------------------------------------------------------------------------------//
//-------------------------------------------------------------------------------//
//-------------------------------------------------------------------------------//
//-------------------------------------------------------------------------------//


program GuardMurder;
{.include SRL/SRL.Scar}
// * Load SRL Include.

const
  Kills = 500;

var
  i, Killed, Randomz: integer;


procedure DeclarePlayers;
begin
HowManyPlayers := 6; //Number of players
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:= 0;

Players[0].Name :='User Name';//Name Goes Here
Players[0].Pass :='Password';//PassWord Goes Here
Players[0].Nick :='er Nam';//3-4 LowerCase Letters Of Your Name
Players[0].Active:=True;//True If Using, False If Not
Players[0].Skill := 'Strength';//What style you want to attack with. Choose from Attack, Strength, Defence.

Players[1].Name :='';
Players[1].Pass :='';
Players[1].Nick :='';
Players[1].Active:=True;
Players[1].Skill := 'Strength';

Players[2].Name :='';
Players[2].Pass :='';
Players[2].Nick :='';
Players[2].Active:=True;
Players[2].Skill := 'Strength';

Players[3].Name :='';
Players[3].Pass :='';
Players[3].Nick :='';
Players[3].Active:=True;
Players[3].Skill := 'Strength';

Players[4].Name :='';
Players[4].Pass :='';
Players[4].Nick :='';
Players[4].Active:=True;
Players[4].Skill := 'Strength';

Players[5].Name :='';
Players[5].Pass :='';
Players[5].Nick :='';
Players[5].Active:=True;
Players[5].Skill := 'Strength';

  NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);

End;


function FindFastRandoms: Boolean; //By WT-Fakawi.
var
  i: Integer;
begin
  for i := 1 to 8 do
  begin
    case I of
      1: if FindDead then
          Result := True;
      2: if FindMod then
          Result := True;
      3: if FindMime then
          Result := True;
      4: if FindMaze then
          Result := True;
      5: if FindQuiz then
          Result := True;
      6: if FindDemon then
          Result := True;
      7: begin
          if NoGameTab then
          begin
            Result := True;
            Players[CurrentPlayer].loc := 'No GameTab';
            Logout;
            Exit;
          end;
        end;
      7: begin
          if InBlack then
          begin
            Result := True;
            Players[CurrentPlayer].loc := 'InBlack';
            Logout;
            Exit;
          end;
        end;
      8: RC;
    end;
    wait(1);
  end;
  if (Result = true) then
    Randomz:= Randomz + 1;
end;



procedure DoAntiRandoms;
begin
 FindTalk;
 FindFastRandoms;
 FindNormalRandoms;
 PopUp('ontinue')
 if (FindFight = true) then
 begin
   RunAwayDirection('N');
   Wait(10000 + random(2000));
   RunBack;
   if not LoggedIn then NextPlayer(False);
 end;
end;



procedure SetsFightMode;
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(4);
  FindTalk;
end;



procedure Kill;
begin
  if (FindColorTolerance(x, y, 8326527, 4, 24, 766, 521, 10))then // * Use tol.
  begin
    MMouse(x, y, 3, 3); // * Never use "MoveMouseSmooth(x,y)" ez to get banned. 3, 3 random off x, y
    Wait(150 + random(100));
    if (IsUpText('Attack'))then // * Check UpText for "Attack"
    begin
      GetMousePos(x, y); // Get current mouse position.
      Mouse(x, y, 0, 0, true); // * Never use ClickMouse(x, y, true); ez to get banned.
      Wait(7500 + random(1500)); // Try using another method.
      DoAntiRandoms;
      Killed:= Killed + 1;
    end;
  end;
end;


procedure ProgReport;
begin
  Writeln('[]///////////////////////////////////////////[]');
  Writeln('Worked For : ' + ScriptTime2(2))
  Writeln('Killed '+ IntToStr(Killed) + ' Ali Guards');
  Writeln('Got '+ IntToStr(Randomz) + ' Randomz');
  Writeln('[]///////////////////////////////////////////[]');
end;




begin
  SetUpSRL;
  DeclarePlayers;
  LoginPlayer;
  SetsFightMode;
  i:= 0;
  repeat
    Kill;
    i:= i + 1;
  until (i >= Kills);
  if (Kills = 0) then
  repeat
    kill;
  Until(False);
end.

Hope that helped :)

-Ashur:stirthepot:

thnx guys. i was going to add some logins, but i figured it was such a basic script and quite useless when other ppl r around so it's wasn't really worth it

From: anime1161
thnx guys. i was going to add some logins, but i figured it was such a basic script and quite useless when other ppl r around so it's wasn't really worth it

Ohh ok, well i just did it for you :)

If you need more help, just say so ;)


-Ashur

lol of course i need help, i'm a noob to this! :D and thanx all the same, u saved me about 3 min lol

Isn't there an "anime" in members?

Edit: Ahh it is you…did you ask to be put down to non-members so you could make it in fairly…? I kinda respect you if you did.

lol nah, we just talked bout it, but for everyone else, it doesn't really bother me that i did, cuz i had gotten in without doing anything

fairly good script.

it might need somethings added to it. but its a good script for first try.

nice one,

haxor