罪罰改造板２/135

 $log2 .= qq|<select name="cmd" size="1">\n|;
 $log2 .= qq|<option value="10">外交を選択</option>\n|;
 $log2 .= qq|<option value="0">友好条約を結ぶ</option>\n| if($cfs[$v1.$v2]!=2);
 $log2 .= qq|<option value="1">同盟を結ぶ</option>\n| if($cfs[$v1.$v2]!=1 && $cfs[$v1.$v2]!=2);
 $log2 .= qq|<option value="2">同盟を破棄する</option>\n| if($cfs[$v1.$v2]==1);
 $log2 .= qq|<option value="3">宣戦布告</option>\n| if($cfs[$v1.$v2]!=1 && $cfs[$v1.$v2]!=2);
 $log2 .= qq|<option value="4">停戦する</option>\n| if($cfs[$v1.$v2]==2);
 $log2 .= qq|<option value="5">資金援助</option>\n| if($cfs[$v1.$v2]==1);
 $log2 .= qq|<option value="6">食料援助</option>\n| if($cfs[$v1.$v2]==1);
 $log2 .= qq|<option value="7">援軍派遣</option>\n| if($cfs[$v1.$v2]==1);
 $log2 .= qq|<option value="-1">やめる</option>\n|;
 $log2 .= qq|</select><br>\n|;