package SWResource_hanami; #---------------------------------------- # 花見会セット # # by ゆひろ #---------------------------------------- sub GetRSChr { my $sow = $_[0]; my $maker = $sow->{'cfg'}->{'CID_MAKER'}; my $admin = $sow->{'cfg'}->{'CID_ADMIN'}; my $undef = $sow->{'cfg'}->{'CID_UNDEF'}; # キャラの表示順 my @order = ( '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', ); # キャラの肩書き my %chrjob = ( '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' => '上匂', $maker => '', $admin => '', ); # キャラの名前 my %chrname = ( '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' => 'ハスミ', $maker => '舞い踊る花びら(村建て人)', $admin => '麗かな木漏れ日(管理人)', ); # ダミーキャラの発言 my @npcsay =( 'ようこそおこしくださいました。楽しんでいってくださいね。', '人狼・・・ですか? ふふ。賑やかなお花見になりそうです。 ', ); my @expression = ( ); my %charset = ( CAPTION => '花見会', NPCID => '001', CHRNAME => \%chrname, CHRJOB => \%chrjob, ORDER => \@order, NPCSAY => \@npcsay, IMGBODYW => 90, IMGBODYH => 130, IMGFACEW => 90, IMGFACEH => 130, DIR => "$sow->{'cfg'}->{'DIR_IMG'}/hanami", EXT => '.png', BODY => '', FACE => '', WOLF => '', GRAVE => '', EXPRESSION => \@expression, LAYOUT_NAME => 'right', ); return \%charset; } 1;