public static function newJSON($key, $json)
{
$inContext = (array) json_decode($json);
$authContext = self::getContext($inContext);
$inContext = $authContext['context'];
if ($authContext['key'] != $key) {
throw new Exception("JSON token given is invalid");
}
require_once l_r('lib/variant.php');
$Variant = libVariant::loadFromVariantID($inContext['variantID']);
libVariant::setGlobals($Variant);
require_once l_r('objects/basic/set.php');
$OI = $Variant->OrderInterface($inContext['gameID'], $inContext['variantID'], $inContext['userID'], $inContext['memberID'], $inContext['turn'], $inContext['phase'], $inContext['countryID'], new setMemberOrderStatus($inContext['orderStatus']), $inContext['tokenExpireTime'], $inContext['maxOrderID']);
return $OI;
}
/**
* For everything in board/* (used by ajax.php and board.php) it can be assumed that only one variant
* will be loaded, so here that variant is defined where it will be globally accessible.
*
* @param Variant $Variant
* @return unknown_type
*/
public static function setGlobals(WDVariant $Variant)
{
if (isset(libVariant::$Variant)) {
// In DATC tests this might get called twice
if (libVariant::$Variant->id == $Variant->id) {
return;
} else {
trigger_error(l_t("Alternate variant being set as global"));
}
} else {
libVariant::$Variant = $Variant;
define('VARIANTID', $Variant->id);
define('MAPID', $Variant->mapID);
}
}
/**
* Send a game message. Messages are sanitized
*
* @param string $toCountryID The countryID being sent to. 'Global' sends to all.
* @param string $fromCountryID The county being sent from. 'GameMaster' can also be used.
* @param string|array $message The message(s) to be sent (Can be an array of messages for)
* @param int[optional] $gameID The game ID to use. If not given the current global Game is sent to.
*/
public static function send($toCountryID, $fromCountryID, $message, $gameID = -1)
{
global $DB, $Game;
if (!is_object($Game)) {
$Variant = libVariant::loadFromGameID($gameID);
$Game = $Variant->Game($gameID);
}
$message = $DB->msg_escape($message);
if (!is_numeric($toCountryID)) {
$toCountryID = 0;
}
if (!is_numeric($fromCountryID)) {
$message = '<strong>' . $fromCountryID . ':</strong> ' . $message;
$fromCountryID = 0;
}
if (65000 < strlen($message)) {
throw new Exception(l_t("Message too long"));
}
$DB->sql_put("INSERT INTO wD_GameMessages\r\n\t\t\t\t\t(gameID, toCountryID, fromCountryID, turn, message, timeSent)\r\n\t\t\t\t\tVALUES(" . $Game->id . ",\r\n\t\t\t\t\t\t" . $toCountryID . ",\r\n\t\t\t\t\t\t" . $fromCountryID . ",\r\n\t\t\t\t\t\t" . $Game->turn . ",\r\n\t\t\t\t\t\t'" . $message . "',\r\n\t\t\t\t\t\t" . time() . ")");
if ($toCountryID != $fromCountryID || $fromCountryID == 0) {
libGameMessage::notify($toCountryID, $fromCountryID);
}
}
public function cdUser(array $params)
{
global $DB;
require_once l_r('gamemaster/game.php');
$User = new User($params['userID']);
$Variant = libVariant::loadFromGameID($this->fixedGameID);
$Game = $Variant->processGame($this->fixedGameID);
if ($Game->phase == 'Pre-game' || $Game->phase == 'Finished') {
throw new Exception(l_t("Invalid phase to set CD"));
}
$Game->Members->ByUserID[$User->id]->setLeft(1);
$Game->resetMinimumBet();
return l_t('This user put into civil-disorder in this game');
}
You should have received a copy of the GNU Affero General Public License
along with webDiplomacy. If not, see <http://www.gnu.org/licenses/>.
*/
/**
* @package Admin
*/
require_once 'header.php';
ini_set('memory_limit', "128M");
// 8M is the default
ini_set('max_execution_time', '240');
if ($User->type['Moderator'] && isset($_REQUEST['viewOrderLogGame']) && isset($_REQUEST['viewOrderLogCountryID'])) {
$gameID = (int) $_REQUEST['viewOrderLogGame'];
$countryID = (int) $_REQUEST['viewOrderLogCountryID'];
require_once l_r('objects/game.php');
$Variant = libVariant::loadFromGameID($gameID);
$Game = $Variant->Game($gameID);
if (!($data = file_get_contents(libCache::dirID(Config::orderlogDirectory(), $gameID, true) . '/' . $countryID . '.txt'))) {
trigger_error(l_t("Couldn't open file %s.txt", $log));
}
header('Content-type:text/plain');
print $data;
die;
}
if ($User->type['Admin'] && isset($_REQUEST['viewErrorLog'])) {
$log = (int) $_REQUEST['viewErrorLog'];
if (!($data = file_get_contents(Config::errorlogDirectory() . '/' . $log . '.txt'))) {
trigger_error(l_t("Couldn't open file %s.txt", $log));
}
header('Content-type:text/plain');
print $data;
/**
* The location of the territories JSON file which gives the order-generation JavaScript the board layout it needs.
* Some variants need to extend this function to point to another variant which defines their shared map.
*
* @return string
*/
public function territoriesJSONFile()
{
return l_j(libVariant::cacheDir($this->name) . '/territories.js');
}
foreach ($User->getMuteCountries() as $muteGamePair) {
list($gameID, $muteCountryID) = $muteGamePair;
if (!isset($MutedGames[$gameID])) {
$MutedGames[$gameID] = array();
}
$MutedGames[$gameID][] = $muteCountryID;
}
if (count($MutedGames) > 0) {
print '<li class="formlisttitle">Muted countries:</li>';
print '<li class="formlistdesc">The countries which you muted, and are unable to send you messages.</li>';
print '<li class="formlistfield"><ul>';
$LoadedVariants = array();
foreach ($MutedGames as $gameID => $mutedCountries) {
list($variantID) = $DB->sql_row("SELECT variantID FROM wD_Games WHERE id=" . $gameID);
if (!isset($LoadedVariants[$variantID])) {
$LoadedVariants[$variantID] = libVariant::loadFromVariantID($variantID);
}
$Game = $LoadedVariants[$variantID]->Game($gameID);
print '<li>' . $Game->name . '<ul>';
foreach ($mutedCountries as $mutedCountryID) {
print '<li>' . $Game->Members->ByCountryID[$mutedCountryID]->country . ' ' . libHTML::muted("board.php?gameID=" . $Game->id . "&msgCountryID=" . $mutedCountryID . "&toggleMute=" . $mutedCountryID . "&rand=" . rand(0, 99999) . '#chatboxanchor') . '</li>';
}
print '</ul></li>';
}
print '</ul></li>';
}
$tablMutedThreads = $DB->sql_tabl("SELECT mt.muteThreadID, f.subject, f.replies, fu.username " . "FROM wD_MuteThread mt " . "INNER JOIN wD_ForumMessages f ON f.id = mt.muteThreadID " . "INNER JOIN wD_Users fu ON fu.id = f.fromUserID " . "WHERE mt.userID = " . $User->id);
$mutedThreads = array();
while ($mutedThread = $DB->tabl_hash($tablMutedThreads)) {
$mutedThreads[] = $mutedThread;
}
public function printGamesList($Pager = null)
{
global $DB;
$SQL = $this->sql();
//$this->devQueryData($SQL);
if ($Pager instanceof Pager) {
$SQL .= $Pager->SQLLimit();
}
$tabl = $DB->sql_tabl($SQL);
$count = 0;
print '<div class="gamesList">';
while ($row = $DB->tabl_hash($tabl)) {
$count++;
$Variant = libVariant::loadFromVariantID($row['variantID']);
$G = $Variant->panelGame($row);
print $G->summary(false);
print '<div class="hr"></div>';
}
print '</div>';
return $count;
}
public function banUser(array $params)
{
global $User, $DB, $Game;
$userID = (int) $params['userID'];
if (!isset($params['reason']) || strlen($params['reason']) == 0) {
return l_t('Couldn\'t ban user; no reason was given.');
}
$banReason = $DB->msg_escape($params['reason']);
$banUser = new User($userID);
if ($banUser->type['Banned']) {
throw new Exception(l_t("The user is already banned"));
}
if ($banUser->type['Admin']) {
throw new Exception(l_t("Admins can't be banned"));
}
if ($banUser->type['Moderator'] and !$User->type['Admin']) {
throw new Exception(l_t("Moderators can't be banned by non-admins"));
}
User::banUser($userID, l_t("Banned by a moderator:") . ' ' . $params['reason']);
require_once l_r('gamemaster/game.php');
/*
* Explain what has happened to the games the banned user was in, and extend the
* turn
*/
$tabl = $DB->sql_tabl("SELECT gameID, status FROM wD_Members\r\n\t\t\t\t\tWHERE userID = " . $userID);
while (list($gameID, $status) = $DB->tabl_row($tabl)) {
if ($status != 'Playing') {
continue;
}
$Variant = libVariant::loadFromGameID($gameID);
$Game = $Variant->processGame($gameID);
$banMessage = l_t('%s was banned: %s. ', $banUser->username, $banReason);
if ($Game->phase == 'Pre-game') {
if (count($Game->Members->ByID) == 1) {
processGame::eraseGame($Game->id);
} else {
$DB->sql_put("DELETE FROM wD_Members WHERE gameID = " . $Game->id . " AND userID = " . $userID);
}
} elseif ($Game->processStatus != 'Paused' and $Game->phase != 'Finished') {
// The game may need a time extension to allow for a new player to be added
// Would the time extension would give a difference of more than ten minutes? If not don't bother
if (time() + $Game->phaseMinutes * 60 - $Game->processTime > 10 * 60) {
// It is worth adding an extension
$DB->sql_put("UPDATE wD_Games\r\n\t\t\t\t\t\tSET processTime = " . time() . " + phaseMinutes*60\r\n\t\t\t\t\t\tWHERE id = " . $Game->id);
$Game->processTime = time() + $Game->phaseMinutes * 60;
$banMessage .= l_t('The time until the next phase has been extended by one phase length ' . 'to give an opportunity to replace the player.') . "\n" . l_t('Remember to finalize your orders if you don\'t want ' . 'to wait, so the game isn\'t held up unnecessarily!');
}
}
// IF the game is still running first remove the player from the game and reset the minimum bet so other can join.
if ($Game->phase != 'Finished' && $Game->phase != 'Pre-game') {
$Game->Members->ByUserID[$userID]->setLeft(1);
$Game->resetMinimumBet();
}
libGameMessage::send('Global', 'GameMaster', $banMessage);
$Game->Members->sendToPlaying('No', l_t('%s was banned, see in-game for details.', $banUser->username));
}
$DB->sql_put("UPDATE wD_Orders o INNER JOIN wD_Members m ON ( m.gameID = o.gameID AND m.countryID = o.countryID )\r\n\t\t\t\t\tSET o.toTerrID = NULL, o.fromTerrID = NULL\r\n\t\t\t\t\tWHERE m.userID = " . $userID);
unset($Game);
return l_t('This user was banned, and had their %s points removed and their games set to civil disorder.', $banUser->points);
}
the Free Software Foundation, either version 3 of the License, or
(at your option) any later version.
webDiplomacy is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU Affero General Public License
along with webDiplomacy. If not, see <http://www.gnu.org/licenses/>.
*/
require_once 'header.php';
if ((isset($_POST['watch']) || isset($_POST['unwatch'])) && isset($_POST['gameID'])) {
require_once l_r('objects/game.php');
require_once l_r('gamepanel/gameboard.php');
$gameID = (int) $_POST['gameID'];
// Get the game object, if this fails, then someone has entered some rubbish for the gameID
$Variant = libVariant::loadFromGameID($gameID);
libVariant::setGlobals($Variant);
$Game = $Variant->panelGameBoard($gameID);
if (isset($_POST['unwatch'])) {
$Game->unwatch();
print "Unwatched";
} else {
if (isset($_POST['watch'])) {
$Game->watch();
print "Watched";
}
}
}
header('Location: index.php');
miscUpdate::errorLog();
miscUpdate::forum();
miscUpdate::game();
miscUpdate::user();
}
//- Check last process time, pause processing/save current process time
if (time() - $Misc->LastProcessTime > Config::$downtimeTriggerMinutes * 60) {
libHTML::notice(l_t('Games not processing'), libHTML::admincp('resetLastProcessTime', null, l_t('Continue processing now')));
}
$Misc->LastProcessTime = time();
$Misc->write();
$startTime = time();
// Only do ~30 sec of processing per cycle
$tabl = $DB->sql_tabl("SELECT * FROM wD_Games\r\n\tWHERE processStatus='Not-processing' AND processTime <= " . time() . " AND NOT phase='Finished'");
while (time() - $startTime < 30 && ($gameRow = $DB->tabl_hash($tabl))) {
$Variant = libVariant::loadFromVariantID($gameRow['variantID']);
$Game = $Variant->Game($gameRow);
print '<a href="board.php?gameID=' . $Game->id . '">gameID=' . $Game->id . ': ' . $Game->name . '</a>: ';
try {
if ($Game->processStatus != 'Crashed' && $Game->attempts > count($Game->Members->ByID) * 2) {
$Game = $Variant->processGame($Game->id);
$Game->crashed();
$DB->sql_put("COMMIT");
print 'Crashed.';
} elseif ($Game->needsProcess()) {
$DB->sql_put("UPDATE wD_Games SET attempts=attempts+1 WHERE id=" . $Game->id);
$DB->sql_put("COMMIT");
print 'Rechecking.. ';
$Game = $Variant->processGame($Game->id);
if ($Game->needsProcess()) {
print l_t('Processing..') . ' ';
}
$owners[$terrID] = $countryID;
$drawMap->colorTerritory($terrID, $countryID);
}
if (isset($Game) && $Game->phase == 'Retreats' or $mapType != 'small') {
// Only draw standoffs if we're in the retreats phase, or we're viewing that large map
if ($standoff == 'Yes') {
$drawMap->drawStandoff($terrID);
}
}
}
if (isset($_REQUEST['variantID'])) {
$drawMap->addTerritoryNames();
$drawMap->saveThumbnail(libVariant::cacheDir($Variant->name) . '/sampleMap-thumbnail.png');
$drawMap->write(libVariant::cacheDir($Variant->name) . '/sampleMap.png');
libHTML::serveImage(libVariant::cacheDir($Variant->name) . '/sampleMap.png');
die;
}
/*
* Collect the de-coast mappings. There are 4 types of moves which store decoasted territory data, which now
* needs to be reconstructed to determine the actual positions.
*/
$deCoastMap = array('SupportMoveFromTerrID' => array(), 'SupportMoveToTerrID' => array(), 'SupportHoldToTerrID' => array(), 'DestroyToTerrID' => array());
$tabl = $DB->sql_tabl("SELECT type, terrID, toTerrID, dislodged, success FROM wD_MovesArchive\r\n\tWHERE gameID = " . $Game->id . " AND turn = " . $turn . " AND unitType='Fleet' AND\r\n\t\t( type='Hold' OR type='Move' OR type='Support hold' OR type='Support move' )");
while (list($moveType, $terrID, $toTerrID, $dislodged, $success) = $DB->tabl_row($tabl)) {
$terrDeCoast = $Game->Variant->deCoast($terrID);
$toTerrDeCoast = $Game->Variant->deCoast($toTerrID);
if ($terrDeCoast != $terrID) {
$deCoastMap['SupportMoveFromTerrID'][$terrDeCoast] = $terrID;
$deCoastMap['SupportHoldToTerrID'][$terrDeCoast] = $terrID;
if (($moveType != 'Move' || $success == 'No') && $dislodged == 'No') {
/**
* For the given task display the form, and run the task if data entered from the corresponding form
*
* @param string $actionName The code-name for the desired task
*/
public function process($actionName)
{
global $Misc;
// TODO: Use late static binding for this instead of INBOARD detection
extract($this->actionsList[$actionName]);
print '<li class="formlisttitle">
<a name="' . $actionName . '"></a>' . l_t($name) . '</li>';
try {
if (isset($_REQUEST['actionName']) and $_REQUEST['actionName'] == $actionName) {
print '<li class="formlistfield">';
$paramValues = array();
foreach ($params as $paramName => $paramFullName) {
if (isset($_REQUEST[$paramName])) {
$paramValues[$paramName] = $_REQUEST[$paramName];
}
}
if (isset($paramValues['gameID'])) {
require_once l_r('objects/game.php');
$Variant = libVariant::loadFromGameID((int) $paramValues['gameID']);
$Game = $Variant->Game((int) $paramValues['gameID']);
print '<p>' . l_t('Game link') . ': <a href="board.php?gameID=' . $Game->id . '">' . $Game->name . '</a></p>';
}
if (isset($paramValues['userID'])) {
$User = new User((int) $paramValues['userID']);
print '<p>' . l_t('User link') . ': ' . $User->profile_link() . '</p>';
}
if (isset($paramValues['postID'])) {
print '<p>' . l_t('Post link') . ': ' . libHTML::threadLink($paramValues['postID']) . '</p>';
}
// If it needs confirming but ( hasn't been confirmed or is being resubmitted ):
if (!self::isActionDangerous($actionName) && (!isset($_REQUEST['actionConfirm']) || !libHTML::checkTicket())) {
print '<strong>' . $this->{$actionName . 'Confirm'}($paramValues) . '</strong>';
print '<form action="' . self::$target . '#' . $actionName . '" method="post">
<input type="hidden" name="actionName" value="' . $actionName . '" />
<input type="hidden" name="actionConfirm" value="on" />
<input type="hidden" name="formTicket" value="' . libHTML::formTicket() . '" />';
foreach ($paramValues as $name => $value) {
print '<input type="hidden" name="' . $name . '" value="' . $value . '" />';
}
print '</li><li class="formlistfield" style="margin-bottom:20px">
<input type="submit" class="form-submit" value="Confirm" />
</form>';
} else {
$details = $this->{$actionName}($paramValues);
self::save($name, $paramValues, $details);
$description = '<p class="notice">' . $details . '</p>
<p>' . l_t($description) . '</p>';
$Misc->LastModAction = time();
}
print '</li>';
}
} catch (Exception $e) {
$description = '<p><strong>' . l_t('Error') . ':</strong> ' . $e->getMessage() . '</p>
<p>' . l_t($description) . '</p>';
}
self::form($actionName, $params, $description);
}
foreach ($variantsOff as $variantName) {
$Variant = libVariant::loadFromVariantName($variantName);
print '<li><a href="variants.php#' . $Variant->name . '">' . l_t($Variant->name) . '</a> ' . l_t('(%s Players)', count($Variant->countries)) . '</li>';
}
print '</ul>';
}
libHTML::pagebreak();
foreach ($variantsOn as $variantName) {
$Variant = libVariant::loadFromVariantName($variantName);
print '<h2><a name="' . $Variant->name . '"></a>' . l_t($Variant->fullName) . ' ' . l_t('(%s Players)', count($Variant->countries)) . '</h2>';
if (isset($Variant->description)) {
print l_t($Variant->description) . "<br /><br />";
}
print '<div style="text-align:center"><img id="Image_' . $Variant->name . '" src="';
if (file_exists(l_s(libVariant::cacheDir($Variant->name) . '/sampleMap.png'))) {
print l_s(libVariant::cacheDir($Variant->name) . '/sampleMap.png');
} else {
print 'map.php?variantID=' . $Variant->id;
}
print '" alt=" " title="' . l_t('The map for the %s Variant', $Variant->name) . '" /></div><br />';
print '<strong>' . l_t('Variant Parameters') . '';
if (isset($Variant->version)) {
print ' ' . l_t('(Version: %s)', $Variant->version) . '';
}
print ':</strong>';
print '<ul>';
if (isset($Variant->homepage)) {
print '<li><a href="' . $Variant->homepage . '">' . l_t('Variant homepage') . '</a></li>';
}
if (isset($Variant->author)) {
print '<li> ' . l_t('Created by: %s', $Variant->author) . '</li>';
* Once adjudication is done the outcomes are tested against the DATC test's required outcomes, differences result
* in exceptions. Then orders and units are archived and the game is set to a phase where it'll be drawn by map.php.
* - Two map.php requests, for large and small maps, are submitted. DATC tests are written to a different folder, and
* will overwrite existing maps by default, but are otherwise handled as regular maps are.
* If DATC testing is in batch mode, and no errors occurred, the page will move onto the next test after a 1 second wait.
* This continues until all tests are complete or an error is found. Once all tests are complete the DATC test
* game is wiped.
*
* The code is inefficient, messy, will corrupt games being processed normally at the same time, and may screw up badly if
* run two at a time, but it works and provides an easy way to test changes to orders/adjudication code.
*
* Non-Diplomacy phase DATC tests are currently unsupported.
*/
print l_t('Loading test') . ' <strong><a href="http://web.inter.nl.net/users/L.B.Kruijswijk/#' . $testName . '">' . $testName . '</a></strong>: ' . $testDesc . '<br /><br />';
global $Variant;
$Variant = libVariant::loadFromVariantID($variantID);
$testCase = new datcGame($testID);
$testCase->outputTest();
print l_t('Initialized test');
if (!isset($_REQUEST['DATCResults'])) {
// We're loading a new test: Set the game up
$testCase->initialize();
print ', ' . l_t('generating orders') . '<br /><br />';
$testCase->submitOrders();
print l_t('Orders being generated and sumbitted') . '...<br /><br />';
// submitOrders() has code that will submit the results of all countryID's ajax JSON orders updates once finished.
} else {
// Since the code above all countryID's orders have been submitted, and the results are now given via a JSON encoded DATCResults parameter.
// Order updates have been saved to wD_Orders; check the ajax.php results are correct, then adjudicate and check the adjudication results.
$_REQUEST['DATCResults'] = (array) json_decode($_REQUEST['DATCResults']);
try {
/**
* Create a new game, insert it into the database, return the Game object.
*
* @param string $name The name of the game
* @param string $password The password required to join the game
* @param int $bet The amount which needs to be bet into the game to join initially
* @param string $potType 'Winner-takes-all' or 'Points-per-supply-center'
*
* @return Game The object corresponding to the new game
*/
public static function create($variantID, $name, $password, $bet, $potType, $phaseMinutes, $joinPeriod, $anon, $press, $missingPlayerPolicy = 'Normal', $drawType, $rrLimit)
{
global $DB;
if ($name == 'DATC-Adjudicator-Test' and !defined('DATC')) {
throw new Exception(l_t("The game name 'DATC-Adjudicator-Test' is reserved for the automated DATC tester."));
}
// Find a unique game name
$unique = false;
$i = 1;
while (!$unique) {
list($count) = $DB->sql_row("SELECT COUNT(id) FROM wD_Games WHERE name='" . $name . ($i > 1 ? '-' . $i : '') . "'");
if ($count == 0) {
$unique = true;
} else {
$i++;
}
}
/*
* The password is not salted, because it's given out to several people anyway and it
* isn't worth changing the existing behaviour.
*/
$pTime = time() + $joinPeriod * 60;
$pTime = $pTime - fmod($pTime, 300) + 300;
// for short game & phase timer
$DB->sql_put("INSERT INTO wD_Games\r\n\t\t\t\t\tSET variantID=" . $variantID . ",\r\n\t\t\t\t\t\tname = '" . $name . ($i > 1 ? '-' . $i : '') . "',\r\n\t\t\t\t\t\tpotType = '" . $potType . "',\r\n\t\t\t\t\t\tpot = 0, /* This will receive the first player's bet soon */\r\n\t\t\t\t\t\tminimumBet = " . $bet . ",\r\n\t\t\t\t\t\tanon = '" . $anon . "',\r\n\t\t\t\t\t\tpressType = '" . $press . "',\r\n\t\t\t\t\t\t" . ($password ? "password = UNHEX('" . md5($password) . "')," : "") . "processTime = " . $pTime . ",\n\t\t\t\t\t\tphaseMinutes = " . $phaseMinutes . ",\r\n\t\t\t\t\t\tmissingPlayerPolicy = '" . $missingPlayerPolicy . "',\n\t\t\t\t\t\tdrawType='{$drawType}', minimumReliabilityRating={$rrLimit}");
$gameID = $DB->last_inserted();
$Variant = libVariant::loadFromVariantID($variantID);
return $Variant->processGame($gameID);
}
public static function gameNotifyBlock()
{
global $User, $DB;
$tabl = $DB->sql_tabl("SELECT g.* FROM wD_Games g\r\n\t\t\tINNER JOIN wD_Members m ON ( m.userID = " . $User->id . " AND m.gameID = g.id )\r\n\t\t\tWHERE NOT g.phase = 'Finished'\r\n\t\t\tORDER BY g.processStatus ASC, g.processTime ASC");
$buf = '';
$count = 0;
while ($game = $DB->tabl_hash($tabl)) {
$count++;
$Variant = libVariant::loadFromVariantID($game['variantID']);
$Game = $Variant->panelGameHome($game);
$buf .= '<div class="hr"></div>';
$buf .= $Game->summary();
}
if ($count == 0) {
$buf .= '<div class="hr"></div>';
$buf .= '<div class="bottomborder"><p class="notice">' . l_t('You\'re not joined to any games!') . '<br />
' . l_t('Access the <a href="gamelistings.php?tab=">Games</a> ' . 'link above to find games you can join, or start a ' . '<a href="gamecreate.php">New game</a> yourself.</a>') . '</p></div>';
} elseif ($count == 1 && $User->points > 5) {
$buf .= '<div class="hr"></div>';
$buf .= '<div class="bottomborder"><p class="notice">' . l_t('You can join as many games as you ' . 'have the points to join.') . ' </a></p></div>';
}
return $buf;
}
public function reprocessGame(array $params)
{
global $DB, $Game;
$gameID = (int) $params['gameID'];
/*
* - Check that the game is still active and can be turned back
*
* - Delete current turn values
* - Calculate the turn being moved back to
*
* - Move the old MovesArchive back to Units
* - Move the old MovesArchive (JOIN Units) back to Orders
* - Move the old TerrStatusArchive (JOIN Units) back to TerrStatus
*
* - Update the game turn, phase and next process time
*
* - Delete Archive values if we have moved back a turn
* - Remove the invalid maps in the mapstore
*/
$DB->sql_put("BEGIN");
require_once l_r('gamemaster/game.php');
$Variant = libVariant::loadFromGameID($gameID);
$Game = $Variant->processGame($gameID);
$oldPhase = $Game->phase;
$oldTurn = $Game->turn;
// - Check that the game is still active and can be turned back
if ($Game->turn < 1) {
throw new Exception(l_t('This game cannot be turned back; it is new or is finished.'));
}
// - Delete current turn values
$DB->sql_put("DELETE FROM wD_Units WHERE gameID = " . $Game->id);
$DB->sql_put("DELETE FROM wD_TerrStatus WHERE gameID = " . $Game->id);
$DB->sql_put("DELETE FROM wD_Orders WHERE gameID = " . $Game->id);
// - Calculate the turn being moved back to
$lastTurn = $Game->phase == 'Diplomacy' ? $Game->turn - 1 : $Game->turn;
// - Move the old MovesArchive back to Units
$DB->sql_put("INSERT INTO wD_Units ( type, terrID, countryID, gameID )\r\n\t\t\t\t\t\tSELECT unitType, terrID, countryID, gameID FROM wD_MovesArchive\r\n\t\t\t\t\t\tWHERE gameID = " . $Game->id . " AND turn = " . $lastTurn . "\r\n\t\t\t\t\t\t\t/* Make sure only the Diplomacy phase unit positions are used */\r\n\t\t\t\t\t\t\tAND type IN ( 'Hold', 'Move', 'Support hold', 'Support move', 'Convoy' )");
// - Move the old MovesArchive (JOIN Units) back to Orders
$DB->sql_put("INSERT INTO wD_Orders (gameID, countryID, type, toTerrID, fromTerrID, viaConvoy, unitID)\r\n\t\t\t\t\t\tSELECT m.gameID, m.countryID, m.type, m.toTerrID, m.fromTerrID, m.viaConvoy, u.id\r\n\t\t\t\t\t\tFROM wD_MovesArchive m INNER JOIN wD_Units u ON ( u.terrID = m.terrID AND u.gameID = m.gameID )\r\n\t\t\t\t\t\tWHERE m.gameID = " . $Game->id . " AND m.turn = " . $lastTurn . "\r\n\t\t\t\t\t\t\t/* Make sure only the Diplomacy phase unit positions are used */\r\n\t\t\t\t\t\t\tAND m.type IN ( 'Hold', 'Move', 'Support hold', 'Support move', 'Convoy' )");
// - Move the old TerrStatusArchive back to TerrStatus
$DB->sql_put("INSERT INTO wD_TerrStatus ( terrID, standoff, gameID, countryID, occupyingUnitID )\r\n\t\t\t\t\t\tSELECT t.terrID, t.standoff, t.gameID, t.countryID, u.id\r\n\t\t\t\t\t\tFROM wD_TerrStatusArchive t\r\n\t\t\t\t\t\t\tLEFT JOIN wD_Units u\r\n\t\t\t\t\t\t\tON ( " . $Game->Variant->deCoastCompare('t.terrID', 'u.terrID') . " AND u.gameID = t.gameID )\r\n\t\t\t\t\t\tWHERE t.gameID = " . $Game->id . " AND t.turn = " . $lastTurn);
// - Update the game turn, phase and next process time
$DB->sql_put("UPDATE wD_Games\r\n\t\t\t\t\tSET turn = " . $lastTurn . ", phase = 'Diplomacy', gameOver='No', processTime = phaseMinutes*60+" . time() . ",\r\n\t\t\t\t\t\tprocessStatus='Not-processing', pauseTimeRemaining=NULL\r\n\t\t\t\t\tWHERE id = " . $Game->id);
$DB->sql_put("UPDATE wD_Members SET votes='', orderStatus='',\r\n\t\t\tstatus=IF(status='Won' OR status='Survived' OR status='Drawn' OR status='Playing',\r\n\t\t\t\t'Playing',\r\n\t\t\t\tIF(status='Resigned' OR status='Left','Left','Defeated')\r\n\t\t\t)\r\n\t\t\tWHERE gameID = " . $Game->id);
$DB->sql_put("COMMIT");
// - Delete Archive values if we have moved back a turn
$DB->sql_put("DELETE FROM wD_TerrStatusArchive WHERE gameID = " . $Game->id . " AND turn = " . $lastTurn);
$DB->sql_put("DELETE FROM wD_MovesArchive WHERE gameID = " . $Game->id . " AND turn = " . $lastTurn);
// - Remove the invalid maps in the mapstore
$Game->load();
Game::wipeCache($Game->id);
libGameMessage::send(0, 'GameMaster', l_t('This game has been moved back to %s', $Game->datetxt($lastTurn)), $Game->id);
return l_t('This game was moved from %s, %s back to Diplomacy, %s, and is ready to be reprocessed.', $oldPhase, $Game->datetxt($oldTurn), $Game->datetxt($lastTurn));
}
foreach (Config::$variants as $variantID => $variantName) {
}
$defaultVariantName = $variantName;
print '<input type="hidden" name="newGame[variantID]" value="' . $variantID . '" />';
} else {
?>
<li class="formlisttitle">Variant map/rules:</li>
<li class="formlistfield">
<?php
$checkboxes = array();
$first = true;
foreach (Config::$variants as $variantID => $variantName) {
if ($first) {
$defaultVariantName = $variantName;
}
$Variant = libVariant::loadFromVariantName($variantName);
$checkboxes[] = '<input type="radio" ' . ($first ? 'checked="on" ' : '') . 'name="newGame[variantID]" value="' . $variantID . '"> ' . $Variant->link();
$first = false;
}
print '<p>' . implode('</p><p>', $checkboxes) . '</p>';
?>
</li>
<li class="formlistdesc">
Select which type of Diplomacy game you would like to play from a selection of maps and alternate rule settings
available on this server.<br /><br />
Click any of the variant names to view the details on the variants page.<br /><br />
<strong>Default:</strong> <?php
print $defaultVariantName;
?>
