is3 A. m; d, v0 Z/ n1 V @
i:real;+ U. X. z# Q m. l0 m1 j4 r
a,b:integer;3 ?3 _& {4 ?1 n4 L' n. u7 u2 H- }
do' @! a0 G+ B* y* K1 Y; u0 _, e
i:=z_uniform(2,0,1);( j: V# F" N/ l8 }
if i<0.67 then
5 V; n3 T$ M$ h from a:=1;
6 w. v4 n$ g8 H" B1 [0 E7 H until a>6 loop _% K$ @" \4 o+ r, i
.models.pan.create(.Models.Frame2.SingleProc);
X0 V9 d( L, D! Y2 @5 m' N' W a:=a+1;
( a0 b& I3 ~6 X& s end;: \2 D' G2 p1 j1 Y: z
else: y( E v) ^- C0 O8 h+ }' b
from b:=1
" k0 ]1 @! ?' u, t; o3 I until b>8 loop
0 D6 e3 C0 G7 i .models.ban.create(.Models.Frame2.SingleProc);
4 A2 l# X( `: c b:=b+1;
; ?# g- W0 R1 {4 z0 { end;: D+ E8 X1 c8 z2 s+ X
end;
1 U& [0 {9 G# A' y4 { B2 @- Cend;& Q0 K) F6 q/ ?7 n
|