Hallo,
als Zufallsfunktion würde ich "Random(x)", wobei das Ergebnis im Zahlenbereich von 0 bis x-1 liegt, empfehlen. Diese Funktion musst du aber erst mit Randomize irgendwo initialisieren.
Delphi-Quellcode:
if (tag > 30) and (tag < 60) then {Intervall von 30 Tagen}
x:= random(30) + 30;
if tag = x then
Ereignis;
if tag = 45 then
x2:= random(2);
if x2 = 0 then
tu_dies
else
tu_jenes;
Das müsste an und für sich gehen. Hoffe, es ist verständlich genug
Gruß
Stefan