Unnamed

for word by word
/on1

for letter by letter
/on2

to change colours (include ctrl+k)
/ohm colour1 colour2 

to turn the damn thing off
/off

========= zi goes in the remotes \o/ ==========

on *:input:#:{
  if (!$ctrlenter) && ($left($1,1) !== $readini(mirc.ini,text,commandchar)) {
    if (%text_xmas1) { /xmas1 $1- }
    else if (%text_xmas2) { /xmas2 $1- }
    else { 
    }
  }
}


=========== this goes in the alias =============

/ohm {
  /set -e %color1 $$1
  /set -e %color2 $$2
}


/on1 {
  /set -e %text_xmas1 1
  /set -e %text_xmas2 0
  if ( %var(%color1,0) == 0 ) { /set -e %color1 04
    /set -e %color2 03
  }
}

/on2 {
  /set -e %text_xmas2 1
  /set -e %text_xmas1 0
  if ( %var(%color1,0) == 0 ) { /set -e %color1 04
    /set -e %color2 03
  }
}

/off {
  /set -e %text_xmas1 0
  /set -e %text_xmas2 0
}

/xmas1 {
  /var %string $1-
  /var %n 1
  while (%n <= $numtok($1-,32)) {
    if ( %color == %color1 ) { %color = %color2 }
    else { %color = %color1 }
    /var %string = $puttok(%string,%color $+ $gettok($1-,%n,32),%n,32)
    inc %n 
  }
  /msg $chan %string
  /halt
}

/xmas2 {
  /var $string $1-
  /var $n 1
  /var %x $numtok($1-,32) - 1
  /var %ylength $len($1-)
  /var %length %ylength - %x
  /set -e %red 2

  /var %pos 1
  while (%pos <= $len($1-) ) {

    /var %k = $mid($1-,%pos,1)

    if (%k == $chr(32)) { /var %k   
    }
    else { 

      if ( %color == %color1 ) { %color = %color2 }
      else { %color = %color1 }

      /var %k %color $+ %k 
    }

    /var %temp %temp $+ %k

    inc %pos
  }

  /msg $chan %temp
  /halt
}