⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 hima.cgi

📁 挖矿游戏源代码 很好的哦 可以研究
💻 CGI
📖 第 1 页 / 共 3 页
字号:
🔍
123 
#!/usr/bin/perl

#------------------------------------------------------#
#　FF ADVENTURE v0.21
#　programed by CUMRO
#
#　http://cgi.members.interq.or.jp/sun/cumro/mm/
#　cumro@sun.interq.or.jp
#
#  FF ADVENTURE(改) v1.104
#  remodeling by GUN
#  http://www.gun-online.com/
#  webmaster@gun-online.com
#------------------------------------------------------#

# 日本语ライブラリの读み??み
require 'jcode.pl';

# 初期设定ファイルの读み??み
require 'ffadventure.ini';

# [设定はここまで]------------------------------------------------------------#
# これより下は、CGIのわかる方以外は、变更しないほうが良いです。
#-----------------------------------------------------------------------------#

if($mente) { &error("现在バ—ジョンアップ中です。しばらくお待ちください。"); }
&decode;
if($mode eq 'himatubusi') { &himatubusi; }
else { &error("アクセスできません"); }

#--------------------#
#  モンスタ—バトル  #
#--------------------#
sub himatubusi {
	
	if($battle_flag) { &error("现在战斗中です。少しお待ちになってから战斗してください。"); }

	$battle_flag=1;

	open(IN,"./charalog/$in{'id'}.cgi") or &error('ファイルを开けませんでした。');
	@battle = <IN>;
	close(IN);

	foreach(@battle){
		($kid,$kpass,$ksite,$kurl,$kname,$ksex,$kchara,$kn_0,$kn_1,$kn_2,$kn_3,$kn_4,$kn_5,$kn_6,$ksyoku,$khp,$kmaxhp,$kex,$klv,$kgold,$klp,$ktotal,$kkati,$kwaza,$kitem,$kmons,$khost,$kdate,$kmori,$kdef,$ktac,$kkumite) = split(/<>/);
		if($in{'id'} eq "$kid") { last; }
	}

	&read_hima;

	

	if($in{'site'}) { $ksite = $in{'site'}; }
	if($in{'url'}) { $kurl = $in{'url'}; }
	if($in{'waza'}) { $kwaza = $in{'waza'}; }
	if($in{'c_name'}) { $kname = $in{'c_name'}; }
	$khp_flg = $khp;
	$whp_flg = $whp;

	$i=1;$j=0;@battle_date=();
	foreach(1..$turn) {
		$dmg1 = $klv * (int(rand(3)) + 1);
		$dmg2 = $wlv * (int(rand(3)) + 1);
		$clit1 = "";
		$clit2 = "";
		$com1 = "";
		$com2 = "";
		$kawasi1 = "";
		$kawasi2 = "";
		$sake1 = $kn_5 - $wn_4;
		$sake2 = $wn_5 - $kn_4;


			# 挑战者ダメ—ジ计算
			if($ksyoku == 0){
				$com1 = "$knameは、剑を取って\构\えた！！ <FONT COLOR=\"#204DB5\">磨き拔かれた刚剑が天地霸王の如く敌を斩り捌くッ！！</FONT><p>";
				if(0 == int(rand($waza_ritu))) {
					$com1 .= "<font size=5>$kname「<b>$kwaza</b>」</font><p><font color=\"#CC6699\" size=5><b>$hissatu[0]</b></font>\n";
					$dmg1 = $dmg1 * 5;
				}
				$dmg1 = $dmg1 + int(rand($kn_0));
			}elsif($ksyoku == 1){
				$com1 = "$knameは、杖を揭げ咏唱を始めた！！ <FONT COLOR=\"#AC3011\">古代より生まれし言叶が红莲の炎を作り上げ、敌を包むッ！！</FONT><p>";
				if(0 == int(rand($waza_ritu))) {
					$com1 .= "<font size=5>$kname「<b>$kwaza</b>」</font><p><font color=\"#CC6699\" size=5><b>$hissatu[1]</b></font>\n";
					$dmg1 = $dmg1 * 5;
				}
				$dmg1 = $dmg1 + int(rand($kn_1));
			}elsif($ksyoku == 2){
				$com1 = "$knameは、神に祈りを捧げた！！ <FONT COLOR=\"#929197\">污れ无き心は天に届き、圣なる力が邪なる者を肃正するッ！！</FONT><p>";
				if(0 == int(rand($waza_ritu))) {
					$com1 .= "<font size=5>$kname「<b>$kwaza</b>」</font><p><font color=\"#CC6699\" size=5><b>$hissatu[2]</b></font>\n";
					$dmg1 = $dmg1 * 5;
				}
				$dmg1 = $dmg1 + int(rand($kn_2));
			}elsif($ksyoku == 3){
				$com1 = "$knameは、敌の目の前から姿を消した！！ <FONT COLOR=\"#918293\">目标を见失った敌は成す术无く斩られて行くッ！！</FONT><p>";
				if(0 == int(rand($waza_ritu))) {
					$com1 .= "<font size=5>$kname「<b>$kwaza</b>」</font><p><font color=\"#CC6699\" size=5><b>$hissatu[3]</b></font>\n";
					$dmg1 = $dmg1 * 5;
				}
				$dmg1 = $dmg1 + int(rand($kn_4));
			}elsif($ksyoku == 4){
				$com1 = "$knameは、弓を引いた！！ <FONT COLOR=\"#76A014\">放たれた矢は风を斩り、真空と化して敌の心脏を贯くッ！！</FONT><p>";
				if(0 == int(rand($waza_ritu))) {
					$com1 .= "<font size=5>$kname「<b>$kwaza</b>」</font><p><font color=\"#CC6699\" size=5><b>$hissatu[4]</b></font>\n";
					$dmg1 = $dmg1 * 5;
				}
				$dmg1 = $dmg1 + int(rand($kn_4)) + int(rand($kn_0));
			}elsif($ksyoku == 5){
				$com1 = "$knameは、锁を龙の如く操った！！ <FONT COLOR=\"#824D8C\">命を贳い受けた锁が念りを上げ、敌を缚り上げるッ！！</FONT><p>";
				if(0 == int(rand($waza_ritu))) {
					$com1 .= "<font size=5>$kname「<b>$kwaza</b>」</font><p><font color=\"#CC6699\" size=5><b>$hissatu[5]</b></font>\n";
					$dmg1 = $dmg1 * 6;
				}
				$dmg1 = $dmg1 + (int(rand($kn_1)) + int(rand($kn_4)));
			}elsif($ksyoku == 6){
				$com1 = "$knameは、乐器を奏でた！！ <FONT COLOR=\"#BFC910\">その美しい音色が刃となり、敌をあの世に诱うッ！！</FONT><p>";
				if(0 == int(rand($waza_ritu))) {
					$com1 .= "<font size=5>$kname「<b>$kwaza</b>」</font><p><font color=\"#CC6699\" size=5><b>$hissatu[6]</b></font>\n";
					$dmg1 = $dmg1 * 6;
				}
				$dmg1 = $dmg1 + (int(rand($kn_4)) + int(rand($kn_6)));
			}elsif($ksyoku == 7){
				$com1 = "$knameは、身体中から苍い电流を发した！！ <FONT COLOR=\"#07079A\">何にも属さぬ稻妻が轰き、敌の生命を绝つッ！！</FONT><p>";
				if(0 == int(rand($waza_ritu))) {
					$com1 .= "<font size=5>$kname「<b>$kwaza</b>」</font><p><font color=\"#CC6699\" size=5><b>$hissatu[7]</b></font>\n";
					$dmg1 = $dmg1 * 6;
				}
				$dmg1 = $dmg1 + (int(rand($kn_1)) + int(rand($kn_3)));
			}elsif($ksyoku == 9){
				$com1 = "$knameは、神圣魔法の咏唱を始めた。<FONT COLOR=\"#E2A607\">圣なる波动が体を包むッ！！ 波动は天の光に姿を变えて敌を烧き焦すッ！！</FONT><p>";
				if(0 == int(rand($waza_ritu))) {
					$com1 .= "<font size=5>$kname「<b>$kwaza</b>」</font><p><font color=\"#CC6699\" size=5><b>$hissatu[9]</b></font>\n";
					$dmg1 = $dmg1 * 8;
				}
				$dmg1 = $dmg1 * (int(rand($kn_1)) + int(rand($kn_2)));
			}elsif($ksyoku == 8){
				$com1 = "$knameは、翼を广げ空高く舞った！！ <FONT COLOR=\"#22C8DF\">神の力を宿した枪が主君に逆らいし邪なる敌を贯くッ！！</FONT><p>";
				if(0 == int(rand($waza_ritu))) {
					$com1 .= "<font size=5>$kname「<b>$kwaza</b>」</font><p><font color=\"#CC6699\" size=5><b>$hissatu[8]</b></font>\n";
					$dmg1 = $dmg1 * 8;
				}
				$dmg1 = $dmg1 + int(rand($kn_0)) + int(rand($kn_2));
			}elsif($ksyoku == 10){
				$com1 = "$knameは、剑を天に翳した！！ <FONT COLOR=\"#DEC90C\">大いなる父、神の名の元に敌を斩るッ！！</FONT><p>";
				if(0 == int(rand($waza_ritu))) {
					$com1 .= "<font size=5>$kname「<b>$kwaza</b>」</font><p><font color=\"#CC6699\" size=5><b>$hissatu[10]</b></font>\n";
					$dmg1 = $dmg1 * 9;
				}
				$dmg1 = $dmg1 + int(rand($kn_0)) + int(rand($kn_2));
			}elsif($ksyoku == 11){
				$com1 = "$knameは、刀を拔き放った！！ <FONT COLOR=\"#6D0BE6\">东方より传わりし剑术、その极意は、一刀两断ッ！！</FONT><p>";
				if(0 == int(rand($waza_ritu))) {
					$com1 .= "<font size=5>$kname「<b>$kwaza</b>」</font><p><font color=\"#CC6699\" size=5><b>$hissatu[11]</b></font>\n";
					$dmg1 = $dmg1 * 9;
				}
				$dmg1 = $dmg1 + int(rand($kn_0)) + int(rand($kn_5));
			}elsif($ksyoku == 12){
				$com1 = "$knameは、静かに精神集中した。<FONT COLOR=\"#2B3842\">鼓动が秘めたる力を解放するッ！！ 拳は波动を宿し敌を碎くッ！！</FONT><p>";
				if(0 == int(rand($waza_ritu))) {
					$com1 .= "<font size=5>$kname「<b>$kwaza</b>」</font><p><font color=\"#CC6699\" size=5><b>$hissatu[12]</b></font>\n";
					$dmg1 = $dmg1 * 9;
				}
				$dmg1 = $dmg1 + int(rand($kn_0)) + int(rand($kn_3));
			}elsif($ksyoku == 13){
				$com1 = "$knameは、暗の中に姿を消した。<FONT COLOR=\"#84556B\">刹那の动きが岚となり、刃は疾风迅雷の如く敌を斩り舍てるッ！！</FONT><p>";
				if(0 == int(rand($waza_ritu2))) {
					$com1 .= "<font size=5>$kname「<b>$kwaza</b>」</font><p><font color=\"#CC6699\" size=5><b>$hissatu[13]</b></font>\n";
					$dmg1 = $dmg1 * 9;
				}
				$dmg1 = $dmg1 + int(rand($kn_0)) + int(rand($kn_4));
			}elsif($ksyoku == 14){
				$com1 = "$knameは、剑を强く握り缔めた！！ 负の斗气が剑に宿り、敌を绝望の渊に追いやるッ！！<p>";
				if(0 == int(rand($waza_ritu1))) {
					$com1 .= "<font size=5>$kname「<b>$kwaza</b>」</font><p><font color=\"#CC6699\" size=5><b>$hissatu[14]</b></font>\n";
					$dmg1 = $dmg1 * 25;
				}
				$dmg1 = $dmg1 + int(rand($kn_0)) + int(rand($kn_3));
			}elsif($ksyoku == 15){
				$com1 = "$knameは、剑に古代文字を书き入れた！！ <FONT COLOR=\"#FD0423\">魔力を??めた剑は红く光り、全てを斩り裂く冲击破を发するッ！！</FONT><p>";
				if(0 == int(rand($waza_ritu))) {
					$com1 .= "<font size=5>$kname「<b>$kwaza</b>」</font><p><font color=\"#CC6699\" size=5><b>$hissatu[15]</b></font>\n";
					$dmg1 = $dmg1 * 10;
				}
				$dmg1 = $dmg1 + int(rand($kn_0)) + int(rand($kn_1)) + int(rand($kn_4));
			}elsif($ksyoku == 16){
				$com1 = "$knameは、铳を\构\えた！！ <FONT COLOR=\"#81CC1C\">古代の遗产、マテリアに凝缩された魔力が弹丸に??められ敌を击つッ！！</FONT><p>";
				if(0 == int(rand($waza_ritu))) {
					$com1 .= "<font size=5>$kname「<b>$kwaza</b>」</font><p><font color=\"#CC6699\" size=5><b>$hissatu[16]</b></font>\n";
					$dmg1 = $dmg1 * 10;
				}
				$dmg1 = $dmg1 + int(rand($kn_1)) + int(rand($kn_4)) + int(rand($kn_5));
			}elsif($ksyoku == 17){
				$com1 = "$knameは、六芒星を描いた！！ <FONT COLOR=\"#FC4EFC\">异世界より呼ばれし者が命を受け、敌を亡き者と化すッ！！</FONT><p>";
				if(0 == int(rand($waza_ritu))) {
					$com1 .= "<font size=5>$kname「<b>$kwaza</b>」</font><p><font color=\"#CC6699\" size=5><b>$hissatu[17]</b></font>\n";
					$dmg1 = $dmg1 * 11;
				}
				$dmg1 = $dmg1 + int(rand($kn_1)) + int(rand($kn_2)) + int(rand($kn_6));
			}elsif($ksyoku == 18){
				$com1 = "$knameは、两腕を广げた！！ <FONT COLOR=\"#324F2F\">人知を越えた魔力が地球を摇るがすッ！！ 想像を绝する强大な力は全てを破坏するッ！！</FONT><p>";
				if(0 == int(rand($waza_ritu))) {
					$com1 .= "<font size=5>$kname「<b>$kwaza</b>」</font><p><font color=\"#CC6699\" size=5><b>$hissatu[18]</b></font>\n";
					$dmg1 = $dmg1 * 20;
				}
				$dmg1 = $dmg1 + int(rand($kn_1)) + int(rand($kn_2)) + int(rand($kn_3)) + int(rand($kn_4)) + int(rand($kn_5)) + int(rand($kn_6));
			}elsif($ksyoku == 19){
				$com1 = "$knameは、全ての武器を取り出した！！ 死角のない完璧な攻击が敌を翻弄し、知らぬ间に死を与えるッ！！<p>";
				if(0 == int(rand($waza_ritu))) {
					$com1 .= "<font size=5>$kname「<b>$kwaza</b>」</font><p><font color=\"#CC6699\" size=5><b>$hissatu[19]</b></font>\n";
					$dmg1 = $dmg1 * 13;
				}
				$dmg1 = $dmg1 + int(rand($kn_0)) + int(rand($kn_3)) + int(rand($kn_4)) + int(rand($kn_5));
			}elsif($ksyoku == 20){
				$com1 = "$knameは、タロットカ—ドを一枚卷った！！ 生か死か？ 全てはこの运命のカ—ド一枚に委ねられたッ！！<p>";
					$ura = int(rand(40));
				
			if(0 == $ura) {
				$com1 .= "<font size=5>THE MAGICIAN！！！！</font>\n";
				$dmg1 = $dmg1 + int(rand($kn_1)) + int(rand($kn_1)) + int(rand($kn_1)) * 30;
			}elsif(1 == $ura) {
				$com1 .= "<font size=5>THE CHARIOT！！！！</font>\n";
				$dmg1 = $dmg1 + int(rand($kn_0)) + int(rand($kn_0)) + int(rand($kn_0)) * 30;
			}elsif(2 == $ura) {
				$com1 .= "<font size=5>STRENGTH！！！</font>\n";
				$dmg1 = $dmg1 + int(rand($kn_0)) + int(rand($kn_3)) * 15;
			}elsif(3 == $ura) {
				$com1 .= "<font size=5>THE HIGH PRIESTESS！！！</font>\n";
				$dmg1 = $dmg1 + int(rand($kn_2)) + int(rand($kn_6)) * 13;
			}elsif(4 == $ura) {
				$com1 .= "<font size=5>THE HIEROPHANT！！！！</font>\n";
				$dmg1 = $dmg1 + int(rand($kn_2)) + int(rand($kn_2)) + int(rand($kn_6)) * 20;
			}elsif(5 == $ura) {
				$com1 .= "<font size=5>THE EMPRESS！！！！</font>\n";
				$dmg1 = $dmg1 + int(rand($kn_6)) + int(rand($kn_6)) + int(rand($kn_6)) * 15;
			}elsif(6 == $ura) {
				$com1 .= "<font size=5>THE EMPEROR！！！！！</font>\n";
				$dmg1 = $dmg1 + int(rand($kn_0)) + int(rand($kn_1)) + int(rand($kn_3)) + int(rand($kn_6)) * 20;
			}elsif(7 == $ura) {
				$com1 .= "<font size=5>THE LOVERS！！！！</font>\n";
				$dmg1 = $dmg1 + int(rand($kn_6)) * 13;
			}elsif(8 == $ura) {
				$com1 .= "<font size=5>THE HERMIT！！！！</font>\n";
				$dmg1 = $dmg1 + int(rand($kn_1)) + int(rand($kn_2)) * 13;
			}elsif(9 == $ura) {
				$com1 .= "<font size=5>WHEEL of FORTUNE！！！！</font>\n";
				$dmg1 = $dmg1 * int(rand(300));
			}elsif(10 == $ura) {
				$com1 .= "<font size=5>JUSTICE！！！！</font>\n";
				$dmg1 = $dmg1 + int(rand($kn_4)) + int(rand($kn_5)) * 13;
			}elsif(11 == $ura) {
				$com1 .= "<font size=5>THE HANGEDMAN！！！！</font>\n";
				$dmg1 = int(0);
			}elsif(12 == $ura) {
				$com1 .= "<font size=5>DEATH！！！！</font>\n";
				$dmg1 = int(0) - int(rand($kn_2)) - int(rand($kn_2)) - int(rand($kn_6)) * 20;
			}elsif(13 == $ura) {
				$com1 .= "<font size=5>TEMPERANCE！！！！</font>\n";
				$dmg1 = $dmg1 * int(rand($kn_4));
			}elsif(14 == $ura) {
				$com1 .= "<font size=5>THE DEVIL！！！！</font>\n";
				$dmg1 = int(0) - $dmg1 - int(rand($kn_2)) - int(rand($kn_2)) - int(rand($kn_2)) * 15;
			}elsif(15 == $ura) {
				$com1 .= "<font size=5>THE TOWER！！！！</font>\n";
				$dmg1 = int(0) - int(rand($kn_2)) - int(rand($kn_2)) - int(rand($kn_6)) * 13;
			}elsif(16 == $ura) {
				$com1 .= "<font size=5>THE STAR！！！！</font>\n";
				$dmg1 = $dmg1 + int(rand($kn_3)) * 13;
			}elsif(17 == $ura) {
				$com1 .= "<font size=5>THE MOON！！！！</font>\n";
				$dmg1 = $dmg1 - int(rand($kn_2)) - int(rand($kn_6)) * 13;
			}elsif(18 == $ura) {
				$com1 .= "<font size=5>THE SUN！！！！</font>\n";
				$dmg1 = $dmg1 + int(rand($kn_3)) + int(rand($kn_3)) * 13;
			}elsif(19 == $ura) {
				$com1 .= "<font size=5>THE JUDGEMENT！！！！</font>\n";
				$dmg1 = $dmg1 + int(rand($kn_2)) + int(rand($kn_2)) * int(rand($kn_2));
			}elsif(20 == $ura) {
123

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -