Ok well I thought I had this fixed earlier but it still is messing up. Basically I have a semicolon error on the first line of this function( the part that says function Tree):
SCAR Code:function Tree(TreeUpText: string, TreeColor: Integer): TTree;
begin
Result.UpText := TreeUpText;
Result.Color := TreeColor;
end;
function CheckTree: TTree;
begin
TreeName := LowerCase(Players[CurrentPlayer].Strings[0]);
case TreeName of
'normal': Result := Tree('ree', 597786);
What did I mess up?![]()



Reply With Quote











