Was genau meinst du mit 3D-Chat mit Avataren? Nach meiner Kristallkugel meinst du damit, daß du auf dem Bildschirm siehst, das verschiedene Leute rumsitzen und wenn jemand was sagt, dannsteht das über ihm.
Willst du das als Teil einer Webseite, oder als eigenständiges Programm haben?
sub z{if(@_){1while$x[$k=rand 10];t($t=$x[$k]=1)}print map"$z[$x[$_]]$_".($_%3?
"":"\n"),1..9}sub t{$j=0;$x[$_+1]==$t&&($j+=2**$_)for 0..8;z,die"Gewinner $z[$t]
"if grep$_==($j&$_),7,56,73,84,146,273,292,448;z,die"Gleichstand\n"if@x>9&&!grep
!$_,@x}@x=4;@z=qw{. [ (};z$^T&1;while(<>){next if$_>9||$x[$_];t$t=$x[$_]=2;z 1}