Well since you are doing more than one thing after the 'if' you must use a 'begin'..
SO:
SCAR Code:
Procedure FletchUnStrung;
var
c: integer;
begin
if(not(LoggedIn))then exit;
if(Players[CurrentPlayer].Booleans[0] = False) then
begin
repeat
if(FindDTM(Knife, x, y, MIX1, MIY1, MIX2, MIY2))then
begin //use a begin here
Mouse(x ,y, 2, 3, True);
Wait(200 + Random(700));
end else //then make this 'end else'
begin //add a begin here
Wait(500 + Random(1000));
ChkInv;
c := c + 1;
end; //and an end where ever you want it to end the 'else' statement
until c > 3;
If you were only doing ONE thing with the if statement then you could do it like that
SCAR Code:
begin
if (This) then DOThis
else (DoOther)
end.
But when doing more than one you must add a begin and an 'end else'
SCAR Code:
begin
if (This) then
begin
DOThis;
AndThis;
end else (DoOther)
end.
Hope that helps =]