SRL Archive - OSR Help

Hi, I've got this antiban procedure and so that I know when antiban has been called I want it to say in the debug box "Antiban called". I was just wondering if there was an easier way to do it than this;

Procedure AntiBan;
begin
  case Random(100) of
  0:
  begin
    WriteLn('AntiBan called');
    HoverSkill('Magic', False);
    GameTab(Tab_Magic)
  end;
  1:
  begin
    WriteLn('AntiBan called');
    PickUpMouse;
  end;
  2:
  begin
    WriteLn('AntiBan called');
    MakeCompass(RandomRange(20,60));
    MakeCompass('N');
  end;
  3:
  begin
    WriteLn('AntiBan called');
    ExamineInv;
  end;
  4:
  begin
    WriteLn('AntiBan called');
    Wait(RandomRange(500, 2000));
  end;
  5:
  begin
    WriteLn('AntiBan called');
    BoredHuman;
  end;
  6:
  begin
    WriteLn('AntiBan called');
    ExamineInv;
  end;
  end;
end;

Writeln before case statement

From: CephaXz
Writeln before case statement

I think he only want writeln to be called if the it randomed 0-6.
This should work:

Procedure AntiBan;
var
  R: Integer;
begin
  R:=Random(100);
  if R<=6 then
     WriteLn('AntiBan called');
  case R of
    0:
    begin
      HoverSkill('Magic', False);
      GameTab(Tab_Magic)
    end;
    1:
    begin
      PickUpMouse;
    end;
    2:
    begin
      MakeCompass(RandomRange(20,60));
      MakeCompass('N');
    end;
    3:
    begin
      ExamineInv;
    end;
    4:
    begin
      Wait(RandomRange(500, 2000));
    end;
    5:
    begin
      BoredHuman;
    end;
    6:
    begin
      ExamineInv;
    end;
  end;
end;                

From: riwu
I think he only want writeln to be called if the it randomed 0-6.
This should work:

Procedure AntiBan;
var
  R: Integer;
begin
  R:=Random(100);
  if R<=6 then
     WriteLn('AntiBan called');
  case R of
    0:
    begin
      HoverSkill('Magic', False);
      GameTab(Tab_Magic)
    end;
    1:
    begin
      PickUpMouse;
    end;
    2:
    begin
      MakeCompass(RandomRange(20,60));
      MakeCompass('N');
    end;
    3:
    begin
      ExamineInv;
    end;
    4:
    begin
      Wait(RandomRange(500, 2000));
    end;
    5:
    begin
      BoredHuman;
    end;
    6:
    begin
      ExamineInv;
    end;
  end;
end;                

This is exactly what I was going to suggest.

I see. Sorry, Misunderstood the question :p. because I had a different method of calling antiban :D

I knew there would be a simple solution. Thanks for the responses!