Anonymous

 if( $type =~ /POS/  ) {

                if(  $who !~ /$ProneClient::NAME/ ) {
                        $what =~ /(.*),(.*)/;
                        my $x = $1;
                        my $y = $2;
                        my $name = $1 ; #ugly
                        #update remote char position, not very good here.
                        foreach my $p ( @players ) {
                                if( $p->name =~ /$who/ ) {
                                print "SETTING pos for $who *".$p->name."* $x | $y \n";
                                        $p->x($x);
                                        $p->y($y);
                                print "VALUE " . $p->x ."\n";
                                print "VALUE " . $p->y ."\n";

                                        $p->img =~ /(.*)-/;
                                #       $p->img( $1 ."-". $p->direction ) ;
                                #       $p->animate();
                                }

                        }
                }