[[罪罰/変数の追加]]
*罪罰/国変数の追加 [#x6d04128]
-国データの場合もキャラデータの場合と大体同じです。''ore_sub-system.cgi''に追記します。
**国データの保存 [#qd041c5d]
-COLOR(red){変数名;変数,}のように指定します
# 国データ書き込み
sub cdat_write{
$cdat = "cn1;$cn1,cg1;$cg1,cf1;$cf1,cs1;$cs1,ce1;$ce1,c1;$c1,c1a;$c1a,cn2;$cn2, 〜 見にくいので省略 〜 c5a;$c5a,set;$set,all_mem;$all_mem,goal_no;$goal_no,hasya;$hasya,hcamp;$hcamp,ad;$addr,ht;$host,date;$date,wr_mes;$wr_mes,\n";
open (OUT,">>$cdatfile") || &error("open error:$cdatfile",1);
-新しい変数 kuhen を追加する場合、COLOR(red){kuhen;$kuhen,}を追記します
$cdat = "cn1;$cn1,kuhen;$kuhen,cg1;$cg1,cf1;$cf1,cs1;$cs1,ce1;$ce1,c1;$c1,c1a;$c1a,cn2;$cn2, 〜 見にくいので省略 〜 c5a;$c5a,set;$set,all_mem;$all_mem,goal_no;$goal_no,hasya;$hasya,hcamp;$hcamp,ad;$addr,ht;$host,date;$date,wr_mes;$wr_mes,\n";
**国データの読み込み [#g1dde217]
# 国デ−タ読み込み
sub cdata_open{
open (IN,"$cdatfile") || &error("国デ−タファイルが開けませんでした",1);
@cdat = <IN>;
close(IN) or die "Can't close : $!";
# 50行超えてたら最終行を残してリセット
if($#cdat >= 50){
open (IO,">$cdatfile");
print IO $cdat[$#cdat];
close (IO);
}
%CP = '';
my @prats = split(/,/,$cdat[$#cdat]);
foreach $prats (@prats){
my($k,$v) = split(/;/,$prats);
$CP{$k} = $v;
}
$cn1=$CP{'cn1'}; # 国1の国力
$cg1=$CP{'cg1'}; # 国1の財政
$cf1=$CP{'cf1'}; # 国1の蓄米
$cs1=$CP{'cs1'}; # 国1の予備兵
$ce1=$CP{'ce1'}; # 国1の現状
$c1 =$CP{'c1'}; # 国1の参加人数
$c1a=$CP{'c1a'};# 国1の定員数
-追加した変数 kuhen を読み出す場合
$kuhen=$CP{'kuhen'}; # 新しい変数
$cn1=$CP{'cn1'}; # 国1の国力
$cg1=$CP{'cg1'}; # 国1の財政
$cf1=$CP{'cf1'}; # 国1の蓄米
**国データ 各国変数の規則 [#pfc967e6]
-国データは各国の変数がそれぞれ記録されています
-例えば、国力ならcn1がアルメリア、cn2がフラリンといった具合です。新しく国ごとに変数を追加する場合は同じような命名規則を使いましょう
-各国で共通の値の場合はキャラ変数と変わりません
