function call_delete_text()
{
global $go, $delete_id, $tool;
include_once('inc/functions/resort_tools.php');
if (! user_has_access($tool))
{
echo "Sorry, this page is restricted to ORKFiA Staff";
include_game_down();
exit;
}
if ($go != "sure" && $go != "yes")
{
ECHO "<br><b>THIS IS THE DELETE FUNCTION!! MAKE SURE YOU DONT MISCLICK AND DOUBLE CHECK ALL IDs</b>";
echo "<form method=\"post\" action=\"".$_SERVER['REQUEST_URI']."\">";
ECHO "Input user id to delete:<input type=text size=5 name=delete_id>";
ECHO "<input type=hidden name=go value=sure>";
ECHO "<br><input type=submit value=delete></form>";
}
if ($delete_id && $go == "sure" && $delete_id != '1')
{
$name = mysql_query("SELECT tribe, kingdom FROM stats WHERE id = $delete_id");
$name = mysql_fetch_array($name);
echo "THE USER YOU ARE ABOUT TO DELETE IS:<BR>";
echo "$name[tribe](#$name[kingdom])<br><br>";
echo "<form method=\"post\" action=\"".$_SERVER['REQUEST_URI']."\">";
echo "<input type=hidden name=go value=yes>";
echo "<input type=hidden name=delete_id value=$delete_id>";
echo "<br><input type=submit value=delete></form>";
}
if ($delete_id && $go == "yes" && $delete_id != '1')
{
if (doBackupTribe($delete_id, 'delete'))
{
ECHO "User #$delete_id has been deleted <br /><br /> (Comment by Martel: back-up exists.)";
}
else
{
echo "(Backup failed!) User #$delete_id has been deleted.";
}
// Remove invested RPs
// include_once("inc/functions/research.php");
// delete_my_rps($delete_id);
// Delete Tribe (an automatic routine will remove it from alliance #0)
mysql_query("UPDATE " . TBL_STAT . " SET " . ALLIANCE . " = 0 WHERE id = $delete_id");
mysql_query("UPDATE " . TBL_RANKINGS_PERSONAL . " SET " . ALLI_ID . " = 0 WHERE id = $delete_id");
}
}
function obj_test_for_kill(&$objTrgUser, &$objSrcUser)
{
global $ip;
// Minimize multi-kills - Martel December 30, 2007
// #1 Query DB for kill status (Don't use cached data) #2 Check citz
$strSQL = 'SELECT killed FROM stats WHERE id = ' . $objTrgUser->get_userid();
$arrRow = mysql_fetch_row(mysql_query($strSQL));
if ($arrRow[0] == 0 && $objTrgUser->get_pop(CITIZENS) <= 0) {
// Separate a reset tribe from a killed (1=age, 2=pk)
$objTrgUser->set_stat(KILLED, 2);
// Show kill message
$arrTrgStats = $objTrgUser->get_stats();
echo $strDiv = '<div id="textMedium">' . '<p>' . "Congratulations! You watch on as the last citizen of " . '<strong class="negative">' . stripslashes($arrTrgStats[TRIBE]) . ' (#' . $arrTrgStats[ALLIANCE] . ")</strong> dies and their empire crumbles in front of you." . '</p>' . '</div>' . '<br />';
// Update SrcUser with +1 Kill
$arrSrcStats = $objSrcUser->get_stats();
$iKilled = $arrSrcStats[KILLS] + 1;
$objSrcUser->set_stat(KILLS, $iKilled);
// Record: Largest Kill
require_once 'inc/classes/clsGame.php';
$objGame = new clsGame();
$arrRecords = $objGame->get_game_records();
$arrTrgBuilds = $objTrgUser->get_builds();
if ($arrTrgBuilds[LAND] > $arrRecords[KILLED]) {
$arrRecords = array(KILLED => $arrTrgBuilds[LAND], KILLED_ID => $objSrcUser->get_userid());
$objGame->set_game_records($arrRecords);
}
// War effects
require_once "inc/functions/war.php";
$objSrcAlliance = $objSrcUser->get_alliance();
if (checkWarBetween($objSrcAlliance, $arrTrgStats[ALLIANCE])) {
$objTrgAlliance = $objTrgUser->get_alliance();
// Update land counter in new war system March 06, 2008 Martel
$iNeeded = $objSrcAlliance->get_war('land_needed');
$objSrcAlliance->set_war('land_needed', max(0, $iNeeded - $arrTrgBuilds[LAND]));
// Wait with adding this until it is 100% sure no multi kills exist
// if (($arrGains = testWarVictory($objSrcAlliance, $objTrgAlliance)))
// {
// require_once('inc/pages/war_room2.inc.php');
// $strGains = getVictoryReport($arrGains);
// // Show war-win message
// echo $strDiv =
// '<div id="textMedium">' .
// '<p><strong class="positive">Your alliance have won the war!</strong></p>' .
// $strGains .
// '</div>' .
// '<br />';
// }
// Add war-kill to global news
$strGlobalNews = '<strong class="negative">Alliance #' . $arrSrcStats[ALLIANCE] . " has laid the final blow in " . $arrTrgStats[TRIBE] . "\\'s ORKFiA career during their war.</strong>";
mysql_query("INSERT INTO news (id, time, ip, type, duser, ouser, " . "result, text, kingdom_text, kingdoma, kingdomb) " . "VALUES ('', NOW(), '---', 'global', 0, 0, 1, '', " . "'{$strGlobalNews}', 0, '')");
// War events if a killed tribe is in the biggest half of the alli
$iLand = $arrTrgBuilds[LAND];
$arrRow1 = mysql_fetch_row(mysql_query("SELECT COUNT(id) FROM rankings_personal WHERE land > {$iLand} AND alli_id = " . $arrTrgStats[ALLIANCE]));
$arrRow2 = mysql_fetch_row(mysql_query("SELECT COUNT(id) FROM rankings_personal WHERE alli_id = " . $arrTrgStats[ALLIANCE]));
if ($arrRow1[0] * 2 < $arrRow2[0]) {
require_once "inc/functions/update.php";
//==============================================================
// Bonus for the killing alliance: MP+TP gain, army
// moved 1 hours closer to home
//==============================================================
// Since we don't seem to want a max to the mps/tps here,
// why not just add obj_mage_power_growth twice, same for
// thieves ofc - AI 25/11/2006
//==============================================================
$arrUserId = $objSrcAlliance->get_userids();
foreach ($arrUserId as $iUserid) {
check_to_update($iUserid);
$objTmpUser = new clsUser($iUserid);
$build = $objTmpUser->get_builds();
// Bonus to Thievery Credits
require_once "inc/functions/ops.php";
$bonus1 = 2 * obj_thief_op_growth($objTmpUser);
$iNewCredits = $objTmpUser->get_thievery(CREDITS);
$iNewCredits += $bonus1;
// Bonus to Spell Power
require_once "inc/functions/spells.php";
$bonus2 = 2 * obj_mage_power_growth($objTmpUser);
$iNewPower = $objTmpUser->get_spell(POWER);
$iNewPower += $bonus2;
// Update User
$objTmpUser->set_thievery(CREDITS, $iNewCredits);
$objTmpUser->set_spell(POWER, $iNewPower);
// Update Military Training 1x time (Mori thieves)
$arrTmpStats = $objTmpUser->get_stats();
if ($arrTmpStats[RACE] == "Mori Hai") {
$arrMercs = $objTmpUser->get_army_mercs();
$arrNewMercs = array(MERC_T0 => $arrMercs[MERC_T1], MERC_T1 => $arrMercs[MERC_T2], MERC_T2 => $arrMercs[MERC_T3], MERC_T3 => 0);
$objTmpUser->set_army_mercs($arrNewMercs);
}
// Update Military Training 1x time (Everybody)
$arrRets = $objTmpUser->get_milreturns();
$arrNewRets = array(UNIT1_T1 => $arrRets[UNIT1_T2], UNIT1_T2 => $arrRets[UNIT1_T3], UNIT1_T3 => $arrRets[UNIT1_T4], UNIT1_T4 => 0, UNIT2_T1 => $arrRets[UNIT2_T2], UNIT2_T2 => $arrRets[UNIT2_T3], UNIT2_T3 => $arrRets[UNIT2_T4], UNIT2_T4 => 0, UNIT3_T1 => $arrRets[UNIT3_T2], UNIT3_T2 => $arrRets[UNIT3_T3], UNIT3_T3 => $arrRets[UNIT3_T4], UNIT3_T4 => 0, UNIT4_T1 => $arrRets[UNIT4_T2], UNIT4_T2 => $arrRets[UNIT4_T3], UNIT4_T3 => $arrRets[UNIT4_T4], UNIT4_T4 => 0, UNIT5_T1 => $arrRets[UNIT5_T2], UNIT5_T2 => $arrRets[UNIT5_T3], UNIT5_T3 => $arrRets[UNIT5_T4], UNIT5_T4 => 0, UNIT6_T1 => $arrRets[UNIT6_T2], UNIT6_T2 => $arrRets[UNIT6_T3], UNIT6_T3 => $arrRets[UNIT6_T4], UNIT6_T4 => 0);
$objTmpUser->set_milreturns($arrNewRets);
// Update Tribe News
$strNews = "The death of one of our enemies has given our " . "troops courage! Armies are returning more quickly, " . "thieves are more willing to risk their lives for the " . "tribe and your mage feels extra powerful.";
mysql_query("INSERT INTO news (time, ip, type, duser, " . "ouser, result, text, kingdom_text) VALUES " . "(NOW(), '---', 'local_news', {$iUserid}, '', " . "1, '{$strNews}','')");
$objTmpUser->set_user_info(LAST_NEWS, 1);
}
// Defiance for the losing alliance, gives bonuses to off/tm-dmg
$arrUserId = $objTrgAlliance->get_userids();
foreach ($arrUserId as $iUserid) {
check_to_update($iUserid);
$objTmpUser = new clsUser($iUserid);
$objTmpUser->set_spell(DEFIANCE, 4);
$strNews = "The death of one of our big tribes has filled the " . "hearts of our people with anger! For 4 more months " . "we will strike hard at our enemies!";
mysql_query("INSERT INTO news (time, ip, type, duser, " . "ouser, result, text, kingdom_text) VALUES " . "(NOW(), '---', 'local_news', {$iUserid}, '', " . "1, '{$strNews}','')");
$objTmpUser->set_user_info(LAST_NEWS, 1);
}
}
//top half
}
//war
// Create News
$timestamp = date(TIMESTAMP_FORMAT);
$d_news = '<strong class="negative">' . $arrSrcStats[TRIBE] . " (#" . $arrSrcStats[ALLIANCE] . ") has laid the final blow in " . $arrTrgStats[TRIBE] . "\\'s ORKFiA career.</strong>";
$o_news = '<strong class="positive">Our ' . $arrSrcStats[TRIBE] . " has laid the final blow in " . $arrTrgStats[TRIBE] . " (#" . $arrTrgStats[ALLIANCE] . ")\\'s ORKFiA career.</strong>";
$strNews = "I am sorry leader, upon your return to your tribe your alliance " . "has sent this message forth to you." . "<br /><br />" . $d_news . "<br /><br />" . "They have also sent us supplies and some citizens to restart " . "our tribe." . "<br /><br />" . "Below this line is news our previous tribe had recieved:";
$strSQL = "INSERT INTO news (time, ip, type, duser, ouser, result, " . "text, kingdom_text, kingdoma, kingdomb) VALUES ('{$timestamp}', " . "'{$ip}', 'killed', {$arrTrgStats[ID]}, 0, 1, '{$strNews}', " . "'{$d_news}', '{$arrTrgStats[ALLIANCE]}', '')";
mysql_query($strSQL);
$strSQL = "INSERT INTO news (time, ip, type, duser, ouser, result, text, " . "kingdom_text, kingdoma, kingdomb) VALUES ('{$timestamp}', '{$ip}', " . "'killed', 0, 0, 1, '', '{$o_news}', '{$arrSrcStats[ALLIANCE]}', '')";
mysql_query($strSQL);
//======================================================================
// Kill the tribe
//======================================================================
require_once 'inc/staff/delete.inc.php';
doBackupTribe($objTrgUser->get_userid(), 'kill');
obj_kill_user($objTrgUser);
} else {
return;
}
}