Some Crap

alias bancountadd {
  writeini ban.ini bancount $nick $calc($readini(ban.ini,bancount,$nick)+1)
}

alias atab {
  $+(.timer,$1) 1 300 remini ban.ini bancount $1
}

alias abch {
  if ($readini(ban.ini,bancount,$1) >= 3) { return $true }
  else { return $false }
}

on 1:text:*:#:{
  if ($1 !isop $chan) {
    if ($isupper($1-)) { bancountadd $nick | atab $nick
    if ($abch($nick)) { kick $chan $nick Capslock Spam! | remini ban.ini bancount $nick } }
  }
}