SCAR Code:
WriteLn: '=========================';
WriteLn: '=====PROGRESS REPORT=====';
WriteLn: ' Feathers Bought: ' +(IntToStr(FeathersBought));
WriteLn: '== JACOBDM0 ==';
WriteLn: '=========================';
End.
needs to be
SCAR Code:
WriteLn('=========================');
WriteLn('=====PROGRESS REPORT=====');
WriteLn(' Feathers Bought: ' +(IntToStr(FeathersBought)));
WriteLn('== JACOBDM0 ==');
WriteLn('=========================');
End.
Notice the parentheses I added onto each start and end of writeln, and removed the colon. The proper syntax of writeln is

Edit- You've also got a who lot of other stuff wrong in there, i recommend looking over some beginner tutorials.
SCAR Code:
// Jacobdm0's Updated Feather Buyer! \\
// Feather Buyer 1.2!! \\
// Setup Starts On Line 14 \\
// Buys, then waits for restock \\
// Ocasionally buys 1's or 5's \\
// Doesn't ALWAYS get the exact amount you want \\
{.include SRL/SRL.scar}
Const
// SETUP \\
// (VERY easy) \\
FeathersToBuy = 1000; //Self Explain
//Have Trade with Gerrant OPEN\\
//DO NOT TOUCH BELOW\\
Var
FeathersBought : Integer;
Procedure
ClickFeathers;
Begin
Mouse(x,y,380,81,true);
Wait(100);
Wait(1+random(500));
End;
Procedure Buy10;
Begin
Mouse(x,y,380,152,False);
Wait(7500+random(500));
FeathersBought := FeathersBought+10
End;
Procedure Buy5;
Begin
Mouse(x,y,380,136,True);
Wait(3000+random(500));
FeathersBought := FeathersBought+5
end;
Procedure Buy1;
Begin
Mouse(x,y,380,121,true);
Wait(1000+random(500));
FeathersBought := FeathersBought+1;
end;
Begin
FeathersBought := 0;
Repeat
Case random(16) of
0: Begin
ClickFeathers;
Buy10;
end;
1: Begin
ClickFeathers;
Buy5;
end;
2: Begin
ClickFeathers;
Buy1;
end;
3: Begin
ClickFeathers;
Buy10;
end;
4: Begin
ClickFeathers;
Buy10;
end;
5: Begin
ClickFeathers;
Buy10;
end;
6: Begin
ClickFeathers;
Buy10;
end;
7: Begin
ClickFeathers;
Buy10;
end;
8: Begin
ClickFeathers;
Buy10;
end;
9: Begin
ClickFeathers;
Buy10;
end;
10: Begin
ClickFeathers;
Buy10;
end;
11: Begin
ClickFeathers;
Buy10;
end;
12: Begin
ClickFeathers;
buy10;
end;
13: Begin
ClickFeathers;
buy10;
end;
14: Begin
ClickFeathers;
buy10;
end;
15: Begin
ClickFeathers;
Buy5;
end;
end;
Until (FeathersBought > FeathersToBuy);
WriteLn('=========================');
WriteLn('=====PROGRESS REPORT=====');
WriteLn(' Feathers Bought: ' +(IntToStr(FeathersBought)));
WriteLn('== JACOBDM0 ==');
WriteLn('=========================');
End.
Compiles, please look through what i did in order to learn from mistakes. One problem was that you needed an end after
SCAR Code:
15:
Begin
ClickFeathers;
Buy5;
end;
and before the until.
Also need to specify where to buy the feather at, since you use mouse to move to a certain point.