<?php
/**
 * Tournaments. Optional: hidden on the site until switched on in Settings.
 */

if ( ! defined( 'ABSPATH' ) ) {
	exit;
}

/* ---------- Switches ---------- */

/** Is the tournaments section switched on? */
function clanfront_feature_on( $feature = 'tournaments' ) {
	return '1' === (string) clanfront_setting( 'show_tournaments' );
}

function clanfront_tournament_list() {
	if ( ! clanfront_feature_on( 'tournaments' ) ) {
		return array();
	}
	return get_posts(
		array(
			'post_type'      => 'clanfront_tourney',
			'post_status'    => 'publish',
			'posts_per_page' => 100,
			'no_found_rows'  => true,
		)
	);
}

/** Navigation links only appear when the section is on and has something to show. */
function clanfront_has_tournaments() {
	return (bool) clanfront_tournament_list();
}

/* ---------- Content type ---------- */

add_action(
	'init',
	function () {
		register_post_type(
			'clanfront_tourney',
			array(
				'labels'       => clanfront_labels( 'Tournament', 'Tournaments', array( 'menu_name' => 'Tournaments' ) ),
				'public'       => true,
				'has_archive'  => 'tournaments',
				'rewrite'      => array( 'slug' => 'tournament', 'with_front' => false ),
				'supports'     => array( 'title', 'editor' ),
				'show_in_menu' => CLANFRONT_MENU,
				'show_in_rest' => false,
			)
		);
	}
);

// Rewrite rules for the new types are refreshed once after an update.
add_action(
	'init',
	function () {
		if ( get_option( 'clanfront_version' ) !== CLANFRONT_VERSION ) {
			flush_rewrite_rules( false );
			update_option( 'clanfront_version', CLANFRONT_VERSION );
		}
	},
	99
);

/* ---------- Tournaments: bracket ---------- */

function clanfront_tourney_names( $post ) {
	$raw   = (string) get_post_meta( $post->ID, 'clanfront_participants', true );
	$names = array();
	foreach ( preg_split( '/\r\n|\r|\n/', $raw ) as $line ) {
		$line = trim( sanitize_text_field( $line ), " \n\r\t\v\x00" );
		if ( '' !== $line ) {
			$names[] = $line;
		}
	}
	return array_slice( $names, 0, 32 );
}

/** Seed positions for a bracket of $size slots (a power of two): 1 plays the lowest seed, and so on. */
function clanfront_seed_order( $size ) {
	$order = array( 1 );
	while ( count( $order ) < $size ) {
		$n   = count( $order ) * 2;
		$new = array();
		foreach ( $order as $s ) {
			$new[] = $s;
			$new[] = $n + 1 - $s;
		}
		$order = $new;
	}
	return $order;
}

/**
 * Work out every match from the entrants and the saved winners.
 *
 * $results is keyed "round-match" (both counting from 1 / 0): array( 'w' => 'a'|'b', 'sa' => '', 'sb' => '' ).
 * Returns array( 'rounds' => [ round => [ match => [ a, b, w, sa, sb, bye ] ] ], 'champion' => name or '' ).
 */
function clanfront_bracket( $names, $results = array() ) {
	$n = count( $names );
	if ( $n < 2 ) {
		return array( 'rounds' => array(), 'champion' => '' );
	}
	$size   = 2;
	while ( $size < $n ) {
		$size *= 2;
	}
	$total  = (int) round( log( $size, 2 ) );
	$order  = clanfront_seed_order( $size );
	$rounds = array();
	for ( $r = 1; $r <= $total; $r++ ) {
		$count = $size / pow( 2, $r );
		for ( $m = 0; $m < $count; $m++ ) {
			if ( 1 === $r ) {
				$sa = $order[ 2 * $m ];
				$sb = $order[ ( 2 * $m ) + 1 ];
				$a  = $sa <= $n ? $names[ $sa - 1 ] : null;
				$b  = $sb <= $n ? $names[ $sb - 1 ] : null;
			} else {
				$a = $rounds[ $r - 1 ][ 2 * $m ]['winner'];
				$b = $rounds[ $r - 1 ][ ( 2 * $m ) + 1 ]['winner'];
			}
			$bye    = ( 1 === $r ) && ( null === $a || null === $b );
			$key    = $r . '-' . $m;
			$saved  = isset( $results[ $key ] ) && is_array( $results[ $key ] ) ? $results[ $key ] : array();
			$w      = isset( $saved['w'] ) ? $saved['w'] : '';
			$winner = null;
			if ( $bye ) {
				$w      = null === $a ? 'b' : 'a';
				$winner = 'a' === $w ? $a : $b;
			} elseif ( null !== $a && null !== $b && ( 'a' === $w || 'b' === $w ) ) {
				$winner = 'a' === $w ? $a : $b;
			} else {
				$w = '';
			}
			$rounds[ $r ][ $m ] = array(
				'a'      => $a,
				'b'      => $b,
				'w'      => $w,
				'winner' => $winner,
				'sa'     => isset( $saved['sa'] ) ? (string) $saved['sa'] : '',
				'sb'     => isset( $saved['sb'] ) ? (string) $saved['sb'] : '',
				'bye'    => $bye,
			);
		}
	}
	$final = $rounds[ $total ][0];
	return array(
		'rounds'   => $rounds,
		'champion' => null === $final['winner'] ? '' : $final['winner'],
	);
}

function clanfront_round_name( $round, $total ) {
	$left = $total - $round;
	if ( 0 === $left ) {
		return 'Final';
	}
	if ( 1 === $left ) {
		return 'Semifinals';
	}
	if ( 2 === $left ) {
		return 'Quarterfinals';
	}
	/* translators: %d: number of teams still in the tournament at the start of the round. */
	return sprintf( 'Round of %d', (int) pow( 2, $total - $round + 1 ) );
}

function clanfront_tourney_results( $post ) {
	$saved = get_post_meta( $post->ID, 'clanfront_results', true );
	return is_array( $saved ) ? $saved : array();
}

/** 'Upcoming', 'In progress' or 'Finished'. */
function clanfront_tourney_status( $post ) {
	$bracket = clanfront_bracket( clanfront_tourney_names( $post ), clanfront_tourney_results( $post ) );
	if ( '' !== $bracket['champion'] ) {
		return 'Finished';
	}
	$date = (string) get_post_meta( $post->ID, 'clanfront_date', true );
	if ( $date && $date > wp_date( 'Y-m-d' ) ) {
		return 'Upcoming';
	}
	return 'In progress';
}

function clanfront_bracket_html( $bracket ) {
	if ( ! $bracket['rounds'] ) {
		return '<p class="clanfront-empty">' . esc_html__( 'The bracket will appear here once the teams are set.', 'clanfront' ) . '</p>';
	}
	$total = count( $bracket['rounds'] );
	ob_start();
	?>
	<div class="clanfront-bracket">
		<?php foreach ( $bracket['rounds'] as $r => $matches ) : ?>
			<div class="clanfront-round">
				<h3 class="clanfront-round-title"><?php echo esc_html( clanfront_round_name( $r, $total ) ); ?></h3>
				<div class="clanfront-round-matches">
					<?php foreach ( $matches as $m ) : ?>
						<div class="clanfront-bmatch<?php echo $m['bye'] ? ' is-bye' : ''; ?>">
							<?php foreach ( array( 'a', 'b' ) as $side ) : ?>
								<?php
								$name = $m[ $side ];
								$cls  = 'clanfront-bteam';
								if ( $m['w'] === $side ) {
									$cls .= ' is-winner';
								} elseif ( '' !== $m['w'] ) {
									$cls .= ' is-loser';
								}
								if ( null === $name ) {
									$cls .= ' is-empty';
								}
								?>
								<div class="<?php echo esc_attr( $cls ); ?>">
									<span class="clanfront-bname"><?php echo esc_html( null === $name ? ( $m['bye'] ? 'Bye' : 'To be decided' ) : $name ); ?></span>
									<span class="clanfront-bscore clanfront-num"><?php echo esc_html( 'a' === $side ? $m['sa'] : $m['sb'] ); ?></span>
								</div>
							<?php endforeach; ?>
						</div>
					<?php endforeach; ?>
				</div>
			</div>
		<?php endforeach; ?>
	</div>
	<?php if ( '' !== $bracket['champion'] ) : ?>
		<p class="clanfront-champion"><span>Champion</span> <?php echo esc_html( $bracket['champion'] ); ?></p>
	<?php endif; ?>
	<?php
	return ob_get_clean();
}

/** Tournaments: upcoming first (soonest first), then the rest (newest first). */
function clanfront_sorted_tournaments() {
	$today = wp_date( 'Y-m-d' );
	$new   = array();
	$old   = array();
	foreach ( clanfront_tournament_list() as $t ) {
		$d = (string) get_post_meta( $t->ID, 'clanfront_date', true );
		if ( $d && $d >= $today && 'Finished' !== clanfront_tourney_status( $t ) ) {
			$new[ $t->ID ] = $d;
		} else {
			$old[ $t->ID ] = $d;
		}
	}
	asort( $new );
	arsort( $old );
	$out = array();
	foreach ( array_keys( $new ) as $id ) {
		$out[] = get_post( $id );
	}
	foreach ( array_keys( $old ) as $id ) {
		$out[] = get_post( $id );
	}
	return $out;
}

/* ---------- Visibility on the site ---------- */

/** Which section a request belongs to, or ''. */
function clanfront_competition_request() {
	if ( is_post_type_archive( 'clanfront_tourney' ) || is_singular( 'clanfront_tourney' ) ) {
		return 'tournaments';
	}
	return '';
}

// Visitors get "not found" while a section is switched off. People who can edit still see it, as a preview.
add_action(
	'template_redirect',
	function () {
		$section = clanfront_competition_request();
		if ( '' === $section ) {
			return;
		}
		if ( ! clanfront_feature_on( $section ) && ! current_user_can( 'edit_posts' ) ) {
			global $wp_query;
			$wp_query->set_404();
			status_header( 404 );
			nocache_headers();
		}
	},
	1
);

function clanfront_preview_notice( $section ) {
	if ( clanfront_feature_on( $section ) || ! current_user_can( 'edit_posts' ) ) {
		return '';
	}
	return '<p class="clanfront-preview-note">Only you can see this page. It is switched off for visitors: turn it on under Clanfront &rarr; Settings.</p>';
}

/* ---------- Admin: settings notice on the list screens ---------- */

add_action(
	'admin_notices',
	function () {
		$screen = get_current_screen();
		if ( ! $screen ) {
			return;
		}
		$map = array(
			'edit-clanfront_tourney' => array( 'tournaments', 'Tournaments' ),
		);
		if ( ! isset( $map[ $screen->id ] ) || clanfront_feature_on( $map[ $screen->id ][0] ) ) {
			return;
		}
		printf(
			'<div class="notice notice-info"><p>%s is switched off, so visitors cannot see it yet. Turn it on under <a href="%s">Clanfront &rarr; Settings</a> when you are ready.</p></div>',
			esc_html( $map[ $screen->id ][1] ),
			esc_url( admin_url( 'admin.php?page=clanfront-settings' ) )
		);
	}
);

/* ---------- Admin: edit screens ---------- */

add_action(
	'add_meta_boxes',
	function () {
		add_meta_box( 'clanfront_tourney_details', 'Tournament details', 'clanfront_tourney_box', 'clanfront_tourney', 'normal', 'high' );
		add_meta_box( 'clanfront_tourney_bracket', 'Bracket and results', 'clanfront_tourney_bracket_box', 'clanfront_tourney', 'normal', 'default' );
	}
);

add_filter(
	'enter_title_here',
	function ( $text, $post ) {
		if ( 'clanfront_tourney' === $post->post_type ) {
			return 'For example: Spring Cup';
		}
		return $text;
	},
	11,
	2
);

function clanfront_tourney_box( $post ) {
	wp_nonce_field( 'clanfront_save', 'clanfront_nonce' );
	clanfront_games_datalist();
	?>
	<div class="clanfront-grid">
		<?php
		clanfront_field( $post, 'date', 'Start date', 'date' );
		clanfront_field( $post, 'game', 'Game', 'text', '', 'Start typing a game' );
		clanfront_field( $post, 'prize', 'Prize', 'text', 'Optional. For example: $500 or Bragging rights' );
		clanfront_field( $post, 'link', 'Link', 'url', 'Optional: sign-up page, stream or rules.' );
		clanfront_field( $post, 'link_label', 'Link button text', 'text', '', 'Sign up' );
		?>
	</div>
	<div class="clanfront-field">
		<label for="clanfront_participants">Teams or players</label>
		<textarea id="clanfront_participants" name="clanfront_participants" rows="9" placeholder="One name per line"><?php echo esc_textarea( (string) get_post_meta( $post->ID, 'clanfront_participants', true ) ); ?></textarea>
		<p class="description">One per line, between 2 and 32. The first line is the top seed. Seed 1 meets the lowest seed, so the best entries meet the weakest in round one. If the number is not 4, 8, 16 or 32, the top seeds get a free pass (a "bye") in round one. The large text box above is the description and rules, shown above the bracket.</p>
	</div>
	<?php
}

function clanfront_tourney_bracket_box( $post ) {
	$names = clanfront_tourney_names( $post );
	if ( count( $names ) < 2 ) {
		echo '<p>Add at least two teams or players above and click <strong>Update</strong>. The bracket will appear here so you can enter the results.</p>';
		return;
	}
	$bracket = clanfront_bracket( $names, clanfront_tourney_results( $post ) );
	$total   = count( $bracket['rounds'] );
	echo '<p class="description">Pick the winner of each match and, if you like, type the scores. Click <strong>Update</strong> to save. Winners move on to the next round by themselves. If you change an earlier result or the list of teams, the results that depended on it are cleared, so pick them again.</p>';
	foreach ( $bracket['rounds'] as $r => $matches ) {
		echo '<h4 class="clanfront-round">' . esc_html( clanfront_round_name( $r, $total ) ) . '</h4>';
		echo '<table class="clanfront-app"><tbody>';
		foreach ( $matches as $m => $match ) {
			$key = $r . '-' . $m;
			if ( $match['bye'] ) {
				printf( '<tr><td>%s</td><td colspan="3"><em>Free pass to the next round</em></td></tr>', esc_html( null === $match['a'] ? $match['b'] : $match['a'] ) );
				continue;
			}
			if ( null === $match['a'] || null === $match['b'] ) {
				printf(
					'<tr><td>%s</td><td>vs</td><td>%s</td><td><em>Waiting for earlier results</em></td></tr>',
					esc_html( null === $match['a'] ? 'To be decided' : $match['a'] ),
					esc_html( null === $match['b'] ? 'To be decided' : $match['b'] )
				);
				continue;
			}
			printf(
				'<tr><td><input type="text" name="clanfront_br[%1$s][sa]" value="%2$s" size="4" placeholder="Score" aria-label="%3$s"></td><td>%3$s</td><td>vs</td><td>%4$s</td><td><input type="text" name="clanfront_br[%1$s][sb]" value="%5$s" size="4" placeholder="Score" aria-label="%4$s"></td><td><select name="clanfront_br[%1$s][w]" aria-label="Winner"><option value="">Winner…</option><option value="a" %6$s>%3$s</option><option value="b" %7$s>%4$s</option></select><input type="hidden" name="clanfront_br[%1$s][an]" value="%3$s"><input type="hidden" name="clanfront_br[%1$s][bn]" value="%4$s"></td></tr>',
				esc_attr( $key ),
				esc_attr( $match['sa'] ),
				esc_html( $match['a'] ),
				esc_html( $match['b'] ),
				esc_attr( $match['sb'] ),
				selected( 'a', $match['w'], false ),
				selected( 'b', $match['w'], false )
			);
		}
		echo '</tbody></table>';
	}
	if ( '' !== $bracket['champion'] ) {
		echo '<p class="clanfront-champion"><strong>Champion: ' . esc_html( $bracket['champion'] ) . '</strong></p>';
	}
}

/* ---------- Admin: saving ---------- */

add_action(
	'save_post_clanfront_tourney',
	function ( $post_id ) {
		if ( ! clanfront_can_save( $post_id ) ) {
			return;
		}
		update_post_meta( $post_id, 'clanfront_date', clanfront_post_date( 'clanfront_date' ) );
		update_post_meta( $post_id, 'clanfront_game', clanfront_post_text( 'clanfront_game' ) );
		update_post_meta( $post_id, 'clanfront_prize', clanfront_post_text( 'clanfront_prize' ) );
		update_post_meta( $post_id, 'clanfront_link', clanfront_clean_url( clanfront_post_text( 'clanfront_link' ) ) );
		update_post_meta( $post_id, 'clanfront_link_label', clanfront_post_text( 'clanfront_link_label' ) );
		update_post_meta( $post_id, 'clanfront_participants', sanitize_textarea_field( (string) clanfront_post_value( 'clanfront_participants' ) ) );

		// Results: accept a winner only where both sides are known, round by round.
		$names  = clanfront_tourney_names( get_post( $post_id ) );
		$posted = clanfront_post_value( 'clanfront_br' );
		$posted = is_array( $posted ) ? $posted : array();
		$clean  = array();
		$bracket = clanfront_bracket( $names, $clean );
		$total   = count( $bracket['rounds'] );
		for ( $r = 1; $r <= $total; $r++ ) {
			$bracket = clanfront_bracket( $names, $clean );
			foreach ( $bracket['rounds'][ $r ] as $m => $match ) {
				$key = $r . '-' . $m;
				if ( $match['bye'] || null === $match['a'] || null === $match['b'] || empty( $posted[ $key ] ) || ! is_array( $posted[ $key ] ) ) {
					continue;
				}
				$row = $posted[ $key ];
				// The form remembers who was playing. If an earlier result or the team list changed since, this old result no longer applies.
				$an = isset( $row['an'] ) && is_scalar( $row['an'] ) ? sanitize_text_field( (string) $row['an'] ) : '';
				$bn = isset( $row['bn'] ) && is_scalar( $row['bn'] ) ? sanitize_text_field( (string) $row['bn'] ) : '';
				if ( $an !== $match['a'] || $bn !== $match['b'] ) {
					continue;
				}
				$w   = isset( $row['w'] ) && is_scalar( $row['w'] ) ? (string) $row['w'] : '';
				$sa  = isset( $row['sa'] ) && is_scalar( $row['sa'] ) ? mb_substr( sanitize_text_field( (string) $row['sa'] ), 0, 8 ) : '';
				$sb  = isset( $row['sb'] ) && is_scalar( $row['sb'] ) ? mb_substr( sanitize_text_field( (string) $row['sb'] ), 0, 8 ) : '';
				if ( '' === $w && '' === $sa && '' === $sb ) {
					continue;
				}
				$clean[ $key ] = array(
					'w'  => ( 'a' === $w || 'b' === $w ) ? $w : '',
					'sa' => $sa,
					'sb' => $sb,
				);
			}
		}
		update_post_meta( $post_id, 'clanfront_results', $clean );
	}
);

/* ---------- Admin: list columns ---------- */

add_filter(
	'manage_clanfront_tourney_posts_columns',
	function ( $cols ) {
		return clanfront_columns(
			$cols,
			array(
				'clanfront_when'   => 'Starts',
				'clanfront_game'   => 'Game',
				'clanfront_status' => 'Status',
			)
		);
	}
);

add_action(
	'manage_clanfront_tourney_posts_custom_column',
	function ( $col, $post_id ) {
		switch ( $col ) {
			case 'clanfront_when':
				$d = (string) get_post_meta( $post_id, 'clanfront_date', true );
				echo esc_html( $d ? clanfront_format_date( $d ) : '—' );
				break;
			case 'clanfront_game':
				echo esc_html( (string) get_post_meta( $post_id, 'clanfront_game', true ) ?: '—' );
				break;
			case 'clanfront_status':
				echo esc_html( clanfront_tourney_status( get_post( $post_id ) ) );
				break;
		}
	},
	10,
	2
);