総帥権限で入国して欲しくないプレイヤーのID（名前）を登録すると、その人はその国に亡命できなくなる。
ただし登録を解除したり、存在しないIDを弾く機能とかはないので各自用意。
入国拒否リストを保存する変数として$CL_VALUES[15]を利用している。

	sub REF_CNTY	{require 'ebs_sub5.cgi';&REFUSE_COUNTRY;}

	/^入国拒否$/ && $PL_VALUES[5] && $PL_VALUES[6] == 1 && do{$flagc=1;$flagp=0;
		&DBM_INPORT(C);&ERROR('国が存在しません。') if !$C{"$PL_VALUES[5]"};
		my @REFUSE_LIST = split(/!/,$CL_VALUES[15]);
		push(@REFUSE_LIST,$FORM{'target'});
		my @REFUSE_LIST2 = join("!",@REFUSE_LIST);
		$CL_VALUES[15] = "@REFUSE_LIST2";
	last CUSTOM;};

	my @REFUSE_LIST = split(/!/,$C_VALUES[15]);
	my $i=0; my $ref_flg=0;
	foreach(@REFUSE_LIST){
		if($REFUSE_LIST[$i] eq "$FORM{'pname'}"){
			$ref_flg = 1;
		}
		$i++;
	}

	if ($PL_VALUES[5] ne "$C_Name"){$boumeiTag.="$C_Name\n";$bf=1;}

	if ($PL_VALUES[5] ne "$C_Name" && $ref_flg != 1){$boumeiTag.="$C_Name\n";$bf=1;}

	$sp.= "<input name=\"custom\" type=\"submit\" value=\"入国拒否\" $STYLE_B1 onClick=\"document.Ms.cmd.value='REF_CNTY';\">" if $PL_VALUES[6] == 1 && $PL_VALUES[5];

1;

sub REFUSE_COUNTRY(){
	&LOCK;
		&DBM_CONVERT('P',"$FORM{pname}");
		&DBM_CONVERT('C',"$PL_VALUES[5]");
	&UNLOCK;
	&CUSTOM_HEADER('Main');
	&JScfm(checkRefuse,"入国拒否リストに追加します。よろしいですか？");

	my @REFUSE_LIST = split(/!/,$CL_VALUES[15]);
	my $i=0;
	foreach(@REFUSE_LIST){
		$REFUSE_MEMBER .= "$REFUSE_LIST[$i]
\n";
		$i++;
	}
print <<"EOM";
	<TR><TD><input type="text" name="target"></TD></TR>
	<TR><TD><input name=\"Cmode\" type=submit value="入国拒否" $STYLE_B1 onClick="return checkRefuse()"></TD></TR>
	<TR><TH>現在の入国拒否者一覧</TH></TR>
	<TR><TD>$REFUSE_MEMBER</TD></TR>
	</FORM></TABLE>
EOM
	&FOOTER;
}