Miscellany

on *:JOIN:#:{
  if ($me isop #) {
    set %warn [ $+ [ $nick ] ] 0
    .notice $nick your current warning level is %warn [ $+ [ $nick ] ]
  }
}
on *:TEXT:warning*:*:{
  if ($me isop $chan) {
    if (%warn [ $+ [ $2 ] ] < 3) {
      inc %warn [ $+ [ $2 ] ]
      notice $2 You've been warned %warn [ $+ [ $2 ] ] times. 3 warns, and you're out.
    }
    elseif (%warn [ $+ [ $2 ] ] == 3) {
      ban -k $address($2,4) You've been warned enough. You're gone
    }
  }
}