Someone

 if (!$dialog(xim_main)) { 
  set %check $$?="Which account to add to?" 
  if ($exists(xim/ $+ %check $+ buddy.txt)) {
   .write xim/ $+ %check $+ buddy.txt $1 
   echo -a Wrote buddy ' $+ $1 $+ ' to xim/ $+ %check $+ buddy.txt
  }
 }
 else {
  var %t $eseacheck(%check) 
  if (%allow == 1) {
   .write xim/ $+ %check $+ buddy.txt $1 
   echo -a Wrote buddy ' $+ $1 $+ ' to xim/ $+ %check $+ buddy.txt
  }
 }
 if ($read(xim/ $+ %account $+ buddy.txt,s, $1) == $null) { 
  .write xim/ $+ %account $+ buddy.txt $1 
  set %b $1
  echo -a Wrote buddy ' $+ $1 $+ ' to xim/ $+ %account $+ buddy.txt
  if ($dialog(xim_main)) {
   did -a xim_main 3 %b
  }
  unset %b
  else { echo -a Buddy already added! }
}
}