,undef,$value,$alliance->{id})){
$alliance->{relationship} = $value;
log_message $ND::UID,"HC set alliance: $alliance->{id} relationship: $value";
,undef,$value,$alliance->{id})){
$alliance->{relationship} = $value;
log_message $ND::UID,"HC set alliance: $alliance->{id} relationship: $value";