Mine

on *:join:#rshelp: {
  if (narf* iswm $nick) {
    set %idcheck 1
    set %nick $nick
    .timer 1 1 .whois $nick
  }
}

raw 307:*: {
  if (%idcheck != $null) {
    $iif($3-7 == has identified for this nick,set %mode $address(%nick,2))
    unset %idcheck
    unset %nick
  }
}

on *:text:.mode*:#rshelp: {
  if (%mode == $wildsite) && ($me !isin $2-) {
    mode $chan $2-
  }
}