Notice Chat

dialog notice {
  title "Notice Chat By Panda200x"
  size -1 -1 204 116
  option dbu
  edit "", 4, 8 12 187 84, read multi vsbar
  box "Chat", 5, 4 4 195 94
  edit "", 6, 4 100 180 10
  button "Send", 1, 184 100 15 10
}
on *:NOTICE:*:?: {
  if ($nick == %notice) {
    inc %lines
    did -i notice 4 %lines $nick $+ : $1-
  }
}
on *:DIALOG:notice:sclick:1: {
  inc %lines
  notice %notice $did(notice,6).text
  did -i notice 4 %lines $me $+ : $did(notice,6).text
  did -r notice 6
}
alias noticechat { set %lines 0 | set %notice $1 | dialog -m notice notice }