📄 kumite.cgi

📁 挖矿游戏源代码很好的哦可以研究
💻 CGI
📖 第 1 页 / 共 3 页
字号:
12 3 下一页
#!/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/
#  gun24@j-club.ne.jp
#------------------------------------------------------#

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

# 挑战者ライブラリの读み??み
require 'battle.pl';

# レジストライブラリの读み??み
require 'regist.pl';

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

# [设定はここまで]------------------------------------------------------------#

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

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

#┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
#┃   オ—トロ—ダ—
#┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
sub AUTOLOAD {
	my $name = ($AUTOLOAD =~ /^main::(.+)$/)[0];
	($FLAG{'autoload'}++ > 50) && die $AUTOLOAD; # 念のため无限ル—プ防止
	defined %SUB or &SUBS;
	if (!defined $SUB{$name}) {
		&error("定义されていない关数($AUTOLOAD)が呼ばれました。"); exit;
	}
	eval $SUB{$name}; length($@) && &error("EVAL ERROR: $@ ($AUTOLOAD)");
	delete $SUB{$name}; goto &{'main::' . $name};
}

sub SUBS {
%SUB = (
	kumite => <<'__SUB__',
#--------------#
#  腕试し大会  #
#--------------#
sub kumite {

	$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" and $in{'pass'} eq "$kpass") { last; }
	}

	if($in{'id'} ne "$kid" or $in{'pass'} ne "$kpass"){&error("オ—プンエラ—、ID·パスワ—ドが正しくありません。");}

	&read_winner;

	&read_hima;

	$numb = ($hajime - $kkumite);

	if(!$kulv){&error("オ—プンエラ—");}

	if($kitem){
		open(IN,"$item_file");
		@battle_item = <IN>;
		close(IN);

		foreach(@battle_item){
			($ci_no,$ci_name,$ci_dmg) = split(/<>/);
			if($kitem eq $ci_no) { last; }
		}
	}
	if($kuitem){
		open(IN,"$item_file");
		@battle_item = <IN>;
		close(IN);

		foreach(@battle_item){
			($kui_no,$kui_name,$kui_dmg) = split(/<>/);
			if($kuitem eq $kui_no) { last; }
		}
	}

	if($kdef){
		open(IN,"$def_file");
		@battle_def = <IN>;
		close(IN);

		foreach(@battle_def){
			($cd_no,$cd_name,$cd_dmg) = split(/<>/);
			if($kdef eq $cd_no) { last; }
		}
	}
	if($kudef){
		open(IN,"$def_file");
		@battle_def = <IN>;
		close(IN);

		foreach(@battle_def){
			($kud_no,$kud_name,$kud_dmg) = split(/<>/);
			if($kudef eq $kud_no) { last; }
		}
	}


	

	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;
	$kuhp_flg = $kumaxhp;

	$i=1;$j=0;@battle_date=();
	foreach(1..$turn) {
		$dmg1 = $klv * (int(rand(3)) + 1);
		$dmg2 = $kulv * (int(rand(3)) + 1);
		$clit1 = "";
		$clit2 = "";
		$com1 = "";
		$com2 = "";
		$kawasi1 = "";
		$kawasi2 = "";
		$sake1 = int(rand($kn_5)) - int(rand($kun_4));
		$sake2 = int(rand($kun_5)) - int(rand($kn_4));
		$kaihiritu1 = int($kn_5 / 2);
		$kaihiritu2 = int($kun_5 / 2);


	&tyousensya;

			# チャンプダメ—ジ计算
			if($kusyoku == 0){
				$dmg2 = $dmg2 + int(rand($kun_0)) + $kui_dmg;
				if($kuitem){ $com2 = "$kunameは、$kui_nameを取って\构\えた！<FONT COLOR=\"#204DB5\">磨き拔かれた$kui_nameが天地霸王の如く敌を斩り捌くッ！！</FONT><p>"; }
				else{ $com2 = "$kunameは、剑を取って\构\えた！！ <FONT COLOR=\"#204DB5\">磨き拔かれた刚剑が天地霸王の如く敌を斩り捌くッ！！</FONT><p>";}
			}elsif($kusyoku == 1){
				$dmg2 = $dmg2 + int(rand($kun_1)) + $kui_dmg;
				if($kuitem){ $com2 = "$kunameは、$kui_nameを揭げ咏唱を始めた！！ <FONT COLOR=\"#AC3011\">古代より生まれし言叶が红莲の炎を作り上げ、敌を包むッ！！</FONT><p>"; }
				else{ $com2 = "$kunameは、杖を揭げ咏唱を始めた！！ <FONT COLOR=\"#AC3011\">古代より生まれし言叶が红莲の炎を作り上げ、敌を包むッ！！</FONT><p>";}
			}elsif($kusyoku == 2){
				$dmg2 = $dmg2 + int(rand($kun_2)) + $kui_dmg;
				if($kuitem){ $com2 = "$kunameは、$kui_nameを天にかざし神に祈りを捧げた！！ <FONT COLOR=\"#929197\">污れ无き心は天に届き、圣なる力が邪なる者を肃正するッ！！</FONT><p>"; }
				else{ $com2 = "$kunameは、神に祈りを捧げた！！ <FONT COLOR=\"#929197\">污れ无き心は天に届き、圣なる力が邪なる者を肃正するッ！！</FONT><p>";}
			}elsif($kusyoku == 3){
				$dmg2 = $dmg2 + int(rand($kun_4)) + $kui_dmg;
				if($kuitem){ $com2 = "$kunameは、$kui_nameを掴み、敌の目の前から姿を消した！！ <FONT COLOR=\"#918293\">目标を见失った敌は成す术无く伤が增えていくッ！！</FONT><p>"; }
				else{ $com2 = "$kunameは、敌の目の前から姿を消した！！<FONT COLOR=\"#918293\"> 目标を见失った敌は成す术无く斩られて行くッ！！</FONT><p>";}
			}elsif($kusyoku == 4){
				$dmg2 = $dmg2 + int(rand($kun_4)) + int(rand($kun_0)) + $kui_dmg;
				if($kuitem){ $com2 = "$kunameは、$kui_nameで攻击！！"; }
				else{ $com2 = "$kunameは、弓を引いた！！ <FONT COLOR=\"#76A014\">放たれた矢は风を斩り、真空と化して敌の心脏を贯くッ！！</FONT><p>";}
			}elsif($kusyoku == 5){
				$dmg2 = $dmg2 + (int(rand($kun_1)) + int(rand($kun_4))) + $kui_dmg;
				if($kuitem){ $com2 = "$kunameは、$kui_nameを龙の如く操った！！ <FONT COLOR=\"#824D8C\">命を贳い受けた$kui_nameが念りを上げ、敌に向かっていくッ！！</FONT><p>"; }
				else{ $com2 = "$kunameは、锁を龙の如く操った！！ <FONT COLOR=\"#824D8C\">命を贳い受けた锁が念りを上げ、敌を缚り上げるッ！！</FONT><p>";}
			}elsif($kusyoku == 6){
				$dmg2 = $dmg2 + int(rand($kun_4)) + int(rand($kun_6)) + $kui_dmg;
				if($kuitem){ $com2 = "$kunameは、$kui_nameで攻击！！"; }
				else{ $com2 = "$kunameは、乐器を奏でた！！ <FONT COLOR=\"#BFC910\">その美しい音色が刃となり、敌をあの世に诱うッ！！</FONT><p>";}
			}elsif($kusyoku == 7){
				$dmg2 = $dmg2 + (int(rand($kun_1)) + int(rand($kun_3))) + $kui_dmg;
				if($kuitem){ $com2 = "$kunameは、$kui_nameを目の前に突き出した！！<FONT COLOR=\"#07079A\">$kui_nameから发した何にも属さぬ稻妻が轰き、敌の生命を绝つッ！！</FONT><p>"; }
				else{ $com2 = "$kunameは、身体中から苍い电流を发した！！ <FONT COLOR=\"#07079A\">何にも属さぬ稻妻が轰き、敌の生命を绝つッ！！</FONT><p>";}
			}elsif($kusyoku == 8){
				$dmg2 = $dmg2 + (int(rand($kun_0)) + int(rand($kun_2))) + $kui_dmg;
				if($kuitem){ $com2 = "$kunameは、$kui_nameを\构\え空高く舞った！！ <FONT COLOR=\"#22C8DF\">神の力を宿した$kui_nameが主君に逆らいし邪なる敌を贯くッ！！</FONT><p>"; }
				else{ $com2 = "$kunameは、翼を广げ空高く舞った！！ <FONT COLOR=\"#22C8DF\">神の力を宿した枪が主君に逆らいし邪なる敌を贯くッ！！</FONT><p>";}
			}elsif($kusyoku == 9){
				$dmg2 = $dmg2 + int(rand($kun_1)) + int(rand($kun_2)) + $kui_dmg;
				if($kuitem){ $com2 = "$kunameは、$kui_nameを揭げ神圣魔法の咏唱を始めた。<FONT COLOR=\"#E2A607\">圣なる波动が体を包むッ！！ 波动は天の光に姿を变えて敌を烧き焦すッ！！</FONT><p>"; }
				else{ $com2 = "$kunameは、神圣魔法の咏唱を始めた。<FONT COLOR=\"#E2A607\">圣なる波动が体を包むッ！！ 波动は天の光に姿を变えて敌を烧き焦すッ！！</FONT><p>";}
			}elsif($kusyoku == 10){
				$dmg2 = $dmg2 + int(rand($kun_0)) + int(rand($kun_2)) + $kui_dmg;
				if($kuitem){ $com2 = "$kunameは、$kui_nameを天に翳した！！ <FONT COLOR=\"#DEC90C\">大いなる父、神の名の元に敌を斩るッ！！</FONT><p>"; }
				else{ $com2 = "$kunameは、剑を天に翳した！！ <FONT COLOR=\"#DEC90C\">大いなる父、神の名の元に敌を斩るッ！！</FONT><p>";}
			}elsif($kusyoku == 11){
				$dmg2 = $dmg2 + int(rand($kun_0)) + int(rand($kun_5)) + $kui_dmg;
				if($kuitem){ $com2 = "$kunameは、$kui_nameで攻击！！"; }
				else{ $com2 = "$kunameは、刀を拔き放った！！ <FONT COLOR=\"#6D0BE6\">东方より传わりし剑术、その极意は、一刀两断ッ！！</FONT><p>";}
			}elsif($kusyoku == 12){
				$dmg2 = $dmg2 + int(rand($kun_0)) + int(rand($kun_3)) + $kui_dmg;
				if($kuitem){ $com2 = "$kunameは、$kui_nameで攻击！！"; }
				else{ $com2 = "$kunameは、静かに精神集中した。<FONT COLOR=\"#2B3842\">鼓动が秘めたる力を解放するッ！！ 拳は波动を宿し敌を碎くッ！！</FONT><p>";}
			}elsif($kusyoku == 13){
				$dmg2 = $dmg2 + int(rand($kun_0)) + int(rand($kun_4)) + $kui_dmg;
				if($kuitem){ $com2 = "$kunameは、$kui_nameで攻击！！"; }
				else{ $com2 = "$kunameは、暗の中に姿を消した。<FONT COLOR=\"#84556B\">刹那の动きが岚となり、刃は疾风迅雷の如く敌を斩り舍てるッ！！</FONT><p>";}
			}elsif($kusyoku == 14){
				$dmg2 = $dmg2 + int(rand($kun_0)) + int(rand($kun_3)) + $kui_dmg;
				if($kuitem){ $com2 = "$kunameは、$kui_nameを强く握り缔めた！！ 负の斗气が$kui_nameに宿り、敌を绝望の渊に追いやるッ！！<p>"; }
				else{ $com2 = "$kunameは、剑を强く握り缔めた！！ 负の斗气が剑に宿り、敌を绝望の渊に追いやるッ！！<p>";}
			}elsif($kusyoku == 15){
				$dmg2 = $dmg2 + int(rand($kun_0)) + int(rand($kun_1)) + int(rand($kun_4)) + $kui_dmg;
				if($kuitem){ $com2 = "$kunameは、$kui_nameに古代文字を书き入れた！！ <FONT COLOR=\"#FD0423\">魔力を??めた$kui_nameは红く光り、全てを斩り裂く冲击破を发するッ！！</FONT><p>"; }
				else{ $com2 = "$kunameは、剑に古代文字を书き入れた！！ <FONT COLOR=\"#FD0423\">魔力を??めた剑は红く光り、全てを斩り裂く冲击破を发するッ！！</FONT><p>";}
			}elsif($kusyoku == 16){
				$dmg2 = $dmg2 + int(rand($kun_1)) + int(rand($kun_4)) + int(rand($kun_5)) + $kui_dmg;
				if($kuitem){ $com2 = "$kunameは、$kui_nameで攻击！！"; }
				else{ $com2 = "$kunameは、铳を\构\えた！！ <FONT COLOR=\"#81CC1C\">古代の遗产、マテリアに凝缩された魔力が弹丸に??められ敌を击つッ！！</FONT><p>";}
			}elsif($kusyoku == 17){
				$dmg2 = $dmg2 + int(rand($kun_1)) + int(rand($kun_2)) + int(rand($kun_6)) + $kui_dmg;
				if($kuitem){ $com2 = "$kunameは、$kui_nameで六芒星を描いた！！ <FONT COLOR=\"#FC4EFC\">异世界より呼ばれし者が命を受け、敌を亡き者と化すッ！！</FONT><p>"; }
				else{ $com2 = "$kunameは、六芒星を描いた！！ <FONT COLOR=\"#FC4EFC\">异世界より呼ばれし者が命を受け、敌を亡き者と化すッ！！</FONT><p>";}
			}elsif($kusyoku == 18){
				$dmg2 = $dmg2 + int(rand($kun_1)) + int(rand($kun_2)) + int(rand($kun_3)) + int(rand($kun_4)) + int(rand($kun_5)) + int(rand($kun_6)) + $kui_dmg;
				if($kuitem){ $com2 = "$kunameは、$kui_nameで攻击！！"; }
				else{ $com2 = "$kunameは、两腕を广げた！！ <FONT COLOR=\"#324F2F\">人知を越えた魔力が地球を摇るがすッ！！ 想像を绝する强大な力は全てを破坏するッ！！</FONT><p>";}
			}elsif($kusyoku == 19){
				$dmg2 = $dmg2 + int(rand($kun_0)) + int(rand($kun_3)) + int(rand($kun_4)) + int(rand($kun_5)) + $kui_dmg;
				if($kuitem){ $com2 = "$kunameは、$kui_nameを取り出した！！ 死角のない完璧な攻击が敌を翻弄し、知らぬ间に死を与えるッ！！<p>"; }
				else{ $com2 = "$kunameは、全ての武器を取り出した！！ 死角のない完璧な攻击が敌を翻弄し、知らぬ间に死を与えるッ！！<p>";}
			}elsif($kusyoku == 20){
				if($kuitem) {
					$com2 = "$kunameは$kui_nameを取り出した···<p>"; 
					if($kui_no eq 0234 or $kui_no eq 0235 or $kui_no eq 0236){
					$kuura = $kui_dmg;
						}else{
							$kuura = int(rand(40));
						}
				}else{ 
					$kuura = int(rand(40));
				}
				$com2 = "$kunameは、タロットカ—ドを一枚卷った！！ 生か死か？ 全てはこの运命のカ—ド一枚に委ねられたッ！！</FONT><p>";
				
			if(0 == $kuura) {
				$com2 .= "<font size=5>THE MAGICIAN！！！！</font>\n";
				$dmg2 = $dmg2 + int(rand($kun_1)) + int(rand($kun_1)) + int(rand($kun_1)) * 30;
			}elsif(1 == $kuura) {
				$com2 .= "<font size=5>THE CHARIOT！！！！</font>\n";
				$dmg2 = $dmg2 + int(rand($kun_0)) + int(rand($kun_0)) + int(rand($kun_0)) * 30;
			}elsif(2 == $kuura) {
				$com2 .= "<font size=5>STRENGTH！！！</font>\n";
				$dmg2 = $dmg2 + int(rand($kun_0)) + int(rand($kun_3)) * 15;
			}elsif(3 == $kuura) {
				$com2 .= "<font size=5>THE HIGH PRIESTESS！！！</font>\n";
				$dmg2 = $dmg2 + int(rand($kun_2)) + int(rand($kun_6)) * 13;
			}elsif(4 == $kuura) {
				$com2 .= "<font size=5>THE HIEROPHANT！！！！</font>\n";
				$dmg2 = $dmg2 + int(rand($kun_2)) + int(rand($kun_2)) + int(rand($kun_6)) * 20;
			}elsif(5 == $kuura) {
				$com2 .= "<font size=5>THE EMPRESS！！！！</font>\n";
				$dmg2 = $dmg2 + int(rand($kun_6)) + int(rand($kun_6)) + int(rand($kun_6)) * 15;
			}elsif(6 == $kuura) {
				$com2 .= "<font size=5>THE EMPEROR！！！！！</font>\n";
				$dmg2 = $dmg2 + int(rand($kun_0)) + int(rand($kun_1)) + int(rand($kun_3)) + int(rand($kun_6)) * 20;
12 3 下一页
⌨️ 快捷键说明

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