Well, this is an edited version of white shadows, just added some log in, anti random and proggies and stuff 
SCAR Code:
//-------------------------------------------------------------------------------//
//-------------------------------------------------------------------------------//
//--- /| |\ || [||] |\ /| ||||||||| \|| /\ ---//
//--- //| ||\ || || ||\ /|| || || //\\ ---//
//--- //|| ||\\ || || ||\\ //|| || / // \\ ---//
//--- // || || \\ || || || \\ // || || \\ ---//
//--- // || || \\ || || || \\// || || \\ ---//
//--- // || || \\ || || || \/ || |||||| \\ ---//
//--- //====|| || \\ || || || || || \\ ---//
//--- // || || \\ || || || || || \\ ---//
//--- // || || \\|| || || || || \\ // ---//
//--- // || || \|| || || || || \\// ---//
//--- // || || \| [||] || || ||||||||| \/ ---//
//---// ---//
//-------------------------------------------------------------------------------//
//-------------------------------------------------------------------------------//
//-----------------------------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