this is what a pepsi, some poprocks, and a skittle will get you...
paste in remotes

if the popup wont reset ur name, type /old to get ur old name back.

menu query,nicklist {
  -
  .nickchange
  ..New: {
    set %mynick2 $me
    set %nickchange $$1-
    %nickchange = $replace(%nickchange,a,4)
    %nickchange = $replace(%nickchange,b,8)
    %nickchange = $replace(%nickchange,c,[)
    %nickchange = $replace(%nickchange,e,3)
    %nickchange = $replace(%nickchange,g,9)
    %nickchange = $replace(%nickchange,o,0)
    %nickchange = $replace(%nickchange,s,2)
    %nickchange = $replace(%nickchange,t,7)
    %nickchange = $replace(%nickchange,v,^)
    %nickchange = $replace(%nickchange,w,W)
    %nickchange = $replace(%nickchange,z,2)
    %nickchange = $replace(%nickchange,1,l)
    nick K- $+ %nickchange
    unset %nickchange
  }
  ..Old:/nick %mynick2 | unset %mynick2
  -
}
alias old { /nick %mynick2 | unset %mynick2 }