function rem_sc_from_book($spell, $book, $login)
{
    // v has_item proveritsja
    //$spell = preg_replace ('/[^a-z0-9_\.]/i', '', $spell);
    //$book = preg_replace ('/[^a-z0-9_\.]/i', '', $book);
    //$login = preg_replace ('/[^a-z0-9_]/i', '', $login);
    include_once 'modules/f_has_item.php';
    if (!has_item($book, $login)) {
        put_g_error('у вас нету книги');
    }
    // zapros na magiju chto v knige:
    $q = do_mysql("SELECT on_take FROM items WHERE fullname = '" . $book . "' AND type = 'b';");
    if (!mysql_num_rows($q)) {
        return 0;
    }
    $magic = mysql_result($q, 0);
    if (strpos($magic, $spell) === false) {
        put_g_error('в этой книге нету этого заклинания!');
    }
    // esli prodolzhaetsja skript, znachit magija estq, izvlekem ee (snachala udalim, togda bagov skryvatq nebvudut:)
    $magic = string_drop($magic, $spell);
    // terq sozdadim:
    //include_once ('modules/f_create_item.php');
    $q = do_mysql("SELECT type FROM magic WHERE fullname = '" . $spell . "';");
    if (!mysql_num_rows($q)) {
        put_error('netu takogo zaklinanija');
    }
    $tp = mysql_result($q, 0);
    //#####$scroll = create_item ('i.s.'.$tp.'.'.$spell);
    include_once 'modules/f_gain_item.php';
    gain_item('i.s.' . $tp . '.' . $spell, 1, $login);
    // obnovim knigu i vse:
    do_mysql("UPDATE items SET on_take = '" . $magic . "' WHERE fullname = '" . $book . "';");
    return 1;
}
        $start = $num_off - $show;
    }
    // menqshe nulja bytq nemozhet
    if ($start < 0) {
        $start = 0;
    }
    // vtoroj perebor :(
    for ($i = $start; $i < $start + $show; $i++) {
        if ($i >= $num_off) {
            break;
        }
        // ssylka napisatq i udalitq
        $id = is_player($off[$i]);
        $a = do_mysql("SELECT name FROM players WHERE id_player = '" . $id . "';");
        if (!mysql_num_rows($a)) {
            $p['contacts'] = string_drop($p['contacts'], $off[$i]);
            do_mysql("UPDATE players SET contacts = '" . $p['contacts'] . "' WHERE id_player = '" . $p['id_player'] . "';");
            continue;
        }
        $cont = mysql_result($a, 0);
        $f .= '&#187;<a class="blue" href="game.php?sid=' . $sid . '&action=wls&to=' . $off[$i] . '">';
        $f .= $cont . '</a> (<a class="red" href="game.php?sid=' . $sid . '&action=delcontact&to=' . $off[$i] . '">';
        $f .= 'x</a>)<br/>';
    }
    $f .= '</p>';
}
//--
// listanie
$f .= '<div class="y" id="s1">';
if ($start > 0) {
    $f .= '<a class="blue" href="game.php?sid=' . $sid . '&action=showcontoffline&start=' . ($start - $show) . '">';
            // vybrositq
            add_journal('GAMESYS: ВАША ЗАЯВКА НА ВСТУПЛЕНИЕ В КЛАН ОТКЛОНЕНА', $to);
        }
        $q = do_mysql("SELECT newcomers FROM clans WHERE clanname = '" . $p['clan'][0] . "';");
        $ncm = mysql_result($q, 0);
        $ncm = string_drop($ncm, $to);
        do_mysql("UPDATE clans SET newcomers = '" . $ncm . "' WHERE clanname = '" . $p['clan'][0] . "';");
    }
    // prinjatie v klan
    $q = do_mysql("SELECT newcomers FROM clans WHERE clanname = '" . $p['clan'][0] . "';");
    $ncm = mysql_result($q, 0);
    $ncms = $ncm;
    $ncm = explode('|', $ncm);
    $c = count($ncm);
    for ($i = 0; $i < $c; $i++) {
        if (!$ncm[$i]) {
            continue;
        }
        $id = is_player($ncm[$i]);
        $q = do_mysql("SELECT clan FROM players WHERE id_player = '" . $id . "';");
        $clan = mysql_result($q, 0);
        if ($clan) {
            // opozdali, igrok uzhe prinjat
            string_drop($ncms, $ncm[$i]);
            continue;
        }
        // esli netu klana, pishem s vozmozhnostjami vzjatq -ne vzjatq
        $f .= '&#187;' . $ncm[$i] . ': <a class="red" href="game.php?sid=' . $sid . '&action=take_to_clan&to=' . $ncm[$i] . '&take=1">+</a> / <a class="red" href="game.php?sid=' . $sid . '&action=take_to_clan&to=' . $ncm[$i] . '&take=0">-</a><br/>';
    }
    exit_msg('заявки', $f);
}
 // berem spisok politiki
 $q = do_mysql("SELECT politics FROM clans WHERE clanname = '" . $p['clan'][0] . "';");
 $pol = mysql_result($q, 0);
 if (isset($_GET['sa'])) {
     $w = preg_replace('/[^0-1]/', '', $_GET['w']);
     $i = preg_replace('/[^0-9]/', '', $_GET['i']);
     $poll = explode('|', $pol);
     if (!isset($poll[$w])) {
         put_g_error('че?O_o');
     }
     $poll[$w] = explode('~', $poll[$w]);
     if (!isset($poll[$w][$i]) || !$poll[$w][$i]) {
         put_g_error('че?O_o');
     }
     $clan = $poll[$w][$i];
     $pol = string_drop($pol, $clan);
     if ($pol == '|') {
         $pol = '';
     }
     do_mysql("UPDATE clans SET politics = '" . $pol . "' WHERE clanname = '" . $p['clan'][0] . "';");
 } else {
     if (isset($_GET['clan'])) {
         if (is_in($_GET['clan'], $pol)) {
             put_g_error('такое имеется...');
         }
         $clan = preg_replace('/[^a-z_0-9]/i', '', $_GET['clan']);
         $q = do_mysql("SELECT clanname FROM clans WHERE clanname = '" . $clan . "';");
         if (!mysql_num_rows($q)) {
             put_g_error('несущетвует сей клан');
         }
         $a = preg_replace('/[^0-1]/', '', $_GET['alianse']);