=====Bingo Action=====

>>==See also:==
Documentation: BingoActionInfo.>>This is the development page for the bingo action.::c::

the php code:
%%(php)
<?php

/**
* A simple action to create a bxxxxxxt bingo game card.
* Words are loaded from another page, called seed.
* Each line in seed starting with a letter (us-ascii +
* german umlauts) or a number is considered one word,
* all other lines are ignored, so you can use wikka-markup.
* Lines which shall be ignored, but don't start with wikka-markup
* only need a single space at the beginning.
*
* @package actions
* @name bingo
*
* @author {@link http://wikka.jsnx.com/TimoK TimoK}
* @version 0.2
*
* @param string $seed name of the page containing the word list
* @param string $joker optional; the string to use for free fields
* default: "" (empty string)
* @output a 5x5-table containing 24 words from seed and 1 joker
*
* @todo nothing?
*/

// Configuration

$bingo_delimiter = "\n";
$bingo_joker = "";
$bingo_validseed = "/^[A-Z,a-z,ÄÖÜ,äöü]+[A-Z,a-z,0-9,ÄÖÜ,ßäöü]*$/s";

// Functions

function cleanup(&$item) {
return preg_match("/^[A-Za-z0-9ÄÖÜßäöü].*/",$item) ? TRUE : FALSE;
}

function print_card($words,$joker) {
global $wakka;
print "<table class='bingocard'>\n";
for ($i = 0; $i < 25; $i++) {
if (($i % 5) == 0) print "<tr class='bingorow'>\n";
if ($i < 12) {
print "<td>" . $words[$i] . "</td>\n";
} elseif ($i == 12) {
print "<td class='bingojoker'>" . $wakka->ReturnSafeHtml($joker) . "</td>\n";
} else {
print "<td>" . $words[$i-1] . "</td>\n";
}
if ((($i + 1) % 5) == 0) print "</tr>\n";
}
print "</table>";
}

// Init & Check-Up

srand ((float)microtime()*1000000);

if (!is_array($vars)) {
print "Error in action call, please refer to the documentation, aborting!";
} elseif (!is_string($vars["seed"])) {
print "You need to specify a seed for the game card creation, aborting!";
} elseif (!preg_match($bingo_validseed,$vars["seed"])) {
print "The seed you supplied is no valid page name, aborting!";
} elseif (!$this->ExistsPage($vars["seed"])) {
print "The seed you supplied is no existing page, aborting!";
} elseif ($page = $this->LoadPage($vars["seed"])) {
if(is_string($vars["joker"])) {
$bingo_joker = $vars["joker"];
}
// Get the words, clean up and shuffle
$bingo_words = explode($bingo_delimiter,$page["body"]);
$bingo_words = array_filter($bingo_words,"cleanup");
$bingo_words = array_unique($bingo_words);
shuffle($bingo_words);
// We need an array of 24 words
$bingo_size = sizeof($bingo_words);
if ($bingo_size < 12) {
print "Your seed contains less than 12 valid words, aborting!";
} else {
if ($bingo_size < 24) {
$bingo_words = array_merge($bingo_words,$bingo_words);
}
if ($bingo_size > 24) {
$bingo_words = array_slice($bingo_words,0,24);
}
print_card($bingo_words,$bingo_joker);
}
} else {
print "Unknown Error, aborting!";
}

?>
%%
====example css====
%%(css)
.bingocard {
border: 1px solid #000;
border-collapse: collapse;
margin: 5px;
}

.bingorow td {
border: 1px solid #000;
padding: 3px;
text-align: center;
}

.bingojoker {
background: #09d;
}
%%
----
CategoryUserContributions