package SWResource_ptrolle;

#----------------------------------------
# vgZbg
# 
#   by 
#----------------------------------------

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

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


"#-------------------------------
# lTn ݒt@Cp
#-------------------------------

# L̕\
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', 
'043', 
'044', 
'045', 
'046', 
'047', 
'048', 
'049', 
'050', 
'051', 
'052', 
'053', 
'054', 
'055', 
'056', 
'057', 
'058'  
);

# L̖O
my %chrname = (
'000' => 'Ԃ܂', 
'001' => ' V', 
'002' => '{ 덁', 
'003' => ' FI', 
'004' => 'R qb', 
'005' => 'h ^', 
'006' => 'u ', 
'007' => 'K ', 
'008' => 'ь q', 
'009' => 'H h', 
'010' => 'gJ h', 
'011' => ' ', 
'012' => 'Î M', 
'013' => 'Î l', 
'014' => 'l q', 
'015' => 'q `', 
'016' => 'Od t', 
'017' => 'ї qq', 
'018' => 'zq t]', 
'019' => 'F ', 
'020' => 'OH ', 
'021' => 'hc a', 
'022' => ' Im', 
'023' => ' ', 
'024' => ' ', 
'025' => 'w ', 
'026' => ' ', 
'027' => ' b', 
'028' => 'sz n', 
'029' => ' ', 
'030' => ' ', 
'031' => ' KV', 
'032' => 'u e', 
'033' => ' ', 
'034' => '|D ꗘ', 
'035' => '퐶 Fq', 
'036' => '鋴 LG', 
'037' => 't ', 
'038' => ' ', 
'039' => 'G Y', 
'040' => ' T', 
'041' => 'g j', 
'042' => 'L ʏ', 
'043' => 'OY ', 
'044' => 'c_ Mq', 
'045' => 'Nu ', 
'046' => ' ', 
'047' => 'g~ ', 
'048' => 'c ', 
'049' => 'Hq H', 
'050' => 'F ', 
'051' => 'q Z', 
'052' => 'd ', 
'053' => 'C X', 
'054' => '_ ', 
'055' => '؁X t', 
'056' => ' ΘY', 
'057' => ' ', 
'058' => 'Z ',
$maker => 'V̐iāj',
$admin => 'ޕ̐iǗlj',
);

# LilTo͗pj
my %chrnameinitial = (
'000' => 'Ԃ܂', 
'001' => ' V', 
'002' => '{ 덁', 
'003' => ' FI', 
'004' => 'R qb', 
'005' => 'h ^', 
'006' => 'u ', 
'007' => 'K ', 
'008' => 'ь q', 
'009' => 'H h', 
'010' => 'gJ h', 
'011' => ' ', 
'012' => 'Î M', 
'013' => 'Î l', 
'014' => 'l q', 
'015' => 'q `', 
'016' => 'Od t', 
'017' => 'ї qq', 
'018' => 'zq t]', 
'019' => 'F ', 
'020' => 'OH ', 
'021' => 'hc a', 
'022' => ' Im', 
'023' => ' ', 
'024' => ' ', 
'025' => 'w ', 
'026' => ' ', 
'027' => ' b', 
'028' => 'sz n', 
'029' => ' ', 
'030' => ' ', 
'031' => ' KV', 
'032' => 'u e', 
'033' => ' ', 
'034' => '|D ꗘ', 
'035' => '퐶 Fq', 
'036' => '鋴 LG', 
'037' => 't ', 
'038' => ' ', 
'039' => 'G Y', 
'040' => ' T', 
'041' => 'g j', 
'042' => 'L ʏ', 
'043' => 'OY ', 
'044' => 'c_ Mq', 
'045' => 'Nu ', 
'046' => ' ', 
'047' => 'g~ ', 
'048' => 'c ', 
'049' => 'Hq H', 
'050' => 'F ', 
'051' => 'q Z', 
'052' => 'd ', 
'053' => 'C X', 
'054' => '_ ', 
'055' => '؁X t', 
'056' => ' ΘY', 
'057' => ' ', 
'058' => 'Z '
);


# _~[L̔
my @npcsay =(
'ՂՂB',
'L[AL[II'
);




my %charset = (
CAPTION => 'vg',
NPCID => '000',
CHRNAME => \%chrname,
CHRJOB => \%chrjob,
CHRNAMEINITIAL => \%chrnameinitial,
ORDER => \@order,
NPCSAY => \@npcsay,
IMGBODYW => 90,
IMGBODYH => 130,
DIR => "$sow->{'cfg'}->{'DIR_IMG'}/ptrolle",
EXT => '.png',
BODY => '_n',
FACE => '_n',
WOLF => '_r',
GRAVE => '_b',

EXPRESSION => \@expression,
LAYOUT_NAME => 'right',
);

return \%charset;
}

1;


#-------------------------------
# WOLF MANSION ݒt@Cp
#-------------------------------

 Ԃ܂	 
  V	V 
 { 덁	 
  FI	 
 R qb	q 
 h ^	 
 u 	 
 K 	 
 ь q	 
 H h	 
 gJ h	h 
  	 
 Î M	 
 Î l	l 
 l q	l 
 q `	` 
 Od t	t 
 ї qq	 
 zq t]	t 
 F 	 
 OH 	 
 hc a	a 
  Im	I 
  	 
  	 
 w 	 
  	 
  b	b 
 sz n	n 
  	 
  	 
  KV	K 
 u e	e 
  	 
 |D ꗘ	| 
 퐶 Fq	 
 鋴 LG	L 
 t 	 
  	 
 G Y	 
  T	 
 g j	j 
 L ʏ	 
 OY 	 
 c_ Mq	 
 Nu 	N 
  	 
 g~ 	g 
 c 	 
 Hq H	H 
 F 	 
 q Z	Z 
 d 	 
 C X	C 
 _ 	 
 ؁X t	t 
  ΘY	 
  	 
 Z 	"
