SCAR Code:
{
<>< <>< <>< <>< <>< <>< <>< <>< <>< <>< <>< <><
<>< <>< <>< <>< <>< <>< <>< <>< <>< <>< <>< <><
<>< <>< <>< <><
<>< <>< The Gits Abattoir <>< <><
<>< <>< Cow Killer, Hide Banker <>< <><
<>< <>< And Bone Burrier <>< <><
<>< <>< <>< <><
<>< <>< <>< <>< <>< <>< <>< <>< <>< <>< <>< <><
<>< <>< <>< <>< <>< <>< <>< <>< <>< <>< <>< <><
}
Program Abattoir;
{.include SRL\SRL.Scar}
var
killed : integer;
Const
StartPlayer = 0; // Starting Player
MyNumberOfPlayers = 1; // Number of players
//Colours
Bone = 13421772; //Bone Colour
Hide = 11185588; //Hide Colour
Tolerance = 5;
MonsterName = 'Cow';
kills = 10;
Procedure ProgressReport;
Begin
WriteLn('<>< <>< <>< <>< <>< <>< <>< <>< <>< <>< <>< <><');
WriteLn('<>< <>< <>< <><');
WriteLn('<>< <>< The Gits Abattoir <>< <><');
WriteLn('<>< <>< <>< <><');
WriteLn('<>< <>< <>< <>< <>< <>< <>< <>< <>< <>< <>< <><');
WriteLn('');
WriteLn('Player Status Kills Time ');
End;
Procedure DeclarePlayers;
Begin
HowManyPlayers:= MyNumberOfPlayers;
NumberOfPlayers(HowManyPlayers);
Players[0].Name :='trader';
Players[0].Pass :='';
Players[0].Nick :='eed';
Players[0].Active :=True;
End;
function InFight: Boolean;
begin
Result := (FindColor(x, y, 65280, 230, 130, 280, 180) or FindColor(x, y, 255,
230, 130, 280, 180))
end;
function AttackMonster(Tolerence: Integer): Boolean;
begin
repeat
begin
InFight;
wait(100)
if InFight = false then
begin
if (FindColorTolerance(x, y, 14804196, 79, 95, 592, 429, Tolerence)) and
(FindColorTolerance(x, y, 2576236, 79, 95, 592, 429, Tolerence)) and
(FindColorTolerance(x, y, 2708595, 79, 95, 592, 429, Tolerence)) and
(Option2('Attack ' + 'Cow' + '')) then
begin
Mouse(x, y, 5, 5, True)
writeLn('WOOOOO COOWWWW');
wait(100)
killed:=killed + 1 ;
Result := True;
end
else
if (FindColorTolerance(x, y, 14804196, 79, 95, 592, 429, Tolerence)) and
(FindColorTolerance(x, y, 2576236, 79, 95, 592, 429, Tolerence)) and
(Option2('Attack ' + 'Cow' + '')) then
begin
Mouse(x, y, 5, 5, True)
writeLn('WOOOOO COOWWWW');
wait(100)
killed:=killed + 1 ;
Result := True;
end
else
if (FindColorTolerance(x, y, 2576236, 79, 95, 592, 429, Tolerence)) and
(FindColorTolerance(x, y, 2708595, 79, 95, 592, 429, Tolerence)) and
(Option2('Attack ' + 'Cow' + '')) then
begin
Mouse(x, y, 5, 5, True)
writeLn('WOOOOO COOWWWW');
wait(100)
killed:=killed + 1 ;
Result := True;
end
else
if (FindColorTolerance(x, y, 14804196, 79, 95, 592, 429, Tolerence)) and
(FindColorTolerance(x, y, 2708595, 79, 95, 592, 429, Tolerence)) and
(Option2('Attack ' + MonsterName + '')) then
begin
Mouse(x, y, 5, 5, True)
writeLn('WOOOOO COOWWWW');
wait(100)
killed:=killed + 1 ;
Result := True;
end
else
begin
Result := False
Exit;
end;
end;
end;
until killed=kills;
end;
Procedure ScriptBegin;
Begin
if(not(LoggedIn))then
LoginPlayer;
InFight;
MouseSpeed:= 8 + random(3);
if InFight=false then
begin
AttackMonster;
end
End;
Procedure Setup;
Begin
SetUpSRL; //SRL Setup
DisguiseScar('Itunes'); //Cloak Scar just incase
ActivateClient; //Activate client window
ClearReport; //Clears report
ClearDebug; //Clears Debug
DeclarePlayers; //Player Declare
CurrentPlayer:= StartPlayer; // Sets starting player
ProgressReport; //Progress Report
ScriptBegin; //Main Loop
if(not(LoggedIn))then
LoginPlayer;
End;
Begin
Setup;
End.