Random renkli yazı

Mirc, mirc snippets, mirc kodlari, mirc code
CTRL+A tuşuna basarak kodun tamamını kopyalayabilirsiniz.

on *:input:#:{
  if $left($1-,1) != $readini(mirc.ini,text,commandchar) || $ctrlenter == $true {
   var %c = 1,2,3,4,5,6,7,10,12,13,14
   var %i = 1
   var %MAX = $len($1-)
   while (%i <= %MAX) {
    var %r = $gettok(%c,$rand(1,$numtok(%c,44)),44)
    if $mid($1-,%i,1) == $chr(32) { var %t = %t $chr(32) }
    else { var %t = %t $+  $+ %r $+ $mid($1-,%i,1) }
    inc %i
   }
   msg $chan %t
   halt def
  }
}