[Error] C:\Simba\Scripts\Autofightteser.simba(31:8): 'BEGIN'

[rj]

When i try to add failsafes.. It ends up failing.
I get this error:

[Error] C:\Simba\Scripts\Autofightteser.simba(31:8): 'BEGIN' expected at line 30
Compiling failed.

program fite;
Var
  X, Y, charm: Integer;
Const
// fill out
NPC=1122383;
loot=14079706;
tolerence=15;
time=7; // in seconds
rwait=1000;
tleft= 41;
tright = 44;
bleft=426;
bright=280;

 procedure pickup;
Begin
charm :=  BitmapFromString(31, 12, 'meJyTUdeWIQU5TPgPRyRpJNJkBj' +
        'CgrvnIJkNEkNnUMpwMvVN3HIMj/IZjDXOscQFxCcRMiDdxmY/scrQ' +
        'wxx8XcMPR2HiCBZmLi40ZJnAvUNdwBiSAJ9iJNxwevGiOx59mMJMl' +
        'VnHMdIvf8WjKiBGnEQIAUtQGXA==');
         WriteLn('Looking for bones . . . ');
        Wait(1700 + Random(1200));
 if FindColorTolerance(X,Y,loot,184,123,294,197,15) then
   WriteLn('Found bones');
  movemouse(x, y);
       Wait(120 + Random(80));
       ClickMouse(x, y, Mouse_right);
       End;
       else
       Begin
       clicknpc;
       End;
       Begin
       WriteLn('Looking for charm . . . ');
       wait(1100);
 if  FindBitMapToleranceIn(charm, X, Y,161, 95, 330, 205, 75) then
    movemouse(X, Y);
     WriteLn('Found charm ');
    wait(500);
    ClickMouse(X, Y, Mouse_left)
    FreeBitMap(charm);
    wait(3000);
    End;
    else
    Begin
    clicknpc;
    End;
End;
procedure checkcombat;
       begin
       Wait((time*500) + Random(rwait));
        WriteLn('Waiting for loot . . .');
        Wait((time*500) + Random(rwait));
       pickup;
       End;
procedure clicknpc;
var
  X, Y, charm: Integer;
begin     // kill npc
 WriteLn('Attacking skeleton . . .');
        if FindColorTolerance(X,Y,NPC,tleft,tright,bleft,bright,tolerence) then
      movemouse(x, y);
      Wait(20 + Random(50));
       ClickMouse(x, y, Mouse_Left)
       checkcombat;
       End else;
       Begin
       clicknpc;
       End;
Begin
  repeat
  clicknpc;
  until (False);
  End.

[Janilabo]

Try this:

// fill out const's
const
  NPC = 1122383;
  loot = 14079706;
  tolerence = 15;
  time = 7; // in seconds
  rwait = 1000;
  tleft = 41;
  tright = 44;
  bleft = 426;
  bright = 280;

var
  charm: Integer;

procedure PickUp;
var
  X, Y: Integer;
begin
  Wait(1700 + Random(1200));
  WriteLn('Looking for bones...');
  if FindColorTolerance(X, Y, loot, 184, 123, 294, 197, 15) then
  begin
    WriteLn('Found bones!');
    Movemouse(x, y);
    Wait(120 + Random(80));
    ClickMouse(x, y, mouse_Right);
  end;
  WriteLn('Looking for charm...');
  Wait(1100);
  if FindBitmapToleranceIn(charm, X, Y,161, 95, 330, 205, 75) then
  begin
    Movemouse(X, Y);
    WriteLn('Found charm!');
    Wait(500);
    ClickMouse(X, Y, mouse_Left);
    Wait(3000);
  end;
end;

procedure CheckCombat;
begin
  Wait((time * 500) + Random(rwait));
  WriteLn('Waiting for loot...');
  Wait((time * 500) + Random(rwait));
  PickUp;
end;

procedure ClickNPC;
var
  X, Y: Integer;
begin     // kill npc
  WriteLn('Attacking skeleton...');
  if FindColorTolerance(X, Y, NPC, tleft, tright, bleft, bright, tolerence) then
  begin
    MoveMouse(X, Y);
    Wait(20 + Random(50));
    ClickMouse(X, Y, Mouse_Left);
    WriteLn('Attacked skeleton!');
    CheckCombat;
  end;
end;

begin
  charm := BitmapFromString(31, 12, 'meJyTUdeWIQU5TPgPRyRpJNJkBj' +
        'CgrvnIJkNEkNnUMpwMvVN3HIMj/IZjDXOscQFxCcRMiDdxmY/scrQ' +
        'wxx8XcMPR2HiCBZmLi40ZJnAvUNdwBiSAJ9iJNxwevGiOx59mMJMl' +
        'VnHMdIvf8WjKiBGnEQIAUtQGXA==');
  repeat
    ClearDebug;
    ClickNPC;
  until False;
  FreeBitmap(charm);
end.

[rj]

Try this:

// fill out const's
const
  NPC = 1122383;
  loot = 14079706;
  tolerence = 15;
  time = 7; // in seconds
  rwait = 1000;
  tleft = 41;
  tright = 44;
  bleft = 426;
  bright = 280;

var
  charm: Integer;

procedure PickUp;
var
  X, Y: Integer;
begin
  Wait(1700 + Random(1200));
  WriteLn('Looking for bones...');
  if FindColorTolerance(X, Y, loot, 184, 123, 294, 197, 15) then
  begin
    WriteLn('Found bones!');
    Movemouse(x, y);
    Wait(120 + Random(80));
    ClickMouse(x, y, mouse_Right);
  end;
  WriteLn('Looking for charm...');
  Wait(1100);
  if FindBitmapToleranceIn(charm, X, Y,161, 95, 330, 205, 75) then
  begin
    Movemouse(X, Y);
    WriteLn('Found charm!');
    Wait(500);
    ClickMouse(X, Y, mouse_Left);
    Wait(3000);
  end;
end;

procedure CheckCombat;
begin
  Wait((time * 500) + Random(rwait));
  WriteLn('Waiting for loot...');
  Wait((time * 500) + Random(rwait));
  PickUp;
end;

procedure ClickNPC;
var
  X, Y: Integer;
begin     // kill npc
  WriteLn('Attacking skeleton...');
  if FindColorTolerance(X, Y, NPC, tleft, tright, bleft, bright, tolerence) then
  begin
    MoveMouse(X, Y);
    Wait(20 + Random(50));
    ClickMouse(X, Y, Mouse_Left);
    WriteLn('Attacked skeleton!');
    CheckCombat;
  end;
end;

begin
  charm := BitmapFromString(31, 12, 'meJyTUdeWIQU5TPgPRyRpJNJkBj' +
        'CgrvnIJkNEkNnUMpwMvVN3HIMj/IZjDXOscQFxCcRMiDdxmY/scrQ' +
        'wxx8XcMPR2HiCBZmLi40ZJnAvUNdwBiSAJ9iJNxwevGiOx59mMJMl' +
        'VnHMdIvf8WjKiBGnEQIAUtQGXA==');
  repeat
    ClearDebug;
    ClickNPC;
  until False;
  FreeBitmap(charm);
end.

Thanks