行動ポイント制

HPの最大値やらがあるところに
$ko          = 99    if($ko>99);
こんな感じで追加
キャラデータのところに
ko;$ko
こんな感じのを追加
admin.cgiにも同じように

}elsif($cmd==9){
if($ko>90){
$log .= "これ以上行動力は貯めれないよ！<br>\n";				
$tm = $cmd = 0;
&call_main_st;
}else{
$log .= "行動力を手に入れた<br>\n";
$ko+=10;
$pr=10800;
$tm = $cmd = 0;
$type='';
&call_main_st;
}

if($camp<1){
$log .= "放浪の身では内政は行えない<br>\n";
$tm = $cmd = 0;
&call_main_st;
}elsif($ko<1){
$log .= "行動力が足りない<br>\n";
$tm = $cmd = 0;
&call_main_st;
$pr=$GMT*(0-$ko);
$ko=0;
}else{

$log .= "内政を行います。実行するものを選んで下さい<br>\n";
$tm=0;
$type='内政';

$pr=$GMT;

$pr-=1;

}elsif($my_cf<$sol){
$log .= "戦争を行なうだけの兵糧がありません。<br>出撃兵数と同数の兵糧が必要です<br>\n";
$tm = $cmd = 0;
$type='';
&call_main_st;
}elsif($ko<1){
$log .= "行動力が足りません\n";
$tm = $cmd = 0;
$type='';
&call_main_st;

$log .= "行軍開始します。敵国国境まで$GMW時間です<br>\n";
$nation=$v;
$ko-=1;
$tm=0;
$type='戦争中';

elsif($ko<1){
$log .= "行動力が足りません。<br>\n";
$tm = $cmd = 0;
$type='';
&call_main_st;

$pr=$GMT;

$ko-=1;