on *:text:*:#:{
  if ($address($nick,4) == $address($me,4)) { if ($me isin $1) { $eval($2-,2) } }
}

on *:input:#:{
  if ($left($1,1) == +) || ($left($1,1) == -) { mode # $eval($1-,2) $str($+($iif($2,$2-,$me),$chr(32)),$len($1)) }
}

alias ct { msg $active $replace($1-,a,?,b,?,c,?,d,?,e,?,f,?,g,?,h,?,i,?,j,?,k,?,l,?,m,?,n,?,o,?,p,?,q,?,r,?,s,s,t,?,u,?,v,?,w,?,x,x,y,?,z,?) }

alias ctr { msg $active $c7($replace($1-,a,?,b,?,c,?,d,?,e,?,f,?,g,?,h,?,i,?,j,?,k,?,l,?,m,?,n,?,o,?,p,?,q,?,r,?,s,s,t,?,u,?,v,?,w,?,x,x,y,?,z,?)) }
alias c7 { var %h 1, %o | while (%h <= $len($1-)) { var %o %o $+ $+($chr(3),$iif($r(2,15) < 10,0 $+ $v1,$v1),$mid($1-,%h,1),$chr(3)) | inc %h } | return %o }

}