BEGIN expected error, help please

[ummmmm0k]

well im trying to make my second script which is a power chopper, i scripted most of it, and i got this error, but i dont know how to fix it, i looked ath that tut about errors but i couldnt find where a begin was missing, so can someone take a look at my script and either tell me what to do or make a correction for me and repost it thanks a lot.

program WoodCutter;
{.include SRL\SRL.Scar}
var
i,o: integer;
DBanMe: Integer;
const
TreeColor=2904136;
Procedure AntiBan;
begin
DBanMe:= Random(10);
 case DBanMe of

    0: RandomRClickEvery(2 + Random(13));
    1: HoverSkill('Mining', False);
    2: RandomChatEvery(10 + Random(5));
    3: RotateEvery(20 + Random(10));
    4: LeaveScreenEvery(5 + Random(5));
    5: HoverEvery(15 + Random(5), 'Attack');
    6: PickUpMouse;
    7: BoredEvery(9 + Random(24));
    8: DragItem(1, 1 + Random(18));
    9: GameTab(1 + Random(12));
    10: RotateEvery(7 + random(4));
  end;
end;

procedure AntiRandom;
begin
  FindTalk; //looks for a few letters from characters name (Nick) for randoms
  FindNormalRandoms; //looks for normal randoms and solves (mime, plant, etc.)
  FindLamp('mining'); //if finds the lamp, picks the skill
   if FindFight then //if finds that you're in a fight
    begin
     RunAwayDirection('n'); //runs north (n, s, w, e)
     Wait(10000+random(2000)); //waits
     RunBack;//Runs back
    end;
end;
procedure FindTree;
begin
 repeat;
  wait(1000+random(500));
  AntiBan;
  FindColorSpiral(i, o, TreeColor, 3, 3, 514, 338) then
  MMouse(i,o,1,1);
  wait(200+random(100));
  Mouse(i, o, 1, 1, true);
  AntiRandom;
 until(FullInv);
end;

Procedure DropLogs;
 begin
  wait(100+random(50));
  AntiBan;
  wait(2000+random(1000));
  dropto(2,28);
  wait(100+random(50));
  AntiRandom;
 end;

begin
 SetupSRL;
  repeat
   FindTree;
   DropLogs;
   until(false)
  end.

[WhiteShadow]

program WoodCutter;
{.include SRL\SRL.Scar}

var
  i, o: integer;
  DBanMe: Integer;

const
  TreeColor=2904136;

Procedure AntiBan;
begin
  DBanMe:= Random(10);
  case DBanMe of
    0: Wait(1); // RandomRClickEvery
    1: HoverSkill('Mining', False);
    2: Wait(1); // RandomChatEvery(10 + Random(5));
    3: Wait(1); // RotateEvery(20 + Random(10));
    4: Wait(1); // LeaveScreenEvery(5 + Random(5));
    5: Wait(1); // HoverEvery(15 + Random(5), 'Attack');
    6: PickUpMouse;
    7: Wait(1); // BoredEvery(9 + Random(24));
    8: DragItem(1, 1 + Random(18));
    9: GameTab(1 + Random(12));
    10:Wait(1); // RotateEvery(7 + random(4));
  end;
end;

procedure AntiRandom;
begin
  FindTalk; //looks for a few letters from characters name (Nick) for randoms
  FindNormalRandoms; //looks for normal randoms and solves (mime, plant, etc.)
  FindLamp('mining'); //if finds the lamp, picks the skill
  if FindFight then //if finds that you're in a fight
  begin
    RunAwayDirection('n'); //runs north (n, s, w, e)
    Wait(10000+random(2000)); //waits
    RunBack;//Runs back
  end;
end;

procedure FindTree;
begin
  repeat;
    wait(1000+random(500));
    AntiBan;
    if FindColorSpiral(i, o, TreeColor, 3, 3, 514, 338) then
      if (IsUpText('hop'))then // Check up text.
      begin
        MMouse(i, o, 3, 3); // more random, coord.
        wait(200+random(100));
        Mouse(i, o, 1, 1, true);
      end;
    AntiRandom;
    Wait(3000 + random(500)); // So it won't endlessly click.
  until(InvFull);
end;

Procedure DropLogs;
begin
  wait(100+random(50));
  AntiBan;
  wait(2000+random(1000));
  dropto(2,28);
  wait(100+random(50));
  AntiRandom;
end;

begin
  SetupSRL;
  repeat
    FindTree;
    DropLogs;
  until(false)
end.

This compiles for me. I added some basic notes. I suspect your using an older version of SRL, the current SRL no longer has those antiban procedures, it's in xextended.

gl with your script. "P

[ummmmm0k]

kk it compiles for me now, thanks, do i need to declare players?

[Markus]

Ok, there were a few more errors in your script then that begin error.
First, I made it compatible with the newest SRL, but I had to comment some of the antiban stuff, so it compiles with SRL 3.8.
I made comments at the places with errors I fixed, here is a version that at least compiles:

program WoodCutter;
{.include SRL\SRL.Scar}
var
i,o: integer;
DBanMe: Integer;
const
TreeColor=2904136;
Procedure AntiBan;
begin
DBanMe:= Random(10);
 case DBanMe of
     //0: RandomRClickEvery(2 + Random(13));
    1: HoverSkill('Mining', False);
    //2: RandomChatEvery(10 + Random(5));   //comented out most antiban stuff to make it 3.8 compatible
    //3: RotateEvery(20 + Random(10));
    //4: LeaveScreenEvery(5 + Random(5));
    //5: HoverEvery(15 + Random(5), 'Attack');
    6: PickUpMouse;
    //7: BoredEvery(9 + Random(24));
    //8: DragItem(1, 1 + Random(18));
    9: GameTab(1 + Random(12));
    //10: RotateEvery(7 + random(4));
  end;
end;

procedure AntiRandom;
begin
  FindTalk; //looks for a few letters from characters name (Nick) for randoms
  FindNormalRandoms; //looks for normal randoms and solves (mime, plant, etc.)
  FindLamp('mining'); //if finds the lamp, picks the skill
  if FindFight then //if finds that you're in a fight
  begin
    RunAwayDirection('n'); //runs north (n, s, w, e)
    Wait(10000+random(2000)); //waits
    RunBack;//Runs back
  end;
end;
procedure FindTree;
begin
   repeat;
      wait(1000+random(500));
      AntiBan;
      if FindColorSpiral(i, o, TreeColor, 3, 3, 514, 338) then   //Forgot an if
      MMouse(i,o,1,1);
      wait(200+random(100));
      Mouse(i, o, 1, 1, true);
      AntiRandom;
   until(Invfull); //it is InvFull not FullInv
end;

Procedure DropLogs;
begin
  wait(100+random(50));
  AntiBan;
  wait(2000+random(1000));
  dropto(2,28);
  wait(100+random(50));
  AntiRandom;
end;

begin
 SetupSRL;
  repeat
     FindTree;
     DropLogs;
  until(false)
end.

Oh, and I recommend you to read a tutorial on scripting standards.
Good luck with your script
Markus

edit: Damn, beaten by WhiteShadow

[ummmmm0k]

can u tell me where to get the new srl antibans please

also is this decent for only 2 days scripting from reading beginner tuts to now?

[Ramage]

RandomRClickEvery etc.:

{.include SRL\SRL\Extended\xAntiBan.scar}

PolyGlotTalk:

{.include SRL\SRL\Extended\xAutoTalk.scar}