lol {
  set %lol.i 1
  set %lol.skipti 0
  set %lol.string $replace($1-,$chr(32),_)
  while (%lol.i <= $len(%lol.string)) {
    if (%lol.skipti == 0) {
      set %lol.text %lol.text $+ $upper($mid(%lol.string,%lol.i,1))
      set %lol.skipti 1
    }
    else {
      set %lol.text %lol.text $+ $lower($mid(%lol.string,%lol.i,1))
      set %lol.skipti 0
    }
    inc %lol.i
  }

  msg $active $replace(%lol.text,_,$chr(32))

  unset %lol.*
}