SCAR Code:
Procedure FindAxeAndType;
var
BronzeAxe, IronAxe, SteelAxe, BlackAxe, AdamAxe, RuneAxe, DragAxe: integer;
begin
if(not(LoggedIn)) then
exit;
begin
BronzeAxe:= 2440785;
IronAxe:= 5000274;
SteelAxe:= 7895426;
BlackAxe:= 1315862;
AdamAxe:= 4609861;
RuneAxe:= 6708293;
DragAxe:= 857705;
GameTab(4);
wait(100+random(200));
// For Bronze.
if(FindColorTolerance(x, y, BronzeAxe, MIX1, MIY1, MIX2, MIY2, 10)) then
begin
MMouse(x, y, 2, -2);
if(IsUpText('ronze')) then
begin
writeln('Player axe is not wielded.');
Players[CurrentPlayer].Strings[0]:= 'bronze';
Players[CurrentPlayer].Booleans[0]:= false;
end;
end else
// For Iron.
begin
if(FindColorTolerance(x, y, IronAxe, MIX1, MIY1, MIX2, MIY2, 10)) then
begin
MMouse(x, y, 2, -2);
if(IsUpText('ron')) then
begin
writeln('Player axe is not wielded.');
Players[CurrentPlayer].Strings[0]:= 'iron';
Players[CurrentPlayer].Booleans[0]:= false;
end;
end else
// for Steel.
begin
if(FindColorTolerance(x, y, SteelAxe, MIX1, MIY1, MIX2, MIY2, 10)) then
begin
MMouse(x, y, 2, -2);
if(IsUpText('teel')) then
begin
writeln('Player axe is not wielded.');
Players[CurrentPlayer].Strings[0]:= 'steel';
Players[CurrentPlayer].Booleans[0]:= false;
end;
end else
// For Black.
begin
if(FindColorTolerance(x, y, BlackAxe, MIX1, MIY1, MIX2, MIY2, 10)) then
begin
MMouse(x, y, 2, -2);
if(IsUpText('lack')) then
begin
writeln('Player axe is not wielded.');
Players[CurrentPlayer].Strings[0]:= 'black';
Players[CurrentPlayer].Booleans[0]:= false;
end;
end else
// For Adamant.
begin
if(FindColorTolerance(x, y, AdamAxe, MIX1, MIY1, MIX2, MIY2, 10)) then
begin
MMouse(x, y, 2, -2);
if(IsUpText('damant')) then
begin
writeln('Player axe is not wielded.');
Players[CurrentPlayer].Strings[0]:= 'adam';
Players[CurrentPlayer].Booleans[0]:= false;
end;
end else
// For Rune.
begin
if(FindColorTolerance(x, y, RuneAxe, MIX1, MIY1, MIX2, MIY2, 10)) then
begin
MMouse(x, y, 2, -2);
if(IsUpText('une')) then
begin
writeln('Player axe is not wielded.');
Players[CurrentPlayer].Strings[0]:= 'rune';
Players[CurrentPlayer].Booleans[0]:= false;
end;
end else
// For Dragon.
begin
if(FindColorTolerance(x, y, DragAxe, MIX1, MIY1, MIX2, MIY2, 10)) then
begin
MMouse(x, y, 2, -2);
if(IsUpText('ragon')) then
begin
writeln('Player axe is not wielded.');
Players[CurrentPlayer].Strings[0]:= 'dragon';
Players[CurrentPlayer].Booleans[0]:= false;
end;
end else
begin
GameTab(5);
wait(100+random(200));
// For Bronze.
if(FindColorTolerance(x, y, BronzeAxe, MIX1, MIY1, MIX2, MIY2, 10)) then
begin
MMouse(x, y, 2, -2);
if(IsUpText('ronze')) then
begin
writeln('Player axe is wielded.');
Players[CurrentPlayer].Strings[0]:= 'bronze';
Players[CurrentPlayer].Booleans[0]:= true;
end;
end else
// For Iron.
begin
if(FindColorTolerance(x, y, IronAxe, MIX1, MIY1, MIX2, MIY2, 10)) then
begin
MMouse(x, y, 2, -2);
if(IsUpText('ron')) then
begin
writeln('Player axe is wielded.');
Players[CurrentPlayer].Strings[0]:= 'iron';
Players[CurrentPlayer].Booleans[0]:= true;
end;
end else
// for Steel.
begin
if(FindColorTolerance(x, y, SteelAxe, MIX1, MIY1, MIX2, MIY2, 10)) then
begin
MMouse(x, y, 2, -2);
if(IsUpText('teel')) then
begin
writeln('Player axe is wielded.');
Players[CurrentPlayer].Strings[0]:= 'steel';
Players[CurrentPlayer].Booleans[0]:= true;
end;
end else
// For Black.
begin
if(FindColorTolerance(x, y, BlackAxe, MIX1, MIY1, MIX2, MIY2, 10)) then
begin
MMouse(x, y, 2, -2);
if(IsUpText('lack')) then
begin
writeln('Player axe is wielded.');
Players[CurrentPlayer].Strings[0]:= 'black';
Players[CurrentPlayer].Booleans[0]:= true;
end;
end else
// For Adamant.
begin
if(FindColorTolerance(x, y, AdamAxe, MIX1, MIY1, MIX2, MIY2, 10)) then
begin
MMouse(x, y, 2, -2);
if(IsUpText('damant')) then
begin
writeln('Player axe is wielded.');
Players[CurrentPlayer].Strings[0]:= 'adam';
Players[CurrentPlayer].Booleans[0]:= true;
end;
end else
// For Rune.
begin
if(FindColorTolerance(x, y, RuneAxe, MIX1, MIY1, MIX2, MIY2, 10)) then
begin
MMouse(x, y, 2, -2);
if(IsUpText('une')) then
begin
writeln('Player axe is wielded.');
Players[CurrentPlayer].Strings[0]:= 'rune';
Players[CurrentPlayer].Booleans[0]:= true;
end;
end else
// For Dragon.
begin
if(FindColorTolerance(x, y, DragAxe, MIX1, MIY1, MIX2, MIY2, 10)) then
begin
MMouse(x, y, 2, -2);
if(IsUpText('ragon')) then
begin
writeln('Player axe is wielded.');
Players[CurrentPlayer].Strings[0]:= 'dragon';
Players[CurrentPlayer].Booleans[0]:= true;
end;
end;
end else
begin
writeln('Did not find axe. Logging Out.');
NextPlayer(False);
Logout;
end;
end;
end;