on *:TEXT:*:#PRECHANNEL:{
  if (($nick == Pr30) ) {
    set %section $remove($strip($1),[,])
    set %rlz $2
    auto
  }
}
alias auto {
  if !addpre isin %section { halt }
  if !info isin %section { halt }
  /scon 3 /msg #pr3 $chr(45) %section $chr(45) %rlz
}