#!/usr/bin/perl

#use CGI::Carp qw(fatalsToBrowser); 


#------------------------------------------
# FFXI Member Registration System
# Version 0.712(10/07/20)
# script by seno 2002-2008
# webmaster@senobeya.com
# Update by elder@DaZarvtra 2009-2010
# http://www9.atpages.jp/elder/gmem/
# 著作権表示は消すなとかしょうもないことは
# 言わないのですヨ。好きにしてよし！
#------------------------------------------
#壁紙画像サンプルは
#フリー素材集　壁紙工房　Giggurat／Information
#http://www.chaldea.ne.jp/atelier/
#のものを使用させていただいております。
#BBSPainterは
#ば科学的愛情(http://www.geocities.co.jp/SiliconValley-SanJose/8609/)
#のJAVAアプレットです。
#
#各種サブルーチンファイル
#keitai.pl 携帯対応ルーチン
#master.pl マスターモード
#table.pl 表出力ルーチン

#設定類(0.5より各種の設定はsetup.cgiに移動しました)

$ENV{'TZ'} = "JST-9";

# $lockdir＝""; とすることで、ファイルロックをしません。
# ただしデータ消滅の危険度は飛躍的に高くなります。
# バックアップを取るなどの対応をしてください。

$lockdir="lock";

#バージョン番号。いじらないでネ。改造した場合は適当にどうぞ。
$version="Version 0.712";

#このスクリプトのなまえ。ファイル名を変更したときはここも変更してください。
$script="guildmember.cgi";
$script2="admin.cgi";

#設定ファイル読み出し
require "setup.cgi";

# 各種リストの生成（日本語）

if($language ne "English"){

# 装備部位
@equipslot = (
	'頭',	# 0
	'胴',	# 1
	'手',	# 2
	'脚',	# 3
	'足',	# 4
	'首',	# 5
	'背',	# 6
	'腰',	# 7
	'指',	# 8
	'耳',	# 9
	'武',	# 10
	'副',	# 11
	'遠',	# 12
	'弾'	# 13
);

@synergytech = (
	'燃料の投入',
	'たたく',
	'圧力ハンドル調整',
	'安全レバー操作',
	'結界メンテナンス',
	'燃えがら清掃'
);

# メリポ関連
@mpointword=(
	'基本',	'グループ１',	'グループ２',
	'総消費メリットポイント',	'カテゴリ上限' );

# アサルト関連
@assaultword=(
	'移送の幻灯',	'傭兵ランク',
	'Leujaom',	'MammolJa',	'Leberos',	'Perqia',	'Ilrusi',	'Nyzul',
	'二',	'一',	'上',	'長',	'伍',	'軍',	'曹',	'特',	'少',	'中',	'大');

# アルタナミッション
@allist=(
	'',
	'忘らるる口',	'はじまりの刻',	'ケット・シー、馳せる',	'舞姫、来たりて',	'玉冠の獣、ふたたび',	'梢の胡蝶',	'紫電、劈く',	'天涯の娘',
	'踊り子の憂慮',	'白い涙、黒い泪',	'彼の世に至る病',	'国務、携えし',	'威風凛凛',	'ジュノ、擾乱',	'宙の座',
	'砂の記憶',	'娘、北進して',	'紫雲か、暗雲か',	'黒き奸計の尾',	'盤上の罠',
	'勇胆の証',	'衝突、会戦の序',	'囚われの迷宮で',	'禁断の口',	'喰らわれし未来',	'傾ぐ天秤',
	'死闘の萌芽',	'現世と隠世と',	'勇鷹の墓標',	'決戦、ザルカバード',	'雪上の嵐：翠',	'雪上の嵐：藍',
	'闇の牙城',	'殲撃、響きて',	'獅子たちの帰還',	'鉄鷹、旋回す',	'黒天、閃電',	'さようなら、リリゼット',
	);

# カンパニエ叙勲
@alrank=(
	'',
	'二級連合従軍章',	'一級連合従軍章',	'連合白兵章',	'連合突撃章',
	'青銅剣勲章',	'白銀剣勲章',	'霊銀剣勲章',	'黄金剣勲章',
	'二級戦功水晶章',	'一級戦功水晶章',	'騎士戦功水晶章',	'聖騎士戦功水晶章',
	'二級勲功翼章',	'一級勲功翼章',	'名誉勲功翼章',	'殊勲翼章',
	'暁星勲章',	'暁月勲章',	'暁光勲章',	'暁女神勲章',);

# アトルガンミッション
@amlist=(
	'',
	'聖蛇の国',"不滅の防人",'山猫の社長',"黄金の騎士",'王子の告白','東風','西風','傭兵のつとめ',
	'聖跡の巡視','星気の笛音','双蛇の謀','無手の傀儡師','亡国の墳墓','海豚の紋章','漆黒の柩',
	'幽冥の海賊','賓客の資格','泡沫の宝冠','遇人の内懐','茶屋の厄難','千古の渦紋','特使の御楯',
	'宴遊の終幕','悪魔と悪鬼と','運命の歯車','魔蛇の封蝋','貴人の失踪','古寺の所縁','少女の傀儡',
	'海賊の利','暗雲の去来','逢魔が時','砂上の楼閣','山猫の皮算用','亡国の遺産','天狗の慧眼',
	'修羅の道','戦乱の兆し','連合の混迷','紐解ける理','審判の光','巨人の懐へ','蒼獅子の最期','少女の決意',
	'ラグナロク','戴冠の儀','大団円','永遠の傭兵');

# アサルト関連
@aslist=(
	'傭兵ランク',
	'ルジャワン霊窟開通','マムージャ兵訓練所開通','レベロス風穴開通','ペリキア開通','イルルシ環礁開通',
	'ル二等：ルジャワン掃討作戦','ル一等：オリハルコン鉱脈調査','ル上等：クラボエール男爵警護',
	'マ二等：皇国エージェント救出作戦','マ一等：秘密訓練所急襲作戦','マ上等：賢哲王暗殺作戦',
	'レ二等：土竜作戦','レ一等：レベロス補給作戦','レ上等：落ち武者追撃戦',
	'ペ二等：海猫護送作戦','ペ一等：レクイエム作戦','ペ上等：ライアーフ捜索作戦',
	'イ二等：黄金の遺産収集作戦','イ一等：ラミア13号討伐作戦','イ上等：蠱物駆除作戦',
	'ル兵長：シャナーハ草保護作戦 ','ル伍長：黒羊買付作戦',
	'マ兵長：慰問物資強奪作戦 ','マ伍長：二重スパイ捕縛作戦',
	'レ兵長：土筆作戦 ','レ伍長：傭兵軍師狙撃作戦',
	'ペ兵長：黒い男爵撃墜作戦','ペ伍長：ペリキア架橋作戦',
	'イ兵長：イルルシ掃海作戦','イ伍長：シーラット送迎作戦 ',
	'ル軍曹：補給物資奪還指令 ','ル曹長：青の治験',
	'マ軍曹：魔宝石回収指令 ','マ曹長：謝鱗祭襲撃作戦',
	'レ軍曹：アプカル繁殖指令 ','レ曹長：ワモーラファーム襲撃作戦',
	'ペ軍曹：ブラッドバス計画抑止作戦 ','ペ曹長：地雷原処理作戦',
	'イ軍曹：アプカル捕獲指令戦 ','イ曹長：指輪捜索指令 ',
	'ル特務：オグマ奪取指令','マ特務：マーリドガーデン作戦','レ特務：ハンターキラー作戦','ペ特務：双頭の蛇作戦','イ特務：脱走兵武装解除指令',
	'ル少尉：不滅隊・魔滅隊合同演習','マ少尉：青の症例','レ少尉：ブラックパール作戦','ペ少尉：人形の目覚め作戦','イ少尉：鱆号作戦',
	'ル中尉：ヘルシング作戦','マ中尉：スサノオ作戦','レ中尉：ヘラクレス作戦','ペ中尉：キラーロード作戦','イ中尉：ベレロフォン作戦');

# ナイズル開通
@nzlist=(
	'未開通',
	'0','6','11','16','21','26','31','36','41','46','51','56','61','66','71','76','81','86','91','96','100');

# アサルト階級
@asrank=(
	'','二等傭兵','一等傭兵','上等傭兵','傭兵長','伍長','軍曹','曹長','特務曹長','少尉','中尉','大尉');

# 追加シナリオ
# 石の見る夢
@addcplist=(
	'',
	'石の見る夢','よみがえりし原初の意志','神の歌の残響が呼ぶ　その1','神の歌の残響が呼ぶ　その2',
	'廃墟で待つ者は　その1','廃墟で待つ者は　その2','廃墟で待つ者は　その3',
	'再会　時に引き裂かれし絆','残響を打ち消す者','天よ聴け　魂の返歌','石の見る夢＜完＞');

# 戦慄！モグ祭りの夜
@addmklist=(
	'',
	"戦慄！モグ祭りの夜",
	"ぴちょん！始まりは一滴の雨漏り",
	"いざゆけ！出張モグハウス",
	"ようこそ！スウィート・モグリハウス",
	"恐怖！呪われし悪霊の部屋",
	"走れ！解呪の品を求めて",
	"愕然！今日から借金王",
	"モグ金！ご利用は計画的に",
	"焦燥！愛しいあの子はいずこ",
	"吠えよ！やとわれ用心棒",
	"帰還！ふたりの家路",
	"歓喜！モグ祭りへの招待状",
	"めざせ！超モグボナンザ抽選会",
	"砕け！邪なる者の野望",
	"戦慄！モグ祭りの夜＜完＞"
	);

# シャントット帝国の陰謀
@addsslist=(
	'',
	'シャントット帝国の陰謀',
	'不吉な予感',
	'謎の召集令状',
	'甘美なる指令',
	'アルド暗殺計画　その1',
	'アルド暗殺計画　その2',
	'甘美なる企み',
	'囚われのシャントット',
	'くじけ！甘美なる陰謀',
	'クローン・タルタル部隊',
	'ふたりがちからを合わせたら',
	'ストップ！ダブル・シャントット',
	'呪われる世界',
	'悪夢去りし後……',
	'シャントット帝国の陰謀＜完＞',
	);

# プロマシアミッション
@pmlist=(
	'','1-1:命の洗礼','1-2:楼閣の下に','1-3:母なる石', 
	'2-1:西への誘い','2-2:忘却の町','2-3:隔たれし信仰','2-4:とこしえに響く歌','2-5:誓いの雄叫び',
	'3-1:龍王の導き','3-2:主のなき都', 
	'3-3-1-1:2つの道-瑠璃色の川','3-3-1-2:流転','3-3-1-3:累家の末流','3-3-1-4:ルーヴランスという者', 
	'3-3-2-1:2つの道-をとめの記憶','3-3-2-2:をかしき祖国','3-3-2-3:をかしき再会','3-3-2-4:をかしき旅立ち', 
	'3-4:戦慄き','3-5:神を名乗りて', 
	'4-1:よりしろ','4-2:猛き者たちよ','4-3:礼拝の意味','4-4:そしりを受けつつも', 
	'5-1:鍔音やむことなく','5-2:願わくば闇よ', 
	'5-3-1-1:みっつの道-汝の罪は','5-3-1-2:南方の伝説','5-3-1-3:名捨て人ふたり','5-3-1-4:なにゆえにその子は','5-3-1-5:永いお別れ', 
	'5-3-2-1:みっつの道-楽園を求めるは','5-3-2-2:螺旋','5-3-2-3:烙印ありて','5-3-2-4:礼賛者','5-3-2-5:羅針の示すもの', 
	'5-3-3-1:みっつの道-群れ立つ使者は','5-3-3-2:結び目','5-3-3-3:向かい風','5-3-3-4:迎え火', 
	'6-1:歌うは誰がため','6-2:ゐぬる場所','6-3:望むはあらゆる答え','6-4:畏れよ、我を',
	'7-1:鎖と絆','7-2:闇に炎','7-3:眦決して','7-4:決別の前','7-5:武士道とは',
	'8-1:古代の園','8-2:選ばれし死','8-3:天使達の抗い','8-4:暁',
	'さらばでござる','究極魔法の起源','悠久の名を求め','メーガスの名は永遠に','澪標',
	'呪縛ほどけるとき','日輪を担いて','亡者の影','世界に在りて君は何を想うのか？','すべての終わりが閉ざされん'
);

# ジラートミッション
@jmlist=(
	'','新たなる世界','海賊の巣窟ノーグ','カザム族長','ウガレピ寺院','古代石碑巡礼','流砂洞を越えて','神託の間','デルクフの塔再び',
	'ロ・メーヴ','聖地ジ・タ〜滅びの神殿','神々の間','ミスラとクリスタル','神の扉トゥー・リア',
	'アーク・ガーディアン','閉ざされし門','宿星の座','1万年の夢の終わりに','すべての終わりが閉ざされん');

# サンドリアミッション
@smlist=('-','1-1:オークの斥候を倒せ','1-2:コウモリ退治','1-3:子供の救助',
	'2-1:救助訓練','2-2:ダボイ調査報告','2-3:他国を回れ',
	'3-1:ダボイ潜入計画','3-2:クリスタルの泉','3-3:ジュノ大使館へ赴任',
	'4:魔晶石を奪え','5-1:廃墟フェ・イン','5-2:闇の王を討て！',
	'6-1:ローテ王妃の遺言','6-2:龍王の眠る場所',
	'7-1:教皇の威信','7-2:獣人兵器の秘密',
	'8-1:成人の儀','8-2:聖剣探索',
	'9-1:厚き壁','9-2:光の継承者',
	'10:全ミッション終了');

# バストゥークミッション
@bmlist=('-','1-1:ツェールン鉱山からの報告','1-2:彼の名はシド','1-3:終わらぬ戦い',
	'2-1:クリスタルライン','2-2:涸れ谷の怪物','2-3バストゥークを離れて',
	'3-1:四銃士','3-2:忘れられた鉱山にて','3-3:ジュノへ',
	'4:魔晶石を奪え','5-1:闇、再び','5-2:ザルカバードに眠る真実',
	'6-1:語り部現る！？','6-2:海賊たちの唄',
	'7-1:完成品のイメージ','7-2:それぞれの行方',
	'8-1:流砂の鎖','8-2:その記憶を紡ぐ者',
	'9-1:最後の幻想','9-2:双刃の邂逅',
	'10:全ミッション終了');

# ウィンダスミッション
@wmlist=('-','1-1:ホルトト遺跡の大実験','1-2:カーディアンの心 ','1-3:平和のために',
	'2-1:白き書','2-2:試験の行方','2-3:三大強国',
	'3-1:それぞれの正義','3-2:星読み','3-3:新たなる旅立ち',
	'4:魔晶石を奪え','5-1:最後の護符','5-2:最果てにて君を待つ闇',
	'6-1:満月の泉','6-2:聖者の招待',
	'7-1:第6の院','7-2:蘇る神々',
	'8-1:ヴェイン','8-2:王と道化師',
	'9-1:死者の人形','9-2:月詠み',
	'10:全ミッション終了');

#デュナミス用
@maru=('×','○');

# ミッション一覧
@mlist=(
	'プロマシア',						# 0 	@pmlist
	'ジラート',							# 1 	@jmlist
	"サンドリア",						# 2 	@smlist
	'バストゥーク',						# 3 	@bmlist
	'ウインダス',						# 4 	@wmlist
	"デュナミス-サンドリア",			# 5 	
	'デュナミス-バストゥーク',			# 6 	
	'デュナミス-ウインダス',			# 7 	
	'デュナミス-ジュノ',				# 8 	
	'デュナミス-ボスディン',			# 9 	
	'デュナミス-ザルカバード',			# 10	
	'デュナミス-バルクルム',			# 11	
	'デュナミス-ブブリム',				# 12	
	'デュナミス-クフィム',				# 13	
	'デュナミス-タブナジア',			# 14	
	'アトルガン',						# 15	@amlist
	'アサルト',							# 16	@aslist,@asrank
	'ナイズル',							# 17	@nzlist
	'アルタナ',							# 18	@allist
	'石の見る夢',						# 19	@addcplist
	'戦慄！モグ祭りの夜',				# 20	@addmklist
	'シャントット帝国の陰謀',			# 21	@addsslist
	'カンパニエ叙勲'					# 22	@alrank
);

# クエストWS、ミシックWS一覧
#   対応スキル,WS名,習得得種別,ジョブ条件,スキル条件,
#   習得種別：　0→クエスト、1→ミシック
#
# 戦 モ 白 黒 赤 シ ナ 暗 狩 吟 獣 竜 召 忍 侍 青 コ か 踊 学
#  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      5      6      7      8      9     10     11   12   13

@mwslist = (
	'0,夢想阿修羅拳,0,1,250',									# 格闘　　クエスト　モ
	'0,アスケーテンツォルン,1,1,',								# 格闘　　ミシック　モ
	'0,連環六合圏,1,17,',										# 格闘　　ミシック　か
	'1,エヴィサレーション,0,0/4/5/8/9/10/13/16/18,230',			# 短剣　　クエスト　戦赤シ狩吟獣忍コ踊
	'1,マンダリクスタッブ,1,5,',								# 短剣　　ミシック　シ
	'1,モーダントライム,1,9,',									# 短剣　　ミシック　吟
	'1,ピリッククレオス,1,18',									# 短剣　　ミシック　踊
	'2,サベッジブレード,0,0/4/6/7/15/16,240',					# 片手剣　クエスト　戦赤ナ暗青コ
	'2,ロズレーファタール,1,4,',								# 片手剣　ミシック　赤
	'2,ロイエ,1,6,',											# 片手剣　ミシック　ナ
	'2,エクスピアシオン,1,15,',									# 片手剣　ミシック　青
	'3,グラウンドストライク,0,0/6/7,250',						# 両手剣　クエスト　戦ナ暗
	'4,デシメーション,0,0/7/8/10,240',							# 片手斧　クエスト　戦暗狩獣
	'4,プライマルレンド,1,10,',									# 片手斧　ミシック　獣
	'5,スチールサイクロン,0,0/7,240',							# 両手斧　クエスト　戦暗
	'5,キングズジャスティス,1,0,',								# 両手斧　ミシック　戦
	'6,スパイラルヘル,0,0/7/10,240',							# 両手鎌　クエスト　戦暗獣
	'6,インサージェンシー,1,7,',								# 両手鎌　ミシック　暗
	'7,インパルスドライヴ,0,0/11/14,240',						# 両手槍　クエスト　戦侍竜
	'7,雲蒸竜変,1,11,',											# 両手槍　ミシック　竜
	'8,空,0,13,250',											# 片手刀　クエスト　忍
	'8,カムハブリ,1,13,',										# 片手刀　ミシック　忍
	'9,九之太刀・花車,0,14,250',								# 両手刀　クエスト　侍
	'9,十之太刀・乱鴉,1,14,',									# 両手刀　ミシック　侍
	'10,ブラックヘイロー,0,0/1/2/3/6/12/15/19,230',				# 片手棍　クエスト　戦モ白黒ナ召青学
	'10,ミスティックブーン,1,2,',								# 片手棍　ミシック　白
	'11,レトリビューション,0,0/1/2/3/6/9/11/12/19,230',			# 両手棍　クエスト　戦モ白黒ナ吟竜召学
	'11,ヴィゾフニル,1,3,',										# 両手棍　ミシック　黒
	'11,ガーランドオブブリス,1,12,',							# 両手棍　ミシック　召
	'11,オムニシエンス,1,19,',									# 両手棍　ミシック　学
	'12,エンピリアルアロー,0,8,250',							# 弓術　　クエスト　狩
	'13,デトネーター,0,8/16,250',								# 射撃　　クエスト　狩コ
	'13,トゥルーフライト,1,8,',									# 射撃　　ミシック　狩
	'13,レデンサリュート,1,16,'									# 射撃　　ミシック　コ
);

# WS一覧
#   対応スキル,習得スキル,利用条件,WS名,攻撃回数,TP100補正,TP200補正,TP300補正,連携属性,ステータス補正
#   参考：FINAL FANTASY XI Wiki 	http://ff11wiki.rdy.jp/
#   参考：Studio Gobli 				http://www32.atwiki.jp/studiogobli/
#   ・・・・これの英語版どうすんの？ｗ　誰が作るの？氏ぬの？ｗ
@wslist = (
	'0,5,,コンボ,3,,,ダメージ,1,1.5,2,衝撃,STR20% DEX20%',
	'0,40,,タックル,2,スタン,,追加発動確率,1,,,振動 / 衝撃,VIT30% ',
	'0,75,EX,短勁,2,,,防御カット率,1,,,収縮,VIT40% ',
	'0,100,,バックハンドブロー,2,,,CRT率,1,,,炸裂,STR30% DEX30%',
	'0,125,EX,乱撃,5,,,ダメージ,1,1.5,2,衝撃,STR20% DEX20%',
	'0,150,,スピンアタック,2,,範囲,攻撃範囲,1,,,溶解 / 衝撃,STR35% ',
	'0,200,SP,空鳴拳,2,,,ダメージ,2.5,2.75,3,貫通 / 衝撃,STR20% VIT50%',
	'0,225,SP,双竜脚,2,,,ダメージ,2,2.75,3.5,分解,STR50% VIT50%',
	'0,250,ク,夢想阿修羅拳,8,,,命中,1,,,重力 / 溶解,STR10% VIT10%',
	'0,ミ,ミ,アスケーテンツォルン,2,,,CRT率,1,,,核熱 / 貫通,STR50% VIT50%',
	'0,ミ,ミ,連環六合圏,6,,,CRT率,0.75,,,重力 / 溶解,STR+VIT70%',
	'0,300,,闘魂旋風脚,2,,,ダメージ,1,,,硬化 / 炸裂 / 衝撃,？',
	'1,5,,ワスプスティング,1,毒(-1HP/3sec),,追加継続時間,1,,,切断, ',
	'1,40,EX,ガストスラッシュ,風,,魔法：風,ダメージ,1,2,2.5,炸裂,DEX20% INT20%',
	'1,70,,シャドーステッチ,1,バインド,,追加発動確率,1,,,振動,CHR30% ',
	'1,100,EX,バイパーバイト,1,毒(-3HP/3sec),攻撃力2.00,追加継続時間,1,,,切断, ',
	'1,125,EX,サイクロン,風,,魔法：風、範囲,ダメージ,1,2.375,2.875,炸裂 / 衝撃,DEX30% INT25%',
	'1,150,,エナジースティール,,,MP吸収,MP吸収量,,,,−, ',
	'1,175,EX,エナジードレイン,,,MP吸収,MP吸収量,,,,−, ',
	'1,200,SP,ダンシングエッジ,5,,,命中,1.1875,,,切断 / 炸裂,DEX30% CHR40%',
	'1,225,SP,シャークバイト,2,,,ダメージ,2,2.5,3,分解,DEX50% ',
	'1,230,ク,エヴィサレーション,5,,,CRT率,1,,,重力 / 貫通,DEX30% ',
	'1,ミ,ミ,マンダリクスタッブ,1,,攻撃力1.66,ダメージ,2,2.125,2.5,核熱 / 収縮,DEX30% ',
	'1,ミ,ミ,モーダントライム,2,移動速度-（60秒）,,追加発動確率,3,,,分解 / 湾曲,DEX30% CHR50%',
	'1,ミ,ミ,ピリッククレオス,4,回避-,,追加継続時間,1.5,,,湾曲 / 切断,DEX50% ',
	'1,290,,イオリアンエッジ,風,,魔法：風、範囲,ダメージ,2,2.5,3,炸裂 / 切断 / 衝撃,DEX30% INT25%',
	'2,5,,ファストブレード,2,,,ダメージ,1,1.5,2,切断,STR20% DEX20%',
	'2,30,,バーニングブレード,火,,魔法：火,ダメージ,1,2,2.5,溶解,STR20% INT20%',
	'2,50,EX,レッドロータス,火,,魔法：火,ダメージ,1,2.375,3,溶解 / 炸裂,STR30% INT20%',
	'2,75,,フラットブレード,1,スタン,,追加発動確率,1,,,衝撃,STR30% ',
	'2,100,,シャインブレード,光,,魔法：光,ダメージ,1,2,2.5,切断,STR20% MND20%',
	'2,125,EX,セラフブレード,光,,魔法：光,ダメージ,1,2.5,3,切断,STR30% MND30%',
	'2,150,,サークルブレード,1,,範囲,攻撃範囲,1,,,振動 / 衝撃,STR35% ',
	'2,175,,スピリッツウィズイン,,,ダメージ＝HP×倍率,ダメージ,4/32,6/32,15/32,−, ',
	'2,200,EX,ボーパルブレード,4,,,CRT率,1,,,切断 / 衝撃,STR30% ',
	'2,225,SP,スウィフトブレード,3,,,命中,1.5,,,重力,STR30% MND30%',
	'2,240,ク,サベッジブレード,2,,,ダメージ,1,1.75,3.5,分解 / 切断,STR30% MND50%',
	'2,300,,サンギンブレード,?,,魔法：？、HP吸収,吸収量(50%〜100%),2,2,2,？,STR30% MND50% ',
	'2,ミ,ミ,ロズレーファタール,3,魔法回避率ダウン（60秒）,,追加発動確率,1.125,,,分解 / 湾曲,STR30% MND50%',
	'2,ミ,ミ,ロイエ,2,,敵対心比例 最大750,ダメージ,,,,核熱 / 振動, ',
	'2,ミ,ミ,エクスピアシオン,2,,,ダメージ,1.5,2,2.5,湾曲 / 切断,STR30% INT30%',
	'3,5,,ハードスラッシュ,1,,,ダメージ,1.5,1.75,2,切断,STR30% ',
	'3,30,,パワースラッシュ,1,,,CRT率,1,,,貫通,STR20% VIT20%',
	'3,70,,フロストバイト,氷,,魔法：氷,ダメージ,1,2,2.5,硬化,STR20% INT20%',
	'3,100,EX,フリーズバイト,氷,,魔法：氷,ダメージ,1,1.5,3,硬化 / 炸裂,STR30% INT30%',
	'3,150,,ショックウェーブ,1,睡眠,,追加継続時間,1,,,振動,STR30% MND30%',
	'3,175,,クレセントムーン,1,,,ダメージ,1,1.75,2.5,切断,STR35% ',
	'3,200,SP,シックルムーン,2,,,ダメージ,1.5,2,2.75,切断 / 衝撃,STR20% AGI20%',
	'3,225,SP,スピンスラッシュ,1,,,ダメージ,2.5,3,3.5,分解,STR30% INT30%',
	'3,250,ク,グラウンドストライク,1,,,ダメージ,1.5,1.75,3,分解 / 湾曲,STR50% INT50%',
	'3,290,,ヘラクレススラッシュ,氷,麻痺,,追加継続時間,2.25,,,硬化 / 炸裂 /  衝撃,VIT60%',
	'4,5,,レイジングアクス,2,,,ダメージ,1,1.5,2,炸裂 / 衝撃,STR30% ',
	'4,40,,スマッシュ,1,スタン,,追加発動確率,1,,,硬化 / 振動,STR30% ',
	'4,70,,ラファールアクス,1,チョーク,,追加発動確率,1,,,炸裂,STR30% ',
	'4,100,,アバランチアクス,1,,,ダメージ,1.5,2,2.5,切断 / 衝撃,STR30% ',
	'4,150,EX,スピニングアクス,1,,,ダメージ,2,2.5,3,溶解 / 切断 / 衝撃,STR35% ',
	'4,175,,ランページ,5,,,CRT率,0.5,,,切断,STR30% ',
	'4,200,SP,カラミティ,1,,,ダメージ,1,1.5,4,切断 / 衝撃,STR32% VIT32%',
	'4,225,SP,ミストラルアクス,1,,遠隔、射程短,ダメージ,2.5,3,3.5,核熱,STR50% ',
	'4,240,ク,デシメーション,3,,,命中,1,,,核熱 / 振動,STR50% ',
	'4,ミ,ミ,プライマルレンド,光,,魔法：光,ダメージ,3.8125,4.0625,4.5625,重力 / 振動,DEX30% CHR40%',
	'4,290,,ボーラアクス,1,バインド,,追加発動確率,1,,,炸裂 / 切断,DEX60%',
	'5,5,,シールドブレイク,1,回避-40（3分〜5分）,,追加継続時間,1,,,衝撃,STR20% VIT20%',
	'5,40,,アイアンテンペスト,1,,,攻撃力,1,,,切断,STR30% ',
	'5,70,EX,シュトルムヴィント,2,,,攻撃力,1,,,振動 / 切断,STR30% ',
	'5,100,,アーマーブレイク,1,防御-25%（3分〜5分）,,追加継続時間,1,,,衝撃,STR20% VIT20%',
	'5,150,,キーンエッジ,1,,,CRT率,1,,,収縮,STR35% ',
	'5,175,,ウェポンブレイク,1,攻撃-25%（3分〜5分）,,追加継続時間,1,,,衝撃,STR32% VIT32%',
	'5,200,SP,レイジングラッシュ,3,,,ダメージ,1,,,硬化 / 振動,STR35% ',
	'5,225,SP,フルブレイク,1,命中回避-20　攻撃防御-12.5%（3分〜5分）,,追加継続時間,1,,,湾曲,STR50% VIT50%',
	'5,240,ク,スチールサイクロン,1,,,ダメージ,1.5,1.75,3,湾曲 / 炸裂,STR50% VIT50%',
	'5,ミ,ミ,キングズジャスティス,3,,,ダメージ,1,1.25,1.5,分解 / 切断,STR50% ',
	'5,300,,フェルクリーヴ,1,,範囲,攻撃範囲,2,,,炸裂 / 切断,STR60%',
	'6,5,,スライス,1,,,ダメージ,1,1.5,2,切断,STR30% ',
	'6,30,,ダークハーベスト,闇,,魔法：闇,ダメージ,1,2,2.5,振動,STR20% INT20%',
	'6,70,EX,シャドーオブデス,闇,,魔法：闇,ダメージ,1,2.5,3,硬化 / 振動,STR30% INT30%',
	'6,100,,ナイトメアサイス,1,暗闇,,追加継続時間,1,,,収縮 / 切断,STR30% MND50%',
	'6,125,,スピニングサイス,1,,範囲,攻撃範囲,1,,,振動 / 切断,STR30% ',
	'6,150,,ボーパルサイス,1,,,CRT率,1,,,貫通 / 切断,STR35% ',
	'6,200,SP,ギロティン,4,静寂,,追加継続時間,0.875,,,硬化,STR25% MND25%',
	'6,225,SP,クロスリーパー,2,,,ダメージ,2,2.25,2.5,湾曲,STR30% MND30%',
	'6,240,ク,スパイラルヘル,1,,,ダメージ,1.375,1.875,3.625,湾曲 / 切断,STR50% INT50%',
	'6,ミ,ミ,インサージェンシー,4,,,ダメージ,0.5,0.75?,1,核熱 / 収縮,STR20% INT20%',
	'6,300,,インファナルサイズ,闇,攻撃-??%（?分〜?分）,魔法：闇,追加継続時間,2.5,,,収縮 / 振動,STR32% INT32%',
	'7,5,,ダブルスラスト,2,,,ダメージ,1,1.5,2,貫通,STR30% ',
	'7,30,,サンダースラスト,雷,,魔法：雷,ダメージ,1.5,2,2.5,貫通 / 衝撃,STR20% INT20%',
	'7,70,EX,ライデンスラスト,雷,,魔法：雷,ダメージ,1,2,3,貫通 / 衝撃,STR30% INT30%',
	'7,100,,足払い,1,スタン,長めのスタン,追加発動確率,1,,,衝撃,STR30% ',
	'7,150,,ペンタスラスト,5,,,命中,1,,,収縮,STR20% DEX20%',
	'7,175,,ボーパルスラスト,1,,,CRT率,1,,,振動 / 貫通,STR20% AGI20%',
	'7,200,SP,スキュアー,3,,,命中,1,,,貫通 / 衝撃,STR35% ',
	'7,225,SP,大車輪,1,,,防御カット率,1.75,,,核熱,STR50% ',
	'7,240,ク,インパルスドライヴ,2,,,ダメージ,1,1.5,2.5,重力 / 硬化,STR50% ',
	'7,ミ,ミ,雲蒸竜変,4,,,CRT率,1,,,核熱 / 貫通,STR50% ',
	'7,300,,ソニックスラスト,1,,範囲,ダメージ,3,,,貫通 / 切断,STR30% DEX30%',
	'8,5,,臨,1,,,CRT率,1,,,貫通,STR20% DEX20%',
	'8,30,,烈,2,麻痺,,追加継続時間,1,,,切断,STR20% DEX20%',
	'8,70,,滴,1,,物理：水,ダメージ,0.5,0.75,1,振動,STR20% INT20%',
	'8,100,,凍,1,,物理：氷,ダメージ,0.5,0.75,1,硬化 / 炸裂,STR30% INT30%',
	'8,150,,地,2,,物理：土,ダメージ,0.5,0.75,1,貫通 / 衝撃,STR20% INT20%',
	'8,170,,影,闇,,魔法：闇,ダメージ,1,1.5,2,収縮,STR30% INT30%',
	'8,200,SP,迅,3,,,CRT率,1,,,炸裂 / 衝撃,STR30% DEX30%',
	'8,225,SP,天,1,,,ダメージ,2.5,2.75,3,重力,STR30% DEX30%',
	'8,250,ク,空,5,,,命中,1,,,重力 / 貫通,STR10% DEX10%',
	'8,ミ,ミ,カムハブリ,1,命中-10（60秒〜120秒）,,追加継続時間,1,,,分解 / 収縮,STR50% INT50%',
	'8,290,,湧,水,毒,,追加継続時間,,,,？ / ？,？',
	'9,5,,壱之太刀・燕飛,2,,,ダメージ,1,1.5,2,貫通 / 切断,STR30% ',
	'9,30,,弐之太刀・鋒縛,1,スタン,,追加発動確率,1,,,硬化,STR30% ',
	'9,70,,参之太刀・轟天,1,,物理：雷,ダメージ,0.5,0.75,1,貫通 / 衝撃,STR30% ',
	'9,100,,四之太刀・陽炎,1,,物理：火,ダメージ,0.5,0.75,1,溶解,STR50% ',
	'9,150,,五之太刀・陣風,2,,物理：風,ダメージ,0.5,0.75,1,切断 / 炸裂,STR30% ',
	'9,175,,六之太刀・光輝,1,,物理：光,ダメージ,0.5,0.75,1,振動 / 衝撃,STR30% MND50%',
	'9,200,SP,七之太刀・雪風,1,暗闇,,ダメージ,1.5625,1.875,2.5,硬化 / 炸裂,STR75% ',
	'9,225,SP,八之太刀・月光,1,沈黙,,ダメージ,1.5625,1.875,2.5,湾曲 / 振動,STR75% ',
	'9,250,ク,九之太刀・花車,1,麻痺,,ダメージ,1.5625,1.875,2.5,核熱 / 収縮,STR75% ',
	'9,ミ,ミ,十之太刀・乱鴉,3,,,命中,1,,,重力 / 硬化,STR35% ',
	'9,300,,十一之太刀・鳳蝶,1,防御-??%（?分）,,追加発動確率,,.,,収縮 / 切断,？ ',
	'10,5,,シャインストライク,光,,魔法：光,ダメージ,1,1.75,2.5,衝撃,STR20% MND20%',
	'10,40,EX,セラフストライク,光,,魔法：光,ダメージ,1,2,3,衝撃,STR30% MND30%',
	'10,70,,ブレインシェイカー,1,スタン,,追加発動確率,1,,,振動,STR30% ',
	'10,100,,スターライト,,,MP回復,回復量,1,2,3,−, ',
	'10,125,EX,ムーンライト,,,MP回復、範囲,回復量,1,1.5,2,−, ',
	'10,150,,スカルブレイカー,1,INT-,,追加発動確率,1,,,硬化 / 振動,STR35% ',
	'10,175,,トゥルーストライク,1,,,命中,1,,,炸裂 / 衝撃,STR50% ',
	'10,200,EX,ジャッジメント,1,,,ダメージ,2,2.5,4,衝撃,STR32% MND32%',
	'10,220,SP,ヘキサストライク,6,,,CRT率,1,,,核熱,STR20% MND20%',
	'10,230,ク,ブラックヘイロー,2,,,ダメージ,1.5,2.5,3,分解 / 収縮,STR30% MND50%',
	'10,ミ,ミ,ミスティックブーン,1,,ダメージMP変換,ダメージ,1,1.5,2,−,STR30% MND50%',
	'10,280,,フラッシュノヴァ,光,フラッシュ,魔法：光,追加発動確率,,,,振動 / 硬化,？',
	'11,5,,ヘヴィスイング,1,,,ダメージ,1,1.25,2.25,衝撃,STR30% ',
	'11,40,,ロッククラッシャー,土,,魔法：土,ダメージ,1,2,2.5,衝撃,STR20% INT20%',
	'11,70,EX,アースクラッシャー,土,,魔法：土、範囲,ダメージ,1,2.3125,3.625,炸裂 / 衝撃,STR30% INT30%',
	'11,100,,スターバースト,光/闇,,魔法：光or闇,ダメージ,1,2,2.5,収縮 / 振動,なし ',
	'11,150,EX,サンバースト,光/闇,,魔法：光or闇,ダメージ,1,2.5,4,収縮 / 振動,なし ',
	'11,175,,シェルクラッシャー,1,防御-25%,,追加継続時間,1,,,炸裂,STR35% ',
	'11,200,,フルスイング,1,,,ダメージ,1,3,5,溶解 / 衝撃,STR50% ',
	'11,215,,スピリットテーカー,1,,ダメージMP変換,ダメージ,1,1.5,2,−,INT50% MND50%',
	'11,230,ク,レトリビューション,1,,,ダメージ,2,2.5,3,重力 / 振動,STR30% MND50%',
	'11,ミ,ミ,ヴィゾフニル,闇,魔防-10（60秒〜180秒）,魔法：闇,追加継続時間,1.75,,,分解 / 湾曲,INT30% ',
	'11,ミ,ミ,ガーランドオブブリス,光,防御-12.5%,魔法：光,追加継続時間,,,,核熱 / 振動, ',
	'11,ミ,ミ,オムニシエンス,闇,魔攻-,魔法：闇,追加継続時間,2,,,重力 / 貫通,MND30% ',
	'11,270,,カタクリスム,闇,,魔法：闇,ダメージ,,,,？ / ？,？',
	'12,5,EX,フレイミングアロー,1,,物理：火,ダメージ,0.5,0.75,1,溶解 / 貫通,STR16% AGI25%',
	'12,40,EX,ピアシングアロー,1,,カット率0%〜50%,防御カット率,1,,,振動 / 貫通,STR16% AGI25%',
	'12,80,EX,ダリングアロー,1,INT-,,CRT率,1,,,溶解 / 貫通,STR16% AGI25%',
	'12,175,EX,サイドワインダー,1,,命中低,命中,5,,,振動 / 貫通 / 炸裂,STR16% AGI25%',
	'12,200,SP,ブラストアロー,1,,射程短,命中,2,,,硬化 / 貫通,STR16% AGI25%',
	'12,225,SP,アーチングアロー,1,,,CRT率,3.5,,,核熱,STR16% AGI25%',
	'12,250,ク,エンピリアルアロー,1,,,ダメージ,1.5,2,2.5,核熱 / 貫通,STR16% AGI25%',
	'12,290,,リフルジェントアロー,1,2倍撃,,ダメージ,3,4.25,5,振動 / 貫通,STR60% ',
	'13,5,EX,ホットショット,1,,物理：火,ダメージ,0.5,0.75,1,溶解 / 貫通,AGI30% ',
	'13,40,EX,スプリットショット,1,,カット率0%〜50%,防御カット率,1,,,振動 / 貫通,AGI30% ',
	'13,80,EX,スナイパーショット,1,INT-,,CRT率,1,,,溶解 / 貫通,AGI30% ',
	'13,175,EX,スラッグショット,1,,命中低,命中,5,,,振動 / 貫通 / 炸裂,AGI30% ',
	'13,200,SP,ブラストショット,1,,射程短,命中,2,,,硬化 / 貫通,AGI30% ',
	'13,225,SP,ヘヴィショット,1,,,CRT率,3.5,,,核熱,AGI30% ',
	'13,250,ク,デトネーター,1,,,ダメージ,1.5,2,2.5,核熱 / 貫通,AGI30% ',
	'13,ミ,ミ,トゥルーフライト,光,,魔法：光,ダメージ,3.89,4.39,4.89,分解 / 切断,AGI30% ',
	'13,ミ,ミ,レデンサリュート,闇,,魔法：闇,ダメージ,4,4.25,4.75,重力 / 貫通,AGI30% ',
	'13,290,,ナビングショット,1,麻痺(60秒〜180秒),,追加継続時間,,,,硬化 / 炸裂 / 衝撃,AGI30% ',
);



# SP技使用可能ジョブ一覧
# 戦 モ 白 黒 赤 シ ナ 暗 狩 吟 獣 竜 召 忍 侍 青 コ か 踊 学
#  0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 16 17 18 19
@spjoblist = (
	'1,17',		#	格闘	モか
	'5,18',		#	短剣	シ踊
	'6',		#	片手剣	ナ
	'6,7',		#	両手剣	ナ暗
	'0,10',		#	片手斧	戦獣
	'0',		#	両手斧	戦
	'7',		#	両手鎌	暗
	'11',		#	両手槍	竜
	'13',		#	片手刀	忍
	'14',		#	両手刀	侍
	'2',		#	片手棍	白
	'',			#	両手棍	なし
	'8',		#	弓術	狩
	'8'			#	射撃	狩
);

# 利用可能WS一覧表　項目名
@wsparam = (
	'スキル値', '種別', '名前', '回','追加効果','効果等','TP','ダメージ補正','連携属性','ステータス補正');

}
 else {

@equiplist = (
	'Head',
	'Body',
	'Hands',
	'Legs',
	'Feet',
	'Neck',
	'Back',
	'Waist',
	'Ring',
	'Ear',
	'Main',
	'Sub',
	'Range',
	'Ammo'
);

@mpointword=('General','Job Group1','Job group2','Total merit point use','Category Limit');

@assaultword=('RunicPortal','Mercenary Rank','Leujaom','MammolJa','Leberos','Perqia','Ilrusi','Nyzul','PSC','PFC','SP','LC','C','SER','SMJ','CS','SL');

@addcplist=('','A Crystalline Prophecy','The Echo Awakens','Gatherer of Light (I)','Gatherer of Light (II)','Those Who Lurk in Shadows (I)','Those Who Lurk in Shadows (II)','Those Who Lurk in Shadows (III)','Remember Me in Your Dreams','Born of Her Nightmares','Banishing the Echo','Ode of Life Bestowing','A Crystalline Prophecy (Fin.)');
@addmklist=(
	'',
	"A Moogle Kupo d'Etat",
	"Drenched! It Began with a Raindrop",
	"Hasten! In a Jam in Jeuno?",
	"Welcome! To My Decrepit Domicile",
	"Curses! A Horrifically Harrowing Hex",
	"An Errand! The Professor's Price",
	"Shock! Arrant Abuse of Authority",
	"Lender Beware! Read the Fine Print",
	"Rescue! A Moogle's Labor of Love",
	"Roar! A Cat Burglar Bares Her Fangs",
	"Relief! A Triumphant Return",
	"Joy! Summoned to a Fabulous Fete",
	"A Challenge! You Could Be a Winner",
	"Smash! A Malevolent Menace",
	"A Moogle Kupo d'Etat (Fin.)"
	);

@addsslist=(
	'',
	'A Shantotto Ascension',
	'Burgeoning Dread',
	'That Which Curdles Blood',
	'Sugar-coated Directive',
	'Enemy of the Empire (I)',
	'Enemy of the Empire (II)',
	'Sugar-coated Subterfuge',
	'Shantotto in Chains',
	'Fountain of Trouble',
	'Battaru Royale',
	'Romancing the Clone',
	'Sisters in Arms',
	'Project: Shantottofication',
	'An Uneasy Peace',
	'A Shantotto Ascension (Fin)',
	);
@allist=(
	'',
	'Cavernous Maws',	'Back to the Beginning',	'Cait Sith',	'The Queen of the Dance',	'While the Cat is Away',	'A Timeswept Butterfly',	'Purple, The New Black',	'In the Name of the Father',
	'Dancers in Distress',	'Daughter of a Knight',	'A Spoonful of Sugar',	'Affairs of State',	'Borne by the Wind',	'A Nation on the Brink',	'Crossroads of Time',
	'Sandswept Memories',	'Northland Exposure',	'Traitor in the Midst',	'Betrayal at Beaucedine',	'On Thin Ice',	'Proof of Valor',
	'A Sanguinary Prelude',	'Dungeons and Dancers',	'Distorter of Time',	'The Will of the World','Fate in Haze',
	'The Scent of Battle',	'Another World',	'A Hawk in Repose',	'The Battle of Xarcabard',	'Prelude to a Storm',	"Storm's Crescendo",	
	"Into the Beast's Maw",	'The Hunter Ensnared',	'Flight of the Lion',	'Fall of the Hawk',	'Darkness Descends',	'Adieu, Lilisette',
	);

@amlist=("","Land of Sacred Serpents","Immortal Sentries","President Salaheem","Knight of Gold","Confessions of Royalty","Easterly Winds","Westerly Winds","A Mercenary Life",'Undersea Scouting','Astral Waves','Imperial Schemes','Royal Puppeteer','Lost Kingdom','The Dolphin Crest','The Black Coffin','Ghosts of the Past','Guests of the Empire','Passing Glory','Sweets for the Soul','Teahouse Tumult','Finders Keepers','Shield of Diplomacy','Social Graces','Foiled Ambition','Playi,g the Part','Seal of the Serpent','Misplaced Nobility','Bastion of Knowledge','Puppet in Peril','Prevalence of Pirates','Shades of Vengeance','In the Blood',"Sentinels' Honor",'Testing the Waters','Legacy of the Lost','Gaze of the Saboteur','Path of Blood','Stirrings of War','Allied Rumblings','Unraveling Reason','Light of Judgment','Path of Darkness','Fangs of the Lion',"Nashmeira's Plea",'Ragnarok','Imperial Coronation','The Empress Crowned','Eternal Mercenary'
);

@alrank=(
'',
'Bronze Ribbon of Service','Brass Ribbon of Service','Allied Ribbon of Bravery','Allied Ribbon of Glory',
'Bronze Star','Sterling Star','Mythril Star','Golden Star',
'Copper Emblem of Service','Iron Emblem of Service','Steelknight Emblem','Holyknight Emblem',
'Brass Wings of Service','Mythril Wings of Service','Wings of Integrity','Wings of Honor',
'Starlight Medal','Moonlight Medal','Dawnlight Medal','Medal Of Altana'
);
@aslist=('Mercenary Rank','RunicPortal:Leujaoam','RunicPortal:Mamool Ja','RunicPortal:Lebros','RunicPortal:Periqia','RunicPortal:Ilrusi','LeuPSC:Leujaoam Cleansing','LeuPFC:Orichalcum Survey','LeuSP:Escort Professor Clavauert','MamPSC:Imperial Agent Rescue','MamPFC:Preemptive Strike','MamSP:Sagelord Elimination','LebPSC:Excavation Duty','LebPFC:Lebros Supplies','LebSP:Troll Fugitives','PerPSC:Seagull Grounded','PerPFC:Requiem','PerSP:Saving Private Ryaaf','IlrPSC:Golden Salvage','IlrPFC:Lamia No.13','IlrSP:Extermination','LeuLC:Shanarha Grass Conservation ','LeuC:Counting Sheep','MamLC:Breaking Morale ','MamC:The Double Agent','LebLC:Evade and Escape','LebC:Siegemaster Assassination','PerLC:Shooting Down the Baron','PerC:Building Bridges','IlrLC:Demolition Duty','IlrC:Searat Salvation','LeuSER:Supplies Recovery','LeuSMJ:Azure Experiments','MamSER:Imperial Treasure Retrieval','MamSMJ:Blitzkrieg','LebSER:Apkallu Breeding','LebSMJ:Wamoura Farm Raid','PerSER:Stop the Bloodshed','PerSMJ:Defuse the Threat','IlrSER:Apkallu Seizure','IlrSMJ:Lost and Found','LeuCS:Imperial Code','MamCS:Marids in the Mist','LebCS:Egg Conservation','PerCS:Operation: Snake Eyes','IlrCS:Deserter','LeuSL:Red Versus Blue','MamSL:Azure Ailments','LebSL:Operation: Black Pearl','PerSL:Wake the Puppet','IlrSL:Desperately Seeking Cephalopods','LeuFL:Bloody Rondo','MamFL:The Susanoo Shuffle','LebFL:Better than One','PerFL:The Price Is Right',"IlrFL:Bellerophon's Bliss");

@asrank=('','PSC','PFC','SP','LC','C','SER','SMJ','CS','SL','FL','CAP');
#@asrank=('','Private Second Class','Private First Class','Superior Private','LanceCorporal','Corporal','Sergent','SergentMajor','ChiefSergent','SecondLieutenant','FirstLieutenant','Captain');

@nzlist=('-','0','6','11','16','21','26','31','36','41','46','51','56','61','66','71','76','81','86','91','96','100');



@pmlist=('','1-1:The Rites of Life','1-2:Below the Arks','1-3:The Mothercrystals', 
'2-1:An Invitation West','2-2:The Lost City','2-3:Distant Beliefs','2-4:An Eternal Melody','2-5:Ancient Vows',
'3-1:The Call of the Wyrmking','3-2:A Vessel Without a Captain', 
'3-3-1-1:The Road Forks-Emerald Waters','3-3-1-2:Vicissitudes','3-3-1-3:Descendents of Line Lost','3-3-1-4:Louverance', 
'3-3-2-1:The Road Forks-Memories of a Maiden','3-3-2-2:Comedy of Errors','3-3-2-3:Comedy of Errors','3-3-2-4:Exit Stage Left', 
'3-4:Tending Aged Wounds','3-5:Darkness Named', 
'4-1:Sheltering Doubt','4-2:The Savage','4-3:The Secrets of Worship','4-4:Slanderous Utterings', 
'5-1:The Enduring Tumult of War','5-2:Desires of Emptiness', 
'5-3-1-1:Three Forks-Past Sins','5-3-1-2:Southern Legend','5-3-1-3:Partners Without Fame','5-3-1-4:A Century of Hardship','5-3-1-5:Departures', 
'5-3-2-1:Three Forks-The Pursuit of Paradise','5-3-2-2:Spiral','5-3-2-3:Branded','5-3-2-4:Pride and Honor','5-3-2-5:And the Compass Guides', 
'5-3-3-1:Three Forks-Where Messengers Gather','5-3-3-2:Enlanglement','5-3-3-3:Head Wind','5-3-3-4:Flames for the Dead', 
'6-1:For Whom the Verse is Sung','6-2:A Place to Return','6-3:More Questions than Answers','6-4:One to be Feared',
'7-1:Chains and Bonds','7-2:Flames in the Darkness','7-3:Fire in the Eyes of Men','7-4:Calm Before the Storm',"7-5:The Warrior's Path",
'8-1:Garden of Antiquity','8-2:A Fate Decided','8-3:When Angels Fall','8-4:Dawn',"Storms of Fate","Shadows of the Departed","Apocalypse Nigh",'The Last Verse'
);

@jmlist=('',"The New Frontier","Welcome t'Norg","Kazham's Chieftainness","The Temple of Uggalepih","Headstone Pilgrimage","Through the Quicksand Caves","The Chamber of Oracles","Return to Delkfutt's Tower","Ro'Maeve","The Temple of Desolation","The Hall of the Gods","The Mithra and the Crystal","The Gate of the Gods","Ark Angels","The Sealed Shrine","The Celestial Nexus","Awakening",'The Last Verse');

@smlist=('-',"Smash the Orcish Scouts ","Bat Hunt","Save the Children ","The Rescue Drill ","The Davoi Report ","Journey Abroad ","Infiltrate Davoi ","The Crystal Spring ","Appointment to Jeuno ","Magicite ","The Ruins of Fei'Yin ","The Shadow Lord ","Leaute's Last Wishes ","Ranperre's Final Rest ","Prestige of the Papsque ","The Secert Weapon ","Coming of Age ","Lightbringer ","Breaking Barriers ","The Heir to the Light ","RANK10");

@bmlist=('-',"The Zeruhn Report ","A Geological Survey ","Fetichism","The Crystal Line ","Wading Beasts ","The Emissary ","The Four Musketeers ","To the Forsaken Mines ","Jeuno ","Magicite ","Darkness Rising ","Xarcabard, Land of Truths ","Return of the Talekeeper ","The Pirates' Cove ","The Final Image ","On My Way ","The Chains that Bind Us ","Enter the Talekeeper ","The Salt of the Earth ","Where Two Paths Converge ","RANK10");

@wmlist=('-',"The Horuroro Ruins Experiment ","The Heart of the Matter ","The Price of Peace ","Lost for Words ","A Testing Time ","The Three Kingdoms ","To Each His Own Right ","Written in the Stars ","A New Journey ","Magicite ","The Final Seal ","The Shadow Awaits ","Full Moon Fountain ","Saintly Invitation ","The Sixth Ministry ","Awakening of the Gods ","Vain ","The Jester Who'd Be King ","Doll of the Dead ","Moon Reading ","RANK10");

#For Dynamis
@maru=('-','Fin');


@mlist=(
	'Promathia',					# 0
	'Zilart',						# 1
	"Sand'Oria",					# 2
	'Bastok',						# 3
	'Windurst',						# 4
	"Dynamis-Sand'Oria",			# 5
	'Dynamis-Bastok',				# 6
	'Dynamis-Windurst',				# 7
	'Dynamis-Jeuno',				# 8
	'Dynamis-Beaucedine',			# 9
	'Dynamis-Xarcabard',			# 10
	'Dynamis-Valkurm',				# 11
	'Dynamis-Buburimu',				# 12
	'Dynamis-Qufim',				# 13
	'Dynamis-Tavnazia',				# 14
	"Aht Urhgan",					# 15
	"Assault",						# 16
	'Nyzlu',						# 17
	'Altana',						# 18
	'A Crystalline Prophecy',		# 19
	"A Moogle Kupo d'Etat",			# 20
	'A Shantotto Ascension',		# 21
	'Campaign Medal'				# 22
	
);

# クエストWS、ミシックWS一覧

@mwslist = (
	'0,Asuran Fists,0,1,250',							# 格闘　　クエスト　モ
	"0,Ascetic's Fury,1,1,",							# 格闘　　ミシック　モ
	'0,Stringing Pummel,1,17,',							# 格闘　　ミシック　か
	'1,Evisceration,0,0/4/5/8/9/10/12/13/16/18,230',	# 短剣　　クエスト　戦赤シ狩吟獣召忍コ踊
	'1,Mandalic Stab,1,5,',								# 短剣　　ミシック　シ
	'1,Mordant Rime,1,9,',								# 短剣　　ミシック　吟
	'1,Pyrrhic Kleos,1,18',								# 短剣　　ミシック　踊
	'2,Savage Blade,0,0/4/6/7/15/16,240',				# 片手剣　クエスト　戦赤ナ暗青コ
	'2,Death Blossom,1,4,',								# 片手剣　ミシック　赤
	'2,Atonement,1,6,',									# 片手剣　ミシック　ナ
	'2,Expiacion,1,15,',								# 片手剣　ミシック　青
	'3,Ground Strike,0,0/6/7,250',						# 両手剣　クエスト　戦ナ暗
	'4,Decimation,0,0/7/8/10,240',						# 片手斧　クエスト　戦暗狩獣
	'4,Primal Rend,1,10,',								# 片手斧　ミシック　獣
	'5,Steel Cyclone,0,0/7,240',						# 両手斧　クエスト　戦暗
	"5,King's Justice,1,0,",							# 両手斧　ミシック　戦
	'6,Spiral Hell,0,0/7/10,240',						# 両手鎌　クエスト　戦暗獣
	'6,Insurgency,1,7,',								# 両手鎌　ミシック　暗
	'7,Impulse Drive,0,0/11/14,240',					# 両手槍　クエスト　戦侍竜
	'7,Drakesbane,1,11,',								# 両手槍　ミシック　竜
	'8,Blade: Ku,0,13,250',								# 片手刀　クエスト　忍
	'8,Blade: Kamu,1,13,',								# 片手刀　ミシック　忍
	'9,Tachi: Kasya,0,14,250',							# 両手刀　クエスト　侍
	'9,Tachi: Rana,1,14,',								# 両手刀　ミシック　侍
	'10,Black Halo,0,0/1/2/3/6/12/15/19,230',			# 片手棍　クエスト　戦モ白黒ナ召青学
	'10,Mystic Boon,1,2,',								# 片手棍　ミシック　白
	'11,Retribution,0,0/1/2/3/6/9/11/12/19,230',		# 両手棍　クエスト　戦モ白黒ナ吟竜召学
	'11,Vidohunir,1,3,',								# 両手棍　ミシック　黒
	'11,Garland of Bliss,1,12,',						# 両手棍　ミシック　召
	'11,Omniscience,1,19,',								# 両手棍　ミシック　学
	'12,Empyreal Arrow,0,8,250',						# 弓術　　クエスト　狩
	'13,Detonator,0,8/16,250',							# 射撃　　クエスト　狩コ
	'13,Trueflight,1,8,',								# 射撃　　ミシック　狩
	'13,Leaden Salute,1,16,'							# 射撃　　ミシック　コ
);

@wslist = (
	'0,5,,Combo,3,,,Damage,1,1.5,2,Impaction,STR20% DEX20%',
	'0,40,,Shoulder Tackle,2,Stuns,,Chance,1,,,Reverberation / Impaction,VIT30% ',
	'0,75,EX,One Inch Punch,2,,,Ignore defense,1,,,Compression,VIT40% ',
	'0,100,,Backhand Blow,2,,,CRT,1,,,Detonation,STR30% DEX30%',
	'0,125,EX,Raging Fists,5,,,Damage,1,1.5,2,Impaction,STR20% DEX20%',
	'0,150,,Spinning Attack,2,,Area,Radius,1,,,Liquefaction / Impaction,STR35% ',
	'0,200,SP,Howling Fist,2,,,Damage,2.5,2.75,3,Transfixion / Impaction,STR20% VIT50%',
	'0,225,SP,Dragon Kick,2,,,Damage,2,2.75,3.5,Fragmentation,STR50% VIT50%',
	'0,250,Quest,Asuran Fists,8,,,Accuracy,1,,,Gravitation / Liquefaction,STR10% VIT10%',
	'0,Myth,Myth,Ascetic'."'".'s Fury,2,,,CRT,1,,,Fusion / Transfixion,STR50% VIT50%',
	'0,Myth,Myth,Stringing Pummel,6,,,CRT,0.75,,,Gravitation / Liquefaction,STR+VIT70%',
	'1,5,,Wasp Sting,1,Poison(-1HP/3sec),,Duration,1,,,Scission, ',
	'1,40,EX,Gust Slash,Wind,,Magic:Wind,Damage,1,2,2.5,Detonation,DEX20% INT20%',
	'1,70,,Shadowstitch,1,Binds,,Chance,1,,,Reverberation,CHR30% ',
	'1,100,EX,Viper Bite,1,Poison(-3HP/3sec),double,Duration,1,,,Scission, ',
	'1,125,EX,Cyclone,Wind,,Magic:Wind Area,Damage,1,2.375,2.875,Detonation / Impaction,DEX30% INT25%',
	'1,150,,Energy Steal,,,Steals MP,Amount,,,,, ',
	'1,175,EX,Energy Drain,,,Steals MP,Amount,,,,, ',
	'1,200,SP,Dancing Edge,5,,,Accuracy,1.1875,,,Scission / Detonation,DEX30% CHR40%',
	'1,225,SP,Shark Bite,2,,,Damage,2,2.5,3,Fragmentation,DEX50% ',
	'1,230,Quest,Evisceration,5,,,CRT,1,,,Gravitation / Transfixion,DEX30% ',
	'1,Myth,Myth,Mandalic Stab,1,,1.66 times,Damage,2,2.125,2.5,Fusion / Compression,DEX30% ',
	'1,Myth,Myth,Mordant Rime,2,Low move speed(60sec),,Chance,3,,,Fragmentation / Distortion,DEX30% CHR50%',
	'1,Myth,Myth,Pyrrhic Kleos,4,ACC-,,Duration,1.5,,,Distortion / Scission,DEX50% ',
	'2,5,,Fast Blade,2,,,Damage,1,1.5,2,Scission,STR20% DEX20%',
	'2,30,,Burning Blade,Fire,,Magic:Fire,Damage,1,2,2.5,Liquefaction,STR20% INT20%',
	'2,50,EX,Red Lotus Blade,Fire,,Magic:Fire,Damage,1,2.375,3,Liquefaction / Detonation,STR30% INT20%',
	'2,75,,Flat Blade,1,Stuns,,Chance,1,,,Impaction,STR30% ',
	'2,100,,Shining Blade,Light,,Magic:light,Damage,1,2,2.5,Scission,STR20% MND20%',
	'2,125,EX,Seraph Blade,Light,,Magic:Light,Damage,1,2.5,3,Scission,STR30% MND30%',
	'2,150,,Circle Blade,1,,Area,Radius,1,,,Reverberation / Impaction,STR35% ',
	'2,175,,Spirits Within,,,Damage=HP*Correct,Damage,4/32,6/32,15/32,, ',
	'2,200,EX,Vorpal Blade,4,,,CRT,1,,,Scission / Impaction,STR30% ',
	'2,225,SP,Swift Blade,3,,,Accuracy,1.5,,,Gravitation,STR30% MND30%',
	'2,240,Quest,Savage Blade,2,,,Damage,1,1.75,3.5,Fragmentation / Scission,STR30% MND50%',
	'2,Myth,Myth,Death Blossom,3,Low MAG-ACC(60s),,Chance,1.125,,,Fragmentation / Distortion,STR30% MND50%',
	'2,Myth,Myth,Atonement,2,, Max 750,Damage,,,,Fusion / Reverberation, ',
	'2,Myth,Myth,Expiacion,2,,,Damage,1.5,2,2.5,Distortion / Scission,STR30% INT30%',
	'3,5,,Hard Slash,1,,,Damage,1.5,1.75,2,Scission,STR30% ',
	'3,30,,Power Slash,1,,,CRT,1,,,Transfixion,STR20% VIT20%',
	'3,70,,Frostbite,Ice,,Magic:Ice,Damage,1,2,2.5,Induration,STR20% INT20%',
	'3,100,EX,Freezebite,Ice,,Magic:Ice,Damage,1,1.5,3,Induration / Detonation,STR30% INT30%',
	'3,150,,Shockwave,1,Sleep,,Duration,1,,,Reverberation,STR30% MND30%',
	'3,175,,Crescent Moon,1,,,Damage,1,1.75,2.5,Scission,STR35% ',
	'3,200,SP,Sickle Moon,2,,,Damage,1.5,2,2.75,Scission / Impaction,STR20% AGI20%',
	'3,225,SP,Spining Slash,1,,,Damage,2.5,3,3.5,Fragmentation,STR30% INT30%',
	'3,250,Quest,Ground Strike,1,,,Damage,1.5,1.75,3,Fragmentation / Distortion,STR50% INT50%',
	'4,5,,Raging Axe,2,,,Damage,1,1.5,2,Detonation / Impaction,STR30% ',
	'4,40,,Smash Axe,1,Stuns,,Chance,1,,,Induration / Reverberation,STR30% ',
	'4,70,,Gale Axe,1,Chokes,,Chance,1,,,Detonation,STR30% ',
	'4,100,,Avalanche Axe,1,,,Damage,1.5,2,2.5,Scission / Impaction,STR30% ',
	'4,150,EX,Spining Axe,1,,,Damage,2,2.5,3,Liquefaction / Scission / Impaction,STR35% ',
	'4,175,,Rampage,5,,,CRT,0.5,,,Scission,STR30% ',
	'4,200,SP,Calamity,1,,,Damage,1,1.5,4,Scission / Impaction,STR32% VIT32%',
	'4,225,SP,Mistral Axe,1,,Range short-ranged,Damage,2.5,3,3.5,Fusion,STR50% ',
	'4,240,Quest,Decimation,3,,,Accuracy,1,,,Fusion / Reverberation,STR50% ',
	'4,Myth,Myth,Primal Rend,Light,,Magic:Light,Damage,3.8125,4.0625,4.5625,Gravitation / Reverberation,DEX30% CHR40%',
	'5,5,,Shield Break,1,ACC-40(3m-5m),,Duration,1,,,Impaction,STR20% VIT20%',
	'5,40,,Iron Tempest,1,,,Atack,1,,,Scission,STR30% ',
	'5,70,EX,Sturmwind,2,,,Atack,1,,,Reverberation / Scission,STR30% ',
	'5,100,,Armor Break,1,DEF-25%(3m-5m),,Duration,1,,,Impaction,STR20% VIT20%',
	'5,150,,Keen Edge,1,,,CRT,1,,,Compression,STR35% ',
	'5,175,,Weapon Break,1,ATK-25%(3m-5m),,Duration,1,,,Impaction,STR32% VIT32%',
	'5,200,SP,Raging Rush,3,,,Damage,1,,,Induration / Reverberation,STR35% ',
	'5,225,SP,Full Break,1,EVA/ACC-20 ATK/DEF-12.5%（3m-5m）,,Duration,1,,,Distortion,STR50% VIT50%',
	'5,240,Quest,Steel Cyclone,1,,,Damage,1.5,1.75,3,Distortion / Detonation,STR50% VIT50%',
	'5,Myth,Myth,King'."'".'s Justice,3,,,Damage,1,1.25,1.5,Fragmentation / Scission,STR50% ',
	'6,5,,Slice,1,,,Damage,1,1.5,2,Scission,STR30% ',
	'6,30,,Dark Harvest,Darkness,,Magic:Darkness,Damage,1,2,2.5,Reverberation,STR20% INT20%',
	'6,70,EX,Shadow of Death,Darkness,,Magic:Darkness,Damage,1,2.5,3,Induration / Reverberation,STR30% INT30%',
	'6,100,,Nightmare Scythe,1,Blinds,,Duration,1,,,Compression / Scission,STR30% MND50%',
	'6,125,,Spining Scythe,1,,Area,Radius,1,,,Reverberation / Scission,STR30% ',
	'6,150,,Vorpal Scythe,1,,,CRT,1,,,Transfixion / Scission,STR35% ',
	'6,200,SP,Guillotine,4,Silences,,Duration,0.875,,,Induration,STR25% MND25%',
	'6,225,SP,Cross Reaper,2,,,Damage,2,2.25,2.5,Distortion,STR30% MND30%',
	'6,240,Quest,Spiral Hell,1,,,Damage,1.375,1.875,3.625,Distortion / Scission,STR50% INT50%',
	'6,Myth,Myth,Insurgency ,4,,,Damage,0.5,0.75?,1,Fusion / Compression,STR20% INT20%',
	'7,5,,Double Thrust,2,,,Damage,1,1.5,2,Transfixion,STR30% ',
	'7,30,,Thunder Thrust,Lightning,,Magic:Lightning,Damage,1.5,2,2.5,Transfixion / Impaction,STR20% INT20%',
	'7,70,EX,Raiden Thrust,Lightning,,Magic:Lightning,Damage,1,2,3,Transfixion / Impaction,STR30% INT30%',
	'7,100,,Leg Sweep,1,Stuns,Long Stuns,Chance,1,,,Impaction,STR30% ',
	'7,150,,Penta Thrust,5,,,Accuracy,1,,,Compression,STR20% DEX20%',
	'7,175,,Vorpal Thrust,1,,,CRT,1,,,Reverberation / Transfixion,STR20% AGI20%',
	'7,200,SP,Skewer,3,,,Accuracy,1,,,Transfixion / Impaction,STR35% ',
	'7,225,SP,Wheeling Thrust,1,,,Ignore defense,1.75,,,Fusion,STR50% ',
	'7,240,Quest,Impulse Drive,2,,,Damage,1,1.5,2.5,Gravitation / Induration,STR50% ',
	'7,Myth,Myth,Drakesbane ,4,,,CRT,1,,,Fusion / Transfixion,STR50% ',
	'8,5,,Blade:Rin,1,,,CRT,1,,,Transfixion,STR20% DEX20%',
	'8,30,,Blade:Retsu,2,Paralyzes,,Duration,1,,,Scission,STR20% DEX20%',
	'8,70,,Blade:Teki,1,,Physical:Water,Damage,0.5,0.75,1,Reverberation,STR20% INT20%',
	'8,100,,Blade:To,1,,Physical:Ice,Damage,0.5,0.75,1,Induration / Detonation,STR30% INT30%',
	'8,150,,Blade:Chi,2,,Physical：Earth,Damage,0.5,0.75,1,Transfixion / Impaction,STR20% INT20%',
	'8,170,,Blade:Ei,Darkness,,Magic:Darkness,Damage,1,1.5,2,Compression,STR30% INT30%',
	'8,200,SP,Blade:Jin,3,,,CRT,1,,,Detonation / Impaction,STR30% DEX30%',
	'8,225,SP,Blade:Ten,1,,,Damage,2.5,2.75,3,Gravitation,STR30% DEX30%',
	'8,250,ク,Blade:Ku,5,,,Accuracy,1,,,Gravitation / Transfixion,STR10% DEX10%',
	'8,Myth,Myth,Blade:Kamu,1,Accuracy-10(60s-1202),,Duration,1,,,Fragmentation / Compression,STR50% INT50%',
	'9,5,,Tachi:Enpi,2,,,Damage,1,1.5,2,Transfixion / Scission,STR30% ',
	'9,30,,Tachi:Hobaku,1,Stuns,,Chance,1,,,Induration,STR30% ',
	'9,70,,Tachi:Goten,1,,Physical;Lightning,Damage,0.5,0.75,1,Transfixion / Impaction,STR30% ',
	'9,100,,Tachi:Kagero,1,,Physical:Fire,Damage,0.5,0.75,1,Liquefaction,STR50% ',
	'9,150,,Tachi:Jinpu,2,,Physical:Wind,Damage,0.5,0.75,1,Scission / Detonation,STR30% ',
	'9,175,,Tachi:Koki,1,,Physical:Light,Damage,0.5,0.75,1,Reverberation / Impaction,STR30% MND50%',
	'9,200,SP,Tachi:Yukikaze,1,Blinds,,Damage,1.5625,1.875,2.5,Induration / Detonation,STR75% ',
	'9,225,SP,Tachi:Gekko,1,Mutes,,Damage,1.5625,1.875,2.5,Distortion / Reverberation,STR75% ',
	'9,250,Quest,Tachi:Hanaguruma,1,Paralizes,,Damage,1.5625,1.875,2.5,Fusion / Compression,STR75% ',
	'9,Myth,Myth,Tachi:Rana,3,,,Accuracy,1,,,Gravitation / Induration,STR35% ',
	'10,5,,Shining Strike,Light,,Magic:Light,Damage,1,1.75,2.5,Impaction,STR20% MND20%',
	'10,40,EX,Seraph Strike,Light,,Magic:Light,Damage,1,2,3,Impaction,STR30% MND30%',
	'10,70,,Brainshaker,1,Stuns,,Chance,1,,,Reverberation,STR30% ',
	'10,100,,Starlight,,,Restore MP,Amount,1,2,3,, ',
	'10,125,EX,Moonlight,,,Restore MP Area,Amount,1,1.5,2,, ',
	'10,150,,Skullbreaker,1,Low INT,,Chance,1,,,Induration / Reverberation,STR35% ',
	'10,175,,True Strike,1,,,Accuracy,1,,,Detonation / Impaction,STR50% ',
	'10,200,EX,Judgment,1,,,Damage,2,2.5,4,Impaction,STR32% MND32%',
	'10,220,SP,Hexa Strike,6,,,CRT,1,,,Fusion,STR20% MND20%',
	'10,230,Quest,Black Halo,2,,,Damage,1.5,2.5,3,Fragmentation / Compression,STR30% MND50%',
	'10,Myth,Myth,Mystic Boon,1,,Damage transfer MP,Damage,1,1.5,2,,STR30% MND50%',
	'11,5,,Heavy Swing,1,,,Damage,1,1.25,2.25,Impaction,STR30% ',
	'11,40,,Rock Crusher,Earth,,Magic;Earth,Damage,1,2,2.5,Impaction,STR20% INT20%',
	'11,70,EX,Earth Crusher,Erath,,Magic:Earth、Area,Damage,1,2.3125,3.625,Detonation / Impaction,STR30% INT30%',
	'11,100,,Starburst,Light/Darkness,,Magic:Light or Darkness,Damage,1,2,2.5,Compression / Reverberation,なし ',
	'11,150,EX,Sunburst,Light/Darkness,,Magic:Light or Darkness,Damage,1,2.5,4,Compression / Reverberation,なし ',
	'11,175,,Shell Crusher,1,DEF-25%,,Duration,1,,,Detonation,STR35% ',
	'11,200,,Full Swing,1,,,Damage,1,3,5,Liquefaction / Impaction,STR50% ',
	'11,215,,Spirit Taker,1,,Damage transfer MP,Damage,1,1.5,2,,INT50% MND50%',
	'11,230,Quest,Retribution,1,,,Damage,2,2.5,3,Gravitation / Reverberation,STR30% MND50%',
	'11,Myth,Myth,Vidohunir,Darkness,low MAG-DEF -10(60m-180m),Magic：Darkness,Duration,1.75,,,Fragmentation / Distortion,INT30% ',
	'11,Myth,Myth,Garland of Bliss,Light,Low DE F-12.5%,Magic:Light,Duration,,,,Fusion / Reverberation, ',
	'11,Myth,Myth,Omniscience,Darkness,Low MAG-ATK,Magic:Darkness,Duration,2,,,Gravitation / Transfixion,MND30% ',
	'12,5,EX,Flaming Arrow,1,,Physical:Fire,Damage,0.5,0.75,1,Liquefaction / Transfixion,STR16% AGI25%',
	'12,40,EX,Piercing Arrow,1,,0%-50%,Ignore defense,1,,,Reverberation / Transfixion,STR16% AGI25%',
	'12,80,EX,Dulling Arrow,1,Low INT,,CRT,1,,,Liquefaction / Transfixion,STR16% AGI25%',
	'12,175,EX,Sidewinder,1,,Low Accuracy,Accuracy,5,,,Reverberation / Transfixion / Detonation,STR16% AGI25%',
	'12,200,SP,Blast Arrow,1,,short-ranged,Accuracy,2,,,Induration / Transfixion,STR16% AGI25%',
	'12,225,SP,Arching Arrow,1,,,CRT,3.5,,,Fusion,STR16% AGI25%',
	'12,250,Quest,Empyreal Arrow,1,,,Damage,1.5,2,2.5,Fusion / Transfixion,STR16% AGI25%',
	'13,5,EX,Hot Shot,1,,Physical:Fire,Damage,0.5,0.75,1,Liquefaction / Transfixion,AGI30% ',
	'13,40,EX,Split Shot,1,,0%-50%,Ignore defense,1,,,Reverberation / Transfixion,AGI30% ',
	'13,80,EX,Sniper Shot,1,Low INT,,CRT,1,,,Liquefaction / Transfixion,AGI30% ',
	'13,175,EX,Slug Shot,1,,Low Accuracy,Accuracy,5,,,Reverberation / Transfixion / Detonation,AGI30% ',
	'13,200,SP,Blast Shot,1,,short-ranged,Accuracy,2,,,Induration / Transfixion,AGI30% ',
	'13,225,SP,Heavy Shot,1,,,CRT,3.5,,,Fusion,AGI30% ',
	'13,250,Quest,Detonator,1,,,Damage,1.5,2,2.5,Fusion / Transfixion,AGI30% ',
	'13,Myth,Myth,Trueflight,Light,,Magic:Light,Damage,3.89,4.39,4.89,Fragmentation / Scission,AGI30% ',
	'13,Myth,Myth,Leaden Salute,Darkness,,Magic:Darkness,Damage,4,4.25,4.75,Gravitation / Transfixion,AGI30% '
);

@spjoblist = (
	'1,17',		#	格闘	モか
	'5,18',		#	短剣	シ踊
	'6',		#	片手剣	ナ
	'6,7',		#	両手剣	ナ暗
	'0,10',		#	片手斧	戦獣
	'0',		#	両手斧	戦
	'7',		#	両手鎌	暗
	'11',		#	両手槍	竜
	'13',		#	片手刀	忍
	'14',		#	両手刀	侍
	'2',		#	片手棍	白
	'',			#	両手棍	なし
	'8',		#	弓術	狩
	'8'			#	射撃	狩
);

@wsparam = (
	'Skill', 'Type', 'Name', 'Times','Additional','Effect','TP','Damage Correct','Skill Chain','Status Correct'
);

@synergytech = (
	'Feed fewell',
	'Thwack furnace',
	'Operate pressure handle',
	'Operate safety lever',
	'Repair furnace',
	'Recycle strewn fewell'
);

}

##########################
# data.cgi  保存形式：Tab Separated Format
#  0	$no				登録番号
#  1	$name			名前
#  2	$pass			パスワード（平文）
#  3	$anon			表示/非表示
#  4	$race			種族、性別　→　参考　setup.cgi @racelist
#  5	$relm			所属国
#  6	$mainjob		メインジョブ		ジョブはlev[]のインデックス
#  7	$supportjob		サポートジョブ		ジョブはlev[]のインデックス
#  8	$prof			プロフィール公開
#  9	$handle			ハンドル
# 10	$polhn			POL内ハンドル
# 11	$mail			メールアドレス
# 12	$home			ホームページURL
# 13	$comment2		プロフィール用コメント　（プロフィール参照時用）
# 14	$point			個人戦績
# 15	$class			称号
# 16	$timenow		更新日付
# 17	$comment		コメント　（一覧表示用）
# 18	$mrank			ミッションランク
# 19	$etc[0]			フェイスタイプ　→　参考　setup.cgi @facetypelist
# 20	$etc[1]			合成スキルランク　 Commna Separated Format
#						　→　参考　$prod[0]〜$prod[]、setup.cgi @rankilist
# 20	$etc[2]			戦闘スキル（武器、防御、魔法） Commna Separated Format
#						　→　参考　setup.cgi @skilllist　格闘〜青魔法
# 22	$prod[0]		鍛冶スキル
# 23	$prod[1]		裁縫スキル
# 24	$prod[2]		錬金スキル
# 25	$prod[3]		木工スキル
# 26	$prod[4]		彫金スキル
# 27	$prod[5]		革細工スキル
# 28	$prod[6]		骨細工スキル
# 29	$prod[7]		釣りスキル
# 30	$prod[8]		調理スキル
# 31	$prod[9]		練成スキル　Comma Separated Format
# 						　→　練成スキル,各練成テクニックレベル
# 32	$prod[10]		装備　Commna Separrated Format 中身はequip.pl
# 33	$prod[11]		カスタムフィールド　Commna Separrated Format
# 34	$prod[12]		メリポ（表示用）
# 35	$prod[13]		メリポ
# 36	$prod[14]		プロフィール画像
# 37	$prod[15]		ミッション進行 Commna Separeted Format
#						　→　参考　@mlist：プロマシア〜カンパニエ叙勲
#						　　　$mlist[16]はアサルト　@aslist参考　ただしナイズルは$mlist[17]
# 38	$lev[0]			戦のレベル
# 39	$lev[1]			モのレベル
# 40	$lev[2]			白のレベル
# 41	$lev[3]			黒のレベル
# 42	$lev[4]			赤のレベル
# 43	$lev[5]			シのレベル
# 44	$lev[6]			ナのレベル
# 45	$lev[7]			暗のレベル
# 46	$lev[8]			狩のレベル
# 47	$lev[9]			吟のレベル
# 48	$lev[10]		獣のレベル
# 49	$lev[11]		竜のレベル
# 50	$lev[12]		召のレベル
# 51	$lev[13]		忍のレベル
# 52	$lev[14]		侍のレベル
# 53	$lev[15]		青のレベル
# 54	$lev[16]		コのレベル
# 55	$lev[17]		かのレベル
# 56	$lev[18]		踊のレベル
# 57	$lev[19]		学のレベル

#########################
# triggerlist.cgi  保存形式  Tab Separeted Format
#  0	$no				登録番号
#  1	$trtype			トリガー種別
#  2	$admmem			トリガー管理者指定
#							data.cgiの$nameをCommma Separeted Formatでリスト化したもの
#  3	$entmem			トリガーコンテンツ参加者
#							データ形式は$admmemと同じ
#  4	@triggers		保持トリガー情報
#							$nameと保持しているトリガー情報を,で接続したもの必要な人数分繰り返す


#日本語らいぶらり
require './jcode.pl';

#画像らいぶらり
require('image_getsize.pl');

#セッションらいぶらり
require './session.pl';


$color[0]=$color0;
$color[1]=$color1;
$color[2]=$color2;
$color[3]=$color3;
$color[4]=$color4;
$color[5]=$color5;
$color[6]=$color6;
$color[7]=$color7;
$color[8]=$color8;
$color[9]=$color9;
$color[10]=$color10;

#スキルランク
# from FFXI skill capture(http://www.ausystem.org/~aushacho/gbox/ff/skill.html)

#skilllist*** ='格短片両片両両両片両片両弓射投ガ回盾受神回強弱精暗歌弦管忍召青');
#skilllist*** ='闘剣剣剣斧斧鎌槍刀刀棍棍術撃擲ド避盾流聖復化体霊黒唱楽楽術喚魔');
$skillrank[0] ='D B-B B+A A+B+B-_ _ B-B D D D _ C C+C-_ _ _ _ _ _ _ _ _ _ _ _ '; #戦
$skillrank[1] ='A+_ _ _ _ _ _ _ _ _ C+B _ _ E A B+_ E _ _ _ _ _ _ _ _ _ _ _ _ '; #モ
$skillrank[2] ='_ _ _ _ _ _ _ _ _ _ B+C+_ _ E _ E D _ A A+C+C _ _ _ _ _ _ _ _ '; #白
$skillrank[3] ='_ D _ _ _ _ E _ _ _ C+B-_ _ D _ E _ _ _ _ E C+A+A _ _ _ _ _ _ '; #黒
$skillrank[4] ='_ B B _ _ _ _ _ _ _ D _ D _ F _ D F E E C-B+A+C+E _ _ _ _ _ _ '; #赤
$skillrank[5] ='E A D _ _ _ _ _ _ _ E _ C-C+D _ A+F A _ _ _ _ _ _ _ _ _ _ _ _ '; #シ
$skillrank[6] ='_ C-A+B _ _ _ E _ _ A A _ _ _ _ C A+C B+C D _ _ _ _ _ _ _ _ _ '; #ナ
$skillrank[7] ='_ C B-A B-B-A+_ _ _ C-_ _ E _ _ C _ E _ _ _ C B+A _ _ _ _ _ _ '; #暗
$skillrank[8] ='_ B-D _ B-_ _ _ _ _ E _ A A C-_ E _ _ _ _ _ _ _ _ _ _ _ _ _ _ '; #狩
$skillrank[9] ='_ B-C-_ _ _ _ _ _ _ D C+_ _ E _ D _ E _ _ _ _ _ _ C C C _ _ _ '; #吟
$skillrank[10]='_ C+E _ A _ B-_ _ _ D _ _ _ _ _ C E C-_ _ _ _ _ _ _ _ _ _ _ _ '; #獣
$skillrank[11]='_ E C-_ _ _ _ A+_ _ E B-_ _ _ _ C-_ C-_ _ _ _ _ _ _ _ _ _ _ _ '; #竜
$skillrank[12]='_ E _ _ _ _ _ _ _ _ C+B _ _ _ _ E _ _ _ _ _ _ _ _ _ _ _ _ A _ '; #召
$skillrank[13]='E C+C _ _ _ _ _ A C-E _ E C A _ A _ A _ _ _ _ _ _ _ _ _ A _ _ '; #忍
$skillrank[14]='_ E C+_ _ _ _ B-_ A+E _ C+_ C+_ B+_ A _ _ _ _ _ _ _ _ _ _ _ _ '; #侍
$skillrank[15]='_ _ A _ _ _ _ _ _ _ B-_ _ _ _ _ C-_ D _ _ _ _ _ _ _ _ _ _ _ A+'; #青
$skillrank[16]='_ B+B-_ _ _ _ _ _ _ _ _ _ B C+_ D _ A _ _ _ _ _ _ _ _ _ _ _ _ '; #コ
$skillrank[17]='B+C-_ _ _ _ _ _ _ _ D _ _ _ C+B B _ D _ _ _ _ _ _ _ _ _ _ _ _ '; #か
$skillrank[18]='D B+D _ _ _ _ _ _ _ _ _ _ _ C+_ B+_ B _ _ _ _ _ _ _ _ _ _ _ _ '; #踊
$skillrank[19]='_ D _ _ _ _ _ _ _ _ C+C+_ _ D _ E _ E D D D D D D _ _ _ _ _ _ '; #学



#keyword read

	if(!open(IN,"$keyfile")){$key_avail=0;}
	@keyword=<IN>;
	close IN;

#
# MAIN ROUTINEs
#

$agent=$ENV{'HTTP_USER_AGENT'};
&form_read;
&ip_ban;
&get_cookie;
if($session_id eq "" && $c_session_id ne ""){$session_id=$c_session_id};

#print "function : $function, mode = $mode, limit = $limit, table[limit] = $table[$limit]<br>\n";

if($ktai eq "off"){
	$brawser="PC";
	$method="post";
}
else {
	if( $agent =~ /J-PHONE/){
		$ktai="on";
		@user_agent = split(/\//,$ENV{'HTTP_USER_AGENT'});
		if ($user_agent[1] >= 3) {
		  $method="post";
		}
		else {
		  $method="get";
		}
	}
	elsif($agent =~ /DoCoMo/ || $agent =~ /Vodafone/ || $agent =~ /UP.Browser/ || $agent =~ /SoftBank/){
		$ktai="on";
		$method="post";
	}
	else {
		$brawser="PC";
#	$method="post enctype='multipart/form-data' ";
		$method="post";
	}
}



if($function eq "rss"){
	&rss_write;
	&header;
	&list;
}

if($ktai eq "on"){&keitai;}

if($function eq $button[0]){ #PROFED
	&set_cookie;
	&login;
}
elsif($function eq 'meritpoint' && $mpoint == 1){
	&set_cookie;
	require("mpoint.pl");
	&main_mpoint;
}
elsif($function eq 'customfield'){
	&set_cookie;
	&custom_field;
}
elsif($function eq 'regist_word' && $key_avail == 1){
	&set_cookie;
	&regist_word;
}

elsif($function eq 'send' && $mes_avail == 1){
	&set_cookie;
	&send_message;
}
elsif($function eq 'check' && $mes_avail == 1){
	&set_cookie;
	&check_message;
}

elsif($function eq "new"){ #NEWREG
	&set_cookie;
	&header;
	&new_regist;
}
elsif($function eq $button[1]){ #DWRITE
	&set_cookie;
	&write_diary;
}
elsif($function eq "editdiary"){ #DMODIF
	&set_cookie;
	&edit_diary;
}
elsif($function eq "resdiary"){ #RESDIA
	&res_diary;
}
elsif($function eq "faq"){
	&header;
	&faq;
}
elsif($function eq "prof" || $function eq "profdetail" || $function eq "profdetail2"){
	&c_check;
	$topic="Profile:$name -$topic";
	&header;
	if($c_match){	&prof;}
	else {
	print "ログイン状態でないので、閲覧することはできません。";
	}
}
elsif($function eq "master"){
	&header;
	require("master.pl");
	&master;
}
else {
	&c_check;
	&header;
	&list;
}
&footer;


#
# SUB ROUTINE
#

# regist_word：単語登録

sub regist_word{


	if(!open(IN,"$datafile")){&header; &error_message('datafile error/system','data file access failed.');}
	@all=<IN>;
	close IN;

	$match="";
	foreach $i(@all){
			 ($r_no,$r_name,$r_pass,$r_dummy)=split(/\t/,$i);
		if($r_name eq $name && $pass eq $r_pass){
			$match=$i;
		}
	}
	if($match eq ""){&header; &error_message('id/pass error','access failed.');}

	if($mode ne "regist"){
		&header;
		print <<"EOM";
<table width=100%><TR bgcolor=$indexcolor><TD>キーワード追加</TD></TR></table>
<HR>
ワード追加(確認なしで激しく追加)<BR>
<form method=post action=$script>
<input type=hidden name=name value='$name'>
<input type=hidden name=pass value='$pass'>
<input type=hidden name=function value=regist_word>
<input type=hidden name=mode value=regist>
キーワード<input type=text name=title><BR>
ふりがな<input type=text name=comment><BR>
説明<textarea name=body cols=80 rows=5></textarea><BR>
<input type=submit value='regist'>
</form>

<a href="$script?$salt">Go Top</a><BR>
進行状況<BR>
<BR>
新規日記および日記修正時にキーワードに自動リンク<BR>
<BR>
キーワードページにはヒストリが追加されます。<BR>
レスには非対応というかわざと対応してない。<BR>
<HR>
<pre>
今後の予\定
キーワード内容追加
ヒストリ件数制御
</pre>
<HR>キーワードリスト<BR>
EOM

		foreach $i(@keyword){
			($km,$kno)=split(/\t/,$i);
			print "<a href='$keydir$kno.html' target='_blank'>$km</a><BR>";
		}
	
	
	}
	else {
	
		#ワード登録
	
		if($title eq ""){&header; &error_message('no dat 385','data file access failed.');}
		
		$maxno=$#keyword+2;
		
		push(@keyword,"$title\t$maxno\t\n");
		if(!open(OUT,">$keyfile")){
			&header;
			&error_message('datafile error/system','data file access failed.');
		}
		print OUT @keyword;
		close OUT;
		
		$htmlfile="$keydir$maxno.html";
		
		if(!open(OUT,">$htmlfile")){
			&header;
			&error_message('datafile error/system','data file access failed.');
		}
		
		print OUT << "EOM";
<HTML><HEAD><TITLE>$guild_name Keyword-[ $title ]</TITLE></HEAD>
<table width=100%><TR bgcolor=$indexcolor><TD>$guild_name Keyword</TD></TR></table>
<!--Title-->
$title ($comment) <BR>
<!--TitleEnd-->
<HR>
<!--Body-->
$body
<!--BodyEnd-->
<BR>
<!--Comment-->
<!--CommentEnd-->
<!--Added by $name ($timenow)-->
<BR>
・このキーワードが使われた日記<BR>
<!--History-->
<!--End-->
<HR>
<div align=right>Script by <a href='http://www.senobeya.com' target='_blank'>senobeya.com</a></div>
<div align=right>FF11 Member Registration System $version</div>
</BODY>
</HTML>
EOM
		close OUT;
		chmod 0666,$htmlfile;
		
		
		&reload_header;
		print "<table width=100%><TR bgcolor=$indexcolor><TD>キーワード登録完了</TD></TR></table>";
		print "新規キーワード[ $title ]を追加しました。自動的にトップページに戻ります<BR>";
	
	}

}
# END　regist_word：単語登録

# login：登録ユーザーログイン

sub login {

	if(!open(IN,"$datafile")){&header; &error_message('datafile error/system','data file access failed.');}
	@all=<IN>;
	close IN;

	$match="";
	foreach $i(@all){
			($r_no,$r_name,$r_pass,$r_dummy)=split(/\t/,$i);
		if($r_name eq $name && $pass eq $r_pass){
			$match=$i;
		}
	}
	if($match eq ""){
		&header;
		&error_message('id/pass error','access failed.');
	}

	if($session_check){
		$session_id=&gmr_ses::new_session($name);
	}

	if ($mode eq "login"){
		&set_cookie;
		&header;
		&login_enter;
	}
	elsif($mode eq "menu"){
		&set_cookie;
		&header;
		&login_menu;
	}
	elsif($mode eq "modify"){
		if( ( $all eq 'triggernew' ) or ( $all eq 'triggeredit' ) ){
			require("trigger.pl");
			&login_modify_trigger;
		}
		elsif( $all eq 'triggerdel' ){
			require("trigger.pl");
			&login_modify_trigger_del;
		}
		else{
			&login_modify;
		}
	}
	else {
		&set_cookie;
		&header;
		&login_enter;
	}


}
# END　login：登録ユーザーログイン


# new_regist：メンバー新規登録

sub new_regist{

	if(($gpass ne $reg_pass && $reg_mode==0)){
		&error_message('illegal login','password is not correct.');
	}

	if($mode eq "regist"){
		&new_regist_regist;
	}
	else {
		&new_regist_normal;
	}

}

# END　new_regist：メンバー新規登録


# list：リスト表示

sub list{
	
	if(!open(IN,"$datafile")){
		&error_message('datafile error578','data file access failed.');
	}
	@all=<IN>;
	close IN;

	if($sort ne "" && $limit != 8){
		&sort_table;
	}

	print "<center><table width=600 class=tbl>";

	$vmode="Mode: $modelist[$limit]";

	if($limit==1){
		if($level==1){
			$vmode="$vmode / Level";
		}
		else {
			$vmode="$vmode / Job";
		}
	}

	print "<tr bgcolor=$titlebg><td><b class=title>$guild_name Member List</b></td><th>$vmode</th>";
	
	&make_salt;
	
	#メニュー表示
	if($pulldown_menu == 1){
		print "<form method=post action=$script>";
		print "<tr><td colspan=3>$menux[3]<a href='$homepage'>$menux[1]</a> / ";
		print "<a href=$script?function=faq>$menux[2]</a> / ";
		print "<form method=post action=$script>";
		print "<select name=limit>";
		for($j=0;$j<$#menu+1;$j++){
			if($menu[$j] ne ""){
				if($tablelimit[$j] == $limit){
					print "<option selected value=$tablelimit[$j]>$menu[$j]</option>";
				}
				else {
					print "<option value=$tablelimit[$j]>$menu[$j]</option>";
				}
			}
		}
		print "</select>\n<input type=submit value='Go'>";
		if($bbspage){
			print " / <a href='$bbspage'>$menux[0]</a>";
		}
		print "</td></tr></form>";
		
	}
	else {
		print "<tr><td colspan=3>$menux[3]<a href='$homepage'>$menux[1]</a> / ";
		print "<a href=$script?function=faq>$menux[2]</a> / ";
		for($j=0;$j<$#menu+1;$j++){
			if($tablelevel[$j] eq ""){
				$tablelevel[$j]=$level;
			}
			print "<a href=$script?limit=$tablelimit[$j]&level=$tablelevel[$j]&$salt>$menu[$j]</a> ";
		}
		if($bbspage){
			print " / <a href='$bbspage'>$menux[0]</a>";
		}
		print "</td></tr>";
	}
	#メニュー表示おわり


	print <<"EOM";
<tr><td><form method=post enctype='multipart/form-data' action=$script><input type=hidden name=function value=login>
Login :
name<input type=text name=name size=14 value=$c_name>
pass<input type=password name=pass size=8 value=$c_pass><input type=submit name=function value='$button[0]'>
EOM
	if(!$diaryallow){
		print "<input type=submit name=function value='$button[1]'>";
	}
	if($key_avail){
		print "<input type=submit name=function value='regist_word'>";
	}
	if($mpoint ==1){
		print "<input type=submit name=function value=\"meritpoint\">";
	}


	if($mes_avail){
	#新規メッセージチェック
		print "<BR>";
		if (-e "$mesdir$c_name.cgi") {
			if(!open(IN,"$mesdir$c_name.cgi")){&error_message('datafile error490','data file access failed.');}
			@mes=<IN>;
			close IN;
			$k=0;
			for $i(@mes){
				($j,$dummy)=split(/\t/,$i);
				$k=$k+$j;
			}
			if($k>0){
				print "<font color=red><B>$k 件の新しいメッセージがあります。</B></font>";
			}
		}
		print "Message :<input type=submit name=function value='check'>";
	}
	print <<"EOM";
</td></form>
<td align=right>
<form method=post enctype='multipart/form-data'  action=$script>
<input type=hidden name=function value=new>
EOM
	
	if($reg_mode==0){
		print "<input type=password name=gpass>";
	}
	print "<input type=submit value='$button[2]'>";
	print "</td></form></tr></table></center><br>";
	
	
	if(!open(IN,"message.tbl")){
		$osirase="no"
	}
	else {
		$osirase=<IN>;
		$osirase =~ s/\n//g;
		$osirase =~ s/\r//g;
		$osirasebody=<IN>;
		close IN;
		if($osirase ne "no" && $osirase ne ""){
			print "<center><table border class=tbl><TR bgcolor=$indexcolor><TH>$osirase</TH></TR><TR bgcolor=$otherdata><TD>$osirasebody</TD></TR></table></center>";
		}
	}
	
	$members=$#all+1;
	
	if($language ne "English"){
		print "<table width=100% border=0><tr>\n<td>現在の登録メンバー数:$members</td>";
	}
	else {
		print "<table width=100% border=0><tr>\n<td>Now Registed member:$members people</td>";
	}
	print "<td align=right><table cellpadding=0 cellspacing=0 border=0>";
	if($level==1){
		print "<tr>";
		for($i=0;$i<$#color+1;$i++){
			$ls=$i*10;
			$le=$i*10+9;
			print "<td bgcolor=$color[$i] nowrap>&nbsp;Lv$ls-$le&nbsp;</td><td>&nbsp;&nbsp;</td>";
		}
		print "</tr>";
	}
	else {
		print "<tr><td bgcolor=$maincolor nowrap>&nbsp;main job&nbsp;</td><td>&nbsp;&nbsp;</td><td bgcolor=$supportcolor nowrap>&nbsp;support job&nbsp;</td></tr>";
	}
	print "</table></td></tr></table>";
	
	$call=$tablelist[$limit];
	
	if( ( $call eq 'table_weapons' ) or ( $call eq 'table_armor1' ) or ( $call eq 'table_armor2' ) or ( $call eq 'table_armor3' ) or ( $call eq 'table_armor4' )  or ( $call eq 'table_armor5' ) ){
		require( 'equip.pl' );
	}
	else {
		require('table.pl');
	}
#	print "calling $call<br>\n";
	if($c_match){
		&$call;
	}
	else { 
		print 'ログインができていない状態です。まずログインしてください。';
	}
	
	
	print <<"EOM";
<div align=right>
<form method=post enctype='multipart/form-data'  action=$script>
<input type=hidden name=function value=master>
<input type=password name=gpass>
<input type=submit value='$button[3]'></form>
</div>
EOM
	
}
# END list：リスト表示


# faq:使い方表示

sub faq {
	if($reg_mode == 0){
		$message="あらかじめ設定されているマスターパスワードを下のフォームに入力し、";
	}
	
	print <<"EOM";
<table width=100%><TR bgcolor=$indexcolor><TD>使い方</TD></TR></table>
<big><B>メンバーの新規登録</B></big><BR>
　メンバーの新規登録には$message新規登録ボタンを押します。<BR>
　新規登録モードに入りますので、次に新規メンバーの名前、パスワード他のデータを入れる画面が出てくるので、
　必要事項を入力してください。<BR>
　ここで入れるパスワードは、そのメンバー専用のパスワードとなります。<BR>
<BR>
<big><B>メンバーのデータ修正</B></big><BR>
　メンバーは登録したnameとパスワードを入れることでそのデータを随時修正することができます。<BR>
　必要なデータを入力して、修正ボタンを押してください。<BR>
<BR>
<big><B>メンバーの削除</B></big><BR>
　マスターモードを用いて行います。<BR>
<BR>
<big><B>閲覧方法</B></big><BR>
タイトル右上に表\示モードが出ています。<BR>
<BR>
表\のモード<BR>
Simple：表\示内容を制限したもので表\示します。<BR>
Job /Job：ジョブ情報の表\示。メイン・サポートのジョブの背景色が変わります<BR>
Job /Level：ジョブ情報の表\示。レベルによって色分けされた背景色となります<BR>
Production：生産スキルに関する情報を表\示します<BR>
Status：その他さまざまな情報を表\示します<BR>
Full:一覧性の高い表\で登録内容を表\示します。<BR>
Full2:プロフィールを除く登録内容を表\示します。<BR>
Profile:プロフィールと日記の閲覧モードです<BR>

<BR>
<big><B>プロフィールと日記</B></big><BR>
名前をクリックするとプロフィールを閲覧することができます。日記アイコン(<img src="$diarygif">)が出ている場合は、その人の日記も閲覧できます。<BR>
UPアイコン(<img src="$upgif">)が出ている場合は２４時間以内に日記が更新された事を示します。<BR>
EOM
	if($diaryres ==1){
		print "日記の下にコメントをつけることが可能\になっています。<BR>";
	}
	
	print "<BR><a href=$script?$salt>[登録システム入り口]</a><a href=$script?function=faq>[使い方]</a><a href='$homepage'>[ホームページへ戻る]</a><BR>";
	
}
# END　faq:使い方表示


# form_read：汎用サブルーチン。使いまわし＆パクり。そしてだんだんと汎用でなくなってくるという様子

sub form_read {
	
	@upfiles = ();
	
	# METHODがPOSTの時の処理
	if ($ENV{'REQUEST_METHOD'} eq "POST" && $ENV{'CONTENT_TYPE'} =~ m#^multipart/form-data#) {
		
		$buffer1 = "";
		$qs = "";
		$buffer2 = $ENV{'CONTENT_LENGTH'};
		binmode(STDIN);
		while ($buffer2) {
			$buffer2 -= sysread(STDIN, $buffer1, $buffer2);
			$qs .= $buffer1;
		}
		$delimita = $1 if $qs =~ /^([^\r\n]*)/;
		foreach (split(/$delimita/,$qs)){
			if ($_ =~ / name=\"(\w*)\"\r\n/){
				$key = $1;
			}
			elsif ($_ =~ / name=\"(\w*)\"; filename=\"(.+)\"\r\n/i){
				($key,$upfile)=($1,$2);
				$upct = $1 if $_ =~ /Content-Type: ?(.*)\r\n/i;
			}
			else{
				next;
			}
			$value = (split(/\r\n\r\n/,$_,2))[1];
			$value =~ s/[\r\n]+$//g; 
#			$value =~ s/\r\n$//g;
		
			if ($key =~ /^upfile[1-9]*/ && $upfile ne ""){
				push(@upfiles, $upfile);
				$upfile{$upfile} = $value;
				$upct{$upfile} = lc($upct);
				if($key eq "upfile"){
					$in{'upfile'}=$value;
					$in{'upfilename'}=$upfile;
					$in{'upct'}=lc($upct);
				}
			}
			else {
				&jcode::convert(\$value,'sjis');
				# 入力値の無害化
				$value =~ s/</&lt;/g;
				$value =~ s/>/&gt;/g;
				$value =~ s/\t//g;
				$value =~ s/\r\n/<BR>/g;
				$value =~ s/\n/<BR>/g;
				$value =~ s/\r/<BR>/g;
#				$value =~ s/\,//g;
#				$value =~ s/'/’/g;
				$FORM{$key} = $value;
			}
		}
	}
	 else {
		
		# METHODがGETの場合の処理
		
		if($ENV{'REQUEST_METHOD'} eq 'GET' || $ENV{'REQUEST_METHOD'} eq 'HEAD') {
			$buffer = $ENV{'QUERY_STRING'};
		}
		elsif ($ENV{'REQUEST_METHOD'} eq 'POST') {
			read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
		}
		
		@pairs = split(/&/,$buffer);
		foreach $pair (@pairs) {
			($name, $value) = split(/=/, $pair);
			$value =~ tr/+/ /;
			$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
			&jcode'convert(*value,'sjis');
		
			# 入力値の無害化
			$value =~ s/</&lt;/g;
			$value =~ s/>/&gt;/g;
			$value =~ s/\n//g;
			$value =~ s/\t//g;
			$value =~ s/\r/<BR>/g;
#			$value =~ s/\,//g;
			$FORM{$name} = $value;
		}
	}
	$no=$FORM{'no'};
	$trino=$FORM{'trino'};
	$name=$FORM{'name'};
	$name2=$FORM{'name2'};
	$pass=$FORM{'pass'};
	$gpass=$FORM{'gpass'};
	$function=$FORM{'function'};
	$mode=$FORM{'mode'};
	$all=$FORM{'all'};
	
	$anon=$FORM{'anon'};
	$race=$FORM{'race'};
	$relm=$FORM{'relm'};
	$mainjob=$FORM{'mainjob'};
	$supportjob=$FORM{'supportjob'};
	$lev[0]=$FORM{'lev0'};
	$lev[1]=$FORM{'lev1'};
	$lev[2]=$FORM{'lev2'};
	$lev[3]=$FORM{'lev3'};
	$lev[4]=$FORM{'lev4'};
	$lev[5]=$FORM{'lev5'};
	$lev[6]=$FORM{'lev6'};
	$lev[7]=$FORM{'lev7'};
	$lev[8]=$FORM{'lev8'};
	$lev[9]=$FORM{'lev9'};
	$lev[10]=$FORM{'lev10'};
	$lev[11]=$FORM{'lev11'};
	$lev[12]=$FORM{'lev12'};
	$lev[13]=$FORM{'lev13'};
	$lev[14]=$FORM{'lev14'};
	$lev[15]=$FORM{'lev15'};
	
	$lev[15]=~ s/\n//g; #ジョブ追加対策（応急措置）
	$lev[16]=~ s/\n//g; #ジョブ追加対策（応急措置）
	
	$lev[16]=$FORM{'lev16'};
	$lev[17]=$FORM{'lev17'};
	$lev[18]=$FORM{'lev18'};
	$lev[19]=$FORM{'lev19'};
	$prod[0]="$FORM{'prod0'}";
	$prod[1]="$FORM{'prod1'}";
	$prod[2]="$FORM{'prod2'}";
	$prod[3]="$FORM{'prod3'}";
	$prod[4]="$FORM{'prod4'}";
	$prod[5]="$FORM{'prod5'}";
	$prod[6]="$FORM{'prod6'}";
	$prod[7]="$FORM{'prod7'}";
	$prod[8]="$FORM{'prod8'}";
#	$prod[9]="$FORM{'prod9'}";
	$prod[14]=$FORM{'profimage'}; #プロフ画像に転用
	$prod[11]="$FORM{'prod11'}"; #カスタムフィールドデータ
	$prod[12]="$FORM{'prod12'}"; #メリポデータ(表示用)
	$prod[13]="$FORM{'prod13'}"; #生メリポデータ
	$prod[12] =~ s/&lt;/</g;
	$prod[12] =~ s/&gt;/>/g;
	
	for ($j=1;$j<$#custom_field+1;$j++){
		$custom[$j]=$FORM{"custom$j"};
		$custom[$j] =~ s/,/&sbquo;/g;
	}
	
	# prod[9]は練成、prod[11]はカスタムフィールド、prod[12]とprod[13]はメリポに使用。
	
	$prod[9] = $FORM{'syn'};
	for ($j=0; $j<=$#synergytech; $j++){
		$prod[9] .= "," . $FORM{"synt$j"};
	}
	
	#&conv_zenkaku;
	
	$ktai=$FORM{'ktai'};
	
	for ($j=0;$j<10;$j++){
		$prod_r[$j]=$FORM{"prod_r$j"};
	}
	$etc[1]=join(",", @prod_r);
	
	for ($j=0;$j<$#skilllist+1;$j++){
		$skill[$j]=$FORM{"skill$j"};
	}
	$etc2skill = join(",", @skill);
#	#習得WS追加対応
	$etc2ws = "";
	for ($j=0;$j<=$#mwslist;$j++){
		$etc2ws .= $FORM{"ws$j"};
	}
#	$etc[2]=join( '/', join(",", @skill), $ws );
	
	# 取得装備対応
	if( ( ($all eq 'equip') and ($mode eq "modify") ) or ($function eq "master") ){
		require("equip.pl");
		&def_equip_list();
		# temp変数ばっかで読みにくい・・・
		$prod[10] = "";
		# 0〜3　は武器リスト
		for( $i=0; $i<=3; $i++ ){
			@templist = @{$equipdeflist[$i]};
			$tempstr = "";
			for( $j=0; $j<=$#templist; $j++ ){
				$fstr = $equiplistname[$i] . '_' . $j;
				$tempstr .= $FORM{$fstr};
			}
			$prod[10] .= "$tempstr,";
		}
		# 4〜12は防具リスト
		for( $i=4; $i<=12; $i++ ){
			@templist = @{$equipdeflist[$i]};
			$tempstr = "";
			for( $j=0; $j<$#templist; $j++ ){
				$tempstr2="";
				@templist2 = split( /\,/, $templist[$j+1]);
				for( $k=0; $k<=$#templist2; $k++ ){
					$fstr = $equiplistname[$i] . '_' . $j . '_' . $k;
					$tempstr2 .= $FORM{$fstr};
				}
				$tempstr .= "$tempstr2/";
			}
			$prod[10] .= "$tempstr,";
		}
	}
	if( $all eq 'triggeredit') {
		require("trigger.pl");
		&def_trigger_list();
		if( !open( IN, "$triggerfile" ) ){
			&header;
			&error_message( 'datafie error/system', 'trigger file access failed');
		}
		my ( $t_no, $t_type, $t_adm, $t_ent, @t_tris, @t_adm_list, @t_ent_list, @trigger );
		foreach my $r ( <IN> ){
			if( $r =~ /^#/ ){
				next;
			}
			($t_no, $t_type, $t_adm, $t_ent, @t_tris) = split( /\t/,$r );
			if( $trino == $t_no ){
				$t_tri = $r;
			}
		}
		close IN;
		($t_no, $t_type, $t_adm, $t_ent, @t_tris) = split( /\t/, $t_tri );
		@entlist = split( /\,/, $t_ent);
		@triggerset = @{$triggerdeflist[$t_type]};
		$listlength1 = $#triggerset;
		$t_tri = "";
		foreach $i ( sort @entlist ){
			$tempstr1 = "$i,";
			for( $j = 0; $j<$#triggerset; $j++ ){
				$tempstr2 = "",
				@triggername = split( /\,/, $triggerset[0] );
				@triggerlist = split( /\,/, $triggerset[$j+1] );
				$listlength2[$j] = $#triggerlist+1;
				for( $k = 0; $k < $listlength2[$j]; $k++ ){
					$fstr = 'tri_' . $i . '_'. $j . '_' . $k;
					$tempstr2 .= sprintf( "%1d", $FORM{$fstr} );
				}
				$tempstr1 .= $tempstr2 . "/";
			}
			chop( $tempstr1 );
			$t_tri = $t_tri . $tempstr1 ."\t";
		}
		chop( $t_tri );
	}
	if( $all eq 'triggernew') {
		my @namelist;
		@namelist = split( /\,/ ,$FORM{'namelist'} );
		$type = $FORM{'type'};
		foreach $i ( sort @namelist ){
			$str = 'cond_' . $i;
			$status = $FORM{ $str };
			if( $status == 2 ){
				push( @admlist, $i );
				push( @entlist, $i );
			}
			elsif( $status == 1){
				push( @entlist, $i );
			}
		}
	}
	if($ktai eq "on" && $function ne "mission"){
		$prod[15]="$FORM{'prod15'}";
	}
	else {
		for ($j=0;$j<$#mlist+2;$j++){
		    $mission[$j]=$FORM{"mission$j"};
		}
		
		$FORM{"assault0"}=sprintf("%x",$FORM{"assault0"});
		
		for($j=0;$j<$#aslist+1;$j++){
			$mission[16]=$mission[16].$FORM{"assault$j"};
		}
		$prod[15]=join(",", @mission); #進行度フラグに転用
	}
	
	$ietc=$FORM{'ietc'};
	$etc1=$FORM{'etc1'};
	$mrank=$FORM{'mrank'};
	$prof=$FORM{'prof'};
	$handle=$FORM{'handle'};
	$polhn=$FORM{'polhn'};
	$mail=$FORM{'mail'};
	$home=$FORM{'home'};
	$comment2=$FORM{'comment2'};
	$point=$FORM{'point'};
	$class=$FORM{'class'};
	$comment=$FORM{'comment'};
	$sort=$FORM{'sort'};
	$level=$FORM{'level'};
	$limit=$FORM{'limit'};
	$body=$FORM{'body'};
	$body2=$FORM{'body2'};
	$title=$FORM{'title'};
	$page=$FORM{'page'};
	$etc[0]=$FORM{'ftype'};
	$imgdel=$FORM{'imgdel'};
	$session_id=$FORM{'sesid'};
	if($page eq ""){$page=1;}
	if($level eq "" ){$level=$level_mode;}
	if($limit eq ""){$limit=$limit_table;}
	
	#ソート条件未指定時標準ソート条件設定
	if( $default_sort != 0 && $limit==13 && $sort eq "" && $function eq ""){
		$mode=$default_mode;
		$sort=$default_sort;
		$function=$default_function;
		$no=$default_no;
	}
	if( $default_sort==16 && $sort eq "" && $function eq ""){
		$mode=$default_mode;
		$sort=$default_sort;
	}
	
	$ln=$FORM{'ln'};
	if($ln ne ""){$language=$ln;}
	
	# 現在日時を取得し成形
	($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
	@wday_array = ('日','月','火','水','木','金','土');
	$mon++;
	$year=$year-100;
	
	if($year<10){
		$year="0$year";
	}
	if($mon<10){
		$mon="0$mon";
	}
	if($mday<10){
		$mday="0$mday";
	}
	if($hour<10){
		$hour="0$hour";
	}
	if($min<10){
		$min="0$min";
	}
	
	$rsstime="20$year-$mon-$mday"."T$hour:$min:00+09:00";
	$timenow="$year/$mon/$mday/$hour$min";
	$today = "$mon/$mday";
	$today2= "$year/$mon/$mday $hour:$min";
	$rh = $ENV{'REMOTE_HOST'};
	$addr = $ENV{'REMOTE_ADDR'};
}

#################
#-- 以下スキル表示機能で追加した部分 

# ============================================================================= #
# スキルキャップ計算
# ============================================================================= #
# スキルキャップを計算する
# 引数0 ジョブ
# 引数1 スキル
# 引数2 レベル
# $skill_rank <- スキルランク
# $skill_cap   <- スキルキャップ
# add by Pensil
# 2003.03.02 Modified by Hally 

sub expr_skillcap {
	
	# ランクをチェック
	$skill_rank   = substr( $skillrank[$_[0]], ($_[1]) * 2, 1 );
	$skill_detail = substr( $skillrank[$_[0]], ($_[1]) * 2, 2 );
	
	if ($skill_rank eq "_") {
		$skill_cap = 0;
	}
	else {
		# -50
		if ($_[2] < 51) {
			if ($skill_rank eq "A") { $skill_cap = ($_[2] - 1) * 3.0 + 6; }
			if ($skill_rank eq "B") { $skill_cap = ($_[2] - 1) * 2.9 + 5; }
			if ($skill_rank eq "C") { $skill_cap = ($_[2] - 1) * 2.8 + 5; }
			if ($skill_rank eq "D") { $skill_cap = ($_[2] - 1) * 2.7 + 4; }
			if ($skill_rank eq "E") { $skill_cap = ($_[2] - 1) * 2.5 + 4; }
			if ($skill_rank eq "F") { $skill_cap = ($_[2] - 1) * 2.3 + 4; }
		# -60
		}
		elsif ($_[2] < 61) {
			if ($skill_rank eq "A") { $skill_cap = ($_[2] - 50) * 5.0 + 153; }
			if ($skill_rank eq "B") { $skill_cap = ($_[2] - 50) * 4.9 + 147; }
			if ($skill_rank eq "C") { $skill_cap = ($_[2] - 50) * 4.8 + 142; }
			if ($skill_rank eq "D") { $skill_cap = ($_[2] - 50) * 4.7 + 136; }
			if ($skill_rank eq "E") { $skill_cap = ($_[2] - 50) * 4.5 + 126; }
			if ($skill_rank eq "F") { $skill_cap = ($_[2] - 50) * 4.3 + 116; }
		# -70
		}
		elsif ($_[2] < 71) {
			if ($skill_detail eq "A+") { $skill_cap = ($_[2] - 60) * 4.85 + 203; }
			if ($skill_detail eq "A ") { $skill_cap = ($_[2] - 60) * 4.10 + 203; }
			if ($skill_detail eq "B+") { $skill_cap = ($_[2] - 60) * 3.70 + 196; }
			if ($skill_detail eq "B ") { $skill_cap = ($_[2] - 60) * 3.23 + 196; }
			if ($skill_detail eq "B-") { $skill_cap = ($_[2] - 60) * 2.70 + 196; }
			if ($skill_detail eq "C+") { $skill_cap = ($_[2] - 60) * 2.50 + 190; }
			if ($skill_detail eq "C ") { $skill_cap = ($_[2] - 60) * 2.25 + 190; }
			if ($skill_detail eq "C-") { $skill_cap = ($_[2] - 60) * 2.00 + 190; }
			if ($skill_rank   eq "D" ) { $skill_cap = ($_[2] - 60) * 1.85 + 183; }
			if ($skill_rank   eq "E" ) { $skill_cap = ($_[2] - 60) * 1.95 + 171; }
			if ($skill_rank   eq "F" ) { $skill_cap = ($_[2] - 60) * 2.00 + 159; }
		# -73
		}
		elsif ($_[2] < 74) {
			if ($skill_detail eq "A+") { $skill_cap = ($_[2] - 70) * 5.00 + 251; }
			if ($skill_detail eq "A ") { $skill_cap = ($_[2] - 70) * 5.00 + 244; }
			if ($skill_detail eq "B+") { $skill_cap = ($_[2] - 70) * 4.34 + 233; }
			if ($skill_detail eq "B ") { $skill_cap = ($_[2] - 70) * 4.00 + 228; }
			if ($skill_detail eq "B-") { $skill_cap = ($_[2] - 70) * 3.00 + 223; }
			if ($skill_detail eq "C+") { $skill_cap = ($_[2] - 70) * 3.00 + 215; }
			if ($skill_detail eq "C ") { $skill_cap = ($_[2] - 70) * 2.50 + 212; }
			if ($skill_detail eq "C-") { $skill_cap = ($_[2] - 70) * 2.00 + 210; }
			if ($skill_rank eq "D" ) { $skill_cap = ($_[2] - 70) * 2.00 + 201; }
			if ($skill_rank eq "E" ) { $skill_cap = ($_[2] - 70) * 2.00 + 190; }
			if ($skill_rank eq "F" ) { $skill_cap = ($_[2] - 70) * 2.00 + 179; }
		# -75
		}
		elsif ($_[2] < 76) {
			if ($skill_detail eq "A+") { $skill_cap = ($_[2] - 73) * 5.00 + 266; }
			if ($skill_detail eq "A ") { $skill_cap = ($_[2] - 73) * 5.00 + 259; }
			if ($skill_detail eq "B+") { $skill_cap = ($_[2] - 73) * 5.00 + 246; }
			if ($skill_detail eq "B ") { $skill_cap = ($_[2] - 73) * 5.00 + 240; }
			if ($skill_detail eq "B-") { $skill_cap = ($_[2] - 73) * 4.00 + 232; }
			if ($skill_detail eq "C+") { $skill_cap = ($_[2] - 73) * 3.00 + 224; }
			if ($skill_detail eq "C ") { $skill_cap = ($_[2] - 73) * 3.00 + 219; }
			if ($skill_detail eq "C-") { $skill_cap = ($_[2] - 73) * 2.00 + 216; }
			if ($skill_rank eq "D" ) { $skill_cap = ($_[2] - 73) * 1.50 + 207; }
			if ($skill_rank eq "E" ) { $skill_cap = ($_[2] - 73) * 2.00 + 196; }
			if ($skill_rank eq "F" ) { $skill_cap = ($_[2] - 73) * 2.00 + 185; }
		}
		# -81
		elsif ($_[2] < 81) {
			if ($skill_detail eq "A+") { $skill_cap = ($_[2] - 75) * 5.00 + 276; }
			if ($skill_detail eq "A ") { $skill_cap = ($_[2] - 75) * 5.00 + 269; }
			if ($skill_detail eq "B+") { $skill_cap = ($_[2] - 75) * 5.00 + 256; }
			if ($skill_detail eq "B ") { $skill_cap = ($_[2] - 75) * 5.00 + 250; }
			if ($skill_detail eq "B-") { $skill_cap = ($_[2] - 75) * 5.00 + 240; }
			if ($skill_detail eq "C+") { $skill_cap = ($_[2] - 75) * 5.00 + 230; }
			if ($skill_detail eq "C ") { $skill_cap = ($_[2] - 75) * 5.00 + 225; }
			if ($skill_detail eq "C-") { $skill_cap = ($_[2] - 75) * 5.00 + 220; }
			if ($skill_rank eq "D" )   { $skill_cap = ($_[2] - 75) * 4.00 + 210; }
			if ($skill_rank eq "E" )   { $skill_cap = ($_[2] - 75) * 3.00 + 200; }
			if ($skill_rank eq "F" )   { $skill_cap = ($_[2] - 75) * 2.00 + 189; }
		}
		$skill_cap = int($skill_cap);
	}
	$_ = $skill_cap;
	
	#print "($_[0],$_[1],$_[2],$skill_rank,$skill_detail,$skill_cap)";
}



#必要経験値を計算する
# 引数0 レベル
# thx for えるさん
sub expr_needexp {
	local($lv) = @_;
	if    ( $lv <  1 ) { $_ = 0;                }
	elsif ( $lv <  8 ) { $_ = $lv * 250 +  250; }
	elsif ( $lv < 23 ) { $_ = $lv * 200 +  600; }
	elsif ( $lv < 51 ) { $_ = $lv * 100 + 2800; }
	elsif ( $lv < 62 ) { $_ = ($lv - 51) * 1200 +  8000; }
	elsif ( $lv < 70 ) { $_ = ($lv - 61) * 1500 + 20000; }
	elsif ( $lv < 76 ) { $_ = ($lv - 69) * 2000 + 32000; }
	else               { $_ = ($lv - 75) * 500  + 44000; }
}


#これまでの獲得経験値を計算する
# 引数0 レベル
# thx for えるさん
sub expr_exp {
	$lv = $_[0];
	if ($lv < 2) { $_ = 0; return; }
	$lv = $lv -1;

	if    ( $lv < 8  ) { $_ =  125.0 * ($lv * $lv + $lv * 3);                  }
	elsif ( $lv < 23 ) { $_ =  100.0 * $lv * $lv +    700.0 * $lv -    1050.0; }
	elsif ( $lv < 51 ) { $_ =   50.0 * $lv * $lv +   2850.0 * $lv -   24150.0; }
	elsif ( $lv < 62 ) { $_ =  600.0 * $lv * $lv -  52600.0 * $lv + 1373350.0; }
	elsif ( $lv < 70 ) { $_ =  750.0 * $lv * $lv -  70750.0 * $lv + 1922350.0; }
	elsif ( $lv < 76 ) { $_ = 1000.0 * $lv * $lv - 105000.0 * $lv + 3095350.0; }
	else               { $_ =  250.0 * $lv * $lv +   6750.0 * $lv - 1067150.0; }
}

# writehist：更新履歴への書き込み

sub writehist {
	local($histtype,$histdata) = @_;
	@outhist = ();
	push(@outhist, "$histtype\t$timenow\t$ENV{REMOTE_ADDR}\t$histdata");
	if(!open(OUT,">>$historyfile")){
		&header;
		&error_message('datafile error726','history file access failed.');
	}
	print OUT @outhist;
    close OUT;
}

#-- スキル表示機能で追加した部分ここまで 
#################

# header：HTMLヘッダの出力

sub header {
	print "Content-type: text/html\n\n";
	print "<html><head><title>$topic</title>\n";
	if($language ne "English"){
		print '<META http-equiv="Content-Type" content="text/html; charset=Shift_JIS">';
	}
	else {
		print '<META http-equiv="Content-Type" content="text/html; charset=ISO-8859-1">';
	}
	
	print "<STYLE type='text/css'>\n";
	print "<!--\n";
	print "body { font-size: $font_body"."pt }\n";
	print "a:hover { color: $c_hover }\n";
	print "a:link { color: $c_link }\n";
	print "a:visited { color: $c_visit }\n";
	print "a:active { color: $c_active }\n";
	print "big  { font-size: $font_big"."pt }\n";
	print "small { font-size: $font_small"."pt }\n";
	print "td { font-size: $font_td"."pt }\n";
	print "th { font-size: $font_th"."pt }\n";
	print ".tbl{ border: 2px solid $tableborder; }\n";
	print ".title{ font-size: $font_title"."px; }\n";
	print "-->\n";
	print "</STYLE>\n";
	
	if($bgimg eq ""){
		print "</head>\n<body bgcolor=$background text=$textcolor>\n";
	}
	else {
		print "</head>\n<body background='$bgimg' bgcolor=$background text=$textcolor>\n";
	}	
		
	if(!open(IN,"header.html")){
		$header="";
	}
	else {
		$headerbody=<IN>;
		close IN;
		print $headerbody;
	}
}

# reload_header：自動リロード用HTMLヘッダ出力

sub reload_header {
	print "Content-type: text/html\n\n";
	print "<html><head><title>$topic</title>\n";
	if($language ne "English"){
		print '<META http-equiv="Content-Type" content="text/html; charset=Shift_JIS">';
	}
	else {
		print '<META http-equiv="Content-Type" content="text/html; charset=ISO-8859-1">';
	}
	print "<META HTTP-EQUIV='Refresh' CONTENT='1;URL=$script'>";
	print '<STYLE type="text/css">';
	print "<!--";
	print "body { font-size: $font_body"."pt }\n";
	print "a:hover { color: $c_hover }\n";
	print "a:link { color: $c_link }\n";
	print "a:visited { color: $c_visit }\n";
	print "a:active { color: $c_active }\n";
	print "big  { font-size: $font_big"."pt }\n";
	print "small { font-size: $font_small"."pt }\n";
	print "td { font-size: $font_td"."pt }\n";
	print "th { font-size: $font_th"."pt }\n";
	print ".tbl{ border: 2px solid $tableborder; }\n";
	print ".title{ font-size: $font_title"."px; }\n";
	print "-->";
	print "</STYLE>";
	print "</head>\n<body bgcolor=$background text=$textcolor>\n";
}

# reload_header2：自動リロード用HTMLヘッダ出力

sub reload_header2 {
	print "Content-type: text/html\n\n";
	print "<html><head><title>$topic</title>\n";
	if($language ne "English"){
		print '<META http-equiv="Content-Type" content="text/html; charset=Shift_JIS">';
	}
	else {
		print '<META http-equiv="Content-Type" content="text/html; charset=ISO-8859-1">';
	}
	print "<META HTTP-EQUIV='Refresh' CONTENT='1;URL=$script?name=$name2&function=prof'>";
	print '<STYLE type="text/css">';
	print "<!--";
	print "body { font-size: $font_body"."pt }\n";
	print "a:hover { color: $c_hover }\n";
	print "a:link { color: $c_link }\n";
	print "a:visited { color: $c_visit }\n";
	print "a:active { color: $c_active }\n";
	print "big  { font-size: $font_big"."pt }\n";
	print "small { font-size: $font_small"."pt }\n";
	print "td { font-size: $font_td"."pt }\n";
	print "th { font-size: $font_th"."pt }\n";
	print ".tbl{ border: 2px solid $tableborder; }\n";
	print ".title{ font-size: $font_title"."px; }\n";
	print "-->";
	print "</STYLE>";
	print "</head>\n<body bgcolor=$background text=$textcolor>\n";

}

# footer：フッタ出力

sub footer {

	print "<HR>";
	if($language ne "English"){
		print '<div align=right>Original Script by <a href="http://www.senobeya.com" target="_blank">senobeya.com</a> ver.0.05-0.683 </div>';
		print '<div align=right>Update by <a href="http://www9.atpages.jp/elder/gmem/" target="_blank">elder&#64;DaZarvtra</a> ver.0.69- </div>';
	}
	else {
		print '<div align=right>Script by <a href="http://www.senobeya.com/ff/e/" target="_blank">senobeya.com/ff/e/</a> ver.0.05-0.683 </div>';
		print '<div align=right>Update by <a href="http://www9.atpages.jp/elder/gmem/" target="_blank">elder&#64;DaZarvtra</a> ver.0.69- </div>';
	}
	print "<div align=right>FF11 Member Registration System $version</div>\n";
	if($iconurl ne ""){
		print "<div align=right>Icon by <a href='$iconurl' target='_blank'>$iconhp</a></div>\n";
	}
	print "<div align=right>Copyright (C) 2002- SQUARE ENIX CO., LTD. All Rights Reserved.</div>\n";
	print "</body></html>";
}

# error_message：エラーメッセージ出力

sub error_message {

	print "<h1>$_[0]</h1>\n";
	print "<h3>$_[1]</h3>\n";
	
	if($language ne "English"){
		print "ブラウザの[戻る]ボタンを押して前の画面に移動してください.<p>\n";
	}
	else {
		print "Push [back]button to move former page.<p>\n";
	}
	&footer;
	exit;
}

# get_cookie：クッキー値取得

sub get_cookie {
	@pairs = split(/\;/,$ENV{'HTTP_COOKIE'});
	foreach $pair (@pairs) {
		local($name, $value) = split(/\=/, $pair);
		$name =~ s/ //g;
		$DUMMY{$name} = $value;
	}
	@pairs = split(/\,/,$DUMMY{'BODD'});
	foreach $pair (@pairs) {
		local($name, $value) = split(/\:/, $pair);
		$COOKIE{$name} = $value;
	}

	$c_name   = $COOKIE{'name'};
	$c_pass   = $COOKIE{'pass'};
	$c_session_id   = $COOKIE{'sess'};
}

# set_cookie：クッキー値設定

sub set_cookie { 
	($secg,$ming,$hourg,$mdayg,$mong,$yearg,$wdayg,$ydayg,$isdstg)
						= gmtime(time + 60*24*60*60);

	$yearg += 1900;
	if ($secg  < 10)  { $secg  = "0$secg";  }
	if ($ming  < 10)  { $ming  = "0$ming";  }
	if ($hourg < 10)  { $hourg = "0$hourg"; }
	if ($mdayg < 10)  { $mdayg = "0$mdayg"; }

	$mong = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep',
			'Oct','Nov','Dec') [$mong];
	$youbi = ('Sunday','Monday','Tuesday','Wednesday','Thursday',
			'Friday','Saturday') [$wdayg];
	$date_gmt = "$youbi, $mdayg\-$mong\-$yearg $hourg:$ming:$secg GMT";
	
	$ENV{'TZ'} = "JST-9";
	($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
	@wday_array = ('日','月','火','水','木','金','土');
	$mon++;
	$year=$year-100;
	
	if($year<10){
		$year="0$year";
	}
	if($mon<10){
		$mon="0$mon";
	}
	if($mday<10){
		$mday="0$mday";
	}
	if($hour<10){
		$hour="0$hour";
	}
	if($min<10){
		$min="0$min";
	}
	
	$timenow="$year/$mon/$mday/$hour$min";
		
	$cook="name\:$name\,pass\:$pass,sess\:$session_id";
	print "Set-Cookie: BODD=$cook; expires=$date_gmt\n";
}

sub sort_table {
	
	$sort=$sort/1;
	
	@temp=();
	foreach $i (@all){
		($t[0],$t[1],$t[2],$t[3],$t[4],$t[5],$t[6],$t[7],$t[8],$t[9],$t[10],
			$t[11],$t[12],$t[13],$t[14],$t[15],$t[16],$t[17],$t[18],$t[19],$t[20],
			$t[21],$t[22],$t[23],$t[24],$t[25],$t[26],$t[27],$t[28],$t[29],$t[30],
			$t[31],$t[32],$t[33],$t[34],$t[35],$t[36],$t[37],$t[38],$t[39],$t[40],
			$t[41],$t[42],$t[43],$t[44],$t[45],$t[46],$t[47],$t[48],$t[49],$t[50],
			$t[51],$t[52],$t[53],$t[54],$t[55],$t[56],$t[57]) = split(/\t/,$i);
		
		#for($j=38;$j<$job_max+38;$j++){
		#	if($t[$j]<10){$t[$j]="0$t[$j]";}
		#}
		#for($j=22;$j<$prod_max+22;$j++){
		#	if($t[$j]<10){$t[$j]="0$t[$j]";}
		#}
		
		for($j=38;$j<$job_max+38;$j++){
			$t[$j]=sprintf("%3d",$t[$j]);
		}
		for($j=22;$j<$prod_max-1+22;$j++){
			$t[$j]=sprintf("%3d",$t[$j]);
		}
		
		#ミッションソート用 sort=37 function=[ミッション種別] page=アサルト用キー
		if($sort ==37){
			@mission = split(/,/,$t[37]);
			if($function == 16){
				@assault = split (//,$mission[16]);
				$assault[0]=hex($assault[0]);
				$missionkey=sprintf("%2d",$assault[$page]);
			}
			else {
				$missionkey=sprintf("%2d",$mission[$function]);
			}
			$t[37]="$missionkey"."T"."$t[37]";
		}
		#カスタムフィールドソート用 sort=33 function番号、 ソートモード=no
		if($sort ==33){
			@custom = split(/,/,$t[33]);
				if($no==1){
					$missionkey=sprintf("%10d",$custom[$function]);
				}
				else {
					$missionkey=sprintf("%-10s",$custom[$function]);
				}
			$t[33]="$missionkey"."_T_"."$t[33]";
		}
		
		if( $sort == 31 ){
			@synt = split( /,/, $t[31] );
			$t[31] = sprintf("%02d", $synt[$function+1] ) . "_T_" . $t[31];
		}
		
		$t_temp=$t[0];
		$t[0]=$t[$sort];
		$t[$sort]=$t_temp;
		
		push(@temp,"$t[0]\t$t[1]\t$t[2]\t$t[3]\t$t[4]\t$t[5]\t$t[6]\t$t[7]\t$t[8]\t$t[9]\t$t[10]\t$t[11]\t$t[12]\t$t[13]\t$t[14]\t$t[15]\t$t[16]\t$t[17]\t$t[18]\t$t[19]\t$t[20]\t$t[21]\t$t[22]\t$t[23]\t$t[24]\t$t[25]\t$t[26]\t$t[27]\t$t[28]\t$t[29]\t$t[30]\t$t[31]\t$t[32]\t$t[33]\t$t[34]\t$t[35]\t$t[36]\t$t[37]\t$t[38]\t$t[39]\t$t[40]\t$t[41]\t$t[42]\t$t[43]\t$t[44]\t$t[45]\t$t[46]\t$t[47]\t$t[48]\t$t[49]\t$t[50]\t$t[51]\t$t[52]\t$t[53]\t$t[54]\t$t[55]\t$t[56]\t$t[57]\t\n");
		
	}
	
	@temp=sort(@temp);
	
	if($mode eq "r"){
		@temp=reverse(@temp);
	}
	
	@all=();
	
	foreach $i (@temp){
		 ($t[0],$t[1],$t[2],$t[3],$t[4],$t[5],$t[6],$t[7],$t[8],$t[9],$t[10],
		 	$t[11],$t[12],$t[13],$t[14],$t[15],$t[16],$t[17],$t[18],$t[19],$t[20],
		 	$t[21],$t[22],$t[23],$t[24],$t[25],$t[26],$t[27],$t[28],$t[29],$t[30],
		 	$t[31],$t[32],$t[33],$t[34],$t[35],$t[36],$t[37],$t[38],$t[39],$t[40],
		 	$t[41],$t[42],$t[43],$t[44],$t[45],$t[46],$t[47],$t[48],$t[49],$t[50],
		 	$t[51],$t[52],$t[53],$t[54],$t[55],$t[56],$t[57]) = split(/\t/,$i);
		
		#ミッションソート用 sort=37 function=[ミッション種別]
		if($sort ==37){
			($dummy,$t[0]) = split(/T/,$t[0]);
		}
		#カスタムフィールドソート用 sort=33 function=[項目番号]
		if($sort ==33){
			($dummy,$t[0]) = split(/_T_/,$t[0]);
		}
		
		if( $sort == 31 ){
			($dummy,$t[0]) = split(/_T_/,$t[0]);
		}
		
		$t_temp=$t[0];
		$t[0]=$t[$sort];
		$t[$sort]=$t_temp;
		
		
		for($j=38;$j<$job_max+38;$j++){
			$t[$j]=$t[$j]/1;
		}
		for($j=22;$j<$prod_max-1+22;$j++){
			$t[$j]=$t[$j]/1;
		}
		
		push(@all,"$t[0]\t$t[1]\t$t[2]\t$t[3]\t$t[4]\t$t[5]\t$t[6]\t$t[7]\t$t[8]\t$t[9]\t$t[10]\t$t[11]\t$t[12]\t$t[13]\t$t[14]\t$t[15]\t$t[16]\t$t[17]\t$t[18]\t$t[19]\t$t[20]\t$t[21]\t$t[22]\t$t[23]\t$t[24]\t$t[25]\t$t[26]\t$t[27]\t$t[28]\t$t[29]\t$t[30]\t$t[31]\t$t[32]\t$t[33]\t$t[34]\t$t[35]\t$t[36]\t$t[37]\t$t[38]\t$t[39]\t$t[40]\t$t[41]\t$t[42]\t$t[43]\t$t[44]\t$t[45]\t$t[46]\t$t[47]\t$t[48]\t$t[49]\t$t[50]\t$t[51]\t$t[52]\t$t[53]\t$t[54]\t$t[55]\t$t[56]\t$t[57]\t\n");
	}
	
}

sub new_regist_regist {
	
	if(!open(IN,"$datafile")){
		&error_message('datafile error1791','data file access failed.');
	}
	@all=<IN>;
	close IN;
	
	if( !($pass =~ /^[A-Za-z0-9_]+$/) ){
		if($language ne "English"){
			&error_message('そのパスワードは登録に利用できません。','パスワードは半角英数字で登録してください。');
		}
		else {
			&error_message('That password is unsuitable.','Password must use a-z and 0-9 letters.');
		}
	}
	if( !($name =~ /^[A-Za-z0-9_]+$/) ){
		if($language ne "English"){
			&error_message('その名前は使えません。','名前は半角英数字で登録してください。');
		}
		else {
			&error_message('That name is unsuitable.','Name must use a-z and 0-9 letters.');
		}
	}
	
	if($language ne "English"){
		if($mainjob == $supportjob){
			&error_message('main/job error','メインとサポートは同一のジョブにはできません');
		}
	}
	else {
		if($mainjob == $supportjob){
			&error_message('main/job error',"Support job can not set as main's one.");
		}
	}
	
	
	$max_no=0;
	foreach $i (@all){
		($r_no,$r_user,$dummy)=split(/\t/,$i);
		if($max_no<$r_no){
			$max_no=$r_no;
		}
		if($r_user eq $name){
			&error_message('already registed',"'$name' has already registed.");
		}
	}
	
	$no=($max_no+1)/1;
	
	if($no<10){
		$no="0$no";
	}
	if($no<100){
		$no="0$no";
	}
	
	push(@all,"$no\t$name\t$pass\t$anon\t$race\t$relm\t$mainjob\t$supportjob\t$prof\t$handle\t$polhn\t$mail\t$home\t$comment2\t$point\t$class\t$timenow\t$comment\t$mrank\t$etc[0]\t$etc[1]\t$etc[2]\t$prod[0]\t$prod[1]\t$prod[2]\t$prod[3]\t$prod[4]\t$prod[5]\t$prod[6]\t$prod[7]\t$prod[8]\t$prod[9]\t$prod[10]\t$prod[11]\t$prod[12]\t$prod[13]\t$prod[14]\t$prod[15]\t$lev[0]\t$lev[1]\t$lev[2]\t$lev[3]\t$lev[4]\t$lev[5]\t$lev[6]\t$lev[7]\t$lev[8]\t$lev[9]\t$lev[10]\t$lev[11]\t$lev[12]\t$lev[13]\t$lev[14]\t$lev[15]\t$lev[16]\t$lev[17]\t$lev[18]\t$lev[19]\t\n");
	
	&dirlock;
	if(!open(OUT,">$datafile")){
		&error_message('datafile error1819','data file access failed.');
	}
	print OUT @all;
	close OUT;
	rmdir($lockdir);
	
	#RSS用履歴ファイル作成
	$historybase="NEWREG\t$name\tNewMember\t$rsstime\t$no\t$rh\t\t$addr\t\n";
	&add_history;
	
	if($language ne "English"){
		print "新規メンバー'$name'($no)の登録を完了しました。";
		print "<HR><a href=$script?$salt>[登録システム入り口]</a><a href=$script?function=faq>[使い方]</a><a href='$homepage'>[ホームページへ戻る]</a><BR>";
	}
	else {
		print "New Member '$name'($no) is registed.";
		print "<HR><a href=$script?$salt>[Entrance]</a><a href=$script?function=faq>[usage]</a><a href='$homepage'>[Back to Homepage]</a><BR>";
	}
	
}


sub new_regist_normal {
	
	if($language ne "English"){
		print "<table width=100%><TR bgcolor=$indexcolor><TD>新規メンバー登録</TD></TR></table>\n新規メンバーを登録します。必要事項を入力してください。\n<table>";
	}
	else {
		print "<table width=100%><TR bgcolor=$indexcolor><TD>New Member Regist</TD></TR></table>\nFor registration, fill your information.\n<table>";
	}
	
	print <<"EOM";
<form method=post enctype='multipart/form-data'  action=$script>
<input type=hidden name=gpass value=$gpass>
<input type=hidden name=function value=new>
<input type=hidden name=mode value=regist>
EOM
	if($class_edit){
		print "<TR><TD>$field[0]</TD><TD><input type=text name=class value='$class'></TD></TR>\n";
	}
	else {
		print "<input type=hidden name=class value='$class'>";
	}
	print <<"EOM";
<TR><TD>$field[1]</TD><TD><input type=text name=name></TD>
<TR><TD>$field[2]</TD><TD><input type=text name=pass></TD>
<TR><TD>$field[3]</TD><TD><select name=anon>
<option value=off>off</option>
<option value=on>on</option>
</select></TD></TR>

EOM
	print "<TR><TD>$field[4]</TD><TD><select name=race>";
	for($i=0;$i<$#racelist+1;$i++){
		print "<option value=$i>$racelist[$i]</option>\n";
	}
	print "</select></TD></TR>\n";
	
	print "<TR><TD>$field[5] (<a href=$icondir";
	print "samples.htm target='_blank'>$field[18]</a>)</TD><TD><select name=ftype>";
	for($i=0;$i<$#facetypename+1;$i++){
	    print "<option value=$i>$facetypename[$i]</option>\n";
	}
	print "</select></TD></tr>\n";
	
	
	print "<TR><TD>$field[6]</TD><TD><select name=relm>";
	for($i=0;$i<$#relmlist+1;$i++){
		print "<option value=$i>$relmlistl[$i]</option>\n";
	}
	print "</select></TD></TR>\n";
	print "<TR><TD>$field[7]</TD><TD><select name=mainjob>";
	for($i=0;$i<$job_max;$i++){
		print "<option value=$i>$joblist[$i]</option>\n";
	}
	print "</select></TD></TR>\n";
	print "<TR><TD>$field[8]</TD><TD><select name=supportjob>";
	print "<option value=99>none</option>\n";
	for($i=0;$i<$job_max;$i++){
		print "<option value=$i>$joblist[$i]</option>\n";
	}
	print "</select></TD></TR>\n";
	
	for($i=0;$i<$job_max;$i++){
		print "<TR><TD>$joblist[$i]</TD><TD><input type=text size=2 name=lev$i></TD></TR>\n";
	}
	
	for($i=0;$i<$prod_max;$i++){
		print "<TR><TD>$prodlist[$i]</TD><TD><input type=text size=2 name=prod$i>";
		print "<select name=prod_r$i>";
		for($j=0;$j<$#ranklist+1;$j++){
			if($j==$prod_r[$i]){
				print "<option value=$j selected>$ranklist[$j]</option>\n";
			}
			else {
				print "<option value=$j>$ranklist[$j]</option>\n";
			}
		}
	}
	print "</select></TD></TR>\n";
	
	print "<TR><TD>$field[9]</TD><TD><input type=text name=point></TD></TR>\n";
	print "<TR><TD>$field[10]</TD><TD><input type=text name=mrank></TD></TR>\n";
	print "<TR><TD>$field[11]</TD><TD><input type=text name=comment size=80></TD></TR>\n";
	
	print "<TR><TD colspan=2><HR></TD></TR>\n";
	print "<TR><TD>$field[12]</TD><TD><select name=prof>";
	if($prof eq off){
		print "<option value=off selected>off</option><option value=on>on</option>";
	}
	else {
		print "<option value=off>off</option><option value=on selected>on</option>";
	}	
	print "</select></TD></TR>\n";
	
	print "<TR><TD>$field[13]</TD><TD><input type=text name=handle value='$handle'></TD></TR>\n";
	print "<TR><TD>$field[14]</TD><TD><input type=text name=polhn value='$polhn'></TD></TR>\n";
	print "<TR><TD>$field[15]</TD><TD><input type=text name=mail value='$mail'></TD></TR>\n";
	
	print "<TR><TD>$field[16]</TD><TD><input type=text name=home size=80 value='http://'></TD></TR>\n";
	
	$comment2 =~ s/<BR>/\r/g;
	print "<TR><TD>$field[17]</TD><TD><textarea name=comment2 rows=5 cols=60>$comment2</textarea></TD></TR>\n";
	
	if($language ne "English"){
		print "<TR><TD><input type=submit value='新規登録'></TD><TD></TD></TR>\n</form></table>";
		print "<HR><a href=$script?$salt>[登録システム入り口]</a><a href=$script?function=faq>[使い方]</a><a href='$homepage'>[ホームページへ戻る]</a><BR>";
	}
	else {
		print "<TR><TD><input type=submit value='Regist'></TD><TD></TD></TR>\n</form></table>";
		print "<HR><a href=$script?$salt>[Entrance]</a><a href=$script?function=faq>[Usage]</a><a href='$homepage'>[Back to homepage]</a><BR>";
	}
	
}


sub custom_field{
#カスタムフィールド

	if(!open(IN,"$datafile")){&header; &error_message('datafile error/system','data file access failed.');}
	@all=<IN>;
	close IN;

	$match="";
	foreach $i(@all){
		 ($r_no,$r_name,$r_pass,$r_dummy)=split(/\t/,$i);
		if($r_name eq $name && $pass eq $r_pass){
			$match=$i;
		}
	}
	if($match eq ""){
		&header; &error_message('id/pass error','access failed.');
	}
	$match =~ s/"/&quot;/g;

#オペレーター入力
	if($mode eq "operatorlogin"){
		
		&header;
		
		print "<table width=100%><TR bgcolor=$indexcolor><TD>$custom_field[0]の修正 オペレーターモード</TD></TR></table>";
		print "<a href=$script>MemberList Top</a><BR>";
		print "<form method=$method action=$script><input type=hidden name=name value=$name><input type=hidden name=pass value=$pass><input type=hidden name=function value='$button[0]'><input type=submit name=mode value='back'></form>";
		print "<form method=post enctype='multipart/form-data'  action=$script><input type=hidden name=name value=$name><input type=hidden name=pass value=$pass><input type=hidden name=function value=\"customfield\"><input type=hidden name=mode value=\"operatormodify\">";
		
		for($j=1;$j<$#custom_field+1;$j++){
			if($custom_control[$j] eq $name){
				print "\n<input type=text name=customf$j value='$custom_field[$j]'><table>";
				$count=0;
				foreach $i(@all){
					($no,$rname,$dummy,$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],$dummy)=split(/\t/,$i);
					@custom=split(/,/,$prod[11]);
					if($custom_pulldown[$j] == 1){
						print "<TR><TD>$rname</TD><TD><select name=custom$count"."_$j>";
						for($k=0;$k<$#{"custom_list$j"}+1;$k++){
							if($k == $custom[$j]){
								print "<option value=$k selected>".${"custom_list$j"}[$k]."</option>";
							}
							else {
								print "<option value=$k>".${"custom_list$j"}[$k]."</option>";
							}
						}
						print "</select></TD></TR>";
					}
					else {
						print "<TR><TD>$rname</TD><TD><input type=text name=custom$count","_$j value='$custom[$j]'></TD></TR>";
					}
					$count++;
				}
				print "<TR><TD>加算対象</TD><TD><select name=custom0><option value=0>なにもしない</option>";
				for($i=1;$i<$#custom_field+1;$i++){
					if($custom_pulldown[$i]==0 && $i != $j){
						print "<option value=$i>$custom_field[$i] に加算</option>";
					}
				}
				print "</select></TD></TR>";
				print "</table>\n";
			}
			else {
				print "\n<input type=hidden name=customf$j value='$custom_field[$j]'>";
			}
		}
		#積算フィールド指定はここですることに
		print "<input type=submit value='更新'></form>";
		
	}
	elsif($mode eq "operatormodify"){
		
		&dirlock;
	
		@out=();
		$count=0;
		foreach $i(@all){
			($no,$rname,$rpass,$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]);
			for($j=1;$j<$#custom_field+1;$j++){
				if($custom_control[$j] eq $name){
					$custom[$j]=$FORM{"custom$count"."_$j"};
					if($FORM{"custom0"} != 0){
						$custom[$FORM{"custom0"}] += $FORM{"custom$count"."_$j"};
					}
				}
			}
			$prod[11]=join(",", @custom);
			$prod[12] =~ s/&quot;/"/g;
			$newdat="$no\t$rname\t$rpass\t$anon\t$race\t$relm\t$mainjob\t$supportjob\t$prof\t$handle\t$polhn\t$mail\t$home\t$comment2\t$point\t$class\t$time\t$comment\t$mrank\t$etc[0]\t$etc[1]\t$etc[2]\t$prod[0]\t$prod[1]\t$prod[2]\t$prod[3]\t$prod[4]\t$prod[5]\t$prod[6]\t$prod[7]\t$prod[8]\t$prod[9]\t$prod[10]\t$prod[11]\t$prod[12]\t$prod[13]\t$prod[14]\t$prod[15]\t$lev[0]\t$lev[1]\t$lev[2]\t$lev[3]\t$lev[4]\t$lev[5]\t$lev[6]\t$lev[7]\t$lev[8]\t$lev[9]\t$lev[10]\t$lev[11]\t$lev[12]\t$lev[13]\t$lev[14]\t$lev[15]\t$lev[16]\t$lev[17]\t$lev[18]\t$lev[19]\t\n";
			push(@out,$newdat);
			$count++;
		}
	
		if(!open(OUT,">$datafile")){
			&header; &error_message('datafile error1560','data file access failed.');
		}
		print OUT @out;
		close OUT;
		rmdir($lockdir);
		
		#custom_field[0]のcustom0名称変更処理
		
		#編集項目更新処理
		for($i=1;$i<$#custom_field+1;$i++){
			$custom_field[$i]=$FORM{"customf$i"};
		}
	
		@list=(
			'custom_field',
		);
		&dirlock;
		if(!open(IN,"setup.cgi")){
			&error_message('config file error','data file access failed.');
		}
		@all=<IN>;
		close IN;

		foreach $item(@list){
			$match=0;
			for($i=0;$i<$#all+1;$i++){
				if($all[$i] =~ /^\@$item=(.*);(.*)/){
					$match=1;
					$temp=$2;
					$arr="\@$item=(";
					for($j=0;$j<$#$item+1;$j++){
						if ($$item[$j] =~ /.*\\$/){
							$$item[$j].="\\";
						}
						$$item[$j] =~ s/'//g;
					    $arr.="'$$item[$j]',";
					}
					$arr.=");$2\n";
					$all[$i]=$arr;
				}
			}
			if($match==0){
				$arr="\@$item=(";
				for($j=0;$j<$#$item+1;$j++){
					if ($$item[$j] =~ /.*\\$/){
						$$item[$j].="\\";
					}
					$$item[$j] =~ s/'//g;
				    $arr.="'$$item[$j]',";
				}
				$arr.=");\n\n";
				push(@all,$arr);
			}
		}
		@out=@all;
		&check_out;
		
		if(!open(OUT,">setup.cgi")){
			&error_message('config file error','data file access failed.');
		}
		print OUT @out;
		close OUT;
		rmdir($lockdir);
		
		&reload_header;
		
		print "<table width=100%><TR bgcolor=$indexcolor><TD>オペレーターによる$custom_field[0]の修正を行いました。</TD></TR></table>";
		print "自動的に戻ります。<BR>";
		print "<a href=$script>MemberList Top</a><BR>";
		
	}
	elsif($mode eq "modify"){
		#書き込み
		($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],$dummy,$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/,$match);
		$prod[11]=join(",", @custom);
		
		&dirlock;
		if(!open(IN,"$datafile")){
			&error_message('datafile error612i','data file access failed.');
		}
		@all=<IN>;
		close IN;
		
		@out=();
		foreach $i(@all){
			 ($r_no,$r_name,$r_pass,$r_dummy)=split(/\t/,$i);
			if($r_name eq $name && $pass eq $r_pass){
				$pastdat=$i;
				$prod[12] =~ s/&quot;/"/g;
				$newdat="$r_no\t$name\t$pass\t$anon\t$race\t$relm\t$mainjob\t$supportjob\t$prof\t$handle\t$polhn\t$mail\t$home\t$comment2\t$point\t$class\t$timenow\t$comment\t$mrank\t$etc[0]\t$etc[1]\t$etc[2]\t$prod[0]\t$prod[1]\t$prod[2]\t$prod[3]\t$prod[4]\t$prod[5]\t$prod[6]\t$prod[7]\t$prod[8]\t$prod[9]\t$prod[10]\t$prod[11]\t$prod[12]\t$prod[13]\t$prod[14]\t$prod[15]\t$lev[0]\t$lev[1]\t$lev[2]\t$lev[3]\t$lev[4]\t$lev[5]\t$lev[6]\t$lev[7]\t$lev[8]\t$lev[9]\t$lev[10]\t$lev[11]\t$lev[12]\t$lev[13]\t$lev[14]\t$lev[15]\t$lev[16]\t$lev[17]\t$lev[18]\t$lev[19]\t\n";
				push(@out,$newdat);
			}
			else {
				push(@out,$i);
			}
		}
		
		if(!open(OUT,">$datafile")){
			&header; &error_message('datafile error1560','data file access failed.');
		}
		print OUT @out;
		close OUT;
		rmdir($lockdir);
		
		#RSS用履歴ファイル作成
		
		&compare_history;
		
		$historybase="CUSTED\t$name\t$name profile modify\t$rsstime\t$no\t$message\t$rh\t$addr\t\n";
		&add_history;
		
		&reload_header;
		
		print "<table width=100%><TR bgcolor=$indexcolor><TD>$custom_field[0]を修正しました。</TD></TR></table>";
		print "<a href=$script>MemberList Top</a><BR>自動的に戻ります。";
		
	}
	else {
	
		&header;
	
		#入力リスト表示
		 ($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/,$match);
		@custom=split(/,/,$prod[11]);
		
		print "<table width=100%><TR bgcolor=$indexcolor><TD>$custom_field[0]を登録修正します。</TD></TR></table>";
		print "<a href=$script>MemberList Top</a><BR>";
		print "<form method=$method action=$script><input type=hidden name=name value=$name><input type=hidden name=pass value=$pass><input type=hidden name=function value='$button[0]'><input type=submit name=mode value='back'></form>";
		print "<form method=post enctype='multipart/form-data'  action=$script><input type=hidden name=name value=$name><input type=hidden name=pass value=$pass><input type=hidden name=function value=\"customfield\"><input type=hidden name=mode value=\"modify\">";
		print "<table>";
	
		for ($i=1;$i<$#custom_field+1;$i++){
			if($custom_pulldown[$i]==0){
				if($custom_control[$i] eq "0"){
					print "<TR><TD>$custom_field[$i]</TD><TD><input type=text name=custom$i value='$custom[$i]'></TD></TR>";
				}
				else {
					print "<input type=hidden name=custom$i value='$custom[$i]'>";
				}
			}
			else {
				if($custom_control[$i] eq "0"){
				print "<TR><TD>$custom_field[$i]</TD><TD><select name=custom$i>";
				for($j=0;$j<$#{"custom_list$i"}+1;$j++){
					if($j == $custom[$i]){
						print "<option value=$j selected>".${"custom_list$i"}[$j]."</option>";
					}
					else {
						print "<option value=$j>".${"custom_list$i"}[$j]."</option>";
					}
				}
				print "</select></TD></TR>";
				}
				else {
					print "<input type=hidden name=custom$i value='$custom[$i]'>";
				}
			}
		}
		print "</table>";
		print "<input type=submit value='modify'></form>";
	}
}

######################
#login_menu
######################

sub login_menu{
	
	if($language ne "English"){
		print "<table width=100%><TR bgcolor=$indexcolor><TD>登録データ修正</TD></TR></table>";
		print "<a href=$script>MemberList Top</a><BR>";
		print "'$name' さんのデータを修正します。<BR>\n";
	}
	else {
		print "<table width=100%><TR bgcolor=$indexcolor><TD>Modify Registed information</TD></TR></table>";
		print "<a href=$script>MemberList Top</a><BR>";
		print "Modyfying  : '$name'  information.<BR>\n";
	}
	
	print "modifying=$all<BR>";

	 ($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/,$match);
	@prod_r = split(/,/,$etc[1]);
	@mp=split(/,/,$prod[13]);
	@mission = split(/,/,$prod[15]);
	@assault=split( //,$mission[16]);
	$assault[0]=hex($assault[0]);
	($syn,@synt) = split( /,/, $prod[9]);
	#################共通フォーム
	
	if($language ne "English"){
		@templabel=("No. $no : '$name' 修正");
	}
	else {
		@templabel=("Modifying No. $no : '$name' ");
	}
	
	print "<form method=$method action=$script><input type=hidden name=name value=$name><input type=hidden name=pass value=$pass><input type=hidden name=function value='$button[0]'><input type=submit name=mode value='back'></form>";
	
	if($all ne "triggerlist" ){
		print "$templabel[0]<BR><form method=post enctype='multipart/form-data'  action=$script><input type=hidden name=name value=$name><input type=hidden name=pass value=$pass><input type=hidden name=mode value=modify><input type=hidden name=function value='$button[0]'>";
	}
	
	####################ジョブ・合成スキル
	if($all eq "m_level"){
		print "<input type=hidden name=all value=m_level>";
		
		print "<table>";
		print "<TR><TD bgcolor=$indexcolor>$field[7]</TD><TD><select name=mainjob>\n";
		for($i=0;$i<$job_max;$i++){
			if($i==$mainjob){
				print "<option value=$i selected>$joblist[$i]</option>\n";
			}
			else {
				print "<option value=$i>$joblist[$i]</option>\n";
			}
		}
		print "</select></TD></TR>\n";
		
		
		print "<TR><TD bgcolor=$indexcolor>$field[8]</TD><TD><select name=supportjob>\n";
			print "<option value=99>none</option>\n";
		
		for($i=0;$i<$job_max;$i++){
			if($i==$supportjob){
				print "<option value=$i selected>$joblist[$i]</option>\n";
			}
			else {
				print "<option value=$i>$joblist[$i]</option>\n";
			}
		}
		print "</select></TD></TR>\n";
		
		print "<TR><TD colspan=2><HR></TD></TR>";
		print "<TR><TD colspan=2><table><TR>";
		for($i=0;$i<10;$i++){
			print "<TD bgcolor=$indexcolor>$joblist[$i]</TD>";
		}
		print "</TR>\n<TR>";
		for($i=0;$i<10;$i++){
			print "<TD><input type=text size=2 name=lev$i value=$lev[$i]></TD>";
		}
		print "</TR>\n<TR>";
		for($i=10;$i<$job_max;$i++){
			print "<TD bgcolor=$indexcolor>$joblist[$i]</TD>";
		}
		print "</TR>\n<TR>";
		for($i=10;$i<$job_max;$i++){
			print "<TD><input type=text size=2 name=lev$i value=$lev[$i]></TD>";
		}
		print "</TR>\n</table></TD></TR>\n";
		print "<TR><TD colspan=2><HR></TD></TR>";
		
		for($i=0;$i<$prod_max-1;$i++){
			print "<TR><TD bgcolor=$indexcolor>$prodlist[$i]</TD><TD><input type=text size=2 name=prod$i value=$prod[$i]>\n";
			print "<select name=prod_r$i>";
			for($j=0;$j<$#ranklist+1;$j++){
				if($j==$prod_r[$i]){
					print "<option value=$j selected>$ranklist[$j]</option>\n";
				}
				else {
					print "<option value=$j>$ranklist[$j]</option>\n";
				}
			}
			print "</select></TD></TR>\n";
		}
		print "<TR><TD bgcolor=$indexcolor>$prodlist[9]</TD><TD><input type=text size=2 name=syn value=$syn></td></TR>\n";
		print "<TR><TD colspan=2><HR></TD></TR>";
		
		print "<TR><TD><TABLE>\n";
		for($i=0;$i<=$#synergytech;$i++){
			print "<TR><TD bgcolor=$indexcolor>$synergytech[$i]</td>";
			print "<td><input type=text size=2 name=synt$i value=$synt[$i]></td></tr>\n";
		}
		print "</table></td></tr>\m";
		print "</table>\n";
	}
	
	######################プロフィール
	if($all eq "m_prof"){
		print "<input type=hidden name=all value=m_prof>";
		
		print "<table border=0>";
		
		print "<TR><TD bgcolor=$indexcolor>New password</TD><TD><input type=text name=name2><TD></TR><TR><TD bgcolor=$indexcolor>Old password</TD><TD><input type=text name=pass value='$pass'>";
		
		if($class_edit){
			print "<TR><TD bgcolor=$indexcolor>$field[0]</TD><TD><input type=text name=class value=\"$class\"></TD></TR>\n";
		}
		else {
			print "<input type=hidden name=class value=\"$class\">\n";
		}
		
		print "<TR><TD bgcolor=$indexcolor>$field[3]</TD><TD><select name=anon>\n";
		if($anon eq "on"){
			print "<option value=off>off</option><option value=on selected>on</option>\n";
		}
		else {
			print "<option value=off selected>off</option><option value=on>on</option>\n";
		}	
		print "</select></TD></TR>\n";
		
		
		
		print "<TR><TD bgcolor=$indexcolor>$field[4]</TD><TD><select name=race>\n";
		for($i=0;$i<$#racelist+1;$i++){
			if($i==$race){
				print "<option value=$i selected>$racelist[$i]</option>\n";
			}
			else {
				print "<option value=$i>$racelist[$i]</option>\n";
			}
		}
		print "</select></TD></TR>\n";
		
		print "<TR><TD bgcolor=$indexcolor>$field[5] (<a href=$icondir";
		print "samples.htm target='_blank'>$field[18]</a>)</TD><TD><select name=ftype>\n";
		for($i=0;$i<$#facetypename+1;$i++){
		    if($i==$etc[0]){
			    print "<option value=$i selected>$facetypename[$i]</option>\n";
		    }
		    else {
			    print "<option value=$i>$facetypename[$i]</option>\n";
		    }
		}
		print "</select></TD></tr>\n";
		
		print "<TR><TD bgcolor=$indexcolor>$field[6]</TD><TD><select name=relm>\n";
		for($i=0;$i<$#relmlist+1;$i++){
			if($i==$relm){
				print "<option value=$i selected>$relmlistl[$i]</option>\n";
			}
			else {
				print "<option value=$i>$relmlistl[$i]</option>\n";
			}
		}
		print "</select></TD></TR>\n";
		
		print "<TR><TD bgcolor=$indexcolor>$field[9]</TD><TD><input type=text name=point value=\"$point\"></TD></TR>\n";
		print "<TR><TD bgcolor=$indexcolor>$field[10]</TD><TD><input type=text name=mrank value=\"$mrank\"></TD></TR>\n";
		print "<TR><TD bgcolor=$indexcolor>$field[11]</TD><TD><input type=text name=comment size=80 value=\"$comment\"></TD></TR>\n";
		print "<TR><TD colspan=2><HR></TD></TR>\n";
		print "<TR><TD bgcolor=$indexcolor>$field[12]</TD><TD><select name=prof>\n";
		if($prof eq off){
			print "<option value=off selected>off</option><option value=on>on</option>\n";
		}
		else {
			print "<option value=off>off</option><option value=on selected>on</option>\n";
		}	
		print "</select></TD></TR>\n";
		
		print "<TR><TD bgcolor=$indexcolor>$field[13]</TD><TD><input type=text name=handle value=\"$handle\"></TD></TR>\n";
		print "<TR><TD bgcolor=$indexcolor>$field[14]</TD><TD><input type=text name=polhn value=\"$polhn\"></TD></TR>\n";
		print "<TR><TD bgcolor=$indexcolor>$field[15]</TD><TD><input type=text name=mail value=\"$mail\"></TD></TR>\n";
		
		print "<TR><TD bgcolor=$indexcolor>$field[16]</TD><TD><input type=text name=home size=80 value=\"$home\"></TD></TR>\n";
		
		$comment2 =~ s/<BR>/\r/g;
		print "<TR><TD bgcolor=$indexcolor>$field[17]</TD><TD><textarea name=comment2 rows=5 cols=60>$comment2</textarea></TD></TR>\n";
		
		if($language ne "English"){
			print "<TR><TD bgcolor=$indexcolor>プロフ画像</TD><TD><input type='file' name='upfile1'></TD></TR>\n";
			print "<TR><TD bgcolor=$indexcolor>プロフ画像の削除</TD><TD><select name=imgdel><option value=0>保持</option><option value=1>削除</option></select></TD></TR>\n";
		}
		else {
			print "<TR><TD bgcolor=$indexcolor>Profile Photo</TD><TD><input type='file' name='upfile1'></TD></TR>\n";
			print "<TR><TD bgcolor=$indexcolor>photo mode</TD><TD><select name=imgdel><option value=0>keep</option><option value=1>delete</option></select></TD></TR>\n";
		}
		print "</table>";	
	}
	
	######################武器魔法スキル
	if($all eq "m_skill"){
		print "<input type=hidden name=all value=m_skill>";
		($tempskill,$tempws)=split( /\//,$etc[2]);
		@skill = split( /\,/, $tempskill );
#	    @skill = split(/,/,$etc[2]);
		if ($skill_visible) {
			print "<table border=0><tr bgcolor=$indexcolor>\n";
			for($i=0;$i<16;$i++){
				print "<th width=6.66%>$skilllist[$i]</th>\n";
			}
			print "</tr><tr$bgn>";
			for($i=0;$i<16;$i++){
				print "<TD width=6.66% align=center><input type=text size=5 name=skill$i value=$skill[$i]></TD>\n";
			}
			print "</TR>";
			
			print "<tr bgcolor=$indexcolor>\n";
			for($i=16;$i<$#skilllist+1;$i++){
				print "<th width=6.66%>$skilllist[$i]</th>\n";
			}
			print "</tr><tr>";
			for($i=16;$i<$#skilllist+1;$i++){
				print "<TD width=6.66% align=center><input type=text size=4 name=skill$i value=$skill[$i]></TD>\n";
			}
			print "</TR></table>\n";
		}
		else {
			print "skill function is not available.<BR>";
		}
	}
	
	#######################カスタムフィールド
	if($all eq "custom"){
		print "<input type=hidden name=all value=custom>";
		@custom=split(/,/,$prod[11]);
		for ($i=1;$i<$#custom_field+1;$i++){
			if($custom_pulldown[$i]==0){
				if($custom_control[$i] eq "0"){
					print "$custom_field[$i]<input type=text name=custom$i value='$custom[$i]'><BR>";
				}
				else {
					print "<input type=hidden name=custom$i value='$custom[$i]'>";
				}
			}
			else {
				if($custom_control[$i] eq "0"){
				print "$custom_field[$i]<select name=custom$i>";
				for($j=0;$j<$#{"custom_list$i"}+1;$j++){
					if($j == $custom[$i]){
						print "<option value=$j selected>".${"custom_list$i"}[$j]."</option>";
					}
					else {
						print "<option value=$j>".${"custom_list$i"}[$j]."</option>";
					}
				}
				print "</select><BR>";
				}
				else {
					print "<input type=hidden name=custom$i value='$custom[$i]'>";
				}
			}
		}
	}
	
	######################装備
	if( $all eq "equip" ){
		require("equip.pl");
		print "<input type=hidden name=all value=equip>";
		@elist = split(/\,/, $prod[10]);
		print "<table border=0><tr><td valign=top>\n";
		print "<table border=0>\n";
		&def_equip_list();
		
		# 武器リストのフォーム表示ループ
		for ( $e=0; $e<=3; $e++ ){
			# 武器リストを取得
			@templist = @{$equipdeflist[$e]};
			# 取得済みの武器リストを取得
			@equips = split( //, $elist[$e] );
			$itemnum = $#templist+1;
			print "<tr><th colspan=3 bgcolor=$indexcolor nowrap>$equiplist[$e]</th></tr>\n";
			print "<tr><td bgcolor=$indexcolor rowspan=$itemnum nowrap>$equiplist[$e]</td>";
			for( $i=0; $i<$itemnum; $i++ ){
				if( $i != 0 ){
					print "<tr>";
				}
				$fstr = $equiplistname[$e] . '_' . $i ;
				print "<td nowrap>$templist[$i]</td><td><select name=$fstr>";
				if( $equips[$i] ){
					print "<option value=0>$maru[0]</option><option selected value=1>$maru[1]</option></select>";
				}
				else{
					print "<option selected value=0>$maru[0]</option><option value=1>$maru[1]</option></select>";
				}
				print "</td></tr>\n";
			}
			print "<tr><td colspan=3>&nbsp;</td></tr>\n";
		}	
		
		print "</table>\n</td><td valign=top><table border=0>\n";
		
		# 防具リストのフォーム表示ループ
		
		for ( $e=4; $e<=9; $e++ ){
			next if $e == 6;
			@templist = @{$equipdeflist[$e]};
			@equipset = split( /\//, $elist[$e] );
			@setname = split( /\,/, $templist[0] );
			print "<tr><th colspan=3 bgcolor=$indexcolor nowrap>$equiplist[$e]</th></tr>\n";
			for( $i = 0; $i<$#templist; $i++ ){
				@equips = split( //, $equipset[$i] );
				@templist2 = split( /\,/, $templist[$i+1]);
				$itemnum = $#templist2+1;
				if( $e == 10 ){
					($jobnumber,$eqname) = split( /\//, $setname[$i] );
					print "<tr><td bgcolor=$indexcolor rowspan=$itemnum nowrap>$joblist[$jobnumber]/$eqname</td>";
				}
				else{
					print "<tr><td bgcolor=$indexcolor rowspan=$itemnum nowrap>$setname[$i]</td>";
				}
				for( $j=0; $j<=$#templist2;$j++){
					($eqslot, $eqname) = split( /\//, $templist2[$j] );
					$fstr = $equiplistname[$e] . '_' . $i . '_' . $j;
					if( $j != 0 ){
						print "<tr>";
					}
					print "<td nowrap>$eqname ($equipslot[$eqslot])</td><td><select name=$fstr>";
					if( $equips[$j] ){
						print "<option value=0>$maru[0]</option><option selected value=1>$maru[1]</option></select>";
					}
					else{
						print "<option selected value=0>$maru[0]</option><option value=1>$maru[1]</option></select>";
					}
					print "</td></tr>\n";
				}
			}
			print "<tr><td colspan=3>&nbsp;</td></tr>\n";
			if( ($e==8) ){
				print "</table>\n</td><td valign=top><table border=0>\n";
			}
		}
		# レリック(AF2)の前に花鳥を免罪の下に出すよ
		$e = 11;
		{
			@templist = @{$equipdeflist[$e]};
			@equipset = split( /\//, $elist[$e] );
			@setname = split( /\,/, $templist[0] );
			print "<tr><th colspan=3 bgcolor=$indexcolor nowrap>$equiplist[$e]</th></tr>\n";
			for( $i = 0; $i<$#templist; $i++ ){
				@equips = split( //, $equipset[$i] );
				@templist2 = split( /\,/, $templist[$i+1]);
				$itemnum = $#templist2+1;
				if( $e == 10 ){
					($jobnumber,$eqname) = split( /\//, $setname[$i] );
					print "<tr><td bgcolor=$indexcolor rowspan=$itemnum nowrap>$joblist[$jobnumber]/$eqname</td>";
				}
				else{
					print "<tr><td bgcolor=$indexcolor rowspan=$itemnum nowrap>$setname[$i]</td>";
				}
				for( $j=0; $j<=$#templist2;$j++){
					($eqslot, $eqname) = split( /\//, $templist2[$j] );
					$fstr = $equiplistname[$e] . '_' . $i . '_' . $j;
					if( $j != 0 ){
						print "<tr>";
					}
					print "<td nowrap>$eqname ($equipslot[$eqslot])</td><td><select name=$fstr>";
					if( $equips[$j] ){
						print "<option value=0>$maru[0]</option><option selected value=1>$maru[1]</option></select>";
					}
					else{
						print "<option selected value=0>$maru[0]</option><option value=1>$maru[1]</option></select>";
					}
					print "</td></tr>\n";
				}
			}
			print "<tr><td colspan=3>&nbsp;</td></tr>\n";
			print "</table>\n</td><td valign=top><table border=0>\n";
		}
		$e = 10;
		{
			@templist = @{$equipdeflist[$e]};
			@equipset = split( /\//, $elist[$e] );
			@setname = split( /\,/, $templist[0] );
			print "<tr><th colspan=3 bgcolor=$indexcolor nowrap>$equiplist[$e]</th></tr>\n";
			for( $i = 0; $i<$#templist; $i++ ){
				@equips = split( //, $equipset[$i] );
				@templist2 = split( /\,/, $templist[$i+1]);
				$itemnum = $#templist2+1;
				if( $e == 10 ){
					($jobnumber,$eqname) = split( /\//, $setname[$i] );
					print "<tr><td bgcolor=$indexcolor rowspan=$itemnum nowrap>$joblist[$jobnumber]/$eqname</td>";
				}
				else{
					print "<tr><td bgcolor=$indexcolor rowspan=$itemnum nowrap>$setname[$i]</td>";
				}
				for( $j=0; $j<=$#templist2;$j++){
					($eqslot, $eqname) = split( /\//, $templist2[$j] );
					$fstr = $equiplistname[$e] . '_' . $i . '_' . $j;
					if( $j != 0 ){
						print "<tr>";
					}
					print "<td nowrap>$eqname ($equipslot[$eqslot])</td><td><select name=$fstr>";
					if( $equips[$j] ){
						print "<option value=0>$maru[0]</option><option selected value=1>$maru[1]</option></select>";
					}
					else{
						print "<option selected value=0>$maru[0]</option><option value=1>$maru[1]</option></select>";
					}
					print "</td></tr>\n";
				}
			}
			print "<tr><td colspan=3>&nbsp;</td></tr>\n";
			if( ($e==8) or ($e==9) or ($e==10) ){
				print "</table>\n</td><td valign=top><table border=0>\n";
			}
		}
		#サル装備と素材はここから。要望対応。見にくいと思うんだけどな・・・
		$e = 6;
		{
			@templist = @{$equipdeflist[$e]};
			@equipset = split( /\//, $elist[$e] );
			@setname = split( /\,/, $templist[0] );
			print "<tr><th colspan=3 bgcolor=$indexcolor nowrap>$equiplist[$e]</th></tr>\n";
			for( $i = 0; $i<$#templist; $i++ ){
				@equips = split( //, $equipset[$i] );
				@templist2 = split( /\,/, $templist[$i+1]);
				$itemnum = $#templist2+1;
				if( $e == 10 ){
					($jobnumber,$eqname) = split( /\//, $setname[$i] );
					print "<tr><td bgcolor=$indexcolor rowspan=$itemnum nowrap>$joblist[$jobnumber]/$eqname</td>";
				}
				else{
					print "<tr><td bgcolor=$indexcolor rowspan=$itemnum nowrap>$setname[$i]</td>";
				}
				for( $j=0; $j<=$#templist2;$j++){
					($eqslot, $eqname) = split( /\//, $templist2[$j] );
					$fstr = $equiplistname[$e] . '_' . $i . '_' . $j;
					if( $j != 0 ){
						print "<tr>";
					}
					print "<td nowrap>$eqname ($equipslot[$eqslot])</td><td><select name=$fstr>";
					if( $equips[$j] ){
						print "<option value=0>$maru[0]</option><option selected value=1>$maru[1]</option></select>";
					}
					else{
						print "<option selected value=0>$maru[0]</option><option value=1>$maru[1]</option></select>";
					}
					print "</td></tr>\n";
				}
			}
			print "<tr><td colspan=3>&nbsp;</td></tr>\n";
#			if( ($e==8) or ($e==9) or ($e==10) ){
#				print "</table>\n</td><td valign=top><table border=0>\n";
#			}
		}
		$e = 12;
		{
			@templist = @{$equipdeflist[$e]};
			@equipset = split( /\//, $elist[$e] );
			@setname = split( /\,/, $templist[0] );
			print "<tr><th colspan=3 bgcolor=$indexcolor nowrap>$equiplist[$e]</th></tr>\n";
			for( $i = 0; $i<$#templist; $i++ ){
				@equips = split( //, $equipset[$i] );
				@templist2 = split( /\,/, $templist[$i+1]);
				$itemnum = $#templist2+1;
				if( $e == 10 ){
					($jobnumber,$eqname) = split( /\//, $setname[$i] );
					print "<tr><td bgcolor=$indexcolor rowspan=$itemnum nowrap>$joblist[$jobnumber]/$eqname</td>";
				}
				else{
					print "<tr><td bgcolor=$indexcolor rowspan=$itemnum nowrap>$setname[$i]</td>";
				}
				for( $j=0; $j<=$#templist2;$j++){
					($eqslot, $eqname) = split( /\//, $templist2[$j] );
					$fstr = $equiplistname[$e] . '_' . $i . '_' . $j;
					if( $j != 0 ){
						print "<tr>";
					}
					print "<td nowrap>$eqname ($equipslot[$eqslot])</td><td><select name=$fstr>";
					if( $equips[$j] ){
						print "<option value=0>$maru[0]</option><option selected value=1>$maru[1]</option></select>";
					}
					else{
						print "<option selected value=0>$maru[0]</option><option value=1>$maru[1]</option></select>";
					}
					print "</td></tr>\n";
				}
			}
			print "<tr><td colspan=3>&nbsp;</td></tr>\n";
#			if( ($e==8) or ($e==9) or ($e==10) ){
#				print "</table>\n</td><td valign=top><table border=0>\n";
#			}
		}
		print "</table>\n</td></tr>";
		
		print "</table>\n";
	}
	
	######################WS習得
	if( $all eq "ws" ){
		print "<input type=hidden name=all value=ws>";
		print "<Table border=0>";
		print "<TR><TH colspan=2 bgcolor=$indexcolor>Weapon Skill</TH></TR>";
		($tempskill,$tempws)=split( /\//,$etc[2]);
		@skill = split( /\,/, $tempskill );
		@ws = split( //, $tempws );
		$nskill = -1;
		$count = 0;
		
		# 対象となるWSについてそれぞれ処理
		for ($i=0;$i<=$#mwslist;$i++){
			( $wskill, $wname, $wtype, $wjob, $wcond ) = split( /,/, $mwslist[ $i ] );
			if( $ws[ $i ] ){
				# 既に習得済みのものは、条件チェックせずに表示させる
				print "<TR><TD bgcolor=$indexcolor>$wname</TD>";
				print "<TD><select name=ws$i><option value=0>-</option><option selected value=1>$maru[ 1 ]</option></select></TD></TR>\n";
			}
			else{
				# 未習得の場合は、クエストかミシックか判断して習得条件のチェック
				if( $wtype == 0 ){
					# クエストWSの場合　→対象レベルが71以上でスキルが条件を満たすかチェック
					@wsjoblist = split( /\//, $wjob );
					$jobok = 0;
					if( $skill[ $wskill] >= $wcond ){
						foreach $j ( @wsjoblist ){
							if( $lev[$j] > 70 ){
								$jobok = 1;
							}
						}
					}
					if( $jobok ){
						# 習得条件を満たす場合には選択肢を表示
						print "<TR><TD bgcolor=$indexcolor>$wname</TD>";
						print "<TD><select name=ws$i><option value=0 selected>-</option><option value=1>$maru[ 1 ]</option></select></TD></TR>\n";
					}
					else{
						# 習得条件を満たさない場合には強制で未習得
						print "<input type=hidden name=ws$i value=0>\n";
					}
				}
				elsif( $wtype == 1 ){
					# ミシックWSの場合　→対象ジョブが75かチェック
					if( $lev[$wjob] >= 75 ){
						print "<TR><TD bgcolor=$indexcolor>$wname</TD>";
						print "<TD><select name=ws$i><option value=0 selected>-</option><option value=1>$maru[ 1 ]</option></select></TD></TR>\n";
					}
					else{
						print "<input type=hidden name=ws$i value=0>\n";
					}
				}
			}
		}
		print "</table>\n";
	}
		
	######################ミッションアサルト
	if($all eq "mission"){
		print "<input type=hidden name=all value=mission>";
		print "<Table border=0>";
		print "<TR><TH colspan=2 bgcolor=$indexcolor>Mission</TH></TR>";
		
		# 石の見る夢
		print "<TR><TD bgcolor=$indexcolor>$mlist[19]</TD>";
		print "<TD><select name=mission19>";
		for($j=0;$j<$#addcplist+1;$j++){
			if($j==$mission[19]){
				print "<option value=$j selected>$addcplist[$j]</option>\n";
			}
			else {
				print "<option value=$j>$addcplist[$j]</option>\n";
			}
		}
		print "</select></TD></TR>\n";
		
		# 戦慄！モグ祭りの夜
		print "<TR><TD bgcolor=$indexcolor>$mlist[20]</TD>";
		print "<TD><select name=mission20>";
		for($j=0;$j<$#addmklist+1;$j++){
			if($j==$mission[20]){
				print "<option value=$j selected>$addmklist[$j]</option>\n";
			}
			else {
				print "<option value=$j>$addmklist[$j]</option>\n";
			}
		}
		print "</select></TD></TR>\n";
		
		# シャントット帝国の陰謀
		print "<TR><TD bgcolor=$indexcolor>$mlist[21]</TD>";
		print "<TD><select name=mission21>";
		for($j=0;$j<$#addsslist+1;$j++){
			if($j==$mission[21]){
				print "<option value=$j selected>$addsslist[$j]</option>\n";
			}
			else {
				print "<option value=$j>$addsslist[$j]</option>\n";
			}
		}
		print "</select></TD></TR>\n";
		
		# アルタナミッション
		print "<TR><TD bgcolor=$indexcolor>$mlist[18]</TD>";
		print "<TD><select name=mission18>";
		for($j=0;$j<$#allist+1;$j++){
			if($j==$mission[18]){
				print "<option value=$j selected>$allist[$j]</option>\n";
			}
			else {
				print "<option value=$j>$allist[$j]</option>\n";
			}
		}
		print "</select></TD></TR>\n";
		
		# カンパニエ叙勲
		print "<TR><TD bgcolor=$indexcolor>$mlist[22]</TD>";
		print "<TD><select name=mission22>";
		for($j=0;$j<$#alrank+1;$j++){
			if($j==$mission[22]){
				print "<option value=$j selected>$alrank[$j]</option>\n";
			}
			else {
				print "<option value=$j>$alrank[$j]</option>\n";
			}
		}
		print "</select></TD></TR>\n";
		
		# アトルガンミッション
		print "<TR><TD bgcolor=$indexcolor>$mlist[15]</TD>";
		print "<TD><select name=mission15>";
		for($j=0;$j<$#amlist+1;$j++){
			if($j==$mission[15]){
				print "<option value=$j selected>$amlist[$j]</option>\n";
			}
			else {
				print "<option value=$j>$amlist[$j]</option>\n";
			}
		}
		print "</select></TD></TR>\n";
		
		# プロマシアミッション
		print "<TR><TD bgcolor=$indexcolor>$mlist[0]</TD>";
		print "<TD><select name=mission0>";
		for($j=0;$j<$#pmlist+1;$j++){
			if($j==$mission[0]){
				print "<option value=$j selected>$pmlist[$j]</option>\n";
			}
			else {
				print "<option value=$j>$pmlist[$j]</option>\n";
			}
		}
		print "</select></TD></TR>\n";
		
		# ジラートミッション
		print "<TR><TD bgcolor=$indexcolor>$mlist[1]</TD>";
		print "<TD><select name=mission1>";
		for($j=0;$j<$#jmlist+1;$j++){
			if($j==$mission[1]){
				print "<option value=$j selected>$jmlist[$j]</option>\n";
			}
			else {
				print "<option value=$j>$jmlist[$j]</option>\n";
			}
		}
		print "</select></TD></TR>\n";
		
		# 三国ミッション
		print "<TR><TD bgcolor=$indexcolor>$mlist[2]</TD>";
		print "<TD><select name=mission2>";
		for($j=0;$j<$#smlist+1;$j++){
			if($j==$mission[2]){
				print "<option value=$j selected>$smlist[$j]</option>\n";
			}
			else {
				print "<option value=$j>$smlist[$j]</option>\n";
			}
		}
		print "</select></TD></TR>\n";
		print "<TR><TD bgcolor=$indexcolor>$mlist[3]</TD>";
		print "<TD><select name=mission3>";
		for($j=0;$j<$#bmlist+1;$j++){
			if($j==$mission[3]){
				print "<option value=$j selected>$bmlist[$j]</option>\n";
			}
			else {
				print "<option value=$j>$bmlist[$j]</option>\n";
			}
		}
		print "</select></TD></TR>\n";
		
		print "<TR><TD bgcolor=$indexcolor>$mlist[4]</TD>";
		print "<TD><select name=mission4>";
		for($j=0;$j<$#wmlist+1;$j++){
			if($j==$mission[4]){
				print "<option value=$j selected>$wmlist[$j]</option>\n";
			}
			else {
				print "<option value=$j>$wmlist[$j]</option>\n";
			}
		}
		print "</select></TD></TR>\n";
		
		print "<TR><TD colspan=2><HR></TD></TR>";
		print "<TR><TH colspan=2 bgcolor=$indexcolor>Dynamis</TH></TR>";
		print "<TR><TD colspan=2><table border=0>";
		
		print "<TR>";
		for($k=5;$k<11;$k++){
			print "<TD bgcolor=$indexcolor>$mlist[$k]</TD>";
		}
		print "</TR>";
		
		for($k=5;$k<11;$k++){
			print "<TD align=center><select name=mission$k>";
				for($j=0;$j<$#maru+1;$j++){
					if($j==$mission[$k]){
						print "<option value=$j selected>$maru[$j]</option>\n";
					}
					else {
						print "<option value=$j>$maru[$j]</option>\n";
					}
				}
			print "</select></TD>";
		}
		print "</TR>";
		
		print "<TR>";
		for($k=11;$k<15;$k++){
			print "<TD bgcolor=$indexcolor>$mlist[$k]</TD>";
		}
		print "</TR>";
		
		for($k=11;$k<15;$k++){
		
			print "<TD align=center><select name=mission$k>";
			for($j=0;$j<$#maru+1;$j++){
				if($j==$mission[$k]){
					print "<option value=$j selected>$maru[$j]</option>\n";
				}
				else {
					print "<option value=$j>$maru[$j]</option>\n";
				}
			}
			print "</select></TD>";
		}
		print "</TR>";
		
		print "</table>\n</TD></TR>\n";
		
		print "<TR><TD colspan=2><HR></TD></TR>";
		print "<TR><TH colspan=2 bgcolor=$indexcolor>Assault</TH></TR>";
		
		print "<TR><TD bgcolor=$indexcolor>$aslist[0]</TD>";
		print "<TD><select name=assault0>";
		for($j=0;$j<$#asrank+1;$j++){
			if($j==$assault[0]){
				print "<option value=$j selected>$asrank[$j]</option>\n";
			}
			else {
				print "<option value=$j>$asrank[$j]</option>\n";
			}
		}
		print "</select></TD></TR>\n";
		
		print "<TR><TD colspan=2><table border=0 width=100%><TR><TH bgcolor=$indexcolor colspan=6>$assaultword[0]</TH></TR><TR>";
		for($j=2;$j<8;$j++){
			print "<TH bgcolor=$indexcolor>$assaultword[$j]</TH>";
		}
		print "</TR><TR>";
		
		for($j=1;$j<6;$j++){
			print "<TD align=center><select name=assault$j>";
				if($assault[$j]==1){
					print "<option value=1 selected>$maru[1]</option>\n";
					print "<option value=0>$maru[0]</option>\n";
				}
				else {
					print "<option value=1>$maru[1]</option>\n";
					print "<option value=0 selected>$maru[0]</option>\n";
				}
			print "</select></TD>";
		}
		#ナイズル
		print "<TD><select name=mission17>";
		for($j=0;$j<$#nzlist+1;$j++){
			if($j==$mission[17]){
				print "<option value=$j selected>$nzlist[$j]</option>\n";
			}
			else {
				print "<option value=$j>$nzlist[$j]</option>\n";
			}
		}
		print "</select></TD></TR>\n";
		
		print "</TR><TR>";
		
		for($j=6;$j<19;$j=$j+3){
			print "<TH bgcolor=$indexcolor>$aslist[$j]</TH>";
		}
		print "</TR><TR>";
		
		for($j=6;$j<19;$j=$j+3){
			print "<TD align=center><select name=assault$j>";
				if($assault[$j]==1){
					print "<option value=1 selected>$maru[1]</option>\n";
					print "<option value=0>$maru[0]</option>\n";
				}
				else {
					print "<option value=1>$maru[1]</option>\n";
					print "<option value=0 selected>$maru[0]</option>\n";
				}
			print "</select></TD>";
		}
		print "</TR><TR>";
		for($j=7;$j<20;$j=$j+3){
			print "<TH bgcolor=$indexcolor>$aslist[$j]</TH>";
		}
		print "</TR><TR>";
		
		for($j=7;$j<20;$j=$j+3){
			print "<TD align=center><select name=assault$j>";
			if($assault[$j]==1){
				print "<option value=1 selected>$maru[1]</option>\n";
				print "<option value=0>$maru[0]</option>\n";
			}
			else {
				print "<option value=1>$maru[1]</option>\n";
				print "<option value=0 selected>$maru[0]</option>\n";
			}
			print "</select></TD>";
		}
		print "</TR><TR>";
		for($j=8;$j<21;$j=$j+3){
			print "<TH bgcolor=$indexcolor>$aslist[$j]</TH>";
		}
		print "</TR><TR>";
		for($j=8;$j<21;$j=$j+3){
			print "<TD align=center><select name=assault$j>";
			if($assault[$j]==1){
				print "<option value=1 selected>$maru[1]</option>\n";
				print "<option value=0>$maru[0]</option>\n";
			}
			else {
				print "<option value=1>$maru[1]</option>\n";
				print "<option value=0 selected>$maru[0]</option>\n";
			}
			print "</select></TD>";
		}
		print "</TR><TR>";
		for($j=21;$j<30;$j=$j+2){
			print "<TH bgcolor=$indexcolor>$aslist[$j]</TH>";
		}
		print "</TR><TR>";
		for($j=21;$j<30;$j=$j+2){
			print "<TD align=center><select name=assault$j>";
			if($assault[$j]==1){
				print "<option value=1 selected>$maru[1]</option>\n";
				print "<option value=0>$maru[0]</option>\n";
			}
			else {
				print "<option value=1>$maru[1]</option>\n";
				print "<option value=0 selected>$maru[0]</option>\n";
			}
			print "</select></TD>";
		}
		print "</TR><TR>";
		for($j=22;$j<31;$j=$j+2){
			print "<TH bgcolor=$indexcolor>$aslist[$j]</TH>";
		}
		print "</TR><TR>";
		for($j=22;$j<31;$j=$j+2){
			print "<TD align=center><select name=assault$j>";
			if($assault[$j]==1){
				print "<option value=1 selected>$maru[1]</option>\n";
				print "<option value=0>$maru[0]</option>\n";
			}
			else {
				print "<option value=1>$maru[1]</option>\n";
				print "<option value=0 selected>$maru[0]</option>\n";
			}
			print "</select></TD>";
		}
		print "</TR><TR>";
		for($j=31;$j<40;$j=$j+2){
			print "<TH bgcolor=$indexcolor>$aslist[$j]</TH>";
		}
		print "</TR><TR>";
		for($j=31;$j<40;$j=$j+2){
			print "<TD align=center><select name=assault$j>";
			if($assault[$j]==1){
				print "<option value=1 selected>$maru[1]</option>\n";
				print "<option value=0>$maru[0]</option>\n";
			}
			else {
				print "<option value=1>$maru[1]</option>\n";
				print "<option value=0 selected>$maru[0]</option>\n";
			}
			print "</select></TD>";
		}
		print "</TR><TR>";
		for($j=32;$j<41;$j=$j+2){
			print "<TH bgcolor=$indexcolor>$aslist[$j]</TH>";
		}
		print "</TR><TR>";
		for($j=32;$j<41;$j=$j+2){
			print "<TD align=center><select name=assault$j>";
			if($assault[$j]==1){
				print "<option value=1 selected>$maru[1]</option>\n";
				print "<option value=0>$maru[0]</option>\n";
			}
			else {
				print "<option value=1>$maru[1]</option>\n";
				print "<option value=0 selected>$maru[0]</option>\n";
			}
			print "</select></TD>";
		}
		print "</TR><TR>";
		for($j=41;$j<46;$j++){
			print "<TH bgcolor=$indexcolor>$aslist[$j]</TH>";
		}
		print "</TR><TR>";
		for($j=41;$j<46;$j++){
			print "<TD align=center><select name=assault$j>";
			if($assault[$j]==1){
				print "<option value=1 selected>$maru[1]</option>\n";
				print "<option value=0>$maru[0]</option>\n";
			}
			else {
				print "<option value=1>$maru[1]</option>\n";
				print "<option value=0 selected>$maru[0]</option>\n";
			}
			print "</select></TD>";
		}
		print "</TR><TR>";
		for($j=46;$j<51;$j++){
			print "<TH bgcolor=$indexcolor>$aslist[$j]</TH>";
		}
		print "</TR><TR>";
		for($j=46;$j<51;$j++){
			print "<TD align=center><select name=assault$j>";
			if($assault[$j]==1){
				print "<option value=1 selected>$maru[1]</option>\n";
				print "<option value=0>$maru[0]</option>\n";
			}
			else {
				print "<option value=1>$maru[1]</option>\n";
				print "<option value=0 selected>$maru[0]</option>\n";
			}
			print "</select></TD>";
		}
		
		print "</TR><TR>";
		for($j=51;$j<56;$j++){
			print "<TH bgcolor=$indexcolor>$aslist[$j]</TH>";
		}
		print "</TR><TR>";
		for($j=51;$j<56;$j++){
			print "<TD align=center><select name=assault$j>";
			if($assault[$j]==1){
				print "<option value=1 selected>$maru[1]</option>\n";
				print "<option value=0>$maru[0]</option>\n";
			}
			else {
				print "<option value=1>$maru[1]</option>\n";
				print "<option value=0 selected>$maru[0]</option>\n";
			}
			print "</select></TD>";
		}
		
		print "</tr></table></TD></TR>";
		
		print "</table>";
		
	}
	
	
	######################トリガー一覧
	if($all eq "triggerdisp"){
		print "<form method=post enctype='multipart/form-data'  action=$script><input type=hidden name=name value=$name><input type=hidden name=pass value=$pass><input type=hidden name=mode value=menu><input type=hidden name=function value='$button[0]'>";
		
		print "<table width=100%><TR bgcolor=$indexcolor>";
		if( $language ne "English" ){
			print "<TD>トリガーメニュー</TD>";
		}
		else{
			print "<TD>Trigger management menu</TD>";
		}
		print "</TR></table>\n";
		print "<input type=hidden name=all value=triggernew><input type=hidden name=trino value=-1>";
		if( $language ne "English" ){
			print "<input type=submit value='新規トリガーグループ作成'>\n";
		}
		else{
			print "<input type=submit value='Make a new trigger management group'>\n";
		}
		print "</form>\n";
		
		require("trigger.pl");
		&def_trigger_list();
		
		if( !open( IN, "$triggerfile" ) ){
			&header;
			&error_message( 'datafie error/system', 'trigger file access failed');
		}
		my ( $t_no, $t_type, $t_adm, $t_ent, @t_tris, @t_adm_list, @t_ent_list, @trigger );
		foreach my $r ( <IN> ){
			if( $r =~ /^#/){
				next;
			}
			($t_no, $t_type, $t_adm, $t_ent, @t_tris) = split( /\t/, $r );
			@t_adm_list = split( /\,/ , $t_adm );
			@t_ent_list = split( /\,/ , $t_ent );
			foreach my $t_t ( @t_ent_list ){
				if( $name eq $t_t ){
					push( @trigger, $r );
					last;
				}
			}
		}
		close IN;
		
		foreach my $t_tri ( @trigger ){
			print "<hr>\n";
			($t_no, $t_type, $t_adm, $t_ent, @t_tris) = split( /\t/, $t_tri );
			print "<table><TR bgcolor=$indexcolor><TD align=center nowrap>No.$t_no : $triggerdefname[$t_type]</TD></TR>\n";
			@t_adm_list = split( /\,/ , $t_adm );
			@t_ent_list = split( /\,/ , $t_ent );
			print "<table border=0 width=1%>\n";
			$str1 = "<tr bgcolor=$indexcolor>\n<th rowspan=2 nowrap>$index[2]</th>\n";
			$str2 = "<tr bgcolor=$indexcolor>";
			@triggerset = @{$triggerdeflist[$t_type]};
			$listlength1 = $#triggerset;
			
			for( $i = 0; $i < $#triggerset; $i++ ){
				(@triggername) = split( /\,/, $triggerset[0] );
				( @triggerlist ) = split( /\,/, $triggerset[$i+1] );
				$listlength2[$i] = $#triggerlist+1;
				$str1 .= "<th colspan=$listlength2[$i]>$triggername[$i]</th>";
				foreach my $j ( @triggerlist ){
					$str2 .= "<th valign=bottom width=3% style=\"writing-mode: tb-rl; word-break:break-all\">$j</th>\n";
					
				}
			}
			$str1 .= "</tr>";
			$str2 .= "</tr>";
			print "$str1\n$str2\n";
			
			foreach my $i ( @t_ent_list ){
				$t_flag{ $i } = "";
			}
			foreach my $i ( @t_tris ){
				if( $i ){
					( $t_name, $t_tri_flag ) = split( /\,/, $i );
					$t_flag{ $t_name } = $t_tri_flag;
				}
			}
			my $count = 0;
			foreach my $i ( sort @t_ent_list ){
				if( $name eq $i ){
					$bgn = " bgcolor=$mydata";
				}
				else{
					$bgn = " bgcolor=$otherdata";
				}
				if( $count == $c_max ){
					print "\n$str1\n$str2\n";
					$count = 0;
				}
				print "<tr$bgn><td nowrap>$i</td>";
				@tri_flag_set = split( /\//, $t_flag{ $i } );
				for( $j = 0; $j < $listlength1; $j++ ){
					@tri_flag = split( //, $tri_flag_set[$j] );
					for( $k = 0; $k < $listlength2[$j]; $k++ ){
						print "<td align=center>$maru[ $tri_flag[ $k ] ]</td>\n";
					}
				}
				$count ++;
				print "</tr>\n";
			}
			print "</table></td></tr><tr><td>\n";
			$admin_flag = 0;
			foreach my $i ( split( /\,/, $t_adm ) ){
				if( $name eq $i ){
					$admin_flag = 1;
					last;
				}
			}
			if( $admin_flag ){
				my ( $value1, $value2, $value3 );
				if( $language ne "English" ){
					$value1 = "トリガー保持情報更新";
					$value2 = "メンバー更新";
					$value3 = "グループ削除";
				}
				else{
					$value1 = "Update trigger info";
					$value2 = "Update group member";
					$value3 = "Delete group";
				}
				print "<table border=0><tr><td>";
				print "<form method=post enctype='multipart/form-data'  action=$script><input type=hidden name=name value=$name><input type=hidden name=pass value=$pass><input type=hidden name=mode value=menu><input type=hidden name=function value='$button[0]'>";
				print "<input type=hidden name=all value=triggeredit><input type=hidden name=trino value='$t_no'>\n";
				print "<input type=submit value=$value1></form>";
				print "</td><td>　　　</td><td>";
				print "<form method=post enctype='multipart/form-data'  action=$script><input type=hidden name=name value=$name><input type=hidden name=pass value=$pass><input type=hidden name=mode value=menu><input type=hidden name=function value='$button[0]'>";
				print "<input type=hidden name=all value=triggernew><input type=hidden name=trino value='$t_no'>\n";
				print "<input type=submit value=$value2></form>";
				print "</td><td>　　　</td><td>";
				print "<form method=post enctype='multipart/form-data'  action=$script><input type=hidden name=name value=$name><input type=hidden name=pass value=$pass><input type=hidden name=mode value=modify><input type=hidden name=function value='$button[0]'>";
				print "<input type=hidden name=all value=triggerdel><input type=hidden name=trino value='$t_no'>\n";
				print "<input type=submit value=$value3></form>";
				print "</td></tr></table>\n";
			}
			print "</td></tr></table>";
		}
	}
	
	######################トリガーメンバー編集
	if($all eq "triggernew"){
		print "<input type=hidden name=all value=triggernew>";
		
		require("trigger.pl");
		&def_trigger_list();
		$t_tri = "";
		
		if( $trino != -1 ){
			if( !open( IN, "$triggerfile" ) ){
				&header;
				&error_message( 'datafie error/system', 'trigger file access failed');
			}
			my ( $t_no, $t_type, $t_adm, $t_ent, @t_tris, @t_adm_list, @t_ent_list, @trigger );
			$max_no = 0;
			foreach( <IN> ){
				next if /^#/;
				($t_no, $t_type, $t_adm, $t_ent, @t_tris) = split( /\t/ );
				if( $t_no > $max_no ){
					$max_no = $t_no;
				}
				if( $trino == $t_no ){
					$t_tri = $_;
				}
			}
			close IN;
		}
		
		if( ! $t_tri ){
			$t_no = -1;
			$t_type = -1;
			$t_adm = $name;
			$t_ent = $name;
		}
		else{
			($t_no, $t_type, $t_adm, $t_ent, @t_tris) = split( /\t/, $t_tri );
		}
		@admlist = split( /\,/, $t_adm);
		@entlist = split( /\,/, $t_ent);
		
		if( $language ne "English" ){
			print "<table><TR bgcolor=$indexcolor><TD>トリガーメンバー編集</TD></TR></table>\n";
			print "トリガー種別：　";
		}
		else{
			print "<table><TR bgcolor=$indexcolor><TD>Edit tirgger member</TD></TR></table>\n";
			print "Trigger type：&nbsp;&nbsp;";
		}
		if( $t_no == -1 ){
			print "<select name=type>\n";
			for( $i = 0; $i< $#triggerdefname; $i++ ){
				print "<option value=$i>$triggerdefname[$i]</option>\n";
			}
			print "</select>\n";
		}
		else{
			print "$triggerdefname[$t_type]\n";
			print "<input type=hidden name=type value=$t_type>\n";
		}
		print "<input type=hidden name=trino value=$t_no>\n";
		$count = 0;
		print "<table border=0>\n";
		if( $language ne "English" ){
			$str1 = "<tr bgcolor=$indexcolor><th>$index[8]</th><th>状態</th></tr>";
		}
		else{
			$str1 = "<tr bgcolor=$indexcolor><th>$index[8]</th><th>Status</th></tr>";
		}
		print "$str1\n";
		$namelist = "";
		foreach $i (@all){
			($r_no,$r_name,@r_others)=split(/\t/,$i);
			if( $count == $c_max ){
				print "$str1\n";
				$count = 0;
			}
			if( $name eq $r_name ){
				$bgn = " bgcolor=$mydata";
			}
			else{
				$bgn = " bgcolor=$otherdata";
			}
			$namelist .= "$r_name,";
			print "<tr$bgn><td>$r_name</td>\n";
			print "<td><select name=cond_$r_name>";
			$status = 0;
			my ( $value0, $value1, $value2 );
			if( $language ne "English" ){
				$value0 = "参加しない";
				$value1 = "メンバー";
				$value2 = "管理者";
			}
			else{
				$value0 = "not member";
				$value1 = "member";
				$value2 = "manager";
			}
			foreach my $j ( @admlist ){
				if( $r_name eq $j ){
					$status = 2;
					print "<option value=0>$value0</option><option value=1>$value1</option><option value=2 selected>$value2</option>";
				}
			}
			if( $status == 0 ){
				foreach my $j ( @entlist ){
					if( $r_name eq $j ){
						$status = 1;
						print "<option value=0>$value0</option><option value=1 selected>$value1</option><option value=2>$value2</option>";
					}
				}
			}
			if( $status == 0 ){
				print "<option value=0 selected>$value0</option><option value=1>$value1</option><option value=2>$value2</option>";
			}
			print "</select></tr>\n";
		}
		chop( $namelist );
		print "<input type=hidden name=namelist value=\"$namelist\">\n";
		print "</table>\n";
	}
	
	######################トリガー一覧編集
	if($all eq "triggeredit"){
		if( $language ne "English" ){
			print "<table width=100%><TR bgcolor=$indexcolor><TD>トリガー所有者更新</TD></TR></table>\n";
		}
		else{
			print "<table width=100%><TR bgcolor=$indexcolor><TD>Edit trigger holder</TD></TR></table>\n";
		}
		print "<input type=hidden name=all value=triggeredit>";
		print "<input type=hidden name=trino value=$trino>\n";
	
		require("trigger.pl");
		&def_trigger_list();
		
		if( !open( IN, "$triggerfile" ) ){
			&header;
			&error_message( 'datafie error/system', 'trigger file access failed');
		}
		my ( $t_no, $t_type, $t_adm, $t_ent, @t_tris, @t_adm_list, @t_ent_list, @trigger );
		foreach( <IN> ){
			next if /^#/;
			($t_no, $t_type, $t_adm, $t_ent, @t_tris) = split( /\t/ );
			if( $trino == $t_no ){
				$t_tri = $_;
			}
		}
		close IN;
		
		($t_no, $t_type, $t_adm, $t_ent, @t_tris) = split( /\t/, $t_tri );
		@admlist = split( /\,/, $t_adm);
		@entlist = split( /\,/, $t_ent);
		
		print "<table><TR bgcolor=$indexcolor><TD align=center>No.$t_no : $trrigerdefname[$t_type]</TD></TR>\n";
		print "<tr><td><table border=0>\n";
		$str1 = "<tr bgcolor=$indexcolor>\n<th rowspan=2>$index[2]</th>\n";
		$str2 = "<tr bgcolor=$indexcolor>";
		my $count = 0;
		@triggerset = @{$triggerdeflist[$t_type]};
		$listlength1 = $#triggerset;
		for( $i = 0; $i < $#triggerset; $i++ ){
			@triggername = split( /\,/, $triggerset[0] );
#			$triggername = $triggerset[0][$i-1];
			( @triggerlist ) = split( /\,/, $triggerset[$i+1] );
			$listlength2[$i] = $#triggerlist+1;
			$str1 .= "<th colspan=$listlength2[$i]>$triggername[$i]</th>";
			foreach my $j ( @triggerlist ){
				$str2 .= "<th valign=bottom width=3% style=\"writing-mode: tb-rl; word-break:break-all\">$j</th>\n";
				
			}
		}
		$str1 .= "</tr>";
		$str2 .= "</tr>";
		print "$str1\n$str2\n";
		foreach my $i ( @t_tris ){
			( $t_name, $t_tri_flag ) = split( /\,/, $i );
			$t_flag{ $t_name } = $t_tri_flag;
		}
		foreach my $i ( sort( @entlist ) ){
			if( $name eq $i ){
				$bgn = " bgcolor=$mydata";
			}
			else{
				$bgn = " bgcolor=$otherdata";
			}
			if( $count == $c_max ){
				print "\n$str1\n$str2\n";
				$count = 0;
			}
			print "<tr$bgn><td>$i</td>\n";
			@tri_flag_set = split( /\//, $t_flag{ $i } );
			for( $j = 0; $j < $listlength1; $j++ ){
				@tri_flag = split( //, @tri_flag_set[$j] );
				for( $k = 0; $k < $listlength2[$j]; $k++ ){
					$sname = "tri_" . $i. "_" . $j . "_" . $k;
					print "<td align=center><select name=$sname>";
					if( $tri_flag[ $k] ){
						print "<option value=0>$maru[0]</option><option value=1 selected>$maru[1]</option>";
					}
					else {
						print "<option value=0 selected >$maru[0]</option><option value=1>$maru[1]</option>";
					}
					print "</select></td>\n";
				}
			}
			$count ++;
		}
		print "</table></td></tr></table>\n";
		
	}
	
	####################共通部フッタ
	
	if( ($all ne "triggerlist" ) and ($all ne "triggerdisp" ) ){
		print "<input type=submit value=modify><BR></form>";
	}
}


######################
#login_enter & login_modify
######################

sub login_enter{
	
	if($language ne "English"){
		print "<table width=100%><TR bgcolor=$indexcolor><TD>ログインメニュー</TD></TR></table>";
	}
	else {
		print "<table width=100%><TR bgcolor=$indexcolor><TD>Login Menu</TD></TR></table>";
	}
	
	print "<a href=$script>MemberList Top</a><BR>";
	print "'$name' LoginMenu<BR>";
	
	print "<table>";
	
	if(!$diaryallow){
		print "<form method=post enctype='multipart/form-data'  action=$script><input type=hidden name=name value=$name><input type=hidden name=pass value=$pass>";
		print "<input type=hidden name=function value=\"$button[1]\">";
		if($language ne "English"){
			print "<TR><TD>新しい日記を書く</TD><TD><input type=submit value='日記入力'></TD></form></TR>\n";
		}
		else {
			print "<TR><TD>Write New Diary</TD><TD><input type=submit value='New Diary'></TD></form></TR>\n";
		}
		
		if($oekaki ==1){
			if($language ne "English"){
				$temp='お絵描き日記';
			}
			else {
				$temp='Paint Diary';
			}
			print "<TR><TD></TD><TD><form method=post enctype='multipart/form-data'  action=$script><input type=hidden name=name value=$name><input type=hidden name=pass value=$pass>";
			print "<input type=hidden name=function value=\"$button[1]\"><input type=hidden name=mode value=oekaki>";
			print "<input type=submit value='$temp'></TD></form></TR>\n";
		}
	}
	
	if($language ne "English"){
		print "<form method=post enctype='multipart/form-data'  action=$script><input type=hidden name=name value=$name><input type=hidden name=pass value=$pass><input type=hidden name=function value=editdiary>\n";
		print "<TR><TD>日記を修正・削除する</TD><TD>記事番号<input type=text name=no size=3><input type=submit value='修正削除'></TD></form></TR>\n";
	}
	else {
		print "<form method=post enctype='multipart/form-data'  action=$script><input type=hidden name=name value=$name><input type=hidden name=pass value=$pass><input type=hidden name=function value=editdiary>\n";
		print "<TR><TD>Modify or Delete Article</TD><TD>Article Number<input type=text name=no size=3><input type=submit value='Modify/Delete'></TD></form></TR>\n";
	}
	
	print "<TR><TD colspan=2><HR></TD></TR>\n";
	
	
	if($language ne "English"){
		@templabel=('プロフィール変更','レベル・合成スキル変更','武器魔法スキル変更','ミッション進行度変更','メリットポイント変更','習得WS変更','取得装備','トリガー管理');
	}
	else {
		@templabel=('Modify Profile','Level,Synthesis Skill','Weapon,Magic Skill','Mission Progress','Merit Points','Weapon Skill','Equip','Trigger Mng');
	}
	
	#prof
	print "<TR><TD>$templabel[0]</TD><form method=$method action=$script><input type=hidden name=name value=$name><input type=hidden name=pass value=$pass><input type=hidden name=function value='$button[0]'><input type=hidden name=all value='m_prof'><input type=hidden name=mode value=menu><TD><input type=submit value=profile></TD></TR></form>";
	#levelf
	print "<TR><TD>$templabel[1]</TD><form method=$method action=$script><input type=hidden name=name value=$name><input type=hidden name=pass value=$pass><input type=hidden name=function value='$button[0]'><input type=hidden name=all value='m_level'><input type=hidden name=mode value=menu><TD><input type=submit value=level></TD></TR></form>";
	#skill
	print "<TR><TD>$templabel[2]</TD><form method=$method action=$script><input type=hidden name=name value=$name><input type=hidden name=pass value=$pass><input type=hidden name=function value='$button[0]'><input type=hidden name=all value='m_skill'><input type=hidden name=mode value=menu><TD><input type=submit value=skill></TD></TR></form>";
	#mission
	print "<TR><TD>$templabel[3]</TD><form method=$method action=$script><input type=hidden name=name value=$name><input type=hidden name=pass value=$pass><input type=hidden name=function value='$button[0]'><input type=hidden name=all value='mission'><input type=hidden name=mode value=menu><TD><input type=submit value=mission></TD></TR></form>";
	#ws
	print "<TR><TD>$templabel[5]</TD><form method=$method action=$script><input type=hidden name=name value=$name><input type=hidden name=pass value=$pass><input type=hidden name=function value='$button[0]'><input type=hidden name=all value='ws'><input type=hidden name=mode value=menu><TD><input type=submit value=ws></TD></TR></form>";
	#equip
	print "<TR><TD>$templabel[6]</TD><form method=$method action=$script><input type=hidden name=name value=$name><input type=hidden name=pass value=$pass><input type=hidden name=function value='$button[0]'><input type=hidden name=all value='equip'><input type=hidden name=mode value=menu><TD><input type=submit value=equip></TD></TR></form>";
	#trigger
	print "<TR><TD>$templabel[7]</TD><form method=$method action=$script><input type=hidden name=name value=$name><input type=hidden name=pass value=$pass><input type=hidden name=function value='$button[0]'><input type=hidden name=all value='triggerdisp'><input type=hidden name=mode value=menu><TD><input type=submit value=trigger></TD></TR></form>";
	
	if($mpoint ==1){
		print "<TR><TD>$templabel[4]</TD><TD><form method=post enctype='multipart/form-data'  action=$script><input type=hidden name=name value=$name><input type=hidden name=pass value=$pass>";
		print "<input type=hidden name=function value=\"meritpoint\"><input type=hidden name=mode value=meritpoint>";
		print "<input type=submit value='meritpoint'></TD></form></TR>\n";
	}
	if($custom_field[0] ne ""){
		print "<TR><TD>$custom_field[0]</TD><TD><form method=post enctype='multipart/form-data'  action=$script><input type=hidden name=name value=$name><input type=hidden name=pass value=$pass>";
		print "<input type=hidden name=function value=\"customfield\">";
		print "<input type=submit value='$custom_field[0]'></TD></form></TR>\n";
	}
	
	$match=0;
	for($i=0;$i<$#custom_field+1;$i++){
		if($custom_control[$i] eq $name){
			$match=1;
		}
	}
	
	if($custom_field[0] ne "" && $match==1){
		print "<TR><TD>担当$custom_field[0]一括入力</TD><TD><form method=post enctype='multipart/form-data'  action=$script><input type=hidden name=name value=$name><input type=hidden name=pass value=$pass>";
		print "<input type=hidden name=function value=\"customfield\">";
		print "<input type=hidden name=mode value=\"operatorlogin\">";
		print "<input type=submit value='担当$custom_field[0]一括入力'></TD></form></TR>\n";
	}
	
	print "</table>";
	
}

sub login_modify{
	
	#最初に$allをチェックしてマッチファイルから元データを上書きする。
		
	if($all eq "m_prof"){
		($no,$name,$pass,$dummy,$dummy,$dummy,$mainjob,$supportjob,$dummy,$dummy,$dummy,$dummy,$dummy,$dummy,$dummy,$dummy,$dummy,$dummy,$dummy,$dummy,$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/,$match);
	}
	elsif ($all eq "m_level"){
		($no,$name,$pass,$anon,$race,$relm,$dummy,$dummy,$prof,$handle,$polhn,$mail,$home,$comment2,$point,$class,$time,$comment,$mrank,$etc[0],$dummy,$etc[2],$dummy,$dummy,$dummy,$dummy,$dummy,$dummy,$dummy,$dummy,$dummy,$dummy,$prod[10],$prod[11],$prod[12],$prod[13],$prod[14],$prod[15],$dummy,$dummy,$dummy,$dummy,$dummy,$dummy,$dummy,$dummy,$dummy,$dummy,$dummy,$dummy,$dummy,$dummy,$dummy,$dummy,$dummy,$dummy,$dummy,$dummy)=split(/\t/,$match);
	}
	elsif ($all eq "m_skill"){
		($no,$name,$pass,$anon,$race,$relm,$mainjob,$supportjob,$prof,$handle,$polhn,$mail,$home,$comment2,$point,$class,$time,$comment,$mrank,$etc[0],$etc[1],$dummyetc2,$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/,$match);
		($tempskill, $tempws) = split( /\//, $dummyetc2 );
		$etc[2] = "$etc2skill/$tempws";
	}
	elsif ($all eq "ws"){
		($no,$name,$pass,$anon,$race,$relm,$mainjob,$supportjob,$prof,$handle,$polhn,$mail,$home,$comment2,$point,$class,$time,$comment,$mrank,$etc[0],$etc[1],$dummyetc2,$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/,$match);
		($tempskill, $tempws) = split( /\//, $dummyetc2 );
		$etc[2] = "$tempskill/$etc2ws";
	}
	elsif ($all eq "equip" ){
		($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],$dummy,$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/,$match);
	}
	elsif ($all eq "custom"){
		($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/,$match);
			for($j=1;$j<$#custom_field+1;$j++){
				if($custom_control[$j] eq $name){
					$custom[$j]=$FORM{"custom$count"."_$j"};
					if($FORM{"custom0"} != 0){
						$custom[$FORM{"custom0"}] += $FORM{"custom$count"."_$j"};
					}
				}
			}
			$prod[11]=join(",", @custom);
	}
	elsif ($all eq "mission"){
	
		($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/,$match);
		
		#		@mission=split(/,/,$prod[15]);
	
		$mission[2]=$FORM{"mission2"};
		$mission[3]=$FORM{"mission3"};
		$mission[4]=$FORM{"mission4"};
		for($i=5;$i<15;$i++){
			$mission[$i]=$FORM{"mission$i"};
		}
		$mission[1]=$FORM{"mission1"};
		$mission[0]=$FORM{"mission0"};
		$mission[15]=$FORM{"mission15"};
	
		$mission[16]=$FORM{"assault0"};
	
		for($j=1;$j<$#aslist+1;$j++){
			$mission[16]=$mission[16].$FORM{"assault$j"};
		}
	
		$prod[15]=join(",",@mission);
	
	}
	elsif ($all eq "mpoint"){
	
		##ここmpoint.plに行くから意味ないっぽ
	
		($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/,$match);
		&list_mpoint_i;
		@mp=split(/,/,$prod[13]);
	
		if($all eq "mpoint1"){
			for($i=0;$i<28;$i++){
				$mp[$i]=$FORM{"mp$i"}
			}
		}
		if($all eq "mpoint2"){
			for($i=28;$i<45;$i++){
				$mp[$i]=$FORM{"mp$i"}
			}
		}
		if($all eq "mpoint3"){
			for($i=45;$i<141;$i++){
				$mp[$i]=$FORM{"mp$i"}
			}
		}
		if($all eq "mpoint4"){
			for($i=141;$i<211;$i++){
				$mp[$i]=$FORM{"mp$i"}
			}
		}
		
	
		$prod[13]="";
		$mptotal=0;
		for($i=0;$i<211;$i++){
			$prod[13]=$prod[13].$mp[$i].",";
			if($mp[$i]>0){
				for($j=0;$j<$mp[$i];$j++){
					$mptotal= $mptotal + substr($m_needpoint[$i],$j,1);
				}
			}
		}
		#layout style2
		$j=99; #現在カテゴリ
		$prod[12]="<TR><TD bgcolor=$indexcolor width=30% align=center>基本</TD><TD bgcolor=$indexcolor width=35% align=center>グループ１</TD><TD bgcolor=$indexcolor width=35% align=center>グループ２</TD></TR><TR><TD bgcolor=$profcolor width=30% valign=top>";
		for($i=0;$i<45;$i++){ #基本
			if($mp[$i]>0){
				if($j !=$m_categorycode[$i]){
					$prod[12]=$prod[12]."<div style=\"background-color : $indexcolor; text-align : center\">$m_categoryname[$m_categorycode[$i]](カテゴリ上限$m_categorymax[$m_categorycode[$i]])</div>";
					$j=$m_categorycode[$i];
				}
				$prod[12]=$prod[12]."$m_name[$i] :".$mp[$i]."/$m_max[$i]<BR>";
			}
		}
		$prod[12]=$prod[12]."</TD><TD bgcolor=$profcolor width=35% valign=top>";
		for($i=45;$i<141;$i++){ #ジョブカテゴリ１
			if($mp[$i]>0){
				if($j !=$m_categorycode[$i]){
					$prod[12]=$prod[12]."<div style=\"background-color : $indexcolor; text-align : center\">$m_categoryname[$m_categorycode[$i]](カテゴリ上限$m_categorymax[$m_categorycode[$i]])</div>";
					$j=$m_categorycode[$i];
				}
				$prod[12]=$prod[12]."$m_name[$i] :".$mp[$i]."/$m_max[$i]<BR>";
			}
		}
		$prod[12]=$prod[12]."</TD><TD bgcolor=$profcolor width=35% valign=top>";
		for($i=141;$i<211;$i++){ #ジョブカテゴリ２
			if($mp[$i]>0){
				if($j !=$m_categorycode[$i]){
					$prod[12]=$prod[12]."<div style=\"background-color : $indexcolor; text-align : center\">$m_categoryname[$m_categorycode[$i]](カテゴリ上限$m_categorymax[$m_categorycode[$i]])</div>";
					$j=$m_categorycode[$i];
				}
				$prod[12]=$prod[12]."$m_name[$i] :".$mp[$i]."/$m_max[$i]<BR>";
			}
		}
		$prod[12]=$prod[12]."</TD></TR>";
	
		if($mptotal>0){
			$prod[12]=$prod[12]."<TR><TD colspan=2 bgcolor=$indexcolor width=40%>総消費メリットポイント</TD><TD bgcolor=$profcolor>$mptotal</TD></TR>";
		}
	}
	else {
		($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/,$match);
	}
	
	#error_check
	if( !($name2 =~ /^[A-Za-z0-9_]+$/) && $name2 != ""){
		if($language ne "English"){
			&header;&error_message('そのパスワードは登録に利用できません。','パスワードは半角英数字で登録してください。');
		}
		else {
			&header;&error_message('That password is unsuitable.','Password must use a-z and 0-9 letters.');
		}
	}
	
	if($language ne "English"){
		if($mainjob == $supportjob){
			&header;
			&error_message('main/job error','メインとサポートは同一のジョブにはできません');
		}
	}
	else {
		if($mainjob == $supportjob){
			&header;
			&error_message('main/job error',"Support job can not set as main's one.");
		}
	}
	
	&prof_image;
	
	if($imgexist){
		($type,$h,$w) = &image_getsize("$imgdir$imgfile");
		$prod[14]="$h,$w,$imgfile";
	}
	
	if($imgdel){
		($h,$w,$imgfile) = split(/\,/ , $prod[14]);
		unlink("$imgdir$imgfile");
		$prod[14]="";
	}
	
	&dirlock;
	if(!open(IN,"$datafile")){
		&error_message('datafile error612i','data file access failed.');
	}
	@all=<IN>;
	close IN;
	
	@out=();
	foreach $i(@all){
		($r_no,$r_name,$r_pass,$r_dummy)=split(/\t/,$i);
		if($r_name eq $name && $pass eq $r_pass){
			if($name2 ne ""){
				$pass=$name2;
			}
			$pastdat=$i;
			$newdat="$r_no\t$name\t$pass\t$anon\t$race\t$relm\t$mainjob\t$supportjob\t$prof\t$handle\t$polhn\t$mail\t$home\t$comment2\t$point\t$class\t$timenow\t$comment\t$mrank\t$etc[0]\t$etc[1]\t$etc[2]\t$prod[0]\t$prod[1]\t$prod[2]\t$prod[3]\t$prod[4]\t$prod[5]\t$prod[6]\t$prod[7]\t$prod[8]\t$prod[9]\t$prod[10]\t$prod[11]\t$prod[12]\t$prod[13]\t$prod[14]\t$prod[15]\t$lev[0]\t$lev[1]\t$lev[2]\t$lev[3]\t$lev[4]\t$lev[5]\t$lev[6]\t$lev[7]\t$lev[8]\t$lev[9]\t$lev[10]\t$lev[11]\t$lev[12]\t$lev[13]\t$lev[14]\t$lev[15]\t$lev[16]\t$lev[17]\t$lev[18]\t$lev[19]\t\n";
			push(@out,$newdat);
		}
		else {
			push(@out,$i);
		}
	}
	
	if(!open(OUT,">$datafile")){
		&header;
		&error_message('datafile error627i','data file access failed.');
	}
	print OUT @out;
	close OUT;
	rmdir($lockdir);
	
	#RSS用履歴ファイル作成
	
	&compare_history;
	
	
	$historybase="PROFED\t$name\t$name profile modify\t$rsstime\t$no\t$message\t$rh\t$addr\t\n";
	&add_history;
	
	&set_cookie;
	&reload_header;
	if($language ne "English"){
		print "<table width=100%><TR bgcolor=$indexcolor><TD>修正終了</TD></TR></table>";
		print "<a href=$script>MemberList Top</a><BR>";
		print "修正を行いました。自動的にトップページへ戻ります。<BR>";
	}
	else {
		print "<table width=100%><TR bgcolor=$indexcolor><TD>Information modified</TD></TR></table>";
		print "Automatically move top page.<BR>";
	}

}

######################
#login_enter & login_modify
######################



sub prof_skill{

	if(($anon ne "on") || ($anon_mode != 1 )){
		
		#################
		#-- 以下、スキル表示機能で追加した部分 
		
		if ($skill_visible) {
			
			($tempskill,$tempws)=split( /\//,$etc[2]);
			@skill = split( /\,/, $tempskill );
#			@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 ($FORM{'skilldetail'} eq "") {
				
				print "<table cellpading=0 width=100% class=tbl><TR bgcolor=$indexcolor><TH width=".(100 / ($#skilllist+2))."%></TH>";
				for ($j=0;$j<$#skilllist+1;$j++){
					print "<TH width=".(100 / ($#skilllist+2))."%>$skilllist[$j]</TH>";
				}
				print "</TR>";
				print "<TR$bgn><TH width=".(100 / ($#skilllist+2))."% bgcolor=$indexcolor>Now</TH>";
				for ($j=0;$j<$#skilllist+1;$j++){
					if ($skillmax[$j] > int($skill[$j])) {
						print "<td width=".(100 / ($#skilllist+2))."% align=center>$skill[$j]</td>";
					}
					else {
						print "<td width=".(100 / ($#skilllist+2))."% align=center><font color=blue>$skill[$j]</font></td>";
					}
				}
				print "</TR>";
				print "<TR bgcolor='$skillcolor'><TH width=".(100 / ($#skilllist+2))."% bgcolor=$indexcolor>Cap</TH>";
				for ($j=0;$j<$#skilllist+1;$j++){
					print "<td width=".(100 / ($#skilllist+2))."% align=center>";
					print $skillmax[$j];
					print "</td>";
				}
				print "</TR>";
				print "<TR$bgn><TH width=".(100 / ($#skilllist+2))."% bgcolor=$indexcolor>Job</TH>";
				for ($j=0;$j<$#skilllist+1;$j++){
					print "<td width=".(100 / ($#skilllist+2))."% align=center>";
					print $joblist[$skillmaxjob[$j]];
					print "</td>";
				}
				
				if($language ne "English"){
					print "</TR></table><a href=$script?function=profdetail\&name=$name\&skilldetail=true#skill>ジョブごとの詳細キャップを表\示する。</a><hr>";
				}
				else {
					print "</TR></table><a href=$script?function=profdetail\&name=$name\&skilldetail=true#skill>Show skill limit detail</a><hr>";
				}
				
			}
			elsif ($FORM{'skilldetail'} eq "true") {
				
				print "<table cellpading=0 width=100% class=tbl><TR bgcolor=$indexcolor><TH width=".(100 / ($#skilllist+2))."%></TH>";
				for ($j=0;$j<$#skilllist+1;$j++){
					print "<TH width=".(100 / ($#skilllist+2))."%>$skilllist[$j]</TH>";
				}
				print "</TR>";
				print "<TR$bgn><TH width=".(100 / ($#skilllist+2))."% bgcolor=$indexcolor>Now</TH>";
				for ($j=0;$j<$#skilllist+1;$j++){
					if ($skillmax[$j] > int($skill[$j])) {
						print "<td width=".(100 / ($#skilllist+2))."% align=center>$skill[$j]</td>";
					}
					else {
						print "<td width=".(100 / ($#skilllist+2))."% align=center><font color=blue>$skill[$j]</font></td>";
					}
				}
				print "</TR>";
				for ($k=0;$k<$job_max;$k++){
					if (int($lev[$k]) > 0) {
						print "<TR$bgn><TH width=".(100 / ($#skilllist+2))."% bgcolor=$indexcolor>$joblist[$k]</TH>";
						for ($j=0;$j<$#skilllist+1;$j++){
							if ($skillmaxjob[$j] == $k) {
								print "<td width=".(100 / ($#skilllist+2))."% align=center bgcolor='$skillcolor'>";
							}
							else {
							print "<td width=".(100 / ($#skilllist+2))."% align=center>";
							}
							$skillcap = expr_skillcap($k, $j, $lev[$k]);
							if ($skillcap > 0) {
								if ($skillcap > int($skill[$j])) {
									print $skillcap;
								}
								else {
									print "<font color=blue>$skillcap</font>";
								}
							}
							print "</td>";
						}
						print "</TR>";
					}
				}
				
				if($language ne "English"){
					print "</table><a href=$script?function=profdetail\&name=$name#skill>詳細キャップ表\示をやめる。</a>&nbsp;&nbsp;<a href=$script?function=profdetail\&name=$name\&skilldetail=rank#skill>スキルランクを表\示する。</a><hr>";
				}
				else {
					print "</table><a href=$script?function=profdetail\&name=$name#skill>Exit detail info</a>&nbsp;&nbsp;<a href=$script?function=profdetail\&name=$name\&skilldetail=rank#skill>Show skill rank</a><hr>";
				}
			
			}
			elsif ($FORM{'skilldetail'} eq "rank") {
				
				print "<table cellpading=0 width=100% class=tbl><TR bgcolor=$indexcolor><TH width=".(100 / ($#skilllist+2))."%></TH>";
				for ($j=0;$j<$#skilllist+1;$j++){
					print "<TH width=".(100 / ($#skilllist+2))."%>$skilllist[$j]</TH>";
				}
				print "</TR>";
				print "<TR$bgn><TH width=".(100 / ($#skilllist+2))."% bgcolor=$indexcolor>Now</TH>";
				for ($j=0;$j<$#skilllist+1;$j++){
					if ($skillmax[$j] > int($skill[$j])) {
						print "<td width=".(100 / ($#skilllist+2))."% align=center>$skill[$j]</td>";
					}
					else {
						print "<td width=".(100 / ($#skilllist+2))."% align=center><font color=blue>$skill[$j]</font></td>";
					}
				}
				print "</TR>";
				for ($k=0;$k<$job_max;$k++){
					if (int($lev[$k]) > 0) {
						print "<TR$bgn><TH width=".(100 / ($#skilllist+2))."% bgcolor=$indexcolor>$joblist[$k]</TH>";
						for ($j=0;$j<$#skilllist+1;$j++){
							$skillrank = substr($skillrank[$k],$j * 2, 2);
							print "<td width=".(100 / ($#skilllist+2))."% align=center>";
							if ($skillrank eq "_ ") {
								print "\&nbsp;";
							}
							else {
								print "<font color=blue>$skillrank</font>";
							}
							print "</td>";
						}
						print "</TR>";
					}
				}
				if($language ne "English"){
					print "</table><a href=$script?function=profdetail\&name=$name\&skilldetail=true#skill>ランク表\示をやめる。</a><hr>";
				}
				else {
					print "</table><a href=$script?function=profdetail\&name=$name\&skilldetail=true#skill>Exit rank info</a><hr>";
				}
				
			}
		}
		
		#-- スキル表示機能で追加した部分ここまで 
		#################
	}
}



sub prof_meritpoint{
	
	##メリポ表示（仮） mpoint.plで$prod[12]に表示用データを作成している
	if($language ne "English"){
		print "<center><table cellpading=0 width=70% class=tbl><TR bgcolor=$indexcolor><TH colspan=4>メリットポイント</TH></TR>";
	}
	else {
		print "<center><table cellpading=0 width=70% class=tbl><TR bgcolor=$indexcolor><TH colspan=4>Merit point</TH></TR>";
	}
	print "$prod[12]\n";
	print "</table></center>";
	
	##メリポ表示ここまで
	
}


sub prof_customfield{

##カスタムフィールド

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

	print "<table cellpading=0 width=100% class=tbl><TR bgcolor=$indexcolor>";

	for($j=1;$j<$#custom_field+1;$j++){
		print "<TH>$custom_field[$j]</TH>";
	}
	print "</TR><TR$bgn>";

	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>";
		}
	}
	print "</TR></table>\n";
}

sub prof_levelbox{
#ジョブレベル合成スキル表示

	if(($anon ne "on") || ($anon_mode != 1 )){
		
		if($class_edit==0){
			$class =~ s/&lt;/</g;
			$class =~ s/&gt;/>/g;
		}
		
		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>$index[1]</TH><TH width=10% rowspan=3>$index[2]</TH><TH width=5% rowspan=2>$index[3]</TH><TH width=5% rowspan=2>$index[4]</TH><TH width=5% rowspan=2>$index[5]</TH><TH width=5% rowspan=2>$index[6]</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%>$joblist[$j]</TH>";
			}
			else {
				print "<TH> </TH>";
			}
		}
		
		print "<TR bgcolor=$indexcolor>";
		for ($j=0;$j<$maxcell;$j++){
			$jn=$j+22;
			if($j<$prod_max){
			    print "<TH width=2%>$prodlist[$j]</TH>";
		    }
		    elsif ($j == $prod_max) {
		        print "<TH colspan=3>Next Exp</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>";
		
		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>$no</TD><TD rowspan=3 align=center>$class</TD><TD rowspan=3>$name</TD><TD rowspan=2 align=center>";
		if($iconuse eq "yes"){
			print "<img src=$icondir$facelist[$race]$facetypelist[$etc[0]]\.gif>";
		}
		else {
			print "$racelist[$race]";
		}
		print "</TD><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>　</TD>";
				}
			}
		}
		else {
			for ($j=0;$j<$maxcell+1;$j++){
				print"<TD align=center>-</TD>";
			}
		}
		$date=substr($time,0,8);
		
		print "<TR bgcolor='$skillcolor'>";
		
		if(($anon ne "on") || ($anon_mode != 1 )){
			
			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-1){
					$bg=" bgcolor=$color[$prod_r[$j]]";
					print "<TD$bg align=center title='$ranklist[$prod_r[$j]]'>$prod[$j]</TD>";
				}
				if($j==$prod_max-1){
					($syn,@synt)=split(/\,/, $prod[9] );
					$temprank = sprintf( "%d", $syn / 10 );
					$bg=" bgcolor=$color[$temprank]";
					print "<TD$bg align=center title='$ranklist[$temprank]'>$syn</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>-</TD>";
			}
		}
		
		print "</TR>";
		
		print "<TR$bgn><TD colspan=".($job_max+5).">$comment</TD></TR>";
		print "</table>";
		
	} # anon mode on
	#ジョブレベル合成スキル表示部終了


}


sub prof_box{
	
	##プロフィールBOX
	
	if($prof ne "off"){
		if($language ne "English"){
			print "<table cellpading=0 width=100% class=tbl><TR bgcolor=$indexcolor><TH colspan=3>$name さんのプロフィール</TH></TR>";
			
			if($prod[14]){
				($h,$w,$prod[14])=split(/\,/,$prod[14]);
				if($h>$w){
					if($h>200){
						$w=int($w/$h*200);
						$h=200;
					}
				}
				else {
					if($w>200){
						$h=int($h/$w*200);
						$w=200;
					}
				}
				print "<TR><TD rowspan=6 width=200 align=center valign=center><a href='$putdir$prod[14]'><img src='$putdir$prod[14]' border=0 width='$w' height='$h'></a></TD>";
			}
			else {
				print "<TR>";
			}
			print "<TD bgcolor=$indexcolor width=20%>ハンドル</TD><TD bgcolor=$profcolor>$handle</TD></TR>\n";
			print "<TR><TD bgcolor=$indexcolor width=20%>POLハンドル</TD><TD bgcolor=$profcolor>$polhn</TD></TR>\n";
			print "<TR><TD bgcolor=$indexcolor width=20%>e-mail</TD><TD bgcolor=$profcolor><a href='mailto:$mail'>$mail</a></TD></TR>\n";
			print "<TR><TD bgcolor=$indexcolor width=20%>ホームページ</TD><TD bgcolor=$profcolor><a href='$home' target='_blank'>$home</a></TD></TR>\n";
			print "<TR><TD bgcolor=$indexcolor width=20%>コメント</TD><TD bgcolor=$profcolor>$comment2</TD></TR>\n";
			print "</table>";
		}
		else {
			print "<table cellpading=0 width=100% class=tbl><TR bgcolor=$indexcolor><TH colspan=2>$name 's profile</TH></TR>";
			if($prod[14]){
				($h,$w,$prod[14])=split(/\,/,$prod[14]);
				if($h>$w){
					if($h>200){
						$w=int($w/$h*200);
						$h=200;
					}
				}
				else {
					if($w>200){
						$h=int($h/$w*200);
						$w=200;
					}
				}
				print "<TR><TD rowspan=6 width=200 align=center valign=center><a href='$putdir$prod[14]'><img src='$putdir$prod[14]' border=0 width='$w' height='$h'></a></TD>";
			}
			else {
				print "<TR>";
			}
		
			print "<TR><TD bgcolor=$indexcolor width=20%>Handlename</TD><TD bgcolor=$profcolor>$handle</TD></TR>\n";
			print "<TR><TD bgcolor=$indexcolor width=20%>POL Handlename</TD><TD bgcolor=$profcolor>$polhn</TD></TR>\n";
			print "<TR><TD bgcolor=$indexcolor width=20%>e-mail</TD><TD bgcolor=$profcolor><a href='mailto:$mail'>$mail</a></TD></TR>\n";
			print "<TR><TD bgcolor=$indexcolor width=20%>Homepage</TD><TD bgcolor=$profcolor><a href='$home' target='_blank'>$home</a></TD></TR>\n";
			print "<TR><TD bgcolor=$indexcolor width=20%>Comment</TD><TD bgcolor=$profcolor>$comment2</TD></TR>\n";
			print "</table>";
		}
		
	}
	else {
		if($language ne "English"){
			print "<table cellpading=0 width=100% class=tbl><TR bgcolor=$indexcolor><TH>$name さんのプロフィールは非公開となっています。</TH></TR></table>";
		}
		else {
			print "<table cellpading=0 width=100% class=tbl><TR bgcolor=$indexcolor><TH>$name 's profile is closed.</TH></TR></table>";
		}
		
	}
	##プロフィールBOXここまで
	
}


#個人プロフ・日記表示メイン
# prof_box プロフィールBOX
# prof_detail 詳細プロフィール
# prof_levelbox レベル関連表示
# show_dairy 日記表示


sub prof {
	
	print "<a name='top'>";
	print "<center><table width=600 class=tbl>";
	
	print "<tr bgcolor=$titlebg><td><b class=title>$guild_name Member List<b></td><th>Profile : $name</th>";
	
	&make_salt;
	
	print "<tr><td colspan=3>$menux[3]<a href='$homepage'>$menux[1]</a> / ";
	print "<a href=$script?function=faq>$menux[2]</a> / ";
	print "<a href=$script?$salt>$menux[4]</a> / ";
	if($bbspage){
		print "  <a href='$bbspage'>$menux[0]</a>";
	}
	print "</td></tr>";
	
	
	print <<"EOM";
<tr><form method=post enctype='multipart/form-data'  action=$script><td><input type=hidden name=function value=login>
Login :
name<input type=text name=name size=14 value=$c_name>
pass<input type=password name=pass size=8 value=$c_pass><input type=submit name=function value='$button[0]'>
<input type=hidden name=name2 value='$name'>
EOM
	if(!$diaryallow){
		print "<input type=submit name=function value='$button[1]'>";
	}
	if($key_avail){
		print "<input type=submit name=function value='regist_word'>";
	}
	if($mes_avail){
		print "<BR>Message : <input type=submit name=function value='send'> to '$name'";
	}
	print <<"EOM";
</td></form>
<form method=post enctype='multipart/form-data'  action=$script>
<td align=right>
<input type=hidden name=function value='new'>
EOM
	
	if($reg_mode==0){
		print "<input type=password name=gpass>";
	}
	print "<input type=submit value='$button[2]'>";
	print "</td></form></tr></table></center><br>";
	
	
	if(!open(IN,"$datafile")){
		&error_message('datafile error2098','data file access failed.');
	}
	@all=<IN>;
	close IN;
	
	$match="";
	foreach $i(@all){
			 ($r_no,$r_name,$r_pass,$r_dummy)=split(/\t/,$i);
		if($r_name eq $name){
				$match=$i;
		}
	}
	if($match eq ""){
		&header;
		&error_message('id/pass error','access failed.');
	}

	($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/,$match);

	@prod_r = split(/,/,$etc[1]);
	
	if($function eq "profdetail"){
	
		if($language ne "English"){
			@templabel=('日記を読む','レベル・合成スキル','プロフィール','ミッション進行度','武器・魔法スキル','メリットポイント','↑');
		}
		else {
			@templabel=('Read Diary','Level,Synthesis','Profile','Mission Progress','Weapon,Magic Skill','Meritpoint','[top]');
		}
		
		if($name eq $c_name){
			$bgn=" bgcolor=$mydata";
		}
		else {
			$bgn=" bgcolor=$otherdata";
		}
	
		print "	<a href='$script?function=prof&name=$name'>$templabel[0]</a><HR>";
		print "<a href=#level>$templabel[1]</a> <a href=#box>$templabel[2]</a> <a href=#mission>$templabel[3],$custom_field[0]</a> <a href=#skill>$templabel[4]</a> <a href=#mpoint>$templabel[5]</a>";
		if($name eq $c_name){
			$bgn=" bgcolor=$mydata";
		}
		print "<HR><a name='level'>$templabel[1]<div align=right><a href='#top'>$templabel[6]</a></div>";
		&prof_levelbox;
		print "<HR><a name='box'>$templabel[2]<div align=right><a href='#top'>$templabel[6]</a></div>";
		&prof_box;
		print "<HR><a name='mission'>$templabel[3],$custom_field[0]<div align=right><a href='#top'>$templabel[6]</a></div>";
		&prof_mission2;
		print "<HR><a name='skill'>$templabel[4]<div align=right><a href='#top'>$templabel[6]</a></div>";
		&prof_skill;
		print "<a name='mpoint'>$templabel[5]<div align=right><a href='#top'>$templabel[6]</a></div>";
		&prof_meritpoint;
	
	
	}  else { #prof
		if($language ne "English"){
			print "	<a href='$script?function=profdetail&name=$name'>詳細なプロフィールを確認する</a><BR>";
		}
		else {
			print "	<a href='$script?function=profdetail&name=$name'>Show Detail Profile</a><BR>";
		}
		&show_diary;
	
	}
	
	
} #end of sub prof

sub write_images{
	$fnt="";
	$imgno="1";
	foreach $upfilename (@upfiles){

		$shortupfilename = $1 if $upfilename =~ /[\\|\/]?([0-9a-zA-Z_\.]+)$/;
		if($language ne "English"){
			if( length($upfile{$upfilename}) > $maxsize){
				&header;
				&error_message("ファイルサイズが大きすぎます。","");
			}
		}
		else {
			if( length($upfile{$upfilename}) > $maxsize){
				&header;
				&error_message("Too mach file size.","");
			}
		}

		($filename,$fileexst) = ($1,$2) if $shortupfilename =~ /(.*)\.(\w+)$/;
		$fileexst=lc($fileexst);
		$a1=0;
		foreach(@permitup){
			if ($_ eq $fileexst){
				$a1=1;last;
			}
		}
		if($language ne "English"){
			if(!($a1)) {
				&header;
				&error_message("拡張子 $fileexst はアップが許可されていません($in{'upct'})。","");
			}
		}
		else {
			if(!($a1)) {
				&header;
				&error_message("extension $fileexst is not allowed to upload($in{'upct'}).","");
			}
		}
		
		open(IMGOUT,">$imgdir$name$maxno\_$imgno.$fileexst");
		binmode(IMGOUT);
		print IMGOUT $upfile{$upfilename};
		close(IMGOUT);
		push(@fnt,"$name$maxno\_$imgno.$fileexst");
		$imgexist=1;
		$imgno++;
	}
	$fnt=join(",", @fnt);
}


sub write_diary{

	$diaryfile="$diarydir$name.$diaryletter";
	$imgexist=0;

	if(!open(IN,"$datafile")){
		&header;
		&error_message('datafile error2249','data file access failed.');
	}
	@all=<IN>;
	close IN;

	$match="";
	foreach $i(@all){
		($r_no,$r_name,$r_pass,$r_dummy)=split(/\t/,$i);
		if($r_name eq $name && $pass eq $r_pass){
			$match=$i;
		}
	}
	if($match eq ""){
		&header;
		&error_message('id/pass error','access failed.');
	}

	if ($mode eq "write"){
		if($language ne "English"){
			if($body eq ""){
				&header;
				&error_message('本文がありません','');
			}
		}
		else {
			if($body eq ""){
				&header;
				&error_message('Message is blank.','');
			}
		}
		
		if (!open(DB,"$diaryfile")) {
			@lines=();
		}
		@lines = <DB>;
		close(DB);
		
		($maxno,$dummy1,$dummy2,$dummy3)=split(/\t/,$lines[0]);
		$maxno++;
		#あげ対策
		$maxno=time();
		
		&write_images;
		
		#キーワード対応、新規日記
		if($key_avail){
			&jcode'convert(*body,'euc');
			
			$count=1;
			$mcount=0;
			foreach $i(@keyword){
				($km,$keyno)=split(/\t/,$i);
				&jcode'convert(*km,'euc');
				
				$body =~ s/$km/<a href=keyword\/$keyno\.html target='_blank'>$km<\/a>/g;
				if($& eq $km){
					$mes='';
					&update_keyword;
				}
				
				$count++;
			}
				
			&jcode'convert(*body,'sjis');
		}
		#キーワード対応ここまで追加
		
		@lines=reverse(@lines);
		push(@lines,"$maxno\t$today2\t$title\t$body\t$fnt\t\t\n");
		@lines=reverse(@lines);
		
		@out=();
		$count=0;
		foreach $i(@lines){
			if($count<$diarymax){
				push(@out,$i);
				$count++;
			}
		}
		if (!open(OUT,">$diaryfile")) {
			&header;
			&error_message('filesystem error','access failed.');
		}
		print OUT @out;
		close(OUT);
		chmod 0666,$diaryfile;
		
		if(!open(IN,"$datafile")){
			&error_message('datafile error2315','data file access failed.');
		}
		@all=<IN>;
		close IN;
		
		@out=();
		foreach $i(@all){
			($no,$r_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);
			$lev[15] =~ s/\n//g;
			$lev[16] =~ s/\n//g;
			if($r_name eq $name){
				push(@out,"$no\t$r_name\t$pass\t$anon\t$race\t$relm\t$mainjob\t$supportjob\t$prof\t$handle\t$polhn\t$mail\t$home\t$comment2\t$point\t$class\t$timenow\t$comment\t$mrank\t$etc[0]\t$etc[1]\t$etc[2]\t$prod[0]\t$prod[1]\t$prod[2]\t$prod[3]\t$prod[4]\t$prod[5]\t$prod[6]\t$prod[7]\t$prod[8]\t$prod[9]\t$prod[10]\t$prod[11]\t$prod[12]\t$prod[13]\t$prod[14]\t$prod[15]\t$lev[0]\t$lev[1]\t$lev[2]\t$lev[3]\t$lev[4]\t$lev[5]\t$lev[6]\t$lev[7]\t$lev[8]\t$lev[9]\t$lev[10]\t$lev[11]\t$lev[12]\t$lev[13]\t$lev[14]\t$lev[15]\t$lev[16]\t$lev[17]\t$lev[18]\t$lev[19]\t\n");
			}
			else {
				push(@out,$i);
			}
		}
		
		if(!open(OUT,">$datafile")){&header; &error_message('datafile error2329','data file access failed.');}
		print OUT @out;
		close OUT;
		
		#RSS用履歴ファイル作成
		$historybase="DWRITE\t$name\t$title\t$rsstime\t$maxno\t$body\t$rh\t$addr\t\n";
		&add_history;
		
		&reload_header;
		if($language ne "English"){
			print "<table width=100%><TR bgcolor=$indexcolor><TD>書き込み終了</TD></TR></table>";
			print "<a href=$script>MemberList Top</a><BR>";
			print "日記を書き込みました。自動的にトップページに戻ります<BR>";
		}
		else {
			print "<table width=100%><TR bgcolor=$indexcolor><TD>Writing finished.</TD></TR></table>";
			print "Writing diray is done. Go back to top page.<BR>";
		}
	
	}
	elsif ($mode eq "oekaki"){
		&header;
		if($language ne "English"){
			print "<table width=100%><TR bgcolor=$indexcolor><TD>日記を書き込みます</TD></TR></table>";
		}
		else {
			print "<table width=100%><TR bgcolor=$indexcolor><TD>Diary Writing Mode</TD></TR></table>";
		}
		
		print "<a href='$script'>Go Top</a><BR>";
		
		print <<"EOM";
<APPLET
CODEBASE=.
ARCHIVE="BBSPainter.jar"
CODE="Main.class"
WIDTH=700
HEIGHT=450
>
<PARAM NAME="comment" VALUE="body=コメント=!">
<PARAM NAME="image" VALUE="upfile1">

<PARAM NAME="action" VALUE="$script">
<PARAM NAME="enctype" VALUE="multipart/form-data">
<PARAM NAME="form1" VALUE="title=タイトル=!=$today2">
<PARAM NAME="param1" VALUE="name=$name">
<PARAM NAME="param2" VALUE="pass=$pass">
<PARAM NAME="param3" VALUE="function=$button[1]">
<PARAM NAME="param4" VALUE="mode=write">
<PARAM NAME="param5" VALUE="submit=送信">
<param name="size" value="320,240">
<param name="return.URL" value="./$script">
</APPLET>
<div align=right>BBS Painter by <a href="http://www.geocities.co.jp/SiliconValley-SanJose/8609/" target="_blank">ば科学的愛情</a></div>
EOM
	}
	else {
		&header;
		if($language ne "English"){
			print "<table width=100%><TR bgcolor=$indexcolor><TD>日記を書き込みます</TD></TR></table>";
		}
		else {
			print "<table width=100%><TR bgcolor=$indexcolor><TD>Diary Writing Mode</TD></TR></table>";
		}
		
		print "<a href='$script'>Go Top</a><BR>";
		
		
		print "<form method=post enctype='multipart/form-data'  action=$script><input type=hidden name=name value=$name><input type=hidden name=pass value=$pass><input type=hidden name=function value=$button[1]><input type=hidden name=mode value=write>\ntitle<BR><input type=text name=title size=80 value='$today2'><BR>body<BR><textarea name=body cols=80 rows=10></textarea><BR>";
		if($language ne "English"){
			if($imgallow == 1){
				for ($i=1; $i <= $imgmax; $i++){
					print "画像$i<input type='file' name='upfile$i'><BR>";
				}
			}
		}
		else {
			if($imgallow == 1){
				for ($i=1; $i <= $imgmax; $i++){
					print "Image$i<input type='file' name='upfile$i'><BR>";
				}
			}
		}
		
		print"<input type=submit value=write></form>";
	}	
}

sub show_diary {

	$diaryfile="$diarydir$name.$diaryletter";
	if($diarybg ne ""){
		$dbg=" bgcolor=$diarybg";
	}
	
	if (!open(DB,"$diaryfile")) { 
		if($language ne "English"){
			print "<HR><table cellpading=0 width=100% class=tbl><TR bgcolor=$indexcolor><TH>$name さんの日記はありません。</TH></TR></table>";
		}
		else {
			print "<HR><table cellpading=0 width=100% class=tbl><TR bgcolor=$indexcolor><TH>$name 's diray doesn't exist.</TH></TR></table>";
		}
		
	}
	else {
		@lines = <DB>;
		close(DB);
		if($language ne "English"){
			print "<HR><center><a href='$script?name=$name&function=prof&page=all'>Diary Index</a><HR></center><table cellpading=0 width=100% class=tbl><TR bgcolor=$indexcolor><TH>$name さんの日記。($showmax件表\示）</TH></TR></table><BR>";
		}
		else {
			print "<HR><center><a href='$script?name=$name&function=prof&page=all'>Diary Index</a><HR></center><table cellpading=0 width=100% class=tbl><TR bgcolor=$indexcolor><TH>$name 's diary($showmax articles）</TH></TR></table><BR>";
		}
		
		if($page ne "all"){
			print "<table cellspacing=0 cellpading=0 width=100% class=tbl>";
			
			$min=($page-1)*$showmax-1;
			$max=$page*$showmax;
			
			$count=0;
			foreach $i (@lines){
				($rno,$today2,$title,$body,$imgexist,$res)=split(/\t/,$i);
				if( ($mode eq "" && $count>$min && $count<$max )|| ($mode ne "" && $mode == $rno) ){
					if(($name eq $c_name) && ($pass eq $c_pass)){
						if($language ne "English"){
								print "<TR bgcolor=$indexcolor><TD align=left><B> $title <a href='$script?name=$name&function=prof&mode=$rno'>(open)</a>　<a href='$script?name=$name&pass=$pass&function=editdiary&no=$rno'>[修正・削除]</a></B></TD><TD align=right>$today2($rno)</TD></TR>";
						}
						else {
								print "<TR bgcolor=$indexcolor><TD align=left><B> $title <a href='$script?name=$name&function=prof&mode=$rno'>(open)</a> <a href='$script?name=$name&pass=$pass&function=editdiary&no=$rno'>[edit/delete]</a></B></TD><TD align=right>$today2($rno)</TD></TR>";
						}
						
					}
					else {
							print "<TR bgcolor=$indexcolor><TD align=left><B> $title<a href='$script?name=$name&function=prof&mode=$rno'>(open)</a></B></TD><TD align=right>$today2($rno)</TD></TR>";
					}
					
					 $body =~ s/(https?|ftp|gopher|telnet|whois|news)\:([\w|\:\!\#\$\%\=\&\-\^\`\\\|\@\~\[\{\]\}\;\+\*\,\.\?\/]+)/<a href=\"$1\:$2\" target=\"_blank\">$1\:$2<\/a>/ig;
					
					print "<form method=post enctype='multipart/form-data'  action=$script><TR><TD$dbg colspan=2>";
					if($imgexist ne ""){
						print "<table><TR valign=top><TD>";
						@imgfiles = split(/,/,$imgexist);
						foreach $imgfile(@imgfiles){
							($type,$h,$w) = &image_getsize("$imgdir$imgfile");
							if($h>$w){
								if($h>200){	$w=int($w/$h*200);$h=200; }
							}
							else {
								if($w>200){	$h=int($h/$w*200);$w=200; }
							}
							
							print "<a href='$putdir$imgfile' target='_blank'><img src='$putdir$imgfile' height='$h' width='$w'  border=0 alt='クリックで拡大'></a><BR>";
						}
						print "</TD><TD>$body</TD></TR></table><HR>";
						
					}
					else {
						print "$body<HR>";
					}
					if($res ne ""){
							print "<font color='$rescolor'>$res</font><HR>";
					}
					
					if($diaryres){
						if($language ne "English"){
							print "名前<input type=text size=10 name=name value='$c_name'><textarea name=body cols=80 rows=2></textarea><input type=hidden name=function value=resdiary><input type=hidden name=name2 value='$name'><input type=hidden name=no value=$rno><input type=submit value='レス'>";
						}
						else {
							print "Name<input type=text size=10 name=name value='$c_name'><textarea name=body cols=80 rows=2></textarea><input type=hidden name=function value=resdiary><input type=hidden name=name2 value='$name'><input type=hidden name=no value=$rno><input type=submit value='Res'>";
						}
						
					}
					print "</TD></TR></form>";
				}
				$count++;
			}
			if($mode eq ""){
				if($page>1){
					$flag++;
					$bpage=$page-1;
					if($language ne "English"){
						$before="<a href='$script?function=prof&name=$name&page=$bpage'>前のページ</a>";
					}
					else {
						$before="<a href='$script?function=prof&name=$name&page=$bpage'>former page</a>";
					}
				}
				if($count>$max){
					$flag++;
					$page++;
					if($language ne "English"){
						$after="<a href='$script?function=prof&name=$name&page=$page'>次のページ</a>";
					}
					else {
						$after="<a href='$script?function=prof&name=$name&page=$page'>next page</a>";
					}
				}
				if($flag){
					print "<TR bgcolor=#CCCCFF><TD colspan=2> </TD></TR>";
					print "<TR><TD colspan=2>$before ";
					print "$after</TD></TR>";
				}
			}
			
			print "</table>";
		} #page=all
		else {
			
			@all="";
			foreach $i (@lines){
				($rno,$today2,$title,$body,$imgexist,$res)=split(/\t/,$i);
				if($today2 =~ /^[0-9][0-9]\/[0-9][0-9]\s(.*)/){
					$today2="  $today2";
				}
				push(@all,"$today2\t$rno\t$title\t$body\t$imgexist\t$res\n");
			}
			@lines=reverse(sort(@all));
			foreach $i (@lines){
				($rno,$today2,$title,$body,$imgexist,$res)=split(/\t/,$i);
				if($rno ne ""){
					print "<a href='$script?name=$name&function=prof&mode=$today2'>$title($rno)</a><BR>\n";
				}
			}
		}
	}
}
sub res_diary{
	
	if($language ne "English"){
		if($body eq ""){
			&header;
			&error_message('本文がありません','');
		}
		if($name eq ""){
			&header;
			&error_message('名前がありません','');
		}
		if ($body !~ /[\x81-\x9A]/ && $denyeng){
			&header;
			&error_message('アルファベットのみの書き込みは禁止されています。','');
		}
	}
	else {
		if($body eq ""){
			&header;
			&error_message('no text','');
		}
		if($name eq ""){
			&header;
			&error_message('no name','');
		}
	}
	&word_ban;
	
	if( $body =~ /<BR>/) {
		$body="<BR>$body<BR>";
	}

	$diaryfile="$diarydir$name2.$diaryletter";

	&dirlock;

	if (!open(DB,"$diaryfile")) { 
		&header;
		if($language ne "English"){
			print "<HR><table cellpading=0 width=100% class=tbl><TR bgcolor=$indexcolor><TH>$name さんの日記はありません。</TH></TR></table>";
		}
		else {
			print "<HR><table cellpading=0 width=100% class=tbl><TR bgcolor=$indexcolor><TH>$name's diary is not exist.</TH></TR></table>";
		}
	}
	else {
		@lines = <DB>;
		close(DB);
		foreach $i(@lines){
			($r_no,$r_today,$r_title,$r_body,$r_img,$r_res)=split(/\t/,$i);
			if($no !=$r_no){
				push(@out,$i);
			}
			else {
				$r_res =~ s/\n//g;
				$r_res.="$name &gt; $body ($today2)<BR>";
				$r_body =~ s/\n//g; #旧バージョン対策

				if($sage == 0){
					push(@out,"$r_no\t$r_today\t$r_title\t$r_body\t$r_img\t$r_res\t\n");
				}
				else {
					$ageline="$r_no\t$r_today\t$r_title\t$r_body\t$r_img\t$r_res\t\n";
				}
			}
		}
		if($sage !=0){
			unshift(@out,$ageline);
		}
		
		if (!open(OUT,">$diaryfile")) {
			&header;
			&error_message('filesystem error','access failed.');
		}
		print OUT @out;
		close(OUT);
		
		#RSS用履歴ファイル作成
		$rsstime="20$year-$mon-$mday"."T$hour:$min:00+09:00";
		$historybase="RESDIA\t$name $name2\t$timenow\t$rsstime\t$no\t$body\t$rh\t$addr\t\n";
		&add_history;
		
		
		if(!open(IN,"$datafile")){&error_message('datafile error2480','data file access failed.');}
		@all=<IN>;
		close IN;
		
		@out=();
		foreach $i(@all){
			($no,$r_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);
			$lev[15] =~ s/\n//g;
			$lev[16] =~ s/\n//g;
			if($r_name eq $name2){
				push(@out,"$no\t$r_name\t$pass\t$anon\t$race\t$relm\t$mainjob\t$supportjob\t$prof\t$handle\t$polhn\t$mail\t$home\t$comment2\t$point\t$class\t$timenow\t$comment\t$mrank\t$etc[0]\t$etc[1]\t$etc[2]\t$prod[0]\t$prod[1]\t$prod[2]\t$prod[3]\t$prod[4]\t$prod[5]\t$prod[6]\t$prod[7]\t$prod[8]\t$prod[9]\t$prod[10]\t$prod[11]\t$prod[12]\t$prod[13]\t$prod[14]\t$prod[15]\t$lev[0]\t$lev[1]\t$lev[2]\t$lev[3]\t$lev[4]\t$lev[5]\t$lev[6]\t$lev[7]\t$lev[8]\t$lev[9]\t$lev[10]\t$lev[11]\t$lev[12]\t$lev[13]\t$lev[14]\t$lev[15]\t$lev[16]\t$lev[17]\t$lev[18]\t$lev[19]\t\n");
			}
			else {
				push(@out,$i);
			}
		}
		
		if(!open(OUT,">$datafile")){
			&header;
			&error_message('datafile error2494','data file access failed.');
		}
		print OUT @out;
		close OUT;
		
		rmdir($lockdir);
		
		&reload_header2;
		if($language ne "English"){
			print "<table width=100%><TR bgcolor=$indexcolor><TD>書き込み終了</TD></TR></table>";
			print "<a href=$script>MemberList Top</a><BR>";
			print "自動的に戻ります<BR>";
		}
		else {
			print "<table width=100%><TR bgcolor=$indexcolor><TD>Writing finished.</TD></TR></table>";
			print "Automatically back former page.<BR>";
		}
		
	}

}

sub edit_diary{

	$diaryfile="$diarydir$name.$diaryletter";

	if(!open(IN,"$datafile")){
		&header;
		&error_message('datafile error2511','data file access failed.');
	}
	@all=<IN>;
	close IN;

	$match="";
	foreach $i(@all){
		($r_no,$r_name,$r_pass,$r_dummy)=split(/\t/,$i);
		if($r_name eq $name && $pass eq $r_pass){
			$match=$i;
		}
	}
	if($match eq ""){
		&header;
		&error_message('id/pass error','access failed.');
	}
	
	if ($mode eq "del"){
	
		&dirlock;
	
		if (!open(DB,"$diaryfile")) { 
			&header;
			print "<HR><table cellpading=0 width=100% class=tbl><TR bgcolor=$indexcolor><TH>$name さんの日記はありません。</TH></TR></table>";
			rmdir($lockdir);
		}
		else {
			@lines = <DB>;
			close(DB);
			foreach $i(@lines){
				($r_no,$r_today,$r_title,$r_body,$r_imgexist,$r_res)=split(/\t/,$i);
				if($no !=$r_no){
					push(@out,$i);
				}
				else {
					unlink("$imgdir$r_imgexist");
				}
			}
			
			if (!open(OUT,">$diaryfile")) {
				&header;
				&error_message('filesystem error','access failed.');
			}
			print OUT @out;
			close(OUT);
			
			if(!open(IN,"$datafile")){
				&error_message('datafile error2549','data file access failed.');
			}
			@all=<IN>;
			close IN;
			
			@out=();
			foreach $i(@all){
				 ($no,$r_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);
				$lev[15] =~ s/\n//g;
				$lev[16] =~ s/\n//g;
				if($r_name eq $name){
					push(@out,"$no\t$r_name\t$pass\t$anon\t$race\t$relm\t$mainjob\t$supportjob\t$prof\t$handle\t$polhn\t$mail\t$home\t$comment2\t$point\t$class\t$timenow\t$comment\t$mrank\t$etc[0]\t$etc[1]\t$etc[2]\t$prod[0]\t$prod[1]\t$prod[2]\t$prod[3]\t$prod[4]\t$prod[5]\t$prod[6]\t$prod[7]\t$prod[8]\t$prod[9]\t$prod[10]\t$prod[11]\t$prod[12]\t$prod[13]\t$prod[14]\t$prod[15]\t$lev[0]\t$lev[1]\t$lev[2]\t$lev[3]\t$lev[4]\t$lev[5]\t$lev[6]\t$lev[7]\t$lev[8]\t$lev[9]\t$lev[10]\t$lev[11]\t$lev[12]\t$lev[13]\t$lev[14]\t$lev[15]\t$lev[16]\t$lev[17]\t$lev[18]\t$lev[19]\t\n");
				}
				else {
					push(@out,$i);
				}
			}
			
				if(!open(OUT,">$datafile")){
					&header;
					&error_message('datafile error2563','data file access failed.');
				}
				print OUT @out;
				close OUT;
				
				rmdir($lockdir);
				
				#RSS用履歴ファイル作成
				$historybase="DERASE\t$name\t$title\t$rsstime\t$no\t$body\t$rh\t$addr\t\n";
				&add_history;
				
				&reload_header;
				print "<table width=100%><TR bgcolor=$indexcolor><TD>削除終了</TD></TR></table>";
				print "<a href=$script>MemberList Top</a><BR>";
				print "記事No.$noを削除しました。自動的にトップページに戻ります<BR>";
			
				if(-z $diaryfile){
					print "日記が全て削除されました。<BR>";
					unlink($diaryfile);
				}
		}
	
	}
	elsif ($mode eq "modify"){
	
		if (!open(DB,"$diaryfile")) { 
			&header;
			print "<HR><table cellpading=0 width=100% class=tbl><TR bgcolor=$indexcolor><TH>$name さんの日記はありません。</TH></TR></table>";
			rmdir($lockdir);
		}
		else {
			@lines = <DB>;
			close(DB);

		$imgexist=0;
		if ($in{'upfile'} ne ""){
			$in{'upfilename'} = $1 if $in{'upfilename'} =~ /[\\|\/]?([0-9a-zA-Z_\.]+)$/;
			if( length($in{'upfile'}) > $maxsize){
				&header;
				&error_message("ファイルサイズが大きすぎます。","");
			}
		
			($filename,$fileexst) = ($1,$2) if $in{'upfilename'} =~ /(.*)\.(\w+)$/;
			$fileexst=lc($fileexst);
			$a1=0;
			foreach(@permitup){
				if ($_ eq $fileexst){$a1=1;last;}
			}
			if(!($a1)) {
				&header;
				&error_message("拡張子 $fileexst はアップが許可されていません($in{'upct'})。","");
			}
		
			$newname = "$name$no.$fileexst";
			if (-e "$imgdir$newname") {
				$fileno = 2;
				while (-e "$imgdir$name${no}_$fileno.$fileexst"){
					$fileno++;
				}
				$newname = "$name${no}_$fileno.$fileexst";
			}
		
			open(IMGOUT,">$imgdir$newname");
			binmode(IMGOUT);
			print IMGOUT $in{'upfile'};
			close(IMGOUT);
			$imgexist=1;
		}
		
		#キーワード対応（修正）
		if($key_avail){
			&jcode'convert(*body,'euc');
			
			$count=1;
			$mcount=0;
			foreach $i(@keyword){
				($km,$keyno)=split(/\t/,$i);
				&jcode'convert(*km,'euc');
				
				$body =~ s/$km/<a href=keyword\/$keyno\.html target='_blank'>$km<\/a>/g;
				if($& eq $km){
					$maxno=$no;$mes='(update)';
					&update_keyword;
				}
				
				$count++;
			}
				
			&jcode'convert(*body,'sjis');
		}
		#キーワード対応（ここまで）
		
		#レス修正時に$body2の後部に<BR>がない場合は追記する
		if($body2 ne "" && !($body2 =~ /<BR>$/)){
			$body2 ="$body2<BR>";
		}
		
		
		foreach $i(@lines){
			($r_no,$r_today,$r_title,$r_body,$r_imgexist,$r_res)=split(/\t/,$i);
			if($no==$r_no){
				$body =~ s/\n//g;
				$body2 =~ s/\n//g;
				$deleteimg = $FORM{'deleteimg'};
				@imgexists_n = ();
				@imgexists = split(/,/,$r_imgexist);
				foreach $imgfile (@imgexists) {
					if ($deleteimg eq $imgfile && $comment eq "delete") {
						unlink("$imgdir$deleteimg");
					}
					else {
						push(@imgexists_n, $imgfile);
					}
				}
				if ($imgexist) {
					push(@imgexists_n, $newname);
				}
				$r_imgexist = join(",", @imgexists_n);
				push(@out,"$no\t$today2\t$title\t$body\t$r_imgexist\t$body2\t\n");
			}
			else {
				push(@out,$i);
			}
		}
		
		if (!open(OUT,">$diaryfile")) {
			&header;
			&error_message('filesystem error','access failed.');
		}
		print OUT @out;
		close(OUT);
		rmdir($lockdir);
		
		#RSS用履歴ファイル作成
		$historybase="DMODIF\t$name\t$title\t$rsstime\t$no\t$body\t$rh\t$addr\t\n";
		&add_history;
		
		&reload_header;
		print "<table width=100%><TR bgcolor=$indexcolor><TD>修正終了</TD></TR></table>";
		print "<a href=$script>MemberList Top</a><BR>";
		print "日記を修正しました。自動的にトップページに戻ります<BR>";
		}
	}
	else {
		&header;
		if (!open(DB,"$diaryfile")) { 
			print "<HR><table cellpading=0 width=100% class=tbl><TR bgcolor=$indexcolor><TH>$name さんの日記はありません。</TH></TR></table>";
		}
		else {
			@lines = <DB>;
			close(DB);
			foreach $i (@lines){
				($r_no,$r_today,$r_title,$r_body,$r_imgexist,$r_res)=split(/\t/,$i);
				if($no==$r_no){	$hit=$i;}
			}
			if($hit eq ""){
				&header;
				&error_message('no such number','access failed.');
			}
			($r_no,$r_today,$r_title,$r_body,$r_imgexist,$r_res)=split(/\t/,$hit);
			print "<table width=100%><TR bgcolor=$indexcolor><TD>日記の修正・削除を行います</TD></TR></table>";
			
			print "<a href='$script'>Go Top</a><BR>";
		
			$r_body =~ s/<BR>/\n/g;
			$r_body =~ s/&lt;/</g;
			$r_body =~ s/&gt;/>/g;
		
			$r_body =~ s/<a[^>]*>//g;
			$r_body =~ s/<\/a>//g;
					
			print "<form method=post enctype='multipart/form-data' action=$script><input type=hidden name=name value=$name><input type=hidden name=pass value=$pass><input type=hidden name=function value=editdiary>\n";
			print "記事No. $no<BR>\n";
			print "title<BR>\n";
			print "<input type=text name=title size=80 value='$r_title'><BR>\n";
			print "body<BR>\n";
			print "<textarea name=body cols=80 rows=10>$r_body</textarea><BR>\n";
			print "res<BR>\n";
			
			$r_res =~ s/<BR>/\n/g;
			$r_res =~ s/&lt;/</g;
			$r_res =~ s/&gt;/>/g;
			$r_res =~ s/<a[^>]*>//g;
			$r_res =~ s/<\/a>//g;
			
			print "<textarea name=body2 cols=80 rows=10>$r_res</textarea><BR>";
			foreach $imgexist (split(/,/,$r_imgexist)) {
				print "<a href='$putdir$imgexist' target='_blank'><img src='$putdir$imgexist' height=150 width=200 border=0 alt='クリックで拡大'></a><input type=radio name=deleteimg value=$imgexist>選択<BR>";
			}
			if($r_imgexist ne ""){
				print "<input type=checkbox name=comment value=delete>選択した画像の消去<BR>";
			}
			print "画像を追加<input type='file' name='upfile'><br><br>";
			print "<select name=mode><option value=del>削除</option><option value=modify selected>修正</option></select>";
			print "<input type=submit value=submit>";
			print "<input type=hidden name=no value=$no>";
			print "</form>";
			
		}
	}
}



sub dirlock {
	
	if($lockdir eq ""){return;}
	
	if((-M $lockdir)>0.001){ #1分半ほどlockdirが存在している場合は強制的に削除
		rmdir($lockdir);
	}
	
	for ($i = 0; $i <= 20; $i++) {
		if (mkdir($lockdir, 0755)) {
			last;
		}
		else {
			sleep(1);
		}
	}
	
	$SIG{'TERM'} = $SIG{'PIPE'} = $SIG{'HUP'} = "sigexit";
	if($i == 20){
		&error_message('busy','now busy, please access later.');
	}
}

sub sigexit {
	rmdir($lockdir);
	exit(1); 
}

sub keitai {
	
	&make_salt;
	
	require('keitai.pl');
	&header_i;
	print "<a name='pagetop'>";
	print "$guild_name List<HR>";
	
	if($function eq "$button[0]"){
		&login_i;
	}
	elsif($function eq "mission"){
		&login_i;
	}
	elsif($function eq "prof"){
		&prof_i;
	}
	elsif($function eq "$button[1]"){
		if(!$diaryallow){
			&write_diary_i;
		}
	}
	elsif($function eq "new"){
		&new_regist_i;
	}
	elsif($function eq "diary"){
		&diary_i;
	}
	elsif($function eq "resdiary"){
		&res_diary_i;
		&diary_i;
	}
	elsif($function eq 'send' && $mes_avail == 1){
		&send_message_i;
	}
	elsif($function eq 'check' && $mes_avail == 1){
		&check_message_i;
	}
	elsif($function eq 'history'){
		&history_i;
	}
	else {
		&list_i;
	}
	
	&footer_i;
	exit;
}


sub make_salt{
	srand();
    $xx = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
        . "abcdefghijklmnopqrstuvwxyz"
        . "0123456789.";
    $salt = substr($xx, int(rand(63)), 1);
    $salt .= substr($xx, int(rand(63)), 1);
    $salt .= substr($xx, int(rand(63)), 1);
    $salt .= substr($xx, int(rand(63)), 1);
}

sub conv_zenkaku{
	for($j=0;$j<20;$j++){
		$lev[$j]=~ s/０/0/g;
		$lev[$j]=~ s/１/1/g;
		$lev[$j]=~ s/２/2/g;
		$lev[$j]=~ s/３/3/g;
		$lev[$j]=~ s/４/4/g;
		$lev[$j]=~ s/５/5/g;
		$lev[$j]=~ s/６/6/g;
		$lev[$j]=~ s/７/7/g;
		$lev[$j]=~ s/８/8/g;
		$lev[$j]=~ s/９/9/g;
	}
	for($j=0;$j<9;$j++){
		$prod[$j]=~ s/０/0/g;
		$prod[$j]=~ s/１/1/g;
		$prod[$j]=~ s/２/2/g;
		$prod[$j]=~ s/３/3/g;
		$prod[$j]=~ s/４/4/g;
		$prod[$j]=~ s/５/5/g;
		$prod[$j]=~ s/６/6/g;
		$prod[$j]=~ s/７/7/g;
		$prod[$j]=~ s/８/8/g;
		$prod[$j]=~ s/９/9/g;
	}
}


sub rss_write {
	
	if(!open(IN,"$historyfile")){
		&header;
		&error_message('datafile error2449','data file access failed.');
	}
	@list=<IN>;
	close IN;
	
	@list=reverse(@list);
	
	$items="";
	$item="";
	$count=0;
	
	foreach $i(@list){
	
		if($count <10){
			
				($dummy,$rname,$rtitle,$rtime,$rmaxno,$rbody)=split(/\t/,$i);
			
				$rbody =~ s/&/&amp;/g;
				$rbody =~ s/"/&quot;/g;
				$rbody =~ s/'/&apos;/g;
				$rbody =~ s/&amp;lt;/&lt;/g;
				$rbody =~ s/&amp;gt;/&gt;/g;
			
			
			if($dummy eq "DWRITE"){
				$rstitle="$rtitle : $rname さんの日記[$rmaxno]更新";
				$rsource="$rname/diary/$rmaxno";
				$link="$site$script?function=prof&amp;name=$rname&amp;mode=$rmaxno";
			}
			if($dummy eq "NEWREG"){
				$rstitle="$rtitle : $rname さん[$rmaxno]新規登録";
				$rsource="$rname/newreg/$rmaxno";
				$link="$site$script?function=profdetail&amp;name=$rname";
			}
			if($dummy eq "DMODIF"){
				$rstitle="$rtitle : $rname さんの日記[$rmaxno]修正";
				$rsource="$rname/dmodif/$rmaxno";
				$link="$site$script?function=prof&amp;name=$rname&amp;mode=$rmaxno&amp;mod";
			}
			if($dummy eq "PROFED"){
				$rstitle="$rname さんプロフィール変更";
				$rsource="$rname/profed/$rmaxno";
				$link="$site$script?function=profdetail&amp;name=$rname";
				$rbody =~ s/\//<BR>/g;
			}
			if($dummy eq "DERASE"){
				$rstitle="$rname さんの日記[$rmaxno]が削除";
				$rsource="$rname/derase/$rmaxno";
				$link="$site$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="$site$script?function=prof&amp;name=$n2&amp;no=$rmaxno&amp;$rtitle";
			}
			if($dummy eq "MERIED"){$rstitle="$rname さんメリットポイント変更";
				$rsource="$rname/profed/$rmaxno";
				$link="$site$script?function=profdetail&amp;name=$rname";
				$rbody =~ s/\//<BR>/g;
			}
			if($dummy eq "CUSTED"){$rstitle="$rname さん$custom_field[0]変更";
				$rsource="$rname/profed/$rmaxno";
				$link="$site$script?function=profdetail&amp;name=$rname";
				$rbody =~ s/\//<BR>/g;
			}
			
			#DWRITE\t$name\t$title\t$rsstime\t$maxno\t$body\t\n
			#NEWREG\t$name\tNewMember\t$rsstime\t$no\t\t\n
			#DMODIF\t$name\t$title\t$rsstime\t$no\t$body\t\n
			#PROFED\t$name\tPROFED\t$rsstime\t$no\t\t\n
			#DERASE\t$name\t$title\t$rsstime\t$no\t$body\t\n
			#RESDIA\t$name $name2\t$title\t$rsstime\t$no\t$body\t\n
			
			$rbodyrdf = $rbody;
			$rbodyrdf =~ s/<BR>/\n/g;
			$items .="    <rdf:li rdf:resource=\"$link\"/>\n";
			$item .="<item rdf:about=\"$link\">\n<title>$rstitle</title>\n  <link>$link</link>\n  <description>$rtitle $rbodyrdf</description>\n  <dc:date>$rtime</dc:date>\n</item>\n";
			$rbodyatom = $rbody;
			$rbodyatom =~ s/<BR>/<br\/>\n/g;
			$atom_item .= <<"EOM";
	<entry>
		<title type="text"  xml:lang="ja">$rstitle</title>
		<id>$rsource</id>
		<updated>$rtime</updated>
		<link rel="alternate" type="text/html" href="$link" />
		<category term="FF11" label="FF11"/>
		<author>
			<name>$rname</name>
		</author>
		<summary type="text" xml:lang="ja">$rstitle</summary>
		<content type="html" xml:lang="ja">
			<![CDATA[\n $rtitle<br/>\n $rbodyatom\n ]]>
		</content>
	</entry>
EOM
		}
		$count++;
		
	}

	if( $rdfname ne '' ){
		if(!open(OUT,">$rdfname")){
			&header;
			&error_message('datafile error2422','data file access failed.');
		}
		
		print OUT <<"EOM";
<?xml version="1.0" encoding="Shift_JIS" ?>
<rdf:RDF 
  xmlns="http://purl.org/rss/1.0/"
  xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#" 
  xmlns:dc="http://purl.org/dc/elements/1.1/"
  xml:lang="ja">

<channel rdf:about="$channnelurl">
  <title>$topic</title>
  <link>$site$script</link>
  <dc:date>$rsstime</dc:date>
  <description>$topic</description>
  <items>
   <rdf:Seq>
$items
   </rdf:Seq>
  </items>
</channel>
$item
</rdf:RDF>
EOM
	
		close OUT;	
		chmod 0666,$rdfname;
	}
	
	if( $atomname ne '' ){
		if(!open(OUT,">$atomname")){
			&header;
			&error_message('datafile error2422','data file access failed.');
		}
		
		print OUT <<"EOM";
<?xml version="1.0" encoding="Shift_JIS" ?>
<feed xmlns="http://www.w3.org/2005/Atom">
	<title type="text">$topic</title>
	<link rel="self" type="application/atom+xml" href="$site$rdfname.atom.xml"/>
	<link rel="alternate" type="text/html" href="$site$script" />
	<updated>$rsstime</updated>
	<generator uri="$site$script" version="$version">
		guildmember.cgi
	</generator>
	<rights type="text">$guild_name</rights>
	<author>
		<name>$guild_name</name>
		<uri>$site$script</uri>
	</author>
	<id>$site$script</id>
	$atom_item
</feed>
EOM
		close OUT;	
		chmod 0666,$rdfname;
	}
}

sub update_keyword{
	
	$htmlfile="$keydir$keyno\.html";
	
	if(!open(IN,$htmlfile)){
		&header;
		&error_message('datafile error2626','data file access failed.');
	}
	@html=<IN>;
	close IN;
	
	@outhtml=();
	foreach $i(@html){
		if($i =~ /<!--History/){
			push(@outhtml,$i."<a href='$scriptdir$script?function=prof&name=$name&mode=$maxno' target='_blank'>$name($timenow)$mes</a><BR>\n");
		}
		else {
			push(@outhtml,$i);
		}
	}
	
	if(!open(OUT,">$htmlfile")){
		&header;
		&error_message('datafile error2626','data file access failed.');
	}
	print OUT @outhtml;
	close OUT;
}

sub c_check{
	
	if( $ktai and !($keitai_check) ){
		$c_match = 1;
		return 1;
	}
	$c_match=1;
	if($cookie_check){
		if(!open(IN,"$datafile")){
			&error_message('datafile error482','data file access failed.');
		}
		@all=<IN>;
		close IN;
		$c_match=0;
		foreach $i(@all){
			($dummy,$t_name,$t_pass,$dummy)=split(/\t/,$i);
			if($t_name eq $c_name && $t_pass eq $c_pass){
				$c_match=1;
			}
		}
	}
	
	#セッションチェック
	
	if($session_check){
		if($session_id ne ""){
			if($session_id ne &gmr_ses::check_session($session_id)){
				$c_match=0;
			}
		}
		else {
			$c_match=0;
		}
		
	}

}




sub add_history{
	
	if($loghistory == 0){
		return;
	}
	
	if(!open(IN,"$historyfile")){
		&header;
		&error_message('datafile error2329','data file access failed.');
	}
	@all=<IN>;
	close IN;
		
	push(@all,$historybase);
	
	@output=();
	@all=reverse(@all);
	$count=0;
	foreach $i(@all){
		if($count<$logmax){
			push(@output,$i);
		}
		$count++;
	}
	@output=reverse(@output);
	
	if(!open(OUT,">$historyfile")){
		&header;
		&error_message('datafile error1872','data file access failed.');
	}
	print OUT @output;
	close OUT;

	if($rss_avail){
		&rss_write;
	}
}

sub prof_image{
	foreach $upfilename (@upfiles){
		$shortupfilename = $1 if $upfilename =~ /[\\|\/]?([0-9a-zA-Z_\.]+)$/;
		if($language ne "English"){
			if( length($upfile{$upfilename}) > $maxsize){
				&header;
				&error_message("ファイルサイズが大きすぎます。","");
			}
		}
		else {
			if( length($upfile{$upfilename}) > $maxsize){
				&header;
				&error_message("Too mach file size.","");
			}
		}

		($filename,$fileexst) = ($1,$2) if $shortupfilename =~ /(.*)\.(\w+)$/;
		$fileexst=lc($fileexst);
		$a1=0;
		foreach(@permitup){
			if ($_ eq $fileexst){
				$a1=1;
				last;
			}
		}
		if($language ne "English"){
			if(!($a1)) {
				&header;
				&error_message("拡張子 $fileexst はアップが許可されていません($in{'upct'})。","");
			}
		}
		else {
			if(!($a1)) {
				&header;
				&error_message("extension $fileexst is not allowed to upload($in{'upct'}).","");
			}
		}

		$imgfile="$name"."_prof.$fileexst";

		open(IMGOUT,">$imgdir$imgfile");
		binmode(IMGOUT);
		print IMGOUT $upfile{$upfilename};
		close(IMGOUT);
		$imgexist=1;
	}
}

sub ip_ban {

	local($flag)=0;
	foreach ( split(/\s+/, $denyhost) ) {
		s/(\W)/\\$1/g;
		s/\*/\.\*/g;
		if ($rh =~ /$_/i || $addr =~ /$_/i) { $flag=1; last; }
	}
	if ($flag) {
		&header;
		&error_message("アクセスを許可されていません",""); 
	}
}

sub word_ban {

	local($flag)=0;
	foreach ( split(/\s+/, $denyword) ) {
		s/(\W)/\\$1/g;
		s/\*/\.\*/g;
		if ($body =~ /$_/i ) { $flag=1; last; }
	}
	if ($flag) {
		&header;
		&error_message("アクセスを許可されていません",""); 
	}
}

sub send_message{

	if(!open(IN,"$datafile")){
		&header;
		&error_message('datafile error/system','data file access failed.');
	}
	@all=<IN>;
	close IN;

	$match="";
	foreach $i(@all){
		($r_no,$r_name,$r_pass,$r_dummy)=split(/\t/,$i);
		if($r_name eq $name && $pass eq $r_pass){
			$match=$i;
		}
	}
	if($match eq ""){
		&header;
		&error_message('id/pass error','access failed.');
	}
	
	if($mode eq "submit"){
		
		if($language ne "English"){
			if($body eq ""){&header;&error_message('本文がありません','');}
			if($name eq ""){&header;&error_message('名前がありません','');}
		}
		else {
			if($body eq ""){&header;&error_message('no text','');}
			if($name eq ""){&header;&error_message('no name','');}
		}
		
		#未読flag sender title body time
		
		$message="1\t$name\t$title\t$body\t$timenow\t\n";
		
		if(!open(IN,"$datafile")){
			&header;
			&error_message('datafile error/system','data file access failed.');
		}
		@all=<IN>;
		close IN;
	
		$match="";
		foreach $i(@all){
			($r_no,$r_name,$r_pass,$r_dummy)=split(/\t/,$i);
			if($r_name eq $name2){
					$match=$i;
			}
		}
		if($match eq ""){
			&header;
			&error_message('送信先が存在しません。','access failed.');
		}
		
		if(!open(OUT,">>$mesdir$name2.cgi")){
			&header;
			&error_message('datafile error1872','data file access failed.');
		}
		print OUT $message;
		close OUT;
		
		&header;
		print <<"EOM";
<table width=100%><TR bgcolor=$indexcolor><TD>メッセージを送信しました。</TD></TR></table>
<a href=$script>MemberList Top</a><BR>
<form method=post action=$script>
<input type=hidden name=function value=check>
<input type=hidden name=name value='$name'>
<input type=hidden name=pass value='$pass'>
<input type=submit value='戻る'>
</form>
EOM
	}
	else {
		&header;
		
		print "<table width=100%><TR bgcolor=$indexcolor><TD>$nameさんのメッセージ送信</TD></TR></table>";
		print "<a href=$script>MemberList Top</a><BR>";
		
		#mode eq replyの場合は
		
		if($mode eq "reply"){
			$title="Re: $title";
			$body="> $body";
			$body=~ s/<BR>/\n> /g;
		}
		
		print <<"EOM";
send message from '$name' to '$name2'<HR>
<form method=post action=$script>
title :<BR>
<input type=text name=title value='$title'><BR>
message<BR>
<textarea name=body cols=80 rows=5>$body</textarea>
<input type=hidden name=function value=send>
<input type=hidden name=mode value=submit>
<input type=hidden name=name value='$name'>
<input type=hidden name=name2 value='$name2'>
<input type=hidden name=pass value='$pass'>
<input type=submit value='send'>
</form>

EOM
	}
}

sub check_message{
	
	if(!open(IN,"$datafile")){
		&header;
		&error_message('datafile error/system','data file access failed.');
	}
	@all=<IN>;
	close IN;

	$match="";
	foreach $i(@all){
		($r_no,$r_name,$r_pass,$r_dummy)=split(/\t/,$i);
		if($r_name eq $name && $pass eq $r_pass){
			$match=$i;
		}
	}
	if($match eq ""){
		&header;
		&error_message('id/pass error','access failed.');
	}

	if(!open(IN,"$mesdir$name.cgi")){
		&header;
		&error_message('メッセージはありません。','');
	}
	@mes=<IN>;
	close IN;

	if($mode eq "read"){
		
		&header;
		
		print "<table width=100%><TR bgcolor=$indexcolor><TD>$name さんの受信メッセージ</TD></TR></table>";
		print "<a href=$script>MemberList Top</a><BR>";
		
		$count=0;
		@outmes=();
		foreach $i(@mes){
			print "<form method=post action=$script>";
			($read,$from,$title,$body,$time)=split(/\t/,$i);
			if($count == $no){
				print "Title:$title<BR>";
				print "From:$from<BR>";
				print "Time:$time<BR>";
				print "Message:<BR>$body<BR>";
				$body2=$body;
				$body2=~ s/<BR>/\n/g;
				$body2=~ s/"/&quot;/g;
				
				print <<"EOM";
<HR>
<form method=post action=$script>
<input type=hidden name=title value='$title'>
<input type=hidden name=body value="$body2">
<input type=hidden name=name value='$name'>
<input type=hidden name=name2 value='$from'>
<input type=hidden name=pass value='$pass'>
<input type=hidden name=function value='check'>
<input type=hidden name=no value='$count'>
<input type=submit name=mode value='delete'>
<input type=submit name=mode value='reply'><input type=submit name=mode value='back'></form>
EOM
				if($read ==1){
					$message="0\t$name(open)\t開封確認メッセージ\tこのメッセージは$timenowに開封されました。<BR>Title:$title<BR>Message:<BR>$body\t$timenow\t\n";
					if(!open(OUT,">>$mesdir$from.cgi")){
						&error_message('datafile error3354','data file access failed.');
					}
					print OUT $message;
					close OUT;
					$read=0;
				}
			}
			push(@outmes,"$read\t$from\t$title\t$body\t$time\t\n");
			$count++;
		}
		if(!open(OUT,">$mesdir$name.cgi")){
			&error_message('datafile error3316','data file access failed.');
		}
		print OUT @outmes;
		close OUT;


	}
	elsif($mode eq "reply"){
		&send_message;
	}
	else {
		&header;
		print "<table width=100%><TR bgcolor=$indexcolor><TD>$nameさんの送信メッセージチェック</TD></TR></table>";
		print "<a href=$script>MemberList Top</a><BR>";
	
		if($mode eq "delete"){
			$count=0;
			@outmes=();
			foreach $i(@mes){
				print "<form method=post action=$script>";
				($read,$from,$title,$body,$time)=split(/\t/,$i);
				if($count != $no){
					push(@outmes,"$read\t$from\t$title\t$body\t$time\t\n");
				}
				$count++;
			}
			if(!open(OUT,">$mesdir$name.cgi")){
				&error_message('datafile error3316','data file access failed.');
			}
			print OUT @outmes;
			close OUT;
			@mes=@outmes;
		
			print "メッセージを1件削除しました。<BR>";
		}
	
		@mes=reverse(@mes);
		$count=$#mes;
		print "<table border><TR bgcolor=$indexcolor><TH>未読</TH><TH>件名</TH><TH>送信者</TH><TH>時間</TH><TH>check</TH></TR>";
		foreach $i(@mes){
			print "<form method=post action=$script>";
			($read,$from,$title,$body,$time)=split(/\t/,$i);
			if($read){
				print "<TR bgcolor='$mydata'><TD>未読</TD><TD>$title</TD><TD>$from</TD><TD>$time</TD>";
			}
			else {
				print "<TR bgcolor='$otherdata'><TD>既読</TD><TD>$title</TD><TD>$from</TD><TD>$time</TD>";
			}
			print <<"EOM";
<TD>
<input type=hidden name=name value='$name'>
<input type=hidden name=pass value='$pass'>
<input type=hidden name=function value='check'>
<input type=hidden name=mode value='read'>
<input type=hidden name=no value='$count'>
<input type=submit value='read'></TD></TR></form>
EOM
			$count--;
		}
	print "</table>";
	}

}

sub compare_history{
	#ここでpastdatとnewdatの比較をして書き込みたいナ
	@past=split(/\t/,$pastdat);
	@new=split(/\t/,$newdat);
	@attrname=($index[0],@field[1..3],@field[5..8],@field[12..17],$field[9],$field[0],$index[0],$index[9],$field[10],$field[5],"合成称号","",@prodlist[0..9],'取得装備',@prod[11..15],@joblist[0..19]);
	@attrflag =(0,0,0,3,3,3,2,2,3,3,3,3,3,3,1,3,0,3,1,3,3,6,4,4,4,4,4,4,4,4,4,10,3,9,0,8,0,7,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5);
	#0 .. 表示せず
	#1 .. 表示
	#2 .. joblistで表示
	#3 .. 変更しましたで表示
	#4 .. 合成スキル
	#5 .. ジョブレベル
	#6 .. 戦闘／魔法スキル
	#7 .. ミッション進行度
	#8 .. メリットポイント
	#9 .. カスタムフィールド
	#10 . 練成スキル/テクニック
	if($language ne "English"){
			
		$message="プロフィールに変更がありました。";
		for($j=0;$j<$#past+1;$j++){
			if($past[$j] ne $new[$j]){
				if($attrflag[$j]==1){
					$message="$message/$attrname[$j]が$past[$j]→$new[$j]になりました。";
				}
				if($attrflag[$j]==2){
					$message="$message/$attrname[$j]が$joblist[$past[$j]]→$joblist[$new[$j]]に変わりました。";
				}
				if($attrflag[$j]==3){
					$message="$message/$attrname[$j]が変更されました。";
				}
				if($attrflag[$j]==4){
					$message="$message/$attrname[$j]スキルが$past[$j]→$new[$j]になりました。";
				}
				if($attrflag[$j]==5){
					$message="$message/$attrname[$j]のレベルが$past[$j]→$new[$j]になりました。";
				}
				if($attrflag[$j]==6){
					($temppastskill, $temppastws ) = split( /\//, $past[$j] );
					($tempnewskill, $tempnewws ) = split( /\//, $new[$j] );
					@pastskill=split(/,/,$temppastskill);
					@newskill=split(/,/,$tempnewskill);
					for($k=0;$k<$#pastskill+1;$k++){
						if( $pastskill[$k] ne $newskill[$k]){
							$message="$message/$skilllist[$k]スキルが$pastskill[$k]→$newskill[$k]になりました。";
						}
					}
					@pastws=split(//,$temppastws);
					@newws=split(//,$tempnewws);
					for($k=0;$k<=$#newws;$k++){
						if($pastws[$k] ne $newws[$k]){
							if( $newws[$k] ){
								( $wskill, $wname, $wtype, $wcond ) = split( /\,/, $mwslist[ $k ] );
								$message="$message/$wname習得が$maru[$newws[$k]]になりました。";
							}
						}
					}
				}
				if($attrflag[$j]==10){
					($pastsyn, @pastsynt ) = split( /\,/, $past[$j] );
					($newsyn , @newsynt  ) = split( /\,/, $new[$j] );
					if( $pastsyn ne $newsyn ){
						$message="$message/練成スキルが$pastsyn→$newsynになりました。";
					}
					for($k=0;$k<=$#synergytech;$k++){
						if( $pastsynt[$k] ne $newsynt[$k] ){
							$message="$message/$synergytech[$k]テクニックが$pastsynt[$k]→$newsynt[$k]になりました。";
						}
					}
				}
				if($attrflag[$j]==7){
					$message="$message/ミッション進行度に変更がありました。";
		
					@pastskill=split(/,/,$past[$j]);
					@newskill=split(/,/,$new[$j]);
					for($k=0;$k<$#newskill+1;$k++){
						if($pastskill[$k] ne $newskill[$k]){
		
							if($k==15){ #アトルガン
								$message="$message/アトルガンミッションが「$amlist[$pastskill[$k]]」→「$amlist[$newskill[$k]]」に。";
							}
							elsif($k==18){
								$message="$message/アルタナミッションが「$allist[$pastskill[$k]]」→「$allist[$newskill[$k]]」に。";
							}
							elsif($k==19){
								$message="$message/石の見る夢が「$addcplist[$pastskill[$k]]」→「$addcplist[$newskill[$k]]」に。";
							}
							elsif($k==20){
								$message="$message/戦慄！モグ祭りの夜が「$addmklist[$pastskill[$k]]」→「$addmklist[$newskill[$k]]」に。";
							}
							elsif($k==21){
								$message="$message/シャントット帝国の陰謀が「$addsslist[$pastskill[$k]]」→「$addsslist[$newskill[$k]]」に。";
							}
							elsif($k==22){
								$message="$message/カンパニエ叙勲が「$alrank[$pastskill[$k]]」→「$alrank[$newskill[$k]]」に。";
							}
							elsif($k==0){
								$message="$message/プロマシアミッションが「$pmlist[$pastskill[$k]]」→「$pmlist[$newskill[$k]]」に。";
							}
							elsif($k==1){
								$message="$message/ジラートミッションが「$jmlist[$pastskill[$k]]」→「$jmlist[$newskill[$k]]」に。";
							}
							elsif($k==2){
								$message="$message/サンドリアミッションが「$smlist[$pastskill[$k]]」→「$smlist[$newskill[$k]]」に。";
							}
							elsif($k==3){
								$message="$message/バストゥークミッションが「$bmlist[$pastskill[$k]]」→「$bmlist[$newskill[$k]]」に。";
							}
							elsif($k==4){
								$message="$message/ウインダスミッションが「$wmlist[$pastskill[$k]]」→「$wmlist[$newskill[$k]]」に。";
							}
							elsif($k==17){
								$message="$message/ナイズル島進行度が「$nzlist[$pastskill[$k]]」→「$nzlist[$newskill[$k]]」に。";
							}
							elsif($k>4 && $k<15) { #デュナミス
								$message="$message/$mlist[$k]が$maru[$pastskill[$k]]→$maru[$newskill[$k]]に。";
							}
							elsif($k==16){ #アサルト
								@pastaslt=split(//,$pastskill[$k]);
								@newaslt=split(//,$newskill[$k]);
								$pastaslt[0]=hex($pastaslt[0]);
								$newaslt[0]=hex($newaslt[0]);
								for($l=0;$l<$#newaslt+1;$l++){
									if($pastaslt[$l] != $newaslt[$l]){
										if($l==0){
											$message="$message/$aslist[$l]が$asrank[$pastaslt[$l]]→$asrank[$newaslt[$l]]に。";
										}
										else {
											$message="$message/$aslist[$l]が$maru[$pastaslt[$l]]→$maru[$newaslt[$l]]に。";
										}
									}
								}
							}
		
						}
					}
		
				}
				if($attrflag[$j]==8){
					$message="メリットポイントに変更がありました。";
					@pastskill=split(/,/,$past[$j]);
					@newskill=split(/,/,$new[$j]);
					for($k=0;$k<$#newskill+1;$k++){
						if($pastskill[$k] != $newskill[$k]){
							$message="$message/$m_name[$k]が$pastskill[$k]→$newskill[$k]になりました。";
						}
					}
				}
				if($attrflag[$j]==9){
					$message="$custom_field[0]に変更がありました。";
					@pastskill=split(/,/,$past[$j]);
					@newskill=split(/,/,$new[$j]);
					for($k=0;$k<$#pastskill+1;$k++){
						if($pastskill[$k] ne $newskill[$k]){
							if($custom_pulldown[$k]==0){
								$message="$message/$custom_field[$k]が$pastskill[$k]→$newskill[$k]になりました。";
							}
							elsif($custom_pulldown[$k]==1){
								$message="$message/$custom_field[$k]が".${"custom_list$k"}[$pastskill[$k]]."→".${"custom_list$k"}[$newskill[$k]]."になりました。";
							}
							else {
								$message="$message/$custom_field[$k]に変更がありました。";
							}
						}
					}
				}
			}	
		}
	}
	else {
		@attrname=($index[0],@field[1..3],@field[5..8],@field[12..17],$field[9],$field[0],$index[0],$index[9],$field[10],$field[5],"SynthesisRank","",@prodlist[0..15],@joblist[0..19]);
		$message="Profile was changed.";
		for($j=0;$j<$#past+1;$j++){
			if($past[$j] ne $new[$j]){
				if($attrflag[$j]==1){
					$message="$message/$attrname[$j] $past[$j] -> $new[$j]";
				}
				if($attrflag[$j]==2){
					$message="$message/$attrname[$j] changed from $joblist[$past[$j]] to $joblist[$new[$j]].";
				}
				if($attrflag[$j]==3){
					$message="$message/$attrname[$j] was changed.";
				}
				if($attrflag[$j]==4){
					$message="$message/$attrname[$j]Skill changed from $past[$j] to $new[$j].";
				}
				if($attrflag[$j]==5){
					$message="$message/$attrname[$j]Level changed from $past[$j] to $new[$j].";
				}
				if($attrflag[$j]==6){
					$message="$message/Skill was changed";
				}
				if($attrflag[$j]==7){
					$message="$message/Mission status was changed.";
				}
				if($attrflag[$j]==8){
					$message="$message/$custom_field[0] were changed.";
				}
				if($attrflag[$j]==10){
					($pastsyn, @pastsynt ) = split( /\,/, $past[$j] );
					($newsyn , @newsynt  ) = split( /\,/, $new[$j] );
					if( $pastsyn ne $newsyn ){
						$message="$message/Synergy skill changed from $pastsyn[$j] to $newsyn[$j].";
					}
					for($k=0;$k<=$#synergytech;$k++){
						if( $pastsynt[$k] ne $newsynt[$k] ){
							$message="$message/$synergytech[$k] technique level changed from $pastsynt[$k] to $newsynt[$k].";
						}
					}
				}
			}	
		}
	}
}

sub check_out{

	@temp=@out;
	@out=();
	foreach $i(@temp){
		if( !($i =~ /^1;/) ){
			push(@out,$i);
		}
	}
	push(@out,"1;\n");
}


sub prof_mission2{
	
	#アサルト進行度
	
	local(@templabel);
	
	if($language ne "English"){
		@templabel=('ミッション進行度','デュナミス','アサルト進行度')
	}
	else {
		@templabel=('Mission Progress','Dynamis','Assault Progress')
	}
	
	@mission = split(/,/,$prod[15]);
	@assault= split (//,$mission[16]);
	$assault[0]=hex($assault[0]);
	
	print "<center><table width=100%><TR><TD valign=top>";
	
	print "<table cellpading=0 width=100% class=tbl>";
	print "<TR bgcolor=$indexcolor><TH colspan=2>$templabel[0]</TH></TR>";
	
	
	print"<TR><TH bgcolor=$indexcolor>$mlist[21]</TH><TD$bgn align=center>$addsslist[$mission[21]]($mission[21])</TD></TR>";
	print"<TR><TH bgcolor=$indexcolor>$mlist[20]</TH><TD$bgn align=center>$addmklist[$mission[20]]($mission[20])</TD></TR>";
	print"<TR><TH bgcolor=$indexcolor>$mlist[19]</TH><TD$bgn align=center>$addcplist[$mission[19]]($mission[19])</TD></TR>";
	print"<TR><TH bgcolor=$indexcolor>$mlist[18]</TH><TD$bgn align=center>$allist[$mission[18]]($mission[18])</TD></TR>";
	print"<TR><TH bgcolor=$indexcolor>$mlist[22]</TH><TD$bgn align=center>$alrank[$mission[22]]($mission[22])</TD></TR>";
	print"<TR><TH bgcolor=$indexcolor>$mlist[15]</TH><TD$bgn align=center>$amlist[$mission[15]]($mission[15])</TD></TR>";
	print"<TR><TH bgcolor=$indexcolor>$mlist[0]</TH><TD$bgn align=center>$pmlist[$mission[0]]($mission[0])</TD></TR>";
	print"<TR><TH bgcolor=$indexcolor>$mlist[1]</TH><TD$bgn align=center>$jmlist[$mission[1]]($mission[1])</TD></TR>";
	print"<TR><TH bgcolor=$indexcolor>$mlist[2]</TH><TD$bgn align=center>$smlist[$mission[2]]($mission[2])</TD></TR>";
	print"<TR><TH bgcolor=$indexcolor>$mlist[3]</TH><TD$bgn align=center>$bmlist[$mission[3]]($mission[3])</TD></TR>";
	print"<TR><TH bgcolor=$indexcolor>$mlist[4]</TH><TD$bgn align=center>$wmlist[$mission[4]]($mission[4])</TD></TR>";
	
	print"<TR><TH bgcolor=$indexcolor colspan=2>$templabel[1]</TH></TR>";
	print "<TR><TD colspan=2>";
	print"<table cellpading=0 width=100%><TR bgcolor=$indexcolor><TH>San</TH><TH>Bas</TH><TH>Win</TH><TH>Jeu</TH><TH>Bcd</TH><TH>Xar</TH><TH>Val</TH><TH>Bub</TH><TH>Quf</TH><TH>Tav</TH></TR><TR>";
	for($j=5;$j<15;$j++){
		print "<TD$bgn align=center>$maru[$mission[$j]]</TD>";
	}
	print "</TR></table>";
	print "</TD></TR></table>";
	
	print "</TD>";
	
	#sample 2
	
	print "<TD valign=top>";
	
	print "<table cellpading=0 class=tbl width=100%>";
	print "<TR bgcolor=$indexcolor><TH colspan=8>$templabel[2]</TH></TR>";
	print "<TR$bgn><TD colspan=7 align=center>$assaultword[1]:$asrank[$assault[0]]</TD></TR>";
	print "<TR bgcolor=$indexcolor><TH>Rank</TH><TH>Leu</TH><TH>Mam</TH><TH>Leb</TH><TH>Per</TH><TH>Ilr</TH><TH>Nyz</TH></TR>";
	
	
	if($assault[0]>0){
		$bga=" bgcolor=$mydata";
	}
	else {
		$bga=" bgcolor=$otherdata";
	}
	if($assault[0]==0){
		print "<TR$bga><TD colspan=7><HR></TD></TR>";
	}
	print "<TR$bga><TD>$assaultword[0]</TD>";
	for($j=1;$j<6;$j++){
		print "<TD align=center title='$aslist[$j]'>$maru[$assault[$j]]</TD>";
	}
	print "<TD align=center>";
	if($mission[17]==0){
		print "$maru[0]";
	}
	else {
		print "$maru[1]";
	}
	
	print "</TR>";
	
	print "<TR$bga><TD>$asrank[1]</TD>";
	for($j=6;$j<19;$j=$j+3){
		print "<TD align=center title='$aslist[$j]'>$maru[$assault[$j]]</TD>";
	}
	print "<TD align=center>-</TD>";
	print "</TR>";
	
	if($assault[0]>1){
		$bga=" bgcolor=$mydata";
	}
	else {
		$bga=" bgcolor=$otherdata";
	}
	if($assault[0]==1){
		print "<TR$bga><TD colspan=7><HR></TD></TR>";
	}
	print "<TR$bga><TD>$asrank[2]</TD>";
	for($j=7;$j<20;$j=$j+3){
		print "<TD align=center title='$aslist[$j]'>$maru[$assault[$j]]</TD>";
	}
	print "<TD align=center>-</TD>";
	print "</TR>";
	
	if($assault[0]>2){
		$bga=" bgcolor=$mydata";
	}
	else {
		$bga=" bgcolor=$otherdata";
	}
	if($assault[0]==2){
		print "<TR$bga><TD colspan=7><HR></TD></TR>";
	}
	print "<TR$bga><TD>$asrank[3]</TD>";
	for($j=8;$j<21;$j=$j+3){
		print "<TD align=center title='$aslist[$j]'>$maru[$assault[$j]]</TD>";
	}
	print "<TD align=center>-</TD>";
	print "</TR>";
	
	if($assault[0]>3){
		$bga=" bgcolor=$mydata";
	}
	else {
		$bga=" bgcolor=$otherdata";
	}
	if($assault[0]==3){
		print "<TR$bga><TD colspan=7><HR></TD></TR>";
	}
	print "<TR$bga><TD>$asrank[4]</TD>";
	for($j=21;$j<30;$j=$j+2){
		print "<TD align=center title='$aslist[$j]'>$maru[$assault[$j]]</TD>";
	}
	print "<TD align=center>-</TD>";
	print "</TR>";
	
	if($assault[0]>4){
		$bga=" bgcolor=$mydata";
	}
	else {
		$bga=" bgcolor=$otherdata";
	}
	if($assault[0]==4){
		print "<TR$bga><TD colspan=7><HR></TD></TR>";
	}
	print "<TR$bga><TD>$asrank[5]</TD>";
	for($j=22;$j<31;$j=$j+2){
		print "<TD align=center title='$aslist[$j]'>$maru[$assault[$j]]</TD>";
	}
	print "<TD align=center>-</TD>";
	print "</TR>";
		
	if($assault[0]>5){
		$bga=" bgcolor=$mydata";
	}
	else {
		$bga=" bgcolor=$otherdata";
	}
	if($assault[0]==5){
		print "<TR$bga><TD colspan=7><HR></TD></TR>";
	}
	print "<TR$bga><TD>$asrank[6]</TD>";
	for($j=31;$j<40;$j=$j+2){
		print "<TD align=center title='$aslist[$j]'>$maru[$assault[$j]]</TD>";
	}
	print "<TD align=center>-</TD>";
	print "</TR>";
	
	if($assault[0]>6){
		$bga=" bgcolor=$mydata";
	}
	else {
		$bga=" bgcolor=$otherdata";
	}
	if($assault[0]==6){
		print "<TR$bga><TD colspan=7><HR></TD></TR>";
	}
	print "<TR$bga><TD>$asrank[7]</TD>";
	for($j=32;$j<41;$j=$j+2){
		print "<TD align=center title='$aslist[$j]'>$maru[$assault[$j]]</TD>";
	}
	print "<TD align=center>-</TD>";
	print "</TR>";
	
	if($assault[0]>7){
		$bga=" bgcolor=$mydata";
	}
	else {
		$bga=" bgcolor=$otherdata";
	}
	if($assault[0]==7){
		print "<TR$bga><TD colspan=7><HR></TD></TR>";
	}
	print "<TR$bga><TD>$asrank[8]</TD>";
	for($j=41;$j<46;$j++){
		print "<TD align=center title='$aslist[$j]'>$maru[$assault[$j]]</TD>";
	}
	print "<TD align=center>-</TD>";
	print "</TR>";
	
	if($assault[0]>8){
		$bga=" bgcolor=$mydata";
	}
	else {
		$bga=" bgcolor=$otherdata";
	}
	if($assault[0]==8){
		print "<TR$bga><TD colspan=8><HR></TD></TR>";
	}
	print "<TR$bga><TD>$asrank[9]</TD>";
	for($j=46;$j<51;$j++){
		print "<TD align=center title='$aslist[$j]'>$maru[$assault[$j]]</TD>";
	}
	print "<TD align=center>-</TD>";
	print "</TR>";
		
	if($assault[0]>9){
		$bga=" bgcolor=$mydata";
	}
	else {
		$bga=" bgcolor=$otherdata";
	}
	if($assault[0]==9){print "<TR$bga><TD colspan=8><HR></TD></TR>";}
	print "<TR$bga><TD>$asrank[10]</TD>";
	for($j=51;$j<56;$j++){
		print "<TD align=center title='$aslist[$j]'>$maru[$assault[$j]]</TD>";
	}
	print "<TD align=center>-</TD>";
	print "</TR>";
	
		
	#ナイズル
	if($mission[17]>0){
		print "<TR$bgn><TH bgcolor=$indexcolor>$assaultword[7]</TH><TD colspan=6	 align=center>$nzlist[$mission[17]]</TD></TR>";
	}
	
	
	print "</table>";
	
	
	print "</TD>";
	
	print "<TD valign=top>";
	
	##カスタムフィールド

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

	print "<table cellpading=0 width=100% class=tbl><TR bgcolor=$indexcolor><TH colspan=2>$custom_field[0]</TH>";

	for($j=1;$j<$#custom_field+1;$j++){
		if($custom_pulldown[$j]==0){
			print "<TR><TH bgcolor=$indexcolor>$custom_field[$j]</TH><TD$bgn>$custom[$j]</TD></TR>";
		}
		else {
			print "<TR><TH bgcolor=$indexcolor>$custom_field[$j]</TH><TD$bgn>".${"custom_list$j"}[$custom[$j]]."</TD></TR>";
		}
	}
	print "</TR></table>\n";
	
	
	print "</TD>";
	print "</TR></table></center>";
	
	
	##ミッション進行度ここまで
	
}