All pastes #586440 Raw Edit

Something

public text v1 · immutable
#586440 ·published 2007-06-23 20:57 UTC
rendered paste body
<?php



function LINGO_start(&$irc, &$data, &$vars)
{
	$words = array('sound');
	$word = $words[rand(0,count($words)-1)];
	$word_split = str_split($word);

	$message = 'Let\'s start today off with a '.strtoupper($word_split[0]).'.';

	$irc->message(SMARTIRC_TYPE_CHANNEL, $data->channel, $message);

	$message = strtoupper($word_split[0]).' - - - -';

	$irc->message(SMARTIRC_TYPE_CHANNEL, $data->channel, $message);

	$vars['play'] = true;

	$vars['timer'] = 0;

	$vars['guess'] = 10;
	$vars['hints'] = 3;
	$vars['word'] = $word;

}



function LINGO_message(&$irc, &$data, &$vars)
{

	if (!$vars['play'])
	{

		return;

	}

	$guess = trim($data->message);
	if ($guess == $vars['word'])
	{

		$message = "Congratulations! ".$data->nick." guessed the word!";

		$irc->message(SMARTIRC_TYPE_CHANNEL, $data->channel, $message);
		$vars['play'] = false;
	} elseif (strlen($guess) == 5 && $vars['guess'] > 0) {
		$guess_split = str_split(strtoupper($guess));
		$word_split = str_split(strtoupper($vars['word']));
		$result = "";
		foreach ($guess_split as $guess_id => $guess_letter)
		{
			foreach ($word_split as $word_id => $word_letter)
			{
				if ($guess_letter == $word_letter && $guess_id == $word_id)
				{
					//Color Red
					$result .= chr(2)."".chr(3)."05".$guess_letter."".chr(3)."".chr(2)." ";
				} elseif($guess_letter == $word_letter) {
					//Color yellow
					$result .= chr(2)."".chr(3)."08".$guess_letter."".chr(3)."".chr(2)." ";
				} elseif($guess_letter != $word_letter && $guess_id == $word_id) {
					//Normal color (black)
					$result .= $guess_letter." ";
				}
			}
		}

		$message = "Result: $result";

		$irc->message(SMARTIRC_TYPE_CHANNEL, $data->channel, $message);
		$var['guess']--;
	} elseif ($vars['guess'] == 0) {

		$message = "You ran out of attempts to guess the word.";

		$irc->message(SMARTIRC_TYPE_CHANNEL, $data->channel, $message);
		$vars['play'] = false;	
	} elseif (floor($vars['timer'] / 2) == 60) {

		$message = "You ran out of time to guess the word.";

		$irc->message(SMARTIRC_TYPE_CHANNEL, $data->channel, $message);
		$vars['play'] = false;	
	} elseif (strlen($guess) != 5) {

		$message = "Word '$guess' is greater/less than five characters.";

		//$irc->message(SMARTIRC_TYPE_CHANNEL, $data->channel, $message);
	}

}



function LINGO_timer(&$irc, &$vars)
{

	if ($vars['play'])
	{

		$vars['timer']++;

	}

}



?>