on $*:TEXT:/^[!@.](change)?nick/Si:#:{
  if ($nick == Daft) {
    inc %x
    }
    nick $2 $+ $iif(%x => 10,unset %x,inc %x)
  }
}