API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Jun 23rd, 2017
64
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
mIRC 9.07 KB | None | 0 0
raw download clone embed print report
  1. alias big {
  2.   if ($bigtext.unsupp($1-)) {
  3.     echo -ac info *!* Characters You Chose Detailed Here Aren't Supported :> $bigtext.unsupp($1-)
  4.     return
  5.   }
  6.   var %lia, %lib, %lic, %lid, %lie, %i 1, %text $strip($1-, bur), %colregex /^(\d\d?(?:,\d\d?)?)/
  7.  
  8.   var %regex = /(?<= $+ $chr(3) $+ [0-9]| $+ $chr(3) $+ [0-9][0-9]) $+ $chr(44) $+ \d\d?/g, %res, %dummy = $regsub(%text, %regex, $null, %text)
  9.  
  10.   while (%i <= $len(%text)) {
  11.     if ($mid(%text, %i, 1) == $chr(3)) {
  12.       var %lia $+(%lia, $chr(3)), %lib $+(%lib, $chr(3)), %lic $+(%lic, $chr(3)), %lid $+(%lid, $chr(3)), %lie $+(%lie, $chr(3))
  13.       if ($mid(%text, $calc(%i + 1), 1) != $chr(32)) && ($regex(mtcol, $mid(%text, $calc(%i + 1), $mid(%text, $calc(%i + 1), 0)), %colregex)) {
  14.         var %m $regml(mtcol, 1)
  15.         var %lia %lia $+ %m, %lib %lib $+ %m, %lic %lic $+ %m, %lid %lid $+ %m, %lie %lie $+ %m
  16.         inc %i $len(%m)
  17.       }
  18.     }
  19.     else {
  20.       tokenize 32 $bigtext.char($mid(%text, %i, 1))
  21.       var %lia $+(%lia, $1), %lib $+(%lib, $2), %lic $+(%lic, $3), %lid $+(%lid, $4), %lie $+(%lie, $5)
  22.       ; if ($bigtext.kern($mid(%text, %i, 2))) {
  23.       var %lia $+(%lia, .), %lib $+(%lib, .), %lic $+(%lic, .), %lid $+(%lid, .), %lie $+(%lie, .)
  24.       ; }
  25.     }
  26.     inc %i
  27.   }
  28.   say $bigtext.format(%lia)
  29.   say $bigtext.format(%lib)
  30.   say $bigtext.format(%lic)
  31.   say $bigtext.format(%lid)
  32.   say $bigtext.format(%lie)
  33. }
  34.  
  35. alias -l bigtext.char {
  36.   if ($1 === $chr(32)) || ($1 === $null) return $&
  37.     ... $&
  38.     ... $&
  39.     ... $&
  40.     ... $&
  41.     ...
  42.   if ($1 === $chr(160)) return $&
  43.     ..... $&
  44.     ..... $&
  45.     ..... $&
  46.     ..... $&
  47.     .....
  48.   elseif ($1 == 0) return $&
  49.     .XXXX. $&
  50.     XX..XX $&
  51.     XX.XXX $&
  52.     XXX.XX $&
  53.     .XXXX.
  54.   elseif ($1 == 1) return $&
  55.     .XXXX $&
  56.     XX.XX $&
  57.     ...XX $&
  58.     ...XX $&
  59.     ...XX
  60.   elseif ($1 == 2) return $&
  61.     XXXXX. $&
  62.     ....XX $&
  63.     ..XX.. $&
  64.     XX.... $&
  65.     XXXXXX
  66.   elseif ($1 == 3) return $&
  67.     XXXXX. $&
  68.     ....XX $&
  69.     .XXXX. $&
  70.     ....XX $&
  71.     XXXXX.
  72.   elseif ($1 == 4) return $&
  73.     .....XXX. $&
  74.     ...XX.XX. $&
  75.     .XX...XX. $&
  76.     XXXXXXXXX $&
  77.     ......XX.
  78.   elseif ($1 == 5) return $&
  79.     XXXXX $&
  80.     XX... $&
  81.     XXXX. $&
  82.     ...XX $&
  83.     XXXX.
  84.   elseif ($1 == 6) return $&
  85.     .XXXX. $&
  86.     XX.... $&
  87.     XXXXX. $&
  88.     XX..XX $&
  89.     .XXXX.
  90.   elseif ($1 == 7) return $&
  91.     XXXXXX $&
  92.     ...XX. $&
  93.     ..XX.. $&
  94.     .XX... $&
  95.     XX....
  96.   elseif ($1 == 8) return $&
  97.     .XXXX. $&
  98.     XX..XX $&
  99.     .XXXX. $&
  100.     XX..XX $&
  101.     .XXXX.
  102.   elseif ($1 == 9) return $&
  103.     .XXXX. $&
  104.     XX..XX $&
  105.     .XXXXX $&
  106.     ....XX $&
  107.     .XXXX.
  108.   elseif ($1 == A) return $&
  109.     .XXXX. $&
  110.     XX..XX $&
  111.     XXXXXX $&
  112.     XX..XX $&
  113.     XX..XX
  114.   elseif ($1 == B) return $&
  115.     XXXXX. $&
  116.     XX..XX $&
  117.     XXXXX. $&
  118.     XX..XX $&
  119.     XXXXX.
  120.   elseif ($1 == C) return $&
  121.     .XXXX. $&
  122.     XX..XX $&
  123.     XX.... $&
  124.     XX..XX $&
  125.     .XXXX.
  126.   elseif ($1 == D) return $&
  127.     XXXX.. $&
  128.     XX.XX. $&
  129.     XX..XX $&
  130.     XX..XX $&
  131.     XXXXX.
  132.   elseif ($1 == E) return $&
  133.     XXXXX $&
  134.     XX... $&
  135.     XXXX. $&
  136.     XX... $&
  137.     XXXXX
  138.   elseif ($1 == F) return $&
  139.     XXXXX $&
  140.     XX... $&
  141.     XXXX. $&
  142.     XX... $&
  143.     XX...
  144.   elseif ($1 == G) return $&
  145.     .XXXX. $&
  146.     XX.... $&
  147.     XX.XXX $&
  148.     XX..XX $&
  149.     .XXXXX
  150.   elseif ($1 == H) return $&
  151.     XX...XX $&
  152.     XX...XX $&
  153.     XXXXXXX $&
  154.     XX...XX $&
  155.     XX...XX
  156.   elseif ($1 == I) return $&
  157.     XXXX $&
  158.     .XX. $&
  159.     .XX. $&
  160.     .XX. $&
  161.     XXXX
  162.   elseif ($1 == J) return $&
  163.     ....XX $&
  164.     ....XX $&
  165.     ....XX $&
  166.     XX..XX $&
  167.     .XXXX.
  168.   elseif ($1 == K) return $&
  169.     XX..XX $&
  170.     XX.XX. $&
  171.     XXXX.. $&
  172.     XX.XX. $&
  173.     XX..XX
  174.   elseif ($1 == L) return $&
  175.     XX... $&
  176.     XX... $&
  177.     XX... $&
  178.     XX... $&
  179.     XXXXX
  180.   elseif ($1 == M) return $&
  181.     XX....XX $&
  182.     XXX..XXX $&
  183.     XXXXXXXX $&
  184.     XX.XX.XX $&
  185.     XX....XX
  186.   elseif ($1 == N) return $&
  187.     XX..XX $&
  188.     XXX.XX $&
  189.     XXXXXX $&
  190.     XX.XXX $&
  191.     XX..XX
  192.   elseif ($1 == O) return $&
  193.     .XXXX. $&
  194.     XX..XX $&
  195.     XX..XX $&
  196.     XX..XX $&
  197.     .XXXX.
  198.   elseif ($1 == P) return $&
  199.     XXXXX. $&
  200.     XX..XX $&
  201.     XXXXX. $&
  202.     XX.... $&
  203.     XX....
  204.   elseif ($1 == Q) return $&
  205.     .XXXX.. $&
  206.     XX..XX. $&
  207.     XX..XX. $&
  208.     XX..XX. $&
  209.     .XXXXXX
  210.   elseif ($1 == R) return $&
  211.     XXXXX. $&
  212.     XX..XX $&
  213.     XXXXX. $&
  214.     XX..XX $&
  215.     XX..XX
  216.   elseif ($1 == S) return $&
  217.     .XXXX. $&
  218.     XX.... $&
  219.     .XXXX. $&
  220.     ....XX $&
  221.     XXXXX.
  222.   elseif ($1 == T) return $&
  223.     XXXXXX $&
  224.     ..XX.. $&
  225.     ..XX.. $&
  226.     ..XX.. $&
  227.     ..XX..
  228.   elseif ($1 == U) return $&
  229.     XX..XX $&
  230.     XX..XX $&
  231.     XX..XX $&
  232.     XX..XX $&
  233.     .XXXX.
  234.   elseif ($1 == V) return $&
  235.     XX....XX $&
  236.     XX....XX $&
  237.     .XX..XX. $&
  238.     ..XXXX.. $&
  239.     ...XX...
  240.   elseif ($1 == W) return $&
  241.     XX...XX $&
  242.     XX...XX $&
  243.     XX.X.XX $&
  244.     XXXXXXX $&
  245.     .XX.XX.
  246.   elseif ($1 == X) return $&
  247.     XX...XX $&
  248.     .XX.XX. $&
  249.     ..XXX.. $&
  250.     .XX.XX. $&
  251.     XX...XX
  252.   elseif ($1 == Y) return $&
  253.     XX..XX $&
  254.     XX..XX $&
  255.     .XXXX. $&
  256.     ..XX.. $&
  257.     ..XX..
  258.   elseif ($1 == Z) return $&
  259.     XXXXXX $&
  260.     ...XX. $&
  261.     ..XX.. $&
  262.     .XX... $&
  263.     XXXXXX
  264.   elseif ($1 == $chr(35)) return $&
  265.     .XX..XX. $&
  266.     XXXXXXXX $&
  267.     .XX..XX. $&
  268.     XXXXXXXX $&
  269.     .XX..XX.
  270.   elseif ($1 == ') return $&
  271.     .XX $&
  272.     XX. $&
  273.     ... $&
  274.     ... $&
  275.     ...
  276.   elseif ($1 == ") return $&
  277.     XX..XX $&
  278.     XX..XX $&
  279.     ...... $&
  280.     ...... $&
  281.     ......
  282.   elseif ($1 == +) return $&
  283.     ...... $&
  284.     ..XX.. $&
  285.     XXXXXX $&
  286.     ..XX.. $&
  287.     ......
  288.   elseif ($1 == =) return $&
  289.     ...... $&
  290.     XXXXXX $&
  291.     ...... $&
  292.     XXXXXX $&
  293.     ......
  294.   elseif ($1 == -) return $&
  295.     ...... $&
  296.     ...... $&
  297.     XXXXXX $&
  298.     ...... $&
  299.     ......
  300.   elseif ($1 == _) return $&
  301.     ...... $&
  302.     ...... $&
  303.     ...... $&
  304.     ...... $&
  305.     XXXXXX
  306.   elseif ($1 == ¯) return $&
  307.     XXXXXX $&
  308.     ...... $&
  309.     ...... $&
  310.     ...... $&
  311.     ......
  312.   elseif ($1 == °) return $&
  313.     .XXX. $&
  314.     XX.XX $&
  315.     .XXX. $&
  316.     ..... $&
  317.     .....
  318.   elseif ($1 == :) return $&
  319.     .. $&
  320.     XX $&
  321.     .. $&
  322.     XX $&
  323.     ..
  324.   elseif ($1 == !) return $&
  325.     XX $&
  326.     XX $&
  327.     XX $&
  328.     .. $&
  329.     XX
  330.   elseif ($1 == ?) return $&
  331.     XXX. $&
  332.     ..XX $&
  333.     .XX. $&
  334.     .... $&
  335.     .XX.
  336.   elseif ($1 == .) return $&
  337.     .. $&
  338.     .. $&
  339.     .. $&
  340.     .. $&
  341.     XX
  342.   elseif ($1 == /) return $&
  343.     ....XX $&
  344.     ...XX. $&
  345.     ..XX.. $&
  346.     .XX... $&
  347.     XX....
  348.   elseif ($1 == \) return $&
  349.     XX.... $&
  350.     .XX... $&
  351.     ..XX.. $&
  352.     ...XX. $&
  353.     ....XX
  354.   elseif ($1 == $chr(40)) return $&
  355.     ...XX $&
  356.     .XX.. $&
  357.     XX... $&
  358.     .XX.. $&
  359.     ...XX
  360.   elseif ($1 == $chr(41)) return $&
  361.     XX... $&
  362.     ..XX. $&
  363.     ...XX $&
  364.     ..XX. $&
  365.     XX...
  366.   elseif ($1 == $chr(37)) return $&
  367.     XX..XX $&
  368.     ...XX. $&
  369.     ..XX.. $&
  370.     .XX... $&
  371.     XX..XX
  372.   elseif ($1 == [) return $&
  373.     XXXXX $&
  374.     XX... $&
  375.     XX... $&
  376.     XX... $&
  377.     XXXXX
  378.   elseif ($1 == ]) return $&
  379.     XXXXX $&
  380.     ...XX $&
  381.     ...XX $&
  382.     ...XX $&
  383.     XXXXX
  384.   elseif ($1 == |) return $&
  385.     .XX. $&
  386.     .XX. $&
  387.     .XX. $&
  388.     .XX. $&
  389.     .XX.
  390.   elseif ($1 == <) return $&
  391.     ....XX $&
  392.     ..XX.. $&
  393.     XX.... $&
  394.     ..XX.. $&
  395.     ....XX
  396.   elseif ($1 == >) return $&
  397.     XX.... $&
  398.     ..XX.. $&
  399.     ....XX $&
  400.     ..XX.. $&
  401.     XX....
  402.   elseif ($1 == ¸) return $&
  403.     .... $&
  404.     .... $&
  405.     .XX. $&
  406.     ..XX $&
  407.     XXX.
  408.   elseif ($1 == ,) return $&
  409.     ... $&
  410.     ... $&
  411.     XXX $&
  412.     .XX $&
  413.     XX.
  414. }
  415.  
  416.  
  417.  
  418. alias bigtext.unsupp {
  419.   var %res, %dummy = $regsub($1-, /[]a-z  0-9# $+ $chr(44) $+ '+=°:!?./\\()%[|<>_¯"¸-]/igS, $null, %res)
  420.   return %res
  421. }
  422.  
  423. alias bigtext.kern {
  424.   var %res $true
  425.   if ($regex($1-, /^(.|[_GDSQL-]T|[TPFVY7/"]J|T\.|L[1Y\\"]|[LTK<[]-|-[]>%\\]|S1|T4|\?\.|\.\?|[467L\\]°|°[J/]|L'|\/\/|\\\\|¯J|[_¯]¯|[¯T_]_|>\.|\.<)$/i)) %res = $false
  426.   return %res
  427. }
  428.  
  429. alias bigtext.format {
  430.   var %res, %i 1, %previous 0, %current, %curcolor, %colregex /^(\d\d?(?:,\d\d?)?)/
  431.   while (%i <= $len($1-)) {
  432.     if ($mid($1-, %i, 1) == $chr(3)) {
  433.       if ($regex(mtcol, $mid($1-, $calc(%i + 1), $mid($1-, $calc(%i + 1), 0)), %colregex)) {
  434.         if ($gettok($regml(mtcol, 1), 1, 44) != %curcolor) {
  435.           %curcolor = $gettok($regml(mtcol, 1), 1, 44)
  436.           if (%i != 1) && ($mid($1-, $calc(%i - 1), 1) == X) %res = %res $+ $chr(15)
  437.         }
  438.         inc %i $len($regml(mtcol, 1))
  439.       }
  440.       elseif (%curcolor) {
  441.         %curcolor =
  442.         if (%i != 1) && ($mid($1-, $calc(%i - 1), 1) == X) %res = %res $+ $chr(15)
  443.       }
  444.     }
  445.     else {
  446.       %current = $iif($mid($1-, %i, 1) == ., 0, 1)
  447.       if (%previous != %current) {
  448.         %previous = %current
  449.         if (%curcolor) {
  450.           if (%current) %res = %res $+ $chr(3) $+ %curcolor $+ , $+ %curcolor
  451.           else %res = %res $+ $chr(3)
  452.         }
  453.         else %res = %res $+ $chr(22)
  454.       }
  455.       %res = %res $+ $chr(160)
  456.     }
  457.     inc %i
  458.   }
  459.   return %res
  460. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!