){
$word = $_;
chomp $word;
# $len = length ($word);
# if (substr($c_name,0,$len) eq '$word'){
if ($c_name =~ /^$word/) {
&err("入力された名前「$word」は使用できません。");
}
}
close FILE;
}
#重複登録チェック
$sql = "select count(*) from character where name = '$c_name' and state = 0 and admission = 1;";
$ref = $dbh->selectall_arrayref($sql) or &err("エラーが発生しました。");
($ccnt)=@{$ref->[0]};
if ($ccnt ne '' && $ccnt > 0){
&err("入力された名前は、入学されたキャラクターに使用されています。");
}
##「・」「 」チェック
$sql = "select race from character where pcid='$in{'pcid'}';";
$ref = $dbh->selectall_arrayref($sql) or &err("エラーが発生しました。");
($race)=@{$ref->[0]};
if(($race eq 6) or ($race eq 10)){
if(index($cstr, '・') ne -1){&err("シフール、ブラウニーは、名前に「・」を使用できません。");}
if(index($cstr, ' ') ne -1){&err("シフール、ブラウニーは、名前にスペースを使用できません。");}
}
}
#---------------------------------------
# キャラクター登録5
#---------------------------------------
sub new_entry5 {
%out = %in;
foreach $key ( keys %in ) {
if ($key ne 'x' && $key ne 'mode' && $key ne 'y'){
$out{'data'} .=<<"EOT";
EOT
}
}
$sql = "select count(*) from character where uid = $uid and state = 0;";
$ref = $dbh->selectall_arrayref($sql) or &err("エラーが発生しました。");
($c_cnt)=@{$ref->[0]};
if ($c_cnt ne '' && $c_cnt > 50){
&html_out("entry_ng.html");
exit;
}
$sql = "select count(*) from character where uid = $uid and reg_date + '10 seconds' >= now();";
$ref = $dbh->selectall_arrayref($sql) or &err("エラーが発生しました。");
($c_cnt)=@{$ref->[0]};
if ($c_cnt ne '' && $c_cnt > 0){&err("キャラクター登録は最低10秒の時間を置いて行ってください。");}
#DB登録
PCIDSET:
if ($switch_flg eq 0){
$sql = "select max(pcid) from character where substr(pcid,1,2) not in ('xz','xa','xb','xc');";
}
else{
$sql = "select max(pcid) from character where substr(pcid,1,2) not in ('xz','xa','xb','xc');";
}
# $sql = "select max(pcid) from character where substr(pcid,1,2) != 'xz';";
$ref = $dbh->selectall_arrayref($sql) or &err("エラーが発生しました。");
($m_pcid)=@{$ref->[0]};
# if ($m_pcid eq ''){$pcid = 'xa0001';}
if ($m_pcid eq '' && $switch_flg eq 0){$pcid = 'xc0001';}
elsif ($m_pcid eq '' && $switch_flg eq 1){$pcid = 'xd0001';}
else{
$pcid_h = substr($m_pcid,0,2);
$pcid_n = substr($m_pcid,2);
$pcid_n = int($pcid_n) + 1;
if ($pcid_n > 9999){
if ($pcid_h eq 'xa'){$pcid_h = 'xb';}
if ($pcid_h eq 'xb'){$pcid_h = 'xc';}
if ($pcid_h eq 'xc'){$pcid_h = 'xd';}
if ($pcid_h eq 'xd'){$pcid_h = 'xe';}
if ($pcid_h eq 'xe'){$pcid_h = 'xf';}
if ($pcid_h eq 'xf'){$pcid_h = 'xg';}
if ($pcid_h eq 'xg'){$pcid_h = 'xh';}
$pcid_n = 1;
}
if ($pcid_n < 10){$pcid_n = '000' . int($pcid_n);}
elsif ($pcid_n < 100){$pcid_n = '00' . int($pcid_n);}
elsif ($pcid_n < 1000){$pcid_n = '0' . int($pcid_n);}
$pcid = $pcid_h . $pcid_n;
}
if ($switch_flg eq 0){
if (int($in{'birth_m'}) <= 12){$birth_y = 995;}
else{$birth_y = 996;}
}
else{
if (int($in{'birth_m'}) <= 12){$birth_y = 996;}
else{$birth_y = 997;}
}
$birth = $birth_y . $in{'birth_m'} . $in{'birth_d'};
$rand = int(rand(166)) + 1;
#PCデータ登録
$tone_strings = @tone_str[$in{'tone'}];
if ($tone_strings eq '' && $in{'tone'} eq 15){$tone_strings = '〜にゃ';}
# if ($switch_flg eq 0){
$sql = "insert into character (pcid,origin,name,birth,sex,height,figure,eye,hair,skin,first,second,tone,lumina,reg_ip,reg_host,rand,uid,race,standpoint) values ('$pcid',$in{'origin'},";
# }
# else{
# $sql = "insert into character (pcid,origin,name,birth,sex,height,figure,eye,hair,skin,first,second,tone,lumina,reg_ip,reg_host,rand,uid) values ('$pcid',$in{'origin'},";
# }
if ($in{'name'} ne '' && $in{'name'} ne '未設定'){$sql .= "'$in{'name'}'";}
else{$sql .= "NULL";}
$sql .= ",$birth,$in{'sex'},$in{'height'},$in{'figure'},'@color_eye[$in{'eye'}]','@color_hair[$in{'hear'}]','@color_skin[$in{'skin'}]'";
if ($switch_flg eq 0){
$standpoint = 0;
&date_rtn;
if ("$g_year$g_mon$g_mday" >= "20110401"){$standpoint = 1;}
$sql .= ",'@first_str[$in{'first'}]','@second_str[$in{'second'}]','$tone_strings',$in{'lumina'},'$ip','$host',$rand,$uid,$in{'race'},$standpoint);";
}
elsif ($switch_flg eq 1){
$standpoint = 0;
&date_rtn;
if ("$g_year$g_mon$g_mday" >= "20120401"){$standpoint = 1;}
$sql .= ",'@first_str[$in{'first'}]','@second_str[$in{'second'}]','$tone_strings',$in{'lumina'},'$ip','$host',$rand,$uid,$in{'race'},$standpoint);";
}
else{
$sql .= ",'@first_str[$in{'first'}]','@second_str[$in{'second'}]','$tone_strings',$in{'lumina'},'$ip','$host',$rand,$uid);";
}
$sql_c = "select pcid from character where pcid = '$pcid';";
$ref_c = $dbh->selectall_arrayref($sql_c) or &err("エラーが発生しました。");
($tmp)=@{$ref_c->[0]};
if ($tmp ne ''){goto PCIDSET;}
$dbh->do($sql) or &err("CODE:E01
エラーが発生しました。");
##############&err("$in{'origin'} -- $in{'race'}");
#スキルデータ登録
if ($in{'origin'} eq 1){ #貴族
®_skill($pcid,21); #社交ダンス
®_skill($pcid,41); #礼儀作法
®_skill($pcid,59); #雑学(貴族)
@skill_list = ('社交ダンス','礼儀作法','雑学(貴族)');
}
elsif ($in{'origin'} eq 2){ #戦士
®_skill($pcid,9); #殺気感知
®_skill($pcid,60); #雑学(冒険)
®_skill($pcid,75); #知識(デュルガー)
@skill_list = ('殺気感知','雑学(冒険)','知識(デュルガー)');
}
elsif ($in{'origin'} eq 3){ #神主
®_skill($pcid,16); #応急手当
®_skill($pcid,67); #知識(冠婚葬祭)
®_skill($pcid,69); #知識(アンデッド)
@skill_list = ('応急手当','知識(冠婚葬祭)','知識(アンデッド)');
}
elsif ($in{'origin'} eq 4){ #農民
®_skill($pcid,14); #農業
®_skill($pcid,47); #知識(薬草)
®_skill($pcid,52); #天候予想
@skill_list = ('農業','知識(薬草)','天候予想');
}
elsif ($in{'origin'} eq 5){ #狩人
®_skill($pcid,29); #狩り
®_skill($pcid,33); #罠
®_skill($pcid,43); #土地勘(森林)
@skill_list = ('狩り','罠','土地勘(森林)');
}
elsif ($in{'origin'} eq 6){ #職人
®_skill($pcid,24); #芸術
®_skill($pcid,25); #鍛冶
®_skill($pcid,26); #工芸
@skill_list = ('芸術','鍛冶','工芸');
}
elsif ($in{'origin'} eq 7){ #執事
®_skill($pcid,17); #家事
®_skill($pcid,41); #礼儀作法
®_skill($pcid,59); #雑学(貴族)
@skill_list = ('家事','礼儀作法','雑学(貴族)');
}
elsif ($in{'origin'} eq 8){ #商人
®_skill($pcid,19); #アルバイト
®_skill($pcid,62); #対人鑑識
®_skill($pcid,63); #話術
@skill_list = ('アルバイト','対人鑑識','話術');
}
elsif ($in{'origin'} eq 9){ #芸人
®_skill($pcid,5); #歌唱
®_skill($pcid,23); #楽器演奏
®_skill($pcid,27); #手品
@skill_list = ('歌唱','楽器演奏','手品');
}
elsif ($in{'origin'} eq 10){ #詩人
®_skill($pcid,58); #雑学(庶民)
®_skill($pcid,60); #雑学(冒険)
®_skill($pcid,61); #詩
@skill_list = ('雑学(庶民)','雑学(冒険)','詩');
}
elsif ($in{'origin'} eq 11){ #遊人
®_skill($pcid,1); #飲酒量
®_skill($pcid,28); #理美容
®_skill($pcid,77); #ナンパ
@skill_list = ('飲酒量','理美容','ナンパ');
}
elsif ($in{'origin'} eq 12){ #盗賊
®_skill($pcid,15); #クライミング
®_skill($pcid,22); #忍び歩き
®_skill($pcid,30); #鍵開け
@skill_list = ('クライミング','忍び歩き','鍵開け');
}
if ($in{'race'} eq 3){ #パラ
if (&skill_chk($pcid,6) > 0){
&up_skill($pcid,6); #優良嗅覚
$h_sk_lv{'優良嗅覚'} = 2;
}
else{
®_skill($pcid,6); #優良嗅覚
push skill_list,'優良嗅覚';
}
}
elsif ($in{'race'} eq 4){ #ライトエルフ
if (&skill_chk($pcid,7) > 0){
&up_skill($pcid,7); #優良視力
$h_sk_lv{'優良視力'} = 2;
}
else{
®_skill($pcid,7); #優良視力
push skill_list,'優良視力';
}
if (&skill_chk($pcid,43) > 0){
&up_skill($pcid,43); #土地勘(森林)
$h_sk_lv{'土地勘(森林)'} = 2;
}
else{
®_skill($pcid,43); #土地勘(森林)
push skill_list,'土地勘(森林)';
}
}
elsif ($in{'race'} eq 5){ #ドワーフ
if (&skill_chk($pcid,1) > 0){
&up_skill($pcid,1); #飲酒量
$h_sk_lv{'飲酒量'} = 2;
}
else{
®_skill($pcid,1); #飲酒量
push skill_list,'飲酒量';
}
if (&skill_chk($pcid,46) > 0){
&up_skill($pcid,46); #知識(鉱物)
$h_sk_lv{'知識(鉱物)'} = 2;
}
else{
®_skill($pcid,46); #知識(鉱物)
push skill_list,'知識(鉱物)';
}
}
elsif ($in{'race'} eq 7){ #ケットシー
if (&skill_chk($pcid,29) > 0){
&up_skill($pcid,29); #狩り
$h_sk_lv{'狩り'} = 2;
}
else{
®_skill($pcid,29); #狩り
push skill_list,'狩り';
}
if (&skill_chk($pcid,80) > 0){
&up_skill($pcid,80); #軽業
$h_sk_lv{'軽業'} = 2;
}
else{
®_skill($pcid,80); #軽業
push skill_list,'軽業';
}
}
elsif ($in{'race'} eq 9){ #メロウ
if (&skill_chk($pcid,44) > 0){
&up_skill($pcid,44); #土地勘(水域)
$h_sk_lv{'土地勘(水域)'} = 2;
}
else{
®_skill($pcid,44); #土地勘(水域)
push skill_list,'土地勘(水域)';
}
}
elsif ($in{'race'} eq 6){ #シフール
if (&skill_chk($pcid,58) > 0){
&up_skill($pcid,58); #雑学(庶民)
$h_sk_lv{'雑学(庶民)'} = 2;
}
else{
®_skill($pcid,58); #雑学(庶民)
push skill_list,'雑学(庶民)';
}
}
elsif ($in{'race'} eq 10){ #ブラウニー
if (&skill_chk($pcid,17) > 0){
&up_skill($pcid,17); #家事
$h_sk_lv{'家事'} = 2;
}
else{
®_skill($pcid,17); #家事
push skill_list,'家事';
}
}
#if ($uid eq 2){&err("");}
®_skill($pcid,37,0); #騎箒0Lv付与
push skill_list,'騎箒';
foreach(@skill_list){
$s_name = $_;
$s_lv = 1;
if ($s_name eq '騎箒'){$s_lv = 0;}
if ($h_sk_lv{$s_name} eq 2){$s_lv = 2;}
$out{'skill_list'} .=<<"EOT";
$s_name | | $s_lv Lv |
EOT
}
if ($in{'race'} ne 6){ ###シフール以外
$age = &calcAge($birth);
}else{
$age = '?';
}
&cal_ability($pcid,$in{'race'},$in{'sex'},$age,$in{'origin'},$in{'lumina'},$in{'figure'},$rand,1);
##if($pcid eq 'xd3024'){
##&err("$pcid,$in{'race'},$in{'sex'},$age,$in{'origin'},$in{'lumina'},$in{'figure'},$rand,1); $t_vit /$t_sub)");
##}
$out{'pcid'} = $pcid;
if ($in{'name'} eq ''){$in{'name'} = '未設定';}
$out{'name'} = $in{'name'};
$out{'vit'} = $t_vit;
$out{'sub'} = $t_sub;
$out{'dex'} = $t_dex;
$out{'per'} = $t_per;
$out{'int'} = $t_int;
$out{'men'} = $t_men;
if ($in{'name'} eq ''){$name = '未設定';}
else{$name = $in{'name'};}
$dbh_pl = &connectDB($plDB);
$sql = "select name,mail from userdat where seq = $uid;";
$ref = $dbh_pl->selectall_arrayref($sql) or &err("エラーが発生しました。");
($pname,$pmail)=@{$ref->[0]};
&disconDB($dbh_pl);
$mailbody =<<"EOT";
$pname 様
この度は、『神代七代学園X』にキャラクター登録いただき、ありがとうございます。
以下は、お客様が登録されたキャラクターの情報です。
PCID :$pcid
名前 :$name
今後とも、よろしくお願いします。
$mailfooter
EOT
&sendmail($pmail,'gx@rexi.jp','【GX】キャラクター登録',$mailbody);
&html_out("entry05.html");
}
#---------------------------------------
# スキルチェック
#---------------------------------------
sub skill_chk {
$sk_pcid = $_[0];
$sk_id = $_[1];
$sql_sk = "select count(*) from skill where pcid = '$sk_pcid' and id = $sk_id;";
$ref_sk = $dbh->selectall_arrayref($sql_sk) or &err("CODE:MCK-01
エラーが発生しました。");
($sk_cnt)=@{$ref_sk->[0]};
if ($sk_cnt eq ''){$sk_cnt = 0;}
return $sk_cnt;
}
#---------------------------------------
# 入学デバッグ
#---------------------------------------
sub admission_dbg {
$sql = "select pcid,name,sex,race,origin,lumina,birth,figure,rand,admission from character where pcid = '$in{'pcid'}' and state = 0 order by pcid;";
$ref = $dbh->selectall_arrayref($sql) or &err("エラーが発生しました。");
($pcid,$out{'name'},$sex,$race,$origin,$lumina,$birth,$figure,$rand,$admission)=@{$ref->[0]};
if($race ne 6){
$age = &calcAge($birth);
}else{
$age = 0;
}
&cal_ability($pcid,$race,$sex,$age,$origin,$lumina,$figure,$rand,1,1);
}
#---------------------------------------
# 入学
#---------------------------------------
sub admission {
$sql = "select pcid,name,sex,race,origin,lumina,birth,figure,rand,admission from character where uid = $uid and state = 0 order by pcid;";
$ref = $dbh->selectall_arrayref($sql) or &err("エラーが発生しました。");
foreach(@$ref) {
($pcid,$name,$sex,$race,$origin,$lumina,$birth,$figure,$rand,$admission)=@{$_};
if ($name eq ''){$name = '未設定';}
if($race ne 6){
$age = &calcAge($birth);
$birth = &birth_str1($birth);
}else{
$age = 0;
$birth = '?';
}
&cal_ability($pcid,$race,$sex,$age,$origin,$lumina,$figure,$rand,1);
##if($pcid eq 'xd3024'){
##&err("$pcid,$race,$sex,$age,$origin,$lumina,$figure,$rand,1); $t_vit /$t_sub)");
##}
$out{'list'} .=<<"EOT";
|
| VIT $t_vit | SUB $t_sub | DEX $t_dex | PER $t_per | INT $t_int | MEN $t_men |
| |
|
EOT
}
else{
$out{'list'} .=<<"EOT";
入学済み |
| VIT $t_vit | SUB $t_sub | DEX $t_dex | PER $t_per | INT $t_int | MEN $t_men | |
|
|
EOT
#入学済み |
#
| VIT $t_vit SUB $t_sub DEX $t_dex PER $t_per INT $t_int MEN $t_men |
#EOT
}
$out{'list'} .=<<"EOT";
|
EOT
}
&html_out("admission01.html");
}
#---------------------------------------
# 入学:名前変更
#---------------------------------------
sub name_change {
if ($in{'name'} eq ''){&err("名前が入力されていません。");}
&name_chk($in{'name'});
$sql = "update character set name = '$in{'name'}' where pcid = '$in{'pcid'}' and uid = $uid;";
$dbh->do($sql) or &err("エラーが発生しました。");
print "Location: ./?mode=admission\n\n";
}
#---------------------------------------
# 入学:削除
#---------------------------------------
sub pc_del {
if ($in{'pcid'} eq ''){&err("キャラクターが選択されていません。");}
$sql = "update character set state = 1 where pcid = '$in{'pcid'}' and uid = $uid;";
$dbh->do($sql) or &err("エラーが発生しました。");
print "Location: ./?mode=admission\n\n";
}
#---------------------------------------
# 入学:2頁目
#---------------------------------------
sub admission_go {
if ($in{'pcid'} eq ''){&err("入学させるキャラクターが選択されていません。");}
&date_rtn;
$sql = "select pcid,name,sex,race,origin,lumina,birth,figure,rand,admission,height,skin,hair,eye,first,second,tone from character where pcid = '$in{'pcid'}' and state = 0;";
$ref = $dbh->selectall_arrayref($sql) or &err("エラーが発生しました。");
($pcid,$out{'name'},$sex,$race,$origin,$lumina,$birth,$figure,$rand,$admission,$height,$out{'skin'},$out{'hair'},$out{'eye'},$out{'first'},$out{'second'},$out{'tone'})=@{$ref->[0]};
if ($admission ne 0){&err("既に入学済みです。");}
if ($out{'name'} eq ''){&err("名前を決めないと、入学手続きは行えません。");}
if(($race eq 6) or ($race eq 10)){
if(index($out{'name'}, '・') ne -1){&err("シフール、ブラウニーは、名前に「・」を使用できません。");}
if(index($out{'name'}, ' ') ne -1){&err("シフール、ブラウニーは、名前にスペースを使用できません。");}
}
if ($switch_flg eq 1 || $t_flg eq 1){
if ($birth <= 9951231){&err("995年生まれの学生の入学受付は終了しました。");}
}
else{
if ($birth <= 9941231){&err("994年生まれの学生の入学受付は終了しました。");}
}
$out{'pcid'} = $in{'pcid'};
$out{'sex'} = @sex_str[$sex];
$out{'race'} = @race_str[$race];
$out{'origin'} = @origin_str[$origin];
$out{'birth'} = &birth_str1($birth);
if($race ne 6){
$out{'birth'} = &birth_str1($birth);
$age = &calcAge($birth);
$out{'age'} = $age;
}else{
$out{'birth'} = '?年?月?日';
$age = 0;
$out{'age'} = '?';
}
$out{'lumina'} = @lumina_str[$lumina];
$out{'figure'} = @figure_str[$figure];
$height = &calc_height($age,$sex,$race,$height,$in{'pcid'},$birth);
$out{'height'} = $height / 10;
$out{'weight'} = &calc_weight($height,$figure,$race);
# &err("$out{'weight'},$height,$figure");
&cal_ability($pcid,$race,$sex,$age,$origin,$lumina,$figure,$rand,1);
$out{'vit'} = $t_vit;
$out{'sub'} = $t_sub;
$out{'dex'} = $t_dex;
$out{'per'} = $t_per;
$out{'int'} = $t_int;
$out{'men'} = $t_men;
$sql = "select b.name,a.lv from skill a,skill_master b where a.pcid = '$pcid' and a.id = b.id order by a.id;";
$ref = $dbh->selectall_arrayref($sql) or &err("エラーが発生しました。");
foreach(@$ref) {
($skill_name,$skill_lv)=@{$_};
$out{'skill_list'} .=<<"EOT";
$skill_name | | $skill_lv Lv |
EOT
}
&html_out("admission02.html");
}
#---------------------------------------
# 入学:3頁目
#---------------------------------------
sub class_check {
if ($in{'pcid'} eq ''){&err("入学させるキャラクターが選択されていません。");}
$sql = "select pcid,name,sex,race,origin,lumina,birth,figure,rand,admission,race from character where pcid = '$in{'pcid'}' and state = 0;";
$ref = $dbh->selectall_arrayref($sql) or &err("エラーが発生しました。");
($pcid,$out{'name'},$sex,$race,$origin,$lumina,$birth,$figure,$rand,$admission,$race)=@{$ref->[0]};
if ($admission ne 0){&err("既に入学済みです。");}
if ($out{'name'} eq ''){&err("名前を決めないと、入学手続きは行えません。");}
$sql = "select count(*) from character where pcid != '$in{'pcid'}' and name = '$out{'name'}' and admission = 1;";
$ref = $dbh->selectall_arrayref($sql) or &err("エラーが発生しました。");
($cnt)=@{$ref->[0]};
if ($cnt ne '' && $cnt > 0){&err("同じ名前のキャラクターが既に入学している為、入学手続きを行えません。");}
$out{'pcid'} = $in{'pcid'};
if($race ne 6){ ##視フール以外
$age = &calcAge($birth);
}else{
$age = 0;
}
&cal_ability($pcid,$race,$sex,$age,$origin,$lumina,$figure,$rand,1);
if ($t_vit >= 10 && ($race eq 1 || $race eq 5 || $race eq 9)){ #ヴォルセルク
$list .=<<"EOT";
1年生 ヴォルセルク(戦士クラス)
EOT
}
if (($t_int >= 10 || $t_men >= 10)&& ($race eq 1 || $race eq 3 || $race eq 4 || $race eq 5 || $race eq 6 || $race eq 7 || $race eq 9)) { #キュベレー
$list .=<<"EOT";
1年生 キュベレー(神官クラス)
EOT
}
if (($t_per >= 10 || $t_int >= 10) && ($race eq 1 || $race eq 4 || $race eq 7 || $race eq 3 || $race eq 9 || $race eq 6)){ #パドマ
$list .=<<"EOT";
1年生 パドマ(魔法使いクラス)
EOT
}
if (($t_sub >= 10 || $t_dex >= 10) && ($race eq 1 || $race eq 4 || $race eq 5 || $race eq 3 || $race eq 6 || $race eq 10)){ #ホーキポーキ
$list .=<<"EOT";
1年生 ホーキポーキ(シーフクラス)
EOT
}
if ($list eq ''){
$html_file = "admission03_ng.html";
}
else{
$html_file = "admission03.html";
}
$out{'list'} = $list;
&html_out($html_file);
}
#---------------------------------------
# 入学:4頁目
#---------------------------------------
sub charisma {
if ($in{'pcid'} eq ''){&err("入学させるキャラクターが選択されていません。");}
if ($in{'class'} eq ''){&err("クラスが選択されていません。");}
$out{'pcid'} = $in{'pcid'};
$out{'class'} = $in{'class'};
&html_out("admission04.html");
}
#---------------------------------------
# 入学:4頁目
#---------------------------------------
sub dormitory_select {
if ($in{'pcid'} eq ''){&err("入学させるキャラクターが選択されていません。");}
if ($in{'class'} eq ''){&err("クラスが選択されていません。");}
for($i=1;$i<=60;$i++){
$k = "c_" . $i;
if ($in{$k} eq ''){&err("$iの質問に答えていません。");}
}
%out = %in;
foreach $key ( keys %in ) {
if ($key ne 'x' && $key ne 'mode' && $key ne 'y'){
$out{'data'} .=<<"EOT";
EOT
}
}
$sql = "select race from character where pcid = '$in{'pcid'}';";
$ref = $dbh->selectall_arrayref($sql) or &err("エラーが発生しました。");
($race)=@{$ref->[0]};
if(($race eq 6) or ($race eq 10)){
$out{'h_comm'} = 'シフールとブラウニー';
$out{'h_name'} = 'コリュバントブルーム';
$out{'h_no'} = 5;
}else{
$out{'h_comm'} = '新入生';
$out{'h_name'} = 'シムルウィスカー';
$out{'h_no'} = 4;
}
if ($switch_flg eq 1){$html_file = 'admission05.html';}
else{$html_file = 'admission05_x.html';}
&html_out($html_file);
}
#---------------------------------------
# 入学:5頁目
#---------------------------------------
sub conf {
if ($in{'pcid'} eq ''){&err("入学させるキャラクターが選択されていません。");}
if ($in{'class'} eq ''){&err("クラスが選択されていません。");}
for($i=1;$i<=60;$i++){
$k = "c_" . $i;
# if ($in{$k} eq ''){&err("$iの質問に答えていません。");}
if ($in{$k} eq ''){&err("答えていない質問があります。");}
}
%out = %in;
foreach $key ( keys %in ) {
if ($key ne 'x' && $key ne 'mode' && $key ne 'y'){
$out{'data'} .=<<"EOT";
EOT
}
}
$sql = "select name,race from character where pcid = '$in{'pcid'}';";
$ref = $dbh->selectall_arrayref($sql) or &err("エラーが発生しました。");
($out{'name'},$race)=@{$ref->[0]};
$out{'class_str'} = @class_str[$in{'class'}];
if ($switch_flg eq 0){
$out{'school'} = '1年生';
## $out{'d_str'} = 'ユニコーンホーン';
$out{'d_str'} = 'サーペントテイル';
}
elsif ($switch_flg eq 1){
## $out{'school'} = '新入生';
## $out{'d_str'} = 'サーペントテイル';
if(($race eq 6) or ($race eq 10)){
$out{'school'} = '従者学級';
$out{'d_str'} = 'コリュバントブルーム';
}else{
$out{'school'} = '新入生';
$out{'d_str'} = 'シムルウィスカー';
}
}
else{
## $out{'school'} = '1年生';
## $out{'d_str'} = 'アルテイラグラス';
}
&charisma_str;
&html_out("admission06.html");
}
#---------------------------------------
# 入学処理完了
#---------------------------------------
sub entry {
$sql = "select admission from character where pcid = '$in{'pcid'}';";
$ref = $dbh->selectall_arrayref($sql) or &err("エラーが発生しました。");
($admission)=@{$ref->[0]};
if ($admission eq 1){&err("指定されたキャラクターは既に入学が完了しています。");}
if ($switch_flg eq 1){
## $sql = "update character set class = $in{'class'},dormitory = $in{'dormitory'},admission = 1,admission_date = to_timestamp('2011-04-01 00:00:00','yyyy-mm-dd hh24:mi:ss') where pcid = '$in{'pcid'}';";
$sql = "update character set class = $in{'class'},dormitory = $in{'dormitory'},admission = 1,admission_date = now() where pcid = '$in{'pcid'}';";
$dbh->do($sql) or &err("CODE:A01
エラーが発生しました。");
}
else{
$sql = "update character set class = $in{'class'},dormitory = $in{'dormitory'},admission = 1,admission_date = now() where pcid = '$in{'pcid'}';";
$dbh->do($sql) or &err("CODE:A01
エラーが発生しました。");
}
for($i=1;$i<=60;$i++){
$k = "c_" . $i;
if ($in{$k} ne ''){
$sql = "insert into charisma (pcid,no,choice) values ('$in{'pcid'}',$i,$in{$k});";
$dbh->do($sql) or &err("CODE:A02-$i
エラーが発生しました。");
}
}
# if ($uid eq 2){
&date_rtn;
$up_tp = 0;
if ($g_mon eq "05"){$up_tp = 10;}
elsif ($g_mon eq "06"){$up_tp = 20;}
elsif ($g_mon eq "07"){$up_tp = 28;}
elsif ($g_mon eq "08"){$up_tp = 36;}
elsif ($g_mon eq "09"){$up_tp = 44;}
elsif ($g_mon eq "10"){$up_tp = 50;}
elsif ($g_mon eq "11"){$up_tp = 56;}
elsif ($g_mon eq "12"){$up_tp = 62;}
elsif ($g_mon eq "01"){$up_tp = 66;}
elsif ($g_mon eq "02"){$up_tp = 70;}
elsif ($g_mon eq "03"){
if ($switch_flg eq 1){
$up_tp = 0;
}
else{
$up_tp = 74;
}
}
if ($up_tp > 0){
$sql = "insert into tp (pcid,point,head) values ('$in{'pcid'}',$up_tp,'admission');";
$dbh->do($sql) or &err("CODE:A0X
エラーが発生しました。");
}
# }
# print "Location: ./\n\n";
print "Location: http://rexi.jp/gx/login.cgi\n\n";
}
#---------------------------------------
# カリスマ判定
#---------------------------------------
sub charisma_str {
my $t_origin = $_[0];
my $t_race = $_[1];
$c_M = 0;
$c_C = 0;
$c_H = 0;
$c_K = 0;
$total = 0;
if ($in{'c_1'} eq 1){
$c_M += 2;
$total += 2;
}
if ($in{'c_1'} eq 0){
$c_M += 1;
$total += 1;
}
if ($in{'c_1'} eq 2){
$c_M += 0;
$total += 0;
}
if ($in{'c_2'} eq 1){
$c_H += 0;
$total += 0;
}
if ($in{'c_2'} eq 0){
$c_H += 1;
$total += 1;
}
if ($in{'c_2'} eq 2){
$c_H += 2;
$total += 2;
}
if ($in{'c_3'} eq 1){
$c_H += 2;
$total += 2;
}
if ($in{'c_3'} eq 0){
$c_H += 1;
$total += 1;
}
if ($in{'c_3'} eq 2){
$c_H += 0;
$total += 0;
}
if ($in{'c_4'} eq 1){
$c_H += 0;
$total += 0;
}
if ($in{'c_4'} eq 0){
$c_H += 1;
$total += 1;
}
if ($in{'c_4'} eq 2){
$c_H += 2;
$total += 2;
}
if ($in{'c_5'} eq 1){
$c_K += 0;
$total += 0;
}
if ($in{'c_5'} eq 0){
$c_K += 1;
$total += 1;
}
if ($in{'c_5'} eq 2){
$c_K += 2;
$total += 2;
}
if ($in{'c_6'} eq 1){
$c_M += 2;
$total += 2;
}
if ($in{'c_6'} eq 0){
$c_M += 1;
$total += 1;
}
if ($in{'c_6'} eq 2){
$c_M += 0;
$total += 0;
}
if ($in{'c_7'} eq 1){
$c_K += 2;
$total += 2;
}
if ($in{'c_7'} eq 0){
$c_K += 1;
$total += 1;
}
if ($in{'c_7'} eq 2){
$c_K += 0;
$total += 0;
}
if ($in{'c_8'} eq 1){
$c_K += 2;
$total += 2;
}
if ($in{'c_8'} eq 0){
$c_K += 1;
$total += 1;
}
if ($in{'c_8'} eq 2){
$c_K += 0;
$total += 0;
}
if ($in{'c_9'} eq 1){
$c_C += 0;
$total += 0;
}
if ($in{'c_9'} eq 0){
$c_C += 1;
$total += 1;
}
if ($in{'c_9'} eq 2){
$c_C += 2;
$total += 2;
}
if ($in{'c_10'} eq 1){
$c_K += 0;
$total += 0;
}
if ($in{'c_10'} eq 0){
$c_K += 1;
$total += 1;
}
if ($in{'c_10'} eq 2){
$c_K += 2;
$total += 2;
}
if ($in{'c_11'} eq 1){
$c_C += 2;
$total += 2;
}
if ($in{'c_11'} eq 0){
$c_C += 1;
$total += 1;
}
if ($in{'c_11'} eq 2){
$c_C += 0;
$total += 0;
}
if ($in{'c_12'} eq 1){
$c_K += 2;
$total += 2;
}
if ($in{'c_12'} eq 0){
$c_K += 1;
$total += 1;
}
if ($in{'c_12'} eq 2){
$c_K += 0;
$total += 0;
}
if ($in{'c_13'} eq 1){
$c_H += 2;
$total += 2;
}
if ($in{'c_13'} eq 0){
$c_H += 1;
$total += 1;
}
if ($in{'c_13'} eq 2){
$c_H += 0;
$total += 0;
}
if ($in{'c_14'} eq 1){
$c_C += 0;
$total += 0;
}
if ($in{'c_14'} eq 0){
$c_C += 1;
$total += 1;
}
if ($in{'c_14'} eq 2){
$c_C += 2;
$total += 2;
}
if ($in{'c_15'} eq 1){
$c_C += 2;
$total += 2;
}
if ($in{'c_15'} eq 0){
$c_C += 1;
$total += 1;
}
if ($in{'c_15'} eq 2){
$c_C += 0;
$total += 0;
}
if ($in{'c_16'} eq 1){
$c_M += 2;
$total += 2;
}
if ($in{'c_16'} eq 0){
$c_M += 1;
$total += 1;
}
if ($in{'c_16'} eq 2){
$c_M += 0;
$total += 0;
}
if ($in{'c_17'} eq 1){
$c_H += 0;
$total += 0;
}
if ($in{'c_17'} eq 0){
$c_H += 1;
$total += 1;
}
if ($in{'c_17'} eq 2){
$c_H += 2;
$total += 2;
}
if ($in{'c_18'} eq 1){
$c_H += 0;
$total += 0;
}
if ($in{'c_18'} eq 0){
$c_H += 1;
$total += 1;
}
if ($in{'c_18'} eq 2){
$c_H += 2;
$total += 2;
}
if ($in{'c_19'} eq 1){
$c_H += 0;
$total += 0;
}
if ($in{'c_19'} eq 0){
$c_H += 1;
$total += 1;
}
if ($in{'c_19'} eq 2){
$c_H += 2;
$total += 2;
}
if ($in{'c_20'} eq 1){
$c_C += 0;
$total += 0;
}
if ($in{'c_20'} eq 0){
$c_C += 1;
$total += 1;
}
if ($in{'c_20'} eq 2){
$c_C += 2;
$total += 2;
}
if ($in{'c_21'} eq 1){
$c_M += 0;
$total += 0;
}
if ($in{'c_21'} eq 0){
$c_M += 1;
$total += 1;
}
if ($in{'c_21'} eq 2){
$c_M += 2;
$total += 2;
}
if ($in{'c_22'} eq 1){
$c_M += 0;
$total += 0;
}
if ($in{'c_22'} eq 0){
$c_M += 1;
$total += 1;
}
if ($in{'c_22'} eq 2){
$c_M += 2;
$total += 2;
}
if ($in{'c_23'} eq 1){
$c_C += 2;
$total += 2;
}
if ($in{'c_23'} eq 0){
$c_C += 1;
$total += 1;
}
if ($in{'c_23'} eq 2){
$c_C += 0;
$total += 0;
}
if ($in{'c_24'} eq 1){
$c_C += 0;
$total += 0;
}
if ($in{'c_24'} eq 0){
$c_C += 1;
$total += 1;
}
if ($in{'c_24'} eq 2){
$c_C += 2;
$total += 2;
}
if ($in{'c_25'} eq 1){
$c_K += 2;
$total += 2;
}
if ($in{'c_25'} eq 0){
$c_K += 1;
$total += 1;
}
if ($in{'c_25'} eq 2){
$c_K += 0;
$total += 0;
}
if ($in{'c_26'} eq 1){
$c_M += 2;
$total += 2;
}
if ($in{'c_26'} eq 0){
$c_M += 1;
$total += 1;
}
if ($in{'c_26'} eq 2){
$c_M += 0;
$total += 0;
}
if ($in{'c_27'} eq 1){
$c_C += 0;
$total += 0;
}
if ($in{'c_27'} eq 0){
$c_C += 1;
$total += 1;
}
if ($in{'c_27'} eq 2){
$c_C += 2;
$total += 2;
}
if ($in{'c_28'} eq 1){
$c_M += 2;
$total += 2;
}
if ($in{'c_28'} eq 0){
$c_M += 1;
$total += 1;
}
if ($in{'c_28'} eq 2){
$c_M += 0;
$total += 0;
}
if ($in{'c_29'} eq 1){
$c_K += 2;
$total += 2;
}
if ($in{'c_29'} eq 0){
$c_K += 1;
$total += 1;
}
if ($in{'c_29'} eq 2){
$c_K += 0;
$total += 0;
}
if ($in{'c_30'} eq 1){
$c_H += 0;
$total += 0;
}
if ($in{'c_30'} eq 0){
$c_H += 1;
$total += 1;
}
if ($in{'c_30'} eq 2){
$c_H += 2;
$total += 2;
}
if ($in{'c_31'} eq 1){
$c_M += 2;
$total += 2;
}
if ($in{'c_31'} eq 0){
$c_M += 1;
$total += 1;
}
if ($in{'c_31'} eq 2){
$c_M += 0;
$total += 0;
}
if ($in{'c_32'} eq 1){
$c_K += 2;
$total += 2;
}
if ($in{'c_32'} eq 0){
$c_K += 1;
$total += 1;
}
if ($in{'c_32'} eq 2){
$c_K += 0;
$total += 0;
}
if ($in{'c_33'} eq 1){
$c_K += 2;
$total += 2;
}
if ($in{'c_33'} eq 0){
$c_K += 1;
$total += 1;
}
if ($in{'c_33'} eq 2){
$c_K += 0;
$total += 0;
}
if ($in{'c_34'} eq 1){
$c_M += 2;
$total += 2;
}
if ($in{'c_34'} eq 0){
$c_M += 1;
$total += 1;
}
if ($in{'c_34'} eq 2){
$c_M += 0;
$total += 0;
}
if ($in{'c_35'} eq 1){
$c_K += 2;
$total += 2;
}
if ($in{'c_35'} eq 0){
$c_K += 1;
$total += 1;
}
if ($in{'c_35'} eq 2){
$c_K += 0;
$total += 0;
}
if ($in{'c_36'} eq 1){
$c_M += 2;
$total += 2;
}
if ($in{'c_36'} eq 0){
$c_M += 1;
$total += 1;
}
if ($in{'c_36'} eq 2){
$c_M += 0;
$total += 0;
}
if ($in{'c_37'} eq 1){
$c_K += 0;
$total += 0;
}
if ($in{'c_37'} eq 0){
$c_K += 1;
$total += 1;
}
if ($in{'c_37'} eq 2){
$c_K += 2;
$total += 2;
}
if ($in{'c_38'} eq 1){
$c_H += 2;
$total += 2;
}
if ($in{'c_38'} eq 0){
$c_H += 1;
$total += 1;
}
if ($in{'c_38'} eq 2){
$c_H += 0;
$total += 0;
}
if ($in{'c_39'} eq 1){
$c_C += 2;
$total += 2;
}
if ($in{'c_39'} eq 0){
$c_C += 1;
$total += 1;
}
if ($in{'c_39'} eq 2){
$c_C += 0;
$total += 0;
}
if ($in{'c_40'} eq 1){
$c_K += 0;
$total += 0;
}
if ($in{'c_40'} eq 0){
$c_K += 1;
$total += 1;
}
if ($in{'c_40'} eq 2){
$c_K += 2;
$total += 2;
}
if ($in{'c_41'} eq 1){
$c_C += 0;
$total += 0;
}
if ($in{'c_41'} eq 0){
$c_C += 1;
$total += 1;
}
if ($in{'c_41'} eq 2){
$c_C += 2;
$total += 2;
}
if ($in{'c_42'} eq 1){
$c_H += 2;
$total += 2;
}
if ($in{'c_42'} eq 0){
$c_H += 1;
$total += 1;
}
if ($in{'c_42'} eq 2){
$c_H += 0;
$total += 0;
}
if ($in{'c_43'} eq 1){
$c_H += 0;
$total += 0;
}
if ($in{'c_43'} eq 0){
$c_H += 1;
$total += 1;
}
if ($in{'c_43'} eq 2){
$c_H += 2;
$total += 2;
}
if ($in{'c_44'} eq 1){
$c_C += 0;
$total += 0;
}
if ($in{'c_44'} eq 0){
$c_C += 1;
$total += 1;
}
if ($in{'c_44'} eq 2){
$c_C += 2;
$total += 2;
}
if ($in{'c_45'} eq 1){
$c_M += 2;
$total += 2;
}
if ($in{'c_45'} eq 0){
$c_M += 1;
$total += 1;
}
if ($in{'c_45'} eq 2){
$c_M += 0;
$total += 0;
}
if ($in{'c_46'} eq 1){
$c_K += 0;
$total += 0;
}
if ($in{'c_46'} eq 0){
$c_K += 1;
$total += 1;
}
if ($in{'c_46'} eq 2){
$c_K += 2;
$total += 2;
}
if ($in{'c_47'} eq 1){
$c_K += 2;
$total += 2;
}
if ($in{'c_47'} eq 0){
$c_K += 1;
$total += 1;
}
if ($in{'c_47'} eq 2){
$c_K += 0;
$total += 0;
}
if ($in{'c_48'} eq 1){
$c_M += 2;
$total += 2;
}
if ($in{'c_48'} eq 0){
$c_M += 1;
$total += 1;
}
if ($in{'c_48'} eq 2){
$c_M += 0;
$total += 0;
}
if ($in{'c_49'} eq 1){
$c_H += 0;
$total += 0;
}
if ($in{'c_49'} eq 0){
$c_H += 1;
$total += 1;
}
if ($in{'c_49'} eq 2){
$c_H += 2;
$total += 2;
}
if ($in{'c_50'} eq 1){
$c_H += 2;
$total += 2;
}
if ($in{'c_50'} eq 0){
$c_H += 1;
$total += 1;
}
if ($in{'c_50'} eq 2){
$c_H += 0;
$total += 0;
}
if ($in{'c_51'} eq 1){
$c_C += 0;
$total += 0;
}
if ($in{'c_51'} eq 0){
$c_C += 1;
$total += 1;
}
if ($in{'c_51'} eq 2){
$c_C += 2;
$total += 2;
}
if ($in{'c_52'} eq 1){
$c_C += 2;
$total += 2;
}
if ($in{'c_52'} eq 0){
$c_C += 1;
$total += 1;
}
if ($in{'c_52'} eq 2){
$c_C += 0;
$total += 0;
}
if ($in{'c_53'} eq 1){
$c_H += 0;
$total += 0;
}
if ($in{'c_53'} eq 0){
$c_H += 1;
$total += 1;
}
if ($in{'c_53'} eq 2){
$c_H += 2;
$total += 2;
}
if ($in{'c_54'} eq 1){
$c_C += 0;
$total += 0;
}
if ($in{'c_54'} eq 0){
$c_C += 1;
$total += 1;
}
if ($in{'c_54'} eq 2){
$c_C += 2;
$total += 2;
}
if ($in{'c_55'} eq 1){
$c_M += 0;
$total += 0;
}
if ($in{'c_55'} eq 0){
$c_M += 1;
$total += 1;
}
if ($in{'c_55'} eq 2){
$c_M += 2;
$total += 2;
}
if ($in{'c_56'} eq 1){
$c_M += 2;
$total += 2;
}
if ($in{'c_56'} eq 0){
$c_M += 1;
$total += 1;
}
if ($in{'c_56'} eq 2){
$c_M += 0;
$total += 0;
}
if ($in{'c_57'} eq 1){
$c_C += 0;
$total += 0;
}
if ($in{'c_57'} eq 0){
$c_C += 1;
$total += 1;
}
if ($in{'c_57'} eq 2){
$c_C += 2;
$total += 2;
}
if ($in{'c_58'} eq 1){
$c_K += 2;
$total += 2;
}
if ($in{'c_58'} eq 0){
$c_K += 1;
$total += 1;
}
if ($in{'c_58'} eq 2){
$c_K += 0;
$total += 0;
}
if ($in{'c_59'} eq 1){
$c_H += 2;
$total += 2;
}
if ($in{'c_59'} eq 0){
$c_H += 1;
$total += 1;
}
if ($in{'c_59'} eq 2){
$c_H += 0;
$total += 0;
}
if ($in{'c_60'} eq 1){
$c_M += 2;
$total += 2;
}
if ($in{'c_60'} eq 0){
$c_M += 1;
$total += 1;
}
if ($in{'c_60'} eq 2){
$c_M += 0;
$total += 0;
}
$charisma_M = $c_M / $total * 40;
$charisma_C = $c_C / $total * 40;
$charisma_H = $c_H / $total * 40;
$charisma_K = $c_K / $total * 40;
if ($t_origin eq 1){ #貴族
$charisma_M += -1;
$charisma_C += 0;
$charisma_H += 0;
$charisma_K += 2;
}
elsif ($t_origin eq 2){ #戦士
$charisma_M += 0;
$charisma_C += -1;
$charisma_H += 2;
$charisma_K += 0;
}
elsif ($t_origin eq 3){ #神主
$charisma_M += 2;
$charisma_C += 0;
$charisma_H += -1;
$charisma_K += 0;
}
elsif ($t_origin eq 4){ #農民
$charisma_M += 1;
$charisma_C += -1;
$charisma_H += 1;
$charisma_K += 0;
}
elsif ($t_origin eq 5){ #狩人
$charisma_M += 0;
$charisma_C += 0;
$charisma_H += 1;
$charisma_K += 0;
}
elsif ($t_origin eq 6){ #職人
$charisma_M += 0;
$charisma_C += 1;
$charisma_H += 0;
$charisma_K += 0;
}
elsif ($t_origin eq 7){ #執事
$charisma_M += -1;
$charisma_C += 1;
$charisma_H += 0;
$charisma_K += 1;
}
elsif ($t_origin eq 8){ #商人
$charisma_M += 0;
$charisma_C += 1;
$charisma_H += -1;
$charisma_K += 1;
}
elsif ($t_origin eq 9){ #芸人
$charisma_M += 0;
$charisma_C += 0;
$charisma_H += 0;
$charisma_K += 1;
}
elsif ($t_origin eq 10){ #詩人
$charisma_M += 0;
$charisma_C += 1;
$charisma_H += 0;
$charisma_K += 0;
}
elsif ($t_origin eq 11){ #遊人
$charisma_M += 1;
$charisma_C += 0;
$charisma_H += 0;
$charisma_K += 0;
}
elsif ($t_origin eq 12){ #盗賊
$charisma_M += 0;
$charisma_C += 0;
$charisma_H += 1;
$charisma_K += 0;
}
if ($t_race eq 1){ #人間
}
$charisma_M = int($charisma_M);
$charisma_C = int($charisma_C);
$charisma_H = int($charisma_H);
$charisma_K = int($charisma_K);
if ($charisma_M > 19){$charisma_M = 19;}
if ($charisma_M < 2){$charisma_M = 2;}
if ($charisma_C > 19){$charisma_C = 19;}
if ($charisma_C < 2){$charisma_C = 2;}
if ($charisma_H > 19){$charisma_H = 19;}
if ($charisma_H < 2){$charisma_H = 2;}
if ($charisma_K > 19){$charisma_K = 19;}
if ($charisma_K < 2){$charisma_K = 2;}
if ($charisma_M >= 12 && $charisma_C >= 12 && $charisma_H >= 12 && $charisma_K >= 12){$out{'c_str'} = '何事にもニュートラルな人。';}
elsif ($charisma_C >= 12 && $charisma_H >= 12 && $charisma_K >= 12){$out{'c_str'} = '実力者。但し、人心掌握は苦手で孤独。';}
elsif ($charisma_M >= 12 && $charisma_H >= 12 && $charisma_K >= 12){$out{'c_str'} = '頼りになる海賊船長タイプ。但し、周りの者は暴走しないかと気が気ではない。';}
elsif ($charisma_M >= 12 && $charisma_C >= 12 && $charisma_K >= 12){$out{'c_str'} = 'そばにいて安心できるシスタータイプ。但し、侮られやすい。';}
elsif ($charisma_M >= 12 && $charisma_C >= 12 && $charisma_H >= 12){$out{'c_str'} = '好人物。但し、リーダー性は皆無。';}
elsif ($charisma_H >= 12 && $charisma_K >= 12){$out{'c_str'} = '物事をどんどん進めることができる辣腕タイプ。独りよがりな面も強い。';}
elsif ($charisma_C >= 12 && $charisma_K >= 12){$out{'c_str'} = '黒幕タイプ。見え隠れする幼児性に注意。';}
elsif ($charisma_C >= 12 && $charisma_H >= 12){$out{'c_str'} = '切れ者。トラブルメーカーという側面もある。';}
elsif ($charisma_M >= 12 && $charisma_K >= 12){$out{'c_str'} = '義理人情に厚いタイプ。その代償で失うものも多い。';}
elsif ($charisma_M >= 12 && $charisma_H >= 12){$out{'c_str'} = '粋な親分肌。井の中の蛙にならないよう注意。';}
elsif ($charisma_M >= 12 && $charisma_C >= 12){$out{'c_str'} = '聡明で優しい人気者。反面、切ったはったは苦手で舐められ易い。';}
elsif ($charisma_K >= 12){$out{'c_str'} = '野心の強いリーダータイプ。反面、わがままな側面もある。';}
elsif ($charisma_H >= 12){$out{'c_str'} = '威勢と度胸があるはったりタイプ。反面、取っ付きづらさを感じさせる。';}
elsif ($charisma_C >= 12){$out{'c_str'} = '学識を重んじる聡明な人。反面、生意気さを感じさせ、おだてに弱い。';}
elsif ($charisma_M >= 12){$out{'c_str'} = '優しく穏やかなお人好し。反面、頼りなさを感じさせる。';}
else{$out{'c_str'} = '何事にもニュートラルな人。';}
}