function translationconvert_run()
{
    global $session;
    page_header("Translations Convertor Thing");
    output("Outputting all known translations, so that you can do a find-and-replace in the files themselves and we can stop doing this silly translate thing.`n`n");
    if (httpget('delete')) {
        $del = httpget('delete');
        $sql = "UPDATE " . db_prefix("translations") . " SET version='updated' WHERE tid={$del}";
        db_query($sql);
    }
    $sql = "SELECT * FROM " . db_prefix("translations") . " WHERE version='dragonbones' ORDER BY uri";
    $result = db_query($sql);
    $total = 0;
    while ($row = db_fetch_assoc($result)) {
        if ($row['intext'] != $row['outtext']) {
            $total++;
            rawoutput("<a href=\"runmodule.php?module=translationconvert&delete=" . $row['tid'] . "\">MARK</a>");
            addnav("", "runmodule.php?module=translationconvert&delete=" . $row['tid']);
            output_notl("`n`0`b%s`b:", $row['uri']);
            rawoutput("<table width=100%><tr><td width=50% border=1px solid #cccccc>" . $row['intext'] . "</td><td width=50%>" . $row['outtext'] . "</td></tr></table>");
            output_notl("`n`n");
        }
    }
    debug($total);
    addnav("Back to the Grotto", "superuser.php");
    page_footer();
}

function marriage_uninstall()
{
    require_once "modules/marriage/lovedrinks.php";
    marriage_lovedrinksrem();
    output_notl("`n`c`b`QMarriage Module - Uninstalled`0`b`c");
    return true;
}

function improbablehousing_mementos_dohook($hookname, $args)
{
    global $session;
    switch ($hookname) {
        case "improbablehousing_interior":
            $hid = $args['hid'];
            $rid = $args['rid'];
            $house = $args['house'];
            $items = get_items_with_prefs("memento_dwellingtrigger_" . $hid . "_" . $rid);
            //debug($items);
            //group the items together in case there's multiple ones
            $texts = array();
            if (is_array($items) && count($items)) {
                foreach ($items as $id => $prefs) {
                    $texts[serialize($prefs["memento_dwellingtrigger_" . $hid . "_" . $rid])] = $prefs["memento_dwellingtrigger_" . $hid . "_" . $rid];
                }
                foreach ($texts as $text) {
                    output_notl("`0%s`0`n`n", stripslashes($text));
                }
            }
            if (improbablehousing_getkeytype($house, $rid) >= 30) {
                addnav("Donator Features");
                addnav("Memento Effects", "runmodule.php?module=improbablehousing_mementos&op=start&hid={$hid}&rid={$rid}");
            }
            break;
    }
    return $args;
}

function friendlist_unignore()
{
    global $session;
    $ac = httpget('ac');
    $ignored = rexplode(get_module_pref('ignored', 'friendlist', $ac));
    $iveignored = rexplode(get_module_pref('iveignored'));
    if (in_array($ac, $iveignored)) {
        $sql = "SELECT name FROM " . db_prefix("accounts") . " WHERE acctid={$ac} AND locked=0";
        $result = db_query($sql);
        if (db_num_rows($result) > 0) {
            $row = db_fetch_assoc($result);
            $info = sprintf_translate("%s`Q has been removed from your list.", $row['name']);
            require_once "lib/systemmail.php";
            $t = array("`\$Ignore List Removal");
            $mailmessage = array("%s`0`@ has removed you from %s ignore list.", $session['user']['name'], $session['user']['sex'] ? translate_inline("her") : translate_inline("his"));
            systemmail($ac, $t, $mailmessage);
        } else {
            $info = translate_inline("That user no longer exists...");
        }
    }
    $ignored = array_diff($ignored, array($session['user']['acctid']));
    $ignored = rimplode($ignored);
    set_module_pref('ignored', $ignored, 'friendlist', $ac);
    if (in_array($ac, $iveignored)) {
        $iveignored = array_diff($iveignored, array($ac));
        $iveignored = rimplode($iveignored);
        set_module_pref('iveignored', $iveignored);
    }
    output_notl($info);
}

function sethsong_run()
{
    $op = httpget('op');
    $visits = get_module_setting("visits");
    $been = get_module_pref("been");
    $iname = getsetting("innname", LOCATION_INN);
    tlschema("inn");
    page_header($iname);
    rawoutput("<span style='color: #9900FF'>");
    output_notl("`c`b");
    output($iname);
    output_notl("`b`c");
    tlschema();
    // Short circuit out if we've heard enough
    if ($been >= $visits) {
        output("%s`0 clears his throat and drinks some water.", getsetting("bard", "`^Seth"));
        output("\"I'm sorry, my throat is just too dry.\"");
    } else {
        sethsong_sing();
    }
    addnav("Where to?");
    addnav("I?Return to the Inn", "inn.php");
    villagenav();
    rawoutput("</span>");
    page_footer();
}

function avatar_showimages($set)
{
    $races = modulehook("racenames");
    rawoutput("<table cellpadding='0' cellspacing='0' border='0' bgcolor='#999999'>");
    $r = translate_inline("Race");
    $m = translate_inline("Male Image");
    $f = translate_inline("Female Image");
    rawoutput("<tr class='trhead'><th>{$r}</th><th>{$m}</th><th>{$f}</th></tr>");
    $i = 0;
    foreach ($races as $key => $race) {
        $r = strtolower($race);
        $imm = avatar_getimage($r, "male", $set);
        $imf = avatar_getimage($r, "female", $set);
        rawoutput("<tr class='" . ($i % 2 ? "trlight" : "trdark") . "'>");
        rawoutput("<th>");
        output_notl('`^');
        output($race);
        output_notl("`0");
        rawoutput("</th><td>");
        rawoutput($imm);
        rawoutput("</td><td>");
        rawoutput($imf);
        rawoutput("</td>");
        rawoutput("</tr>");
        $i++;
    }
    rawoutput("</table>");
}

function monsterkills_run()
{
    page_header("Most Monster Kills");
    $acc = db_prefix("accounts");
    $mp = db_prefix("module_userprefs");
    $sql = "SELECT {$acc}.name AS name,\r\n\t\t{$acc}.acctid AS acctid,\r\n\t\t{$mp}.value AS kills,\r\n\t\t{$mp}.userid FROM {$mp} INNER JOIN {$acc}\r\n\t\tON {$acc}.acctid = {$mp}.userid \r\n\t\tWHERE {$mp}.modulename = 'monsterkills' \r\n\t\tAND {$mp}.setting = 'kills' \r\n\t\tAND {$mp}.value > 0 ORDER BY ({$mp}.value+0)\t\r\n\t\tDESC limit " . get_module_setting("list") . "";
    $result = db_query($sql);
    $rank = translate_inline("Kills");
    $name = translate_inline("Name");
    output("`n`b`c`@Most`\$ Monster `@Kills`n`n`c`b");
    rawoutput("<table border='0' cellpadding='2' cellspacing='1' align='center'>");
    rawoutput("<tr class='trhead'><td align=center>{$name}</td><td align=center>{$rank}</td></tr>");
    for ($i = 0; $i < db_num_rows($result); $i++) {
        $row = db_fetch_assoc($result);
        if ($row['name'] == $session['user']['name']) {
            rawoutput("<tr class='trhilight'><td>");
        } else {
            rawoutput("<tr class='" . ($i % 2 ? "trdark" : "trlight") . "'><td align=left>");
        }
        output_notl("%s", $row['name']);
        rawoutput("</td><td align=right>");
        output_notl("%s", $row['kills']);
        rawoutput("</td></tr>");
    }
    rawoutput("</table>");
    addnav("Back to HoF", "hof.php");
    villagenav();
    page_footer();
}

function friendlist_search()
{
    global $session;
    $n = httppost("n");
    rawoutput("<form action='runmodule.php?module=friendlist&op=search' method='POST'>");
    addnav("", "runmodule.php?module=friendlist&op=search");
    if ($n != "") {
        $string = "%";
        for ($x = 0; $x < strlen($n); $x++) {
            $string .= substr($n, $x, 1) . "%";
        }
        $sql = "SELECT name,dragonkills,acctid FROM " . db_prefix("accounts") . " WHERE name LIKE '%{$string}%' AND acctid<>" . $session['user']['acctid'] . " AND locked=0 ORDER BY level,dragonkills";
        $result = db_query($sql);
        if (db_num_rows($result) > 0) {
            $ignored = rexplode(get_module_pref('ignored'));
            $friends = rexplode(get_module_pref('friends'));
            $request = rexplode(get_module_pref('request'));
            $iveignored = rexplode(get_module_pref('iveignored'));
            output("`@These users were found:`n");
            rawoutput("<table style='width:60%;text-align:center;' cellpadding='3' cellspacing='0' border='0'>");
            rawoutput("<tr class='trhead'><td>" . translate_inline("Name") . "</td><td>" . translate_inline("Operations") . "</td></tr>");
            for ($i = 0; $i < db_num_rows($result); $i++) {
                $row = db_fetch_assoc($result);
                rawoutput("<tr class='" . ($i % 2 ? "trlight" : "trdark") . "'><td>");
                output_notl($row['name']);
                rawoutput("</td><td>");
                if (in_array($row['acctid'], $ignored)) {
                    $info = translate_inline("This user has ignored you.");
                    $info .= " [<a href='runmodule.php?module=friendlist&op=ignore&ac=" . $row['acctid'] . "' class='colDkGreen'>" . translate_inline("Ignore") . "</a>]";
                    addnav("", "runmodule.php?module=friendlist&op=ignore&ac=" . $row['acctid']);
                } elseif (in_array($row['acctid'], $friends)) {
                    $info = translate_inline("This user is already in your list.");
                } elseif (in_array($row['acctid'], $request)) {
                    $info = translate_inline("This user has already requested to you.");
                } else {
                    if (in_array($row['acctid'], $iveignored)) {
                        $info = "[<a href='runmodule.php?module=friendlist&op=unignore&ac=" . $row['acctid'] . "' class='colLtRed'>" . translate_inline("Unignore") . "</a>]";
                        addnav("", "runmodule.php?module=friendlist&op=unignore&ac=" . $row['acctid']);
                    } else {
                        $info = "[<a href='runmodule.php?module=friendlist&op=ignore&ac=" . $row['acctid'] . "' class='colDkGreen'>" . translate_inline("Ignore") . "</a>]";
                        addnav("", "runmodule.php?module=friendlist&op=ignore&ac=" . $row['acctid']);
                        $info .= " - [<a href='runmodule.php?module=friendlist&op=request&ac=" . $row['acctid'] . "' class='colDkGreen'>" . translate_inline("Request") . "</a>]";
                        addnav("", "runmodule.php?module=friendlist&op=request&ac=" . $row['acctid']);
                    }
                }
                rawoutput("{$info}</td></tr>");
            }
            rawoutput("</table>");
        } else {
            output("`c`@`bA user was not found with that name.`b`c");
        }
        output_notl("`n");
    }
    output("`^`b`cFriend Search...`c`b");
    output("`n`nWho do you want to search for?");
    output("`n`nName of user: ");
    rawoutput("<input name='n' maxlength='50' value=\"" . htmlentities(stripslashes(httppost('n'))) . "\">");
    $apply = translate_inline("Search");
    rawoutput("<input type='submit' class='button' value='{$apply}'></form>");
}

function translationwizard_uninstall()
{
    output_notl("Performing Uninstall on Translation Wizard. Thank you for using!`n`n");
    if (db_table_exists(db_prefix("temp_translations"))) {
        db_query("DROP TABLE " . db_prefix("temp_translations"));
    }
    return true;
}

function improbablehousing_secretrooms_dohook($hookname, $args)
{
    global $session;
    switch ($hookname) {
        case "commentarycommand":
            if (!httpget("hid")) {
                break;
            } else {
                require_once "modules/improbablehousing/lib/lib.php";
                $hid = httpget("hid");
                $rid = httpget("rid");
                $house = improbablehousing_gethousedata(httpget("hid"));
                $secrets = array();
                foreach ($house['data']['rooms'] as $rkey => $rvals) {
                    if ($rkey != $rid) {
                        if ($rvals['enterfrom'] == $rid && $rvals['hidden']) {
                            $secrets[$rkey] = $rvals;
                        } else {
                            if ($rkey == $house['data']['rooms'][$rid]['enterfrom']) {
                                $secrets[$rkey] = $rvals;
                            }
                        }
                    }
                }
                if (count($secrets)) {
                    foreach ($secrets as $rkey => $rvals) {
                        if (count($rvals['triggers'])) {
                            foreach ($rvals['triggers'] as $trigger) {
                                if ($args['command'] == $trigger) {
                                    $args['processed'] = 1;
                                    if (improbablehousing_canenter_room($house, $rkey)) {
                                        redirect("runmodule.php?module=improbablehousing&op=interior&hid={$hid}&rid={$rkey}");
                                    } else {
                                        output_notl("%s`n`n", $rvals['lockreject']);
                                    }
                                }
                            }
                        }
                    }
                }
            }
            break;
        case "improbablehousing_interior":
            $hid = $args['hid'];
            $rid = $args['rid'];
            $house = $args['house'];
            if (improbablehousing_getkeytype($house, $rid) == 100) {
                addnav("Donator Features");
                addnav("Build a Secret Room", "runmodule.php?module=improbablehousing_secretrooms&op=start&hid={$hid}&rid={$rid}");
                if ($house['data']['rooms'][$rid]['hidden']) {
                    addnav("Secret Room Features");
                    addnav("Manage this room's trigger phrases", "runmodule.php?module=improbablehousing_secretrooms&op=manage&hid={$hid}&rid={$rid}");
                }
            }
            break;
    }
    return $args;
}

function tip()
{
    global $tipid;
    $tip = translate_inline("Tip");
    output_notl("<div style='cursor: pointer; cursor: hand; display: inline;' onMouseOver=\"tip{$tipid}.style.visibility='visible'; tip{$tipid}.style.display='inline';\" onMouseOut=\"tip{$tipid}.style.visibility='hidden'; tip{$tipid}.style.display='none';\">`i[ `b{$tip}`b ]`i", true);
    rawoutput("<div class='debug' id='tip{$tipid}' style='position: absolute; width: 200px; max-width: 200px; float: right;'>");
    $args = func_get_args();
    call_user_func_array("output", $args);
    rawoutput("</div></div>");
    rawoutput("<script language='JavaScript'>var tip{$tipid} = document.getElementById('tip{$tipid}'); tip{$tipid}.style.visibility='hidden'; tip{$tipid}.style.display='none';</script>");
    $tipid++;
}

function clancommentaryoverview_run()
{
    page_header("Clan Commentary Overview");
    $numcomments = get_module_setting("numcomments");
    require_once "lib/superusernav.php";
    superusernav();
    addnav("C?Commentary Overview", "moderate.php");
    addnav("Clan Halls");
    $sql = "SELECT clanid, clanname, clanshort FROM " . db_prefix("clans") . " ORDER BY clanid";
    $res = db_query($sql);
    // since these are proper names, they shouldn't be translated
    tlschema("notranslate");
    while ($row = db_fetch_assoc($res)) {
        addnav(array("<%s> %s", $row['clanshort'], $row['clanname']), "moderate.php?area=clan-{$row['clanid']}");
    }
    tlschema();
    $sql = "SELECT clanid, clanname FROM " . db_prefix("clans") . " ORDER BY clanid";
    $res = db_query($sql);
    $firstclan = 1;
    while ($clan = db_fetch_assoc($res)) {
        $cid = $clan['clanid'];
        $csql = "SELECT * FROM " . db_prefix("commentary") . " WHERE section='clan-" . $cid . "' ORDER BY postdate DESC LIMIT " . $numcomments;
        $cres = db_query($csql);
        if (db_num_rows($cres) > 0) {
            if ($firstclan == 1) {
                $firstclan = 0;
                addnav("", "runmodule.php?module=clancommentaryoverview");
                $buttonrefresh = translate_inline("Refresh");
                rawoutput("<form action='runmodule.php?module=clancommentaryoverview' method='post'>");
                rawoutput("<input type='submit' class='button' value='{$buttonrefresh}'>");
                rawoutput("</form>");
            }
            rawoutput("<hr>");
            $cname = $clan['clanname'];
            addnav("", "moderate.php?area=clan-" . $cid);
            rawoutput("<a href='moderate.php?area=clan-" . $cid . "'>");
            output_notl("`b`^%s`b`0", $cname);
            rawoutput("</a>");
            output_notl("`n");
            $carray = array();
            while ($ccomment = db_fetch_assoc($cres)) {
                array_push($carray, $ccomment);
            }
            while ($ccomment = array_pop($carray)) {
                clancommentaryoverview_displaycomment($ccomment);
            }
        }
    }
    page_footer();
}

function medals_award_medal($sname, $vname, $desc, $icon, $awardtext = false, $acctid = false)
{
    global $session;
    if (!$acctid) {
        $acctid = $session['user']['acctid'];
    }
    $ach = array("name" => $vname, "desc" => $desc, "icon" => $icon);
    $info = unserialize(get_module_pref("medals", "medals"));
    if (!isset($info[$sname])) {
        $info[$sname] = $ach;
        if ($awardtext) {
            output_notl("`n%s`n`n", $awardtext);
        }
        set_module_pref("medals", serialize($info), "medals", $acctid);
    }
}

function colourtest_run()
{
    global $session;
    $teststring = "ABCDEFGHIJKLMNOPQRSTUVWXYZ abcdefghijklmnopqrstuvwxyz 1234567890 !@#\$%%^&*()`n";
    $colours = array("1" => "colDkBlue", "2" => "colDkGreen", "3" => "colDkCyan", "4" => "colDkRed", "5" => "colDkMagenta", "6" => "colDkYellow", "7" => "colDkWhite", "~" => "colBlack", "!" => "colLtBlue", "@" => "colLtGreen", "#" => "colLtCyan", "\$" => "colLtRed", "%%" => "colLtMagenta", "^" => "colLtYellow", "&" => "colLtWhite", ")" => "colLtBlack", "e" => "colDkRust", "E" => "colLtRust", "g" => "colXLtGreen", "G" => "colXLtGreen", "j" => "colMdGrey", "J" => "colMdBlue", "k" => "colaquamarine", "K" => "coldarkseagreen", "l" => "colDkLinkBlue", "L" => "colLtLinkBlue", "m" => "colwheat", "M" => "coltan", "p" => "collightsalmon", "P" => "colsalmon", "q" => "colDkOrange", "Q" => "colLtOrange", "R" => "colRose", "T" => "colDkBrown", "t" => "colLtBrown", "V" => "colBlueViolet", "v" => "coliceviolet", "x" => "colburlywood", "X" => "colbeige", "y" => "colkhaki", "Y" => "coldarkkhaki");
    page_header("Colour Test");
    output("`b`cPlease ensure that your monitor is correctly calibrated before making any changes to your templates.`b  It also helps a lot to have a friend do this with you - people's eyes are very different.`c`n`n");
    rawoutput("An excellent resource for monitor calibration, including test images and tutorials, can be found <a href=\"http://www.normankoren.com/makingfineprints1A.html\"> here.</a>");
    output("`n`n`0We are now testing each colour, to see how it looks against the background for this template.`n`nMake sure that each colour is clear and easily-readable.  It's a good idea to test on a variety of monitors, both CRT and LCD, at different colour depths and resolutions, and in different ambient light.  The ColorZilla and FireBug extensions for FireFox are invaluable for determining appropriate colours.`n`n");
    foreach ($colours as $code => $colour) {
        output_notl("`0CCode " . $code . ", CSS code " . $colour . ": `" . $code . "" . $teststring);
    }
    addnav("Back to the Superuser grotto", "superuser.php");
    addnav("Reload this page", "runmodule.php?module=colourtest");
    page_footer();
}

function jeweler_dohook($hookname, $args)
{
    global $session;
    switch ($hookname) {
        case "village":
            tlschema($args['schemas']['marketnav']);
            addnav($args['marketnav']);
            tlschema();
            addnav("Oliver's Jewelry", "runmodule.php?module=jeweler");
            break;
        case "biostat":
            $choker = get_module_pref("chokerheld", false, $args['acctid']);
            $amulet = get_module_pref("amuletheld", false, $args['acctid']);
            $necklace = get_module_pref("necklaceheld", false, $args['acctid']);
            $bracelet = get_module_pref("braceletheld", false, $args['acctid']);
            $ring = get_module_pref("ringheld", false, $args['acctid']);
            if ($choker || $amulet || $necklace || $bracelet || $ring) {
                output("`^Jewelry: ");
                $displayed = 0;
                $displaystring = "";
                $chokertext = translate_inline("Choker");
                $amulettext = translate_inline("Amulet");
                $necklacetext = translate_inline("Necklace");
                $bracelettext = translate_inline("Bracelet");
                $ringtext = translate_inline("Ring");
                if ($choker) {
                    $displaystring = $chokertext;
                    $displayed++;
                }
                if ($amulet) {
                    $displaystring = sprintf("%s%s%s", $displaystring, $displayed++ ? ", " : "", $amulettext);
                }
                if ($necklace) {
                    $displaystring = sprintf("%s%s%s", $displaystring, $displayed++ ? ", " : "", $necklacetext);
                }
                if ($bracelet) {
                    $displaystring = sprintf("%s%s%s", $displaystring, $displayed++ ? ", " : "", $bracelettext);
                }
                if ($ring) {
                    $displaystring = sprintf("%s%s%s", $displaystring, $displayed++ ? ", " : "", $ringtext);
                }
                output_notl("`@%s`n", $displaystring);
            }
            break;
    }
    return $args;
}

function checkday(bool $force = true) : bool
{
    global $session, $revertsession, $REQUEST_URI;
    output_notl('<!--checkday()-->', true);
    if (is_new_day()) {
        if ($force && $session['user']['loggedin']) {
            $session = $revertsession;
            $session['user']['restorepage'] = $REQUEST_URI;
            $session['allowednavs'] = [];
            addnav('', 'newday.php');
            redirect('newday.php');
        }
        return true;
    } else {
        return false;
    }
}

function iitems_superuser_item_menu()
{
    output("Select an item to edit, or create a new item.`n");
    massinvalidate("iitems");
    $sql = "SELECT id,localname,data FROM " . db_prefix("iitems");
    $result = db_query($sql);
    $allitems = array();
    $allkeys = array();
    $colcount = 0;
    for ($i = 0; $i < db_num_rows($result); $i++) {
        $row = db_fetch_assoc($result);
        $item = unserialize($row['data']);
        $item['id'] = $row['id'];
        $allitems[$row['localname']] = $item;
        if (count($item) > $colcount) {
            $colcount = count($item);
        }
        foreach ($item as $key => $val) {
            $allkeys[$key] = 1;
        }
    }
    rawoutput("<table width=100% cellpadding=1 cellspacing=1 border=1><tr><td>Actions</td>");
    foreach ($allkeys as $key => $val) {
        rawoutput("<td>" . $key . "</td>");
    }
    rawoutput("</tr>");
    foreach ($allitems as $itemid => $vals) {
        rawoutput("<tr><td><a href=\"runmodule.php?module=iitems&op=superuser&superop=edit&id=" . $vals['id'] . "\">" . $vals['verbosename'] . " (" . $itemid . ")</a> (<a href=\"runmodule.php?module=iitems&op=superuser&superop=give&id=" . $itemid . "\">Give</a>) (<a href=\"runmodule.php?module=iitems&op=superuser&superop=delete&id=" . $vals['id'] . "\">Delete</a>) (<a href=\"runmodule.php?module=iitems&op=superuser&superop=copy&id=" . $vals['id'] . "\">Copy</a>)<br />");
        addnav("", "runmodule.php?module=iitems&op=superuser&superop=edit&id=" . $vals['id']);
        addnav("", "runmodule.php?module=iitems&op=superuser&superop=delete&id=" . $vals['id']);
        addnav("", "runmodule.php?module=iitems&op=superuser&superop=copy&id=" . $vals['id']);
        addnav("", "runmodule.php?module=iitems&op=superuser&superop=give&id=" . $itemid);
        foreach ($allkeys as $key => $val) {
            rawoutput("<td>");
            if ($key == "image") {
                rawoutput("<img src=\"images/iitems/" . $vals['image'] . "\">");
            } else {
                output_notl("%s", $allitems[$itemid][$key]);
            }
            rawoutput("</td>");
        }
        rawoutput("</tr>");
    }
    rawoutput("</table>");
}

function friendlist_faq()
{
    $c = translate_inline("Return to the Contents");
    output_notl("`#<strong><center><a href='petition.php?op=faq'>{$c}</a></center></strong>`0", true);
    addnav("", "petition.php?op=faq");
    rawoutput("<hr>");
    output("`c`&`bQuestions about Friend Lists`b`c`n");
    output("`^1. Where is it?`n");
    output("`@Just click the link at the top of the mail page.`n`n");
    output("`^2. What is it for?`n");
    output("`@You can send requests to add someone to both of your lists.`nIf the other user accepts, you will be able to see their status, location, and whether or not they are logged in.`n`n");
    output("`^3. Anything else?`n");
    output("`@You can ignore players that harass you, to prevent them from sending you mail.`nYou can ignore Admin, however their mails will still come through.`n`n");
    if (get_module_setting('allowStat')) {
        output("`^4. Sure that's it?`n");
        output("`@Oh, I forgot!;) You can turn on a preference to see how many of your friends are online.");
    }
    rawoutput("<hr>");
    output_notl("`#<strong><center><a href='petition.php?op=faq'>{$c}</a></center></strong>`0", true);
}

function friendlist_deny()
{
    global $session;
    $ignored = rexplode(get_module_pref('ignored'));
    $friends = rexplode(get_module_pref('friends'));
    $request = rexplode(get_module_pref('request'));
    $ac = httpget('ac');
    $sql = "SELECT name FROM " . db_prefix("accounts") . " WHERE acctid={$ac} AND locked=0";
    $result = db_query($sql);
    if (in_array($ac, $friends)) {
        $info = translate_inline("That user has been removed.");
        require_once "lib/systemmail.php";
        $t = "`\$Friend List Removal";
        $mailmessage = array("%s`0`@ has deleted you from %s Friend List.", $session['user']['name'], $session['user']['sex'] ? translate_inline("her") : translate_inline("his"));
        $friends = array_diff($friends, array($ac));
        $friends = rimplode($friends);
        set_module_pref('friends', $friends);
        $act = $session['user']['acctid'];
        $friends = rexplode(get_module_pref('friends', 'friendlist', $ac));
        $friends = array_diff($friends, array($act));
        $friends = rimplode($friends);
        set_module_pref('friends', $friends, 'friendlist', $ac);
        invalidatedatacache("friendliststat-" . $session['user']['acctid']);
        invalidatedatacache("friendliststat-" . $ac);
    } else {
        $info = translate_inline("That user has been denied.");
        require_once "lib/systemmail.php";
        $t = "`\$Friend Request Denied";
        $mailmessage = array("%s`0`@ has denied you your Friend Request.", $session['user']['name']);
        $request = array_diff($request, array($ac));
        $request = rimplode($request);
        set_module_pref('request', $request);
    }
    if (db_num_rows($result) > 0) {
        systemmail($ac, $t, $mailmessage);
        $row = db_fetch_assoc($result);
        $info = sprintf_translate("%s has been removed", $row['name']);
    }
    output_notl($info);
}

function friendlist_accept()
{
    global $session;
    $ignored = rexplode(get_module_pref('ignored'));
    $request = rexplode(get_module_pref('request'));
    $friends = rexplode(get_module_pref('friends'));
    $ac = httpget('ac');
    if (in_array($ac, $ignored)) {
        $info = translate_inline("This user has ignored you.");
    } elseif (in_array($ac, $friends)) {
        $info = translate_inline("This user is already in your list.");
    } elseif (in_array($ac, $request)) {
        $sql = "SELECT name FROM " . db_prefix("accounts") . " WHERE acctid={$ac} AND locked=0";
        $result = db_query($sql);
        if (db_num_rows($result) > 0) {
            $row = db_fetch_assoc($result);
            invalidatedatacache("friendliststat-" . $session['user']['acctid']);
            invalidatedatacache("friendliststat-" . $ac);
            $friends[] = $ac;
            $info = sprintf_translate("%s`Q has been added to your list.", $row['name']);
            require_once "lib/systemmail.php";
            $t = "`\$Friend Request Accepted";
            $mailmessage = array("%s`0`@ has accepted your Friend Request.", $session['user']['name']);
            systemmail($ac, $t, $mailmessage);
            $friends = rimplode($friends);
            set_module_pref('friends', $friends);
            $friends = rexplode(get_module_pref('friends', 'friendlist', $ac));
            $friends[] = $session['user']['acctid'];
            $friends = rimplode($friends);
            set_module_pref('friends', $friends, 'friendlist', $ac);
            $request = array_diff($request, array($ac));
            $request = rimplode($request);
            set_module_pref('request', $request);
        } else {
            $info = translate_inline("That user no longer exists...");
        }
    }
    output_notl($info);
}