Mine

raw *:*: { 
  if ((%nd_ds == false) || (%nd_ds != $2)) { return } 
  if ($numeric == 311) { 
    .set %nd.ident $3 
    .set %nd.host $4 
  } 
  if ($numeric == 335) { 
    .set %nd.bot true 
  } 
  if ($numeric == 307) { 
    .set %nd.id true 
  } 
  if ($numeric == 319) { 
    .set %nd.chan $3- 
  } 
  if ($numeric == 310) { 
    .set %nd.hop true 
  } 
  if ($numeric == 313) { 
    .set %nd.na $iif(*operator* iswm $3-,op,na) 
  } 
  if ($numeric == 318) { 
    .msg NickServ info %nd_ds 
  } 
} 
on *:notice:*:?: { 
  if ((NickServ == $nick) && (%nd_ds != false)) { 
    if ((*isn*regi* iswm $3-) && ($remove($2,$chr(2)) == %nd_ds)) { 
      .set %nd.reg 0 
    } 
    elseif (*nick is*wait*ver*cat* iswm $1-) { 
      .set %nd.reg 1 
    } 
    else { 
      .set %nd.reg 2 
    } 
    nd_show 
  } 
  if ((ChanServ == $nick) && (%cd_ds != false)) { 
    if ((*isn*regi* iswm $3-) && ($remove($2,$chr(2)) == %cd_ds)) { 
      .set %cd.reg 0 
      .cd_show 
    } 
    if (*Founder* iswm $1-) { 
      .set %cd.found $2 
    } 
    if (*desc* iswm $1-) { 
      .set %cd.desc $2- 
    } 
    if (*registered* iswm $1-) { 
      .set %cd.reg $2- 
    } 
    if (*last* iswm $1-) { 
      .cd_show 
    } 
  } 
} 
alias cd { .set %cd_ds $1 | .msg ChanServ info $1 } 
alias nd { .set %nd_ds $1 | .whois $1 } 
alias nd_show { 
  var %nd_ret = NickData - %nd_ds $iif(%nd.reg == 0,(!R),$iif(%nd.reg == 1,(=R),(R))) $iif(%nd.id == true,(I),) $iif(%nd.hop == true,(H),) $iif(%nd.bot == true,(B),) $iif(%nd.na == na,(NA),$iif(%nd.na == op,(IRCop))) ( $+ $+(%nd.ident,@,%nd.host) $+ ) - %nd.chan 
  .unset %nd.* 
  echo -a %nd_ret 
  .set %nd_ds false 
} 
alias cd_show { 
  var %cd_ret = ChanData - %cd_ds $iif(%cd.reg == 0,(!R),(R - %cd.reg $+ ) Founder %cd.found - %cd.desc) 
  .unset %cd.* 
  echo -a %cd_ret 
  .set %cd_ds false 
}