open_map.pl

三国网页游戏原码 增加了亡命也就是判国 还修进了管理工具

#_/_/_/_/_/_/_/_/_/_/_/#
#_/    F MAP 夋柺    _/#
#_/_/_/_/_/_/_/_/_/_/_/#

sub OPEN_MAP {


	open(IN,"$MAP_LOG_LIST");
	@S_MOVE = <IN>;
	close(IN);

	$p=0;
	while($p<15){
		$S_MES .= "·$S_MOVE[$p]<BR>";
		$p++;
	}

	open(IN,"$MAP_LOG_LIST2");
	@S_MOVE = <IN>;
	close(IN);

	$p=0;
	while($p<20){
		$D_MES .= "·$S_MOVE[$p]<BR>";
		$p++;
	}

	&TIME_DATA;
	if($hour < 6){$time_img = 2;$table_font = "#FFFFFF";$table_color = "#000000";
	}elsif($hour > 18){$time_img = 2;$table_font = "#FFFFFF";$table_color = "#000000";
	}elsif($hour > 15){$time_img = 2;$table_font = "#FFFFFF";$table_color = "#804020";
	}elsif($hour > 12){$time_img = 1;$table_font = "#000000";$table_color = "#FFFFDC";
	}else{$time_img = 0;$table_font = "#000000";$table_color = "#FFEFCC";}

	open(IN,"$COUNTRY_LIST") or &ERR2('打不开文件.err no :country');
	@COU_DATA = <IN>;
	close(IN);
	foreach(@COU_DATA){
		($x2cid,$x2name,$x2ele,$x2mark)=split(/<>/);
		$cou_name[$x2cid] = "$x2name";
		$cou_ele[$x2cid] = "$x2ele";
		$cou_mark[$x2cid] = "$x2mark";
	}


	$data_mes .= "<TR><Th colspan=3 bgcolor=$TD_C2>各国的资料</Th></tr><TR><Th bgcolor=$TD_C4>国家的登记人员</Th><Th bgcolor=$TD_C4>资金</Th><Th bgcolor=$TD_C4>国家HP</Th></TR>";
	$country_no=0;$i=1;
	foreach(@COU_DATA){
		($xxcid,$xxname,$xxele,$xxnum,$xxins,$xxind,$xxall,$xxgold,$xxhp,$xxmaxhp,$xxstr,$xxvit,$xxagi)=split(/<>/);
		if($all_gold){
		$n_gold = int(($xxgold/($all_gold))*1000)/10;
		}else{
		$n_gold = 0;
		}
		if($all_num){
		$n_num  = int(($xxnum/($all_num))*1000)/10;
		}else{
		$n_num  = 0;
		}
		$data_mes .= "<TR><Th bgcolor=$ELE_BG[$xxele] colspan=3><font color=$ELE_C[$xxele]>$xxname 国家</Th></TR><TR><Th bgcolor=$TD_C4>$xxnum名($n_num\%)</Th><Th bgcolor=$TD_C4>$xxgold Gold($n_gold\%)</Th><Th bgcolor=$TD_C4>$xxhp/$xxmaxhp</Th></TR>";
		$c_gold[$i] = $xxgold;
		$c_num[$i] = $xxnum;
		$i++;
	}

	$zmes="";

	&HEADER;
print <<"EOM";
<TABLE bgcolor=$TABLE_C width=100% border="0">
  <TBODY>
    <TR>
      <TD bgcolor=$table_color width=40%>
      <TABLE width=70% border="0">
        <TBODY>
          <TR>
            <TH><font color=$table_font><font size=4>$GAME_TITLE</font> <BR>- 大 陆 地 地 图 -</font></TH>
          </TR>
        </TBODY>
      </TABLE>
      <TABLE bgcolor=$TD_C2 background="$IMG/mapbg.gif" width=100% height=5 border="0">
        <TBODY>
          <TR>
            <TD width=20 bgcolor=$TD_C2>-</TD>
EOM
	open(IN,"$TOWN_LIST") or &ERR("不会打开被指定的文件夹.");
	@TOWN_DATA = <IN>;
	close(IN);

    for($i=1;$i<11;$i++){
		print "<TD width=20 bgcolor=$TD_C1>$i</TD>";
	}
	print "</TR>";
     for($i=0;$i<10;$i++){
		$n = $i+1;
		print "<TR><TD bgcolor=$TD_C3>$n</td>";
		for($j=0;$j<10;$j++){
				$m_hit=0;
				foreach(@TOWN_DATA){
					($zzname,$zzcon,$zznum,$zznou,$zzsyo,$zzshiro,$zznou_max,$zzsyo_max,$zzshiro_max,$zzpri,$zzx,$zzy)=split(/<>/);
					if("$zzx" eq "$j" && "$zzy" eq "$i"){$m_hit=1;last;}
				}
				if($m_hit){
					if($zzname eq "洛阳" || $zzname eq "建业" || $zzname eq "成都" || $zzname eq "业" ){
						print "<TH bgcolor=$ELE_BG[$cou_ele[$zzcon]]><img src=$IMG/m_1.gif width=16 height=16 border=0 alt=$zzname【$cou_name[$zzcon]】></TH>";
					}else{
						print "<TH bgcolor=$ELE_BG[$cou_ele[$zzcon]]><img src=$IMG/m_4.gif width=16 height=16 border=0 alt=$zzname【$cou_name[$zzcon]】></TH>";
					}
				}else{
					print "<TH>&nbsp;</TH>";
				}
		}
		print "</TR>";
	}

print <<"EOM";
        </TBODY>
      </TABLE>
      </TD>
      <TD bgcolor=$TD_C3>
      <TABLE width=100% border="0">
        <TBODY>
          <TR>
            <TH bgcolor=$TD_C4>MAP LOG</TH></TR><TR>
<TD bgcolor=$TD_1>$S_MES</TD>
          </TR>
        </TBODY>
      </TABLE>
</TD>
    </TR>
<TR>      <TD colspan=2 bgcolor=$TD_C3>
      <TABLE width=100% border="0">
        <TBODY>
          <TR>
            <TH bgcolor=$TD_C4>史记</TH></TR><TR>
<TD bgcolor=$TD_1>$D_MES</TD>
          </TR>
        </TBODY>
      </TABLE>
</TD>
    </TR>
  </TBODY>
</TABLE>
※不知\0\1\2\3\名字\表\表示。
<p>
$daytime
EOM
	&FOOTER;
	exit;

}
1;