randomize

procedure BetterRandomize;
var
rs:integer;
begin
rs:=random(65534);
Randomize;
rs:=rs*random(234216);
RandSeed:=rs;
end;

he taka se prawi randomize. Ne prosto da se wika randomize shtoto (pone w D6) ono si e prosto wyrzano na timera kojto e prez milisekunda i ako se izwika randomize w sashtata milisekunda, koeto ne e problem pri segashnite mashinki - randseed-a stawa edin i sasht.


------------------------------
I got a COMPILER, and I'm not afraid to use it!