pastebin - collaborative debugging tool
kpaste.net RSS


mIRC Big Text Script
Posted by Anonymous on Thu 13th May 2010 21:35
raw | new post

  1. alias bbig {
  2.   set %bl.buffer1 A
  3.   set %bl.buffer2 A
  4.   set %bl.buffer3 A
  5.   set %bl.buffer4 A
  6.   set %bl.buffer5 A
  7.   var %bl.cmd say, %bl.col1, %bl.col2
  8.   if ($$1 == echo) {
  9.     set %bl.cmd echo -at
  10.     tokenize 32 $2-
  11.   }
  12.   if ($1 !isnum) {
  13.     set %bl.col1 0
  14.     set %bl.col2 1
  15.   }
  16.   elseif ($2 !isnum) {
  17.     set %bl.col1 $1
  18.     set %bl.col2 1
  19.     tokenize 32 $2-
  20.   }
  21.   else {
  22.     set %bl.col1 $1
  23.     set %bl.col2 $2
  24.     tokenize 32 $3-
  25.   }
  26.   var %bl.idx1 1
  27.   var  %bl.idx2 1
  28.   var  %bl.idx3 1
  29.   ;set the block field
  30.   while (%bl.idx1 <= $0) {
  31.     set %bl.idx2 1
  32.     while (%bl.idx2 <= $len($ [ $+ [ %bl.idx1 ] ])) {
  33.       blockappend $bblockletter($mid($ [ $+ [ %bl.idx1 ] ],%bl.idx2,1))
  34.       inc %bl.idx2
  35.     }
  36.     if (%bl.idx1 < $0) blockappend $bblockletter
  37.     inc %bl.idx1
  38.   }
  39.   ;colorize the block field
  40.   blockcolor %bl.col1 %bl.col2
  41.   ;output the block field
  42.   set %bl.idx3 1
  43.   while (%bl.idx3 <= 5) {
  44.     %bl.cmd %bl.buffer [ $+ [ %bl.idx3 ] ]
  45.     unset %bl.buffer [ $+ [ %bl.idx3 ] ]
  46.   inc %bl.idx3 }
  47. }
  48. alias bbigchan {
  49.   set %bl.buffer1 A
  50.   set %bl.buffer2 A
  51.   set %bl.buffer3 A
  52.   set %bl.buffer4 A
  53.   set %bl.buffer5 A
  54.   var %bl.cmd msg $1, %bl.col1, %bl.col2
  55.   if ($$2 == echo) {
  56.     set %bl.cmd echo -at
  57.     tokenize 32 $3-
  58.   }
  59.   if ($2 !isnum) {
  60.     set %bl.col1 0
  61.     set %bl.col2 1
  62.   }
  63.   elseif ($3 !isnum) {
  64.     set %bl.col1 $2
  65.     set %bl.col2 1
  66.     tokenize 32 $3-
  67.   }
  68.   else {
  69.     set %bl.col1 $2
  70.     set %bl.col2 $3
  71.     tokenize 32 $4-
  72.   }
  73.   var %bl.idx1 1
  74.   var  %bl.idx2 1
  75.   var  %bl.idx3 1
  76.   ;set the block field
  77.   while (%bl.idx1 <= $0) {
  78.     set %bl.idx2 1
  79.     while (%bl.idx2 <= $len($ [ $+ [ %bl.idx1 ] ])) {
  80.       blockappend $bblockletter($mid($ [ $+ [ %bl.idx1 ] ],%bl.idx2,1))
  81.       inc %bl.idx2
  82.     }
  83.     if (%bl.idx1 < $0) blockappend $bblockletter
  84.     inc %bl.idx1
  85.   }
  86.   ;colorize the block field
  87.   blockcolor %bl.col1 %bl.col2
  88.   ;output the block field
  89.   set %bl.idx3 1
  90.   while (%bl.idx3 <= 5) {
  91.     %bl.cmd %bl.buffer [ $+ [ %bl.idx3 ] ]
  92.     unset %bl.buffer [ $+ [ %bl.idx3 ] ]
  93.   inc %bl.idx3 }
  94. }
  95.  
  96. alias -l bblockletter {
  97.   if ($1 == a)     return ABBBA BBABB BBBBB BBABB BBABB
  98.   elseif ($1 == b) return BBBBA BBABB BBBBB BBABB BBBBA
  99.   elseif ($1 == c) return ABBBA BBABB BBAAA BBABB ABBBA
  100.   elseif ($1 == d) return BBBBA BBABB BBABB BBABB BBBBA
  101.   elseif ($1 == e) return BBBBB BBAAA BBBBA BBAAA BBBBB
  102.   elseif ($1 == f) return BBBBB BBAAA BBBBA BBAAA BBAAA
  103.   elseif ($1 == g) return ABBBBA BBAAAA BBABBB BBAABB ABBBBA
  104.   elseif ($1 == h) return BBABB BBABB BBBBB BBABB BBABB
  105.   elseif ($1 == i) return BBBB ABBA ABBA ABBA BBBB
  106.   elseif ($1 == j) return AAABB AAABB BBABB BBABB ABBBA
  107.   elseif ($1 == k) return BBAABB BBABBA BBBBAA BBABBA BBAABB
  108.   elseif ($1 == l) return BBAAA BBAAA BBAAA BBAAA BBBBB
  109.   elseif ($1 == m) return ABBABBA BBBBBBB BBABABB BBAAABB BBAAABB
  110.   elseif ($1 == n) return BBAABB BBBABB BBBBBB BBABBB BBAABB
  111.   elseif ($1 == o) return ABBBBA BBAABB BBAABB BBAABB ABBBBA
  112.   elseif ($1 == p) return BBBBBA BBAABB BBBBBA BBAAAA BBAAAA
  113.   elseif ($1 == q) return ABBBBA BBAABB BBAABB BBABBB ABBBBB
  114.   elseif ($1 == r) return BBBBBA BBAABB BBBBBA BBABBA BBAABB
  115.   elseif ($1 == s) return ABBBBA BBAAAA ABBBBA AAAABB ABBBBA
  116.   elseif ($1 == t) return BBBBBB AABBAA AABBAA AABBAA AABBAA
  117.   elseif ($1 == u) return BBAABB BBAABB BBAABB BBAABB ABBBBB
  118.   elseif ($1 == v) return BBAABB BBAABB BBAABB ABBBBA AABBAA
  119.   elseif ($1 == w) return BBAAABB BBAAABB BBABABB BBBBBBB ABBABBA
  120.   elseif ($1 == x) return BBAABB BBAABB ABBBBA BBAABB BBAABB
  121.   elseif ($1 == y) return BBAABB BBAABB ABBBBA AABBAA AABBAA
  122.   elseif ($1 == z) return BBBBBB AAABBA AABBAA ABBAAA BBBBBB
  123.   elseif ($1 == 0) return ABBBBA BBAABB BBABBB BBBABB ABBBBA
  124.   elseif ($1 == 1) return AABBAA ABBBAA AABBAA AABBAA BBBBBB
  125.   elseif ($1 == 2) return BBBBBA AAAABB AABBAA BBAAAA BBBBBB
  126.   elseif ($1 == 3) return BBBBA AAABB ABBBA AAABB BBBBA
  127.   elseif ($1 == 4) return AAABBA ABBBBA BBABBA BBBBBB AAABBA
  128.   elseif ($1 == 5) return BBBBBB BBAAAA BBBBBA AAAABB BBBBBA
  129.   elseif ($1 == 6) return ABBBBA BBAAAA BBBBBA BBAABB ABBBBA
  130.   elseif ($1 == 7) return BBBBB AAABB AABBA ABBAA ABBAA
  131.   elseif ($1 == 8) return ABBBA BBABB ABBBA BBABB ABBBA
  132.   elseif ($1 == 9) return ABBBA BBABB ABBBB AAABB ABBBA
  133.   elseif ($1 == .) return AA AA AA AA BB
  134.   elseif ($1 == !) return BB BB BB AA BB
  135.   elseif ($1 == ?) return BBBA AABB ABBA AAAA ABBA
  136.   elseif ($1 == -) return AAAA AAAA BBBB AAAA AAAA
  137.   elseif ($1 == _) return AAAA AAAA AAAA AAAA BBBB
  138.   elseif ($1 == ^) return AABBAA ABBBBA BBAABB AAAAAA AAAAAA
  139.   elseif ($1 == +) return AABBAA AABBAA BBBBBB AABBAA AABBAA
  140.   elseif ($1 == =) return AAAA BBBB AAAA BBBB AAAA
  141.   elseif ($1 == /) return AAAABB AAABBA AABBAA ABBAAA BBAAAA
  142.   elseif ($1 == \) return BBAAAA ABBAAA AABBAA AAABBA AAAABB
  143.   elseif ($1 == ]) return BBBB AABB AABB AABB BBBB
  144.   elseif ($1 == [) return BBBB BBAA BBAA BBAA BBBB
  145.   elseif ($1 == :) return AA BB AA BB AA
  146.   elseif ($1 == <) return AABB ABBA BBAA ABBA AABB
  147.   elseif ($1 == >) return BBAA ABBA AABB ABBA BBAA
  148.   elseif ($1 == $chr(40)) return ABB BBA BBA BBA ABB
  149.   elseif ($1 == $chr(41)) return BBA ABB ABB ABB BBA
  150.   elseif ($1 == ") return BAB AAA AAA AAA AAA
  151.   elseif ($1 == ') return B A A A A
  152.   elseif ($1 == ~) return ABBAAA BBBBBB AAABBA AAAAAA AAAAAA
  153.   elseif ($1 == $chr(37)) return BBAABB AAABBA AABBAA BBAABB
  154.   elseif ($1 == $chr(124)) return BB BB BB BB BB
  155.   elseif ($1 == *) return BBAABB ABBBBA BBBBBB ABBBBA BBAABB
  156.   else return A A A A A
  157. }
  158.  
  159. alias big {
  160.   set %bl.buffer1 A
  161.   set %bl.buffer2 A
  162.   set %bl.buffer3 A
  163.   set %bl.buffer4 A
  164.   set %bl.buffer5 A
  165.   var %bl.cmd say, %bl.col1, %bl.col2
  166.   if ($$1 == echo) {
  167.     set %bl.cmd echo -at
  168.     tokenize 32 $2-
  169.   }
  170.   if ($1 !isnum) {
  171.     set %bl.col1 0
  172.     set %bl.col2 1
  173.   }
  174.   elseif ($2 !isnum) {
  175.     set %bl.col1 $1
  176.     set %bl.col2 1
  177.     tokenize 32 $2-
  178.   }
  179.   else {
  180.     set %bl.col1 $1
  181.     set %bl.col2 $2
  182.     tokenize 32 $3-
  183.   }
  184.   var %bl.idx1 1
  185.   var  %bl.idx2 1
  186.   var  %bl.idx3 1
  187.   ;set the block field
  188.   while (%bl.idx1 <= $0) {
  189.     set %bl.idx2 1
  190.     while (%bl.idx2 <= $len($ [ $+ [ %bl.idx1 ] ])) {
  191.       blockappend $blockletter($mid($ [ $+ [ %bl.idx1 ] ],%bl.idx2,1))
  192.       inc %bl.idx2
  193.     }
  194.     if (%bl.idx1 < $0) blockappend $blockletter
  195.     inc %bl.idx1
  196.   }
  197.   ;colorize the block field
  198.   blockcolor %bl.col1 %bl.col2
  199.   ;output the block field
  200.   set %bl.idx3 1
  201.   while (%bl.idx3 <= 5) {
  202.     %bl.cmd %bl.buffer [ $+ [ %bl.idx3 ] ]
  203.     unset %bl.buffer [ $+ [ %bl.idx3 ] ]
  204.   inc %bl.idx3 }
  205. }
  206. alias bigchan {
  207.   set %bl.buffer1 A
  208.   set %bl.buffer2 A
  209.   set %bl.buffer3 A
  210.   set %bl.buffer4 A
  211.   set %bl.buffer5 A
  212.   var %bl.cmd msg $1, %bl.col1, %bl.col2
  213.   if ($$2 == echo) {
  214.     set %bl.cmd echo -at
  215.     tokenize 32 $3-
  216.   }
  217.   if ($2 !isnum) {
  218.     set %bl.col1 0
  219.     set %bl.col2 1
  220.   }
  221.   elseif ($3 !isnum) {
  222.     set %bl.col1 $2
  223.     set %bl.col2 1
  224.     tokenize 32 $3-
  225.   }
  226.   else {
  227.     set %bl.col1 $2
  228.     set %bl.col2 $3
  229.     tokenize 32 $4-
  230.   }
  231.   var %bl.idx1 1
  232.   var  %bl.idx2 1
  233.   var  %bl.idx3 1
  234.   ;set the block field
  235.   while (%bl.idx1 <= $0) {
  236.     set %bl.idx2 1
  237.     while (%bl.idx2 <= $len($ [ $+ [ %bl.idx1 ] ])) {
  238.       blockappend $blockletter($mid($ [ $+ [ %bl.idx1 ] ],%bl.idx2,1))
  239.       inc %bl.idx2
  240.     }
  241.     if (%bl.idx1 < $0) blockappend $blockletter
  242.     inc %bl.idx1
  243.   }
  244.   ;colorize the block field
  245.   blockcolor %bl.col1 %bl.col2
  246.   ;output the block field
  247.   set %bl.idx3 1
  248.   while (%bl.idx3 <= 5) {
  249.     %bl.cmd %bl.buffer [ $+ [ %bl.idx3 ] ]
  250.     unset %bl.buffer [ $+ [ %bl.idx3 ] ]
  251.   inc %bl.idx3 }
  252. }
  253.  
  254. alias -l blockletter {
  255.   if ($1 == A) return ABA BAB BBB BAB BAB
  256.   elseif ($1 == B) return BBA BAB BBA BAB BBA
  257.   elseif ($1 == C) return ABB BAA BAA BAA ABB
  258.   elseif ($1 == D) return BBA BAB BAB BAB BBA
  259.   elseif ($1 == E) return BBB BAA BBA BAA BBB
  260.   elseif ($1 == F) return BBB BAA BBA BAA BAA
  261.   elseif ($1 == G) return ABB BAA BAB BAB ABB
  262.   elseif ($1 == H) return BAB BAB BBB BAB BAB
  263.   elseif ($1 == I) return BBB ABA ABA ABA BBB
  264.   elseif ($1 == J) return BBB ABA ABA ABA BBA
  265.   elseif ($1 == K) return BAB BAB BBA BAB BAB
  266.   elseif ($1 == L) return BAA BAA BAA BAA BBB
  267.   elseif ($1 == M) return ABBBA BABAB BABAB BAAAB BAAAB
  268.   elseif ($1 == N) return BAAB BBAB BABB BAAB BAAB
  269.   elseif ($1 == O) return BBB BAB BAB BAB BBB
  270.   elseif ($1 == P) return BBB BAB BBB BAA BAA
  271.   elseif ($1 == Q) return BBB BAB BAB BBB AAB
  272.   elseif ($1 == R) return BBB BAB BBB BBA BAB
  273.   elseif ($1 == S) return ABB BAA ABA AAB BBA
  274.   elseif ($1 == T) return BBB ABA ABA ABA ABA
  275.   elseif ($1 == U) return BAB BAB BAB BAB BBB
  276.   elseif ($1 == V) return BAB BAB BAB BAB ABA
  277.   elseif ($1 == W) return BAAAB BAAAB BABAB BABAB ABBBA
  278.   elseif ($1 == X) return BAB BAB ABA BAB BAB
  279.   elseif ($1 == Y) return BAB BAB BAB ABA ABA
  280.   elseif ($1 == Z) return BBB AAB ABA BAA BBB
  281.   elseif ($1 == 0) return ABA BAB BAB BAB ABA
  282.   elseif ($1 == 1) return ABA BBA ABA ABA BBB
  283.   elseif ($1 == 2) return BBA AAB ABA BAA BBB
  284.   elseif ($1 == 3) return BBA AAB ABA AAB BBA
  285.   elseif ($1 == 4) return BAB BAB BBB AAB AAB
  286.   elseif ($1 == 5) return BBB BAA BBA AAB BBA
  287.   elseif ($1 == 6) return ABB BAA BBB BAB BBB
  288.   elseif ($1 == 7) return BBB AAB AAB ABA ABA
  289.   elseif ($1 == 8) return BBB BAB BBB BAB BBB
  290.   elseif ($1 == 9) return BBB BAB BBB AAB BBA
  291.   elseif ($1 == .) return A A A A B
  292.   elseif ($1 == !) return B B B A B
  293.   elseif ($1 == ?) return BBB AAB ABA AAA ABA
  294.   elseif ($1 == -) return AAA AAA BBB AAA AAA
  295.   elseif ($1 == _) return AAAA AAAA AAAA AAAA BBBB
  296.   elseif ($1 == ^) return ABA BAB AAA AAA AAA
  297.   elseif ($1 == +) return AAA ABA BBB ABA AAA
  298.   elseif ($1 == =) return AAA BBB AAA BBB AAA
  299.   elseif ($1 == /) return AAAAB AAABA AABAA ABAAA BAAAA
  300.   elseif ($1 == \) return BAAAA ABAAA AABAA AAABA AAAAB
  301.   elseif ($1 == ]) return BB AB AB AB BB
  302.   elseif ($1 == [) return BB BA BA BA BB
  303.   elseif ($1 == :) return A B A B A
  304.   elseif ($1 == $chr(59)) return AA AB AA AB BA
  305.   elseif ($1 == <) return AAB ABA BAA ABA AAB
  306.   elseif ($1 == >) return BAA ABA AAB ABA BAA
  307.   elseif ($1 == $chr(40)) return AB BA BA BA AB
  308.   elseif ($1 == $chr(41)) return BA AB AB AB BA
  309.   elseif ($1 == ") return BAB BAB AAA AAA AAA
  310.   elseif ($1 == ') return B B A A A
  311.   elseif ($1 == `) return BA AB AA AA AA
  312.   elseif ($1 == ,) return AA AA AA AB BA
  313.   elseif ($1 == ~) return AAAA ABAB BABA AAAA AAAA
  314.   elseif ($1 == $chr(37)) return BAB AAB ABA BAA BAB
  315.   elseif ($1 == $chr(124)) return B B B B B
  316.   elseif ($1 == *) return BAB ABA BAB AAA AAA
  317.   elseif ($1 == $chr(64)) return ABBBA BABAB BABAB BAABA ABBBA
  318.   else return A A A A A
  319. }
  320.  
  321. alias -l blockappend {
  322.   set %bl.buffer1 $+(%bl.buffer1,$$1,A)
  323.   set %bl.buffer2 $+(%bl.buffer2,$$2,A)
  324.   set %bl.buffer3 $+(%bl.buffer3,$$3,A)
  325.   set %bl.buffer4 $+(%bl.buffer4,$$4,A)
  326.   set %bl.buffer5 $+(%bl.buffer5,$$5,A)
  327. }
  328.  
  329. alias -l blockcolor {
  330.   var %bl.buff 1, %bl.string 5
  331.   while (%bl.buff <= 5) {
  332.     while (%bl.string >= 1) {
  333.       set %bl.buffer [ $+ [ %bl.buff ] ] $replace(%bl.buffer [ $+ [ %bl.buff ] ] ,$str(A,%bl.string),$+(,$$2,$chr(44),$$2,$str($blockrand,%bl.string)))
  334.       set %bl.buffer [ $+ [ %bl.buff ] ] $replace(%bl.buffer [ $+ [ %bl.buff ] ] ,$str(B,%bl.string),$+(,$$1,$chr(44),$$1,$str($blockrand,%bl.string)))
  335.       dec %bl.string
  336.     }
  337.     set %bl.string 5
  338.     inc %bl.buff
  339.   }
  340. }
  341.  
  342. alias -l blockrand return $iif($rand(0,1) == 0,<,>)

Submit a correction or amendment below (click here to make a fresh posting)
After submitting an amendment, you'll be able to view the differences between the old and new posts easily.

Syntax highlighting:

To highlight particular lines, prefix each line with {%HIGHLIGHT}




All content is user-submitted.
The administrators of this site (kpaste.net) are not responsible for their content.
Abuse reports should be emailed to us at