Compiling help

[zluo]

Ok i have just finished my first script (which is for a private server) and i have no idea what i am doing wrong with the compiling. It is a woodcutter to firemaker script.

program WCandFM;
{$i SRL/SRL.simba}

var
  x,y:Integer;

const
 TreeColour = 22664;
 TreeColourTolerance = 3;
 StumpColour = 4489384;

procedure AntiBan;
begin
 Case Random (2500) of
    0..18: Begin SleepAndMoveMouse(5000 + Random(750)); End;
    19..24: Begin RandomRClick; End;
    25..42: Begin PickUpMouse; End;
    43..48: Begin MissMouse(100,100); End;
    49..54: Begin RandomRClick; End;
    55..60: Begin PickUpMouse; End;
    61..66: Begin RandomMovement; End;
    67..72: Begin BoredHuman; End;
    73..78: Begin RandomRClick; End;
    End;
 end;

 procedure ChopTree
 begin
  repeat
       if FindColorSpiralTolerance(x, y, TreeColour, 0, 0, 515, 337,  TreeColourTolerance) then //finding and clicking the tree
       writeln('Found tree and chopping it down.');
       Mouse (x ,y ,0 , 0, True);
       repeat
       Wait(RandomRange(2000, 3000)) //antiban stuff (though I might not really need, its good practise)
       AntiBan;
       Until not(FindColorSpiralTolerance(x, y, 3436712, 0, 0, 515, 337, 2) or (FindColorSpiralTolerance (x, y, 3029313, 653, 438, 669, 449, 20)) = False //detects fallen tree and/or full inventory
       until not (FindColorSpiralTolerance (x, y, 3029313, 653, 438, 669, 449, 20); //detects full inventory
       Writeln('Full inventory, starting to firemake.');
      end;

Procedure Firemake;
begin
repeat
Mouse(706, 444, 10, 10, True); //clicking tinderbox
wait (300+Random(100));
Mouse(663, 444, 10, 10, True); //clicking log
wait (1700+Random(100));
until (FindColorSpiralTolerance (x, y, 3029313, 653, 438, 669, 449, 20));
Writeln('Finished lighting all the logs)
end;

procedure main;
begin
  repeat
    ChopTree;
    Firemake;
  until(false);
end;

begin
  ClearDebug;
  SetUpSrl;
  ActivateClient;
  main;
end.

so does anybody know what im doing wrong? sorry if its a simple answer, i have never really finished reading the tuts that i need to read. most my learning comes from reading others' scripts and from the help of this community.

[Markus]

missing a ' at the end of the writeln in procedure Firemake;

[zluo]

ah crap thanks, and also just noticed there was no semicolon after procedure choptree.

[Caotom]

You're also missing a ; after (Line 27)

procedure ChopTree

A second ) after (line 36)

Until not(FindColorSpiralTolerance(x, y, 3436712, 0, 0, 515, 337, 2)

Same as above on line 37.
Missing a ' at the end of (line 49)

Writeln('Finished lighting all the logs)

~Caotom