Someone

alias organize { 
  window @organizer
  set %organizemessages on
  dialog -m Organizer Organizer
}
on *:TEXT:*:#: { 
  if (%organizemessages == on) {
    if ($nick isop $chan) { echo @organizer ( $+ $chan $+ ) <4@ $+ $nick $+ > $1- }
    if ($nick ishop $chan) { echo @organizer ( $+ $chan $+ ) <7% $+ $nick $+ > $1- }
    if ($nick isvoice $chan) { echo @organizer ( $+ $chan $+ ) <12+ $+ $nick $+ > $1- }
    if ($nick isreg $chan) { echo @organizer ( $+ $chan $+ ) <10 $+ $nick $+ > $1- }
  }
}
on *:ACTION:*:#: { 
  if (%organizemessages == on) {
    echo @organizer ( $+ $chan $+ ) 6* $+ $nick $1- 
  }
}
on *:BAN:*: {
  if (%organizemessages == on) {
    echo @organizer ( $+ $chan $+ ) 3* $+ $nick sets mode $1-
  }
}
on *:UNBAN:*: {
  if (%organizemessages == on) {
    echo @organizer ( $+ $chan $+ ) 3* $+ $nick sets mode $1-
  }
}
on *:JOIN:*: {
  if (%organizemessages == on) {
    echo @organizer ( $+ $chan $+ ) 3* $+ $nick joins $chan
  }
}
on *:PART:*: {
  if (%organizemessages == on) {
    echo @organizer ( $+ $chan $+ ) 3* $+ $nick parts $chan
  }
}
on *:MODE:#: {
  if (%organizemessages == on) {
    echo @organizer ( $+ $chan $+ ) 3* $+ $nick sets mode $1-
  }
}
on *:NICK: {
  if (%organizemessages == on) {
    echo @organizer 3* $+ $nick is now known as $newnick
  }
}
on *:OP:*: {
  if (%organizemessages == on) {
    echo @organizer ( $+ $chan $+ ) 3* $+ $nick sets mode +o $opnick
  }
}
on *:DEOP:*: {
  if (%organizemessages == on) {
    echo @organizer ( $+ $chan $+ ) 3* $+ $nick sets mode -o $opnick
  }
}
on *:VOICE:*: {
  if (%organizemessages == on) {
    echo @organizer ( $+ $chan $+ ) 3* $+ $nick sets mode +v $vnick
  }
}
on *:DEVOICE:*: {
  if (%organizemessages == on) {
    echo @organizer ( $+ $chan $+ ) 3* $+ $nick sets mode -v $vnick
  }
}
on *:HELP:*: {
  if (%organizemessages == on) {
    echo @organizer ( $+ $chan $+ ) 3* $+ $nick sets mode +h $hnick
  }
}
on *:DEHELP:*: {
  if (%organizemessages == on) {
    echo @organizer ( $+ $chan $+ ) 3* $+ $nick sets mode -h $hnick
  }
}
on *:QUIT: {
  if (%organizemessages == on) {
    echo @organizer 2* $+ $nick has quit IRC ( $+ $1- $+ )
  }
}
on *:INPUT:*: {
  if (%organizemessages == on) {
    if ($me isop $chan) { echo @organizer ( $+ $chan $+ ) <4@ $+ $me $+ > $1- }
    if ($me ishop $chan) { echo @organizer ( $+ $chan $+ ) <7% $+ $me $+ > $1- }
    if ($me isvoice $chan) { echo @organizer ( $+ $chan $+ ) <12+ $+ $me $+ > $1- }
    if ($me isreg $chan) { echo @organizer ( $+ $chan $+ ) <10 $+ $me $+ > $1- }
  }
}
alias 41509 {
  if (%organizemessages == on) {
    if ($me isop $1) { echo @organizer ( $+ $1 $+ ) <4@ $+ $me $+ > $2- }
    if ($me ishop $1) { echo @organizer ( $+ $1 $+ ) <7% $+ $me $+ > $2- }
    if ($me isvoice $1) { echo @organizer ( $+ $1 $+ ) <12+ $+ $me $+ > $2- }
    if ($me isreg $1) { echo @organizer ( $+ $1 $+ ) <10 $+ $me $+ > $2- }
  }
}
dialog Organizer {
  title "Organize Your Messages"
  size -1 -1 150 100
  option dbu
  edit "", 4, 45 11 86 13
  text "CHANNEL", 5, 10 14 30 90
  text "MESSAGE", 6, 10 31 30 90
  text "RAW", 20, 15 48 30 90
  edit "", 7, 45 28 86 13
  edit "", 22, 45 45 86 13
  button "Ok", 8, 15 66 37 12
  button "Join", 25, 15 80 37 12
  button "Part", 26, 55 80 37 12
  button "HOP", 27, 94 80 37 12
  button "Ok (RAW)", 21, 55 66 37 12
  button "Close", 9, 94 66 37 12, Cancel
}
on *:dialog:Organizer:sclick:8:{
  msg $did(4) $did(7)
  41509 $did(4) $did(7)
}
on *:dialog:Organizer:sclick:21:{
  $did(22)
}
on *:dialog:Organizer:sclick:25:{
  join $did(4)
}
on *:dialog:Organizer:sclick:26:{
  part $did(4)
}
on *:dialog:Organizer:sclick:27:{
  hop $did(4)
}
on *:dialog:Organizer:sclick:9:{
  unset %organizemessages
  close -@
}