キャラチップの設定ファイルについて

こんな感じで設定するんだよ、っていう解説みたいなの欲しいよな〜って。
思ったので作ってみました。

以下、設定ファイルのソースになります。 Cumorieセットの場合。
#が先頭についている行は読み込まないので、自分用のメモ等は#をつけて書き込んであります。/**/みたいなもんです。
解説部分はこの色に変えてあります。

package SWResource_cumorie;

#----------------------------------------
# Cumorieセット
# (セット名と作者をここに表記)
# by milk_sugar
#----------------------------------------

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

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

# キャラの表示順
#000や01、ab等、使用する画像の名前をここに一律で順番どおりに入れます。
#Cumorieは000~042なのでソレを。pinkはおまけのモモちゃんのファイル名です。

my @order = (
'000', '001', '002', '003', '004',
'005', '006', '007', '008', '009',
'010', '011', '012', '013', '014',
'015', '016', '017', '018', '019',
'020', '021', '022', '023', '024',
'025', '026', '027', '028', '029',
'030', '031', '032', '033', '034',
'035', '036', '037', '038', '039',
'040', '041', '042', 'pink',
);

# キャラの肩書き
#↑で上げた画像一つ一つの肩書きを記入していきます。
my %chrjob = (
'000' => '草食系',
'001' => '迷い人',
'002' => '案内人',
'003' => '貴族の娘',
'004' => '騎士見習い',
'005' => '傲慢',
'006' => '傭兵',
'007' => '捕虜',
'008' => '狼娘',
'009' => '妖精',
'010' => '兔娘',
'011' => '赤い狐',
'012' => '緑の狸',
'013' => '女学生',
'014' => '魔女見習い',
'015' => '帽子屋',
'016' => '調教師',
'017' => '幻獣遣い',
'018' => '混血',
'019' => '絡操士',
'020' => '心眼',
'021' => '赤の騎士',
'022' => '白の騎士',
'023' => 'お菓子屋',
'024' => '医者',
'025' => '検事',
'026' => '修理工',
'027' => '予知能力',
'028' => '兔のネタ娘',
'029' => '物出し少年',
'030' => '腹話術師',
'031' => 'シスター',
'032' => '神父',
'033' => '鼠王子',
'034' => '水の巫女',
'035' => 'メイド',
'036' => '自動人形',
'037' => 'ドワーフ',
'038' => 'ヨツユビ',
'039' => '鳥遣い',
'040' => '狩猟の民',
'041' => '家庭教師',
'042' => '夢の民',
'pink' => '',
$maker => '',
$admin => '',
#このmakerとadminは、makerが村建て発言、adminが管理人発言になります。
#キャラセットに合わせてここも変えたいという方は指定するといいかもしれません。


);

# キャラの名前
#今度は名前を。お察しの通り、この作業が一番面倒です。
#手入力になるので、もし余裕があればここだけでも設定ファイルが作ってあると楽かもしれません。
#(ファイルの種類はメモ帳でもなんでも)

my %chrname = (
'000' => 'ウシ',
'001' => 'カナ',
'002' => 'ユウキ',
'003' => 'ファリン',
'004' => 'ルカ',
'005' => 'モンファ',
'006' => 'ダリオ',
'007' => 'ヴィート',
'008' => 'チノ',
'009' => 'ルーマ',
'010' => 'キャロル',
'011' => 'カノコ',
'012' => 'アズキ',
'013' => 'リン',
'014' => 'クリーム',
'015' => 'アルレット',
'016' => 'レオ',
'017' => 'ロランド',
'018' => 'ユリウス',
'019' => 'ウルリク',
'020' => 'ラウラ',
'021' => 'アロイス',
'022' => 'ロイ',
'023' => 'ベリーア',
'024' => 'クラース',
'025' => 'ホルスト',
'026' => 'オスヴァルド',
'027' => 'カンナ',
'028' => 'ディタニー',
'029' => 'アンカ',
'030' => 'エゴマ',
'031' => 'セレスティーヌ',
'032' => 'スチュワート',
'033' => 'ティム',
'034' => 'スイレン',
'035' => 'ルイーズ',
'036' => 'マティアス',
'037' => 'ハムスター',
'038' => 'ハリネズミ',
'039' => 'ジャリル',
'040' => 'ネシャート',
'041' => 'シーラ',
'042' => 'イクセル',
'pink' => 'モモ',
$maker => '庭師(村建て人)',
$admin => '空からの声(管理人)',

);

# ダミーキャラの発言
#1行目がプロローグ、2行目が1日目のダミー発言です。
my @npcsay =(
'わふ…。人狼なんて大げさ。',
'……ぐぅ…。(すやすや)',
);

my @expression = (
);

my %charset = (
CAPTION => 'Cumorie',
#↑キャラセット名
NPCID => 'pink',
#↑ダミーの画像ファイル指定
CHRNAME => \%chrname,
CHRJOB => \%chrjob,
ORDER => \@order,
NPCSAY => \@npcsay,
IMGBODYW => 90,
#↑Wが横幅
IMGBODYH => 130,
#↑Hが縦幅 以下全部同じだと思ってください。
#BODYが発言欄、FACEが議事に乗る通常チップ、WOLFが赤(これは国による)、GRAVEが墓です。

IMGFACEW => 90,
IMGFACEH => 130,
IMGWOLFW => 90,
IMGWOLFH => 130,
IMGGRAVEW => 90,
IMGGRAVEH => 130,
DIR => "$sow->{'cfg'}->{'DIR_IMG'}/cumorie",
EXT => '.png',
BODY => '',
FACE => '',
#通常チップが000なら、ここには何も入れません。000_n 等、数字の後に何かをつけて区別している場合は
#該当の末尾を入れます。FACE => '_n',等。

WOLF => '_r',
#赤チップの末尾を入れます。Cumorieは赤画像は数字_rなので、_rを。
GRAVE => '_b',
#墓も同じように。
EXPRESSION => \@expression,
LAYOUT_NAME => 'right',
#数字の右端についてる記号で区別するか、左についている記号で区別するかをここで選べます。
#なのでチップ製作する場合、「000_r」、「r_000」のようにどちらに区別記号ついてても大丈夫ということです。

);

return \%charset;
}

1;