f1 {
var %s = $gettok(= : ;,$rand(1,3),032), %i = $rand(1,3)
while (%i) {
var %l = $+($chr(003),$rand(0,15),$chr(041),$chr(003),$color(normal text).dd))
var %s = %s $+ %l
dec %i
}
editbox -afn $iif($editbox($active),$editbox($active) %s, %s)
}

и теперь при нажатии клавиши F1 на канал будут выдаваться смайлы, в различном сочетании цвета. Например:
[color=blue] = [color=purple] ) [color=yellow] )
[color=purple] : [color=gray] ) [color=blue] )
и так далее