help please

ok i got this script from some1 and it says

Code:

Failed when compiling
Line 4: [Error] (3:1): Identifier expected in script

Could u help me out

Code:

begin
# ScriptName  = Draynor Willow Smasher and Banker
begin
# Author      = Surajd
begin
# Description = Smashes Willows and Banks them in Draynor =D
begin
# Version     = v1.01 [ SRL Include ]
begin
# Date        = Published on the 5/07/06
end;
end;
end;
end;
end;
end;
begin
# Comments    = Please post all Bugs/Corrections in this script's thread, What are you waiting for! =D
end;
# Setup lines are from lines 29-35!
# Have Axe in the FIRST Inventory Slot!
# 06/06/06 : Added a Progress Report! As commented by a few people =D
# 06/06/06 : Fixed some bugs in the Counters =/

/Script Info}


program DWSBanker_SRL_Remade;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Woodcutting.scar}


var
  a, b: Integer;
  A1, A2, A3, H: Integer;
  BTimes, STimes, FTimes, ETimes: Integer;

const
  HowManyTrips = 357;
  WaitTime     = 3501;
  MMBankSymbol = 5103346;

  WTreeColor1 = 2658424;
  WTreeColor2 = 1332819;
  WTreeColor3 = 5535856;


  VersionNumber = 'v1.01 by Surajd';



procedure ProgressReport;
begin
  begin
    WriteLn(' ');
    WriteLn('<============== -' + VersionNumber + '- Progress Report ===============>');
    WriteLn(' Smashed: ' + inttostr(STimes) + ' Willow Log(s)! ');
    WriteLn(' Banked:  ' + inttostr(BTimes) + ' Loads of Willows! ');
    WriteLn(' Fixed:   ' + inttostr(FTimes) + ' Axe(s)! ');
    WriteLn(' Found:   ' + inttostr(ETimes) + ' Ent(s)! ');
    SRLRandomsReport;
  end;
end;

procedure SetupScript;
begin
  MakeCompass('N');
  SetChat('Hide', 1);
  SetChat('Off', 2);
  SetChat('Off', 3);
  SetRun(true);
  GameTab(4);
end;

procedure AxeColors;
begin
  Writeln('Getting Axe and Handle colors...')
    A1 := Getcolor(593, 220)
    A2 := Getcolor(590, 219)
    A3 := Getcolor(588, 220)
    H := Getcolor(582, 220)
    Writeln('Axe colors: ' + inttostr(A1) + '  ' + inttostr(A2) + '  ' + inttostr(A3))
    Writeln('Handle color: ' + inttostr(H))
end;

procedure AntiRandomsAR;
begin
  Findnormalrandoms;
  AntiBan;
  if (FindFight) then
  begin
    Writeln('We are in a fight! Not to worry... .. SCRAMBLE!!!');
    RunAwayDirection('E');
    RunBack;
    Writeln('Phew, that was a close one.. Lets continue smashing! =D');
  end;
  FindEnt(WTreeColor1);
  FindEnt(WTreeColor2);
  FindEnt(WTreeColor3);
   if(FindEnt(WTreeColor1))then
    ETimes := ETimes + 1
  if (not (ExistsItem(1))) then
  begin
    Writeln('Axe head missing! Looking very carefully to find it =/');
    FindHead;
    FTimes := FTimes + 1
  end;
end;

procedure GoSmashWillows;
begin
  if (FindMMColorTol(a, b, MMBankSymbol, 5)) then
    wait(1001 + random(203 * 2 / 1 - 1 + 2));
  Mouse(a - 29, b + 41, 1, 2, true);
  Flag;
end;

procedure GoBank;
begin
  if (InvFull) then
    Writeln('Going to deposit this heavy load of bull! *Sigh*');
  FindBank('db');
  Flag;
  wait(2000 + random(500 * 2 / 3 + 100));
  if (BankScreen) then
  begin
    Deposit(2, 28, 2);
    wait(1001 + random(30 * 8 / 2 - 7 + 10));
    BTimes := BTimes + 1
    CloseBank;
    Writeln('Successfully deposited the heap of goods!');
    wait(1500 + random(709 * 2 / 2 + 200 - 2));
    ProgressReport;
  end;
end;


procedure ChopDownWillows;
begin
  if (FindMainColor(a, b, WTreeColor1, 3, true)) or
    FindMainColor(a, b, WTreeColor2, 2, true) or
    FindMainColor(a, b, WTreeColor3, 3, true) then
  begin
    repeat
      STimes := STimes + 1
      wait(1023 + random(323 * 5 / 2));
      if (IsUpText('Chop Down')) then
        MMouse(a, b, 1, 2);
      GetMousePos(a, b);
      Mouse(a, b, 1, 2, true);
      wait(WaitTime + Random(329 * 8 / 2 + 3 - 1));
      AntiRandomsAR;
    until (InvFull);
    ProgressReport;
  end;
end;

procedure MainLoop;
begin
  repeat
    SetupScript;
    AxeColors;
    AntiRandomsAR;
    ChopDownWillows;
    GoBank;
    GoSmashWillows;
  until (HowManyTrips = BTimes);
  Logout;
  Writeln('Thanks for using the beefy Draynor Willow Smasher and Banker Script created by Surajd =D');
end;


begin
  BTimes := 0
  STimes := 0
  FTimes := 0
  ETimes := 0
    ProgressReport;
  Writeln('You are using the Draynor Willow SMASHER and Banker script!');
  Writeln('... Created by Surajd =)');
  SetupSRL;
  DisguiseScar('Notepad');
  MainLoop;
end.

 

at the top where it says...

Code:

begin
# ScriptName  = Draynor Willow Smasher and Banker
begin
# Author      = Surajd
begin
# Description = Smashes Willows and Banks them in Draynor =D
begin
# Version     = v1.01 [ SRL Include ]
begin
# Date        = Published on the 5/07/06
end;
end;
end;
end;
end;
end;
begin
# Comments    = Please post all Bugs/Corrections in this script's thread, What are you waiting for! =D
end;
# Setup lines are from lines 29-35!
# Have Axe in the FIRST Inventory Slot!
# 06/06/06 : Added a Progress Report! As commented by a few people =D
# 06/06/06 : Fixed some bugs in the Counters =/

/Script Info}

make it look like this....

Code:

{
Script Info
# ScriptName  = Draynor Willow Smasher and Banker
# Author      = Surajd
# Description = Smashes Willows and Banks them in Draynor =D
# Version     = v1.01 [ SRL Include ]
# Date        = Published on the 5/07/06
# Comments    = Please post all Bugs/Corrections in this script's thread, What are you waiting for! =D
# Setup lines are from lines 29-35!
# Have Axe in the FIRST Inventory Slot!
# 06/06/06 : Added a Progress Report! As commented by a few people =D
# 06/06/06 : Fixed some bugs in the Counters =/

Script Start
}

That should work... but to be honest, do not use this script, go to www.srl-forums.com/forum/ and make an account.. and use SecretCutter (dont leech, remember to post proggies)