Here are the corrections I made to solve your errors.
SCAR Code:
program SimplePowerChopper;
Removed a ; after program. Only need one.
SCAR Code:
var
i,x,y:Integer;
Loads : Integer;
Dropped : Integer;
Prog : Integer;
Variables are declared as varname : Vartype; not with an =.
SCAR Code:
procedure CutTree; //Cuts the tree you specified
begin
i:= 0;
repeat
i:=i + 1;
if(FindColor(x,y,TreeColor1,0,0,700,700)) or
(FindColor(x,y,TreeColor2,0,0,700,700)) and
IsUpText('Cut') then //you had IsTextUp instead of IsUpText.
begin
Wait(1000 +random(500))
Mouse(x, y, 3, 3, True);
Wait(5000 +random(500));
end;
Wait(700);
until(InvFull);
end;
SCAR Code:
procedure Drop;
begin
If (InvFull) then
begin
//DropFromInvSlot (2, 28); I couldn't find this command in SRL, hence your error. Try another drop command.
end else
Drop; //This wont even work. You cant call the procedure you're writing during it, if that makes any sense.
end;
SCAR Code:
procedure DoAntiRandoms;
begin
FindTalk;
FindNormalRandoms;
if (FindFight = true) then
begin
RunAwayDirection('N');
Wait(1000+random(2000));
RunBack;
end;
end;//forgot an end;