is* r B. R' C! v
i:real;7 ]+ a$ [; a8 [
a,b:integer;9 `5 a. B% ?* w6 p( b" L
do1 B* @4 s c! k
i:=z_uniform(2,0,1);
- d1 Z: L5 s% u7 C if i<0.67 then
# R q: O" b8 K" S from a:=1;4 V! [3 X! Y7 `1 t+ s' c
until a>6 loop' I( }: y1 i9 F4 K7 E! g
.models.pan.create(.Models.Frame2.SingleProc);* z2 j E3 g3 ^" R
a:=a+1;
) O0 G9 ?/ j x- f' ]+ q end;
- ^& v4 {% j$ `6 _9 T* \& a else
! t/ h' W" T6 h8 h: l; ?% s from b:=1
9 G% H- P9 K' A, e until b>8 loop. {% ?$ j2 P) h. c& V+ |
.models.ban.create(.Models.Frame2.SingleProc);+ v" Y0 r" F F4 a5 j
b:=b+1;8 ^, }8 o4 c9 t% S; R0 Z- I
end;
. _3 h6 {/ i! e% d! Q end;
2 I' k0 e/ O6 `5 O' g, H& Oend;
( L+ ?! p q' j. q; i7 Q |