New Tracks with Rainbow

on *:text:*:#: {
  if ($findtok(lt.suck a dick!!.st.kt,$1-,46)) goto $1-
  else goto end
  :suck a dick!!
  :lt
  msg # $rainbow(HAHAHA)
  goto end
  :st
  msg # $rainbow(awwwwwwwwwwwwwwwwwwwwwwwwww.............................!)
  goto end
  :kt
  msg # $rainbow(ooooooooooooooooooooohhhHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH!)
  :end
}
on *:input:*: {
  if (%rainbow == on && /* !iswm $1) {
    haltdef
    msg # $rainbow($1-)
  }
}
alias rainbow {
  var %string $1-
  var %count 0
  var %color 1
  while (%count <= $len($1-)) {
    set -l %color2 $gettok(04.07.08.09.03.10.12.02.06,%color,46)
    set -l %output %output $+ $iif($left(%string,1) != $chr(32), $+ %color2 $+ $left(%string,1),$chr(32) $+ $chr(32))
    var %string $right(%string,-1)
    var %color $iif(%color == 9,1,$calc(%color + 1))
    inc %count
  }
  return %output
}
menu * {
  Rainbow $iif(%rainbow == on,Off,On):set %rainbow $iif(%rainbow == on,off,on)
}