move this to snippets please
Well srl members will have heard my story so here im not finishing this of!
I think it look pretty neat 
SCAR Code:
//-------------------------------------------------------------------------------
// ____. .__.__ ________ .___
// | |____ |__| | / _____/ __ _______ _______ __| _/
// | \__ \ | | | / \ ___| | \__ \\_ __ \/ __ |
///\__| |/ __ \| | |_\ \_\ \ | // __ \| | \/ /_/ |
//\________(____ /__|____/\______ /____/(____ /__| \____ |
// \/ \/ \/ \/
//________
//\_____ \__ _ ______ _____ ____ ____
// / | \ \/ \/ / \\__ \ / ___\_/ __ \
/// | \ / | \/ __ \_/ /_/ > ___/
//\_______ /\/\_/|___| (____ /\___ / \___ >
// \/ \/ \//_____/ \/
//------------------------------------------------------------------------------
//------------------------------------------------------------------------------
// | What It Does |
// -=-=-=-=-=-=-=-=-
// * This Script Is Designed To Walk To Draynor And Kill JailGuards.
// * Thus Gaining Combat Exp.
// * I Will Update This Script As Much As I Can.
// * This Script Will Stay Free!
//------------------------------------------------------------------------------
//------------------------------------------------------------------------------
// | Setup |
// -=-=-=-=-
// * Start Script Anywhere With Combat 30 + Players.
// * Equip Only 3 Bits Of Armour/Weapons.
// * Declare Players Username Pass Nickname How Many Guards To Kill & Skill [fighting type].
//------------------------------------------------------------------------------
//------------------------------------------------------------------------------
// | Extra Info |
// -=-=-=-=-=-=-=-=-
// * This Script Will Die And Return Thus Running For Long Periods Of Time.
// * I Am NOT Responsible For Anythink (Being Banned & Loseing Items).
// * Post Proggies & Bugs Please.
// * ©~Rudeboialex @ SRL Forums.
//------------------------------------------------------------------------------
//------------------------------------------------------------------------------
// | Credits |
// -=-=-=-=-=-
// * Fakawi For Alot Of Procedures Ect... Thanks man!
//------------------------------------------------------------------------------
program JailGuard;
{.include SRL/SRL.scar}
Const
Killz = 5; // How Many Guards To Kill UntilSwitching Players.
Procedure DeclarePlayers;
Begin
NumberOfPlayers(6);
Players[0].Name :='Username';
Players[0].Pass :='Password';
Players[0].Nick :='3-4 Letters Of Your Name';
Players[0].Active :=True;
Players[0].Skill:= 'Attack'; // Attack ,Strength Or Defence.
Players[1].Name :='';
Players[1].Pass :='';
Players[1].Nick :='';
Players[1].Active :=True;
Players[1].Skill:= 'Attack'; // Attack ,Strength Or Defence.
Players[2].Name :='';
Players[2].Pass :='';
Players[2].Nick :='';
Players[2].Active :=True;
Players[2].Skill:= 'Attack'; // Attack ,Strength Or Defence.
Players[3].Name :='';
Players[3].Pass :='';
Players[3].Nick :='';
Players[3].Active :=True;
Players[3].Skill:= 'Attack'; // Attack ,Strength Or Defence.
Players[4].Name :='';
Players[4].Pass :='';
Players[4].Nick :='';
Players[4].Active :=True;
Players[4].Skill:= 'Attack'; // Attack ,Strength Or Defence.
Players[5].Name :=' ';
Players[5].Pass :='';
Players[5].Nick :='';
Players[5].Active :=True;
Players[5].Skill:= 'Attack'; // Attack ,Strength Or Defence.
Writeln('Using '+IntToStr(NumberOfPlayers)+' Players');
end;
Function FindFastRandoms: Boolean;
var
i: Integer;
begin
for i:=1 to 10 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;
8: begin
if InBlack then
begin
Result := True;
Players[CurrentPlayer].loc := 'InBlack';
Logout;
Exit;
end;
end;
9: RC;
10: Respond;
end;
wait(1);
end;
end;
Procedure SetPlayerFightMode
begin
if ( not ( LoggedIn )) then Exit;
GameTab(1);
begin
if Players[CurrentPlayer].Skill = 'attack' then SetFightMode(1);
if Players[CurrentPlayer].Skill = 'strength' then SetFightMode(2);
if Players[CurrentPlayer].Skill = 'defence' then SetFightMode(4);
LampSkill := LowerCase ( Players[CurrentPlayer].Skill );
End;
End;
Procedure LumbridgeTeleport;
Begin
if TabExists(7) then GameTab(7) else Exit;
SetChat('off', 1);
Cast('Home Teleport');
Wait(15000 + Random ( 2000 ));
End Else
if FindBlackChatMessage('to wait') then
begin
Players[CurrentPlayer].Active := False;
Players[CurrentPlayer].Loc :='Teleport Fail';
LogOut;
Writeln('Need To Wait Some Teleport Time Try This Player Again in 30 mins.')
End;
End;
Procedure GuardColors;
Begin
GuardColor[1] := 1125770; // Red Shirt.
GuardColor[2] := 1126285; // Red Shirt 2.
GuardColor[3] := 3096903; // Body.
GuardColor[4] := 3491662; // Body 2.
GuardColor[5] := 2180171; // Glove.
GuardColor[6] := 535084; // Glove 2.
GuardColor[7] := 1319725; // Trouser.
GuardColor[8] := 1847102; // Trouser 2.
GuardColor[9] := 4282483; // Skin.
GuardColor[10] := 4085104; // Skin 2.
End;
Procedure FightTheGuards;
var CBx,CBy : Integer;
Begin
for Numbers := 1 to 10 do
begin
CBx := MSCx;
CBy := MSCy;
if FindColorSpiralTolerance(CBx, CBy, GuardColors[Numbers], MSX1, MSY1, MSX2, MSY2, 15) then
begin
Mouse(CBx, CBy, 0, 0, True);
repeat
Wait(100);
until(not(findfight));
Writeln (' Killed Guard =]')
Guards := Guards + 1;
Until Guards = Killz;
End;
End;
End;
End;
Procedure WalkToDraynor;
Begin
RadialRoadWalk(RoadColor, 0, 14, 60, -1, 1);
Flag;
End;
begin
SetupSRL;
end.