This activates when you right click on a person's nick it will give you options to make them an idiot, or de-idiot them. (tested many a time)

on ^*:text:*:#: {
  if ($istok(%idiotlist,$nick,32)) {
    /haltdef
    /echo -t $chan <idiot-> $+ $nick $+ <-idiot> $replace($1-,$1-,I...am...an...idiot)
  }
}
menu nicklist {
  Idiot options
  .Make $1 An Idiot: {
    %idiotlist = %idiotlist $1
  }
  .Make $1 not an idiot: {
    if ($deltok(%idiotlist,$findtok(%idiotlist,$1,1,32),32)) {
      %idiotlist = $ifmatch
    }
  }
  -
}