API tools faq
paste
Advertisement
illpastethat

Big Black Penis Script For Eatmcheese

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