on *:open:?:*: { .set %priv $calc(%priv + 1) | .query $nick %text.avtootvet }
alias avtootvetchik {
  if $dialog(avtootvetchik) = $null { dialog -m avtootvetchik avtootvetchik }
  else halt
}

dialog avtootvetchik {
  title "Автоответчик"
  size -1 -1 126 94
  option dbu
  icon icons/avtootvet.ico, 0
  edit %text.avtootvet, 3, 5 45 117 11, autohs
  button "ОК", 4, 45 79 37 12, ok
  box "Сообщение автоответчика", 5, 3 36 121 22
  icon 6, 0 0 125 30,  icons/avtootvet.jpg, 0
  text "Если вы хотите выключить автоответчик, оставте верхнее поле пустым.", 1, 5 63 117 14
}

on *:dialog:avtootvetchik:sclick:*: {
  /set %text.avtootvet $did(3) 
}
