on *:TEXT:!warn *:#:{
  if (%warning. [ $+ [ $2 ] ] < 4) {
    notice $nick The Warning for $2 has been increased by 25 percent
    inc %warning. [ $+ [ $2 ] ]
  }
  else {
    notice $nick $2's warning is already maxed out.
  }
}