is* s, E* b6 @- t; C0 p# W
i:real;
* n+ U4 {0 X' z1 l: V# @# A a,b:integer;, o9 ^3 ~: `6 O. Q) O! T
do( i0 J1 \$ [8 X6 r! ^8 N
i:=z_uniform(2,0,1);' ^2 p/ f% a" O, n3 y0 N
if i<0.67 then2 a$ I y5 f' Y/ L5 x
from a:=1;
& ~/ ]4 A; x5 p; ]* ]9 H5 | until a>6 loop* _9 x: g& }, ~0 |
.models.pan.create(.Models.Frame2.SingleProc);
9 A1 }- g! j( o2 I Y# ?) b a:=a+1;
; P7 R! E. i$ S& n0 g' B& s, L end;: e5 k( ]2 v# n/ w7 |1 I
else
: \' W/ u( s+ {8 T) e' F from b:=1
6 f3 ~3 w) [0 [5 S3 a0 k; x until b>8 loop
K# U" k; V5 X' q9 H0 b ?: Z8 J6 d .models.ban.create(.Models.Frame2.SingleProc);5 U* o9 U0 r" U) ^0 Y
b:=b+1;
8 l7 G0 o, {1 z end;
1 J4 k8 a1 U' O, {% b end; f; l# b7 @$ H9 r1 w% _" p/ U
end;
9 F, G1 W& \8 M: I |