if then mit vielen möglichkeiten

[himitsu]

Ähm, so in etwa

Delphi-Quellcode:

procedure Prozedur1;
  ...

procedure Prozedur2;
  ...

procedure Prozedur3;
  ...

...
begin
  case Random(100) of
    1..5: Prozedur1;
    6..9: Prozedur2;
    0, 10..99: Prozedur3;
  end;
end;

[edit]
ach menno