#!/usr/bin/perl

# GMR Equipment management sub routine
#   equip.pl
#
#   ver 0.697a (09/05/04)

#def_equip_list;	リスト定義
#table_weapons;		武器一覧表示
#table_armor1;		防具一覧表示（汎用）
#table_armor2;		防具一覧表示（免罪）
#table_armor3;		防具一覧表示（Af2）

#
sub def_equip_list {
	if($language ne "English"){
		#装備分類の定義
		@equiplist = (
			'レリック武器',
			'ミシック武器',
			'ルモリア武器',
			'その他武器',
			'リンバス防具',
			'ナイズル防具',
			'サルベージ防具',
			'四神装備',
			'その他防具',
			'免罪装備',
			'レリック装束',
			'花鳥風月'
		);
		
		#その他武器の定義
		@otherwlist = (
			'リディル',
			'オートクレール',
			'ホフド',
			'アルゴル',
			'バルキリーフォーク',
			'布都御魂',
			'セブンアイズ',
			'ラファエルロッド',
			'オウレオール',
			'シェンロンバグナウ',
			'キューデルミヌ',
			'カグルマンダー',
			'シェヘラザード',
			'ザイーデ',
			'ゾンニュア'
#			'バークボーラー',
#			'エヴァントルーズ',
#			'鬼縛り',
		);
		
		#レリック武器の定義
		@relicwlist = (
			'スファライ',
			'マンダウ',
			'エクスカリバー',
			'ラグナロク',
			'ガトラー',
			'ブラビューラ',
			'アポカリプス',
			'グングニル',
			'鬼哭',
			'天の村雲',
			'ミョルニル',
			'クラウストルム',
			'与一の弓',
			'アナイアレイター',
			'イージス',
			'ギャッラルホルン'
		);
		#英魂武器＝ミシック武器＝バルラーンの秘宝の定義
		@mythicwlist = (
			'グランツファウスト',
			'乾坤圏',
			'ヴァジュラ',
			'カルンウェナン',
			'テルプシコラー',
			'ミュルグレス',
			'ブルトガング',
			'ティソーナ',
			'アイムール',
			'コンカラー',
			'リベレーター',
			'竜の髭',
			'凪',
			'小鴉丸',
			'ヤグルシュ',
			'レーヴァテイン',
			'ニルヴァーナ',
			'トゥプシマティ',
			'ガストラフェテス',
			'デスペナルティ'
		);
		#七徳武器（七元徳武器）＝海NM武器の定義
		@lumoriawlist =(
			'フェイスバグナウ',
			'ジャスティスソード',
			'テンペランスアクス',
			'フォーテテュアクス',
			'ラヴハルバード',
			'プルーデンスロッド',
			'ホープスタッフ'
		);
		#リンバス防具＝ホマム・ナシラの定義
		@limbusalist = (
			'ホマム,ナシラ',
			'0/ホマムツッケット,1/ホマムコラッツァ,2/ホマムマノポラ,3/ホマムコッシャレ,4/ホマムガンビエラ',
			'0/ナシラターバン,1/ナシラマンティル,2/ナシラゲージ,3/ナシラサラウィル,4/ナシラクラッコー'
		);
		#ナイズル防具の定義
		@nyzulalist = (
			'アスカル,デナリ,ゴリアード',
			'0/アスカルツッケット,1/アスカルコラジン,2/アスカルマノポラ,3/アスカルディル,4/アスカルガンビエラ',
			'0/デナリボンネット,1/デナリジャケット,2/デナリリスト,3/デナリケックス,4/デナリゲマッシュ',
			'0/ゴリアードシャポー,1/ゴリアードサイオ,2/ゴリアードカフス,3/ゴリアードトルーズ,4/ゴリアードクロッグ'
		);
		#サルベージ強化装備の定義
		@salvagealist = (
			'アレス,スカディ,薄金,マルドゥク,モリガン',
			'0/アレスマスク,1/アレスキュイラス,2/アレスガントレット,3/アレスフランチャー,4/アレスソルレット',
			'0/スカディバイザー,1/スカディクウィリ,2/スカディバズバンド,3/スカディショウス,4/スカディジャンボー',
			'0/薄金総面,1/薄金腹巻,2/薄金篭手,3/薄金膝甲,4/薄金脛当',
			'0/マルドゥクティアラ,1/マルドゥクジュバ,2/マルドゥクダスタナ,3/マルドゥクシャルワ,4/マルドゥククラッコ',
			'0/モリガンコロナル,1/モリガンローブ,2/モリガンカフス,3/モリガンスロップス,4/モリガンピガッシュ'
		);
		#四神＝空NM装備の定義
		@tuliaalist = (
			'四神',
			'0/玄武兜,1/麒麟大袖,2/青龍篭手,3/白虎佩楯,4/朱雀脛当,11/玄武盾'
		);
		@otheralist = (
			'その他防具,MMM傭兵課',
			'3/バルバロッサゼレハ,7/黒帯,7/ニヌルタサッシュ,8/守りの指輪,8/マルスリング,8/ベローナリング,8/ミネルヴァリング,9/ノーヴィアピアス,9/ノーヴィオピアス',
			'5/ノールトルク,6/マムージャマント,9/マムージャピアス,8/アンティカリング'
#			0/ノールクラウン,0/アンティカバンド,9/リコポンピアス,7/リコポンサッシュ
		);
		#免罪装備の定義
		@abjurationalist = (
			'神木（修羅）,地霊（アダマン）,海霊（ゼニス）,武王（ケーニヒ）,真龍（クリムゾン）,海王（ヘカトン）,英霊（シャドウ）,冥王（シャドウ）',
			'0/修羅頭成兜,1/修羅闘着,2/修羅篠篭手,3/修羅板佩楯,4/羅篠脛当',
			'0/アダマンチェラータ,1/アダマンホーバーク,2/アダマンマフラ,3/アダマンブリーチズ,4/アダマンソルレット',
			'0/ゼニスクラウン,1/ダルマティカ,2/ゼニスミトン,3/ゼニスズボン,4/ゼニスパンプス',
			'0/ケーニヒシャレル,1/ケーニヒキューラス,2/ケーニヒハントシュ,3/ケーニヒディヒリン,4/ケーニヒシュー',
			'0/クリムゾンマスク,1/クリムゾンスケイル,2/クリムゾンフィンガ,3/クリムゾンクウィス,4/クリムゾングリーヴ',
			'0/ヘカトンキャップ,1/ヘカトンハーネス,2/ヘカトンミトン,3/ヘカトンサブリガ,4/ヘカトンレギンス',
			'0/シャドウヘルム,1/シャドウプレート,2/シャドウガントレ,3/シャドウクイシュ,4/シャドウサバトン',
			'0/シャドウハット,1/シャドウコート,2/シャドウカフス,3/シャドウトルーズ,4/シャドウクロッグ'
		);
		#レリック防具＝AF2の定義
		@relicalist = (
			'0/ウォリアー,1/メレー,2/クレリク,3/ソーサラー,4/デュエル,5/アサシン,6/ヴァラー,7/アビス,8/スカウト,9/バード,10/モンスター,11/ウィルム,12/サマナー,13/甲賀,14/早乙女,15/ミラージ,16/コモドア,17/パンタン,18/エトワール,19/アギュト',
		
			'0/ウォリアーマスク,1/ウォリアーロリカ,2/ウォリアーマフラ,3/ウォリアークウィス,4/ウォリアーカリガ',
			'0/メレークラウン,1/メレーシクラス,2/メレーグローブ,3/メレーホーズ,4/メレーゲートル',
			'0/クレリクキャップ,1/クレリクブリオー,2/クレリクミトン,3/クレリクパンタロン,4/クレリクダックビル',
			'0/ソーサラーペタソス,1/ソーサラーコート,2/ソーサラーグローブ,3/ソーサラートンバン,4/ソーサラーサボ',
			'0/デュエルシャポー,1/デュエルタバード,2/デュエルグローブ,3/デュエルタイツ,4/デュエルブーツ',
			'0/アサシンボンネット,1/アサシンベスト,2/アサシンアムレット,3/アサシンキュロット,4/アサシンプーレーヌ',
			'0/ヴァラーコロネット,1/ヴァラーサーコート,2/ヴァラーガントレ,3/ヴァラーブリーチズ,4/ヴァラーレギンス',
			'0/アビスバーゴネット,1/アビスキュイラス,2/アビスガントレット,3/アビスフランチャー,4/アビスソルレット',
			'0/スカウトベレー,1/スカウトジャーキン,2/スカウトブレーサー,3/スカウトブラッカエ,4/スカウトソックス',
			'0/バードラウンドリト,1/バードジュストコル,2/バードカフス,3/バードキャニオンズ,4/バードスリッパー',
			'0/モンスターヘルム,1/モンスタージャック,2/モンスターグローブ,3/モンスタートラウザ,4/モンスターゲートル',
			'0/ウィルムアーメット,1/ウィルムメイル,2/ウィルムフィンガー,3/ウィルムブレー,4/ウィルムグリーヴ',
			'0/サマナーホーン,1/サマナーダブレット,2/サマナーブレーサー,3/サマナースパッツ,4/サマナーピガッシュ',
			'0/甲賀半首,1/甲賀鎖帷子,2/甲賀手甲,3/甲賀袴,4/甲賀脚絆',
			'0/早乙女桃形兜,1/早乙女胴丸,2/早乙女筒篭手,3/早乙女板佩楯,4/早乙女筒脛当',
			'0/ミラージケフィエ,1/ミラージジュバ,2/ミラージバズバンド,3/ミラージシャルワー,4/ミラージチャルク',
			'0/コモドアトリコルヌ,1/コモドアフラック,2/コモドアガントリー,3/コモドアトルーズ,4/コモドアブーツ',
			'0/パンタンタージ,1/パンタントベ,2/パンタンダスタナ,3/パンタンチュリダル,4/パンタンバブーシュ',
			'0/エトワールティアラ,1/エトワールカザク,2/エトワールバングル,3/エトワールタイツ,4/エトワールシュー',
			'0/アギュトボード,1/アギュトガウン,2/アギュトブレーサー,3/アギュトパンツ,4/アギュトローファー'
		);
		
		# 花鳥風月エクレア装備
		@cosmicalist = (
			'オーラム,エンキドゥ,オラクル',
			'0/オーラムアーメット,1/オーラムキュイラス,2/オーラムガントレ,3/オーラムクウィス,4/オーラムサバトン',
			'0/エンキドゥキャップ,1/エンキドゥハーネス,2/エンキドゥミトン,3/エンキドゥサブリガ,4/エンキドゥレギンス',
			'0/オラクルキャップ,1/オラクルローブ,2/オラクルグローブ,3/オラクルブラコーニ,4/オラクルピガッシュ'
		);
	}
	else {
		@equiplist = (
			'Relic Weapons',
			'Mythic Weapons',
			'Lumoria Weapons',
			'Other Weapons',
			'Limbus Armor',
			'Nyzul Armor',
			'Salvage Armor',
			'Tulia NM Armor',
			'Other Armer',
			'Abjuration Armor',
			'Relic Armor',
			'Cosmic Elucidation'
		);
		@relicwlist = (
			'Spharai',
			'Mandau',
			'Excalibur',
			'Ragnarok',
			'Guttler',
			'Bravura',
			'Apocalypse',
			'Gungnir',
			'Kikoku',
			'Amanomurakumo',
			'Mjollnir',
			'Claustrum',
			'Yoichinoyumi',
			'Annihilator',
			'Aegis',
			'Gjallarhorn'
		);
		@mythicwlist = (
			'Glanzfaust',
			'Kenkonken',
			'Vajra',
			'Carnwenhan',
			'Terpsichore',
			'Murgleis',
			'Burtgang',
			'Tizona',
			'Aymur',
			'Conqueror',
			'Liberator',
			'Ryunohige',
			'Nagi',
			'Kogarasumaru',
			'Yagrush',
			'Laevateinn',
			'Nirvana',
			'Tupsimati',
			'Gastraphetes',
			'Death Penalty'
		);
		@lumoriawlist =(
			'Faith Baghnakhs',
			'Justice Sword',
			'Temperance Axe',
			'Fortitude Axe',
			'Love Halberd',
			'Prudence Rod',
			'Hope Staff'
		);
		@limbusalist = (
			'Homam,Nashira',
			'0/Homam Zucchetto,1/Homam Corazza,2/Homam Manopolas,3/HomamCosciales,4/Homam Gambieras',
			'0/Nashira Turban,1/Nashira Manteel,2/Nashira Gages,3/NashiraSeraweels,4/Nashira Crackows'
		);
		@nyzulalist = (
			'Akar,Denali,Goliard',
			'0/Askar Zucchetto,1/Askar Korazin,2/Askar Manopolas,3/Askar Dirs,4/Askar Gambieras',
			'0/Denali Bonnet,1/Denali Jacket,2/Denali Wristbands,3/Denali Kecks,4/Denali Gamashes',
			'0/Goliard Chapeau,1/Goliard Saio,2/Goliard Cuffs,3/Goliard Trews,4/Goliard Clogs'
		);
		@salvagealist = (
			'Ares,Skadi,Usukane,Marduk,Morrigan',
			"0/Ares's Mask,1/Ares's Cuirass,2/Ares's Gauntlets,3/Ares's Flanchard,4/Ares's Sollerets",
			"0/Skadi's Visor,1/Skadi's Cuirie,2/Skadi's Bazubands,3/Skadi's Chausses,4/Skadi's Jambeaux",
			'0/Usukane Somen,1/Usukane Haramaki,2/Usukane Gote,3/Usukane Hizayoroi,4/Usukane Sune-Ate',
			"0/Marduk's Tiara,1/Marduk's Jubbah,2/Marduk's Dastanas,3/Marduk's Shalwar,4/Marduk's Crackows",
			"0/Morrigan's Coron,1/Morrigan's Robe,2/Morrigan's Cuffs,3/Morrigan's Slops,4/Morrigan's Pgch."
		);
		@tuliaalist = (
			'Tulia',
			"0/Genbu's Kabuto,1/Kirin's Osode,2/Seiryu's Kote,3/Byakko's Haidate,4/Suzaku's Sune-Ate,11/Genbu's Shield"
		);
		@abjurationalist = (
			'Dryadic(Shura),Earthern(Adaman),Aquarian(Zenith),Martial(Koenig),Wirmal(Crimson),Neptunal(Hecatomb),Phantasmal (Shadow),Hadean(SHadow)',
			'0/Shr.Znr.Kabuto,1/Shura Togi,2/Shura Kote,3/Shura Haidate,4/Shura Sune-Ate',
			'0/Adaman Celata,1/Adaman Hauberk,2/Adaman Mufflers,3/Adaman Breeches,4/Adaman Sollerets',
			'0/Zenith Crown,1/Dalmatica,2/Zenith Mittens,3/Zenith Pants,4/Zenith Pumps',
			'0/Koenig Shcaller,1/Koenig Cuirass,2/Koenig Handschuh,3/Koenig Diechling,4/Koenig Schuhs',
			'0/Crimson Mask,1/Crm. Scale Mail,2/Crimson Fng. Gnt.,3/Crimson Cuisses,4/Crimson Greaves',
			'0/Hecatomb Cap,1/Hecatomb Harness,2/Hecatomb Mittens,3/Hecatomb Subligar,4/Hct. Leggings',
			'0/Shadow Helm,1/Shadow Brstplate,2/Shadow Gauntlets,3/Shadow Cuishes,4/Shadow Sabatons',
			'0/Shadow Hat,1/Shadow Coat,2/Shadow Cuffs,3/Shadow Trews,4/Shadow Clogs'
		);
		@relicalist = (
			'0/Warrior,1/Melee,2/Cleric,3/Sorcerer,4/Duelist,5/Assassin,6/Valor,7/Abyss,8/Scout,9/Bard,10/Monster,11/Wyrm,12/Summoner,13/Koga,14/Saotome,15/Mirage,16/Commodore,17Pantin,18/Etoile,19/Argute',
			"0/Warrior's Mask,1/Warrior's Lorica,2/Warrior's Mufflers,3/Warrior's Cuisses,4/Warrior's Calligae",
			"0/Melee Crown,1/Melee Cyclas,2/Melee Gloves,3/Melee Hose,4/Melee Gaiters",
			"0/Cleric's Cap,1/Cleric's Briault,2/Cleric's Mitts,3/Cleric's Pantaln,4/Cleric's Duckbills",
			"0/Sorcerer's Petas,1/Sorcerer's Coat,2/Sorcerer's Gloves,3/Sorcerer's Tonban,4/Sorcerer's Sabots",
			"0/Duelist's Chapeau,1/Duelist's Tabard,2/Duelist's Gloves,3/Duelist's Tights,4/Duelist's Boots",
			"0/Assassin's Bonnet,1/Assassin's Vest,2/Assassin's Armlets,3/Assassin's Culottes,4/Assassin's Pouln",
			"0/Valor Coronet,1/Valor Surcoat,2/Valor Gauntlets,3/Valor Breeches,4/Valor Leggings",
			"0/Abyss Burgeonet,1/Abyss Cuirass,2/Abyss Gauntlets,3/Abyss Flanchard,4/Abyss Sollerets",
			"0/Scout's Beret,1/Scout's Jerkin,2/Scout's Bracers,3/Scout's Braccae,4/Scout's Socks",
			"0/Bard's Roundlet,1/Bard's Jstcorps,2/Bard's Cuffs,3/Bard Cannions,4/Bard's Slippers",
			"0/Monster Helm,1/Monster Jackcoat,2/Monster Gloves,3/Monster Trousers,4/Monster Gaiters",
			"0/Wyrm Armet,1/Wyrm Mail,2/Wyrm Fng.Gnt,3/Wyrm Brais,4/Wyrm Greaves",
			"0/Summoner's Horn,1/Summoner's Dblt.,2/Summoner's Brcr,3/Summoner's Spats,4/Summoner's Pgch",
			"0/Koga Hatsuburi,1/Koga Chainmail,2/Koga Tekko,3/Koga Hakama,4/Koga Kyahan",
			"0/Saotome Kabuto,1/Saotome Domaru,2/Saotome Kote,3/Saotome Haidate,4/Saotome Sune-Ate",
			"0/Mirage Keffiyeh,1/Mirage Jubbah,2/Mirage Bazubands,3/Mirage Shalwar,4/Mirage Charuqs",
			"0/Comm. Tricorne,1/Commodore Frac,2/Commodore Gants,3/Comm. Culottes,4/Comm. Bottes",
			"0/Pantin Taj,1/Pantin Tobe,2/Pantin Dastanas,3/Pantin Churidars,4/Pantin Babouches",
			"0/Etoile Tiara,1/Etoile Casaque,2/Etoile Bangles,3/Etoile Tights,4/Etoile Shoes",
			"0/Argute M.board,1/Argute Gown,2/Argute Bracers,3/Argute Pants,4/Argute Loafers"
		);
		@otherwlist =(
			'Ridill',
			'Hauteclaire',
			'Hofud',
			'Algol',
			"Valkyrie's Fork",
			'Futsuno Mitama',
			'Seveneyes',
			"Raphael's Rod",
			'Aureole',
			'Shlng. Baghnakhs',
			"Ermine's Tail",
			'Koggelmander',
			'Scheherazade',
			'Zaide',
			'Zonure'
#			'バークボーラー',
#			'エヴァントルーズ',
#			'鬼縛り',
		);
		@otheralist =(
			'Other Armor,MMM V07',
			"3/Barb. Zerehs,7/Black Belt,7/Ninurta's Sash,8/Defending Ring,8/Mars's Ring,8/Bellona's Ring,8/Minerva's Ring,9/Novia Earring,9/Novio Earring",
			'5/Gnole Torque,6/Mamool Ja Mantle,9/Mamool Ja Earring,8/Antica Ring'
#			0/Gnole Crown,0/Antica Band,9/Lyc. Earring,7/Lycopodium Sash
		);
		@cosmicalist = (
			'Aurum,Enkidu,Oracle',
			"0/Aurum Armet,1/Aurum Cuirass,2/Aurum Gauntlets,3/Aurum Cuisses,4/Aurum Sabatons",
			"0/Enkidu's Cap,1/Enkidu's Harness,2/Enkidu's Mittens,3/Enkidu's Subligar,4/Enkidu's Leggings",
			"0/Oracle's Cap,1/Oracle's Robe,2/Oracle's Gloves,3/Oracle's Braconi,4/Oracle's Pigaches"
		);
		
	}
	
	@equipdeflist = (
		[ @relicwlist ],		# 0
		[ @mythicwlist ],		# 1
		[ @lumoriawlist ],		# 2
		[ @otherwlist ],		# 3
		[ @limbusalist ],		# 4
		[ @nyzulalist ],		# 5
		[ @salvagealist ],		# 6
		[ @tuliaalist ],		# 7
		[ @otheralist ],		# 8
		[ @abjurationalist ],	# 9
		[ @relicalist ],		# 10
		[ @cosmicalist ]		# 11
	);
	
	@equiplistname = (
		'relicw',		# 0
		'mythicw',		# 1
		'lumoriaw',		# 2
		'otherw',		# 3
		'lymbus',		# 4
		'nyzula',		# 5
		'salvagea',		# 6
		'tuliaa',		# 7
		'othera',		# 8
		'abjurationa',	# 9
		'relica',		#10
		'cosmica'		#11
	);
}

#table_weapons;		武器一覧表示
sub table_weapons {
	&def_equip_list();
	$str1 = "";
	$str2 = "<TR bgcolor=$indexcolor>";
	$str1 = <<"EOM";
<table cellpading=0 width=100% class=tbl>
<TR bgcolor=$indexcolor>
<TH rowspan=2 width=2%>$index[0]</TH>
<TH rowspan=2 width=10%><a href='$script?limit=$limit&level=$level&sort=1'>$index[2]</a></TH>
EOM
	for( $j=0; $j<=3; $j++ ){
		@templist = @{$equipdeflist[$j]};
		$itemnum = $#templist+1;
		$listlength[$j] = $#templist;
		$str1 .= "<TH colspan=$itemnum>$equiplist[$j]</TH>\n";
		for( $k=0; $k<$itemnum; $k++ ){
			$str2 .= "<TH valign=bottom width=3% style=\"writing-mode: tb-rl; word-break:break-all\">$templist[$k]</TH>";
		}
	}
	$str1 .= "<TH rowspan=2 width=5%><a href='$script?limit=$limit&level=$level&sort=16&mode=r'>$index[8]</a></TH></TR>\n";
	$str2 .= "</TR>\n";
	print "$str1\n$str2\n";
	
	$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);
		@elist = split(/\,/, $prod[10]);
		
		if($count==$c_max){
			print "</table>\n$str1\n$str2\n";
			$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>";
		
		for( $j=0; $j<=3; $j++ ){
			@equips = split( //, $elist[$j] );
			for ( $k=0; $k<=$listlength[$j]; $k++ ){
				print "<TD align=center>$maru[ $equips[ $k ] ]</TD>\n";
			}
		}
		$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>\n";
}

#table_armor1;		防具一覧表示（汎用）
sub table_armor1 {
	$startj=4;
	$endj=8;
	$setjob = 0;
	&table_armor_impl();
}

#table_armor2;		防具一覧表示（免罪）
sub table_armor2 {
	$startj=9;
	$endj=9;
	$setjob = 0;
	&table_armor_impl();
}

#table_armor3;		防具一覧表示（Af2）
sub table_armor3 {
	$startj=10;
	$endj=10;
	$setjob = 1;
	&table_armor_impl();
}

#table_armor4;		防具一覧表示（花鳥）
sub table_armor4 {
	$startj=11;
	$endj=11;
	$setjob = 0;
	&table_armor_impl();
}

sub table_armor_impl {
	&def_equip_list();
	$str1 = "";
	$str2 = "<TR bgcolor=$indexcolor>";
	$str3 = "<TR bgcolor=$indexcolor>";
	$str4 = "<TR bgcolor=$indexcolor>";
	$str1 = <<"EOM";
<table cellpading=0 width=100% class=tbl>
<TR bgcolor=$indexcolor>
<TH rowspan=4 width=2%>$index[0]</TH>
<TH rowspan=4 width=10%><a href='$script?limit=$limit&level=$level&sort=1'>$index[2]</a></TH>
EOM
	for( $j=$startj; $j<=$endj; $j++ ){
		@templist = @{$equipdeflist[$j]};
		@setname = split( /\,/, $templist[0] );
		$itemnum = $#templist;
		$itemnum2 = 0;
		$listlength[$j] = $#templist;
		for( $k=0; $k<$#templist; $k++ ){
			@equips = split( //, $equipset[$k] );
			@templist2 = split( /\,/, $templist[$k+1]);
			$itemnum = $#templist2+1;
			$itemnum2 += $itemnum;
			$listlength2[$j][$k] = $#templist2;
			if( $setjob ){
				($jobnumber,$eqname) = split( /\//, $setname[$k] );
				$str2 .= "<TH colspan=$itemnum>$joblist[$jobnumber]/$eqname</TH>";
			}
			else{
				$str2 .= "<TH colspan=$itemnum>$setname[$k]</TH>\n";
			}
			for ( $l=0; $l<=$#templist2; $l++ ){
				($eqslot, $eqname) = split( /\//, $templist2[$l] );
				$str3 .= "<TH>$equipslot[$eqslot]</TH>\n";
				$str4 .= "<TH valign=bottom width=3% style=\"writing-mode: tb-rl; word-break:break-all\">$eqname</TH>\n";
			}
		}
		$str1 .= "<TH colspan=$itemnum2>$equiplist[$j]</TH>\n";
	}
	$str1 .= "<TH rowspan=4 width=5%><a href='$script?limit=$limit&level=$level&sort=16&mode=r'>$index[8]</a></TH></TR>\n";
	$str2 .= "</TR>\n";
	$str3 .= "</TR>\n";
	$str4 .= "</TR>\n";
	print "$str1\n$str2\n$str3\n$str4\n";
	
	$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);
		@elist = split(/\,/, $prod[10]);
		
		if($count==$c_max){
			print "</table>\n$str1\n$str2\n$str3\n$str4\n";
			$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>";
		
		for( $j=$startj; $j<=$endj; $j++ ){
			@equipset = split( /\//, $elist[$j] );
			for ( $k=0; $k<$listlength[$j]; $k++ ){
				@equips = split( //, $equipset[$k] );
				for( $l=0; $l<=$listlength2[$j][$k]; $l++ ){
					print "<TD align=center>$maru[ $equips[ $l ] ]</TD>\n";
				}
			}
		}
		$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>\n";
}

#  return TRUE for require
1;