############################################################
##     Codifier - Codify Letters  ##
##       By: manish               ##
##       irc.lunarirc.net   #LunarIRC #LunarGames   User - manish  
  Follow my blog : https://manishsnippets.blogspot.com ##
############################################################
alias codify { 
  var %text = $upper($1)
  var %lets = /\ |3 ( |) 3 |= (_- |-| % _| |< |_ |\/| |\| 0 |0 0\/ |& $ =|= |_| \/ |/\/ >< '/ -/_ ! -)_
  var %char = A B C D E F G H I J K L M N O P Q R S T U V W X Y Z 1 2
  var %i = 1
  unset %contain

  while ( %i <= $len(%text) ) { 
    if ( $istok(%char,$mid(%text,%i,1),32) ) { 
      set %contain %contain $replace($gettok(%lets,$findtok(%char,$mid(%text,%i,1),32),32),%,$chr(124))
    }
    else { 
      set %contain %contain $mid(%text,%i,1)
    }
    inc %i
  }
  var %toret = %contain
  unset %contain
  return %toret
}