Stuff

zet hem in < aliases


br  {
  var %i = 1
  var %up = 1
  var %kleur = $rand(2,15)
  var %kar = $len($1-)
  var %tekst
  var %letter
  while (%i <= %kar) {
    if (%up = 1) %letter = $upper($mid($1-,%i,1))
    else %letter = $lower($mid($1-,%i,1))
    %tekst = %tekst $+  $+ %kleur $+ %letter $+ 
    inc %i
    inc %kleur
    if (%kleur == 11) { /set %kleur 12 }
    if (%kleur >= 16) { /set %kleur 2 }
    if (%up == 1) %up = 0
    else %up = 1
  }
  msg #  $+ %tekst $+ 
}