inc-html-ranking.cgi

use utf8;
# 新聞（順位） 2005/01/06 由來

my ($page,$pagestart,$pageend,$pagenext,$pageprev,$pagemax)
	=GetPage($Q{pg},$RANKING_PAGE_ROWS,$DTusercount);

$disp.="<BIG>●".l('新聞：順位リスト')."</BIG><br><br>";
my $pagecontrol=GetPageControl($pageprev,$pagenext,"t=4","",$pagemax,$page);
$disp.=$pagecontrol."<BR>";
$disp.=$TB;

if(!$MOBILE)
{
	$disp.=$TR;
	$disp.=$TDB.l('点数');
	$disp.=$TDB.l('店長');
	$disp.=$TDB.l('ジョブ');
	$disp.=$TDB.l('店名　人気');
	$disp.=$TDB.l('今期売上');
	$disp.=$TDB.l('資金');
	$disp.=$TDB.l('熟練');
	$disp.=$TDB.l('商品 【創業】 コメント');
	$disp.=$TRE;
}
else
{
	$tdh_rk=l('RANK').':';
	$tdh_pt=l('点数').':';
	$tdh_nm=l('店名').':';
	$tdh_pp=l('人気').':';
	$tdh_mo=l('資金').':';
	$tdh_ts=l('本売').':';
	$tdh_ys=l('昨売').':';
	$tdh_cs=l('維持').':';
	$tdh_sc=l('一押').':';
	$tdh_cm=l('一言').':';
	$tdh_tx=l('昨税').':';
	$tdh_ex=l('熟練').':';
	$tdh_fd=l('創業').':';
}

foreach my $idx ($pagestart..$pageend)
{
	my $DT=$DT[$idx];
	
	my $rankupdown="(新)";
	if($DT->{rankingyesterday})
	{
		$rankupdown=$DT->{rankingyesterday}-$idx-1;
		$rankupdown=$rankupdown==0 ? " → ": $rankupdown<0 ? "↓".(-$rankupdown) : "↑".$rankupdown;
		$rankupdown="<small>($rankupdown)</small>";
	}
	my $itemtype=-1;
	my $itempro="";
	my $salelist="";
	foreach(0..$DT->{showcasecount}-1)
	{
		my $no=$DT->{showcase}[$_];
		$salelist.=GetTagImgItemType($no);
		$itemtype=0,next if $itemtype!=-1 && $ITEM[$no]->{type}!=$itemtype;
		$itemtype=$ITEM[$no]->{type};
	}
	$itempro=GetTagImgItemType(0,$itemtype,1)." " if $itemtype;
	my $itemno=$DT->{showcase}[0];
	$salelist.=" ".$ITEM[$itemno]->{name}." ".GetMoneyString($DT->{price}[0]) if $itemno;
	
	my $expsum=0;
	foreach(values(%{$DT->{exp}})){$expsum+=$_;}
	$expsum=int($expsum/10)."%";
	
	$disp.=$TR;
	$disp.="<td align=right><b>No.".($idx+1)."</b>".$rankupdown;
	$disp.="<br>".$DT->{point};
	$disp.=$TDNW.$tdh_pt.GetTagImgKao($DT->{name},$DT->{icon});
	$disp.="<td align=center>".GetTagImgJob($DT->{job},$DT->{icon});
	$disp.=$TD.$tdh_nm;
	$disp.=    "<a href=\"action.cgi?key=shop-b&ds=$DT->{id}&$USERPASSURL\">" if !$GUEST_USER;
	$disp.=    GetTagImgGuild($DT->{guild}).$job.$DT->{shopname};
	$disp.=    "</a>" if !$GUEST_USER;
	$disp.=GetTopCountImage($DT->{rankingcount}+0) if $DT->{rankingcount};
	$disp.="<BR>";
	$disp.=GetRankMessage($DT->{rank});
	$disp.=$TDNW.$tdh_ts.GetMoneyString($DT->{saletoday});
	$disp.=$TDNW.$tdh_mo.GetMoneyMessage($DT->{money});
	$disp.=$TDNW.$tdh_ex.$expsum;
	
	$disp.=$TD;
	
	$disp.=$tdh_sc.$itempro.$salelist;
	
	$disp.="<BR>";
	
	$disp.=$tdh_fd."【".GetTime2found($NOW_TIME-$DT->{foundation})."】";
	$disp.=$tdh_cm.$DT->{comment} if $DT->{comment};
	$disp.=$TRE;
}
$disp.=$TBE;

$disp.=$pagecontrol;
1;