*内政のカウント（徴兵） [#m310b5da]
-ページ: [[罪罰改造掲示板]]
-投稿者: [[redmen]]
-優先順位: 低
-状態: 完了
-カテゴリー: 罪罰管理者の雑談
-投稿日: 2004-11-01 (月) 17:50:05
-バージョン:
**メッセージ [#r4232ce8]
うまくカウントが行きません
$log .= "最大千人規模の徴兵を実行します。結果は$kekka分後に<br>\n";
$S = int(((rand(50))+100)*$lr);
$S = 1000 if($S>1000);
$rank_exe++;
$tho_kai++;
if($tho_kai>150){
$log .="日々の徴兵の成果が認められ国から $nm は $sogo_p[7] の称号を授かった！<br>\n";
$gold +=200000;
$sogo =7;
$nou_kai =0;
}
とすると、これを後につづケルト...エラーが出ます
----
-この部分は、問題なさそうですが。「最大千人規模の・・・」って上のメッセージが表示された後、エラーになるなら上の部分は問題ないですね。あとPerlチェックにかけて問題ないかどうかでしょうか？ -- [[あくあ]] &new{2004-11-03 (水) 18:47:23};
-これを5千人一万人とやっていくと…エラーが出ます。内政というコマンドを押すだけで...500エラーです -- [[Redmen]] &new{2004-11-07 (日) 20:40:54};
-これを5千人一万人とやっていくと… ＜というのは、５千人と１万人の徴兵は出来るということですか？ -- [[あくあ]] &new{2004-11-08 (月) 18:48:44};
-どういった手順で実行するとエラーになるのでしょうか？正常に表示されるところとエラーが表示されるタイミングをお願いします -- [[あくあ]] &new{2004-11-08 (月) 18:50:22};
$log .= "最大千人規模の徴兵を実行します。結果は$kekka分後に<br>\n";
$S = int(((rand(50))+100)*$lr);
$S = 1000 if($S>1000);
$rank_exe++;
$tho_kai++;
if($tho_kai>150){
$log .="日々の徴兵の成果が認められ国から $nm は $sogo_p[7] の称号を授かった！<br>\n";
$gold +=200000;
$sogo =7;
$nou_kai =0;
}
if($S<$gold){
$gold-=$S;
}elsif($gold<$S){
$S=$gold;
$gold=0;
}
if($camp==1){
$cs1+=$S;
}elsif($camp==2){
$cs2+=$S;
}elsif($camp==3){
$cs3+=$S;
}elsif($camp==4){
$cs4+=$S;
}elsif($camp==5){
$cs5+=$S;
}
$mes = "$S 人の兵が集まった";
$pr=$GMT;
$tm=50;
}elsif($cmd==2){
# 行動カウントのリセット(無条件)
$act_cnt=0;
$tho_kai++;
$kekka = int($GMT/60);
$log .= "最大五千人規模の徴兵を実行します。結果は$kekka分後に<br>\n";
$S = int(((rand(50))+100)*$lr);
$S = 5000 if($S>5000);
$rank_exe+=int(rand(2)+1);
if($S<$gold){
$gold-=$S;
}elsif($gold<$S){
$S=$gold;
$gold=0;
}
if($camp==1){
$cs1+=$S;
}elsif($camp==2){
$cs2+=$S;
}elsif($camp==3){
$cs3+=$S;
}elsif($camp==4){
$cs4+=$S;
}elsif($camp==5){
$cs5+=$S;
}
$mes = "$S 人の兵が集まった";
$pr=$GMT;
$tm=50;
}elsif($cmd==3){
# 行動カウントのリセット(無条件)
$act_cnt=0;
$kekka = int($GMT/60);
$log .= "最大一万人規模の徴兵を実行します。結果は$kekka分後に<br>\n";
$S = int(((rand(50))+100)*$lr);
$S = 10000 if($S>10000);
$rank_exe+=int(rand(3)+1);
$tho_kai++;
if($tho_kai>150){
$log .="日々の徴兵の成果が認められ国から $nm は $sogo_p[7] の称号を授かった！<br>\n";
$gold +=200000;
$sogo =7;
$nou_kai =0;
}
if($S<$gold){
$gold-=$S;
}elsif($gold<$S){
$S=$gold;
$gold=0;
}
if($camp==1){
$cs1+=$S;
}elsif($camp==2){
$cs2+=$S;
}elsif($camp==3){
$cs3+=$S;
}elsif($camp==4){
$cs4+=$S;
}elsif($camp==5){
$cs5+=$S;
}
$mes = "$S 人の兵が集まった";
$pr=$GMT;
$tm=50;
}elsif($cmd==4){
# 行動カウントのリセット(無条件)
$act_cnt=0;
$kekka = int($GMT/60);
$log .= "最大二万人規模の徴兵を実行します。結果は$kekka分後に<br>\n";
$S = int(((rand(50))+100)*$lr);
$S = 20000 if($S>20000);
$rank_exe+=int(rand(4)+1);
$tho_kai++;
if($tho_kai>150){
$log .="日々の徴兵の成果が認められ国から $nm は $sogo_p[7] の称号を授かった！<br>\n";
$gold +=200000;
$sogo =7;
$nou_kai =0;
}
-こういう風にやってみました。指摘お願いします -- [[redmen]] &new{2004-11-09 (火) 21:05:17};
-実験結果成功しました。今までの失敗はなんだったのだろう・・・ -- [[redmen]] &new{2004-11-09 (火) 21:20:04};
#comment
