alias big {
set %bl.buffer1 A | set %bl.buffer2 A | set %bl.buffer3 A | set %bl.buffer4 A | set %bl.buffer5 A
var %bl.cmd msg $chan, %bl.col1, %bl.col2
timer 1 5 /msg $chan SCRIPT MADE BY eXile #sKapeGoaT
if ($$1 == echo) { set %bl.cmd echo -at | tokenize 32 $2- }
if ($1 !isnum) { set %bl.col1 1 | set %bl.col2 0 }
elseif ($2 !isnum) { set %bl.col1 $1 | set %bl.col2 0 | tokenize 32 $2- }
else { set %bl.col1 $1 | set %bl.col2 $2 | tokenize 32 $3- }
var %bl.idx1 1, %bl.idx2 1, %bl.idx3 1
;set the block field
while (%bl.idx1 <= $0) {
set %bl.idx2 1
while (%bl.idx2 <= $len($ [ $+ [ %bl.idx1 ] ])) {
blockappend $blockletter($mid($ [ $+ [ %bl.idx1 ] ],%bl.idx2,1))
inc %bl.idx2
}
if (%bl.idx1 < $0) blockappend $blockletter
inc %bl.idx1
}
;colorize the block field
blockcolor %bl.col1 %bl.col2
;output the block field
set %bl.idx3 1
while (%bl.idx3 <= 5) { %bl.cmd %bl.buffer [ $+ [ %bl.idx3 ] ] | unset %bl.buffer [ $+ [ %bl.idx3 ] ] | inc %bl.idx3 }
}

alias -l blockletter {
if ($1 === A) return ABA BAB BBB BAB BAB
elseif ($1 === B) return BBA BAB BBA BAB BBA
elseif ($1 === C) return ABB BAA BAA BAA ABB
elseif ($1 === D) return BBA BAB BAB BAB BBA
elseif ($1 === E) return BBB BAA BBA BAA BBB
elseif ($1 === F) return BBB BAA BBA BAA BAA
elseif ($1 === G) return ABB BAA BAB BAB ABB
elseif ($1 === H) return BAB BAB BBB BAB BAB
elseif ($1 === I) return BBB ABA ABA ABA BBB
elseif ($1 === J) return BBB ABA ABA ABA BBA
elseif ($1 === K) return BAB BAB BBA BAB BAB
elseif ($1 === L) return BAA BAA BAA BAA BBB
elseif ($1 === M) return ABBBA BABAB BABAB BAAAB BAAAB
elseif ($1 === N) return BAAB BBAB BABB BAAB BAAB
elseif ($1 === O) return BBB BAB BAB BAB BBB
elseif ($1 === P) return BBB BAB BBB BAA BAA
elseif ($1 === Q) return BBB BAB BAB BBB AAB
elseif ($1 === R) return BBB BAB BBB BBA BAB
elseif ($1 === S) return ABB BAA ABA AAB BBA
elseif ($1 === T) return BBB ABA ABA ABA ABA
elseif ($1 === U) return BAB BAB BAB BAB BBB
elseif ($1 === V) return BAB BAB BAB BAB ABA
elseif ($1 === W) return BAAAB BAAAB BABAB BABAB ABBBA
elseif ($1 === X) return BAB BAB ABA BAB BAB
elseif ($1 === Y) return BAB BAB BAB ABA ABA
elseif ($1 === Z) return BBB AAB ABA BAA BBB
elseif ($1 === a) return AAAA AAAA ABBA BABA BBAB
elseif ($1 === b) return BAA BAA BBB BAB BBB
elseif ($1 === c) return AAA AAA BBB BAA BBB
elseif ($1 === d) return AAB AAB BBB BAB BBB
elseif ($1 === e) return AAA ABB BAB BBA ABB
elseif ($1 === f) return ABB ABA BBB ABA ABA
elseif ($1 === g) return AAA BBB BAB ABB BBA
elseif ($1 === h) return BAA BAA BBB BAB BAB
elseif ($1 === i) return A B A B B
elseif ($1 === j) return AB AA AB AB BB
elseif ($1 === k) return BAA BAA BAB BBA BAB
elseif ($1 === l) return BA BA BA BA BB
elseif ($1 === m) return AAAAA AAAAA ABABA BABAB BABAB
elseif ($1 === n) return AAA AAA BBA BAB BAB
elseif ($1 === o) return AAA AAA BBB BAB BBB
elseif ($1 === p) return AAA BBB BAB BBB BAA
elseif ($1 === q) return AAA BBB BAB BBB AAB
elseif ($1 === r) return AAA AAA BAB BBA BAA
elseif ($1 === s) return AA AB BA AB BB
elseif ($1 === t) return ABA ABA BBB ABA ABA
elseif ($1 === u) return AAA AAA BAB BAB BBB
elseif ($1 === v) return AAA AAA BAB BAB ABA
elseif ($1 === w) return AAAAA AAAAA BABAB BABAB ABABA
elseif ($1 === x) return AAA AAA BAB ABA BAB
elseif ($1 === y) return AAA BAB BAB ABA BAA
elseif ($1 === z) return AAA BBB AAB ABA BBB
elseif ($1 == 0) return ABA BAB BAB BAB ABA
elseif ($1 == 1) return ABA BBA ABA ABA BBB
elseif ($1 == 2) return BBA AAB ABA BAA BBB
elseif ($1 == 3) return BBA AAB ABA AAB BBA
elseif ($1 == 4) return BAB BAB BBB AAB AAB
elseif ($1 == 5) return BBB BAA BBA AAB BBA
elseif ($1 == 6) return ABB BAA BBB BAB BBB
elseif ($1 == 7) return BBB AAB AAB ABA ABA
elseif ($1 == return BBB BAB BBB BAB BBB
elseif ($1 == 9) return BBB BAB BBB AAB BBA
elseif ($1 == .) return A A A A B
elseif ($1 == !) return B B B A B
elseif ($1 == ?) return BBB AAB ABA AAA ABA
elseif ($1 == -) return AAA AAA BBB AAA AAA
elseif ($1 == _) return AAAA AAAA AAAA AAAA BBBB
elseif ($1 == ^) return ABA BAB AAA AAA AAA
elseif ($1 == +) return AAA ABA BBB ABA AAA
elseif ($1 == =) return AAA BBB AAA BBB AAA
elseif ($1 == /) return AAAAB AAABA AABAA ABAAA BAAAA
elseif ($1 == ) return BAAAA ABAAA AABAA AAABA AAAAB
elseif ($1 == ]) return BB AB AB AB BB
elseif ($1 == [) return BB BA BA BA BB
elseif ($1 == return A B A B A
elseif ($1 == $chr(59)) return AA AB AA AB BA
elseif ($1 == <) return AAB ABA BAA ABA AAB
elseif ($1 == >) return BAA ABA AAB ABA BAA
elseif ($1 == $chr(40)) return AB BA BA BA AB
elseif ($1 == $chr(41)) return BA AB AB AB BA
elseif ($1 == ") return BAB BAB AAA AAA AAA
elseif ($1 == ') return B B A A A
elseif ($1 == `) return BA AB AA AA AA
elseif ($1 == ,) return AA AA AA AB BA
elseif ($1 == ~) return AAAA ABAB BABA AAAA AAAA
elseif ($1 == $chr(37)) return BAB AAB ABA BAA BAB
elseif ($1 == $chr(124)) return B B B B B
elseif ($1 == *) return BAB ABA BAB AAA AAA
else return A A A A A
}

alias -l blockappend {
set %bl.buffer1 $+(%bl.buffer1,$$1,A)
set %bl.buffer2 $+(%bl.buffer2,$$2,A)
set %bl.buffer3 $+(%bl.buffer3,$$3,A)
set %bl.buffer4 $+(%bl.buffer4,$$4,A)
set %bl.buffer5 $+(%bl.buffer5,$$5,A)
}

alias -l blockcolor {
var %bl.buff 1, %bl.string 5
while (%bl.buff <= 5) {
while (%bl.string >= 1) {
set %bl.buffer [ $+ [ %bl.buff ] ] $replace(%bl.buffer [ $+ [ %bl.buff ] ] ,$str(A,%bl.string),$+([^K],$$2,$chr(44),$$2,$str($blockrand,%bl.string)))
set %bl.buffer [ $+ [ %bl.buff ] ] $replace(%bl.buffer [ $+ [ %bl.buff ] ] ,$str(B,%bl.string),$+([^K],$$1,$chr(44),$$1,$str($blockrand,%bl.string)))
dec %bl.string
}
set %bl.string 5
inc %bl.buff
}
}

alias -l blockrand return $iif($rand(0,1) == 0,<,>)

perl code: