alias check {
  enable #check
  set %f 0
  :check1
  if (%f < $did(nick,4,0)) { 
    inc %f 1
    whois $gettok($did(nick,4,%f)
    goto check1
  }
  if (%f >= $did(nick,4,0)) { disable #check | unset %f }
}
raw *:*:{
  if ($numeric == 401) {
    haltdef
    did -o nick 4 %f $gettok($did(nick,4,%f),1,32) Offline
  }
  else {
    haltdef
    did -o nick 4 %f $gettok($did(nick,4,%f),1,32) Online
  }
}