#############簡易個人図鑑システムby無重力######################################################
#
#一応動作確認していますが、動作の保証はできません。
#このスクリプトによって何らかの障害が生じたとしても、こちらに責任はないものとします。
#必ずバックアップを取ってから実行するようにしてください
#このスクリプトに関する質問、改善案等は、メールにて受け付けています。→za140404@hmb.hokkaido-pc.ac.jp
#
#################################################################################################
#
#○仕様
#・レアアイテムと、準レアアイテムを装備か予備に入れた状態で図鑑コマンドを開くと、自動的に登録されます。
#・登録された武器は図鑑コマンド内に一覧表示されます。
#・個人図鑑なので、それぞれのプレイヤーの分が別々に保存されます。
#・防具には対応していません。(私のEBでは防具は未搭載なので。)
#　簡単に加えることはできると思いますが、要望があれば追加します。
#・武器データの「入手方法」の所を使用していますので、そこに何らかの改造を加えている方は注意してください。
#
############################################################################################
#
#�@ebs.cgiに
#   sub zukan	{require 'ebs_sub5.cgi';&zukan;}
#　を追加します。
########################################
#�Aリンクを張ります
#※ステータス画面から飛ぶ場合
#  <td><input type=submit name="custom" value="図鑑" $STYLE_B1 onClick="document.FM.cmd.value='zukan';Move()"></td>
#※特殊コマンド内から飛ぶ場合
#  $sp.= "<input name=\"b_mode\" type=\"submit\" value=\"図鑑\" $STYLE_B1 onClick=\"document.Ms.cmd.value='zukan';\">"
#
################################################
#�Bsub2の216、217行目を
#
#  $opt.= "<option value=\"$W_key\">$W[0]\n"if $W[6]>=4 && $W_key ne $FORM{'wname'};
#  $opt.= "<option value=\"$W_key\" selected>$W[0]\n"if $W[6]>=4 && $W_key eq $FORM{'wname'};
#
#--------↓これ↓に張り替えます。--------------------------------------------------------------
#
#  $opt.= "<option value=\"$W_key\">$W[0]\n"if $W[6]>=4 && $W_key ne $FORM{'wname'} &&$W[6]<10;
#  $opt.= "<option value=\"$W_key\" selected>$W[0]\n"if $W[6]>=4 && $W_key eq $FORM{'wname'} &&$W[6]<10;
#
#########################################
#�Csub5の80行目を
#  if($ByW[5] <= $PL_VALUES[8] && $ByW[6] != 1 && $ByW[6] != 4 && $ByW[6] != 5){
#
#------------↓これ↓に張り替えます-----------------------------------------------------------------
#
#  if($ByW[5] <= $PL_VALUES[8] && $ByW[6] != 1 && $ByW[6] != 4 && $ByW[6] != 5 && $ByW[6]<10){
#
######################################
#�D_hush.dataの登録したい武器の[6]番目(入手方法の所)にレアアイテムなら10から、準レアアイテムなら100から数字を入れます。
#　（例）
#  "a"=>"ビームナギナタ,2500,65,2,40,5000,11,0",               ←２個目のレアアイテム
#  "aa"=>"メガビームナギナタ,3000,65,2,50,10000,10,0",         ←１個目のレアアイテム
#  "bbbb"=>"高出力ビームトマホーク,10000,80,1,150,40000,100,0",←1個目の準レアアイテム
#
#######################################
#�E下記の$namae="〜";と$namaeb="〜";の中に、先ほど割り当てた数字の武器の名前を!の間に書き込みます。
#　数を増やしたい場合、!を新たに書き加えてその間に書き込んでください。
#　（例）
#  $namae="メガビームナギナタ!ビームナギナタ";
#
######################################
#�F空いている$PL_VALUES[]変数に図鑑登録数、図鑑内容１、図鑑内容２を割り当てます。
#　ちなみに下記のものはそれぞれ[41][42][43]に割り当てられています。自分に合わせて変えてください。
#
######################################
#�G登録するアイテムの総数を、$rea=●;$jrea=●;の●のところに書き込みます。(番号ではなく絶対数です。)
#
###########################################
#�H以下のsub zukan{　から　####の上までを、sub5の一番下の1;　の上にコピ＆ペします。
#
########################################################################################

sub zukan {
	&LOCK;&DBM_CONVERT('P',"$FORM{pname}");&UNLOCK;
	&CUSTOM_HEADER('Main');
	$c=0;
	&DBM_INPORT(P);

	$rea=●;#レアアイテムの総計
	$jrea=●;#準レアアイテムの総計

	@PL_VALUES = split(/\s/,$P{"$FORM{'pname'}"});
	@list=split(/!/,$PL_VALUES[42]);
	@lists=split(/!/,$PL_VALUES[43]);
	@PL_Wa = split(/!/,$PL_VALUES[9]);
	@PL_Wb = split(/!/,$PL_VALUES[10]);
	@PL_Wc = split(/!/,$PL_VALUES[11]);
	@PL_Wd = split(/!/,$PL_VALUES[12]);
	require "./$LOG_FOLDER/$HASH_DATA";
	@PL_ww = split(/\,/,$WEAPON_LIST{"$PL_Wa[0]"});
	@PL_wwb = split(/\,/,$WEAPON_LIST{"$PL_Wb[0]"});
	@PL_wwc = split(/\,/,$WEAPON_LIST{"$PL_Wc[0]"});
	@PL_wwd = split(/\,/,$WEAPON_LIST{"$PL_Wd[0]"});
	@get=split(/!/,$PL_VALUES[41]);
	$wa=$PL_ww[6];
	$wb=$PL_wwb[6];
	$wc=$PL_wwc[6];
	$wd=$PL_wwd[6];
	if($wa>9 && $list[$wa-10]==0 && $wa<100){$list[$wa-10]=1;$get[0]++;}
	elsif($wa>99 && $lists[$wa-100]==0){$lists[$wa-100]=1;$get[1]++;}
	if($wb>9 && $list[$wb-10]==0 && $wb<100){$list[$wb-10]=1;$get[0]++;}
	elsif($wb>99 && $lists[$wb-100]==0){$lists[$wb-100]=1;$get[1]++;}
	if($wc>9 && $list[$wc-10]==0 && $wc<100){$list[$wc-10]=1;$get[0]++;}
	elsif($wc>99 && $lists[$wc-100]==0){$lists[$wc-100]=1;$get[1]++;}
	if($wd>9 && $list[$wd-10]==0 && $wd<100){$list[$wd-10]=1;$get[0]++;}
	elsif($wd>99 && $lists[$wd-100]==0){$lists[$wd-100]=1;$get[1]++;}
	
	$namae="10番とした武器名!11番とした武器名!12番!13番!14番!15番!16番!17番・・・!!!!!!!!!!ｍ番";
	@namae=split(/!/,$namae);
	$namaeb="100番とした武器名!101番とした武器名!102番とした武器名!103番!104番!105番!106番・・・!!!!!ｎ番";
	@namaeb=split(/!/,$namaeb);


	print "<script language=\"JavaScript\">\nfunction changeImg(){num=document.Ms.icon.value;document.msImg.src=\"$IMG_FOLDER2/\"+ num +\".gif\";}\n</script>";
	print"<table border=1 bgcolor=000033><tr bgcolor=606090><td colspan=2><b><font size=2>レアアイテム</tr>";
	print"<tr align=center><td colspan=2><b><font color=ffff00>入手済レアアイテム</b>$get[0]／$rea</tr>";
	for($i=0;$i<$rea;$i++){
		if ($list[$i]==1){print"<tr><td>No.$i<td><i>$namae[$i]</tr>";}
	}
	print"</table><td>";
	print"<table border=1 bgcolor=000033><tr bgcolor=606090><td colspan=2><b><font size=2>準レアアイテム</tr>";
	print"<tr align=center><td colspan=2><b><font color=ffff00>入手済レアアイテム</b>$get[1]／$jrea</tr>";
	for($i=0;$i<$jrea;$i++){
		if ($lists[$i]==1){print"<tr><td>No.$i<td><i>$namaeb[$i]</tr>";}
	}

	print "</table><b>※レア武器として認定されている武器を装備または予\備に入れた状態でこの画面を開くと、自動的に登録されます。</b>\n";
	$PL_VALUES[41]="$get[0]!$get[1]";
	$PL_VALUES[42]="$list[0]";
	for($i=1;$i<$rea+1;$i++){
		$PL_VALUES[42].="!$list[$i]";
	}
	$PL_VALUES[43]="$lists[0]";
	for($i=1;$i<$jrea+1;$i++){
		$PL_VALUES[43].="!$lists[$i]";
	}



	&LOCK;
	dbmopen (%PL,"$DBM_P",0666);
		$PL{"$FORM{'pname'}"}="@PL_VALUES";
	dbmclose %PL;
	&UNLOCK;

	&FOOTER;


}

###############################################################################

#登録数を殿堂に表示したい場合は、ranking.cgiに以下のものを加えてください。
#40行目ぐらい↓
sub buki		{&buki}

#70行目ぐらい↓
<tr><td bgcolor=#606090 align=center>コレクター</td>
<td style="border:1px solid #606090;font-size:12px;color:#ffffff;">レアアイテム収集家</td>
<td style="border:1px solid #606090;"><input type=submit value="GO" $STYLE_B2 onClick="choice.cmd.value='buki'"></td>
</tr>

#一番下↓
sub buki{

&HEADER;
&DBM_INPORT(P);
print << "-----END-----";

<table width=100% height=100%><tr><td align=center>
<table cellspacing=2 cellpadding=3 bgcolor="#9090a0" style="font-size:16px;" border=1>
<tr><td bgcolor=#606090 colspan=6><center><b>ランキング</b></center></td></tr>
<tr><td>ＮＯ．</td><td>Name</td><td>所属国</td><td>収集数</td><td>Player</td><td>Icon</td></tr>

-----END-----
$i=0;@tmp1 =();
while (my($key,$val) = each %P){
@VALS = split(/\s/,$val);
@kazu = split(/!/,$VALS[41]);
$summ=$kazu[0]+$kazu[1];
push(@tmp1, $summ);
$PNAME[$i]=$key;
if($VALS[5] eq ''){$PCOUNTRY[$i]="$NONE_NATIONALITY";}else{$PCOUNTRY[$i]="$VALS[5]";}
$PMONEY[$i]=$kazu[0]+$kazu[1];
$rea[$i]=$kazu[0];
$jrea[$i]=$kazu[1];
$MSNAME[$i]="$VALS[3]";
$MSGIF[$i]="$VALS[27]";
$i++;
}

@PNAME = @PNAME[sort {$tmp1[$b] <=> $tmp1[$a]} 0 .. $#tmp1];
@PCOUNTRY = @PCOUNTRY[sort {$tmp1[$b] <=> $tmp1[$a]} 0 .. $#tmp1];
@PMONEY = @PMONEY[sort {$tmp1[$b] <=> $tmp1[$a]} 0 .. $#tmp1];
@rea = @rea[sort {$tmp1[$b] <=> $tmp1[$a]} 0 .. $#tmp1];
@jrea = @jrea[sort {$tmp1[$b] <=> $tmp1[$a]} 0 .. $#tmp1];
@MSNAME = @MSNAME[sort {$tmp1[$b] <=> $tmp1[$a]} 0 .. $#tmp1];
@MSGIF = @MSGIF[sort {$tmp1[$b] <=> $tmp1[$a]} 0 .. $#tmp1];

$j=0;$count=$i-1;
foreach(0..$count) {
     if($j >= $RANKNUM) { last; }
     $k=$j+1;$size=$RANKNUM-$j;
print "<tr><td>$k</td><td><font>$MSNAME[$j]</font></td><td><font color=BLACK>【$PCOUNTRY[$j]】</font></td><td align=right>レア<font color=RED size=6>$rea[$j]</font>個、準レア<font color=RED size=6>$jrea[$j]</font>個</font></td><td><font color=BLUE>$PNAME[$j]</td><td><img src=\"$IMG_FOLDER2/$MSGIF[$j].gif\"></td></tr>";

$j++;
}

print << "-----END-----";

<form action=$SCRIPTNM method=POST>
<input type=hidden name="cmd" value="CHOICE">
<tr><td colspan=6>
<input type=submit value=戻る $STYLE_B2>
</td></tr></table>
-----END-----
	print "<BR><center>ランキング：EDIT BY <a href=\"http://members.jcom.home.ne.jp/masimaro/\">MASIMARO</a></center>";
&FOOTER;
print "</td></tr></table></form></body>";
}