Ejemplo n.º 1
0
function heal($healer, $patient, $cost)
{
    //$healer = preg_replace ('/[^a-z0-9_\.]/i', '', $healer);
    //$patient = preg_replace ('/[^a-z0-9_]/i', '', $patient);
    $cost = preg_replace('/[^0-9]/', '', $cost);
    $id = is_player($patient);
    $nid = is_npc($healer);
    $q = do_mysql("SELECT location, money, life, status1 FROM players WHERE id_player = '" . $id . "';");
    $p = mysql_fetch_assoc($q);
    $q = do_mysql("SELECT location FROM npc WHERE id_npc = '" . $nid . "';");
    $loc = mysql_result($q, 0);
    if ($p['location'] != $loc) {
        return 0;
    }
    $p['life'] = explode('|', $p['life']);
    if ($p['life'][0] == $p['life'][1]) {
        exit_msg('целительство', 'вы итак полностью здоровы!');
    }
    $price = ceil(($p['life'][1] - $p['life'][0]) / 100) * $cost;
    if ($p['money'] < $price) {
        exit_msg('целительство', 'у вас нехватает денег, надо ' . $price . ' серебра!');
    }
    $p['money'] -= $price;
    $nlife = $p['life'][1] . '|' . $p['life'][1];
    $p['status1'][2] = 0;
    $p['status1'][3] = 0;
    $p['status1'][4] = 0;
    do_mysql("UPDATE players SET money = '" . $p['money'] . "', life = '" . $nlife . "', status1 = '" . $p['status1'] . "' WHERE id_player = '" . $id . "';");
    exit_msg('целительство', 'вы выздоровили! цена: ' . $price . ' серебра.');
}
function healer_stop_b($healer, $patient, $cost)
{
    //$healer = preg_replace ('/[^a-z0-9_\.]/i', '', $healer);
    //$patient = preg_replace ('/[^a-z0-9_]/i', '', $patient);
    $cost = preg_replace('/[^0-9]/', '', $cost);
    $id = is_player($patient);
    $nid = is_npc($healer);
    $q = do_mysql("SELECT location, money, status1 FROM players WHERE id_player = '" . $id . "';");
    $p = mysql_fetch_assoc($q);
    $q = do_mysql("SELECT location FROM npc WHERE id_npc = '" . $nid . "';");
    $loc = mysql_result($q, 0);
    if ($p['location'] != $loc) {
        return 0;
    }
    if (!$p['status1'][2] && !$p['status1'][3] && !$p['status1'][4]) {
        exit_msg('целительство', 'вы итак полностью здоровы!');
    }
    $price = $cost;
    if ($p['money'] < $price) {
        exit_msg('целительство', 'у вас нехватает денег, надо ' . $price . ' серебра!');
    }
    $p['money'] -= $price;
    $p['status1'][2] = 0;
    $p['status1'][3] = 0;
    $p['status1'][4] = 0;
    do_mysql("UPDATE players SET money = '" . $p['money'] . "', status1 = '" . $p['status1'] . "' WHERE id_player = '" . $id . "';");
    exit_msg('целительство', 'вaши раны залечены! цена: ' . $price . ' серебра.');
}
Ejemplo n.º 3
0
function is_inloc($login, $who)
{
    //$login = mysql_real_escape_string ($login);
    //$who = mysql_real_escape_string ($who);
    // lokacija igroka
    $id = is_player($login);
    if ($id) {
        $q = do_mysql("SELECT location FROM players WHERE id_player = '" . $id . "';");
    } else {
        $q = do_mysql("SELECT location FROM npc WHERE id_npc = '" . is_npc($login) . "';");
    }
    if (!mysql_num_rows($q)) {
        return 0;
    }
    $loc = mysql_result($q, 0);
    $id = is_player($who);
    if ($id) {
        $q = do_mysql("SELECT location FROM players WHERE id_player = '" . $id . "';");
    } else {
        $q = do_mysql("SELECT location FROM npc WHERE id_npc = '" . is_npc($who) . "';");
    }
    if (!mysql_num_rows($q)) {
        return 0;
    }
    $loc2 = mysql_result($q, 0);
    if ($loc == $loc2) {
        return 1;
    }
    return 0;
}
function get_affected($name)
{
    //$name = preg_replace ('/[^a-z\._0-9]/i', '', $name);
    // pokachto tolqko chelam:
    $id = is_player($name);
    if ($id) {
        $q = do_mysql("SELECT affected FROM players WHERE id_player = '" . $id . "';");
        $a = mysql_result($q, 0);
    } else {
        $id = is_npc($name);
        if (!$id) {
            return 0;
        }
        $q = do_mysql("SELECT affected FROM npc WHERE id_npc = '" . $id . "';");
        if (!mysql_num_rows($q)) {
            return 0;
        }
        $a = mysql_result($q, 0);
    }
    if (!$a) {
        return 0;
    }
    $a = explode('|', $a);
    $c = count($a);
    for ($i = 0; $i < $c; $i++) {
        $a[$i] = explode(':', $a[$i]);
        $arr[] = $a[$i][0];
    }
    return $arr;
}
function teach_magic_from_sc($scroll, $npc, $login)
{
    //$scroll = preg_replace ('/[^a-z0-9_\.]/i', '', $scroll);
    //$npc = preg_replace ('/[^a-z0-9_\.]/i', '', $npc);
    //$login = preg_replace ('/[^a-z0-9_]/i', '', $login);
    $nid = is_npc($npc);
    $id = is_player($login);
    // v odnoj li lokacii
    $q = do_mysql("SELECT location FROM npc WHERE id_npc = '" . $nid . "';");
    if (!mysql_num_rows($q)) {
        return 0;
    }
    $loc1 = mysql_result($q, 0);
    $q = do_mysql("SELECT location FROM players WHERE id_player = '" . $id . "';");
    if (!mysql_num_rows($q)) {
        return 0;
    }
    $loc2 = mysql_result($q, 0);
    if ($loc1 != $loc2) {
        return 0;
    }
    include_once 'modules/f_has_item.php';
    if (!has_item($scroll, $login)) {
        put_g_error('у вас нету свитка!');
    }
    $q = do_mysql("SELECT on_take, price FROM items WHERE fullname = '" . $scroll . "' AND type = 's';");
    if (!mysql_num_rows($q)) {
        return 0;
    }
    $spell = mysql_fetch_assoc($q);
    // neumeet li on uzhe
    include_once 'modules/f_has_magic.php';
    if (has_magic($spell['on_take'], $login)) {
        put_g_error('вы уже умеете это заклинание!');
    }
    // cenu vyschitaem:
    $q = do_mysql("SELECT money FROM players WHERE id_player = '" . $id . "';");
    $money = mysql_result($q, 0);
    $cost = $spell['price'] * 10;
    if ($money < $cost) {
        put_g_error('нехватает серебра, нужно ' . $cost . ' серебреных!');
    }
    $money -= $cost;
    // dobavljaem zakl:
    $q = do_mysql("SELECT magic FROM players WHERE id_player = '" . $id . "';");
    $magic = mysql_result($q, 0);
    if (!$magic) {
        $magic = $spell['on_take'];
    } else {
        $magic .= '|' . $spell['on_take'];
    }
    // obnovim dannye:
    do_mysql("UPDATE players SET magic = '" . $magic . "', money = '" . $money . "' WHERE id_player = '" . $id . "';");
    // udaljaem svitok
    include_once 'modules/f_delete_item.php';
    delete_item($scroll);
    $q = do_mysql("SELECT name FROM magic WHERE fullname = '" . $spell['on_take'] . "';");
    $name = mysql_result($q, 0);
    exit_msg('магия', 'вы выучили заклинание ' . $name . ' за ' . $cost . ' серебреных!');
}
function has_npc_quest($npc)
{
    $id = is_npc($npc);
    $q = do_mysql("SELECT quest FROM npc WHERE id_npc = '" . $id . "';");
    $quest = mysql_result($q, 0);
    if ($quest) {
        return 1;
    } else {
        return 0;
    }
}
function end_battle($who)
{
    $id = is_player($who);
    if ($id) {
        do_mysql("UPDATE players SET in_battle = '0' WHERE id_player = '" . $id . "';");
    } else {
        $id = is_npc($who);
        do_mysql("UPDATE npc SET in_battle = '0' WHERE id_npc = '" . $id . "';");
    }
    return 1;
}
Ejemplo n.º 8
0
function block($to)
{
    $id = is_player($to);
    if ($id) {
        $q = do_mysql("SELECT name, location FROM players WHERE id_player = '" . $id . "';");
        $p = mysql_fetch_assoc($q);
        add_journal($p['name'] . ' блокировал!', 'l.' . $p['location']);
    } else {
        $id = is_npc($to);
        $q = do_mysql("SELECT name, location FROM npc WHERE id_npc = '" . $id . "';");
        $n = mysql_fetch_assoc($q);
        add_journal($n['name'] . ' блокировал!', 'l.' . $n['location']);
    }
    return 1;
}
function add_to_loc($loc, $who)
{
    // proverka dannyh
    //$who = preg_replace ('/[^a-z\._0-9]/i', '', $who);
    //$loc = preg_replace ('/[^a-z0-9\|]/i', '', $loc);
    if (is_npc($who)) {
        // vpishem npc
        $map = substr($loc, 0, 4);
        do_mysql("UPDATE npc SET location = '" . $loc . "', map = '" . $map . "' WHERE fullname = '" . $who . "';");
    } else {
        $log = substr($who, 0, 2);
        // vpishem igroka
        do_mysql("UPDATE players SET location = '" . $loc . "' WHERE login = '******';");
    }
    return 1;
}
function get_npc_battle_har($npc)
{
    //$npc = preg_replace ('/[^a-z\._0-9]/i', '', $npc);
    $id = is_npc($npc);
    $q = do_mysql("SELECT chanse FROM npc WHERE id_npc = '" . $id . "';");
    if (!mysql_num_rows($q)) {
        include 'modules/s_main.php';
    }
    $c = mysql_result($q, 0);
    $c = explode('~', $c);
    include_once 'modules/f_get_affected.php';
    $aff = get_affected($npc);
    if (is_in('osleplen', $aff)) {
        for ($i = 0; $i < 10; $i++) {
            $с[$i] = round($с[$i] / 2);
        }
    }
    return $c;
}
function upd_last_attack($pl)
{
    //$pl = preg_replace ('/[^a-z0-9_\.]/i', '', $pl);
    $now = time();
    $id = is_player($pl);
    if (!$id) {
        $id = is_npc($pl);
        // npc
        do_mysql("UPDATE npc SET lastattack = '" . $now . "' WHERE id_npc = '" . $id . "';");
        return 1;
    }
    $q = do_mysql("SELECT last FROM players WHERE id_player = '" . $id . "';");
    $last = mysql_result($q, 0);
    $last = explode('|', $last);
    $last[1] = $now;
    $nlast = $last[0] . '|' . $last[1] . '|' . $last[2] . '|' . $last[3] . '|' . $last[4] . '|' . $last[5] . '|' . $last[6] . '|' . $last[7] . '|' . $last[8];
    do_mysql("UPDATE players SET last = '" . $nlast . "' WHERE id_player = '" . $id . "';");
    return 1;
}
function upd_affected($name, $end = 0)
{
    //$name = preg_replace ('/[^a-z0-9_\.]/i', '', $name);
    $id = is_player($name);
    $n = 0;
    if ($id) {
        $q = do_mysql("SELECT affected FROM players WHERE id_player = '" . $id . "';");
    } else {
        $id = is_npc($name);
        $n = 1;
        $q = do_mysql("SELECT affected FROM npc WHERE id_npc = '" . $id . "';");
    }
    $aff = mysql_result($q, 0);
    if (!$aff) {
        return 1;
    }
    $aff = explode('|', $aff);
    $c = count($aff);
    for ($i = 0; $i < $c; $i++) {
        $aff[$i] = explode(':', $aff[$i]);
        //echo $aff[$i][0].' '.$aff[$i][1].' '.(time()).'<br/>';
        if ($aff[$i][1] <= time() || $end) {
            // dalee, esi estq takoj fail, spec izmenenija effekta ustanovim
            if (file_exists('modules/effects/e_end_' . $aff[$i][0] . '.php')) {
                include 'modules/effects/e_end_' . $aff[$i][0] . '.php';
            }
            unset($aff[$i]);
        }
        if (isset($aff[$i])) {
            $aff[$i] = implode(':', $aff[$i]);
        }
    }
    $aff = implode('|', $aff);
    if ($aff == '|') {
        $aff = '';
    }
    if (!$n) {
        do_mysql("UPDATE players SET affected = '" . $aff . "' WHERE id_player = '" . $id . "';");
    } else {
        do_mysql("UPDATE npc SET affected = '" . $aff . "' WHERE id_npc = '" . $id . "';");
    }
    return 1;
}
function mag_summon($spell, $login)
{
    //$spell = preg_replace ('/[^a-z0-9_]/i', '', $spell);
    //$login = preg_replace ('/[^a-z0-9_]/i', '', $login);
    $id = is_player($login);
    $q = do_mysql("SELECT cname FROM magic WHERE fullname = '" . $spell . "';");
    if (!mysql_num_rows($q)) {
        return 0;
    }
    $fullname = mysql_result($q, 0);
    if (!$fullname) {
        return 0;
    }
    // zapros na lokaciju igroka i kolichestvo priruchennyh zhivotnyh
    $q = do_mysql("SELECT location FROM players WHERE id_player = '" . $id . "';");
    if (!mysql_num_rows($q)) {
        return 0;
    }
    $loc = mysql_result($q, 0);
    $q = do_mysql("SELECT COUNT(*) FROM npc WHERE belongs = '" . $login . "';");
    $c = mysql_result($q, 0);
    if ($c > 0) {
        put_g_error('у вас уже есть нпц, принадлежащие вам');
    }
    // sozdaem npc:
    include_once 'modules/f_create_npc.php';
    $npc = create_npc($fullname, substr($loc, 0, 4), $loc);
    $nid = is_npc($npc);
    // izmenim imja:
    $q = do_mysql("SELECT name FROM npc WHERE id_npc = '" . $nid . "';");
    $name = mysql_result($q, 0);
    $nname = 'призванный ' . $name;
    $fullname = $npc . '.' . $login;
    // ataka:
    $q = do_mysql("SELECT in_battle FROM players WHERE id_player = '" . $id . "';");
    $inb = mysql_result($q, 0);
    do_mysql("UPDATE npc SET fullname = '" . $fullname . "', name = '" . $nname . "', belongs = '" . $login . "', move = '30', in_battle = '" . $inb . "', type = 'a' WHERE id_npc = '" . $nid . "';");
    $q = do_mysql("SELECT name FROM players WHERE id_player = '" . $id . "';");
    $pn = mysql_result($q, 0);
    add_journal($pn . ': призвал ' . $name . '!', 'l.' . $loc);
    return 1;
}
function get_npc_info($npc, $what)
{
    //$npc = preg_replace ('/[^a-z\._0-9]/i', '', $npc);
    //$what = preg_replace ('/[^a-z]/i', '', $what);
    // sbnachalo proverim chto za what
    // what == 'name' - imja
    // $what == 'all' - vse, razdroblenno otdatq
    // $what == 'location' - lokaciju
    // $what == 'is_alive' - zhiv li
    // $what == 'life' - zhiznq
    $id = is_npc($npc);
    if ($what == 'name') {
        $alo = do_mysql("SELECT name FROM npc WHERE id_npc = '" . $id . "';");
        $name = mysql_result($alo, 0);
        return $name;
    }
    if ($what == 'all') {
        $q = do_mysql("SELECT * FROM npc WHERE id_npc = '" . $id . "';");
        $all = mysql_fetch_assoc($q);
        $all['life'] = explode('|', $all['life']);
        return $all;
    }
    if ($what == 'location') {
        $alo = do_mysql("SELECT location FROM npc WHERE id_npc = '" . $id . "';");
        $loc = mysql_result($alo, 0);
        return $loc;
    }
    if ($what == 'is_alive') {
        $q = do_mysql("SELECT life FROM npc WHERE id_npc = '" . $id . "';");
        $al = mysql_result($q, 0);
        if (substr($al, 0, 1) == 0) {
            return 0;
        } else {
            return 1;
        }
    }
    if ($what == 'life') {
        $q = do_mysql("SELECT life FROM npc WHERE id_npc = '" . $id . "';");
        $al = mysql_result($q, 0);
        return $al;
    }
}
function check_dead($who)
{
    //$who = preg_replace ('/[^a-z\._0-9]/i', '', $who);
    $id = is_player($who);
    if ($id) {
        $q = do_mysql("SELECT life FROM players WHERE id_player = '" . $id . "';");
    } else {
        $q = do_mysql("SELECT life FROM npc WHERE id_npc = '" . is_npc($who) . "';");
    }
    if (!mysql_num_rows($q)) {
        return 0;
    }
    $life = mysql_result($q, 0);
    $life = explode('|', $life);
    if (!$life[0]) {
        return 1;
    } else {
        return 0;
    }
}
Ejemplo n.º 16
0
function end_fire($name)
{
    //$name = preg_replace ('/[^a-z0-9_\.]/i', '', $name);
    $id = is_player($name);
    if ($id) {
        $q = do_mysql("SELECT status1 FROM players WHERE id_player = '" . $id . "';");
        $st = mysql_result($q, 0);
        $st[4] = 0;
        do_mysql("UPDATE players SET status1 = '" . $st . "' WHERE id_player = '" . $id . "';");
        return 1;
    }
    $id = is_npc($name);
    $q = do_mysql("SELECT affected FROM npc WHERE id_npc = '" . $id . "';");
    $aff = mysql_result($q, 0);
    if (!$aff) {
        return 1;
    }
    $aff = explode('|', $aff);
    $c = count($aff);
    for ($i = 0; $i < $c; $i++) {
        $aff[$i] = explode(':', $aff[$i]);
        //echo $aff[$i][0].' '.$aff[$i][1].' '.(time()).'<br/>';
        if ($aff[$i][0] == 'gorit') {
            unset($aff[$i]);
        }
        if (isset($aff[$i])) {
            $aff[$i] = implode(':', $aff[$i]);
        }
    }
    if (isset($aff)) {
        $aff = implode('|', $aff);
    } else {
        $aff = '';
    }
    if ($aff == '|') {
        $aff = '';
    }
    do_mysql("UPDATE npc SET affected = '" . $aff . "' WHERE id_npc = '" . $id . "';");
    return 1;
}
function teach_kombo($teacher, $student, $kombo, $price)
{
    //$teacher = preg_replace ('/[^a-z0-9_\.]/i', '', $teacher);
    //$student = preg_replace ('/[^a-z0-9_]/i', '', $student);
    //$kombo = preg_replace ('/[^a-z0-9_]/i', '', $kombo);
    $price = preg_replace('/[^0-9]/', '', $price);
    $id = is_player($student);
    $nid = is_npc($teacher);
    $q = do_mysql("SELECT location, money, kombo FROM players WHERE id_player = '" . $id . "';");
    $p = mysql_fetch_assoc($q);
    $q = do_mysql("SELECT location FROM npc WHERE id_npc = '" . $nid . "';");
    $loc = mysql_result($q, 0);
    if ($p['location'] != $loc) {
        return 0;
    }
    if ($p['money'] < $price) {
        exit_msg('комбо', 'у вас нехватает денег, надо ' . $price . ' серебра!');
    }
    $kb = explode('|', $p['kombo']);
    $c = count($kb);
    $has = 0;
    for ($i = 0; $i < $c; $i++) {
        $kb[$i] = explode(':', $kb[$i]);
        if ($kb[$i][0] == $kombo) {
            $has = 1;
        }
    }
    if ($has) {
        exit_msg('комбо', 'вы уже yмеете этот прием!');
    }
    $p['money'] -= $price;
    if (!$p['kombo']) {
        $p['kombo'] = $kombo . ':1:0';
    } else {
        $p['kombo'] .= '|' . $kombo . ':1:0';
    }
    do_mysql("UPDATE players SET money = '" . $p['money'] . "', kombo = '" . $p['kombo'] . "' WHERE id_player = '" . $id . "';");
    exit_msg('комбо', 'вы выучили новый прием!');
}
function mag_decl_attack($who, $to)
{
    // po idee magiej npc napadatq nebudut, no na vsjakij pozharnyj i tak puwu:
    //$who = preg_replace ('/[^a-z0-9_\.]/i', '', $who);
    //$to = preg_replace ('/[^a-z0-9_\.]/i', '', $to);
    if ($to == $who) {
        put_g_error('на себя напасть нелзя!');
    }
    $id = is_player($who);
    $n = 0;
    if ($id) {
        $q = do_mysql("SELECT in_battle, status1, location, last FROM players WHERE id_player = '" . $id . "';");
    } else {
        $id = is_npc($who);
        $n = 1;
        $q = do_mysql("SELECT in_battle, location FROM npc WHERE id_npc = '" . $id . "';");
    }
    $w_inf = mysql_fetch_assoc($q);
    $tid = is_player($to);
    $tn = 0;
    if ($tid) {
        $q = do_mysql("SELECT in_battle, status1, location FROM players WHERE id_player = '" . $tid . "';");
    } else {
        $tid = is_npc($to);
        $tn = 1;
        $q = do_mysql("SELECT in_battle, location FROM npc WHERE id_npc = '" . $tid . "';");
    }
    $t_inf = mysql_fetch_assoc($q);
    if ($w_inf['location'] != $t_inf['location']) {
        return 0;
    }
    // celq nedostezhima
    include_once 'modules/f_attack.php';
    attack($who, $to);
    return 1;
}
<?php 
// $name=login
$id = is_player($name);
if ($id) {
    // esli igrok
    $q = do_mysql("SELECT skills FROM players WHERE id_player = '" . $id . "';");
    $s = mysql_result($q, 0);
    $s = explode('|', $s);
    $s[1] += 5;
    // dex +5
    $s = implode('|', $s);
    do_mysql("UPDATE players SET skills = '" . $s . "' WHERE id_player = '" . $id . "';");
} else {
    // esli npc
    $id = is_npc($name);
    do_mysql("UPDATE npc SET dex = dex + 5 WHERE id_npc = '" . $id . "';");
}
function check_npc_exp($npc2)
{
    $id = is_npc($npc2);
    if (!$id) {
        return 0;
    }
    $q = do_mysql("SELECT * FROM  npc WHERE id_npc = '" . $id . "';");
    $n = mysql_fetch_assoc($q);
    $exphas = round((600 * $n['lvl'] * $n['lvl'] + 1000 * $n['lvl']) / 7);
    $expto = 600 * $n['lvl'] * $n['lvl'] + 1000 * $n['lvl'];
    // exphas - do novogo ochka, expto, do novogo urovnja.
    if ($exphas <= $n['exphas']) {
        $n['exphas'] -= $exphas;
        $s = array('str', 'dex', 'int', 'rea', 'other');
        $num = array_rand($s);
        $n[$s[$num]]++;
        add_journal($n['name'] . ' получил очко опыта! ' . $s[$num] . '++!', 'l.' . $n['location']);
        $file_name = str_replace('.', '_', $n['realname']);
        $dir = substr($n['realname'], 2, 1);
        if (!file_exists('modules/npc/' . $dir . '/' . $file_name . '.php')) {
            put_error('файл нпц не найден ' . $fullname);
        }
        include 'modules/npc/' . $dir . '/' . $file_name . '.php';
        $p['skills'][0] = $n['str'];
        $p['skills'][1] = $n['dex'];
        $p['skills'][2] = $n['int'];
        $p['skills'][3] = $n['rea'];
        $p['skills'][4] = $n['other'];
        $t[0] = $p['skills'][1] * 10 + $p['skills'][4] * 10 + $p['skills'][3] * 2;
        # udar
        $t[1] = $p['skills'][1] * 10 + $p['skills'][4] * 10 + $p['skills'][3] * 5;
        # blok
        $t[2] = $p['skills'][1] * 5 + $p['skills'][4] * 5 + $p['skills'][3] * 5;
        # uklon
        $t[3] = $p['skills'][1] * 10 + $p['skills'][4] * 10 + $p['skills'][3] * 2;
        # parirovanie
        $t[4] = $p['skills'][2] * 8 + $p['skills'][4] * 3;
        // pri primenenii dobavitq magija na 9 # uron magija
        $t[5] = $p['skills'][2] * 4 + $p['skills'][4] * 2 + $p['skills'][4] * 6;
        // pri primenenii dobavitq magija na 3 # ochki blok magija
        $t[6] = $p['skills'][2] * 8 + $p['skills'][4] * 2 + $p['skills'][4] * 8;
        // pri primenenii dobavitq magija na 3 # soprotivlenie magii
        $t[7] = $p['skills'][2] * 5 + $p['skills'][4] * 5 + $p['skills'][4] + $p['skills'][4] * 3;
        // pri ispolqzovanii dobavitq magija na 3; # uklon ot magii
        $t[8] = $p['skills'][1] * 3 + $p['skills'][4] * 3 + $p['skills'][4] * 3;
        # uklon ot strelqby
        $t[9] = $p['skills'][1] * 5 + $p['skills'][3] * 5 + $p['skills'][4] * 5;
        $life = $p['skills'][0] * 71 + $p['skills'][1] * 32;
        $n['life'] = $life . '|' . $life;
        $n['chanse'] = $t[0] . '~' . $t[1] . '~' . $t[2] . '~' . $t[3] . '~' . $t[4] . '~' . $t[5] . '~' . $t[6] . '~' . $t[7] . '~' . $t[8] . '~' . $t[9];
        $n['exp'] = $n['lvl'] * 20 + $n['str'] * 5;
        $dmgmin = $n['lvl'] * 21 + $p['skills'][0] * 4 + $p['skills'][4] * 5 + $p['skills'][1] * 3;
        $dmgmax = $n['lvl'] * 22 + $p['skills'][0] * 8 + $p['skills'][4] * 7 + $p['skills'][1] * 4;
        // $n['dmg'] = str_replace ('1-1', $dmgmin.'-'.$dmgmax, $n['dmg']);
        $primea = round(($dmgmin + $dmgmax) / 3);
        $seconda = round(($dmgmin + $dmgmax) / 5);
        // $dmgmin = round ($dmgmin * 0.7);
        // $dmgmax = round ($dmgmax * 0.7);
        // $n['dmg'] = str_replace ('2-2', $dmgmin.'-'.$dmgmax, $n['dmg']);
        $n['dmg'] = explode('~', $npc['dmg']);
        for ($i = 0; $i < 5; $i++) {
            if ($n['dmg'][$i] == '1-1') {
                $n['dmg'][$i] = $dmgmin . '-' . $dmgmax;
            }
            if ($n['dmg'][$i] == '2-2') {
                $n['dmg'][$i] = round($dmgmin * 0.7) . '-' . round($dmgmax * 0.7);
            }
        }
        $n['dmg'] = implode('~', $n['dmg']);
        $n['armor'] = explode('~', $npc['armor']);
        for ($i = 0; $i < 5; $i++) {
            if ($n['armor'][$i] == 1) {
                $n['armor'][$i] = $primea;
            }
            if ($n['armor'][$i] == 2) {
                $n['armor'][$i] = $seconda;
            }
        }
        $n['armor'] = implode('~', $n['armor']);
        //echo '<pre>';
        //print_r ($n);
        //print_r ($npc);
        do_mysql("UPDATE npc SET exphas = '" . $n['exphas'] . "', str = '" . $n['str'] . "', dex = '" . $n['dex'] . "', `int` = '" . $n['int'] . "', rea = '" . $n['rea'] . "', other = '" . $n['other'] . "', sp = sp + 1, dmg = '" . $n['dmg'] . "', armor = '" . $n['armor'] . "', life = '" . $n['life'] . "', chanse = '" . $n['chanse'] . "', exp = '" . $n['exp'] . "' WHERE id_npc = '" . $id . "';");
        unset($npc);
    }
    if ($expto <= $n['expto']) {
        $n['expto'] -= $expto;
        $n['lvl'] += 1;
        $n['str'] += 1;
        $n['dex'] += 1;
        $n['other'] += 1;
        $n['sp'] += 3;
        add_journal($n['name'] . ' получил новый уровень! ', 'l.' . $n['location']);
        $file_name = str_replace('.', '_', $n['realname']);
        $dir = substr($n['realname'], 2, 1);
        if (!file_exists('modules/npc/' . $dir . '/' . $file_name . '.php')) {
            put_error('файл нпц не найден ' . $fullname);
        }
        include 'modules/npc/' . $dir . '/' . $file_name . '.php';
        $p['skills'][0] = $n['str'];
        $p['skills'][1] = $n['dex'];
        $p['skills'][2] = $n['int'];
        $p['skills'][3] = $n['rea'];
        $p['skills'][4] = $n['other'];
        $t[0] = $p['skills'][1] * 10 + $p['skills'][4] * 10 + $p['skills'][3] * 2;
        # udar
        $t[1] = $p['skills'][1] * 10 + $p['skills'][4] * 10 + $p['skills'][3] * 5;
        # blok
        $t[2] = $p['skills'][1] * 5 + $p['skills'][4] * 5 + $p['skills'][3] * 5;
        # uklon
        $t[3] = $p['skills'][1] * 10 + $p['skills'][4] * 10 + $p['skills'][3] * 2;
        # parirovanie
        $t[4] = $p['skills'][2] * 8 + $p['skills'][4] * 3;
        // pri primenenii dobavitq magija na 9 # uron magija
        $t[5] = $p['skills'][2] * 4 + $p['skills'][4] * 2 + $p['skills'][4] * 6;
        // pri primenenii dobavitq magija na 3 # ochki blok magija
        $t[6] = $p['skills'][2] * 8 + $p['skills'][4] * 2 + $p['skills'][4] * 8;
        // pri primenenii dobavitq magija na 3 # soprotivlenie magii
        $t[7] = $p['skills'][2] * 5 + $p['skills'][4] * 5 + $p['skills'][4] + $p['skills'][4] * 3;
        // pri ispolqzovanii dobavitq magija na 3; # uklon ot magii
        $t[8] = $p['skills'][1] * 3 + $p['skills'][4] * 3 + $p['skills'][4] * 3;
        # uklon ot strelqby
        $t[9] = $p['skills'][1] * 5 + $p['skills'][3] * 5 + $p['skills'][4] * 5;
        $life = $p['skills'][0] * 71 + $p['skills'][1] * 32;
        $n['life'] = $life . '|' . $life;
        $n['chanse'] = $t[0] . '~' . $t[1] . '~' . $t[2] . '~' . $t[3] . '~' . $t[4] . '~' . $t[5] . '~' . $t[6] . '~' . $t[7] . '~' . $t[8] . '~' . $t[9];
        $n['exp'] = $n['lvl'] * 20 + $n['str'] * 5;
        $dmgmin = $n['lvl'] * 21 + $p['skills'][0] * 4 + $p['skills'][4] * 5 + $p['skills'][1] * 3;
        $dmgmax = $n['lvl'] * 22 + $p['skills'][0] * 8 + $p['skills'][4] * 7 + $p['skills'][1] * 4;
        // $n['dmg'] = str_replace ('1-1', $dmgmin.'-'.$dmgmax, $n['dmg']);
        $primea = round(($dmgmin + $dmgmax) / 3);
        $seconda = round(($dmgmin + $dmgmax) / 5);
        // $dmgmin = round ($dmgmin * 0.7);
        // $dmgmax = round ($dmgmax * 0.7);
        // $n['dmg'] = str_replace ('2-2', $dmgmin.'-'.$dmgmax, $n['dmg']);
        $n['dmg'] = explode('~', $npc['dmg']);
        for ($i = 0; $i < 5; $i++) {
            if ($n['dmg'][$i] == '1-1') {
                $n['dmg'][$i] = $dmgmin . '-' . $dmgmax;
            }
            if ($n['dmg'][$i] == '2-2') {
                $n['dmg'][$i] = round($dmgmin * 0.7) . '-' . round($dmgmax * 0.7);
            }
        }
        $n['dmg'] = implode('~', $n['dmg']);
        $n['armor'] = explode('~', $npc['armor']);
        for ($i = 0; $i < 5; $i++) {
            if ($n['armor'][$i] == 1) {
                $n['armor'][$i] = $primea;
            }
            if ($n['armor'][$i] == 2) {
                $n['armor'][$i] = $seconda;
            }
        }
        $n['armor'] = implode('~', $n['armor']);
        //echo '<pre>';
        //print_r ($n);
        //print_r ($npc);
        do_mysql("UPDATE npc SET life = '" . $n['life'] . "', dmg = '" . $n['dmg'] . "', armor = '" . $n['armor'] . "', exp = '" . $n['exp'] . "', chanse = '" . $n['chanse'] . "', str = '" . $n['str'] . "', dex = '" . $n['dex'] . "', other = '" . $n['other'] . "', expto = '" . $n['expto'] . "', sp = '" . $n['sp'] . "', lvl = '" . $n['lvl'] . "' WHERE id_npc = '" . $id . "';");
    }
    return 1;
}
Ejemplo n.º 21
0
function attack($who, $to)
{
    // prosto vnosit imena. esli nelzja dostatq, v funkcii nanesti uron bitva okonchitsja
    $id = is_player($who);
    if ($id) {
        if ($who == $to) {
            put_g_error('суицид кармически наказуем');
        }
        // berem spisok - imja, kto v boju uzhe:
        $whp = 1;
        $q = do_mysql("SELECT id_player, login, name, gender, location, in_battle, status1, last, clan FROM players WHERE id_player = '" . $id . "';");
        $att = mysql_fetch_assoc($q);
        $att['last'] = explode('|', $att['last']);
        // takzhe, vozqmem informaciju o prizvanyh i priruchenyh.
        $q = do_mysql("SELECT id_npc, fullname, name, in_battle FROM npc WHERE belongs = '" . $who . "';");
        if (mysql_num_rows($q)) {
            $whobel = mysql_fetch_assoc($q);
        }
    } else {
        $id = is_npc($who);
        if (!$id2) {
            return 0;
        }
        $whp = 0;
        // osnovnaja informacija monstra -
        $q = do_mysql("SELECT id_npc, fullname, name, location, in_battle FROM npc WHERE id_npc = '" . $id . "';");
        $att = mysql_fetch_assoc($q);
        // pokachto nebudem schitatq partii monstrov
    }
    // teperq na togo na kogo napadaet soberem informaciju
    $id2 = is_player($to);
    if ($id2) {
        $tp = 1;
        // berem spisok - imja, kto v boju uzhe:
        $q = do_mysql("SELECT id_player, login, name, in_battle, location, status1, clan, active FROM players WHERE id_player = '" . $id2 . "';");
        $def = mysql_fetch_assoc($q);
        if (!$def['active']) {
            return 0;
        }
        // takzhe, vozqmem informaciju o prizvanyh i priruchenyh.
        $q = do_mysql("SELECT id_npc, fullname, name, in_battle FROM npc WHERE belongs = '" . $to . "';");
        if (mysql_num_rows($q)) {
            $tobel = mysql_fetch_assoc($q);
        }
    } else {
        $id2 = is_npc($to);
        if (!$id2) {
            return 0;
        }
        $tp = 0;
        // osnovnaja informacija monstra -
        $q = do_mysql("SELECT id_npc, fullname, name, in_battle, type, location, belongs FROM npc WHERE id_npc = '" . $id2 . "';");
        $def = mysql_fetch_assoc($q);
        // napadatq na torgovcev i npc nelzja - tolqko na monstrov i zhivotnyh
        if ($def['type'] == 's' || $def['type'] == 't') {
            put_g_error('ну что тебе это существо плохого сделала то, а?');
        }
        // esli na svoegozhe napadaem, to bolqshe ne svoj zhe -
        if ($def['belongs'] == $who) {
            $def['belongs'] = '0';
            do_mysql("UPDATE npc SET belongs = '0' WHERE id_npc = '" . $id2 . "';");
        }
        // pokachto nebudem schitatq partii monstrov
    }
    // esli uzhe v boju, to nichego ne budem delatq
    if ($att['in_battle'] > 0 && $def['in_battle'] > 0 && $att['in_battle'] != $def['in_battle']) {
        return 1;
    }
    if ($att['in_battle'] > 0 && $att['in_battle'] == $def['in_battle']) {
        put_g_error('он на вашей стороне!');
    }
    if (!$att['in_battle']) {
        if (!$def['in_battle']) {
            $att['in_battle'] = 1;
            $def['in_battle'] = 2;
        } else {
            if ($def['in_battle'] == 1) {
                $att['in_battle'] = 2;
            } else {
                $att['in_battle'] = 1;
            }
        }
    } else {
        if ($att['in_battle'] == 1) {
            $def['in_battle'] = 2;
        } else {
            $def['in_battle'] = 1;
        }
    }
    // zony, svobodnye ot ataki:
    $toloc = $def['location'];
    if (substr($toloc, 0, 4) == 'rele' || substr($toloc, 0, 4) == 'elfc' || substr($toloc, 0, 4) == 'verg') {
        put_g_error('на этой локации атаковать нелзя');
    }
    if ($whp) {
        do_mysql("UPDATE players SET in_battle = '" . $att['in_battle'] . "' WHERE id_player = '" . $att['id_player'] . "';");
    } else {
        do_mysql("UPDATE npc SET in_battle = '" . $att['in_battle'] . "' WHERE id_npc = '" . $att['id_npc'] . "';");
    }
    if ($tp) {
        do_mysql("UPDATE players SET in_battle = '" . $def['in_battle'] . "' WHERE id_player = '" . $def['id_player'] . "';");
    } else {
        do_mysql("UPDATE npc SET in_battle = '" . $def['in_battle'] . "' WHERE id_npc = '" . $def['id_npc'] . "';");
    }
    // teperq pitomcy
    if (isset($whobel)) {
        $whobel['in_battle'] = $att['in_battle'];
        do_mysql("UPDATE npc SET in_battle = '" . $whobel['in_battle'] . "' WHERE id_npc = '" . $whobel['id_npc'] . "';");
    }
    if (isset($tobel)) {
        $tobel['in_battle'] = $def['in_battle'];
        do_mysql("UPDATE npc SET in_battle = '" . $tobel['in_battle'] . "' WHERE id_npc = '" . $tobel['id_npc'] . "';");
    }
    // dela s karmoj svjazanye
    if (isset($def['login']) && isset($att['login']) && $def['status1'][0] != 1 && $def['status1'][0] != 2 && substr($def['location'], 0, 4) != 'pris' && substr($def['location'], 0, 3) != 'are') {
        // proverim togda vojnu klanovuju -
        $att['clan'] = explode('|', $att['clan']);
        $def['clan'] = explode('|', $def['clan']);
        $q = do_mysql("SELECT politics FROM clans WHERE clanname = '" . $att['clan'][0] . "';");
        if (!mysql_num_rows($q)) {
            $pol = '';
        }
        $pol = mysql_result($q, 0);
        $pol = explode('|', $pol);
        // 0 - war
        if (!is_in($def['clan'][0], $pol[0])) {
            $att['status1'][0] = 1;
            $att['last'][4] = time();
            $att['last'] = implode('|', $att['last']);
            do_mysql("UPDATE players SET last = '" . $att['last'] . "', status1 = '" . $att['status1'] . "' WHERE id_player = '" . $att['id_player'] . "';");
        }
    }
    if (isset($att['login']) && $att['gender'] == 'female') {
        $attacked = 'напалa';
    } else {
        $attacked = 'напал';
    }
    add_journal($att['name'] . ' ' . $attacked . ' на ' . $def['name'] . '!', 'l.' . $att['location']);
    return 1;
}
Ejemplo n.º 22
0
function go_to_loc($who, $loc_go, $stor, $ok = 0)
{
    # get_pl_info(), do_mysql();, get_npc_info();, loc();, put_error();, delete_from_loc();, add_to_loc();, addjournal();
    require_once 'modules/f_get_pl_info.php';
    require_once 'modules/f_get_npc_info.php';
    require_once 'modules/f_loc.php';
    require_once 'modules/f_add_to_loc.php';
    // proverka dannyh
    // $who = preg_replace ('/[^a-z\._0-9]/i', '', $who);
    if (!$ok) {
        $loc_go = preg_replace('/[^a-z0-9\\|]/', '', $loc_go);
        $stor = preg_replace('/[^a-z0-9]/i', '', $stor);
    }
    // $stor - eto storona. dlja massiva
    // lokacija
    if (substr($who, 0, 2) == 'p.') {
        // login
        $login = substr($who, 2);
        $who = $login;
        $id = is_player($login);
        $lq = do_mysql("SELECT location FROM players WHERE id_player = '" . $id . "';");
        $loc = mysql_result($lq, 0);
        $lq = do_mysql("SELECT name FROM players WHERE id_player = '" . $id . "';");
        $name = mysql_result($lq, 0);
        //$loc = get_pl_info ($login, 'location');
        $qg = do_mysql("SELECT gender FROM players WHERE id_player = '" . $id . "';");
        $gender = mysql_result($qg, 0);
        $qg = do_mysql("SELECT walking FROM players WHERE id_player = '" . $id . "';");
        $w = mysql_result($qg, 0);
        if ($w > 0) {
            $CAN_JUMP = 1;
        }
        $qg = do_mysql("SELECT carry FROM players WHERE id_player = '" . $id . "';");
        $carry = mysql_result($qg, 0);
        include_once 'modules/f_get_pl_weight.php';
        if ($carry < get_pl_weight($login)) {
            put_g_error('вы перегруженны');
        }
        $n = 0;
        $who = $login;
        // proverka na boj -
        $q = do_mysql("SELECT in_battle FROM players WHERE id_player = '" . $id . "';");
        $inb = mysql_result($q, 0);
        $type = 'a';
    }
    if (substr($who, 0, 2) == 'n.') {
        $loc = get_npc_info($who, 'location');
        $id = is_npc($who);
        // adding npc to move log -
        global $NPC_MOVED;
        $NPC_MOVED[$id] = 1;
        $alo = do_mysql("SELECT name FROM npc WHERE id_npc = '" . $id . "';");
        $login = mysql_result($alo, 0);
        $name = $login;
        $alo = do_mysql("SELECT type FROM npc WHERE id_npc = '" . $id . "';");
        $type = mysql_result($alo, 0);
        $n = 1;
        $inb = 0;
    }
    # vozmozhny dva puti - na druguju kartu ili prosto na druguju lokaciju
    # na druguju kartu ne storony, potomu prosto stor = 'nmap';
    # na druguju lokaciju - togda cherez near
    // ESLI NA DRUGUJU KARU
    $show_info = 0;
    if (substr($loc, 0, 4) != substr($loc_go, 0, 4)) {
        global $NEWMAP;
        $NEWMAP = 1;
        // a eshe ustanovim flag show_info, po kotoromu potom opredelim, nado li pokazatq vstupitelqnyj tekst k loakacci
        $show_info = 1;
        // zlye npc nemogut idti v goroda
        if ($type == 'x') {
            $toloc = substr($loc_go, 0, 4);
            if ($toloc == 'rele' || $toloc == 'elfc' || $toloc == 'verg') {
                return 0;
            }
        }
    }
    $li = '';
    // voobshem eto tazhe lokacija
    include_once 'modules/f_can_u_reach.php';
    $depth = 1;
    if (isset($_GET['jump']) && isset($CAN_JUMP)) {
        $depth = 2;
    }
    // esli v okruzhnoj lokacii netu takoj loki v takuju storonu, to idti nelzja
    if (!can_u_reach($who, $loc_go, $stor, $depth)) {
        //put_error ('<p>извините, но в указаном направлении такой локации нет</p>');
        return 0;
    }
    if ($depth == 2) {
        // get loc v can u reach
        $ll = get_loc($who, $stor, 1);
        add_journal($name . ' пронесся мимо!', 'l.' . $ll);
    }
    // est9q li loka na kotoruju idut?
    //////////////////////////////
    // pitomec
    $an = do_mysql("SELECT name, fullname FROM npc WHERE belongs = '" . $who . "' AND location = '" . $loc . "' AND move <> 0;");
    $an = mysql_fetch_assoc($an);
    if ($an['fullname']) {
        $pit = ' и ' . $an['name'] . ' ';
        add_to_loc($loc_go, $an['fullname']);
    } else {
        $pit = '';
    }
    if (substr($who, 0, 2) == 'n.') {
        $map = substr($loc_go, 0, 4);
        do_mysql("UPDATE npc SET location = '" . $loc_go . "', map = '" . $map . "' WHERE id_npc = '" . $id . "';");
    } else {
        do_mysql("UPDATE players SET location = '" . $loc_go . "' WHERE id_player = '" . $id . "';");
    }
    $loc2 = 'l.' . $loc;
    // pogonja
    if ($inb && substr($loc_go, 0, 4) != 'rele' && substr($loc_go, 0, 4) != 'elfc' && substr($loc_go, 0, 4) != 'verg') {
        $tinb = 0;
        if ($inb == 1) {
            $tinb = 2;
        } else {
            $tinb = 1;
        }
        $q = do_mysql("SELECT fullname FROM npc WHERE location = '" . $loc . "' AND in_battle = '" . $tinb . "';");
        while ($nt = mysql_fetch_assoc($q)) {
            go_to_loc($nt['fullname'], $loc_go, $stor, 1);
        }
    }
    // formiruem soobshenie.
    $pere = '';
    if (isset($near)) {
        $pere = $near[$stor][2];
    }
    if ($li) {
        $pere = $li[2];
    }
    if ($pit) {
        $gone = 'ушли';
        $come = 'пришли';
    } else {
        if (!isset($gender)) {
            // dlja npc, esliimja konchaetsja na 'a', to skorej vsego devushka
            $len = strlen($login);
            $len2 = $len - 1;
            if (substr($login, $len2) == 'а') {
                $gone = 'ушла';
                $come = 'пришла';
            } else {
                $gone = 'ушел';
                $come = 'пришел';
            }
        } else {
            if ($gender == 'male') {
                $gone = 'ушел';
                $come = 'пришел';
            }
            if ($gender == 'female') {
                $gone = 'ушла';
                $come = 'пришла';
            }
        }
    }
    // proverim $n, esli 1 to eto npc i nado vsem pisatq, esli net to perehodjashemu ne nado
    if ($n) {
        $need = 1;
    } else {
        $need = 0;
    }
    // v byvshuju lokaciju
    add_journal('<b>' . $name . '' . $pit . ' ' . $gone . ' ' . $pere . '</b>', 'l.' . $loc, $need);
    // v novuju
    add_journal('<b>' . $come . ' ' . $name . '' . $pit . '</b>', 'l.' . $loc_go, $need);
    //echo '<br/>show info = '.$show_info.'<br/>';
    //echo 'n = '.$n.'<br/>';
    //echo 'settings 4 = '.$p['settings'][4].'<br/>';
    // takzhe, esli showinfo = 1, perehodjashemu chelu pokazatq info toj karty
    if ($show_info && !$n) {
        global $p;
        if ($p['settings'][4] == 1) {
            $lg = loc($loc_go, 'locinfo');
            // kartinki v locpics/(nazvanie karty).jpg
            $map = substr($loc_go, 0, 4);
            //$mapi = gen_header ($lg[1]);
            $mapi = '';
            //$mapi .= '<div class="y" id="adg"><b>'.$lg[1].'</div>';
            if (file_exists('modules/locpics/' . $map . '.JPEG')) {
                $mapi .= '<p><img src="modules/locpics/' . $map . '.JPEG" alt="."/></p>';
            }
            // teperq infa
            // '/mapinfo/'.$map.'.mapi'
            if (file_exists('modules/mapinfo/' . $map . '.txt')) {
                $mapi .= '<p>';
                $mapi .= file_get_contents('modules/mapinfo/' . $map . '.txt');
                $mapi .= '</p>';
            } else {
                $mapi .= '<p>нет информации</p>';
            }
            //global $sid;
            //$mapi .= '<p><a class="blue" href="game.php?sid='.$sid.'">в игру</a></p>';
            //$mapi .= gen_footer();
            add_journal($mapi, $p['login']);
        }
    }
}
function comp_reaction($off, $pass)
{
    //$off = preg_replace ('/[^a-z0-9_\.]/i', '', $off);
    //$pass = preg_replace ('/[^a-z0-9_\.]/i', '', $pass);
    include_once 'modules/f_get_affected.php';
    $aff = get_affected($off);
    if (is_in('oglushen', $aff)) {
        return 0;
    }
    if (is_in('zamerz', $aff)) {
        return 0;
    }
    if (is_in('okamenel', $aff)) {
        return 0;
    }
    if (is_in('odubel', $aff)) {
        return 0;
    }
    if (is_in('paralizovan', $aff)) {
        return 0;
    }
    $aff = get_affected($pass);
    if (is_in('oglushen', $aff)) {
        return 1;
    }
    if (is_in('zamerz', $aff)) {
        return 1;
    }
    if (is_in('okamenel', $aff)) {
        return 1;
    }
    if (is_in('odubel', $aff)) {
        return 1;
    }
    if (is_in('paralizovan', $aff)) {
        return 1;
    }
    $id = is_npc($off);
    if ($id) {
        $q = do_mysql("SELECT dex FROM npc WHERE id_npc = '" . $id . "';");
        if (!mysql_num_rows($q)) {
            return 0;
        }
        $rea_off = mysql_result($q, 0);
    } else {
        $id = is_player($off);
        $q = do_mysql("SELECT skills FROM players WHERE id_player = '" . $id . "';");
        if (!mysql_num_rows($q)) {
            return 0;
        }
        $off_s = mysql_result($q, 0);
        $off_s = explode('|', $off_s);
        $rea_off = $off_s[1];
    }
    $id = is_npc($pass);
    if (is_npc($pass)) {
        $q = do_mysql("SELECT rea FROM npc WHERE id_npc = '" . $id . "';");
        if (!mysql_num_rows($q)) {
            return 0;
        }
        $rea_pass = mysql_result($q, 0);
    } else {
        $id = is_player($pass);
        $q = do_mysql("SELECT skills FROM players WHERE id_player = '" . $id . "';");
        if (!mysql_num_rows($q)) {
            return 0;
        }
        $pass_s = mysql_result($q, 0);
        $pass_s = explode('|', $pass_s);
        $rea_pass = $pass_s[3];
    }
    $ch = $rea_off * 100 / ($rea_off + $rea_pass);
    if (rand(0, 100) <= $ch) {
        return 1;
    } else {
        return 0;
    }
}
<?php 
// razgovarivatq s priruchennym
$npc = preg_replace('/[^a-z0-9\\._]/i', '', $_GET['npc']);
if (!$npc) {
    put_error('where is animal taklk to');
}
if (isset($_GET['part'])) {
    $part = preg_replace('/[^a-z0-9_]/i', '', $_GET['part']);
} else {
    $part = '';
}
$nid = is_npc($npc);
$nn = do_mysql("SELECT * FROM npc WHERE id_npc = '" . $nid . "';");
$nn = mysql_fetch_assoc($nn);
if ($nn['belongs'] != $LOGIN) {
    put_error('это не ваш нпц');
}
if ($nn['location'] != $p['location']) {
    put_g_error('рядом с вами нету этого нпц');
}
$f = gen_header($nn['name']);
$f .= '<div class="y" href="aof"><b>' . $nn['name'] . '</b></div><p>';
if (!$part) {
    $f .= '» <a class="blue" href="game.php?sid=' . $sid . '&action=talk_to_priru&part=har&npc=' . $npc . '">';
    $f .= 'просмотреть информацию</a><br/>';
    $f .= '» <a class="blue" href="game.php?sid=' . $sid . '&action=talk_to_priru&part=name1&npc=' . $npc . '">';
    $f .= 'дать кличку</a><br/>';
    if ($nn['move'] != 0) {
        $f .= '» <a class="blue" href="game.php?sid=' . $sid . '&action=talk_to_priru&part=stay&npc=' . $npc . '">стой тут!</a><br/>';
    } else {
        $f .= '» <a class="blue" href="game.php?sid=' . $sid . '&action=talk_to_priru&part=stay&npc=' . $npc . '">иди за мной!</a><br/>';
Ejemplo n.º 25
0
function teleport($who, $loc_go)
{
    # get_pl_info(), do_mysql();, get_npc_info();, loc();, put_error();, delete_from_loc();, add_to_loc();, addjournal();
    require_once 'modules/f_get_pl_info.php';
    require_once 'modules/f_get_npc_info.php';
    require_once 'modules/f_loc.php';
    require_once 'modules/f_add_to_loc.php';
    // proverka dannyh
    //$who = preg_replace ('/[^a-z\._0-9]/i', '', $who);
    //$loc_go = preg_replace ('/[^a-z0-9\|]/i', '', $loc_go);
    global $LOGIN;
    $id;
    $pi = is_player($who);
    if ($pi) {
        $id = $pi;
        $login = $who;
        $lq = do_mysql("SELECT location FROM players WHERE id_player = '" . $id . "';");
        $loc = mysql_result($lq, 0);
        //$loc = get_pl_info ($login, 'location');
        $qg = do_mysql("SELECT gender FROM players WHERE id_player = '" . $id . "';");
        $gender = mysql_result($qg, 0);
        $n = 0;
        // proverka na boj -
        $q = do_mysql("SELECT in_battle FROM players WHERE id_player = '" . $id . "';");
        $inb = mysql_result($q, 0);
        $qg = do_mysql("SELECT name FROM players WHERE id_player = '" . $id . "';");
        $name = mysql_result($qg, 0);
    } else {
        if (substr($who, 0, 2) == 'n.') {
            $id = is_npc(substr($who, 2));
            if (!$id) {
                return 0;
            }
            $loc = get_npc_info($who, 'location');
            $alo = do_mysql("SELECT name FROM npc WHERE id_npc = '" . $id . "';");
            $login = mysql_result($alo, 0);
            $name = $login;
            $n = 1;
        }
    }
    // karta na kotoroj stoit
    $map_is = substr($loc, 0, 4);
    // karta toj loki, na kotoruju poidut
    $map_will = substr($loc_go, 0, 4);
    // ESLI NA DRUGUJU KARU
    if ($map_is != $map_will) {
        // a eshe ustanovim flag show_info, po kotoromu potom opredelim, nado li pokazatq vstupitelqnyj tekst k loakacci
        $show_info = 1;
    } else {
        // voobshem eto tazhe lokacija
        // vstupitelqnyj tekst ne pisatqi
        $show_info = 0;
    }
    global $NEWMAP;
    $NEWMAP = 1;
    if (!loc($loc_go, 'locinfo')) {
        return 0;
    }
    // sotrem byvshij inloc
    add_to_loc($loc_go, $who);
    //////////////////////////////
    // pitomec
    $an = do_mysql("SELECT name, fullname FROM npc WHERE belongs = '" . $login . "' AND location = '" . $loc . "' AND move <> 0;");
    $an = mysql_fetch_assoc($an);
    if ($an['fullname']) {
        $pit = ' и ' . $an['name'] . ' ';
        add_to_loc($loc_go, $an['fullname']);
    } else {
        $pit = '';
    }
    if (substr($who, 0, 2) == 'n.') {
        $map = substr($loc_go, 0, 4);
        do_mysql("UPDATE npc SET location = '" . $loc_go . "', map = '" . $map . "' WHERE id_npc = '" . $id . "';");
    } else {
        do_mysql("UPDATE players SET location = '" . $loc_go . "' WHERE id_player = '" . $id . "';");
    }
    $loc2 = 'l.' . $loc;
    // formiruem soobshenie.
    if ($pit) {
        $gone = 'исчезли';
        $come = 'появиись';
    } else {
        if (!isset($gender)) {
            // dlja npc, esliimja konchaetsja na 'a', to skorej vsego devushka
            $len = strlen($login);
            $len2 = $len - 1;
            if (substr($login, $len2) == 'а') {
                $gone = 'исчезла';
                $come = 'появилась';
            } else {
                $gone = 'исчез';
                $come = 'появился';
            }
        } else {
            if ($gender == 'male') {
                $gone = 'исчез';
                $come = 'появился';
            }
            if ($gender == 'female') {
                $gone = 'исчезлa';
                $come = 'появилась';
            }
        }
    }
    // proverim $n, esli 1 to eto npc i nado vsem pisatq, esli net to perehodjashemu ne nado
    if ($n) {
        $need = 1;
    } else {
        $need = 0;
    }
    // v byvshuju lokaciju
    add_journal('<p>' . $name . '' . $pit . ' ' . $gone . '!</p>', 'l.' . $loc, $need);
    // v novuju
    add_journal('<p>' . $come . ' ' . $name . '' . $pit . '</p>', 'l.' . $loc_go, $need);
    $p = get_pl_info($who, 'all');
    $NEWMAP = 1;
    include 'modules/s_loadmaps.php';
    // zagruzim kartu
    unset($p);
    //echo '<br/>show info = '.$show_info.'<br/>';
    //echo 'n = '.$n.'<br/>';
    //echo 'settings 4 = '.$p['settings'][4].'<br/>';
    // takzhe, esli showinfo = 1, perehodjashemu chelu pokazatq info toj karty
    if ($show_info && !$n && $who == $LOGIN) {
        global $p;
        do_mysql("UPDATE gamesys SET life_regen = 0;");
        if ($p['settings'][4] == 1) {
            $lg = loc($loc_go, 'locinfo');
            // kartinki v locpics/(nazvanie karty).jpg
            $map = substr($loc_go, 0, 4);
            $mapi = gen_header($lg[1]);
            $mapi .= '<div class="y" id="adg"><b>' . $lg[1] . '</div>';
            if (file_exists('modules/locpics/' . $map . '.JPEG')) {
                $mapi .= '<p><img src="modules/locpics/' . $map . '.JPEG" alt="."/></p>';
            }
            // teperq infa
            // '/mapinfo/'.$map.'.mapi'
            if (file_exists('modules/mapinfo/' . $map . '.txt')) {
                $mapi .= '<p>';
                $mapi .= file_get_contents('modules/mapinfo/' . $map . '.txt');
                $mapi .= '</p>';
            } else {
                $mapi .= '<p>нет информации</p>';
            }
            global $sid;
            $mapi .= '<p><a class="blue" href="game.php?sid=' . $sid . '">в игру</a></p>';
            $mapi .= gen_footer();
            exit($mapi);
        }
    }
}
function npc_try_do_dmg($off, $pass)
{
    //$off = preg_replace ('/[^a-z0-9_\.]/i', '', $off);
    //$pass = preg_replace ('/[^a-z0-9_\.]/i', '', $pass);
    if (!$off || !$pass) {
        return 0;
    }
    $id = is_npc($off);
    if (!$id) {
        return 0;
    }
    include_once 'modules/f_check_dead.php';
    // proverjaem uspeshnostq ataki:
    include_once 'modules/f_is_attack_successful.php';
    $result = is_attack_successful($off, $pass);
    if ($result) {
        // vse, delaem uron
        include_once 'modules/f_do_dmg.php';
        if ($result > 1) {
            $PAR = 0;
        } else {
            $PAR = 1;
        }
        do_dmg($off, $pass, 'NONE', $PAR);
    } else {
        return 0;
    }
    ///////////////////////////////////////////////////////////////////////////////////
    // podvodim itogi
    // zhiv li
    include_once 'modules/f_check_dead.php';
    if (check_dead($pass)) {
        // esli komu-to prinadlezhit, to obnovitq i ego reiting
        $q = do_mysql("SELECT belongs FROM npc WHERE id_npc = '" . $id . "';");
        $bel = mysql_result($q, 0);
        if ($bel) {
            $id = is_player($pass);
            if ($id) {
                do_mysql("UPDATE players SET playerkill = playerkill + 1 WHERE login = '******';");
            } else {
                do_mysql("UPDATE players SET monsterkill = monsterkill + 1 WHERE login = '******';");
            }
        }
        // uvelichenie reitinga pobed:
        if (is_player($pass)) {
            do_mysql("UPDATE npc SET playerkill = playerkill + 1 WHERE id_npc = '" . $id . "';");
        } else {
            do_mysql("UPDATE npc SET monsterkill = monsterkill + 1 WHERE id_npc = '" . $id . "';");
        }
        include_once 'modules/f_make_die.php';
        make_die($pass);
        return 1;
    }
    ///////////////////////////////////////////////////////////////////////////////////
    // otvetka, esli reakcija pozvolit
    include_once 'modules/f_comp_reaction.php';
    if (comp_reaction($pass, $off) == 1) {
        // proverjaem uspeshnostq ataki:
        include_once 'modules/f_is_attack_successful.php';
        $result = is_attack_successful($pass, $off, 1);
        if ($result) {
            // vse, delaem uron
            include_once 'modules/f_do_dmg.php';
            if ($result > 1) {
                $PAR = 0;
            } else {
                $PAR = 1;
            }
            do_dmg($pass, $off, 'NONE', $PAR);
        } else {
            return 0;
        }
        ///////////////////////////////////////////////////////////////////////////////////
        // podvodim itogi
        // zhiv li
        include_once 'modules/f_check_dead.php';
        if (check_dead($off)) {
            // uvelichenie reitinga pobed:
            $id = is_player($pass);
            if ($id) {
                do_mysql("UPDATE players SET monsterkill = monsterkill + 1 WHERE id_player = '" . $id . "';");
            } else {
                $id = is_npc($pass);
                do_mysql("UPDATE npc SET monsterkill = monsterkill + 1 WHERE id_npc = '" . $id . "';");
                // esli komu-nibudq prinadlezhit, obnovim egoo reiting
                $q = do_mydql("SELECT belongs FROM npc WHERE id_npc = '" . $id . "';");
                $bel = mysql_result($q, 0);
                if ($bel) {
                    do_mysql("UPDATE players SET monsterkill = monsterkill + 1 WHERE login = '******';");
                }
            }
            include_once 'modules/f_make_die.php';
            make_die($off);
            return 1;
        }
    }
    return 1;
}
function is_attack_successful($who, $to, $re = 0)
{
    // re oznachaet chto udar otvetnyj.
    // a esli udar otvetnyj, mozhno ne smotretq mozhet li on atakovatq, i ne fiksirovatq
    // etoj funkciej budem sravnivatq shansy
    include_once 'modules/f_get_chanses.php';
    // proverjaem effekty
    // esli odin iz paralizujushih, to vsegda kto-to proigraet/vyjgraet
    include_once 'modules/f_get_affected.php';
    $aff = get_affected($who);
    if (is_in('oglushen', $aff)) {
        return 0;
    }
    if (is_in('zamerz', $aff)) {
        return 0;
    }
    if (is_in('okamenel', $aff)) {
        return 0;
    }
    if (is_in('odubel', $aff)) {
        return 0;
    }
    if (is_in('paralizovan', $aff)) {
        return 0;
    }
    $aff = get_affected($to);
    if (is_in('oglushen', $aff)) {
        return 1;
    }
    if (is_in('zamerz', $aff)) {
        return 1;
    }
    if (is_in('okamenel', $aff)) {
        return 1;
    }
    if (is_in('odubel', $aff)) {
        return 1;
    }
    if (is_in('paralizovan', $aff)) {
        return 1;
    }
    $wid;
    $who_ranged = 0;
    $pi = is_player($who);
    if ($pi) {
        $wid = $pi;
        // berem informaciju igroka
        // shansy nanesti udar
        include_once 'modules/f_get_pl_battle_har.php';
        $who_har = get_pl_battle_har($who);
        // kakoe oruzhie. toestq rasschityvatq li po sisteme dalqnego boja ili blizhnego
        // esli who_ranged == 1,, to togda schitajutsja formuly luchnikov
        $q = do_mysql("SELECT fullname FROM items WHERE belongs = '" . $who . "' AND is_in = 'wea'");
        if (!mysql_num_rows($q)) {
            $who_ranged = 0;
        } else {
            $who_ranged = mysql_result($q, 0);
        }
        if (substr($who_ranged, 4, 3) == 'bow' || substr($who_ranged, 4, 3) == 'arb') {
            $who_ranged = 1;
        } else {
            $who_ranged = 0;
        }
        // zhiznq igroka dlja shansov (massiv)
        $q = do_mysql("SELECT life FROM players WHERE id_player = '" . $wid . "';");
        $who_life = mysql_result($q, 0);
        $who_life = explode('|', $who_life);
        // proverka onlajn:
        do_mysql("SELECT active FROM players WHERE id_player = '" . $wid . "';");
        $active = mysql_result($q, 0);
        if (!$active) {
            include_once 'modules/f_end_battle.php';
            end_battle($who);
        }
    } else {
        $wid = is_npc($who);
        if (!$wid) {
            return -1;
        }
        // informacija npc :
        include_once 'modules/f_get_npc_battle_har.php';
        $who_har = get_npc_battle_har($who);
        // napadatq s dali nemozhet npc
        // zhiznq npc dlja shansov (massiv)
        $q = do_mysql("SELECT life FROM npc WHERE id_npc = '" . $wid . "';");
        $who_life = mysql_result($q, 0);
        $who_life = explode('|', $who_life);
    }
    // proverka vremeni ataki
    include_once 'modules/f_check_last_attack.php';
    if (!check_last_attack($who, $re)) {
        return -1;
    }
    // esli ataka ne vovremja (s uchetom otvetki)
    //  obnovim posledniju ataku, takzhe s uchetom otvetki
    if (!$re) {
        // ne proverjaem estq li patrony, lenq, proverim v do_dmg
        include_once 'modules/f_upd_last_attack.php';
        upd_last_attack($who);
    } else {
        $aff = get_affected($to);
        if (is_in('ispugan', $aff)) {
            return 0;
        }
        // pri ispuge otvetka nevozmozhna
    }
    // harakteristika zawiwajusjago
    $tid;
    $pi = is_player($to);
    if ($pi) {
        $tid = $pi;
        // berem informaciju igroka
        // shansy nanesti udar
        include_once 'modules/f_get_pl_battle_har.php';
        $to_har = get_pl_battle_har($to);
        // estq li shit (1, 0)
        $q = do_mysql("SELECT COUNT(*) FROM items WHERE belongs = '" . $to . "' AND is_in = 'shi' AND type = 'x'");
        $to_shield = mysql_result($q, 0);
        // zhiznq igroka dlja shansov (massiv)
        $q = do_mysql("SELECT life FROM players WHERE id_player = '" . $tid . "';");
        $to_life = mysql_result($q, 0);
        $to_life = explode('|', $to_life);
        // proverka onlajn:
        do_mysql("SELECT active FROM players WHERE id_player = '" . $tid . "';");
        $active = mysql_result($q, 0);
        if (!$active) {
            include_once 'modules/f_end_battle.php';
            end_battle($to);
        }
    } else {
        $tid = is_npc($to);
        if (!$tid) {
            return -1;
        }
        // informacija npc :
        include_once 'modules/f_get_npc_battle_har.php';
        $to_har = get_npc_battle_har($to);
        // napadatq s dali nemozhet npc
        // zhiznq npc dlja shansov (massiv)
        $q = do_mysql("SELECT life FROM npc WHERE id_npc = '" . $tid . "';");
        $to_life = mysql_result($q, 0);
        $to_life = explode('|', $to_life);
    }
    // proschityvaem shansy -
    $ch = get_chanses($who_har, $who_life, $to_har, $to_life);
    // sluchajnoe chislo
    $rnd = rand(0, 100);
    if ($rnd <= $ch[1][1]) {
        // udar blokirovan:
        if ($who_ranged) {
            include_once 'modules/f_promah.php';
            promah($who);
        } else {
            include_once 'modules/f_block.php';
            block($to);
        }
        $NO = 1;
    } else {
        $ntdl = rand(0, 1);
        if ($ntdl == 0) {
            if ($who_ranged) {
                if (rand(0, 100) <= $ch[1][8]) {
                    // uklonimsja
                    include_once 'modules/f_uklon.php';
                    uklon($to);
                    $NO = 1;
                }
            } else {
                if (rand(0, 100) <= $ch[1][2]) {
                    // uklonimsja
                    include_once 'modules/f_uklon.php';
                    uklon($to);
                    $NO = 1;
                }
            }
        } else {
            if ($who_ranged) {
                if (rand(0, 100) <= $ch[1][3]) {
                    // pariruem
                    return 1;
                }
            } else {
                if (rand(0, 100) <= $ch[1][9]) {
                    // pariruem
                    return 1;
                }
            }
        }
    }
    if (isset($NO)) {
        // esli streljaem, nado rashodovatq strely, esli promahnulisq ili uklon. inache rashoduem v do_dmg
        if ($who_ranged) {
            // rashoduem odnu strelu
            include_once 'modules/f_decr_abstr_misc.php';
            if (!decr_abstr_misc('i.m.arr.arr', $who, 1)) {
                add_journal('нехватает припасoв!', $who);
            }
        }
        return 0;
    }
    //esli vse horosho, vozvrashjaem 2:
    return 2;
}
Ejemplo n.º 28
0
function mag_def($off, $skill, $location, $def)
{
    //$off = preg_replace ('/[^a-z0-9_\.]/i', '', $off);
    //$def = preg_replace ('/[^a-z0-9_\.]/i', '', $def);
    // berem shansy
    $id = is_player($off);
    if ($id) {
        include_once 'modules/f_get_pl_battle_har.php';
        $off_har = get_pl_battle_har($off);
        $off_har[5] += $skill * 3;
        $off_har[6] += $skill * 3;
        $off_har[7] += $skill * 3;
        $q = do_mysql("SELECT life FROM players WHERE id_player = '" . $id . "';");
        $off_life = mysql_result($q, 0);
        $off_life = explode('|', $off_life);
        $off_name = $off;
    } else {
        $id = is_npc($off);
        include_once 'modules/f_get_npc_battle_har.php';
        $off_har = get_npc_battle_har($off);
        $q = do_mysql("SELECT life, name FROM npc WHERE id_npc = '" . $id . "';");
        $off_a = mysql_fetch_assoc($q);
        $off_life = explode('|', $off_a['life']);
        $off_name = $off_a['name'];
    }
    $tid = is_player($def);
    if ($tid) {
        include_once 'modules/f_get_pl_battle_har.php';
        $def_har = get_pl_battle_har($def);
        $q = do_mysql("SELECT life FROM players WHERE id_player = '" . $tid . "';");
        $def_life = mysql_result($q, 0);
        $def_life = explode('|', $def_life);
        $def_name = $def;
    } else {
        $tid = is_npc($def);
        include_once 'modules/f_get_npc_battle_har.php';
        $def_har = get_npc_battle_har($def);
        $q = do_mysql("SELECT life, name FROM npc WHERE id_npc = '" . $tid . "';");
        $def_a = mysql_fetch_assoc($q);
        $def_life = explode('|', $def_a['life']);
        $def_name = $def_a['name'];
    }
    // teperq formiruem shansy proporcianalqno:
    include_once 'modules/f_get_chanses.php';
    $ch = get_chanses($off_har, $off_life, $def_har, $def_life);
    // ch[0] eto napadajushij, ch[1] eto zashishjajushijsja
    // 5 - blok, 6 - sopr, 7 - uklon
    // vyberem sluchaino:
    $do = rand(5, 7);
    // teperq shans eto sdelatq:
    $proc = rand(0, 100);
    // esli vyjdet to sdelaem i vozvratim znachenie:
    if ($proc <= $ch[1][$do]) {
        // znachit taki sdelali
        if ($do == 5) {
            // blok:
            add_journal($def_name . ' блокировал магию ' . $off_name . '!', 'l.' . $location);
            return 1;
        } elseif ($do == 6) {
            // soprotivlenie:
            add_journal($def_name . ' сопротивился магии ' . $off_name . '!', 'l.' . $location);
            return 2;
        } else {
            // uklon:
            add_journal($def_name . ' уклонился от магии ' . $off_name . '!', 'l.' . $location);
            return 3;
        }
    } else {
        return 0;
    }
}
Ejemplo n.º 29
0
function do_dmg($who, $to, $type, $PAR, $KOMBO = 1)
{
    include_once 'modules/f_get_dmg.php';
    include_once 'modules/f_get_armor.php';
    ////////////////////////////// NAPADAJUSHIJ /////////////////////
    // esli napadajushij igrok to uron poluchim funkciej, esli npc to vozqmem sami:
    $wid;
    $pi = is_player($who);
    if ($pi) {
        $wid = $pi;
        include_once 'modules/f_get_dmg.php';
        $dmg = get_dmg($who);
        // lomaem mechq
        include_once 'modules/f_damage_weapons.php';
        damage_weapons($who);
        // razberemsja s oruzhiem, dobavim effekty i oglushim esli eto drob uron (prodelaet eto funkcija)
        $q = do_mysql("SELECT fullname FROM items WHERE belongs = '" . $who . "' AND is_in = 'wea';");
        if (!mysql_num_rows($q)) {
            $weapon = '';
        } else {
            $weapon = mysql_result($q, 0);
        }
        if ($weapon) {
            include_once 'modules/f_set_w_effects.php';
            set_w_effects($weapon, $type, $to);
        }
        // lokacija igroka
        $q = do_mysql("SELECT location FROM players WHERE id_player = '" . $wid . "';");
        $who_loc = mysql_result($q, 0);
        // letaet li
        $q = do_mysql("SELECT walking FROM players WHERE id_player = '" . $wid . "';");
        $who_fly = mysql_result($q, 0);
        $q = do_mysql("SELECT clan FROM players WHERE id_player = '" . $wid . "';");
        $who_clan = mysql_result($q, 0);
        $who_clan = explode('|', $who_clan);
    } else {
        $wid = is_npc($who);
        $npc = 1;
        if (!$wid) {
            return 0;
        }
        $q = do_mysql("SELECT dmg FROM npc WHERE id_npc = '" . $wid . "';");
        if (!mysql_num_rows($q)) {
            return 0;
        }
        $dmg = mysql_result($q, 0);
        $dmg = explode('~', $dmg);
        for ($i = 0; $i < 5; $i++) {
            $dmg[$i] = explode('-', $dmg[$i]);
        }
        $weapon = '';
        // lokacija npc
        $q = do_mysql("SELECT location FROM npc WHERE id_npc = '" . $wid . "';");
        $who_loc = mysql_result($q, 0);
        // effekt
        $q = do_mysql("SELECT effect FROM npc WHERE id_npc = '" . $wid . "';");
        $who_effect = mysql_result($q, 0);
        // letanie
        $q = do_mysql("SELECT move FROM npc WHERE id_npc = '" . $wid . "';");
        $who_fly = mysql_result($q, 0);
        if ($who_fly != 7) {
            $who_fly = 0;
        } else {
            $who_fly = 2;
        }
    }
    //////////////////////////// ORONJAJUSHIJSJA ////////////////////
    $ni = is_npc($to);
    if ($ni) {
        $tid = $ni;
        $tonpc = 1;
        $q = do_mysql("SELECT armor FROM npc WHERE id_npc = '" . $tid . "';");
        if (!mysql_num_rows($q)) {
            return 0;
        }
        $armor = mysql_result($q, 0);
        $armor = explode('~', $armor);
        // lokacija npc
        $q = do_mysql("SELECT location FROM npc WHERE id_npc = '" . $tid . "';");
        $to_loc = mysql_result($q, 0);
        // letanie
        $q = do_mysql("SELECT move FROM npc WHERE id_npc = '" . $tid . "';");
        $to_fly = mysql_result($q, 0);
        if ($to_fly != 7) {
            $to_fly = 0;
        } else {
            $to_fly = 2;
        }
        // golem soklana -
        $q = do_mysql("SELECT fullname FROM npc WHERE id_npc = '" . $tid . "';");
        $to_fn = mysql_result($q, 0);
        if ($to_fn == 'n.x.golem' && isset($who_clan)) {
            $qc = do_mysql("SELECT belongs FROM castle WHERE name = 'telir'");
            $bel = mysql_result($qc, 0);
            if ($bel == $who_clan[0]) {
                return 1;
            }
        }
    } else {
        $tid = is_player($to);
        if (!$tid) {
            return 0;
        }
        $armor = get_armor($to);
        // lomaem bronju
        include_once 'modules/f_damage_armor.php';
        damage_armor($to, $PAR);
        // lokacija igroka
        $q = do_mysql("SELECT location FROM players WHERE id_player = '" . $tid . "';");
        $to_loc = mysql_result($q, 0);
        // letit li igrok
        $q = do_mysql("SELECT walking FROM players WHERE id_player = '" . $tid . "';");
        $to_fly = mysql_result($q, 0);
    }
    if ($to_fly == 2 && substr($weapon, 4, 3) != 'bow' && substr($weapon, 4, 3) != 'arb' && $who_fly != 2) {
        // nelzja dostatq
        include_once 'modules/f_comp_reaction.php';
        if (!comp_reaction($who, $to) || !comp_reaction($who, $to) || !comp_reaction($who, $to)) {
            add_journal('нелзя так просто достать летящего!', $who);
            return 0;
        }
    }
    if (substr($weapon, 4, 3) == 'bow' || substr($weapon, 4, 3) == 'arb') {
        $RANGE = 1;
    } else {
        $RANGE = 0;
    }
    ////////////////////////////// lokacija ////////////////////////////
    if ($who_loc != $to_loc) {
        // esli ne na odnoj lokacii
        // ne dalqnostreljajushimi streljatq nelzja
        if (!$RANGE) {
            add_journal('1цель недоступна', $who);
            return 0;
        }
        // dalee berem zapros na okruzhajushie lokacii
        include_once 'modules/f_loc.php';
        $near = loc($who_loc, 'near');
        // teperq nado proveritq, netu li gde nechajanno takoj lokacii
        $all_ok = 0;
        for ($i = 1; $i < 9; $i++) {
            if (!isset($near[$i])) {
                continue;
            }
            if ($near[$i][0] == $to_loc) {
                $all_ok = 1;
            }
        }
        if (!$all_ok) {
            // nanesti uron nelzja:
            add_journal('цель недоступна', $who);
            return 0;
        }
        ////////////////////////////////////
        // TUT NPC HODJAT K LUCHNIKAM :D
        ////////////////////////////////////
        if (isset($tonpc)) {
            include_once 'modules/f_comp_reaction.php';
            if (comp_reaction($to, $who)) {
                do_mysql("UPDATE npc SET location = '" . $who_loc . "' WHERE id_npc = '" . $tid . "';");
            }
        }
    }
    if ($RANGE) {
        // rashoduem odnu strelu
        include_once 'modules/f_decr_abstr_misc.php';
        if (!decr_abstr_misc('i.m.arr.arr', $who, 1)) {
            add_journal('нехватает припасoв!', $who);
            return 0;
        }
    }
    ////////////////////////////// podschet urona //////////////////////
    switch ($type) {
        case 'rez':
            $num = 0;
            break;
        case 'kol':
            $num = 1;
            break;
        case 'drob':
            $num = 2;
            break;
        case 'rub':
            $num = 3;
            break;
        case 'mag':
            $num = 4;
            break;
        default:
            $tmp = 1;
    }
    if (isset($tmp)) {
        // vyberem sami nomer:
        do {
            $arr = array('rez', 'kol', 'drob', 'rub');
            if (!$dmg[0][1] && !$dmg[1][1] && !$dmg[2][1] && !$dmg[3][1] || isset($npc)) {
                $arr[4] = 'mag';
            }
            $num = array_rand($arr);
            $type = $arr[$num];
        } while (!$dmg[$num][1]);
    }
    $damage = rand($dmg[$num][0], $dmg[$num][1]);
    include_once 'modules/f_crit.php';
    $crit = crit($who);
    $damage *= $crit;
    // kombo
    $damage *= $KOMBO;
    if ($crit > 1) {
        $CR = 1;
    } else {
        $CR = 0;
    }
    if ($damage == 0) {
        $CR = 0;
    }
    /////////////////////////////
    // magicheskij uron
    if ($dmg[4][1] > 0 && $type != 'mag') {
        $mdamage = rand($dmg[4][0], $dmg[4][1]);
        $marm = $armor[4];
        $mdamage -= $marm;
        if ($mdamage < 0) {
            $mdamage = 0;
        }
    } else {
        $mdamage = 0;
    }
    //////////////////////// parirovanie //////////////////////
    if ($PAR && is_player($to) && $type != 'mag') {
        $q = do_mysql("SELECT fullname FROM items WHERE belongs = '" . $to . "' AND is_in = 'shi' AND type = 'x';");
        if (mysql_num_rows($q)) {
            $shi = mysql_result($q, 0);
            $q = do_mysql("SELECT armor FROM items WHERE fullname = '" . $shi . "';");
            $shi_arm = mysql_result($q, 0);
            $shi_arm = explode('~', $shi_arm);
            $sta = round($shi_arm[$num] * 0.9);
            $shi_m = rand($sta, $shi_arm[$num]);
            $damage -= $shi_m;
        }
    }
    ////////////////////////////
    // bronja
    $arm = $armor[$num];
    $damage -= $arm;
    if ($damage < 0) {
        $damage = 1;
    }
    $damage = round($damage);
    ////////////////////////////
    //////////////////////////// dalaem uron ////////////////////
    if (is_npc($to)) {
        $q = do_mysql("SELECT life FROM npc WHERE id_npc = '" . $tid . "';");
    } else {
        if (is_player($to)) {
            $q = do_mysql("SELECT life FROM players WHERE id_player = '" . $tid . "';");
        }
    }
    $life = mysql_result($q, 0);
    $life = explode('|', $life);
    if ($damage > $life[0]) {
        $damage = $life[0];
    }
    $life[0] -= $damage;
    if ($mdamage) {
        $life[0] -= $mdamage;
    }
    if ($life[0] < 0) {
        $life[0] = 0;
    }
    $nlife = $life[0] . '|' . $life[1];
    ///////////////////////EFFEKTY URONA NPC ///////////////
    if (isset($who_effect) && $who_effect) {
        if (rand(0, 100) < 33) {
            include_once 'modules/f_set_affected.php';
            set_affected($to, $who_effect);
        }
    }
    /////////////////////// ITOGI ////////////////////////////
    if ($CR) {
        include_once 'modules/f_start_blood.php';
        if (rand(0, 100) < 33) {
            start_blood($to);
        }
        $cz = '!!!';
    } else {
        $cz = '';
    }
    if (substr($to, 0, 2) == 'n.') {
        do_mysql("UPDATE npc SET life = '" . $nlife . "' WHERE id_npc = '" . $tid . "';");
    } else {
        do_mysql("UPDATE players SET life = '" . $nlife . "' WHERE id_player = '" . $tid . "';");
    }
    //include_once ('modules/f_add_b_journal.php');
    if (substr($who, 0, 2) == 'n.') {
        $q = do_mysql("SELECT name FROM npc WHERE id_npc = '" . $wid . "';");
        $name = mysql_result($q, 0);
    } else {
        $q = do_mysql("SELECT name FROM players WHERE id_player = '" . $wid . "';");
        $name = mysql_result($q, 0);
    }
    if (substr($to, 0, 2) == 'n.') {
        $q = do_mysql("SELECT name FROM npc WHERE id_npc = '" . $tid . "';");
        $name2 = mysql_result($q, 0);
    } else {
        $q = do_mysql("SELECT name FROM players WHERE id_player = '" . $tid . "';");
        $name2 = mysql_result($q, 0);
    }
    if ($mdamage) {
        $mt = '< -' . $mdamage . '(M)>';
    } else {
        $mt = '';
    }
    if (isset($shi_m)) {
        $st = '< +' . $shi_m . '(X)>';
    } else {
        $st = '';
    }
    // tip urona
    include_once 'modules/f_translit.php';
    $type = translit($type);
    // chem napadali
    include_once 'modules/f_attacked_with.php';
    $attw = attacked_with($weapon);
    if ($to_loc == $who_loc) {
        add_journal($name2 . ' - ' . $damage . '' . $cz . ' [D: ' . $arm . ']' . $st . '' . $mt . ' (' . $name . ', ' . $type . '. ' . $attw . ')', 'l.' . $to_loc);
    } else {
        add_journal($name2 . ' - ' . $damage . '' . $cz . ' [D: ' . $arm . ']' . $st . '' . $mt . ' (' . $name . ', ' . $type . '. ' . $attw . ')', 'l.' . $to_loc);
        add_journal($name2 . ' - ' . $damage . '' . $cz . ' [D: ' . $arm . ']' . $st . '' . $mt . ' (' . $name . ', ' . $type . '. ' . $attw . ')', 'l.' . $who_loc);
    }
    /////////////////////// OPYT /////////////////////////////
    include_once 'modules/f_gain_battle_exp.php';
    gain_battle_exp($who, $to, $damage + $mdamage);
}
function create_dead_body($who)
{
    //$who = preg_replace ('/[^a-z\._0-9]/i', '', $who);
    $id = is_player($who);
    if ($id) {
        // veshi:
        $q = do_mysql("SELECT id_player, status1, location, karma, name FROM players WHERE id_player = '" . $id . "';");
        $p = mysql_fetch_assoc($q);
        // imja trupa:
        $d_name = $p['name'] . ' (труп)';
        $d_map = substr($p['location'], 0, 4);
        // polnoenimja
        $time = time();
        $tmp = 'n';
        if ($p['status1'][0] > 0) {
            $tmp = 'p';
        }
        $d_fullname = 'd.' . $tmp . '.' . $p['id_player'] . '.' . $time;
        // veshi
        $q = do_mysql("SELECT COUNT(*) FROM items WHERE is_in = 'inv' AND belongs = '" . $who . "';");
        $c = mysql_result($q, 0);
        if ($p['status1'][0] == 0) {
            $c = round($c / 3);
        }
        do_mysql("UPDATE items SET belongs = '" . $d_fullname . "', is_in = '' WHERE belongs = '" . $who . "' AND is_in = 'inv' AND realname <> 'i.q.que.wind_sign' LIMIT " . $c . ";");
        if ($p['status1'][0] > 0) {
            do_mysql("UPDATE items SET belongs = '" . $d_fullname . "', is_in = '' WHERE belongs = '" . $who . "' AND is_in = 'wea';");
        }
        if ($p['karma'] < 300) {
            $num = rand(0, 10);
            $q = do_mysql("SELECT fullname, on_use FROM items WHERE belongs = '" . $who . "' AND is_in = 'a" . $num . "';");
            if (mysql_num_rows($q)) {
                $a = mysql_fetch_assoc($q);
                $prt = substr($a['fullname'], 4, 3);
                if ($prt == 'amu' || $prt == 'rin') {
                    $q = do_mysql("SELECT skills FROM players WHERE id_player = '" . $id . "';");
                    $p2 = mysql_fetch_assoc($q);
                    $p2['skills'] = explode('|', $p2['skills']);
                    $jew = explode('~', $a['on_use']);
                    $p2['skills'][0] -= $jew[0];
                    $p2['skills'][1] -= $jew[1];
                    $p2['skills'][2] -= $jew[2];
                    $p2['skills'][3] -= $jew[3];
                    $sk = implode('|', $p2['skills']);
                    do_mysql("UPDATE players SET skills = '" . $sk . "' WHERE id_player = '" . $id . "';");
                }
            }
            do_mysql("UPDATE items SET belongs = '" . $d_fullname . "', is_in = '' WHERE belongs = '" . $who . "' AND is_in = 'a" . $num . "';");
        }
        // trofei -
        $d_hunt = '';
        // lokacija
        $d_location = $p['location'];
    } else {
        $id = is_npc($who);
        // tozh samoe dlja npc
        // veshi:
        $q = do_mysql("SELECT id_npc, name, drop2, hunt, location FROM npc WHERE id_npc = '" . $id . "';");
        $n = mysql_fetch_assoc($q);
        // imja trupa:
        $d_name = $n['name'] . ' (труп)';
        // polnoe imja
        $time = time();
        $d_fullname = 'd.p.' . $n['id_npc'] . $time;
        // sozdaem veshi
        if ($n['drop2']) {
            if (substr($n['drop2'], 2, 1) == 'm') {
                include_once 'modules/f_create_item_m.php';
                $itc = create_item_m($n['drop2'], 1);
            } else {
                include_once 'modules/f_create_item.php';
                $itc = create_item($n['drop2']);
            }
            do_mysql("UPDATE items SET belongs = '" . $d_fullname . "', map = '' WHERE fullname = '" . $itc . "';");
        }
        $d_hunt = $n['hunt'];
        // lokacija
        $d_location = $n['location'];
        $d_map = substr($d_location, 0, 4);
    }
    // sozdaem:
    do_mysql("INSERT INTO dead VALUES ('" . $d_name . "', '" . $d_fullname . "', '" . $d_hunt . "', '" . $d_location . "', '" . $d_map . "', NOW());");
    return 1;
}