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
}
}