SCAR Code:
procedure Cookit;
begin
Walkthere;
MakeCompass('W')
LowestAngle;
KeyDown(38)
wait(200)
KeyUp(38)
CheckPot;
if FindDTM(Rawchicks, x,y,MIX1,MIY1,MIX2,MIY2) then // Looks for chicken in Inventory
begin
Mouse(x, y, 0, 0, True)
AntiRandoms;
if FindColorTolerance(x, y, 5453577, MSX1, MSY1, MSX2, MSY2, 5) or FindColorTolerance(x, y, 1610675, MSX1, MSY1, MSX2, MSY2, 5) then // Looks For Cooking Pot
begin
MMouse(x, y, 0, 0)
wait(100)
if IsUpText('pot') then
begin
Mouse(x, y, 0, 0, True)
AntiRandoms;
wait(1000)
AntiRandoms;
if FindColorTolerance(x, y, 11119560, 1, 1, 400, 600, 5) then // Finds The Chicken in the chat box thing
begin
AntiRandoms;
Mouse(x, y, 1, 1, False)
ChooseOption(x, y, 'All')
if ClickToContinue then
begin
AntiRandoms;
Mouse(x, y, 1, 1, False)
ChooseOption(x, y, 'All')
repeat
Wait(500 + random(500))
AntBan;
ClickToContinue
until (not (FindDTM(Rawchicks, x,y,MIX1,MIY1,MIX2,MIY2)))) // Until it doesnt find a raw chicken in The inventory
end;
end;
end;
end;
end;
end;