Foro IRcap

disculpen ese scrit se puede hacer partido en 3 colores?

Código: [Seleccionar]

menu channel {
  -
  [¤ Antiprivado ¤]
  .Activar:    .enable  #Antiprivados  | .echo -ts   9,1 $timestamp 10 antiPrivados2 Activado! 
  .Desactivar: .disable #Antiprivados  | .echo -ts   9,1 $timestamp 10 antiPrivados2 Desactivado! 
}

dialog qc {
  title "Query Control By SeiferAlmasy"
  size -1 -1 140 51
  option dbu
  edit "", 3, 4 10 132 10, read
  text "From:", 5, 4 24 14 8
  edit "", 7, 20 22 116 10, read
  button "Aceptar", 1, 5 34 37 12, flat
  button "Rechazar", 2, 44 34 37 12, flat
  box "Control de Privados", 4, 1 1 138 49
}
on *:dialog:qc:sclick:1:{
  /window -w %qnick
  /msg %qnick $ewrap  10Privado 2Aceptado Por 12 $me
  /dialog -x qc
  /window -a %qnick
  /unset %qnick
}
on *:dialog:qc:sclick:2:{
  close -m %qnick
  /msg %qnick $ewrap 10 Privado 2Rechazado Por 12 $me 10 Sus Mensajes 2Privados Serán 10Ignorados Desde 2Este Momento12.
  /ignore -pu2000 %qnick $2 2
  /dialog -x qc
  unset %qnick
}
#Antiprivados off
on *:OPEN:?: {
if ($nick == Nick) { halt }
elseif ($nick == lalala ) { halt }
elseif ($nick == blabla ) { halt }

  if ($dialog(qc)) {
    .msg $nick 12 $nick 10 En Este 2Momento 10Estoy 2Ocupado.
    close -m $nick
  }
  else {
    /set %qnick $nick
    /window -h %qnick
    /msg %qnick  10Por Favor 2Espere 2Autorización De 12 $me
    /dialog -m qc qc
    did -a qc 7 %qnick
    did -a qc 3 $1-
  }
}
#Antiprivados end
alias ewrap {
  var %msg
  var %tok = 1
  var %word
  while ($gettok($1-,%tok,32) != $null) {
    %word = $gettok($1-,%tok,32)
    %msg = %msg 15 $+ $upper($left(%word,1)) $+ 15 $+ $right(%word,-1)
    inc %tok
  }
  return
}
creo que asi
LaMasFeita