Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ############################################################
- ## 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
- }
Add Comment
Please, Sign In to add comment