ZirixZero,

on @$*:text:/!p(rivate|ublic)/iS:#:{
  if !%t {
    inc -u3 %t 
    mode # $iif($regml(1) = ublic,-,+) $+ pi 
  }
}

You have to make sure the client running the code is opped by adding a @ prefix, or else you'll get an error. A trigger protection is recommended.