It's an already complete script and I'm not the developer of this script, I posted it in this section here. This script allows you to write in a giant and colorful way. Just load it and call it from channel or in query. Very intuitive. I'm posting it because maybe someone might like it.
Код:
menu channel,query {
.Big text
...Say:set %ftaction | bigcolor $??*="Text:"
}
alias bigcolor {
unset %big.*
if ($1 = ^^@) {
set %ba.2 yes
set %ba.1 $2-
goto start
}
set %ba.1 $1-
set %ba.2 no
:start
:nextba
if (($left(%ba.1,1) = $null) || ($left(%ba.1,1) = $chr(32))) {
if ($len(%ba.1) <= 1) {
if (%ba.2 = yes) {
goto opers
}
goto say
}
set %big.1 %big.1 0,1 0 0 0 0 0
set %big.2 %big.2 0,1 0 0 0 0 0
set %big.3 %big.3 0,1 0 0 0 0 0
set %big.4 %big.4 0,1 0 0 0 0 0
set %big.5 %big.5 0,1 0 0 0 0 0
set %ba.1 $mid(%ba.1,2,5000)
goto nextba
}
if ($left(%ba.1,1) = a) {
set %big.1 %big.1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0 0 0,1 0
set %big.2 %big.2 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
set %big.3 %big.3 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0 0 0,1 0
set %big.4 %big.4 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
set %big.5 %big.5 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
set %ba.1 $mid(%ba.1,2,5000)
goto nextba
}
if ($left(%ba.1,1) = b) {
set %big.1 %big.1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0 0,1 0 0
set %big.2 %big.2 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
set %big.3 %big.3 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0 0,1 0 0
set %big.4 %big.4 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
set %big.5 %big.5 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0 0,1 0 0
set %ba.1 $mid(%ba.1,2,5000)
goto nextba
}
if ($left(%ba.1,1) = c) {
set %big.1 %big.1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0 0 0,1 0
set %big.2 %big.2 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0 0 0
set %big.3 %big.3 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0 0 0
set %big.4 %big.4 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0 0 0
set %big.5 %big.5 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0 0 0,1 0
set %ba.1 $mid(%ba.1,2,5000)
goto nextba
}
if ($left(%ba.1,1) = d) {
set %big.1 %big.1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0 0,1 0 0
set %big.2 %big.2 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
set %big.3 %big.3 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
set %big.4 %big.4 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
set %big.5 %big.5 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0 0,1 0 0
set %ba.1 $mid(%ba.1,2,5000)
goto nextba
}
if ($left(%ba.1,1) = e) {
set %big.1 %big.1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0 0 0,1 0
set %big.2 %big.2 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0 0 0
set %big.3 %big.3 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0 0 0,1 0
set %big.4 %big.4 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0 0 0
set %big.5 %big.5 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0 0 0,1 0
set %ba.1 $mid(%ba.1,2,5000)
goto nextba
}
if ($left(%ba.1,1) = f) {
set %big.1 %big.1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0 0 0,1 0
set %big.2 %big.2 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0 0 0
set %big.3 %big.3 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0 0 0,1 0
set %big.4 %big.4 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0 0 0
set %big.5 %big.5 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0 0 0
set %ba.1 $mid(%ba.1,2,5000)
goto nextba
}
if ($left(%ba.1,1) = g) {
set %big.1 %big.1 0,1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0 0,1 0
set %big.2 %big.2 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0 0 0
set %big.3 %big.3 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0,1 0
set %big.4 %big.4 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
set %big.5 %big.5 0,1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0,1 0 0
set %ba.1 $mid(%ba.1,2,5000)
goto nextba
}
if ($left(%ba.1,1) = h) {
set %big.1 %big.1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
set %big.2 %big.2 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
set %big.3 %big.3 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0 0 0,1 0
set %big.4 %big.4 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
set %big.5 %big.5 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
set %ba.1 $mid(%ba.1,2,5000)
goto nextba
}
if ($left(%ba.1,1) = i) {
set %big.1 %big.1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0 0 0,1 0
set %big.2 %big.2 0,1 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0
set %big.3 %big.3 0,1 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0
set %big.4 %big.4 0,1 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0
set %big.5 %big.5 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0 0 0,1 0
set %ba.1 $mid(%ba.1,2,5000)
goto nextba
}
if ($left(%ba.1,1) = J) {
set %big.1 %big.1 0,1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0 0 0,1 0
set %big.2 %big.2 0,1 0 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0
set %big.3 %big.3 0,1 0 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0
set %big.4 %big.4 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0
set %big.5 %big.5 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0 0,1 0 0 0
set %ba.1 $mid(%ba.1,2,5000)
goto nextba
}
if ($left(%ba.1,1) = k) {
set %big.1 %big.1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
set %big.2 %big.2 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0
set %big.3 %big.3 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0,1 0 0 0 0
set %big.4 %big.4 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0
set %big.5 %big.5 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
set %ba.1 $mid(%ba.1,2,5000)
goto nextba
}
if ($left(%ba.1,1) = l) {
set %big.1 %big.1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0 0 0
set %big.2 %big.2 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0 0 0
set %big.3 %big.3 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0 0 0
set %big.4 %big.4 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0 0 0
set %big.5 %big.5 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0 0 0,1 0
set %ba.1 $mid(%ba.1,2,5000)
goto nextba
}
if ($left(%ba.1,1) = m) {
set %big.1 %big.1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0,1 0 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0,1 0
set %big.2 %big.2 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0 0,1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
set %big.3 %big.3 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0,1 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
set %big.4 %big.4 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0,1 0 0 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
set %big.5 %big.5 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0,1 0 0 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
set %ba.1 $mid(%ba.1,2,5000)
goto nextba
}
if ($left(%ba.1,1) = n) {
set %big.1 %big.1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0,1 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
set %big.2 %big.2 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0,1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
set %big.3 %big.3 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0,1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
set %big.4 %big.4 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0,1 0
set %big.5 %big.5 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0,1 0
set %ba.1 $mid(%ba.1,2,5000)
goto nextba
}
if ($left(%ba.1,1) = o) {
set %big.1 %big.1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0 0 0 0,1 0
set %big.2 %big.2 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
set %big.3 %big.3 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
set %big.4 %big.4 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
set %big.5 %big.5 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0 0 0 0,1 0
set %ba.1 $mid(%ba.1,2,5000)
goto nextba
}
if ($left(%ba.1,1) = p) {
set %big.1 %big.1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0 0 0 0,1 0
set %big.2 %big.2 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
set %big.3 %big.3 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0 0 0 0,1 0
set %big.4 %big.4 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0 0 0 0
set %big.5 %big.5 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0 0 0 0
set %ba.1 $mid(%ba.1,2,5000)
goto nextba
}
if ($left(%ba.1,1) = q) {
set %big.1 %big.1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0 0 0 0,1 0 0
set %big.2 %big.2 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0
set %big.3 %big.3 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0
set %big.4 %big.4 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0,1 0 0
set %big.5 %big.5 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0 0 0 0 0,1 0
set %ba.1 $mid(%ba.1,2,5000)
goto nextba
}
if ($left(%ba.1,1) = r) {
set %big.1 %big.1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0 0 0,1 0 0
set %big.2 %big.2 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0,1 0
set %big.3 %big.3 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0 0,1 0 0 0
set %big.4 %big.4 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0
set %big.5 %big.5 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
set %ba.1 $mid(%ba.1,2,5000)
goto nextba
}
if ($left(%ba.1,1) = s) {
set %big.1 %big.1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0 0 0 0,1 0
set %big.2 %big.2 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0 0 0 0
set %big.3 %big.3 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0 0 0 0,1 0
set %big.4 %big.4 0,1 0 0 0 $+ $rand(4,15) $+ , $+ $rand(4,15) $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
set %big.5 %big.5 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0 0 0 0,1 0
set %ba.1 $mid(%ba.1,2,5000)
goto nextba
}
if ($left(%ba.1,1) = t) {
set %big.1 %big.1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0 0 0 0 0,1 0
set %big.2 %big.2 0,1 0 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0 0
set %big.3 %big.3 0,1 0 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0 0
set %big.4 %big.4 0,1 0 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0 0
set %big.5 %big.5 0,1 0 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0 0
set %ba.1 $mid(%ba.1,2,5000)
goto nextba
}
if ($left(%ba.1,1) = u) {
set %big.1 %big.1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
set %big.2 %big.2 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
set %big.3 %big.3 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
set %big.4 %big.4 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
set %big.5 %big.5 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0 0 0 0 0,1 0
set %ba.1 $mid(%ba.1,2,5000)
goto nextba
}
if ($left(%ba.1,1) = v) {
set %big.1 %big.1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
set %big.2 %big.2 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
set %big.3 %big.3 0,1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0
set %big.4 %big.4 0,1 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0
set %big.5 %big.5 0,1 0 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0 0
set %ba.1 $mid(%ba.1,2,5000)
goto nextba
}
if ($left(%ba.1,1) = w) {
set %big.1 %big.1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0 0 0 0 0 0 0 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
set %big.2 %big.2 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0,1 0 0 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
set %big.3 %big.3 0,1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0
set %big.4 %big.4 0,1 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0
set %big.5 %big.5 0,1 0 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0 0
set %ba.1 $mid(%ba.1,2,5000)
goto nextba
}
if ($left(%ba.1,1) = x) {
set %big.1 %big.1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
set %big.2 %big.2 0,1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0
set %big.3 %big.3 0,1 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0,1 0 0 0
set %big.4 %big.4 0,1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0
set %big.5 %big.5 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
set %ba.1 $mid(%ba.1,2,5000)
goto nextba
}
if ($left(%ba.1,1) = y) {
set %big.1 %big.1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
set %big.2 %big.2 0,1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0
set %big.3 %big.3 0,1 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0,1 0 0 0
set %big.4 %big.4 0,1 0 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0 0
set %big.5 %big.5 0,1 0 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0 0
set %ba.1 $mid(%ba.1,2,5000)
goto nextba
}
if ($left(%ba.1,1) = z) {
set %big.1 %big.1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0 0 0 0 0,1 0
set %big.2 %big.2 0,1 0 0 0 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0
set %big.3 %big.3 0,1 0 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0 0
set %big.4 %big.4 0,1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0 0 0 0
set %big.5 %big.5 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0 0 0 0 0,1 0
set %ba.1 $mid(%ba.1,2,5000)
goto nextba
}
if ($left(%ba.1,1) = -) {
set %big.1 %big.1 0,1 0 0 0 0 0 0 0 0
set %big.2 %big.2 0,1 0 0 0 0 0 0 0 0
set %big.3 %big.3 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0 0 0 0,1 0
set %big.4 %big.4 0,1 0 0 0 0 0 0 0 0
set %big.5 %big.5 0,1 0 0 0 0 0 0 0 0
set %ba.1 $mid(%ba.1,2,5000)
goto nextba
}
if ($left(%ba.1,1) = ?) {
set %big.1 %big.1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0 0,1 0 0
set %big.2 %big.2 0,1 0 0 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
set %big.3 %big.3 0,1 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0,1 0 0
set %big.4 %big.4 0,1 0 0 0 0 0 0 0
set %big.5 %big.5 0,1 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0
set %ba.1 $mid(%ba.1,2,5000)
goto nextba
}
if ($left(%ba.1,1) = !) {
set %big.1 %big.1 0,1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0
set %big.2 %big.2 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0,1 0
set %big.3 %big.3 0,1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0
set %big.4 %big.4 0,1 0 0 0 0 0
set %big.5 %big.5 0,1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0
set %ba.1 $mid(%ba.1,2,5000)
goto nextba
}
if ($left(%ba.1,1) = ') {
set %big.1 %big.1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
set %big.2 %big.2 0,1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0,1 0
set %big.3 %big.3 0,1 0 0 0
set %big.4 %big.4 0,1 0 0 0
set %big.5 %big.5 0,1 0 0 0
set %ba.1 $mid(%ba.1,2,5000)
goto nextba
}
if ($left(%ba.1,1) = :) {
set %big.1 %big.1 0,1 0 0 0
set %big.2 %big.2 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
set %big.3 %big.3 0,1 0 0 0
set %big.4 %big.4 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
set %big.5 %big.5 0,1 0 0 0
set %ba.1 $mid(%ba.1,2,5000)
goto nextba
}
if ($left(%ba.1,1) = $chr(41)) {
set %big.1 %big.1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0,1 0
set %big.2 %big.2 0,1 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0,1 0
set %big.3 %big.3 0,1 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0,1 0
set %big.4 %big.4 0,1 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0,1 0
set %big.5 %big.5 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0,1 0
set %ba.1 $mid(%ba.1,2,5000)
goto nextba
}
if ($left(%ba.1,1) = $chr(124)) {
set %big.1 %big.1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
set %big.2 %big.2 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
set %big.3 %big.3 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
set %big.4 %big.4 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
set %big.5 %big.5 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
set %ba.1 $mid(%ba.1,2,5000)
goto nextba
}
if ($left(%ba.1,1) = <) {
set %big.1 %big.1 0,1 0 0 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
set %big.2 %big.2 0,1 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0
set %big.3 %big.3 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0 0 0
set %big.4 %big.4 0,1 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0
set %big.5 %big.5 0,1 0 0 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
set %ba.1 $mid(%ba.1,2,5000)
goto nextba
}
if ($left(%ba.1,1) = >) {
set %big.1 %big.1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0 0 0
set %big.2 %big.2 0,1 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0
set %big.3 %big.3 0,1 0 0 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
set %big.4 %big.4 0,1 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0
set %big.5 %big.5 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0 0 0
set %ba.1 $mid(%ba.1,2,5000)
goto nextba
}
if ($left(%ba.1,1) = .) {
set %big.1 %big.1 0,1 0 0 0
set %big.2 %big.2 0,1 0 0 0
set %big.3 %big.3 0,1 0 0 0
set %big.4 %big.4 0,1 0 0 0
set %big.5 %big.5 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
set %ba.1 $mid(%ba.1,2,5000)
goto nextba
}
set %ba.1 $mid(%ba.1,2,5000)
goto nextba
:opers
notice @ $+ $chan %big.1
notice @ $+ $chan %big.2
notice @ $+ $chan %big.3
notice @ $+ $chan %big.4
notice @ $+ $chan %big.5
goto end
:say
%ftaction say %big.1
%ftaction say %big.2
%ftaction say %big.3
%ftaction say %big.4
%ftaction say %big.5
:end
.unset %ftaction
.unset %ba.*
.unset %big.*
}