get_sol.pl

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

#_/_/_/_/_/_/_/_/#
#      挜暫      #
#_/_/_/_/_/_/_/_/#

sub GET_SOL {

	if($in{'no'} eq ""){&ERR("NO:没有选择");}
	&CHARA_MAIN_OPEN;
	&TIME_DATA;

	&HEADER;
	$no = $in{'no'} + 1;

	$get_sol = $klea - $ksol;
	print <<"EOM";
<TABLE border=0 width=100% height=100%><TR><TD align=center>
<TABLE border=0 width=100%>
<TR><TH bgcolor=414141>
<font color=ffffff> - 微 兵 - </font>
</TH></TR>
<TR><TD>

<TABLE bgcolor=$ELE_BG[$xele]><TBODY bgcolor=$ELE_C[$xele]>
<TR><TH colspan=7 bgcolor=$ELE_BG[$xele]><font color=$ELE_C[$xele]>$kname</font></TH></TR>

<TR><TD rowspan=2 width=5><img src=$IMG/$kchara.gif></TD><TD>武力</TD><TH>$kstr</TH><TD>智力</TD><TH>$kint</TH><TD>统率力</TD><TH>$klea</TH></TR>
<TR><TD>金钱</TD><TH>$kgold</TH><TD>米</TD><TH>$krice</TH><TD>贡献</TD><TH>$kcex</TH></TR>
<TR><TD>所属国家</TD><TH colspan=2>$cou_name[$kcon]国家</TH><TD>士兵</TD><TH>$ksol</TH><TD>训练</TD><TH>$kgat</TH></TR>
</TBODY></TABLE>
</TD></TR>
<TR><TD>
<TABEL bgcolor=#AA0000><TR><TD bgcolor=#000000>
<font color=white>军队微兵<BR>种类不同的兵和以前的兵将被解雇<BR>兵每月的生活费1人吃1米</font>
</TD></TR></TABLE>
</TD></TR>
<TR><TD>
雇用名字吗?(最大$kleaw人)
<TABLE bgcolor=$TABLE_C><TBODY bgcolor=$TD_C3>
<TR><TH>种类</TH><TH>攻击力</TH><TH>防御力</TH><TH>雇用金钱</TH><TH>人数</TH><TD></TD></TR>
<TR><TH>$SOL_TYPE[0]</TD><TH>△</TH><TH>△</TH><TH>钱 10</TH><form action="$COMMAND" method="POST"><TD>
<input type=hidden name=id value=$kid><input type=hidden name=pass value=$kpass>
<input type=text name=num value=$get_sol size=4>人
<input type=hidden name=no value=$in{'no'}>
<input type=hidden name=type value=0>
<input type=hidden name=mode value=10>
</TD><TD><input type=submit value=\"雇用\"></TD></form></TR>

<TR><TH>$SOL_TYPE[1]</TD><TH>○</TH><TH>△</TH><TH>钱 20</TH><form action="$COMMAND" method="POST"><TD>
<input type=hidden name=id value=$kid><input type=hidden name=pass value=$kpass>
<input type=text name=num value=$get_sol size=4>人
<input type=hidden name=no value=$in{'no'}>
<input type=hidden name=type value=1>
<input type=hidden name=mode value=10>
</TD><TD><input type=submit value=\"雇用\"></TD></form></TR>

<TR><TH>$SOL_TYPE[2]</TD><TH>△</TH><TH>◎</TH><TH>钱 30</TH><form action="$COMMAND" method="POST"><TD>
<input type=hidden name=id value=$kid><input type=hidden name=pass value=$kpass>
<input type=text name=num value=$get_sol size=4>人
<input type=hidden name=no value=$in{'no'}>
<input type=hidden name=type value=2>
<input type=hidden name=mode value=10>
</TD><TD><input type=submit value=\"雇用\"></TD></form></TR>

<TR><TH>$SOL_TYPE[3]</TD><TH>◎</TH><TH>○</TH><TH>钱 50</TH><form action="$COMMAND" method="POST"><TD>
<input type=hidden name=id value=$kid><input type=hidden name=pass value=$kpass>
<input type=text name=num value=$get_sol size=4>人
<input type=hidden name=no value=$in{'no'}>
<input type=hidden name=type value=3>
<input type=hidden name=mode value=10>
</TD><TD><input type=submit value=\"雇用\"></TD></form></TR>

</TABLE>

<form action="$FILE_STATUS" method="post">
<input type=hidden name=id value=$kid>
<input type=hidden name=pass value=$kpass>
<input type=hidden name=mode value=STATUS>
<input type=submit value="返回"></form></CENTER>
</TD></TR></TABLE>
</TD></TR></TABLE>

EOM

	&FOOTER;

	exit;

}
1;