function find_end($ret, $start, $a, $b)
{
$posa = strpos($ret, $start);
$posb = strpos($ret, '}', $posa);
$temp = subtopos($ret, $posa, $posb);
$nbop = substr_count($temp, '{');
for ($i = 1; $i < $nbop; $i++) {
$posb = strpos($ret, '}', $posb + 1);
$temp = subtopos($ret, $posa, $posb);
$nbop = substr_count($temp, '{');
}
return subtopos($ret, $posa, $posb + 1);
}
function piegemedia($v)
{
$pos = strpos($v, "flv");
$end = "flv";
if ($pos === false) {
$pos = strpos($v, "FLV");
$end = "FLV";
}
if ($pos === false) {
$pos = strpos($v, ".mp3");
$end = ".mp3";
}
if ($pos === false) {
$pos = strpos($v, ".mp4");
$end = ".mp4";
}
if ($pos !== false) {
$deb = strrpos(substr($v, 0, $pos), "http");
if ($deb === false) {
$deb = strrpos(substr($v, 0, $pos), "=");
}
if ($deb !== false) {
$bal = subtopos($v, $deb, $pos);
}
}
if ($bal) {
return "\n" . '[' . $bal . $end . ']' . "\n";
}
}
function nbp($id, $read)
{
$t = lkc('popbt', urlread($read) . '#nb' . $id . '" name="#nh' . $id, $id);
$d = sql('msg', 'qdm', 'v', 'id="' . $read . '"');
$pos = strpos($d, '[' . $id . ':nb]');
$posb = strpos($d, '[' . ($id + 1) . ':nb]');
if ($posb === false) {
$posb = strpos($d, "\n", $pos);
}
$ret = subtopos($d, $pos, $posb);
$ret = str_replace('[' . $id . ':nb]', "", $ret);
if (!is_numeric(substr($ret, 0, 1))) {
$ret = substr($ret, 1);
}
if (!is_numeric(substr($ret, -1))) {
$ret = substr($ret, 0, -1);
}
return divc('tab justy', $t . format_txt($ret, 3, $id));
}