/* server player joins game */
                when ( /^\x59(....)(.)(.{16})(..)(..)$/s ) {
                        print "". (DIRTXT)[Server]
                                ." $CONNECTC_PORT Spawn Player:\n\t0x".
                                unpack("H16", $1) ." ".
                                unpack("Z16", $3) ." the 0x".
                                unpack("H2", $2) ."\n\tat 0x".
                                unpack("H4", $2) ." x 0x".
                                unpack("H4", $2) ."\n";
                }


/* client join a game */
        when ( /\x68(....)(....)(.)(....)(....)(....)\x00(.{16})$/s ) {
                print "". (DIRTXT)[Client]
                        ." $CONNECTC_PORT Invoke Player:\n\tServer Token 0x".
                        unpack("H16", $1 . $2) ." name ".
                        unpack("Z16", $7) ." the 0x".
                        unpack("H2", $3) ."\n\tVersion 0x".
                        unpack("H8", $4) ." x 0x".
                        unpack("H16", $5 . $6) ."\n";
        }