Big text (All chars work!)
Platform: mIRC
Published Dec 27, 2006
Updated Dec 27, 2006
Create a new file in remotes called 'big' (Scripts Editor -> File - New) then place the script into it. Type /big <text> to transform it into block text with all chars working! (Ascii, numbers, letters, alt codes etc)
##################################
# Script by Remco #
# http://hawkee.com/ #
##################################
alias big {
if ($$1) {
var %btxt = $replace($1-,$chr(32), ), %txt, %l = $len(%btxt), %p = 0,
%cmd = msg $chan
while (%p < %l) {
inc %p
%txt = %txt $+ $mid(%btxt,%p,1) $+ $iif(%p < %l,$chr(160),$chr(32))
}
if ($active == Status Window) %cmd = echo -tg
%txt.1 = $replace(%txt,, ,ฉ, )
%txt.2 = $replace(%txt,, ,ฉ, )
%txt.3 = $replace(%txt,, ,ฉ, )
%txt.4 = $replace(%txt,, ,ฉ, )
%txt.5 = $replace(%txt,, ,ฉ, )
%cmd $replace(%txt.1,!, ,$chr(34), ,$chr(35), ,$chr(36), ,$chr(37), ,$chr(38), ,', ,$chr(40), ,$chr(41), ,$chr(42), ,+, ,$chr(44), ,-, ,., ,/, ,0, ,1, ,2, ,3, ,4, ,5, ,6, ,7, ,8, ,9, ,:, ,;, ,<, ,=, ,>, ,?, ,@, ,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, ,[, ,\\, ,], ,^, ,_, ,`, ,$chr(123), ,|, ,$chr(125), ,~, ,, ,, ,, ,, ,
, ,, ,, ,, ,, )
%cmd $replace(%txt.2,!, ,$chr(34), ,$chr(35), ,$chr(36), ,$chr(37), ,$chr(38), ,', ,$chr(40), ,$chr(41), ,$chr(42), ,+, ,$chr(44), ,-, ,., ,/, ,0, ,1, ,2, ,3, ,4, ,5, ,6, ,7, ,8, ,9, ,:, ,;, ,<, ,=, ,>, ,?, ,@, ,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, ,[, ,\\, ,], ,^, ,_, ,`, ,$chr(123), ,|, ,$chr(125), ,~, ,, ,, ,, ,, ,
, ,, ,, ,, ,, )
%cmd $replace(%txt.3,!, ,$chr(34), ,$chr(35), ,$chr(36), ,$chr(37), ,$chr(38), ,', ,$chr(40), ,$chr(41), ,$chr(42), ,+, ,$chr(44), ,-, ,., ,/, ,0, ,1, ,2, ,3, ,4, ,5, ,6, ,7, ,8, ,9, ,:, ,;, ,<, ,=, ,>, ,?, ,@, ,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, ,[, ,\\, ,], ,^, ,_, ,`, ,$chr(123), ,|, ,$chr(125), ,~, ,, ,, ,, ,, ,
, ,, ,, ,, ,, )
%cmd $replace(%txt.4,!, ,$chr(34), ,$chr(35), ,$chr(36), ,$chr(37), ,$chr(38), ,', ,$chr(40), ,$chr(41), ,$chr(42), ,+, ,$chr(44), ,-, ,., ,/, ,0, ,1, ,2, ,3, ,4, ,5, ,6, ,7, ,8, ,9, ,:, ,;, ,<, ,=, ,>, ,?, ,@, ,A, ,B, ,C, ,D, ,E, ,F, ,G, ,H, ,I, ,J, ,K, ,L, ,M, ,N, ,O, ,P, ,Q, ,R, ,S, ,T, ,U, ,V, ,W, ,Y, ,X, ,Z, ,[, ,\\, ,], ,^, ,_, ,`, ,$chr(123), ,|, ,$chr(125), ,~, ,, ,, ,, ,, ,
, ,, ,, ,, ,, )
%cmd $replace(%txt.5,!, ,$chr(34), ,$chr(35), ,$chr(36), ,$chr(37), ,$chr(38), ,', ,$chr(40), ,$chr(41), ,$chr(42), ,+, ,$chr(44), ,-, ,., ,/, ,0, ,1, ,2, ,3, ,4, ,5, ,6, ,7, ,8, ,9, ,:, ,;, ,<, ,=, ,>, ,?, ,@, ,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, ,[, ,\\, ,], ,^, ,_, ,`, ,$chr(123), ,|, ,$chr(125), ,~, ,, ,, ,, ,, ,
, ,, ,, ,, ,, )
}
}
