API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Aug 16th, 2017
82
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 17.60 KB | None | 0 0
raw download clone embed print report
  1. alias cmt {
  2. ; Random colours (originally taken from Hawkee Snippet 6509 (no longer exists))
  3. ; Addition by Cyberclops @ irc.ukgeekchat.co.cc/UKGeekChat
  4. ; Each line will have a random colour but will never be the same colour as a previous line.
  5. set %BigText.colour1 $rand(2,15)
  6. :resetcolour2
  7. set %BigText.colour2 $rand(2,15)
  8. if (%BigText.colour2 == %BigText.colour1) { goto resetcolour2 }
  9. :resetcolour3
  10. set %BigText.colour3 $rand(2,15)
  11. if (%BigText.colour3 == %BigText.colour2) || (%BigText.colour3 == %BigText.colour1) { goto resetcolour3 }
  12. :resetcolour4
  13. set %BigText.colour4 $rand(2,15)
  14. if (%BigText.colour4 == %BigText.colour3) || (%BigText.colour4 == %BigText.colour2) || (%BigText.colour4 == %BigText.colour1) { goto resetcolour4 }
  15. :resetcolour5
  16. set %BigText.colour5 $rand(2,15)
  17. if (%BigText.colour5 == %BigText.colour4) || (%BigText.colour5 == %BigText.colour3) || (%BigText.colour5 == %BigText.colour2) || (%BigText.colour5 == %BigText.colour1) { goto resetcolour5 }
  18. ; Random colours addition End.
  19. if ($bigtext.unsupp($1-)) {
  20. echo -ac info * Characters not supported by Big Text present in your message: $bigtext.unsupp($1-)
  21. return
  22. }
  23. var %lia, %lib, %lic, %lid, %lie, %i 1, %text $strip($1-, bur), %colregex /^(\d\d?(?:,\d\d?)?)/
  24.  
  25. var %regex = /(?<= $+ $chr(3) $+ [0-9]| $+ $chr(3) $+ [0-9][0-9]) $+ $chr(44) $+ \d\d?/g, %res, %dummy = $regsub(%text, %regex, $null, %text)
  26.  
  27. while (%i <= $len(%text)) {
  28. if ($mid(%text, %i, 1) == $chr(3)) {
  29. var %lia $+(%lia, $chr(3)), %lib $+(%lib, $chr(3)), %lic $+(%lic, $chr(3)), %lid $+(%lid, $chr(3)), %lie $+(%lie, $chr(3))
  30. if ($mid(%text, $calc(%i + 1), 1) != $chr(32)) && ($regex(mtcol, $mid(%text, $calc(%i + 1), $mid(%text, $calc(%i + 1), 0)), %colregex)) {
  31. var %m $regml(mtcol, 1)
  32. var %lia %lia $+ %m, %lib %lib $+ %m, %lic %lic $+ %m, %lid %lid $+ %m, %lie %lie $+ %m
  33. inc %i $len(%m)
  34. }
  35. }
  36. else {
  37. tokenize 32 $bigtext.char($mid(%text, %i, 1))
  38. var %lia $+(%lia, $1), %lib $+(%lib, $2), %lic $+(%lic, $3), %lid $+(%lid, $4), %lie $+(%lie, $5)
  39. ; if ($bigtext.kern($mid(%text, %i, 2))) {
  40. var %lia $+(%lia, .), %lib $+(%lib, .), %lic $+(%lic, .), %lid $+(%lid, .), %lie $+(%lie, .)
  41. ; }
  42. }
  43. inc %i
  44. }
  45. say $bigtext.format(%lia)
  46. say $bigtext.format(%lib)
  47. say $bigtext.format(%lic)
  48. say $bigtext.format(%lid)
  49. say $bigtext.format(%lie)
  50. }
  51.  
  52. ; You may customize this alias however you want to.
  53. ; It is Big Text's font, used above.
  54. ; The return value consists of dots and X's, to denote
  55. ; unlit and lit points in the font, respectively;
  56. ; there are 5 tokens of the same length, each
  57. ; corresponding to a line in the 5-line output.
  58. ; Note how the . and X's look like the characters;
  59. ; you can use this to your advantage!
  60. alias -l bigtext.char {
  61. if ($1 === $chr(32)) || ($1 === $null) return $&
  62. ... $&
  63. ... $&
  64. ... $&
  65. ... $&
  66. ...
  67. if ($1 === $chr(160)) return $&
  68. ..... $&
  69. ..... $&
  70. ..... $&
  71. ..... $&
  72. .....
  73. elseif ($1 == $chr(163)) return $&
  74.  $+ %BigText.colour1 $+ .XXXXX$&
  75.  $+ %BigText.colour2 $+ X.....$&
  76.  $+ %BigText.colour3 $+ XXX...$&
  77.  $+ %BigText.colour4 $+ X.....$&
  78.  $+ %BigText.colour5 $+ XXXXXX
  79. elseif ($1 == 0) return $&
  80.  $+ %BigText.colour1 $+ .XXXX.$&
  81.  $+ %BigText.colour2 $+ XX..XX$&
  82.  $+ %BigText.colour3 $+ XX.XXX$&
  83.  $+ %BigText.colour4 $+ XXX.XX$&
  84.  $+ %BigText.colour5 $+ .XXXX.
  85. elseif ($1 == 1) return $&
  86.  $+ %BigText.colour1 $+ .XXXX $&
  87.  $+ %BigText.colour2 $+ XX.XX $&
  88.  $+ %BigText.colour3 $+ ...XX $&
  89.  $+ %BigText.colour4 $+ ...XX $&
  90.  $+ %BigText.colour5 $+ ...XX
  91. elseif ($1 == 2) return $&
  92.  $+ %BigText.colour1 $+ XXXXX. $&
  93.  $+ %BigText.colour2 $+ ....XX $&
  94.  $+ %BigText.colour3 $+ ..XX.. $&
  95.  $+ %BigText.colour4 $+ XX.... $&
  96.  $+ %BigText.colour5 $+ XXXXXX
  97. elseif ($1 == 3) return $&
  98.  $+ %BigText.colour1 $+ XXXXX. $&
  99.  $+ %BigText.colour2 $+ ....XX $&
  100.  $+ %BigText.colour3 $+ .XXXX. $&
  101.  $+ %BigText.colour4 $+ ....XX $&
  102.  $+ %BigText.colour5 $+ XXXXX.
  103. elseif ($1 == 4) return $&
  104.  $+ %BigText.colour1 $+ .....XXX. $&
  105.  $+ %BigText.colour2 $+ ...XX.XX. $&
  106.  $+ %BigText.colour3 $+ .XX...XX. $&
  107.  $+ %BigText.colour4 $+ XXXXXXXXX $&
  108.  $+ %BigText.colour5 $+ ......XX.
  109. elseif ($1 == 5) return $&
  110.  $+ %BigText.colour1 $+ XXXXX $&
  111.  $+ %BigText.colour2 $+ XX... $&
  112.  $+ %BigText.colour3 $+ XXXX. $&
  113.  $+ %BigText.colour4 $+ ...XX $&
  114.  $+ %BigText.colour5 $+ XXXX.
  115. elseif ($1 == 6) return $&
  116.  $+ %BigText.colour1 $+ .XXXX. $&
  117.  $+ %BigText.colour2 $+ XX.... $&
  118.  $+ %BigText.colour3 $+ XXXXX. $&
  119.  $+ %BigText.colour4 $+ XX..XX $&
  120.  $+ %BigText.colour5 $+ .XXXX.
  121. elseif ($1 == 7) return $&
  122.  $+ %BigText.colour1 $+ XXXXXX $&
  123.  $+ %BigText.colour2 $+ ...XX. $&
  124.  $+ %BigText.colour3 $+ ..XX.. $&
  125.  $+ %BigText.colour4 $+ .XX... $&
  126.  $+ %BigText.colour5 $+ XX....
  127. elseif ($1 == 8) return $&
  128.  $+ %BigText.colour1 $+ .XXXX. $&
  129.  $+ %BigText.colour2 $+ XX..XX $&
  130.  $+ %BigText.colour3 $+ .XXXX. $&
  131.  $+ %BigText.colour4 $+ XX..XX $&
  132.  $+ %BigText.colour5 $+ .XXXX.
  133. elseif ($1 == 9) return $&
  134.  $+ %BigText.colour1 $+ .XXXX. $&
  135.  $+ %BigText.colour2 $+ XX..XX $&
  136.  $+ %BigText.colour3 $+ .XXXXX $&
  137.  $+ %BigText.colour4 $+ ....XX $&
  138.  $+ %BigText.colour5 $+ .XXXX.
  139. elseif ($1 == A) return $&
  140.  $+ %BigText.colour1 $+ .XXXX. $&
  141.  $+ %BigText.colour2 $+ XX..XX $&
  142.  $+ %BigText.colour3 $+ XXXXXX $&
  143.  $+ %BigText.colour4 $+ XX..XX $&
  144.  $+ %BigText.colour5 $+ XX..XX
  145. elseif ($1 == B) return $&
  146.  $+ %BigText.colour1 $+ XXXXX. $&
  147.  $+ %BigText.colour2 $+ XX..XX $&
  148.  $+ %BigText.colour3 $+ XXXXX. $&
  149.  $+ %BigText.colour4 $+ XX..XX $&
  150.  $+ %BigText.colour5 $+ XXXXX.
  151. elseif ($1 == C) return $&
  152.  $+ %BigText.colour1 $+ .XXXX. $&
  153.  $+ %BigText.colour2 $+ XX..XX $&
  154.  $+ %BigText.colour3 $+ XX.... $&
  155.  $+ %BigText.colour4 $+ XX..XX $&
  156.  $+ %BigText.colour5 $+ .XXXX.
  157. elseif ($1 == D) return $&
  158.  $+ %BigText.colour1 $+ XXXX.. $&
  159.  $+ %BigText.colour2 $+ XX.XX. $&
  160.  $+ %BigText.colour3 $+ XX..XX $&
  161.  $+ %BigText.colour4 $+ XX..XX $&
  162.  $+ %BigText.colour5 $+ XXXXX.
  163. elseif ($1 == E) return $&
  164.  $+ %BigText.colour1 $+ XXXXX $&
  165.  $+ %BigText.colour2 $+ XX... $&
  166.  $+ %BigText.colour3 $+ XXXX. $&
  167.  $+ %BigText.colour4 $+ XX... $&
  168.  $+ %BigText.colour5 $+ XXXXX
  169. elseif ($1 == F) return $&
  170.  $+ %BigText.colour1 $+ XXXXX $&
  171.  $+ %BigText.colour2 $+ XX... $&
  172.  $+ %BigText.colour3 $+ XXXX. $&
  173.  $+ %BigText.colour4 $+ XX... $&
  174.  $+ %BigText.colour5 $+ XX...
  175. elseif ($1 == G) return $&
  176.  $+ %BigText.colour1 $+ .XXXX. $&
  177.  $+ %BigText.colour2 $+ XX.... $&
  178.  $+ %BigText.colour3 $+ XX.XXX $&
  179.  $+ %BigText.colour4 $+ XX..XX $&
  180.  $+ %BigText.colour5 $+ .XXXXX
  181. elseif ($1 == H) return $&
  182.  $+ %BigText.colour1 $+ XX...XX $&
  183.  $+ %BigText.colour2 $+ XX...XX $&
  184.  $+ %BigText.colour3 $+ XXXXXXX $&
  185.  $+ %BigText.colour4 $+ XX...XX $&
  186.  $+ %BigText.colour5 $+ XX...XX
  187. elseif ($1 == I) return $&
  188.  $+ %BigText.colour1 $+ XXXX $&
  189.  $+ %BigText.colour2 $+ .XX. $&
  190.  $+ %BigText.colour3 $+ .XX. $&
  191.  $+ %BigText.colour4 $+ .XX. $&
  192.  $+ %BigText.colour5 $+ XXXX
  193. elseif ($1 == J) return $&
  194.  $+ %BigText.colour1 $+ ....XX $&
  195.  $+ %BigText.colour2 $+ ....XX $&
  196.  $+ %BigText.colour3 $+ ....XX $&
  197.  $+ %BigText.colour4 $+ XX..XX $&
  198.  $+ %BigText.colour5 $+ .XXXX.
  199. elseif ($1 == K) return $&
  200.  $+ %BigText.colour1 $+ XX..XX $&
  201.  $+ %BigText.colour2 $+ XX.XX. $&
  202.  $+ %BigText.colour3 $+ XXXX.. $&
  203.  $+ %BigText.colour4 $+ XX.XX. $&
  204.  $+ %BigText.colour5 $+ XX..XX
  205. elseif ($1 == L) return $&
  206.  $+ %BigText.colour1 $+ XX... $&
  207.  $+ %BigText.colour2 $+ XX... $&
  208.  $+ %BigText.colour3 $+ XX... $&
  209.  $+ %BigText.colour4 $+ XX... $&
  210.  $+ %BigText.colour5 $+ XXXXX
  211. elseif ($1 == M) return $&
  212.  $+ %BigText.colour1 $+ XX....XX $&
  213.  $+ %BigText.colour2 $+ XXX..XXX $&
  214.  $+ %BigText.colour3 $+ XXXXXXXX $&
  215.  $+ %BigText.colour4 $+ XX.XX.XX $&
  216.  $+ %BigText.colour5 $+ XX....XX
  217. elseif ($1 == N) return $&
  218.  $+ %BigText.colour1 $+ XX..XX $&
  219.  $+ %BigText.colour2 $+ XXX.XX $&
  220.  $+ %BigText.colour3 $+ XXXXXX $&
  221.  $+ %BigText.colour4 $+ XX.XXX $&
  222.  $+ %BigText.colour5 $+ XX..XX
  223. elseif ($1 == O) return $&
  224.  $+ %BigText.colour1 $+ .XXXX. $&
  225.  $+ %BigText.colour2 $+ XX..XX $&
  226.  $+ %BigText.colour3 $+ XX..XX $&
  227.  $+ %BigText.colour4 $+ XX..XX $&
  228.  $+ %BigText.colour5 $+ .XXXX.
  229. elseif ($1 == P) return $&
  230.  $+ %BigText.colour1 $+ XXXXX. $&
  231.  $+ %BigText.colour2 $+ XX..XX $&
  232.  $+ %BigText.colour3 $+ XXXXX. $&
  233.  $+ %BigText.colour4 $+ XX.... $&
  234.  $+ %BigText.colour5 $+ XX....
  235. elseif ($1 == Q) return $&
  236.  $+ %BigText.colour1 $+ .XXXX.. $&
  237.  $+ %BigText.colour2 $+ XX..XX. $&
  238.  $+ %BigText.colour3 $+ XX..XX. $&
  239.  $+ %BigText.colour4 $+ XX..XX. $&
  240.  $+ %BigText.colour5 $+ .XXXXXX
  241. elseif ($1 == R) return $&
  242.  $+ %BigText.colour1 $+ XXXXX. $&
  243.  $+ %BigText.colour2 $+ XX..XX $&
  244.  $+ %BigText.colour3 $+ XXXXX. $&
  245.  $+ %BigText.colour4 $+ XX..XX $&
  246.  $+ %BigText.colour5 $+ XX..XX
  247. elseif ($1 == S) return $&
  248.  $+ %BigText.colour1 $+ .XXXX. $&
  249.  $+ %BigText.colour2 $+ XX.... $&
  250.  $+ %BigText.colour3 $+ .XXXX. $&
  251.  $+ %BigText.colour4 $+ ....XX $&
  252.  $+ %BigText.colour5 $+ XXXXX.
  253. elseif ($1 == T) return $&
  254.  $+ %BigText.colour1 $+ XXXXXX $&
  255.  $+ %BigText.colour2 $+ ..XX.. $&
  256.  $+ %BigText.colour3 $+ ..XX.. $&
  257.  $+ %BigText.colour4 $+ ..XX.. $&
  258.  $+ %BigText.colour5 $+ ..XX..
  259. elseif ($1 == U) return $&
  260.  $+ %BigText.colour1 $+ XX..XX $&
  261.  $+ %BigText.colour2 $+ XX..XX $&
  262.  $+ %BigText.colour3 $+ XX..XX $&
  263.  $+ %BigText.colour4 $+ XX..XX $&
  264.  $+ %BigText.colour5 $+ .XXXX.
  265. elseif ($1 == V) return $&
  266.  $+ %BigText.colour1 $+ XX....XX $&
  267.  $+ %BigText.colour2 $+ XX....XX $&
  268.  $+ %BigText.colour3 $+ .XX..XX. $&
  269.  $+ %BigText.colour4 $+ ..XXXX.. $&
  270.  $+ %BigText.colour5 $+ ...XX...
  271. elseif ($1 == W) return $&
  272.  $+ %BigText.colour1 $+ XX...XX $&
  273.  $+ %BigText.colour2 $+ XX...XX $&
  274.  $+ %BigText.colour3 $+ XX.X.XX $&
  275.  $+ %BigText.colour4 $+ XXXXXXX $&
  276.  $+ %BigText.colour5 $+ .XX.XX.
  277. elseif ($1 == X) return $&
  278.  $+ %BigText.colour1 $+ XX...XX $&
  279.  $+ %BigText.colour2 $+ .XX.XX. $&
  280.  $+ %BigText.colour3 $+ ..XXX.. $&
  281.  $+ %BigText.colour4 $+ .XX.XX. $&
  282.  $+ %BigText.colour5 $+ XX...XX
  283. elseif ($1 == Y) return $&
  284.  $+ %BigText.colour1 $+ XX..XX $&
  285.  $+ %BigText.colour2 $+ XX..XX $&
  286.  $+ %BigText.colour3 $+ .XXXX. $&
  287.  $+ %BigText.colour4 $+ ..XX.. $&
  288.  $+ %BigText.colour5 $+ ..XX..
  289. elseif ($1 == Z) return $&
  290.  $+ %BigText.colour1 $+ XXXXXX $&
  291.  $+ %BigText.colour2 $+ ...XX. $&
  292.  $+ %BigText.colour3 $+ ..XX.. $&
  293.  $+ %BigText.colour4 $+ .XX... $&
  294.  $+ %BigText.colour5 $+ XXXXXX
  295. elseif ($1 == $chr(35)) return $&
  296.  $+ %BigText.colour1 $+ .XX..XX. $&
  297.  $+ %BigText.colour2 $+ XXXXXXXX $&
  298.  $+ %BigText.colour3 $+ .XX..XX. $&
  299.  $+ %BigText.colour4 $+ XXXXXXXX $&
  300.  $+ %BigText.colour5 $+ .XX..XX.
  301. elseif ($1 == ') return $&
  302.  $+ %BigText.colour1 $+ .XX $&
  303.  $+ %BigText.colour2 $+ XX. $&
  304. ... $&
  305. ... $&
  306. ...
  307. elseif ($1 == ") return $&
  308.  $+ %BigText.colour1 $+ XX..XX $&
  309.  $+ %BigText.colour2 $+ XX..XX $&
  310. ...... $&
  311. ...... $&
  312. ......
  313. elseif ($1 == +) return $&
  314. ...... $&
  315.  $+ %BigText.colour2 $+ ..XX.. $&
  316.  $+ %BigText.colour3 $+ XXXXXX $&
  317.  $+ %BigText.colour4 $+ ..XX.. $&
  318. ......
  319. elseif ($1 == =) return $&
  320. ...... $&
  321.  $+ %BigText.colour2 $+ XXXXXX $&
  322. ...... $&
  323.  $+ %BigText.colour4 $+ XXXXXX $&
  324. ......
  325. elseif ($1 == -) return $&
  326. ...... $&
  327. ...... $&
  328.  $+ %BigText.colour3 $+ XXXXXX $&
  329. ...... $&
  330. ......
  331. elseif ($1 == _) return $&
  332. ...... $&
  333. ...... $&
  334. ...... $&
  335. ...... $&
  336.  $+ %BigText.colour5 $+ XXXXXX
  337. elseif ($1 == ¯) return $&
  338.  $+ %BigText.colour1 $+ XXXXXX $&
  339. ...... $&
  340. ...... $&
  341. ...... $&
  342. ......
  343. elseif ($1 == °) return $&
  344.  $+ %BigText.colour1 $+ .XXX. $&
  345.  $+ %BigText.colour2 $+ XX.XX $&
  346.  $+ %BigText.colour3 $+ .XXX. $&
  347. ..... $&
  348. .....
  349. elseif ($1 == :) return $&
  350. .. $&
  351.  $+ %BigText.colour2 $+ XX $&
  352. .. $&
  353.  $+ %BigText.colour4 $+ XX $&
  354. ..
  355. elseif ($1 == !) return $&
  356.  $+ %BigText.colour1 $+ XX $&
  357.  $+ %BigText.colour2 $+ XX $&
  358.  $+ %BigText.colour3 $+ XX $&
  359. .. $&
  360.  $+ %BigText.colour5 $+ XX
  361. elseif ($1 == ?) return $&
  362.  $+ %BigText.colour1 $+ XXX. $&
  363.  $+ %BigText.colour2 $+ ..XX $&
  364.  $+ %BigText.colour3 $+ .XX. $&
  365. .... $&
  366.  $+ %BigText.colour5 $+ .XX.
  367. elseif ($1 == .) return $&
  368. .. $&
  369. .. $&
  370. .. $&
  371. .. $&
  372.  $+ %BigText.colour5 $+ XX
  373. elseif ($1 == /) return $&
  374.  $+ %BigText.colour1 $+ ....XX $&
  375.  $+ %BigText.colour2 $+ ...XX. $&
  376.  $+ %BigText.colour3 $+ ..XX.. $&
  377.  $+ %BigText.colour4 $+ .XX... $&
  378.  $+ %BigText.colour5 $+ XX....
  379. elseif ($1 == \) return $&
  380.  $+ %BigText.colour1 $+ XX.... $&
  381.  $+ %BigText.colour2 $+ .XX... $&
  382.  $+ %BigText.colour3 $+ ..XX.. $&
  383.  $+ %BigText.colour4 $+ ...XX. $&
  384.  $+ %BigText.colour5 $+ ....XX
  385. elseif ($1 == $chr(40)) return $&
  386.  $+ %BigText.colour1 $+ ....X $&
  387.  $+ %BigText.colour2 $+ ..X.. $&
  388.  $+ %BigText.colour3 $+ X.... $&
  389.  $+ %BigText.colour4 $+ ..X.. $&
  390.  $+ %BigText.colour5 $+ ....X
  391. elseif ($1 == $chr(41)) return $&
  392.  $+ %BigText.colour1 $+ X.... $&
  393.  $+ %BigText.colour2 $+ ..X.. $&
  394.  $+ %BigText.colour3 $+ ....X $&
  395.  $+ %BigText.colour4 $+ ..X.. $&
  396.  $+ %BigText.colour5 $+ X....
  397. elseif ($1 == $chr(37)) return $&
  398.  $+ %BigText.colour1 $+ XX..XX $&
  399.  $+ %BigText.colour2 $+ ...XX. $&
  400.  $+ %BigText.colour3 $+ ..XX.. $&
  401.  $+ %BigText.colour4 $+ .XX... $&
  402.  $+ %BigText.colour5 $+ XX..XX
  403. elseif ($1 == [) return $&
  404.  $+ %BigText.colour1 $+ XXXXX $&
  405.  $+ %BigText.colour2 $+ XX... $&
  406.  $+ %BigText.colour3 $+ XX... $&
  407.  $+ %BigText.colour4 $+ XX... $&
  408.  $+ %BigText.colour5 $+ XXXXX
  409. elseif ($1 == ]) return $&
  410.  $+ %BigText.colour1 $+ XXXXX $&
  411.  $+ %BigText.colour2 $+ ...XX $&
  412.  $+ %BigText.colour3 $+ ...XX $&
  413.  $+ %BigText.colour4 $+ ...XX $&
  414.  $+ %BigText.colour5 $+ XXXXX
  415. elseif ($1 == |) return $&
  416.  $+ %BigText.colour1 $+ .XX. $&
  417.  $+ %BigText.colour2 $+ .XX. $&
  418.  $+ %BigText.colour3 $+ .XX. $&
  419.  $+ %BigText.colour4 $+ .XX. $&
  420.  $+ %BigText.colour5 $+ .XX.
  421. elseif ($1 == <) return $&
  422.  $+ %BigText.colour1 $+ ....XX $&
  423.  $+ %BigText.colour1 $+ ..XX.. $&
  424.  $+ %BigText.colour1 $+ XX.... $&
  425.  $+ %BigText.colour1 $+ ..XX.. $&
  426.  $+ %BigText.colour1 $+ ....XX
  427. elseif ($1 == >) return $&
  428.  $+ %BigText.colour1 $+ XX.... $&
  429.  $+ %BigText.colour2 $+ ..XX.. $&
  430.  $+ %BigText.colour3 $+ ....XX $&
  431.  $+ %BigText.colour4 $+ ..XX.. $&
  432.  $+ %BigText.colour5 $+ XX....
  433. elseif ($1 == ¸) return $&
  434. .... $&
  435. .... $&
  436.  $+ %BigText.colour3 $+ .XX. $&
  437.  $+ %BigText.colour4 $+ ..XX $&
  438.  $+ %BigText.colour5 $+ XXX.
  439. elseif ($1 == ,) return $&
  440.  $+ %BigText.colour1 $+ ... $&
  441. ... $&
  442.  $+ %BigText.colour3 $+ XXX $&
  443.  $+ %BigText.colour4 $+ .XX $&
  444.  $+ %BigText.colour5 $+ XX.
  445. }
  446.  
  447.  
  448. ; Returns all unsupported characters within a Big Text message
  449. ; Supported characters are a-z, space, digits, #'"+=?:!?./\()%-[]<>|?,
  450. alias bigtext.unsupp {
  451. var %res, %dummy = $regsub($1-, /[]a-z 0-9# $+ $chr(44) $+ '+=?:!?./\\()%[|<>_?"?-]/igS, $null, %res)
  452. return %res
  453. }
  454.  
  455. ; Returns $true if a space should be added between two characters,
  456. ; or $false if not.
  457. ; Note: This is here only for aesthetic purposes. :)
  458. alias bigtext.kern {
  459. var %res $true
  460. if ($regex($1-, /^(.|[_GDSQL-]T|[TPFVY7/"]J|T\.|L[1Y\\"]|[LTK<[]-|-[]>%\\]|S1|T4|\?\.|\.\?|[467L\\]?|?[J/]|L'|\/\/|\\\\|?J|[_?]?|[?T_]_|>\.|\.<)$/i)) %res = $false
  461. return %res
  462. }
  463.  
  464. ; Takes an input string of the form:
  465. ; .XX..XX....XX.XX.XXXXX
  466. ; And formats it for display.
  467. alias bigtext.format {
  468. var %res, %i 1, %previous 0, %current, %curcolor, %colregex /^(\d\d?(?:,\d\d?)?)/
  469. while (%i <= $len($1-)) {
  470. if ($mid($1-, %i, 1) == $chr(3)) {
  471. if ($regex(mtcol, $mid($1-, $calc(%i + 1), $mid($1-, $calc(%i + 1), 0)), %colregex)) {
  472. if ($gettok($regml(mtcol, 1), 1, 44) != %curcolor) {
  473. %curcolor = $gettok($regml(mtcol, 1), 1, 44)
  474. if (%i != 1) && ($mid($1-, $calc(%i - 1), 1) == X) %res = %res $+ $chr(15)
  475. }
  476. inc %i $len($regml(mtcol, 1))
  477. }
  478. elseif (%curcolor) {
  479. %curcolor =
  480. if (%i != 1) && ($mid($1-, $calc(%i - 1), 1) == X) %res = %res $+ $chr(15)
  481. }
  482. }
  483. else {
  484. %current = $iif($mid($1-, %i, 1) == ., 0, 1)
  485. if (%previous != %current) {
  486. %previous = %current
  487. if (%curcolor) {
  488. if (%current) %res = %res $+ $chr(3) $+ %curcolor $+ , $+ %curcolor
  489. else %res = %res $+ $chr(3)
  490. }
  491. else %res = %res $+ $chr(22)
  492. }
  493. %res = %res $+ $chr(160)
  494. }
  495. inc %i
  496. }
  497. return %res
  498. }
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!