package SWResource_atoz;

#----------------------------------------
# AtoZ
#----------------------------------------

sub GetRSChr {
	my $sow = $_[0];

	my $maker = $sow->{'cfg'}->{'CID_MAKER'};
	my $admin = $sow->{'cfg'}->{'CID_ADMIN'};

	# キャラの表示順
	my @order = (
		'a', 'b', 'c', 'd', 'e',
		'f', 'g', 'h', 'i', 'j',
		'k', 'l', 'm', 'n', 'o',
		'p', 'q', 'r', 's', 't',
		'u', 'v', 'w', 'x', 'y',
		'z',
		'2a', '2c', '2d','2e','2k',
                '2w',
	);

	# キャラの肩書き
	my %chrjob = (
		'a'   => '復讐者',
		'b'   => '屠殺人',
		'c'   => '議長',
		'd'   => '悪食',
		'e'   => '技師',
		'f'   => '狂徒',
		'g'   => '将軍',
		'h'   => '史家',
		'i'   => '異端審問員',
		'j'   => '道化',
		'k'   => '殺人鬼',
		'l'   => '解放者',
		'm'   => '傭兵',
		'n'   => '貴種',
		'o'   => '孤児',
		'p'   => '最下層民',
		'q'   => '皮肉屋',
		'r'   => '支配者',
		's'   => '賢人',
		't'   => '短気',
		'u'   => '葬儀屋',
		'v'   => '渡り鳥',
		'w'   => '奇人',
		'x'   => '処刑執行人',
		'y'   => '臆病',
		'z'   => '徴税官',
		'2a'  => '管理者',
		'2c'  => '特使',
		'2d'  => '医師',
                '2e'  => '伝道者',
　　　　　　　　'2k'  => '騎士',
　　　　　　　　'2w'  => '魔術師',
		$maker => '',
		$admin => '',
	);

	# キャラの名前
	my %chrname = (
		'a'   => 'アベル',
		'b'   => 'ブリギット',
		'c'   => 'クラウス',
		'd'   => 'ドロテア',
		'e'   => 'エミリオ',
		'f'   => 'フェデリカ',
		'g'   => 'ガスパロ',
		'h'   => 'ヘイニ',
		'i'   => 'イグナツィオ',
		'j'   => 'イトゥカ',
		'k'   => 'クレイグ',
		'l'   => 'レア',
		'm'   => 'マイルズ',
		'n'   => 'ナイーナ',
		'o'   => 'オラフ',
		'p'   => 'パドマ',
		'q'   => 'クゥエンティン',
		'r'   => 'ローニア',
		's'   => 'セス',
		't'   => 'タマラ',
		'u'   => 'ウルリック',
		'v'   => 'ヴァレリー',
		'w'   => 'ヲルト',
		'x'   => 'ズィーア',
		'y'   => 'イェン',
		'z'   => 'セナイダ',
		'2a'  => 'アカシャ',
		'2c'  => 'クロエ',
		'2d'  => 'デミトリ',
　　　　　　　　'2e'  => 'エンデ',
　　　　　　　　'2k'  => 'カルラ',
　　　　　　　　'2w'  => 'ウェルナー',
		$maker    => '天のお告げ',
		$admin    => '彼方からの声',
	);

	# キャラ名頭文字（人狼譜出力用）
	my %chrnameinitial = (
		'a'   => 'アベ',
		'b'   => 'ブリ',
		'c'   => 'クラ',
		'd'   => 'ドロ',
		'e'   => 'エミ',
		'f'   => 'フェ',
		'g'   => 'ガス',
		'h'   => 'ヘイ',
		'i'   => 'イグ',
		'j'   => 'イト',
		'k'   => 'クレ',
		'l'   => 'レア',
		'm'   => 'マイ',
		'n'   => 'ナイ',
		'o'   => 'オラ',
		'p'   => 'パド',
		'q'   => 'クゥ',
		'r'   => 'ロー',
		's'   => 'セス',
		't'   => 'タマ',
		'u'   => 'ウル',
		'v'   => 'ヴァ',
		'w'   => 'ヲル',
		'x'   => 'ズィ',
		'y'   => 'イェ',
		'z'   => 'セナ',
		'2a'  => 'アカ',
		'2c'  => 'クロ',
		'2d'  => 'デミ',
　　　　　　　　'2e'  => 'エン',
　　　　　　　　'2k'  => 'カル',
　　　　　　　　'2w'  => 'ウェ',
	);

	# ダミーキャラの発言
	my @npcsay =(
		'',
	);

	my @expression = (
	);

	my %charset = (
		CAPTION        => 'AtoZ',
		NPCID          => '',
		CHRNAME        => \%chrname,
		CHRJOB         => \%chrjob,
		CHRNAMEINITIAL => \%chrnameinitial,
		ORDER          => \@order,
		NPCSAY         => \@npcsay,
		IMGBODYW       => 90,
		IMGBODYH       => 130,
		DIR            => "$sow->{'cfg'}->{'DIR_IMG'}/atoz",
		EXT            => '.png',
		BODY           => '',
		FACE           => '',
		GRAVE          => '',
		WOLF           => '',
		EXPRESSION     => \@expression,
		LAYOUT_NAME    => 'right',
	);

	return \%charset;
}

1;