罪と罰++二律背反
罪罰/国変数の追加
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
単語検索
|
最終更新
|
ヘルプ
] [
リンク元
]
開始行:
[[罪罰/変数の追加]]
*罪罰/国変数の追加 [#x6d04128]
-国データの場合もキャラデータの場合と大体同じです。''ore_...
**国データの保存 [#qd041c5d]
-COLOR(red){変数名;変数,}のように指定します
# 国データ書き込み
sub cdat_write{
$cdat = "cn1;$cn1,cg1;$cg1,cf1;$cf1,cs1;$cs1,ce1...
open (OUT,">>$cdatfile") || &error("open error:$...
-新しい変数 kuhen を追加する場合、COLOR(red){kuhen;$kuhen...
$cdat = "cn1;$cn1,kuhen;$kuhen,cg1;$cg1,cf1;$cf1...
**国データの読み込み [#g1dde217]
# 国デ−タ読み込み
sub cdata_open{
open (IN,"$cdatfile") || &error("国デ−タファイル...
@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がフラリンといった具...
-各国で共通の値の場合はキャラ変数と変わりません
終了行:
[[罪罰/変数の追加]]
*罪罰/国変数の追加 [#x6d04128]
-国データの場合もキャラデータの場合と大体同じです。''ore_...
**国データの保存 [#qd041c5d]
-COLOR(red){変数名;変数,}のように指定します
# 国データ書き込み
sub cdat_write{
$cdat = "cn1;$cn1,cg1;$cg1,cf1;$cf1,cs1;$cs1,ce1...
open (OUT,">>$cdatfile") || &error("open error:$...
-新しい変数 kuhen を追加する場合、COLOR(red){kuhen;$kuhen...
$cdat = "cn1;$cn1,kuhen;$kuhen,cg1;$cg1,cf1;$cf1...
**国データの読み込み [#g1dde217]
# 国デ−タ読み込み
sub cdata_open{
open (IN,"$cdatfile") || &error("国デ−タファイル...
@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がフラリンといった具...
-各国で共通の値の場合はキャラ変数と変わりません
ページ名: