罪と罰++二律背反
罪罰/国代表
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
単語検索
|
最終更新
|
ヘルプ
] [
リンク元
]
開始行:
*代表処理 ./inc/ore_sub-changes.cgi [#e166bdb3]
-$cshu[1]とか$cshu[3]とかで代表者を表示させることが出来ます
**代表更新履歴 [#t8baa06b]
-2004.02.28 辞任を追加しました。罪罰称号レベルのため、$so...
**sub changes_menu2 [#qd02bb84]
foreach(0 .. $#cmp){ $log2 .=qq|<option value="$_">$cmp[...
#-----------
$log2 .= qq|<option style="background-color:gray;" value...
$log2 .= qq|<option value="10">代表\者を支持する</option...
$log2 .= qq|<option value="11">代表\者を指示しない</opti...
$log2 .= qq|<option value="12">立候補する</option>|;
$log2 .= qq|<option value="14">辞任する</option>|;
#-----------
$log2 .=qq|</select><br>\n|;
**sub changes_exe [#s162ed98]
sub changes_exe{
if($cmd == 13) { $tm = 0; } # この1...
-次にその下に追加、修正を加える
if($cmd<=-1 || $cmd>$#cmp){
#----------------------------------------------ここから...
if($cmd==10 && $camp>=1 && $camp<=5){
# 支持
if($cshu[$camp] eq ""){
$log .= qq|代表\者がいません<br>|;
}elsif($ushu eq "$cgen[$camp]*$camp"){
$log .= qq|同一代表\には1度だけ支持・不支持を表\...
}else{
$ushu = "$cgen[$camp]*$camp";
$cshu_rank[$camp]++;
$log .= qq|支持を表\明しました<br>|;
}
}elsif($cmd==11 && $camp>=1 && $camp<=5){
if($ushu eq "$cgen[$camp]*$camp"){
$log .= qq|同一代表\には1度だけ支持・不支持を表\...
}elsif($cshu[$camp] eq ""){
$log .= qq|現在、代表\者が決まっていません<br>|;
}else{
$log .= qq|不支持を表\明しました<br>|;
$ushu = "$cgen[$camp]*$camp";
$cshu_rank[$camp]--;
if($cshu_rank[$camp]<1){
$log .= qq|現代表\ $cshu[$camp] は失脚しました|;
$wr_mes = qq|$date $cmp[$camp]の代表\$cshu[$cam...
&hist_write;
$cshu[$camp] = "";
$cshu_rank[$camp] = 0;
$sogo = $sogo2;
$sogo3 = $sogo; # 称号レベルのため
$sogo2 = "";
}
}
}elsif($cmd==12 && $camp>=1 && $camp<=5){
if($cshu_rank[$camp]<1){
# 立てる
$cshu[$camp] = $nm;
$ushu = "$cgen[$camp]*$camp";
$cshu_rank[$camp] = 2;
$cgen[$camp]++;
$sogo2 = $sogo;
$sogo = 111;
$log .= qq|$nmは、$cmp[$camp]の代表\者になりまし...
$wr_mes = qq|$date $cmp[$camp]の代表\に$nmが就任...
&hist_write;
}else{
$log .= qq|代表\がいない場合のみ立候補できます<br...
}
}elsif($cmd==14){
# 辞任する
if($sogo == 111){
$cshu[$camp] = "";
$cshu_rank[$camp] = 0;
$sogo = $sogo2; $sogo2 = "";
$sogo3 = $sogo; # 称号レベルを無効化
$log .= qq|あなたは、代表\者を辞...
$wr_mes = qq|$date $nmは、$cmp[$c...
&hist_write;
}else{
$log .= qq|辞任は代表\者のみが行...
}
}elsif($camp<1){
$log .= qq|放浪の身では、立候補することは出来ない<b...
}else{
#----------------------------------------------ここまで...
$log .= "やめておきます<br>\n";
} # ←閉じ...
$tm = $cmd = 0;
$type='';
&call_main_st;
# ここから仕官
}elsif($cmd>=0 && (($c1 >= $c1a && $cmd == 1)||($c2 >...
*./inc/ore_sub-system.cgi [#jedc6533]
罪罰/変数の追加も参考に
-キャラ変数:sogo2,ushu
-国変数:以下の変数を追加する。それぞれ、下のように配列に...
--cshu1,cshu2,cshu3,cshu4,cshu5
--cshu_rank1,cshu_rank2,cshu_rank3,cshu_rank4,cshu_rank5
--cgen1,cgen2,cgen3,cgen4,cgen5
**sub hash_data [#pec4fdbf]
# 代表
$sogo2 = $DAT{'sogo2'}; # 代表者になったら称号を保持
$ushu = $DAT{'ushu'}; # 支持・不支持を決めた記録
**sub cdata_open [#g3f5b282]
$cshu[1] = $CP{'cshu1'};
$cshu_rank[1] = $CP{'cshu_rank1'};
$cshu[2] = $CP{'cshu2'};
$cshu_rank[2] = $CP{'cshu_rank2'};
$cshu[3] = $CP{'cshu3'};
$cshu_rank[3] = $CP{'cshu_rank3'};
$cshu[4] = $CP{'cshu4'};
$cshu_rank[4] = $CP{'cshu_rank4'};
$cshu[5] = $CP{'cshu5'};
$cshu_rank[5] = $CP{'cshu_rank5'};
$cgen[1] = $CP{'cgen1'};
$cgen[2] = $CP{'cgen2'};
$cgen[3] = $CP{'cgen3'};
$cgen[4] = $CP{'cgen4'};
$cgen[5] = $CP{'cgen5'};
**sub dat_write [#u63fe8d0]
$dat[0].="ushu;$ushu,sogo2;$sogo2,";
**sub cdat_write [#hcdf8068]
$cdat .= "cshu1;$cshu[1],cshu_rank1;$cshu_rank[1],cgen1;...
**sub read_data [#we7c44b5]
# 国データ読み込み
&cdata_open;
# 代表者
if($cshu[$camp] ne $nm && $sogo == 111){
$sogo = $sogo2;
$sogo2 = 0;
$log .= qq|代表\の称号を失いました<br>|;
if($cshu[$camp] eq ""){
$log .= qq|現在、代表\者はいません<br>|;
}else{
$log .= qq|現在の代表\者は、$cshu[$camp]です<br>|;
}
}
終了行:
*代表処理 ./inc/ore_sub-changes.cgi [#e166bdb3]
-$cshu[1]とか$cshu[3]とかで代表者を表示させることが出来ます
**代表更新履歴 [#t8baa06b]
-2004.02.28 辞任を追加しました。罪罰称号レベルのため、$so...
**sub changes_menu2 [#qd02bb84]
foreach(0 .. $#cmp){ $log2 .=qq|<option value="$_">$cmp[...
#-----------
$log2 .= qq|<option style="background-color:gray;" value...
$log2 .= qq|<option value="10">代表\者を支持する</option...
$log2 .= qq|<option value="11">代表\者を指示しない</opti...
$log2 .= qq|<option value="12">立候補する</option>|;
$log2 .= qq|<option value="14">辞任する</option>|;
#-----------
$log2 .=qq|</select><br>\n|;
**sub changes_exe [#s162ed98]
sub changes_exe{
if($cmd == 13) { $tm = 0; } # この1...
-次にその下に追加、修正を加える
if($cmd<=-1 || $cmd>$#cmp){
#----------------------------------------------ここから...
if($cmd==10 && $camp>=1 && $camp<=5){
# 支持
if($cshu[$camp] eq ""){
$log .= qq|代表\者がいません<br>|;
}elsif($ushu eq "$cgen[$camp]*$camp"){
$log .= qq|同一代表\には1度だけ支持・不支持を表\...
}else{
$ushu = "$cgen[$camp]*$camp";
$cshu_rank[$camp]++;
$log .= qq|支持を表\明しました<br>|;
}
}elsif($cmd==11 && $camp>=1 && $camp<=5){
if($ushu eq "$cgen[$camp]*$camp"){
$log .= qq|同一代表\には1度だけ支持・不支持を表\...
}elsif($cshu[$camp] eq ""){
$log .= qq|現在、代表\者が決まっていません<br>|;
}else{
$log .= qq|不支持を表\明しました<br>|;
$ushu = "$cgen[$camp]*$camp";
$cshu_rank[$camp]--;
if($cshu_rank[$camp]<1){
$log .= qq|現代表\ $cshu[$camp] は失脚しました|;
$wr_mes = qq|$date $cmp[$camp]の代表\$cshu[$cam...
&hist_write;
$cshu[$camp] = "";
$cshu_rank[$camp] = 0;
$sogo = $sogo2;
$sogo3 = $sogo; # 称号レベルのため
$sogo2 = "";
}
}
}elsif($cmd==12 && $camp>=1 && $camp<=5){
if($cshu_rank[$camp]<1){
# 立てる
$cshu[$camp] = $nm;
$ushu = "$cgen[$camp]*$camp";
$cshu_rank[$camp] = 2;
$cgen[$camp]++;
$sogo2 = $sogo;
$sogo = 111;
$log .= qq|$nmは、$cmp[$camp]の代表\者になりまし...
$wr_mes = qq|$date $cmp[$camp]の代表\に$nmが就任...
&hist_write;
}else{
$log .= qq|代表\がいない場合のみ立候補できます<br...
}
}elsif($cmd==14){
# 辞任する
if($sogo == 111){
$cshu[$camp] = "";
$cshu_rank[$camp] = 0;
$sogo = $sogo2; $sogo2 = "";
$sogo3 = $sogo; # 称号レベルを無効化
$log .= qq|あなたは、代表\者を辞...
$wr_mes = qq|$date $nmは、$cmp[$c...
&hist_write;
}else{
$log .= qq|辞任は代表\者のみが行...
}
}elsif($camp<1){
$log .= qq|放浪の身では、立候補することは出来ない<b...
}else{
#----------------------------------------------ここまで...
$log .= "やめておきます<br>\n";
} # ←閉じ...
$tm = $cmd = 0;
$type='';
&call_main_st;
# ここから仕官
}elsif($cmd>=0 && (($c1 >= $c1a && $cmd == 1)||($c2 >...
*./inc/ore_sub-system.cgi [#jedc6533]
罪罰/変数の追加も参考に
-キャラ変数:sogo2,ushu
-国変数:以下の変数を追加する。それぞれ、下のように配列に...
--cshu1,cshu2,cshu3,cshu4,cshu5
--cshu_rank1,cshu_rank2,cshu_rank3,cshu_rank4,cshu_rank5
--cgen1,cgen2,cgen3,cgen4,cgen5
**sub hash_data [#pec4fdbf]
# 代表
$sogo2 = $DAT{'sogo2'}; # 代表者になったら称号を保持
$ushu = $DAT{'ushu'}; # 支持・不支持を決めた記録
**sub cdata_open [#g3f5b282]
$cshu[1] = $CP{'cshu1'};
$cshu_rank[1] = $CP{'cshu_rank1'};
$cshu[2] = $CP{'cshu2'};
$cshu_rank[2] = $CP{'cshu_rank2'};
$cshu[3] = $CP{'cshu3'};
$cshu_rank[3] = $CP{'cshu_rank3'};
$cshu[4] = $CP{'cshu4'};
$cshu_rank[4] = $CP{'cshu_rank4'};
$cshu[5] = $CP{'cshu5'};
$cshu_rank[5] = $CP{'cshu_rank5'};
$cgen[1] = $CP{'cgen1'};
$cgen[2] = $CP{'cgen2'};
$cgen[3] = $CP{'cgen3'};
$cgen[4] = $CP{'cgen4'};
$cgen[5] = $CP{'cgen5'};
**sub dat_write [#u63fe8d0]
$dat[0].="ushu;$ushu,sogo2;$sogo2,";
**sub cdat_write [#hcdf8068]
$cdat .= "cshu1;$cshu[1],cshu_rank1;$cshu_rank[1],cgen1;...
**sub read_data [#we7c44b5]
# 国データ読み込み
&cdata_open;
# 代表者
if($cshu[$camp] ne $nm && $sogo == 111){
$sogo = $sogo2;
$sogo2 = 0;
$log .= qq|代表\の称号を失いました<br>|;
if($cshu[$camp] eq ""){
$log .= qq|現在、代表\者はいません<br>|;
}else{
$log .= qq|現在の代表\者は、$cshu[$camp]です<br>|;
}
}
ページ名: