Code:
on *:dialog:blaway:init:0:{
  var %line = 1
  while ( $eval(% $+ blawayl $+ %line,2) != $null ) {
    did -a $dname 22 $eval(% $+ blawayl $+ %line,2)
    inc %line
  }
}
on *:dialog:blaway:close:0:{
  var %line = 1
  while ( $eval(% $+ blawayl $+ %line,2) != $null ) {
    unset $eval(% $+ blawayl $+ %line)
    inc %line
  }
  var %line = 1
  while ( $did(blaway,22,%line).text != $null ) {
    set %blawayl $+ %line $did($dname,22,%line).text
    inc %line
  }
}