Просмотр файла game/2/f_attackf.dat

Конкурс дизайнеров на 15000 рублей
Милый пушистый сайт !!!!
Размер файла: 10.29Kb 
  1. //<?
  2. global $l_i,$l_tt,$g_destroy,$g_crim,$g_exp,$PHP_SELF,$game;
  3. 	// проверки
  4. 	if ((substr($from,0,2)!='u.' && substr($from,0,2)!='n.') || (substr($to,0,2)!='u.' && substr($to,0,2)!='n.') || !isset($l_i[$loc][$from]) || !isset($l_i[$loc][$to]) || $from==$to) return;
  5. 	$fchar=explode("|",$l_i[$loc][$from]["char"]);
  6. 	if (substr($from,0,2)=='u.' && $fchar[8]) {if ($answer) addjournal($loc,$from,"Вы призрак");return;}
  7.  
  8. 	$loct=$loc;
  9. 	$aloct=explode("|",$l_tt[$loc]["d"]);
  10. 	$tchar=explode("|",$l_i[$loct][$to]["char"]);
  11. 	if (substr($to,0,2)=='u.' && $tchar[8]) {if ($answer) addjournal($loc,$from,"Нельзя атаковать призрака"); return;}
  12. 	$twar=explode("|",$l_i[$loct][$to]["war"]);
  13. 	if (!$fchar[9] && !$tchar[9] && $loc=='x1092x474' && $to!='u.admin' && $from!='u.admin' && $to!='u.sn0k' && $from!='u.sn0k') { addjournal($loc,$from,"В банке нельзя атаковать"); 
  14. 	return;
  15. 	}
  16. 	
  17. 	if ($fchar[6]-time()>300) $fchar[6]=time()-1;
  18. 	if (!$rmagic && time()<=$fchar[6]) {
  19. 			if ($answer) addjournal($loc,$from,"Вы должны отдохнуть ".round($fchar[6]-time()+1)." сек"); 
  20. 			return;
  21. 			} 
  22. 	if ($l_i[$loc][$to]["def"]) $tdef=explode("|",$l_i[$loc][$to]["def"]); else $tdef=array("","",0);
  23. 	if ($tdef[2] && time()>$tdef[2]) {$l_i[$loc][$to]["def"]=""; $tdef=array("","",0);}
  24. 	if ($ptitle_v) $ptitle_v=" (".$ptitle_v.")";
  25. 	$tloc=explode("x",$loc);
  26. 	if ($magic) $fwar=explode("|",$magic); else $fwar=explode("|",$l_i[$loc][$from]["war"]);
  27. 	if ($answer) {$fchar[6]=time()+$fwar[3]; $l_i[$loc][$from]["char"]=implode("|",$fchar);}
  28. 	if ($fwar[12]=="мaгиeй") $fwar[12]="магией";	//eng a,e
  29. 	if (substr($from,0,2)!='u.' && rand(0,100)>"10" && $fwar[12]!="молнией") { $use="p.p"; }//$fwar[12]="магией";
  30. 	if ($rmagic || $fwar[12]=="магией" || $fwar[12]=="молнией") {
  31. 		if ($tdef[0]=="p.d.z" && rand(0,100)<=$tdef[3]*0.10) {if (substr($l_i[$loc][$from]["def"],0,5)=="p.d.c") {$fdef=explode("|",$l_i[$loc][$from]["def"]); $fdef=$fdef[3];} else $fdef=0; if (rand(0,100)>$fdef) $fwar[0]=0;}
  32. 		if (substr($l_i[$loc][$from]["def"],0,5)=="p.d.c") $l_i[$loc][$from]["def"]="";
  33. 		if ($tdef[0]=="p.d.z") {$l_i[$loc][$to]["def"]=""; $t2=$tdef[1];}
  34. 		$uklon=$twar[9];$parring=$twar[10];$shield=$twar[11];
  35. 		} else {
  36. 			$uklon=$twar[6];$parring=$twar[7];$shield=$twar[8];
  37. 			if ($tdef[0]=="p.d.u" && $fwar[4]) {if(rand(0,100)<=$tdef[3]) $uklon+=35; $l_i[$loc][$to]["def"]=""; $t2=$tdef[1];}
  38. 			if ($tdef[0]=="p.d.re") {if(rand(0,100)<=$tdef[3]) $uklon+=20; $l_i[$loc][$to]["def"]=""; $t2=$tdef[1];}
  39. 			if ($tdef[0]=="p.d.p") {if(rand(0,100)<=$tdef[3]) $parring*=2; $l_i[$loc][$to]["def"]=""; $t2=$tdef[1];}
  40. 			}
  41.  
  42. 	if ($priem=="p.g" && $tdef[0]=="p.d.g") {if(rand(0,100)<=$tdef[3]) {$fwar[1]=0;$fwar[2]=0;} $l_i[$loc][$to]["def"]=""; $t2=$tdef[1];}
  43. 	if (substr($l_i[$loc][$from]["def"],0,6)=="p.d.re") {$fwar[1]=round($fwar[1]*0.6);$fwar[2]=round($fwar[2]*0.6);}
  44. 	if ($tdef[0]=="p.d.o" && !$rmagic) {if(rand(0,100)<=$tdef[3]) {$fwar[1]=round($fwar[1]*0.4);$fwar[2]=round($fwar[2]*0.4);} $t2=$tdef[1];} 
  45. 	if ($priem=="p.n" && $tdef[0]=="p.d.n" || $priem=="p.r" && $tdef[0]=="p.d.r" || $priem=="p.vs" && $tdef[0]=="p.d.s" || $priem=="p.vw" && strpos($l_i[$loc][$to]["equip"],"i.a.s.")!==false) $t2=$tdef[1];
  46. 	if($t2) $t2=" (".$t2.")";
  47.  
  48.  
  49. 	// крим если атакует не крима или животное в городе
  50. 	$fstp=strpos($fchar[0],"*");
  51. 	$tstp=strpos($tchar[0],"*");
  52. 	if ($fstp===false) $clan1=""; else $clan1=substr($fchar[0],$fstp+1,strrpos($fchar[0],"*")-$fstp-1);
  53. 	if ($tstp===false) $clan=""; else $clan=substr($tchar[0],$tstp+1,strrpos($tchar[0],"*")-$tstp-1);
  54. 	$fcrim = $fchar[9] || substr($from,0,4)=="n.c.";
  55.      
  56. 	$tcrim = $tchar[9] || substr($to,0,4)=="n.c." || $to=="n.w.Veelzevul" || $to=="n.whitewolf" || $game["floc"]==$loc && $game["fid"]==$to;
  57. 	if ($tloc[2]>=1099) {$tcrim = $tcrim || $tchar[14]=="p" || substr($to,0,4)=="n.p." || $fchar[14]=="p" && $tchar[14]=="t";} 
  58. 	if($fchar[13]) $wife=$to==substr($fchar[13],0,strlen($to)); else $wife=0;
  59. 	if ($from!=$to && !$fcrim && $tchar[7]!=$from && !$tcrim && (!$clan1 || ($clan1 && $clan1!=$clan)) && !$wife && $from!="u.qv" && $to!="u.qv" && $from!="u.admin"  && $to!="u.admin" && $from!="u.qw" && $to!="u.qw" && $from!="u.kv" && $to!="u.kv" && $from!="u.scream" && $to!="u.scream") {
  60. 		if (isset($l_i[$loc][$to]["owner"])) docrim($loc,$from,"живодер");	//$aloct[1] && substr($to,0,4)=="n.a." || 
  61. 		else if (substr($to,0,4)!="n.a.") docrim($loc,$from,"бандит");
  62. 		$fchar=explode("|",$l_i[$loc][$from]["char"]);
  63. 		}
  64.  
  65. 	// патроны
  66. 	if ($fwar[14]) 
  67. 	if (strpos($l_i[$loc][$from]["items"],$fwar[14].":")!==false) {
  68. 			additem($loc,$from,"",$fwar[14],1,"items","",0);
  69. 			if (strpos($l_i[$loc][$from]["items"],$fwar[14].":")===false) addjournal($loc,$from,"Боеприпасы кончились");
  70. 			}else {addjournal($loc,$from,"Нет боеприпасов"); return;}
  71. 	// цель конник
  72. 	if (substr($to,0,2)=="u." && $tchar[12] && !$rmagic && $fwar[12]!="магией") $fwar[0]-=10;
  73.       if (substr($to,0,4)=="n.c." ) 
  74.       if (strpos($l_i[$loc][$from]["equip"],"i.a.m.vlast")!==false) {$fwar[1]=$fwar[1]*2;$fwar[2]=$fwar[2]*2;}
  75.  
  76. 		// заклинание сорвалось?
  77. 		if ($fwar[0] || !$fwar[0] && !$rmagic && $fwar[12]!="магией") {
  78. 		// попадание
  79. 		if (rand(0,100)<=$fwar[0]) {
  80. 			// урон
  81. 			$damage=round(rand($fwar[1],$fwar[2]));
  82. //**мод**урон в замке**//
  83. 			if (substr($loc,0,4)=="c.1." || substr($loc,0,4)=="c.2." || substr($loc,0,4)=="c.3." || substr($loc,0,4)=="c.4." || substr($loc,0,4)=="c.5.") { 
  84. 			$gate=substr($loc,0,4)."gate";
  85. 			$d=explode("|",$l_tt[$gate]["d"]);
  86. 			if (strpos($d[0],"*")===false) $clanc=""; else $clanc=substr($d[0],strpos($d[0],"*")+1,strrpos($d[0],"*")-strpos($d[0],"*")-1);
  87. 			if ($clanc==$clan1) $damage+=rand(0,10); }
  88. 	require "f_time.dat";
  89. 	if ($tchar[9] && ($time >= 20.00 and $time <= 00.00) || ($time = 00.00 and $time < 08.00)) $damage+=rand(0,5); else $damage-=rand(0,5);
  90. 	//if (strpos($l_i[$loc][$login]['items'],'..fa')!==false) $ext=' огнем';
  91. 			// уклон
  92. 			if (rand(0,100)>$uklon) {
  93. 				// щит
  94. 				if ($parring && $shield) if (rand(0,100)<=$parring) {if (!$rmagic && $fwar[12]!="магией" && $fwar[12]!="молнией") {$damage-=$shield; $t1=" (щит ".$shield.")";} else {$resist=round($damage*$shield/100); if ($resist) $tsh=rand(0,$resist); else $tsh=0; $damage-=$tsh; $t1=" (сопр. магии ".$tsh.")";}}
  95. 				// броня
  96. 				if (!$rmagic && $fwar[12]!="магией" && $twar[5] && $fwar[12]!="молнией" && $twar[5]) $damage-=round(rand(0,$twar[5])); // armor
  97. 				if ($damage<0) $damage=0;
  98. 				if ($fwar[4]) $skrit=5; else if ($rmagic || $fwar[12]=="магией" || $fwar[12]=="молнией") $skrit=4; else $skrit=2;
  99. 				if (strpos($l_i[$loc][$from]['equip'],'..kp')!==false) $skrit=$skrit+4;
  100. 				if ($damage && rand(0,100)<$skrit) {$damage*=2; $tkrit=" критически";} else $tkrit="";
  101. 				if ($l_i[$loct][$to]["god"]) $damage=0;	// БОГ
  102. 				// урон
  103. 				$tchar[1]-=$damage;
  104. 				$tchar[5]=time();
  105. 				if ($tchar[1]<0) $tchar[1]=0;
  106. 				if (!$answer && !$rmagic) {
  107. 					addjournal($loc,$from,"вы".$ptitle_v.$tkrit." ".$fwar[12]." ".$damage.$t1.$t2,"","",", ");
  108. 					addjournal($loc,"all",$fchar[0].$ptitle_v.$tkrit." ".$fwar[12]." ".$damage.$t1.$t2,$from,"",", ");}
  109. 					else {
  110. 					addjournal($loc,$from,"Вы".$ptitle_v." по ".$tchar[0].$tkrit." ".$fwar[12]." ".$damage.$t1.$t2);
  111. 					addjournal($loc,$to,$fchar[0].$ptitle_v." по вам".$tkrit." ".$fwar[12]." ".$damage.$t1.$t2);
  112. 					addjournal($loc,"all",$fchar[0].$ptitle_v." по ".$tchar[0].$tkrit." ".$fwar[12]." ".$damage.$t1.$t2,$from,$to);
  113. 					}
  114.  
  115. 				// жена/муж
  116. 				if(substr($to,0,2)=="u." && $tchar[13] && $tchar[1]<$tchar[2]) {
  117. 					$tm=explode(":",$tchar[13]);
  118. 					if(time()>$tm[1] && file_exists("online/".$tm[0]) && filesize("online/".$tm[0])!=1) {
  119. 						$tmf=file("online/".$tm[0]); 
  120. 						$tmf=trim($tmf[0]);
  121. 						if($tmf!=$loc) {
  122. 							loadloc($tmf);
  123. 							$tup=explode("|",$l_i[$tmf][$tm[0]]["user"]);
  124. 							if (strpos($aloct[0],"*")!==false) $aloct[0]=substr($aloct[0],0,strpos($aloct[0],"*"));
  125. 							if($tup[2]=="m") $ts="Ваша жена (".$aloct[0].") ранена!"; else $ts="Ваш муж (".$aloct[0].") ранен!";
  126. 							addjournal($tmf,$tm[0],"<a href=\"$PHP_SELF?sid=".$tm[0]."&p=".$tup[0]."&stele=1\">".$ts."</a>");
  127. 							$tm[1]=time()+300;
  128. 							$tchar[13]=implode(":",$tm);
  129. 							}
  130. 						}
  131. 					}
  132. 				// если убили, добавим труп
  133. 				if ($tchar[1]<1) {
  134. 					include "f_kill.dat";
  135. 					} else $l_i[$loct][$to]["char"]=implode("|",$tchar); // иначе сохраним в f_kill.dat
  136.  
  137. 				} else {if (!$answer) {
  138. 					if (!$rmagic && $fwar[12]!="магией" && $fwar[12]!="молнией") {
  139. 						addjournal($loct,$from,"вы".$ptitle_v." мимо (уклон)".$t2,"","",", "); 
  140. 						addjournal($loct,"all",$fchar[0].$ptitle_v." мимо (уклон)".$t2,$from,"",", ");
  141. 						} else {
  142. 							addjournal($loct,$from,"вы".$ptitle_v." мимо (уклон от магии)".$t2,"","",", "); 
  143. 							addjournal($loct,"all",$fchar[0].$ptitle_v." мимо (уклон от магии)".$t2,$from,"",", ");
  144. 							} 
  145. 					} else {
  146. 						if (!$rmagic && $fwar[12]!="магией" && $fwar[12]!="молнией") {
  147. 							addjournal($loct,$from,"Вы".$ptitle_v." по ".$tchar[0]." мимо (уклон)".$t2); 
  148. 							addjournal($loct,$to,$fchar[0]." по вам мимо (уклон)"); 
  149. 							addjournal($loct,"all",$fchar[0].$ptitle_v." по ".$tchar[0]." мимо (уклон)".$t2,$from,$to); 
  150. 							}else {
  151. 								addjournal($loct,$from,"Вы".$ptitle_v." по ".$tchar[0]." мимо (уклон от магии)".$t2); 
  152. 								addjournal($loct,$to,$fchar[0].$ptitle_v." по вам мимо (уклон от магии)".$t2); 
  153. 								addjournal($loct,"all",$fchar[0].$ptitle_v." по ".$tchar[0]." мимо (уклон от магии)".$t2,$from,$to); 
  154. 								}
  155. 						}
  156. 					}
  157. 			} else {if (!$answer && !$rmagic) {
  158. 					addjournal($loc,$from,"вы".$ptitle_v." мимо".$t2,"","",", ");
  159. 					addjournal($loc,"all",$fchar[0].$ptitle_v." мимо".$t2,$from,"",", ");
  160. 					} else {
  161. 					addjournal($loc,$from,"Вы".$ptitle_v." по ".$tchar[0]." мимо".$t2);
  162. 					addjournal($loc,$to,$fchar[0].$ptitle_v." по вам мимо".$t2);
  163. 					addjournal($loc,"all",$fchar[0].$ptitle_v." по ".$tchar[0]." мимо".$t2,$from,$to);
  164. 					}}
  165. 			}// заклинание сорвалось
  166.  
  167. 	// если npc свободен, то атакует
  168. 	if(isset($l_i[$loc][$from]) && ($answer || $rmagic)) {$fchar[7]=$to; $l_i[$loc][$from]["char"]=implode("|",$fchar);}
  169. 	if(isset($l_i[$loc][$from]) && isset($l_i[$loct][$to]) && $from!=$to && ($fwar[0] || !$fwar[0] && !$rmagic && $fwar[12]!="магией" && $fwar[12]!="молнией")) {
  170. 		if (substr($to,0,2)=="n." && !$tсhar[7]) {$tchar[7]=$from; $l_i[$loct][$to]["char"]=implode("|",$tchar);}
  171. 		if ($answer) attack($loct,$to,$from,0,0);
  172. 		}