ok here ya go lego

Menu Nicklist, {
  .l33t
  ..on: set %l33ttalk on
  ..off: set %l33ttalk off
  .Translation
  ..transtoengon: .set %tr4nstoeng on
  ..transtoengoff: .set %tr4nstoeng off
  ..transtol33ton: .set %transtol33t on
  ..transtol33toff: .set %transtol33t off
}
on *:Input:#: {
  if (%l33ttalk == on) { 
    msg $active $replace($1-,t,+,a,4,e,3,s,z,i,1,o,0,H,|-|,K,|<,A,@,M,|\/|) | halt
  }
}
on ^*:TEXT:*:*:{
  if (%transtol33t == on) { 
    echo $active $nick $replace($1-,t,+,a,4,e,3,s,z,i,1,o,0,H,|-|,K,|<,A,@,M,|\/|)
    haltdef
  }
  elseif (%tr4nstoeng == on) {
    echo  $active $nick $replace($1-,+,t,4,a,3,e,z,s,1,i,0,o,|-|,h,|<,k,@,A,|\/|,M)
    haltdef
  }
}
on ^*:ACTION:*:*:{
  if (%transtol33t == on) { 
    echo $active $nick $replace($1-,t,+,a,4,e,3,s,z,i,1,o,0,H,|-|,K,|<,A,@,M,|\/|)
    haltdef
  }
  elseif (%tr4nstoeng == on) {
    echo  $active $nick $replace($1-,+,t,4,a,3,e,z,s,1,i,0,o,|-|,h,|<,k,@,A,|\/|,M)
    haltdef
  }
}