# GMR table sub routine
# ver 0.63beta6(06/12/14)
#
#table_job :ジョブ表示
#table_prod：合成スキル表示
#table_stat:ステータス表示
#table_limit:シンプル表示
#table_limit2:アイコン表示
#table_full2:フル表示
#table_full3:フル２表示
#table_mission:ミッション進行度表示
#table_assault:アサルト表示
#table_history:履歴表示
#table_custom;カスタムフィールド表示

sub table_job {
	print "<table cellpading=0 width=100% class=tbl><TR bgcolor=$indexcolor><TH width=2%>$index[0]</TH><TH width=8%><a href='$script?limit=$limit&level=$level&sort=15&mode=r'>$index[1]</a></TH><TH width=10%><a href='$script?limit=$limit&level=$level&sort=1'>$index[2]</a></TH><TH width=10%>$index[7]</TH>";
for ($j=0;$j<$job_max;$j++){
	$jn=$j+38;
	print "<TH width=2%><a href='$script?limit=$limit&level=$level&sort=$jn&mode=r'>$joblist[$j]</a></TH>";
}
print "<TH width=5%><a href='$script?limit=$limit&level=$level&sort=16&mode=r'>$index[8]</a></TH></TR>";

$count=0;

$number=1;
foreach $i (@all){

 ($no,$name,$pass,$anon,$race,$relm,$mainjob,$supportjob,$prof,$handle,$polhn,$mail,$home,$comment2,$point,$class,$time,$comment,$mrank,$etc[0],$etc[1],$etc[2],$prod[0],$prod[1],$prod[2],$prod[3],$prod[4],$prod[5],$prod[6],$prod[7],$prod[8],$prod[9],$prod[10],$prod[11],$prod[12],$prod[13],$prod[14],$prod[15],$lev[0],$lev[1],$lev[2],$lev[3],$lev[4],$lev[5],$lev[6],$lev[7],$lev[8],$lev[9],$lev[10],$lev[11],$lev[12],$lev[13],$lev[14],$lev[15],$lev[16],$lev[17],$lev[18],$lev[19])=split(/\t/,$i);
if($class_edit==0){
$class =~ s/&lt;/</g;
$class =~ s/&gt;/>/g;
}

if($count==$c_max){
	print "<table cellpading=0 width=100% class=tbl><TR bgcolor=$indexcolor><TH width=2%>$index[0]</TH><TH width=8%><a href='$script?limit=$limit&level=$level&sort=15&mode=r'>$index[1]</a></TH><TH width=10%><a href='$script?limit=$limit&level=$level&sort=1'>$index[2]</a></TH><TH width=10%>$index[7]</TH>";
for ($j=0;$j<$job_max;$j++){
	$jn=$j+38;
	print "<TH width=2%><a href='$script?limit=$limit&level=$level&sort=$jn&mode=r'>$joblist[$j]</a></TH>";
}
print "<TH width=5%><a href='$script?limit=$limit&level=$level&sort=16&mode=r'>$index[8]</a></TH></TR>";
$count=0;
}


$diary="";
$diaryfile="$diarydir$name.$diaryletter";
if(-e "$diaryfile"){
$diary="<a href='$script?function=prof&name=$name'><img src='$diarygif' border=0>";
if((-M $diaryfile)<1){
	$diary.="<img src='$upgif' border=0>";
}
$diary.="</a>";
}


$bgn="";

if($name eq $c_name){$bgn=" bgcolor=$mydata";} else {$bgn=" bgcolor=$otherdata";}
if($class eq ""){$class="&nbsp";}
if($point eq ""){$point=0;}

print "<TR$bgn><TD align=center>$no</TD><TD align=center>$class</TD><TD><a href='$script?function=profdetail&name=$name'>$name</a>$diary</TD>";

if(($anon ne "on") || ($anon_mode != 1 )){

if($lev[$mainjob]<10){
	$main_level="0$lev[$mainjob]";
} else {
	$main_level=$lev[$mainjob];
}


if($supportjob <99){
	$mod_level=int($lev[$mainjob]/2);
	if($mod_level==0){$mod_level=1;}
	if($mod_level>$lev[$supportjob]){$mod_level=$lev[$supportjob];}

if($mod_level<10){
	$mod_level="0$mod_level";
}
	print "<TD align=center>$joblist[$mainjob]$main_level/$joblist[$supportjob]$mod_level</TD>";
} else {
	print "<TD align=center>$joblist[$mainjob]$main_level</TD>";
}


	for ($j=0;$j<$job_max;$j++){
		$bg="";

		if($level ==1){
			$bg=" bgcolor=$color[int($lev[$j]/10)]";
		} else {
		if($j == $mainjob){$bg=" bgcolor=$maincolor";}
		if($j == $supportjob){$bg=" bgcolor=$supportcolor";}
		}
		
		print "<TD$bg align=center>$lev[$j]</TD>";
	}
} else {
	for ($j=0;$j<$job_max+1;$j++){
	print"<TD align=center>-</TD>";
	}
}

$date=substr($time,0,8)."<br>".substr($time,9,2).":".substr($time,11,2);
print "<TD align=center>$date</TD></TR>\n";

$count++;
$number++;

}

print "</table>";
}

sub table_prod{
	print "<table cellpading=0 width=100% class=tbl><TR bgcolor=$indexcolor><TH width=2%>$index[0]</TH><TH width=8%><a href='$script?limit=$limit&level=$level&sort=15&mode=r'>$index[1]</a></TH><TH width=10%><a href='$script?limit=$limit&level=$level&sort=1'>$index[2]</a></TH>";
for ($j=0;$j<$prod_max;$j++){
	$jn=$j+22;
	print "<TH width=2%><a href='$script?limit=$limit&level=$level&sort=$jn&mode=r'>$prodlist[$j]</a></TH>";
}
print "<TH width=5%><a href='$script?limit=$limit&level=$level&sort=16&mode=r'>$index[8]</a></TH></TR>";

$count=0;

$number=1;
foreach $i (@all){

 ($no,$name,$pass,$anon,$race,$relm,$mainjob,$supportjob,$prof,$handle,$polhn,$mail,$home,$comment2,$point,$class,$time,$comment,$mrank,$etc[0],$etc[1],$etc[2],$prod[0],$prod[1],$prod[2],$prod[3],$prod[4],$prod[5],$prod[6],$prod[7],$prod[8],$prod[9],$prod[10],$prod[11],$prod[12],$prod[13],$prod[14],$prod[15],$lev[0],$lev[1],$lev[2],$lev[3],$lev[4],$lev[5],$lev[6],$lev[7],$lev[8],$lev[9],$lev[10],$lev[11],$lev[12],$lev[13],$lev[14],$lev[15],$lev[16],$lev[17],$lev[18],$lev[19])=split(/\t/,$i);
    @prod_r = split(/,/,$etc[1]);

if($class_edit==0){
$class =~ s/&lt;/</g;
$class =~ s/&gt;/>/g;
}


if($count==$c_max){
	print "</table><table cellpading=0 width=100% class=tbl><TR bgcolor=$indexcolor><TH width=2%>$index[0]</TH><TH width=8%><a href='$script?limit=$limit&level=$level&sort=15&mode=r'>$index[1]</a></TH><TH width=10%><a href='$script?limit=$limit&level=$level&sort=1'>$index[2]</a></TH>";
for ($j=0;$j<$prod_max;$j++){
	$jn=$j+22;
	print "<TH width=2%><a href='$script?limit=$limit&level=$level&sort=$jn&mode=r'>$prodlist[$j]</a></TH>";
}
print "<TH width=5%><a href='$script?limit=$limit&level=$level&sort=16&mode=r'>$index[8]</a></TH></TR>";
$count=0;
}


$diary="";
$diaryfile="$diarydir$name.$diaryletter";
if(-e "$diaryfile"){
$diary="<a href='$script?function=prof&name=$name'><img src='$diarygif' border=0>";
if((-M $diaryfile)<1){
	$diary.="<img src='$upgif' border=0>";
}
$diary.="</a>";
}


$bgn="";

if($name eq $c_name){$bgn=" bgcolor=$mydata";} else {$bgn=" bgcolor=$otherdata";}
if($class eq ""){$class="&nbsp";}

print "<TR$bgn><TD align=center>$no</TD><TD align=center>$class</TD><TD><a href='$script?function=profdetail&name=$name'>$name</a>$diary</TD>";

if(($anon ne "on") || ($anon_mode != 1 )){

	for ($j=0;$j<$prod_max;$j++){
			$bg=" bgcolor=$color[$prod_r[$j]]";
		print "<TD$bg align=center title='$ranklist[$prod_r[$j]]'>$prod[$j]<BR>($ranklist[$prod_r[$j]])</TD>";
	}
} else {
	for ($j=0;$j<$prod_max;$j++){
	print"<TD align=center>-</TD>";
	}
}

$date=substr($time,0,8)."<br>".substr($time,9,2).":".substr($time,11,2);
print "<TD align=center>$date</TD></TR>\n";

$count++;
$number++;

}

print "</table>";


}
sub table_stat{

	print "<table cellpading=0 width=100% class=tbl><TR bgcolor=$indexcolor><TH width=2%>$index[0]</TH><TH width=10%><a href='$script?limit=$limit&level=$level&sort=15&mode=r'>$index[1]</a></TH><TH width=10%><a href='$script?limit=$limit&level=$level&sort=1'>$index[2]</a></TH><TH width=10%><a href='$script?limit=$limit&level=$level&sort=4'>$index[3]</a></TH><TH width=5%><a href='$script?limit=$limit&level=$level&sort=5'>$index[4]</a></TH><TH width=5%><a href='$script?limit=$limit&level=$level&sort=14&mode=r'>$index[5]</a></TH><TH width=10%><a href='$script?limit=$limit&level=$level&sort=18&mode=r'>$index[6]</a></TH><TH width=5%><a href='$script?limit=$limit&level=$level&sort=16&mode=r'>$index[8]</a></TR>";

$count=0;

$number=1;
foreach $i (@all){

 ($no,$name,$pass,$anon,$race,$relm,$mainjob,$supportjob,$prof,$handle,$polhn,$mail,$home,$comment2,$point,$class,$time,$comment,$mrank,$etc[0],$etc[1],$etc[2],$prod[0],$prod[1],$prod[2],$prod[3],$prod[4],$prod[5],$prod[6],$prod[7],$prod[8],$prod[9],$prod[10],$prod[11],$prod[12],$prod[13],$prod[14],$prod[15],$lev[0],$lev[1],$lev[2],$lev[3],$lev[4],$lev[5],$lev[6],$lev[7],$lev[8],$lev[9],$lev[10],$lev[11],$lev[12],$lev[13],$lev[14],$lev[15],$lev[16],$lev[17],$lev[18],$lev[19])=split(/\t/,$i);

if($class_edit==0){
$class =~ s/&lt;/</g;
$class =~ s/&gt;/>/g;
}

if($count==$c_max){
	print "</table><table cellpading=0 width=100% class=tbl><TR bgcolor=$indexcolor><TH width=2%>$index[0]</TH><TH width=10%><a href='$script?limit=$limit&level=$level&sort=15&mode=r'>$index[1]</a></TH><TH width=10%><a href='$script?limit=$limit&level=$level&sort=1'>$index[2]</a></TH><TH width=10%><a href='$script?limit=$limit&level=$level&sort=4'>$index[3]</a></TH><TH width=5%><a href='$script?limit=$limit&level=$level&sort=5'>$index[4]</a></TH><TH width=5%><a href='$script?limit=$limit&level=$level&sort=14&mode=r'>$index[5]</a></TH><TH width=10%><a href='$script?limit=$limit&level=$level&sort=18&mode=r'>$index[6]</a></TH><TH width=5%><a href='$script?limit=$limit&level=$level&sort=16&mode=r'>$index[8]</a></TR>";
$count=0;
}


$diary="";
$diaryfile="$diarydir$name.$diaryletter";
if(-e "$diaryfile"){
$diary="<a href='$script?function=prof&name=$name'><img src='$diarygif' border=0>";
if((-M $diaryfile)<1){
	$diary.="<img src='$upgif' border=0>";
}
$diary.="</a>";
}


$bgn="";

if($name eq $c_name){$bgn=" bgcolor=$mydata";} else {$bgn=" bgcolor=$otherdata";}
if($class eq ""){$class="&nbsp";}
if($point eq ""){$point=0;}

print "<TR$bgn><TD align=center>$no</TD><TD align=center>$class</TD><TD><a href='$script?function=profdetail&name=$name'>$name</a>$diary</TD>";

if($iconuse eq "yes"){
print "<TD align=center><img src=$icondir$facelist[$race]$facetypelist[$etc[0]]\.gif></TD>";
} else {
print "<TD align=center>$racelist[$race]</TD>";
}

print "<TD align=center>$relmlist[$relm]</TD><TD align=right>$point</TD><TD align=center>$mrank</TD>";

$date=substr($time,0,8)."<br>".substr($time,9,2).":".substr($time,11,2);
print "<TD align=center>$date</TD></TR>\n";

$count++;
$number++;

}

print "</table>";



}

sub table_limit {
	print "<table cellpading=0 width=100% class=tbl><TR bgcolor=$indexcolor><TH width=2%>$index[0]</TH><TH width=10%><a href='$script?limit=$limit&level=$level&sort=15&mode=r'>$index[1]</a></TH><TH width=10%><a href='$script?limit=$limit&level=$level&sort=1'>$index[2]</a></TH><TH width=10%>$index[7]</TH><TH>$index[9]</TH><TH width=5%><a href='$script?limit=$limit&level=$level&sort=16&mode=r'>$index[8]</a></TH></TR>";

$count=0;

$number=1;
foreach $i (@all){

	 ($no,$name,$pass,$anon,$race,$relm,$mainjob,$supportjob,$prof,$handle,$polhn,$mail,$home,$comment2,$point,$class,$time,$comment,$mrank,$etc[0],$etc[1],$etc[2],$prod[0],$prod[1],$prod[2],$prod[3],$prod[4],$prod[5],$prod[6],$prod[7],$prod[8],$prod[9],$prod[10],$prod[11],$prod[12],$prod[13],$prod[14],$prod[15],$lev[0],$lev[1],$lev[2],$lev[3],$lev[4],$lev[5],$lev[6],$lev[7],$lev[8],$lev[9],$lev[10],$lev[11],$lev[12],$lev[13],$lev[14],$lev[15],$lev[16],$lev[17],$lev[18],$lev[19])=split(/\t/,$i);

if($class_edit==0){
$class =~ s/&lt;/</g;
$class =~ s/&gt;/>/g;
}


if($count==$c_max){
	print "</table><table cellpading=0 width=100% class=tbl><TR bgcolor=$indexcolor><TH width=2%>$index[0]</TH><TH width=10%><a href='$script?limit=$limit&level=$level&sort=15&mode=r'>$index[1]</a></TH><TH width=10%><a href='$script?limit=$limit&level=$level&sort=1'>$index[2]</a></TH><TH width=10%>$index[7]</TH><TH>$index[9]</TH><TH width=5%><a href='$script?limit=$limit&level=$level&sort=16&mode=r'>$index[8]</a></TH></TR>";

$count=0;
}

$bgn="";

$diary="";
$diaryfile="$diarydir$name.$diaryletter";
if(-e "$diaryfile"){
$diary="<a href='$script?function=prof&name=$name'><img src='$diarygif' border=0>";
if((-M $diaryfile)<1){
	$diary.="<img src='$upgif' border=0>";
}
$diary.="</a>";
}


if($name eq $c_name){$bgn=" bgcolor=$mydata";} else {$bgn=" bgcolor=$otherdata";}
if($class eq ""){$class="&nbsp";}

print "<TR$bgn><TD align=center>$no</TD><TD align=center>$class</TD><TD><a href='$script?function=profdetail&name=$name'>$name</a>$diary</TD>";

if(($anon ne "on") || ($anon_mode != 1 )){

if($lev[$mainjob]<10){
	$main_level="0$lev[$mainjob]";
} else {
	$main_level=$lev[$mainjob];
}


if($supportjob <99){
	$mod_level=int($lev[$mainjob]/2);
	if($mod_level==0){$mod_level=1;}
	if($mod_level>$lev[$supportjob]){$mod_level=$lev[$supportjob];}

if($mod_level<10){
	$mod_level="0$mod_level";
}
	print "<TD align=center>$joblist[$mainjob]$main_level/$joblist[$supportjob]$mod_level</TD>";
} else {
	print "<TD align=center>$joblist[$mainjob]$main_level</TD>";
}


} else {
	print"<TD align=center>-</TD>";
}

$date=substr($time,0,8)."<br>".substr($time,9,2).":".substr($time,11,2);

print "<TD>$comment</TD><TD align=center>$date</TD></TR>\n";

$count++;
$number++;

}

print "</table>";
}

sub table_limit2 {
	print "<table cellpading=0 width=100% class=tbl><TR bgcolor=$indexcolor><TH width=2%>$index[0]</TH><TH width=2%>$index[3]</TH><TH width=10%><a href='$script?limit=$limit&level=$level&sort=15&mode=r'>$index[1]</a></TH><TH width=10%><a href='$script?limit=$limit&level=$level&sort=1'>$index[2]</a></TH><TH width=10%>$index[7]</TH><TH>$index[9]</TH><TH width=5%><a href='$script?limit=$limit&level=$level&sort=16&mode=r'>$index[8]</a></TH></TR>";

$count=0;

$number=1;
foreach $i (@all){

	 ($no,$name,$pass,$anon,$race,$relm,$mainjob,$supportjob,$prof,$handle,$polhn,$mail,$home,$comment2,$point,$class,$time,$comment,$mrank,$etc[0],$etc[1],$etc[2],$prod[0],$prod[1],$prod[2],$prod[3],$prod[4],$prod[5],$prod[6],$prod[7],$prod[8],$prod[9],$prod[10],$prod[11],$prod[12],$prod[13],$prod[14],$prod[15],$lev[0],$lev[1],$lev[2],$lev[3],$lev[4],$lev[5],$lev[6],$lev[7],$lev[8],$lev[9],$lev[10],$lev[11],$lev[12],$lev[13],$lev[14],$lev[15],$lev[16],$lev[17],$lev[18],$lev[19])=split(/\t/,$i);

if($class_edit==0){
$class =~ s/&lt;/</g;
$class =~ s/&gt;/>/g;
}


if($count==$c_max){
	print "</table><table cellpading=0 width=100% class=tbl><TR bgcolor=$indexcolor><TH width=2%>$index[0]</TH><TH width=2%>$index[3]</TH><TH width=10%><a href='$script?limit=$limit&level=$level&sort=15&mode=r'>$index[1]</a></TH><TH width=10%><a href='$script?limit=$limit&level=$level&sort=1'>$index[2]</a></TH><TH width=10%>$index[7]</TH><TH>$index[9]</TH><TH width=5%><a href='$script?limit=$limit&level=$level&sort=16&mode=r'>$index[8]</a></TH></TR>";

$count=0;
}

$bgn="";

$diary="";
$diaryfile="$diarydir$name.$diaryletter";
if(-e "$diaryfile"){
$diary="<a href='$script?function=prof&name=$name'><img src='$diarygif' border=0>";
if((-M $diaryfile)<1){
	$diary.="<img src='$upgif' border=0>";
}
$diary.="</a>";
}


if($name eq $c_name){$bgn=" bgcolor=$mydata";} else {$bgn=" bgcolor=$otherdata";}
if($class eq ""){$class="&nbsp";}


print "<TR$bgn><TD align=center>$no</TD>";
if($iconuse eq "yes"){
print "<TD align=center><img src=$icondir$facelist[$race]$facetypelist[$etc[0]]\.gif></TD>";
} else {
print "<TD align=center>$racelist[$race]</TD>";
}
print "<TD align=center>$class</TD><TD><a href='$script?function=profdetail&name=$name'>$name</a>$diary</TD>";

if(($anon ne "on") || ($anon_mode != 1 )){

if($lev[$mainjob]<10){
	$main_level="0$lev[$mainjob]";
} else {
	$main_level=$lev[$mainjob];
}


if($supportjob <99){
	$mod_level=int($lev[$mainjob]/2);
	if($mod_level==0){$mod_level=1;}
	if($mod_level>$lev[$supportjob]){$mod_level=$lev[$supportjob];}

if($mod_level<10){
	$mod_level="0$mod_level";
}
	print "<TD align=center>$joblist[$mainjob]$main_level/$joblist[$supportjob]$mod_level</TD>";
} else {
	print "<TD align=center>$joblist[$mainjob]$main_level</TD>";
}


} else {
	print"<TD align=center>-</TD>";
}

$date=substr($time,0,8)."<br>".substr($time,9,2).":".substr($time,11,2);

print "<TD>$comment</TD><TD align=center>$date</TD></TR>\n";

$count++;
$number++;

}

print "</table>";
}

sub table_full2{

if($job_max>$prod_max){
	$maxcell=$job_max;
} else {
	$maxcell=$prod_max;
}


	print "<table cellpading=0 width=100% class=tbl><TR bgcolor=$indexcolor><TH width=2% rowspan=2>$index[0]</TH><TH width=8% rowspan=2><a href='$script?limit=$limit&level=$level&sort=15&mode=r'>$index[1]</a></TH><TH width=10% rowspan=2><a href='$script?limit=$limit&level=$level&sort=1'>$index[2]</a></TH><TH width=5% rowspan=2><a href='$script?limit=$limit&level=$level&sort=4'>$index[3]</a></TH><TH width=5% rowspan=2><a href='$script?limit=$limit&level=$level&sort=5'>$index[4]</a></TH><TH width=5% rowspan=2><a href='$script?limit=$limit&level=$level&sort=14&mode=r'>$index[5]</a></TH><TH width=5% rowspan=2><a href='$script?limit=$limit&level=$level&sort=18&mode=r'>$index[6]</a></TH><TH width=10% rowspan=2>$index[7]</TH>";
for ($j=0;$j<$maxcell;$j++){
	$jn=$j+38;
	if($j<$job_max){
	print "<TH width=2%><a href='$script?limit=$limit&level=$level&sort=$jn&mode=r'>$joblist[$j]</a></TH>";
	} else {
		print "<TH> </TH>";
	}
}

print "<TH width=5% rowspan=2><a href='$script?limit=$limit&level=$level&sort=16&mode=r'>$index[8]</a></TH></TR>";
print "<TR bgcolor=$indexcolor>";
for ($j=0;$j<$maxcell;$j++){
	$jn=$j+22;
	if($j<$prod_max){
	print "<TH width=2%><a href='$script?limit=$limit&level=$level&sort=$jn&mode=r'>$prodlist[$j]</a></TH>";
	} else {
		print "<TH> </TH>";
	}
}
print "</TR>";

$count=0;

$number=1;
foreach $i (@all){

 ($no,$name,$pass,$anon,$race,$relm,$mainjob,$supportjob,$prof,$handle,$polhn,$mail,$home,$comment2,$point,$class,$time,$comment,$mrank,$etc[0],$etc[1],$etc[2],$prod[0],$prod[1],$prod[2],$prod[3],$prod[4],$prod[5],$prod[6],$prod[7],$prod[8],$prod[9],$prod[10],$prod[11],$prod[12],$prod[13],$prod[14],$prod[15],$lev[0],$lev[1],$lev[2],$lev[3],$lev[4],$lev[5],$lev[6],$lev[7],$lev[8],$lev[9],$lev[10],$lev[11],$lev[12],$lev[13],$lev[14],$lev[15],$lev[16],$lev[17],$lev[18],$lev[19])=split(/\t/,$i);
    @prod_r = split(/,/,$etc[1]);

if($class_edit==0){
$class =~ s/&lt;/</g;
$class =~ s/&gt;/>/g;
}

if($count==$c_max){
	print "</table><table cellpading=0 width=100% class=tbl><TR bgcolor=$indexcolor><TH width=2% rowspan=2>$index[0]</TH><TH width=8% rowspan=2><a href='$script?limit=$limit&level=$level&sort=15&mode=r'>$index[1]</a></TH><TH width=10% rowspan=2><a href='$script?limit=$limit&level=$level&sort=1'>$index[2]</a></TH><TH width=5% rowspan=2><a href='$script?limit=$limit&level=$level&sort=4'>$index[3]</a></TH><TH width=5% rowspan=2><a href='$script?limit=$limit&level=$level&sort=5'>$index[4]</a></TH><TH width=5% rowspan=2><a href='$script?limit=$limit&level=$level&sort=14&mode=r'>$index[5]</a></TH><TH width=5% rowspan=2><a href='$script?limit=$limit&level=$level&sort=18&mode=r'>$index[6]</a></TH><TH width=10% rowspan=2>$index[7]</TH>";
for ($j=0;$j<$maxcell;$j++){
	$jn=$j+38;
	if($j<$job_max){
	print "<TH width=2%><a href='$script?limit=$limit&level=$level&sort=$jn&mode=r'>$joblist[$j]</a></TH>";
	} else {
		print "<TH> </TH>";
	}
}

print "<TH width=5% rowspan=2><a href='$script?limit=$limit&level=$level&sort=16&mode=r'>$index[8]</a></TH></TR>";
print "<TR bgcolor=$indexcolor>";
for ($j=0;$j<$maxcell;$j++){
	$jn=$j+22;
	if($j<$prod_max){
	print "<TH width=2%><a href='$script?limit=$limit&level=$level&sort=$jn&mode=r'>$prodlist[$j]</a></TH>";
	} else {
		print "<TH> </TH>";
	}
}
print "</TR>";

$count=0;
}


$diary="";
$diaryfile="$diarydir$name.$diaryletter";
if(-e "$diaryfile"){
$diary="<a href='$script?function=prof&name=$name'><img src='$diarygif' border=0>";
if((-M $diaryfile)<1){
	$diary.="<img src='$upgif' border=0>";
}
$diary.="</a>";
}


$bgn="";

if($name eq $c_name){$bgn=" bgcolor=$mydata";} else {$bgn=" bgcolor=$otherdata";}
if($class eq ""){$class="&nbsp";}
if($point eq ""){$point=0;}

print "<TR$bgn><TD rowspan=2 align=center>$no</TD><TD rowspan=2 align=center>$class</TD><TD rowspan=2><a href='$script?function=profdetail&name=$name'>$name</a>$diary</TD>";

if($iconuse eq "yes"){
print "<TD align=center rowspan=2><img src=$icondir$facelist[$race]$facetypelist[$etc[0]]\.gif></TD>";
} else {
print "<TD align=center rowspan=2>$racelist[$race]</TD>";
}

print "<TD rowspan=2 align=center>$relmlist[$relm]</TD><TD align=right rowspan=2>$point</TD><TD rowspan=2 align=center>$mrank</TD>";

if(($anon ne "on") || ($anon_mode != 1 )){

if($lev[$mainjob]<10){
	$main_level="0$lev[$mainjob]";
} else {
	$main_level=$lev[$mainjob];
}


if($supportjob <99){
	$mod_level=int($lev[$mainjob]/2);
	if($mod_level==0){$mod_level=1;}
	if($mod_level>$lev[$supportjob]){$mod_level=$lev[$supportjob];}

if($mod_level<10){
	$mod_level="0$mod_level";
}
	print "<TD rowspan=2 align=center>$joblist[$mainjob]$main_level/$joblist[$supportjob]$mod_level</TD>";
} else {
	print "<TD rowspan=2 align=center>$joblist[$mainjob]$main_level</TD>";
}


	for ($j=0;$j<$maxcell;$j++){
		$bg="";
		if($j<$job_max){
		if($level ==1){
			$bg=" bgcolor=$color[int($lev[$j]/10)]";
		} else {
		if($j == $mainjob){$bg=" bgcolor=$maincolor";}
		if($j == $supportjob){$bg=" bgcolor=$supportcolor";}
		}
		
		print "<TD$bg align=center>$lev[$j]</TD>";
		} else {
			print "<TD align=center>　</TD>";
		}
	}
} else {
	for ($j=0;$j<$maxcell+1;$j++){
	print"<TD align=center>-</TD>";
	}
}
$date=substr($time,0,8)."<br>".substr($time,9,2).":".substr($time,11,2);
print "<TD rowspan=2 align=center>$date</TD></TR>\n";

print "<TR bgcolor='$skillcolor'>";

if(($anon ne "on") || ($anon_mode != 1 )){

	for ($j=0;$j<$maxcell;$j++){
		if($j<$prod_max){
			$bg=" bgcolor=$color[$prod_r[$j]]";
		print "<TD$bg align=center title='$ranklist[$prod_r[$j]]'>$prod[$j]</TD>";
		} else {
			print "<TD align=center>　</TD>";
		}
	}
} else {
	for ($j=0;$j<$maxcell+1;$j++){
	print"<TD align=center>-</TD>";
	}
}

print "</TR>";


$count++;
$number++;

}

print "</table>";

}



sub table_full3{

if($job_max>$prod_max){
	$maxcell=$job_max;
} else {
	$maxcell=$prod_max;
}


	print "<table cellpading=0 width=100% class=tbl><TR bgcolor=$indexcolor><TH width=2% rowspan=3>$index[0]</TH><TH width=8% rowspan=3><a href='$script?limit=$limit&level=$level&sort=15&mode=r'>$index[1]</a></TH><TH width=10% rowspan=3><a href='$script?limit=$limit&level=$level&sort=1'>$index[2]</a></TH><TH width=5% rowspan=2><a href='$script?limit=$limit&level=$level&sort=4'>$index[3]</a></TH><TH width=5% rowspan=2><a href='$script?limit=$limit&level=$level&sort=5'>$index[4]</a></TH><TH width=5% rowspan=2><a href='$script?limit=$limit&level=$level&sort=14&mode=r'>$index[5]</a></TH><TH width=5% rowspan=2><a href='$script?limit=$limit&level=$level&sort=18&mode=r'>$index[6]</a></TH><TH width=10% rowspan=2>$index[7]</TH>";
for ($j=0;$j<$maxcell;$j++){
	$jn=$j+38;
	if($j<$job_max){
	print "<TH width=2%><a href='$script?limit=$limit&level=$level&sort=$jn&mode=r'>$joblist[$j]</a></TH>";
	} else {
		print "<TH> </TH>";
	}
}

print "<TH width=5% rowspan=3><a href='$script?limit=$limit&level=$level&sort=16&mode=r'>$index[8]</a></TH></TR>";
print "<TR bgcolor=$indexcolor>";
for ($j=0;$j<$maxcell;$j++){
	$jn=$j+22;
    if($j<$prod_max){
        print "<TH width=2%><a href='$script?limit=$limit&level=$level&sort=$jn&mode=r'>$prodlist[$j]</a></TH>";
    } elsif ($j == $prod_max) {
        print "<TH colspan=3>Main Next</TH><TH colspan=".($maxcell - $prod_max - 3).">Total Exp.</TH>";
    }
}
print "</TR>";

print "<TR bgcolor=$indexcolor><TH colspan=".($job_max+5).">$index[9]</TH></TR>";
$count=0;

$number=1;
foreach $i (@all){

 ($no,$name,$pass,$anon,$race,$relm,$mainjob,$supportjob,$prof,$handle,$polhn,$mail,$home,$comment2,$point,$class,$time,$comment,$mrank,$etc[0],$etc[1],$etc[2],$prod[0],$prod[1],$prod[2],$prod[3],$prod[4],$prod[5],$prod[6],$prod[7],$prod[8],$prod[9],$prod[10],$prod[11],$prod[12],$prod[13],$prod[14],$prod[15],$lev[0],$lev[1],$lev[2],$lev[3],$lev[4],$lev[5],$lev[6],$lev[7],$lev[8],$lev[9],$lev[10],$lev[11],$lev[12],$lev[13],$lev[14],$lev[15],$lev[16],$lev[17],$lev[18],$lev[19])=split(/\t/,$i);

    @prod_r = split(/,/,$etc[1]);

if($class_edit==0){
$class =~ s/&lt;/</g;
$class =~ s/&gt;/>/g;
}

if($count==$c_max){
	print "</table><table cellpading=0 width=100% class=tbl><TR bgcolor=$indexcolor><TH width=2% rowspan=3>$index[0]</TH><TH width=8% rowspan=3><a href='$script?limit=$limit&level=$level&sort=15&mode=r'>$index[1]</a></TH><TH width=10% rowspan=3><a href='$script?limit=$limit&level=$level&sort=1'>$index[2]</a></TH><TH width=5% rowspan=2><a href='$script?limit=$limit&level=$level&sort=4'>$index[3]</a></TH><TH width=5% rowspan=2><a href='$script?limit=$limit&level=$level&sort=5'>$index[4]</a></TH><TH width=5% rowspan=2><a href='$script?limit=$limit&level=$level&sort=14&mode=r'>$index[5]</a></TH><TH width=5% rowspan=2><a href='$script?limit=$limit&level=$level&sort=18&mode=r'>$index[6]</a></TH><TH width=10% rowspan=2>$index[7]</TH>";
for ($j=0;$j<$maxcell;$j++){
	$jn=$j+38;
	if($j<$job_max){
	print "<TH width=2%><a href='$script?limit=$limit&level=$level&sort=$jn&mode=r'>$joblist[$j]</a></TH>";
	} else {
		print "<TH> </TH>";
	}
}

print "<TH width=5% rowspan=3><a href='$script?limit=$limit&level=$level&sort=16&mode=r'>$index[8]</a></TH></TR>";
print "<TR bgcolor=$indexcolor>";
for ($j=0;$j<$maxcell;$j++){
	$jn=$j+22;
    if($j<$prod_max){
    print "<TH width=2%><a href='$script?limit=$limit&level=$level&sort=$jn&mode=r'>$prodlist[$j]</a></TH>";
    } elsif ($j == $prod_max) {
        print "<TH colspan=3>Main Next</TH><TH colspan=".($maxcell - $prod_max - 3).">Total Exp.</TH>";
    }
}
print "</TR>";
print "<TR bgcolor=$indexcolor><TH colspan=".($job_max+5).">$index[9]</TH></TR>";

$count=0;
}


$diary="";
$diaryfile="$diarydir$name.$diaryletter";
if(-e "$diaryfile"){
$diary="<a href='$script?function=prof&name=$name'><img src='$diarygif' border=0>";
if((-M $diaryfile)<1){
	$diary.="<img src='$upgif' border=0>";
}
$diary.="</a>";
}


$bgn="";

if($name eq $c_name){$bgn=" bgcolor=$mydata";} else {$bgn=" bgcolor=$otherdata";}
if($class eq ""){$class="&nbsp";}
if($point eq ""){$point=0;}

print "<TR$bgn><TD rowspan=3 align=center>$no</TD><TD rowspan=3 align=center>$class</TD><TD rowspan=3><a href='$script?function=profdetail&name=$name'>$name</a>$diary</TD>";
if($iconuse eq "yes"){
print "<TD rowspan=2 align=center><img src=$icondir$facelist[$race]$facetypelist[$etc[0]]\.gif></TD>";
} else {
print "<TD rowspan=2 align=center>$racelist[$race]</TD>";
}

print "<TD rowspan=2 align=center>$relmlist[$relm]</TD><TD align=right rowspan=2>$point</TD><TD rowspan=2 align=center>$mrank</TD>";

if(($anon ne "on") || ($anon_mode != 1 )){

if($lev[$mainjob]<10){
	$main_level="0$lev[$mainjob]";
} else {
	$main_level=$lev[$mainjob];
}


if($supportjob <99){
	$mod_level=int($lev[$mainjob]/2);
	if($mod_level==0){$mod_level=1;}
	if($mod_level>$lev[$supportjob]){$mod_level=$lev[$supportjob];}

if($mod_level<10){
	$mod_level="0$mod_level";
}
	print "<TD rowspan=2 align=center>$joblist[$mainjob]$main_level/$joblist[$supportjob]$mod_level</TD>";
} else {
	print "<TD rowspan=2 align=center>$joblist[$mainjob]$main_level</TD>";
}
    $totalexp = 0;


	for ($j=0;$j<$maxcell;$j++){
		$bg="";
		if($j<$job_max){
        $totalexp += expr_exp($lev[$j]);
		if($level ==1){
			$bg=" bgcolor=$color[int($lev[$j]/10)]";
		} else {
		if($j == $mainjob){$bg=" bgcolor=$maincolor";}
		if($j == $supportjob){$bg=" bgcolor=$supportcolor";}
		}
		
		print "<TD$bg align=center>$lev[$j]</TD>";
		} else {
			print "<TD align=center>　</TD>";
		}
	}
} else {
	for ($j=0;$j<$maxcell+1;$j++){
	print"<TD align=center>-</TD>";
	}
}
$date=substr($time,0,8)."<br>".substr($time,9,2).":".substr($time,11,2);
print "<TD rowspan=3 align=center>$date</TD></TR>\n";

print "<TR bgcolor='$skillcolor'>";

if(($anon ne "on") || ($anon_mode != 1 )){

	$mpointexp="";
	if($prod[12] =~m /イント<\/TD><TD bgcolor=.+>([0-9]+)<\/TD>/ ){
		$mpointexp=$1*10000;
	}
	if($prod[12] =~m /use<\/TD><TD bgcolor=.+>([0-9]+)<\/TD>/ ){
		$mpointexp = $1*10000;
	}
	if($mpointexp>0){
		if($mexpmode == 1){
			$totalexp=$totalexp+$mpointexp;
		} else {
			$totalexp="$totalexp+".$mpointexp;
		}
	}


    for ($j=0;$j<$maxcell;$j++){
        if($j<$prod_max){
			$bg=" bgcolor=$color[$prod_r[$j]]";
		print "<TD$bg align=center title='$ranklist[$prod_r[$j]]'>$prod[$j]</TD>";
        } elsif ($j == $prod_max) {
            print "<TD colspan=3 align=right>".expr_needexp($lev[$mainjob])."&nbsp;</TD><TD colspan=".($maxcell - $prod_max - 3)." align=right>".$totalexp."&nbsp;</TD>";
        }
    }
} else {
	for ($j=0;$j<$maxcell+1;$j++){
	print"<TD align=center>-</TD>";
	}
}

print "</TR>";

print "<TR$bgn><TD colspan=".($job_max+5).">$comment</TD></TR>";

$count++;
$number++;

}

print "</table>";

}

sub table_skill {
	print "<table cellpading=0 width=100% class=tbl><TR bgcolor=$indexcolor><TH width=2%>$index[0]</TH><TH width=6%><a href='$script?limit=$limit&level=$level&sort=1'>$index[2]</a></TH>";
for ($j=0;$j<$#skilllist+1;$j++){
	$jn=$j+38;
	print "<TH width=2%>$skilllist[$j]</TH>";
}
print "<TH width=5%><a href='$script?limit=$limit&level=$level&sort=16&mode=r'>$index[8]</a></TH></TR>";

$count=0;

$number=1;
foreach $i (@all){

 ($no,$name,$pass,$anon,$race,$relm,$mainjob,$supportjob,$prof,$handle,$polhn,$mail,$home,$comment2,$point,$class,$time,$comment,$mrank,$etc[0],$etc[1],$etc[2],$prod[0],$prod[1],$prod[2],$prod[3],$prod[4],$prod[5],$prod[6],$prod[7],$prod[8],$prod[9],$prod[10],$prod[11],$prod[12],$prod[13],$prod[14],$prod[15],$lev[0],$lev[1],$lev[2],$lev[3],$lev[4],$lev[5],$lev[6],$lev[7],$lev[8],$lev[9],$lev[10],$lev[11],$lev[12],$lev[13],$lev[14],$lev[15],$lev[16],$lev[17],$lev[18],$lev[19])=split(/\t/,$i);
if($class_edit==0){
$class =~ s/&lt;/</g;
$class =~ s/&gt;/>/g;
}
    @skill = split(/,/,$etc[2]);

    for ($j=0;$j<$#skilllist+1;$j++){
        $skillmax[$j] = -1;
        for ($k=0;$k<$job_max;$k++){
            if (int($lev[$k]) > 0) {
                $askill = expr_skillcap($k, $j, $lev[$k]);
                if ($askill > $skillmax[$j]) {
                    $skillmax[$j] = $askill;
                    $skillmaxjob[$j] = $k;
                }
            }
        }
    }


if($count==$c_max){
	print "<table cellpading=0 width=100% class=tbl><TR bgcolor=$indexcolor><TH width=2%>$index[0]</TH><TH width=6%><a href='$script?limit=$limit&level=$level&sort=1'>$index[2]</a></TH>";
for ($j=0;$j<$#skilllist+1;$j++){
	$jn=$j+38;
	print "<TH width=2%>$skilllist[$j]</TH>";
}
print "<TH width=5%><a href='$script?limit=$limit&level=$level&sort=16&mode=r'>$index[8]</a></TH></TR>";
$count=0;
}


$diary="";
$diaryfile="$diarydir$name.$diaryletter";
if(-e "$diaryfile"){
$diary="<a href='$script?function=prof&name=$name'><img src='$diarygif' border=0>";
if((-M $diaryfile)<1){
	$diary.="<img src='$upgif' border=0>";
}
$diary.="</a>";
}


$bgn="";

if($name eq $c_name){$bgn=" bgcolor=$mydata";} else {$bgn=" bgcolor=$otherdata";}
if($class eq ""){$class="&nbsp";}
if($point eq ""){$point=0;}

print "<TR$bgn><TD align=center>$no</TD><TD><a href='$script?function=profdetail&name=$name'>$name</a>$diary</TD>";

if(($anon ne "on") || ($anon_mode != 1 )){

	for ($j=0;$j<$#skilllist+1;$j++){
        if ($skillmax[$j] > int($skill[$j])) {
            print "<td align=center>$skill[$j]</td>";
        } else {
            print "<td align=center><font color=blue>$skill[$j]</font></td>";
        }
	}
} else {
	for ($j=0;$j<$#skilllist+1;$j++){
	print"<TD align=center>-</TD>";
	}
}

$date=substr($time,0,8);
print "<TD align=center>$date</TD></TR>\n";

$count++;
$number++;

}

print "</table>";
}

sub table_level {
	$levels[0..75] = ();
	@bgnc = ();
	$maxlevel = 75;
	foreach $i (@all){
		($no,$name,$pass,$anon,$race,$relm,$mainjob,$supportjob,$prof,$handle,$polhn,$mail,$home,$comment2,$point,$class,$time,$comment,$mrank,$etc[0],$etc[1],$etc[2],$prod[0],$prod[1],$prod[2],$prod[3],$prod[4],$prod[5],$prod[6],$prod[7],$prod[8],$prod[9],$prod[10],$prod[11],$prod[12],$prod[13],$prod[14],$prod[15],$lev[0],$lev[1],$lev[2],$lev[3],$lev[4],$lev[5],$lev[6],$lev[7],$lev[8],$lev[9],$lev[10],$lev[11],$lev[12],$lev[13],$lev[14],$lev[15],$lev[16],$lev[17],$lev[18],$lev[19])=split(/\t/,$i);
		for ($j=0;$j<$job_max;$j++){
			if (0 < $lev[$j]) {
				@leveljobs[0..$job_max] = split(/\t/, $levels[$lev[$j]]);
				$namel=substr($name,0,6). "..";
				$leveljobs[$j] .= "<a href='$script?function=profdetail&name=$name'>$namel</a><br>";
				$levels[$lev[$j]] = join("\t", @leveljobs);
				if ($name eq $c_name) {
					$bgn=" bgcolor=$mydata";
					$bgnc[$lev[$j]] = $bgn;
				}
				if ($lev[$j] > $maxlevel){
					$maxlevel = $lev[$j];
				}
			}
		}
	}
	if($maxlevel>75){$maxlevel=75;}
	print "<table cellpading=0 width=100% class=tbl>\n";
	$count = $c_max;
	for ($lv=$maxlevel; $lv>1; $lv--) {
		if ($count == $c_max) {
			print "<TR bgcolor=$indexcolor><TH>LV</TH>";
			for ($j=0;$j<$job_max;$j++){
				print "<TH>$joblist[$j]</TH>";
			}
			print "</TR>\n";
			$count = 0;
		}
		if ($levels[$lv] eq "") {print "<tr></tr>\n";} else {
			$bgn = $bgnc[$lv]; 
			if ($bgn eq "") {$bgn = " bgcolor=$otherdata";}
			print "<TR$bgn><TD align=center>$lv</TD>";
			@leveljobs = split(/\t/, $levels[$lv]);
			for ($j=0;$j<$job_max;$j++){
				print "<td>$leveljobs[$j]</td>";
			}
			print "</tr>\n";
		}
		$count++;
	}
	print "</table>";
}


1;

#tablelimit3

sub table_limit3 {

$sort=16;
$mode=r;
&sort_table;

	print "<table cellpading=0 width=100% class=tbl><TR bgcolor=$indexcolor><TH width=2%>$index[0]</TH><TH width=2%>$index[3]</TH><TH width=10%><a href='$script?limit=$limit&level=$level&sort=15&mode=r'>$index[1]</a></TH><TH width=10%><a href='$script?limit=$limit&level=$level&sort=1'>$index[2]</a></TH><TH width=10%>$index[7]</TH><TH>$index[9]</TH><TH width=5%><a href='$script?limit=$limit&level=$level&sort=16&mode=r'>$index[8]</a></TH></TR>";

$count=0;

$number=1;
foreach $i (@all){

	 ($no,$name,$pass,$anon,$race,$relm,$mainjob,$supportjob,$prof,$handle,$polhn,$mail,$home,$comment2,$point,$class,$time,$comment,$mrank,$etc[0],$etc[1],$etc[2],$prod[0],$prod[1],$prod[2],$prod[3],$prod[4],$prod[5],$prod[6],$prod[7],$prod[8],$prod[9],$prod[10],$prod[11],$prod[12],$prod[13],$prod[14],$prod[15],$lev[0],$lev[1],$lev[2],$lev[3],$lev[4],$lev[5],$lev[6],$lev[7],$lev[8],$lev[9],$lev[10],$lev[11],$lev[12],$lev[13],$lev[14],$lev[15],$lev[16],$lev[17],$lev[18],$lev[19])=split(/\t/,$i);

if($class_edit==0){
$class =~ s/&lt;/</g;
$class =~ s/&gt;/>/g;
}


if($count==$c_max){
	print "</table><table cellpading=0 width=100% class=tbl><TR bgcolor=$indexcolor><TH width=2%>$index[0]</TH><TH width=2%>$index[3]</TH><TH width=10%><a href='$script?limit=$limit&level=$level&sort=15&mode=r'>$index[1]</a></TH><TH width=10%><a href='$script?limit=$limit&level=$level&sort=1'>$index[2]</a></TH><TH width=10%>$index[7]</TH><TH>$index[9]</TH><TH width=5%><a href='$script?limit=$limit&level=$level&sort=16&mode=r'>$index[8]</a></TH></TR>";

$count=0;
}

$bgn="";

$diary="";
$diaryfile="$diarydir$name.$diaryletter";
if(-e "$diaryfile"){
$diary="<a href='$script?function=prof&name=$name'><img src='$diarygif' border=0>";
if((-M $diaryfile)<1){
	$diary.="<img src='$upgif' border=0>";
}
$diary.="</a>";
}


if($name eq $c_name){$bgn=" bgcolor=$mydata";} else {$bgn=" bgcolor=$otherdata";}
if($class eq ""){$class="&nbsp";}


print "<TR$bgn><TD align=center>$no</TD>";
if($iconuse eq "yes"){
print "<TD align=center><img src=$icondir$facelist[$race]$facetypelist[$etc[0]]\.gif></TD>";
} else {
print "<TD align=center>$racelist[$race]</TD>";
}
print "<TD align=center>$class</TD><TD><a href='$script?function=profdetail&name=$name'>$name</a>$diary</TD>";

if(($anon ne "on") || ($anon_mode != 1 )){

if($lev[$mainjob]<10){
	$main_level="0$lev[$mainjob]";
} else {
	$main_level=$lev[$mainjob];
}


if($supportjob <99){
	$mod_level=int($lev[$mainjob]/2);
	if($mod_level==0){$mod_level=1;}
	if($mod_level>$lev[$supportjob]){$mod_level=$lev[$supportjob];}

if($mod_level<10){
	$mod_level="0$mod_level";
}
	print "<TD align=center>$joblist[$mainjob]$main_level/$joblist[$supportjob]$mod_level</TD>";
} else {
	print "<TD align=center>$joblist[$mainjob]$main_level</TD>";
}


} else {
	print"<TD align=center>-</TD>";
}

$date=substr($time,0,8)."<br>".substr($time,9,2).":".substr($time,11,2);

print "<TD>$comment</TD><TD align=center>$date</TD></TR>\n";

$count++;
$number++;

}

print "</table>";
}


#udon

sub table_mission {


	print "<table cellpading=0 width=100% class=tbl><TR bgcolor=$indexcolor><TH width=2% rowspan=2>$index[0]</TH><TH width=10% rowspan=2><a href='$script?limit=$limit&level=$level&sort=1'>$index[2]</a></TH><TH width=5% rowspan=2><a href='$script?limit=$limit&level=$level&sort=37&mode=r&function=15'>Aht Urhgan</a></TH><TH width=5% rowspan=2><a href='$script?limit=$limit&level=$level&sort=37&mode=r&function=0'>Promathia</a></TH><TH width=5% rowspan=2><a href='$script?limit=$limit&level=$level&sort=37&mode=r&function=1'>Zilart</a></TH><TH width=5% rowspan=2><a href='$script?limit=$limit&level=$level&sort=37&mode=r&function=2'>Sandoria</a></TH><TH width=5% rowspan=2><a href='$script?limit=$limit&level=$level&sort=37&mode=r&function=3'>Bastok</a></TH><TH width=5% rowspan=2><a href='$script?limit=$limit&level=$level&sort=37&mode=r&function=4'>Windurst</a></TH><TH colspan=10>Dynamis</TH><TH widtH=5% rowspan=2><a href='$script?limit=$limit&level=$level&sort=16&mode=r'>$index[8]</a></TH></TR><TR bgcolor=$indexcolor><TH width=2%><a href='$script?limit=$limit&level=$level&sort=37&mode=r&function=5'>San</a></TH><TH width=2%><a href='$script?limit=$limit&level=$level&sort=37&mode=r&function=6'>Bas</a></TH><TH width=2%><a href='$script?limit=$limit&level=$level&sort=37&mode=r&function=7'>Win</a></TH><TH width=2%><a href='$script?limit=$limit&level=$level&sort=37&mode=r&function=8'>Jeu</a></TH><TH width=2%><a href='$script?limit=$limit&level=$level&sort=37&mode=r&function=9'>Bos</a></TH><TH width=2%><a href='$script?limit=$limit&level=$level&sort=37&mode=r&function=10'>Xar</a></TH><TH width=2%><a href='$script?limit=$limit&level=$level&sort=37&mode=r&function=11'>Val</a></TH><TH width=2%><a href='$script?limit=$limit&level=$level&sort=37&mode=r&function=12'>Bub</a></TH><TH width=2%><a href='$script?limit=$limit&level=$level&sort=37&mode=r&function=13'>Quf</a></TH><TH width=2%><a href='$script?limit=$limit&level=$level&sort=37&mode=r&function=14'>Tav</a></TH></TR>";

$count=0;

$number=1;
foreach $i (@all){

	 ($no,$name,$pass,$anon,$race,$relm,$mainjob,$supportjob,$prof,$handle,$polhn,$mail,$home,$comment2,$point,$class,$time,$comment,$mrank,$etc[0],$etc[1],$etc[2],$prod[0],$prod[1],$prod[2],$prod[3],$prod[4],$prod[5],$prod[6],$prod[7],$prod[8],$prod[9],$prod[10],$prod[11],$prod[12],$prod[13],$prod[14],$prod[15],$lev[0],$lev[1],$lev[2],$lev[3],$lev[4],$lev[5],$lev[6],$lev[7],$lev[8],$lev[9],$lev[10],$lev[11],$lev[12],$lev[13],$lev[14],$lev[15],$lev[16],$lev[17],$lev[18],$lev[19])=split(/\t/,$i);

if($class_edit==0){
$class =~ s/&lt;/</g;
$class =~ s/&gt;/>/g;
}


if($count==$c_max){
	print "</table><table cellpading=0 width=100% class=tbl><TR bgcolor=$indexcolor><TH width=2% rowspan=2>$index[0]</TH><TH width=10% rowspan=2><a href='$script?limit=$limit&level=$level&sort=1'>$index[2]</a></TH><TH width=5% rowspan=2><a href='$script?limit=$limit&level=$level&sort=37&mode=r&function=15'>Aht Urhgan</a></TH><TH width=5% rowspan=2><a href='$script?limit=$limit&level=$level&sort=37&mode=r&function=0'>Promathia</a></TH><TH width=5% rowspan=2><a href='$script?limit=$limit&level=$level&sort=37&mode=r&function=1'>Zilart</a></TH><TH width=5% rowspan=2><a href='$script?limit=$limit&level=$level&sort=37&mode=r&function=2'>Sandoria</a></TH><TH width=5% rowspan=2><a href='$script?limit=$limit&level=$level&sort=37&mode=r&function=3'>Bastok</a></TH><TH width=5% rowspan=2><a href='$script?limit=$limit&level=$level&sort=37&mode=r&function=4'>Windurst</a></TH><TH colspan=10>Dynamis</TH><TH widtH=5% rowspan=2><a href='$script?limit=$limit&level=$level&sort=16&mode=r'>$index[8]</a></TH></TR><TR bgcolor=$indexcolor><TH width=2%><a href='$script?limit=$limit&level=$level&sort=37&mode=r&function=5'>San</a></TH><TH width=2%><a href='$script?limit=$limit&level=$level&sort=37&mode=r&function=6'>Bas</a></TH><TH width=2%><a href='$script?limit=$limit&level=$level&sort=37&mode=r&function=7'>Win</a></TH><TH width=2%><a href='$script?limit=$limit&level=$level&sort=37&mode=r&function=8'>Jeu</a></TH><TH width=2%><a href='$script?limit=$limit&level=$level&sort=37&mode=r&function=9'>Bos</a></TH><TH width=2%><a href='$script?limit=$limit&level=$level&sort=37&mode=r&function=10'>Xar</a></TH><TH width=2%><a href='$script?limit=$limit&level=$level&sort=37&mode=r&function=11'>Val</a></TH><TH width=2%><a href='$script?limit=$limit&level=$level&sort=37&mode=r&function=12'>Bub</a></TH><TH width=2%><a href='$script?limit=$limit&level=$level&sort=37&mode=r&function=13'>Quf</a></TH><TH width=2%><a href='$script?limit=$limit&level=$level&sort=37&mode=r&function=14'>Tav</a></TH></TR>";

$count=0;
}

$bgn="";

$diary="";
$diaryfile="$diarydir$name.$diaryletter";
if(-e "$diaryfile"){
$diary="<a href='$script?function=prof&name=$name'><img src='$diarygif' border=0>";
if((-M $diaryfile)<1){
	$diary.="<img src='$upgif' border=0>";
}
$diary.="</a>";
}


if($name eq $c_name){$bgn=" bgcolor=$mydata";} else {$bgn=" bgcolor=$otherdata";}
if($class eq ""){$class="&nbsp";}


print "<TR$bgn><TD align=center>$no</TD><TD><a href='$script?function=profdetail&name=$name'>$name</a>$diary</TD>";

    @mission = split(/,/,$prod[15]);

print"<TD align=center>$amlist[$mission[15]]($mission[15])</TD>";
print"<TD align=center>$pmlist[$mission[0]]($mission[0])</TD>";
print"<TD align=center>$jmlist[$mission[1]]($mission[1])</TD>";
print"<TD align=center>$smlist[$mission[2]]($mission[2])</TD>";
print"<TD align=center>$bmlist[$mission[3]]($mission[3])</TD>";
print"<TD align=center>$wmlist[$mission[4]]($mission[4])</TD>";

for($j=5;$j<15;$j++){
print "<TD align=center>$maru[$mission[$j]]</TD>";
}


$date=substr($time,0,8)."<br>".substr($time,9,2).":".substr($time,11,2);

print "<TD align=center>$date</TD></TR>\n";

$count++;
$number++;

}

print "</table>";
}


sub table_assault2 {


	print "<table cellpading=0 width=100% class=tbl><TR bgcolor=$indexcolor><TH width=2%>$index[0]</TH><TH width=10%><a href='$script?limit=$limit&level=$level&sort=1'>$index[2]</a></TH><TH>Assault</TH><TH widtH=5% ><a href='$script?limit=$limit&level=$level&sort=16&mode=r'>$index[8]</a></TH></TR>";

$count=0;

$number=1;
foreach $i (@all){

	 ($no,$name,$pass,$anon,$race,$relm,$mainjob,$supportjob,$prof,$handle,$polhn,$mail,$home,$comment2,$point,$class,$time,$comment,$mrank,$etc[0],$etc[1],$etc[2],$prod[0],$prod[1],$prod[2],$prod[3],$prod[4],$prod[5],$prod[6],$prod[7],$prod[8],$prod[9],$prod[10],$prod[11],$prod[12],$prod[13],$prod[14],$prod[15],$lev[0],$lev[1],$lev[2],$lev[3],$lev[4],$lev[5],$lev[6],$lev[7],$lev[8],$lev[9],$lev[10],$lev[11],$lev[12],$lev[13],$lev[14],$lev[15],$lev[16],$lev[17],$lev[18],$lev[19])=split(/\t/,$i);

if($class_edit==0){
$class =~ s/&lt;/</g;
$class =~ s/&gt;/>/g;
}


if($count==$c_max){
	print "<table cellpading=0 width=100% class=tbl><TR bgcolor=$indexcolor><TH width=2%>$index[0]</TH><TH width=10%><a href='$script?limit=$limit&level=$level&sort=1'>$index[2]</a></TH><TH>Assault</TH><TH widtH=5% ><a href='$script?limit=$limit&level=$level&sort=16&mode=r'>$index[8]</a></TH></TR>";

$count=0;
}

$bgn="";

$diary="";
$diaryfile="$diarydir$name.$diaryletter";
if(-e "$diaryfile"){
$diary="<a href='$script?function=prof&name=$name'><img src='$diarygif' border=0>";
if((-M $diaryfile)<1){
	$diary.="<img src='$upgif' border=0>";
}
$diary.="</a>";
}


if($name eq $c_name){$bgn=" bgcolor=$mydata";} else {$bgn=" bgcolor=$otherdata";}
if($class eq ""){$class="&nbsp";}


print "<TR$bgn><TD align=center>$no</TD><TD><a href='$script?function=profdetail&name=$name'>$name</a>$diary</TD>";

@mission = split(/,/,$prod[15]);

@assault= split (//,$mission[16]);

print "<TD>";

for($j=0;$j<5;$j++){
	if($assault[$j]==1){print "■";} else {print "＿";}
}
print "六門院開通　ルジャワン マムージャ レベロス ペリキア イルシシ<BR>";
for($j=5;$j<20;$j=$j+3){
	if($assault[$j]==1){print "■";} else {print "＿";}
}
print "二級傭兵アサルト<BR>";
for($j=6;$j<20;$j=$j+3){
	if($assault[$j]==1){print "■";} else {print "＿";}
}
print "一級傭兵アサルト<BR>";
for($j=7;$j<20;$j=$j+3){
	if($assault[$j]==1){print "■";} else {print "＿";}
}
print "上級傭兵アサルト</TD>";

$date=substr($time,0,8)."<br>".substr($time,9,2).":".substr($time,11,2);

print "<TD align=center>$date</TD></TR>\n";

$count++;
$number++;

}

print "</table>";
}


sub table_assault {


	print "<table cellpading=0 width=100% class=tbl><TR bgcolor=$indexcolor><TH width=2% rowspan=2>$index[0]</TH><TH width=10% rowspan=2><a href='$script?limit=$limit&level=$level&sort=1'>$index[2]</a></TH><th width=5% rowspan=2><a href='$script?limit=$limit&level=$level&sort=37&function=16&mode=r&page=0'>$assaultword[1]</a></TH><TH widtH=10% colspan=5>$assaultword[0]</TH><TH widtH=6% colspan=7>$assaultword[2]</TH><TH widtH=6% colspan=7>$assaultword[3]</TH><TH widtH=6% colspan=7>$assaultword[4]</TH><TH widtH=6% colspan=7>$assaultword[5]</TH><TH widtH=6% colspan=7>$assaultword[6]</TH><TH widtH=5% rowspan=2><a href='$script?limit=$limit&level=$level&sort=16&mode=r'>$index[8]</a></TH>";

	print "</TR><TR bgcolor=$indexcolor><TH width=2%><a href='$script?limit=$limit&level=$level&sort=37&function=16&mode=r&page=1'>Leu</a></TH><TH width=2%><a href='$script?limit=$limit&level=$level&sort=37&function=16&mode=r&page=2'>Mam</a></TH><TH width=2%><a href='$script?limit=$limit&level=$level&sort=37&function=16&mode=r&page=3'>Leb</a></TH><TH width=2%><a href='$script?limit=$limit&level=$level&sort=37&function=16&mode=r&page=4'>Per</a></TH><TH width=2%><a href='$script?limit=$limit&level=$level&sort=37&function=16&mode=r&page=5'>Ilr</a></TH>";

	print "<TH title='$aslist[6]'><a href='$script?limit=$limit&level=$level&sort=37&function=16&mode=r&page=6'>$assaultword[7]</a></TH><TH title='$aslist[7]'><a href='$script?limit=$limit&level=$level&sort=37&function=16&mode=r&page=7'>$assaultword[8]</a></TH><TH title='$aslist[8]'><a href='$script?limit=$limit&level=$level&sort=37&function=16&mode=r&page=8'>$assaultword[9]</a></TH><TH title='$aslist[21]'><a href='$script?limit=$limit&level=$level&sort=37&function=16&mode=r&page=21'>$assaultword[10]</a></TH><TH title='$aslist[22]'><a href='$script?limit=$limit&level=$level&sort=37&function=16&mode=r&page=22'>$assaultword[11]</a></TH><TH title='$aslist[31]'><a href='$script?limit=$limit&level=$level&sort=37&function=16&mode=r&page=31'>$assaultword[12]</a></TH><TH title='$aslist[32]'><a href='$script?limit=$limit&level=$level&sort=37&function=16&mode=r&page=32'>$assaultword[13]</a></TH>";

	print "<TH title='$aslist[9]'><a href='$script?limit=$limit&level=$level&sort=37&function=16&mode=r&page=9'>$assaultword[7]</a></TH><TH title='$aslist[10]'><a href='$script?limit=$limit&level=$level&sort=37&function=16&mode=r&page=10'>$assaultword[8]</a></TH><TH title='$aslist[11]'><a href='$script?limit=$limit&level=$level&sort=37&function=16&mode=r&page=11'>$assaultword[9]</a></TH><TH title='$aslist[23]'><a href='$script?limit=$limit&level=$level&sort=37&function=16&mode=r&page=23'>$assaultword[10]</a></TH><TH title='$aslist[24]'><a href='$script?limit=$limit&level=$level&sort=37&function=16&mode=r&page=24'>$assaultword[11]</a></TH><TH title='$aslist[33]'><a href='$script?limit=$limit&level=$level&sort=37&function=16&mode=r&page=33'>$assaultword[12]</a></TH><TH title='$aslist[34]'><a href='$script?limit=$limit&level=$level&sort=37&function=16&mode=r&page=34'>$assaultword[13]</a></TH>";

	print "<TH title='$aslist[12]'><a href='$script?limit=$limit&level=$level&sort=37&function=16&mode=r&page=12'>$assaultword[7]</a></TH><TH title='$aslist[13]'><a href='$script?limit=$limit&level=$level&sort=37&function=16&mode=r&page=13'>$assaultword[8]</a></TH><TH title='$aslist[14]'><a href='$script?limit=$limit&level=$level&sort=37&function=16&mode=r&page=14'>$assaultword[9]</a></TH><TH title='$aslist[25]'><a href='$script?limit=$limit&level=$level&sort=37&function=16&mode=r&page=25'>$assaultword[10]</a></TH><TH title='$aslist[26]'><a href='$script?limit=$limit&level=$level&sort=37&function=16&mode=r&page=26'>$assaultword[11]</a></TH><TH title='$aslist[35]'><a href='$script?limit=$limit&level=$level&sort=37&function=16&mode=r&page=35'>$assaultword[12]</a></TH><TH title='$aslist[36]'><a href='$script?limit=$limit&level=$level&sort=37&function=16&mode=r&page=36'>$assaultword[13]</a></TH>";

	print "<TH title='$aslist[15]'><a href='$script?limit=$limit&level=$level&sort=37&function=16&mode=r&page=15'>$assaultword[7]</a></TH><TH title='$aslist[16]'><a href='$script?limit=$limit&level=$level&sort=37&function=16&mode=r&page=16'>$assaultword[8]</a></TH><TH title='$aslist[17]'><a href='$script?limit=$limit&level=$level&sort=37&function=16&mode=r&page=17'>$assaultword[9]</a></TH><TH title='$aslist[27]'><a href='$script?limit=$limit&level=$level&sort=37&function=16&mode=r&page=27'>$assaultword[10]</a></TH><TH title='$aslist[28]'><a href='$script?limit=$limit&level=$level&sort=37&function=16&mode=r&page=28'>$assaultword[11]</a></TH><TH title='$aslist[37]'><a href='$script?limit=$limit&level=$level&sort=37&function=16&mode=r&page=37'>$assaultword[12]</a></TH><TH title='$aslist[38]'><a href='$script?limit=$limit&level=$level&sort=37&function=16&mode=r&page=38'>$assaultword[13]</a></TH>";

	print "<TH title='$aslist[18]'><a href='$script?limit=$limit&level=$level&sort=37&function=16&mode=r&page=18'>$assaultword[7]</a></TH><TH title='$aslist[19]'><a href='$script?limit=$limit&level=$level&sort=37&function=16&mode=r&page=19'>$assaultword[8]</a></TH><TH title='$aslist[20]'><a href='$script?limit=$limit&level=$level&sort=37&function=16&mode=r&page=20'>$assaultword[9]</a></TH><TH title='$aslist[29]'><a href='$script?limit=$limit&level=$level&sort=37&function=16&mode=r&page=29'>$assaultword[10]</a></TH><TH title='$aslist[30]'><a href='$script?limit=$limit&level=$level&sort=37&function=16&mode=r&page=30'>$assaultword[11]</a></TH><TH title='$aslist[39]'><a href='$script?limit=$limit&level=$level&sort=37&function=16&mode=r&page=39'>$assaultword[12]</a></TH><TH title='$aslist[40]'><a href='$script?limit=$limit&level=$level&sort=37&function=16&mode=r&page=40'>$assaultword[13]</a></TH></TR>";

$count=0;

$number=1;
foreach $i (@all){

	 ($no,$name,$pass,$anon,$race,$relm,$mainjob,$supportjob,$prof,$handle,$polhn,$mail,$home,$comment2,$point,$class,$time,$comment,$mrank,$etc[0],$etc[1],$etc[2],$prod[0],$prod[1],$prod[2],$prod[3],$prod[4],$prod[5],$prod[6],$prod[7],$prod[8],$prod[9],$prod[10],$prod[11],$prod[12],$prod[13],$prod[14],$prod[15],$lev[0],$lev[1],$lev[2],$lev[3],$lev[4],$lev[5],$lev[6],$lev[7],$lev[8],$lev[9],$lev[10],$lev[11],$lev[12],$lev[13],$lev[14],$lev[15],$lev[16],$lev[17],$lev[18],$lev[19])=split(/\t/,$i);

if($class_edit==0){
$class =~ s/&lt;/</g;
$class =~ s/&gt;/>/g;
}


if($count==$c_max){

	print "</table>";
	print "<table cellpading=0 width=100% class=tbl><TR bgcolor=$indexcolor><TH width=2% rowspan=2>$index[0]</TH><TH width=10% rowspan=2><a href='$script?limit=$limit&level=$level&sort=1'>$index[2]</a></TH><th width=5% rowspan=2><a href='$script?limit=$limit&level=$level&sort=37&function=16&mode=r&page=0'>$assaultword[1]</a></TH><TH widtH=10% colspan=5>$assaultword[0]</TH><TH widtH=6% colspan=7>$assaultword[2]</TH><TH widtH=6% colspan=7>$assaultword[3]</TH><TH widtH=6% colspan=7>$assaultword[4]</TH><TH widtH=6% colspan=7>$assaultword[5]</TH><TH widtH=6% colspan=7>$assaultword[6]</TH><TH widtH=5% rowspan=2><a href='$script?limit=$limit&level=$level&sort=16&mode=r'>$index[8]</a></TH>";

	print "</TR><TR bgcolor=$indexcolor><TH width=2%><a href='$script?limit=$limit&level=$level&sort=37&function=16&mode=r&page=1'>Leu</a></TH><TH width=2%><a href='$script?limit=$limit&level=$level&sort=37&function=16&mode=r&page=2'>Mam</a></TH><TH width=2%><a href='$script?limit=$limit&level=$level&sort=37&function=16&mode=r&page=3'>Leb</a></TH><TH width=2%><a href='$script?limit=$limit&level=$level&sort=37&function=16&mode=r&page=4'>Per</a></TH><TH width=2%><a href='$script?limit=$limit&level=$level&sort=37&function=16&mode=r&page=5'>Ilr</a></TH>";

	print "<TH title='$aslist[6]'><a href='$script?limit=$limit&level=$level&sort=37&function=16&mode=r&page=6'>$assaultword[7]</a></TH><TH title='$aslist[7]'><a href='$script?limit=$limit&level=$level&sort=37&function=16&mode=r&page=7'>$assaultword[8]</a></TH><TH title='$aslist[8]'><a href='$script?limit=$limit&level=$level&sort=37&function=16&mode=r&page=8'>$assaultword[9]</a></TH><TH title='$aslist[21]'><a href='$script?limit=$limit&level=$level&sort=37&function=16&mode=r&page=21'>$assaultword[10]</a></TH><TH title='$aslist[22]'><a href='$script?limit=$limit&level=$level&sort=37&function=16&mode=r&page=22'>$assaultword[11]</a></TH><TH title='$aslist[31]'><a href='$script?limit=$limit&level=$level&sort=37&function=16&mode=r&page=31'>$assaultword[12]</a></TH><TH title='$aslist[32]'><a href='$script?limit=$limit&level=$level&sort=37&function=16&mode=r&page=32'>$assaultword[13]</a></TH>";

	print "<TH title='$aslist[9]'><a href='$script?limit=$limit&level=$level&sort=37&function=16&mode=r&page=9'>$assaultword[7]</a></TH><TH title='$aslist[10]'><a href='$script?limit=$limit&level=$level&sort=37&function=16&mode=r&page=10'>$assaultword[8]</a></TH><TH title='$aslist[11]'><a href='$script?limit=$limit&level=$level&sort=37&function=16&mode=r&page=11'>$assaultword[9]</a></TH><TH title='$aslist[23]'><a href='$script?limit=$limit&level=$level&sort=37&function=16&mode=r&page=23'>$assaultword[10]</a></TH><TH title='$aslist[24]'><a href='$script?limit=$limit&level=$level&sort=37&function=16&mode=r&page=24'>$assaultword[11]</a></TH><TH title='$aslist[33]'><a href='$script?limit=$limit&level=$level&sort=37&function=16&mode=r&page=33'>$assaultword[12]</a></TH><TH title='$aslist[34]'><a href='$script?limit=$limit&level=$level&sort=37&function=16&mode=r&page=34'>$assaultword[13]</a></TH>";

	print "<TH title='$aslist[12]'><a href='$script?limit=$limit&level=$level&sort=37&function=16&mode=r&page=12'>$assaultword[7]</a></TH><TH title='$aslist[13]'><a href='$script?limit=$limit&level=$level&sort=37&function=16&mode=r&page=13'>$assaultword[8]</a></TH><TH title='$aslist[14]'><a href='$script?limit=$limit&level=$level&sort=37&function=16&mode=r&page=14'>$assaultword[9]</a></TH><TH title='$aslist[25]'><a href='$script?limit=$limit&level=$level&sort=37&function=16&mode=r&page=25'>$assaultword[10]</a></TH><TH title='$aslist[26]'><a href='$script?limit=$limit&level=$level&sort=37&function=16&mode=r&page=26'>$assaultword[11]</a></TH><TH title='$aslist[35]'><a href='$script?limit=$limit&level=$level&sort=37&function=16&mode=r&page=35'>$assaultword[12]</a></TH><TH title='$aslist[36]'><a href='$script?limit=$limit&level=$level&sort=37&function=16&mode=r&page=36'>$assaultword[13]</a></TH>";

	print "<TH title='$aslist[15]'><a href='$script?limit=$limit&level=$level&sort=37&function=16&mode=r&page=15'>$assaultword[7]</a></TH><TH title='$aslist[16]'><a href='$script?limit=$limit&level=$level&sort=37&function=16&mode=r&page=16'>$assaultword[8]</a></TH><TH title='$aslist[17]'><a href='$script?limit=$limit&level=$level&sort=37&function=16&mode=r&page=17'>$assaultword[9]</a></TH><TH title='$aslist[27]'><a href='$script?limit=$limit&level=$level&sort=37&function=16&mode=r&page=27'>$assaultword[10]</a></TH><TH title='$aslist[28]'><a href='$script?limit=$limit&level=$level&sort=37&function=16&mode=r&page=28'>$assaultword[11]</a></TH><TH title='$aslist[37]'><a href='$script?limit=$limit&level=$level&sort=37&function=16&mode=r&page=37'>$assaultword[12]</a></TH><TH title='$aslist[38]'><a href='$script?limit=$limit&level=$level&sort=37&function=16&mode=r&page=38'>$assaultword[13]</a></TH>";

	print "<TH title='$aslist[18]'><a href='$script?limit=$limit&level=$level&sort=37&function=16&mode=r&page=18'>$assaultword[7]</a></TH><TH title='$aslist[19]'><a href='$script?limit=$limit&level=$level&sort=37&function=16&mode=r&page=19'>$assaultword[8]</a></TH><TH title='$aslist[20]'><a href='$script?limit=$limit&level=$level&sort=37&function=16&mode=r&page=20'>$assaultword[9]</a></TH><TH title='$aslist[29]'><a href='$script?limit=$limit&level=$level&sort=37&function=16&mode=r&page=29'>$assaultword[10]</a></TH><TH title='$aslist[30]'><a href='$script?limit=$limit&level=$level&sort=37&function=16&mode=r&page=30'>$assaultword[11]</a></TH><TH title='$aslist[39]'><a href='$script?limit=$limit&level=$level&sort=37&function=16&mode=r&page=39'>$assaultword[12]</a></TH><TH title='$aslist[40]'><a href='$script?limit=$limit&level=$level&sort=37&function=16&mode=r&page=40'>$assaultword[13]</a></TH></TR>";



$count=0;
}

$bgn="";

$diary="";
$diaryfile="$diarydir$name.$diaryletter";
if(-e "$diaryfile"){
$diary="<a href='$script?function=prof&name=$name'><img src='$diarygif' border=0>";
if((-M $diaryfile)<1){
	$diary.="<img src='$upgif' border=0>";
}
$diary.="</a>";
}


if($name eq $c_name){$bgn=" bgcolor=$mydata";} else {$bgn=" bgcolor=$otherdata";}
if($class eq ""){$class="&nbsp";}


print "<TR$bgn><TD align=center>$no</TD><TD><a href='$script?function=profdetail&name=$name'>$name</a>$diary</TD>";

@mission = split(/,/,$prod[15]);

@assault= split (//,$mission[16]);


print"<TD align=center>$asrank[$assault[0]]</td>";
print "<TD align=center>$maru[$assault[1]]</TD>";
print "<TD align=center>$maru[$assault[2]]</TD>";
print "<TD align=center>$maru[$assault[3]]</TD>";
print "<TD align=center>$maru[$assault[4]]</TD>";
print "<TD align=center>$maru[$assault[5]]</TD>";
print "<TD align=center>$maru[$assault[6]]</TD>";
print "<TD align=center>$maru[$assault[7]]</TD>";
print "<TD align=center>$maru[$assault[8]]</TD>";
print "<TD align=center>$maru[$assault[21]]</TD>";
print "<TD align=center>$maru[$assault[22]]</TD>";
print "<TD align=center>$maru[$assault[31]]</TD>";
print "<TD align=center>$maru[$assault[32]]</TD>";
print "<TD align=center>$maru[$assault[9]]</TD>";
print "<TD align=center>$maru[$assault[10]]</TD>";
print "<TD align=center>$maru[$assault[11]]</TD>";
print "<TD align=center>$maru[$assault[23]]</TD>";
print "<TD align=center>$maru[$assault[24]]</TD>";
print "<TD align=center>$maru[$assault[33]]</TD>";
print "<TD align=center>$maru[$assault[34]]</TD>";
print "<TD align=center>$maru[$assault[12]]</TD>";
print "<TD align=center>$maru[$assault[13]]</TD>";
print "<TD align=center>$maru[$assault[14]]</TD>";
print "<TD align=center>$maru[$assault[25]]</TD>";
print "<TD align=center>$maru[$assault[26]]</TD>";
print "<TD align=center>$maru[$assault[35]]</TD>";
print "<TD align=center>$maru[$assault[36]]</TD>";
print "<TD align=center>$maru[$assault[15]]</TD>";
print "<TD align=center>$maru[$assault[16]]</TD>";
print "<TD align=center>$maru[$assault[17]]</TD>";
print "<TD align=center>$maru[$assault[27]]</TD>";
print "<TD align=center>$maru[$assault[28]]</TD>";
print "<TD align=center>$maru[$assault[37]]</TD>";
print "<TD align=center>$maru[$assault[38]]</TD>";
print "<TD align=center>$maru[$assault[18]]</TD>";
print "<TD align=center>$maru[$assault[19]]</TD>";
print "<TD align=center>$maru[$assault[20]]</TD>";
print "<TD align=center>$maru[$assault[29]]</TD>";
print "<TD align=center>$maru[$assault[30]]</TD>";
print "<TD align=center>$maru[$assault[39]]</TD>";
print "<TD align=center>$maru[$assault[40]]</TD>";


$date=substr($time,0,8)."<br>".substr($time,9,2).":".substr($time,11,2);

print "<TD align=center>$date</TD></TR>\n";

$count++;
$number++;

}

print "</table>";
}



sub table_history{

#履歴表示
if(!open(IN,"$historyfile")){&header; &error_message('datafile error2449','data file access failed.');}
@list=<IN>;
close IN;

@list=reverse(@list);

$items="";
$item="";
$count=0;
if($language ne "English"){

	print "<table cellpading=0 width=100% class=tbl><TR bgcolor=$indexcolor><TH>変更内容</TH><TH>内容</TH><TH width=10%>時間</TH></TR>";
} else {
	print "<table cellpading=0 width=100% class=tbl><TR bgcolor=$indexcolor><TH>Abstracts</TH><TH>Contents</TH><TH width=10%>Time</TH></TR>";
}

foreach $i(@list){
	($dummy,$rname,$rtitle,$rtime,$rmaxno,$rbody)=split(/\t/,$i);
	$rbody =~ s/&/&amp;/g;
	$rbody =~ s/"/&quot;/g;
	$rbody =~ s/'/&apos;/g;
	$rbody =~ s/&amp;sbquo;/&sbquo;/g;
	$rbody =~ s/&amp;lt;/&lt;/g;
	$rbody =~ s/&amp;gt;/&gt;/g;
	$rtime =~ s/T/ /g;
	$rtime =~ s/\+09:00//g;

if($language ne "English"){

if($dummy eq "DWRITE"){
	$rstitle="$rtitle : $rname さんの日記[$rmaxno]更新";
	$rsource="$rname/diary/$rmaxno";
	$link="$script?function=prof&amp;name=$rname&amp;mode=$rmaxno";
}
if($dummy eq "NEWREG"){
	$rstitle="$rtitle : $rname さん[$rmaxno]新規登録";
	$rsource="$rname/newreg/$rmaxno";
	$link="$script?function=profdetail&amp;name=$rname";
	$rbody="新規登録";
}
if($dummy eq "DMODIF"){
	$rstitle="$rtitle : $rname さんの日記[$rmaxno]修正";
	$rsource="$rname/dmodif/$rmaxno";
	$link="$script?function=prof&amp;name=$rname&amp;mode=$rmaxno&amp;mod";
	$rbody="日記修正";
}
if($dummy eq "PROFED"){
	$rstitle="$rname さんプロフィール変更";
	$rsource="$rname/profed/$rmaxno";
	$link="$script?function=profdetail&amp;name=$rname";
	$rbody =~ s/\//<BR>\n/g;
}
if($dummy eq "MERIED"){
	$rstitle="$rname さんメリットポイント 変更";
	$rsource="$rname/profed/$rmaxno";
	$link="$script?function=profdetail&amp;name=$rname";
	$rbody =~ s/\//<BR>\n/g;
#	$rbody = "メリットポイントに変更がありました。";
}
if($dummy eq "CUSTED"){
	$rstitle="$rname さん$custom_field[0] 変更";
	$rsource="$rname/profed/$rmaxno";
	$link="$script?function=profdetail&amp;name=$rname";
	$rbody =~ s/\//<BR>\n/g;
#	$rbody = "$custom_field[0]変更";
}
if($dummy eq "DERASE"){
	$rstitle="$rname さんの日記[$rmaxno]が削除";
	$rsource="$rname/derase/$rmaxno";
	$link="$script?function=prof&amp;name=$rname&amp;del";
	$rbody="deleted";
}

if($dummy eq "RESDIA"){
	($n1,$n2)=split(/ /,$rname);
	$rstitle="$n2 さんの日記[$rmaxno]に$n1さんがレス";
	$rsource="$n1$n2$rtitle/resdia/$rmaxno";
	$link="$script?function=prof&amp;name=$n2&amp;mode=$rmaxno&amp;$rtitle";
}
} else {

if($dummy eq "DWRITE"){
	$rstitle="$rtitle : $rname 's new diary[$rmaxno]";
	$rsource="$rname/diary/$rmaxno";
	$link="$script?function=prof&amp;name=$rname&amp;no=$rmaxno";
}
if($dummy eq "NEWREG"){
	$rstitle="$rtitle : $rname is new comer [$rmaxno]";
	$rsource="$rname/newreg/$rmaxno";
	$link="$script?function=profdetail&amp;name=$rname";
	$rbody="New Regist";
}
if($dummy eq "DMODIF"){
	$rstitle="$rtitle : $rname 's diary modified[$rmaxno]";
	$rsource="$rname/dmodif/$rmaxno";
	$link="$script?function=prof&amp;name=$rname&amp;mode=$rmaxno&amp;mod";
	$rbody="Diary modified";
}
if($dummy eq "PROFED"){
	$rstitle="$rname chaged profile.";
	$rsource="$rname/profed/$rmaxno";
	$link="$script?function=profdetail&amp;name=$rname";
	$rbody =~ s/\//<BR>\n/g;
}
if($dummy eq "MERIED"){
	$rstitle="$rname changed merit point status.";
	$rsource="$rname/profed/$rmaxno";
	$link="$script?function=profdetail&amp;name=$rname";
	$rbody =~ s/\//<BR>\n/g;
}
if($dummy eq "DERASE"){
	$rstitle="$rname 's diary  deleted[$rmaxno]";
	$rsource="$rname/derase/$rmaxno";
	$link="$script?function=prof&amp;name=$rname&amp;del";
	$rbody="deleted";
}

if($dummy eq "RESDIA"){
	($n1,$n2)=split(/ /,$rname);
	$rstitle="Respose for $n2 's diary [$rmaxno] from $n1";
	$rsource="$n1$n2$rtitle/resdia/$rmaxno";
	$link="$script?function=prof&amp;name=$n2&amp;mode=$rmaxno&amp;$rtitle";
}

}

	@rbodylines = split(/<BR>/,$rbody);
	if ($#rbodylines > 8)
	{
		$rbody = join("<BR>", @rbodylines[0..5])."(and more)";
	}


print "<TR bgcolor=$otherdata><TD><a href='$link'>$rstitle</a></TD><TD>$rbody</TD><TD>$rtime</TD></TR>";

$count++;

}
print "</Table>";

}

sub table_custom {

if($custom_control[0]){
	print "未入力者非表\示モード";
}

	print "<table cellpading=0 width=100% class=tbl><TR bgcolor=$indexcolor><TH width=2%>$index[0]</TH></TH><TH width=10%><a href='$script?limit=$limit&level=$level&sort=1'>$index[2]</a></TH>";

for($j=1;$j<$#custom_field+1;$j++){

	$sort="&";
	if($custom_sort[$j]>1){$sort .= "mode=r&";}
	if($custom_sort[$j]==1 || $custom_sort[$j] ==3){$sort .= "no=1";}
	
#ソートコード 0:設定ナシ 1:数字 2:リバース 3:数字リバース)

	print "<TH><a href='$script?limit=$limit&level=$level&sort=33&function=$j$sort'>$custom_field[$j]</a></TH>";
}

	print "<TH width=5%><a href='$script?limit=$limit&level=$level&sort=16&mode=r'>$index[8]</a></TH></TR>";

$count=0;

$number=1;
foreach $i (@all){

	 ($no,$name,$pass,$anon,$race,$relm,$mainjob,$supportjob,$prof,$handle,$polhn,$mail,$home,$comment2,$point,$class,$time,$comment,$mrank,$etc[0],$etc[1],$etc[2],$prod[0],$prod[1],$prod[2],$prod[3],$prod[4],$prod[5],$prod[6],$prod[7],$prod[8],$prod[9],$prod[10],$prod[11],$prod[12],$prod[13],$prod[14],$prod[15],$lev[0],$lev[1],$lev[2],$lev[3],$lev[4],$lev[5],$lev[6],$lev[7],$lev[8],$lev[9],$lev[10],$lev[11],$lev[12],$lev[13],$lev[14],$lev[15],$lev[16],$lev[17],$lev[18],$lev[19])=split(/\t/,$i);

@custom=split(/,/,$prod[11]);


if($count==$c_max){
	print "<table cellpading=0 width=100% class=tbl><TR bgcolor=$indexcolor><TH width=2%>$index[0]</TH></TH><TH width=10%><a href='$script?limit=$limit&level=$level&sort=1'>$index[2]</a></TH>";

for($j=1;$j<$#custom_field+1;$j++){
	print "<TH><a href='$script?limit=$limit&level=$level&sort=33&mode=r&function=$j'>$custom_field[$j]</a></TH>";
}
	print "<TH width=5%><a href='$script?limit=$limit&level=$level&sort=16&mode=r'>$index[8]</a></TH></TR>";

$count=0;
}


$bgn="";

$diary="";
$diaryfile="$diarydir$name.$diaryletter";
if(-e "$diaryfile"){
$diary="<a href='$script?function=prof&name=$name'><img src='$diarygif' border=0>";
if((-M $diaryfile)<1){
	$diary.="<img src='$upgif' border=0>";
}
$diary.="</a>";
}


if($name eq $c_name){$bgn=" bgcolor=$mydata";} else {$bgn=" bgcolor=$otherdata";}
if($class eq ""){$class="&nbsp";}

if($custom_control[0]){
	$match=0;
	for($j=1;$j<$#custom_field+1;$j++){
		$match += ($custom[$j] == 0);
	}
} else {
	$match=0;
}
if($match != $#custom_field){
print "<TR$bgn><TD align=center>$no</TD><TD><a href='$script?function=profdetail&name=$name'>$name</a>$diary</TD>";

for($j=1;$j<$#custom_field+1;$j++){
	if($custom_pulldown[$j]==0){
		print "<TD>$custom[$j]</TD>";
	} else {
		print "<TD>".${"custom_list$j"}[$custom[$j]]."</TD>";
	}
}


$date=substr($time,0,8)."<br>".substr($time,9,2).":".substr($time,11,2);

print "<TD align=center>$date</TD></TR>\n";

$count++;
$number++;
}
}

print "</table>";
}