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 do_mag_dmg($spell, $login, $to)
{
//$spell = preg_replace ('/[^a-z0-9_]/i', '', $spell);
//$login = preg_replace ('/[^a-z0-9_]/i', '', $login);
//$to = preg_replace ('/[^a-z0-9_\.]/i', '', $to);
$q = do_mysql("SELECT dmgmin, dmgmax, classof, blood, fire, poison FROM magic WHERE fullname = '" . $spell . "';");
if (!mysql_num_rows($q)) {
return 0;
}
$d = mysql_fetch_assoc($q);
// proverim, estq li zashita ot etogo zaklinanija
$tid = is_player($to);
$npc = 1;
if ($tid) {
$npc = 0;
$q = do_mysql("SELECT aura FROM players WHERE id_player = '" . $tid . "';");
$aura = mysql_result($q, 0);
if ($aura == $d['classof'] + 1 || $aura == 1) {
// zaklinanie poglosheno
add_journal('заклинание поглощено', $login);
return 1;
}
}
$id = is_player($login);
$q = do_mysql("SELECT skills FROM players WHERE id_player = '" . $id . "';");
$skills = mysql_result($q, 0);
$skills = explode('|', $skills);
if ($d['classof'] == 0) {
$max = -1;
$sn = 0;
for ($i = 22; $i < 30; $i++) {
if ($skills[$i] > $max) {
$sn = $i;
$max = $skills[$sn];
}
}
} else {
$sn = 21 + $d['classof'];
}
// nomer navyka
$mindmg = ($d['dmgmin'] + $skills[2] * 4 + $skills[4] * 2 + $skills[30] * 5 + $skills[$sn] * 5) * 2;
$maxdmg = ($d['dmgmax'] + $skills[2] * 7 + $skills[4] * 2 + $skills[30] * 7 + $skills[$sn] * 7) * 2;
$dmg = rand($mindmg, $maxdmg);
// snjatie krovotechenija:
if ($d['blood']) {
include_once 'modules/f_start_blood.php';
start_blood($to);
}
// snjatie jada:
if ($d['poison']) {
include_once 'modules/f_start_poison.php';
start_poison($to);
}
// snjatie gorenija:
if ($d['fire']) {
include_once 'modules/f_start_fire.php';
start_fire($to);
}
// terq zashishjaemsja:
include_once 'modules/f_mag_def.php';
$q = do_mysql("SELECT location FROM players WHERE id_player = '" . $id . "';");
$loc = mysql_result($q, 0);
$def = mag_def($login, $skills[$sn], $loc, $to);
// teperq po def opredelim dalqneishie dejstvija:
// esli uklonilsja - urona net:
if ($def == 3) {
return 1;
}
// esli soprotivilsja ili blokiroval, to skolqkoto procentov urona otnimim:
if ($def == 2 || $def == 1) {
// navyk na 5 / iz def, ne bolqshe max:
if ($def == 1) {
$sk = 20;
$max = 100;
} else {
$sk = 21;
$max = 70;
}
$m = $skills[$sk] * 5 / $def;
$m = round($m);
if ($m > $max) {
$m = $max;
}
$m = rand(0, $m);
$m /= 100;
$dmg = round($dmg - $dmg * $m);
}
// teperq v zavisimosti ot npc eto ili igrok
if (!$npc) {
$q = do_mysql("SELECT life FROM players WHERE id_player = '" . $tid . "';");
if (!mysql_num_rows($q)) {
return 0;
}
$life = mysql_result($q, 0);
// bronja:
include_once 'modules/f_get_armor.php';
$armor = get_armor($to);
$arm = rand(0, $armor[4]);
$dmg -= $arm;
if ($dmg < 0) {
$dmg = 1;
}
$life = explode('|', $life);
$life[0] -= $dmg;
if ($life[0] < 0) {
$life[0] = 0;
}
$nlife = $life[0] . '|' . $life[1];
do_mysql("UPDATE players SET life = '" . $nlife . "' WHERE id_player = '" . $tid . "';");
add_journal('' . $to . ': -' . $dmg . ' [MD:' . $arm . '] (' . $login . ')', 'l.' . $loc);
} else {
$tid = is_npc($to);
$q = do_mysql("SELECT life FROM npc WHERE id_npc = '" . $tid . "';");
if (!mysql_num_rows($q)) {
return 0;
}
$life = mysql_result($q, 0);
// bronja:
$q = do_mysql("SELECT name, armor FROM npc WHERE id_npc = '" . $tid . "';");
$armor2 = mysql_fetch_assoc($q);
$armor = explode('~', $armor2['armor']);
$arm = $armor[4];
$dmg -= $arm;
if ($dmg < 0) {
$dmg = 0;
}
$life = explode('|', $life);
$life[0] -= $dmg;
if ($life[0] < 0) {
$life[0] = 0;
}
$nlife = $life[0] . '|' . $life[1];
do_mysql("UPDATE npc SET life = '" . $nlife . "' WHERE id_npc = '" . $tid . "';");
add_journal('' . $armor2['name'] . ': -' . $dmg . ' [MD:' . $arm . '] (' . $login . ')', 'l.' . $loc);
include_once 'modules/f_gain_battle_exp.php';
gain_battle_exp($login, $to, $dmg);
}
return 1;
}
if (!$k) {
put_g_error('нету такой комбинации');
}
// hvataet li many -
for ($i = 1; $i < $k[1]; $i++) {
$MANA += $MANAP;
}
$p['mana'][0] -= $MANA;
if ($p['mana'][0] < 0) {
put_g_error('нехватает маны');
}
if (isset($EFFECT)) {
// dobavim kakojnibudq effekt
if ($EFFECT == 'krovotechenie') {
include_once 'modules/f_start_blood.php';
start_blood($to);
} else {
include_once 'modules/f_set_affected.php';
set_affected($to, $EFFECT);
}
}
if (isset($HEAL)) {
// podlechim sebja:
if ($p['life'][0] == $p['life'][1]) {
put_g_error('вы здоровы');
}
for ($i = 1; $i < $k[1]; $i++) {
$HEAL += $HEALP;
}
$p['life'][0] += $HEAL;
if ($p['life'][0] > $p['life'][1]) {
<?php
$wtd = '';
if ($p['smq'][6] == 2) {
$wtd .= '|kgb~тебя спалили как бывшего офицера гос безопастности.';
$spf['kgb'] = 'ЧаВо? Какой безопастности, я бывший спецназовец.|anyway~а не одно и тоже? Хотя мне пофигу, я не затем пришел.';
$spf['anyway'] = 'Конечно нет. И за чем же?|rock~за цветущим камнем';
$spf['rock'] = 'И с чего ты взял что я тебе его дам?|pay~я заплачу.|kill~я заберу.|try~но ведь всегда можно договорится...';
$spf['pay'] = 'Зачем мне твои деньги? У меня и своих достаточно.';
if ($part == 'kill') {
include_once 'modules/f_start_blood.php';
start_blood($LOGIN);
}
$spf['kill'] = 'Еще чего [злобно посмотрел на вас. У вас заболело ухо, потекла кровь из носа, вы повалились на землю и чуть не сломали шею. Безконтактная борьба рулез.]';
$spf['try'] = 'Можно. Найди моего сослуживца и забери у него церемониальный нож. Он когда-то был мой, я проиграл его в кости. Щас старикашка совсем свихнулся, зачем ему тот нож? Да и непомнит он уже ничего.';
if ($part == 'try') {
set_smq(6, 3);
}
} else {
if ($p['smq'][6] == 4) {
$wtd .= '|knife~я принес нож. Меняю на камень.';
include_once 'modules/f_has_count.php';
if ($part == 'knife') {
if (has_count('i.q.que.ritual_knife', 1, $LOGIN)) {
set_smq(6, 5);
$spf['knife'] = 'Дело есть дело. Держи камень';
include_once 'modules/f_delete_count.php';
include_once 'modules/f_gain_item.php';
delete_count('i.q.que.ritual_knife', 1, $LOGIN);
gain_item('i.q.que.flow_stone', 1, $LOGIN);
} else {
$spf['knife'] = 'где?';
function set_affected($name, $effect, $time = 0)
{
//$name = preg_replace ('/[^a-z\._0-9]/i', '', $name);
//$effect = preg_replace ('/[^a-z]/i', '', $effect);
// effecty i prodolzhitelqnostq
$eff['oglushen'] = 15;
$eff['zamerz'] = 15;
$eff['okamenel'] = 15;
$eff['odubel'] = 15;
$eff['paralizovan'] = 30;
$eff['gorit'] = 600;
// npc
$eff['otravlen'] = 600;
// npc
$eff['krovotechenie'] = 600;
// npc
$eff['prokljat'] = 300;
$eff['ispugan'] = 30;
$eff['blagoslavlen'] = 300;
$eff['osleplen'] = 60;
$eff['zarazhen'] = 1800;
$eff['zamedlen'] = 180;
$eff['hamelion'] = 1800;
// nik ele viden
$eff['blagouhanie'] = 600;
$eff['prosvetlenie'] = 600;
$eff['jarostq'] = 600;
$eff['skorostq'] = 600;
$eff['koordinacija'] = 600;
$eff['pqjan'] = 60;
$eff['aura_magii'] = 600;
$eff['aura_plameni'] = 600;
$eff['aura_lqda'] = 600;
$eff['aura_efira'] = 600;
$eff['aura_vetra'] = 600;
$eff['aura_illjuzii'] = 600;
$eff['aura_podzemelqja'] = 600;
$eff['aura_elqfov'] = 600;
$eff['aura_moguwestvennyh'] = 600;
$eff['pryzhok'] = 1800;
$eff['levitacija'] = 1800;
$eff['udacha'] = 600;
if (strpos($effect, '|')) {
$e = explode('|', $effect);
$effect = $e[0];
$eff[$effect] *= 0.7 + $e[1] / 10;
}
if (!array_key_exists($effect, $eff)) {
return 0;
}
// chelu
$id = is_player($name);
if ($id) {
// acaunt proverim
$q = do_mysql("SELECT account FROM players WHERE id_player = '" . $id . "';");
$acc = mysql_result($q, 0);
if ($acc == 2 || $acc == 4) {
return 1;
}
// krovotechenie jad i ogonq otdelqno
if ($effect == 'krovotechenie') {
include_once 'modules/f_start_blood.php';
start_blood($name);
return 1;
} else {
if ($effect == 'otravlen') {
include_once 'modules/f_start_poison.php';
start_poison($name);
return 1;
} else {
if ($effect == 'gorit') {
include_once 'modules/f_start_fire.php';
start_fire($name);
return 1;
}
}
}
$q = do_mysql("SELECT affected FROM players WHERE id_player = '" . $id . "';");
$a = mysql_result($q, 0);
if (is_in($effect, $a)) {
$a = explode('|', $a);
$c = count($a);
for ($i = 0; $i < $c; $i++) {
$a[$i] = explode(':', $a[$i]);
if ($a[$i][0] == $effect) {
$a[$i][1] += $time;
}
$a[$i] = $a[$i][0] . ':' . $a[$i][1];
}
$a = implode('|', $a);
} else {
if (!$time) {
$time = time() + $eff[$effect];
} else {
$time = time() + $time;
}
$neff = $effect . ':' . $time;
if (is_in('blagoslavlen', $a)) {
return 1;
}
if (!$a) {
$a = $neff;
} else {
$a .= '|' . $neff;
}
}
do_mysql("UPDATE players SET affected = '" . $a . "' WHERE id_player = '" . $id . "';");
// dalee, esi estq takoj fail, spec izmenenija effekta ustanovim
if (file_exists('modules/effects/e_start_' . $effect . '.php')) {
include 'modules/effects/e_start_' . $effect . '.php';
}
return 1;
} else {
$id = is_npc($name);
if (!$id) {
return 0;
}
$q = do_mysql("SELECT affected FROM npc WHERE id_npc = '" . $id . "';");
$a = mysql_result($q, 0);
if (is_in($effect, $a)) {
$a = explode('|', $a);
$c = count($a);
for ($i = 0; $i < $c; $i++) {
$a[$i] = explode(':', $a[$i]);
if ($a[$i][0] == $effect) {
$a[$i][1] += $time;
}
$a[$i] = $a[$i][0] . ':' . $a[$i][1];
}
$a = implode('|', $a);
} else {
if (!$time) {
$time = time() + $eff[$effect];
} else {
$time = time() + $time;
}
$neff = $effect . ':' . $time;
if (is_in('blagoslavlen', $a)) {
return 1;
}
if (!$a) {
$a = $neff;
} else {
$a .= '|' . $neff;
}
}
do_mysql("UPDATE npc SET affected = '" . $a . "' WHERE id_npc = '" . $id . "';");
return 1;
}
}
