rendered paste body#nc on
on *:input:#:if ($left($1,1) == $readini mirc.ini text commandchar) { return } | if (c isin $gettok($chan($chan).mode,1,32)) { say $strip($1-) | halt } | else { nc $1- }
alias nc {
if ($1 ison #) {
if ($len($1) == 1) {
unset %nc.mid %nc.last %nc.rest %nc.ranfirst %nc.ranlast
set %nc.first $left($1,1)
set %nc.rndclr $chr(3) $+ $gettok(03 04 05 06 07 10 12 14,$rand(1,8),32)
set %nc.ranclr $chr(3) $+ $gettok(03 04 05 06 07 10 12 14,$rand(1,8),32)
set %nc.rancol $chr(3) $+ $gettok(03 04 05 06 07 10 12 14,$rand(1,8),32)
goto $rand(1,37)
}
elseif ($len($1) == 2) {
unset %nc.mid
set %nc.first $left($1,1)
set %nc.last $right($1,1)
set %nc.rest $mid($1,2,$calc($len($1) - 1))
set %nc.ranfirst $left($1,$rand(1,$len($1)))
set %nc.ranlast $right($1,$calc($len($1) - $len(%nc.ranfirst)))
set %nc.rndclr $chr(3) $+ $gettok(03 04 05 06 07 10 12 14,$rand(1,8),32)
set %nc.ranclr $chr(3) $+ $gettok(03 04 05 06 07 10 12 14,$rand(1,8),32)
set %nc.rancol $chr(3) $+ $gettok(03 04 05 06 07 10 12 14,$rand(1,8),32)
goto $rand(1,37)
}
else {
set %nc.first $left($1,1)
set %nc.last $right($1,1)
set %nc.mid $mid($1,2,$calc($len($1) - 2))
set %nc.rest $mid($1,2,$calc($len($1) - 1))
set %nc.ranfirst $left($1,$rand(1,$len($1)))
set %nc.ranlast $right($1,$calc($len($1) - $len(%nc.ranfirst)))
set %nc.rndclr $chr(3) $+ $gettok(03 04 05 06 07 10 12 14,$rand(1,8),32)
set %nc.ranclr $chr(3) $+ $gettok(03 04 05 06 07 10 12 14,$rand(1,8),32)
set %nc.rancol $chr(3) $+ $gettok(03 04 05 06 07 10 12 14,$rand(1,8),32)
goto $rand(1,37)
}
:1
say $chr(3) $+ 04 $+ %nc.first $+ $chr(3) $+ 03 $+ %nc.first $+ $chr(3) $+ 02 $+ $1 $+ $chr(3) $+ 03 $+ %nc.last $+ $chr(3) $+ 04 $+ %nc.last $+ $chr(3) $2- | halt
:2
say $chr(3) $+ 15 $+ %nc.first $+ $chr(3) $+ 14 $+ %nc.first $+ $chr(3) $+ 12 $+ $1 $+ $chr(3) $+ 14 $+ %nc.last $+ $chr(3) $+ 15 $+ %nc.last $+ $chr(3) $2- | halt }
:3
say $chr(3) $+ 02 $+ $chr(31) $+ %nc.first $+ $chr(31) $+ %nc.rndclr $+ %nc.mid $+ $chr(3) $+ 02 $+ $chr(31) $+ %nc.last $+ $chr(31) $+ $chr(3) $2- | halt }
:4
say $chr(3) $+ 12[ $+ $chr(3) $+ 02 $+ %nc.first $+ $chr(3) $+ 10 $+ %nc.mid $+ $chr(3) $+ 02 $+ %nc.last $+ $chr(3) $+ 12] $+ $chr(3) $2- | halt }
:5
say $chr(2) $+ $chr(3) $+ 04×* $+ $chr(2) $+ $chr(3) $+ 02 $+ $chr(31) $+ $1 $+ $chr(31) $+ $chr(2) $+ $chr(3) $+ 04*× $+ $chr(2) $+ $chr(3) $2- | halt }
:6
say $chr(3) $+ 06ª $+ $chr(3) $+ 02 $+ $1 $+ $chr(3) $+ 06ª $+ $chr(3) $2- | halt }
:7
say $chr(3) $+ 03 $+ %nc.ranfirst $+ $+ $chr(31) $+ $chr(3) $+ 12 $+ %nc.ranlast $+ $chr(3) $+ $chr(31) $2- | halt }
:8
say $chr(3) $+ 12[ $+ $chr(3) $+ $1 $+ $chr(3) $+ 12] $+ $chr(3) $2- | halt }
:9
say $chr(31) $+ %nc.first $+ $chr(31) $+ %nc.mid $+ $chr(31) $+ %nc.last $+ $chr(31) $2- | halt }
:10
say $chr(31) $+ $chr(3) $+ 04 $+ %nc.first $+ $chr(31) $+ $chr(3) $+ 03 $+ %nc.rest $+ $chr(3) $2- | halt }
:11
say $chr(3) $+ 06 $+ %nc.ranfirst $+ $chr(3) $+ 14 $+ %nc.ranlast $+ $chr(3) $2- | halt }
:12
say $chr(3) $+ 04 $+ × $+ $chr(3) $+ 02 $+ $1 $+ $chr(3) $+ 04 $+ × $+ $chr(3) $2- | halt }
:13
say $chr(3) $+ 04¿ $+ $chr(3) $+ 03 $+ $1 $+ $chr(3) $+ 04? $+ $chr(3) $2- | halt }
:14
say $chr(3) $+ 12÷ $+ $chr(3) $+ 04 $+ %nc.ranfirst $+ $chr(3) $+ 14 $+ %nc.ranlast $+ $chr(3) $+ 12÷ $+ $chr(3) $2- | halt }
:15
say $chr(3) $+ 03 $+ $chr(3) $+ 12 $+ $1 $+ $chr(3) $+ 03 $+ $chr(3) $2- | halt }
:16
say $chr(3) $+ 03§ $+ $chr(3) $+ 12 $+ $1 $+ $chr(3) $+ 03§ $+ $chr(3) $2- | halt }
:17
say $chr(3) $+ 03~ $+ $chr(3) $+ 12 $+ %nc.ranfirst $+ $chr(3) $+ 04 $+ %nc.ranlast $+ $chr(3) $+ 03~ $+ $chr(3) $2- | halt }
:18
say %nc.rndclr $+ %nc.first $+ %nc.rancol $+ %nc.mid $+ %nc.ranclr $+ %nc.last $+ $chr(3) $2- | halt }
:19
say $chr(3) $+ 12 $+ %nc.ranfirst $+ $chr(3) $+ 07 $+ %nc.ranlast $+ $chr(3) $2- | halt }
:20
say $chr(3) $+ 04¡ $+ $chr(3) $+ 14 $+ %nc.ranfirst $+ $chr(3) $+ 12 $+ %nc.ranlast $+ $chr(3) $+ 04! $+ $chr(3) $2- | halt }
:21
say $chr(3) $+ 03«» $+ $chr(3) $+ 04 $+ $1 $+ $chr(3) $+ 03«» $+ $chr(3) $2- | halt }
:22
say $chr(3) $+ 14¦ $+ $chr(3) $+ 04 $+ %nc.ranfirst $+ $chr(3) $+ 03 $+ %nc.ranlast $+ $chr(3) $+ 14¦ $+ $chr(3) $2- | halt }
:23
say $chr(3) $+ 05¤ $+ $chr(3) $+ 12( $+ $chr(3) $+ 04 $+ $1 $+ $chr(3) $+ 12) $+ $chr(3) $+ 05¤ $+ $chr(3) $2- | halt }
:24
say $chr(2) $+ $chr(3) $+ 12° $+ $chr(3) $+ 04 $+ %nc.first $+ $chr(3) $+ 10 $+ %nc.mid $+ $chr(3) $+ 04 $+ %nc.last $+ $chr(3) $+ 12° $+ $chr(3) $+ $chr(2) $2- | halt }
:25
say $chr(3) $+ 02ø $+ $chr(3) $+ 04 $+ %nc.ranfirst $+ $chr(3) $+ 03 $+ %nc.ranlast $+ $chr(3) $+ 02ø $+ $chr(3) $2- | halt }
:26
say $chr(3) $+ 05¢ $+ $chr(3) $+ 04 $+ %nc.ranfirst $+ $chr(3) $+ 02 $+ %nc.ranlast $+ $chr(3) $+ 05¢ $+ $chr(3) $2- | halt }
:27
say $chr(3) $+ 12×°× $+ %nc.rndclr $+ $1 $+ $chr(3) $+ 12×°× $+ $chr(3) $2- | halt }
:28
say %nc.rndclr $+ ( $+ %nc.first $+ ) $+ %nc.ranclr $+ $1 $+ %nc.rndclr $+ ( $+ %nc.last $+ ) $+ $chr(3) $2- | halt }
:29
say $chr(3) $+ 14|¤| $+ $chr(3) $+ 04 $+ %nc.ranfirst $+ $chr(3) $+ 12 $+ %nc.ranlast $+ $chr(3) $+ 14|¤| $+ $chr(3) $2- | halt }
:30
say $chr(3) $+ 14|§| $+ $chr(3) $+ 04 $+ %nc.ranfirst $+ $chr(3) $+ 03 $+ %nc.ranlast $+ $chr(3) $+ 14|§| $+ $chr(3) $2- | halt }
:31
say $chr(3) $+ 01|| $+ %nc.rndclr $+ %nc.ranfirst $+ %nc.rancol $+ %nc.ranlast $+ $chr(3) $+ 01|| $+ $chr(3) $2- | halt }
:32
say $chr(3) $+ 04æ $+ $chr(3) $+ 10 $+ $1 $+ $chr(3) $+ 04æ $+ $chr(3) $2- | halt }
:33
say $chr(3) $+ 12® $+ $chr(3) $+ 04 $+ $1 $+ $chr(3) $+ 12® $+ $chr(3) $2- | halt }
:34
say $chr(3) $+ 12© $+ $chr(3) $+ 04 $+ $1 $+ $chr(3) $+ 12© $+ $chr(3) $2- | halt }
:35
say $chr(3) $+ 12± $+ $chr(3) $+ 04 $+ $1 $+ $chr(3) $+ 12± $+ $chr(3) $2- | halt }
:36
say $chr(3) $+ 04~~~ $+ $chr(3) $+ 12 $+ $1 $+ $chr(3) $+ 04~~~ $+ $chr(3) $2- | halt }
:37
say $chr(3) $+ 04 $+ $chr(3) $+ 12 $+ $1 $+ $chr(3) $+ 04 $+ $chr(3) $2- | halt }
}
}
#nc end