亡命も登録も不可の国を作りたいと考えていますが、
どのようにすればできるでしょうか？
下の書き込みと内容は別なので２つに分けさせていただきました。

if ($PL_VALUES[5]=国名){$PL_VALUES[5]=}

sub_4にとかは無理かな〜消し方わかんないな〜戦闘後に送られるはずですが・・・・

特定国へ送るほうが簡単そうですね

	while (($C_Name,$C_Value) =each %C) {
		if ($C_Name eq "○○"){next;}
		@C_VALUES = split(/\s/,$C_Value);
		if ($PL_VALUES[5] ne "$C_Name"){$boumeiTag.="<option value=\"$C_Name\">$C_Name\n";$bf=1;}
		}

	while (($key,$value) =each %C) {if ($key eq "○○"){next;}print "<option value=$key>$key\n";}

超過去ログにあったやつをいれたらできましたよ。

入国＆戦略指定が不可能なＮＰＣ専用国を作りたい
ってやつですね。

レッドさんのサイトのは？

俺がやってる方法です。

まずは登録時に不可にするには

print "</td></tr><tr><td class=td1>国籍<td>\n";
print "<select size=1 name=\"kuni\" $STYLE_L>\n";
while (($key,$value) =each %C) {
print "<option value=$key>$key\n";}

とあるのを

print "</td></tr><tr><td class=td1>国籍<td>\n";
print "<select size=1 name=\"kuni\" $STYLE_L>\n";
while (($key,$value) =each %C) {
if ($key ne "その国名"){print "<option value=$key>$key\n";}}

こうします。
次は亡命です。
sub4をちょと変更です。

$boumeiTag="&nbsp;亡命先<select name=\"boumeiC\" $STYLE_L>";
while (($C_Name,$C_Value) =each %C) {
@C_VALUES = split(/\s/,$C_Value);
if ($PL_VALUES[5] ne "$C_Name"){$boumeiTag.="<option value=\"$C_Name\">$C_Name\n";$bf=1;}
}

↑を

$boumeiTag="&nbsp;亡命先<select name=\"boumeiC\" $STYLE_L>";
while (($C_Name,$C_Value) =each %C) {
@C_VALUES = split(/\s/,$C_Value);
if ($PL_VALUES[5] ne "$C_Name" && $C_Name ne "その国名"){$boumeiTag.="<option value=\"$C_Name\">$C_Name\n";$bf=1;}
}

これでOKです。念には念を、発動もできないようにするなら
sub5で

if ($PL_VALUES[5] ne "$key"){$op.= "<option value=\"$key\">$key\n";}
}
&ERROR('攻略できる国がありません。') if !$op;

を

if ($PL_VALUES[5] ne "$key" && $key ne "その国名"){$op.= "<option value=\"$key\">$key\n";}
}
&ERROR('攻略できる国がありません。') if !$op;

これでOKのはずです。