Forums Scripts & Popups twitch.tv caps ban

on *:text:*:#:{
  if ($nick isop #) { halt }
  if ( $len($1-) >= 10 ) {
    if ( $calc($regex($1-,/[A-Z]/g) / $regex($1-,/[A-Z]/gi) * 100) >= 70 ) { msg $chan $nick -> stop typing in caps! [warning] }
    write capsban.txt $nick
    .timerCapsBan 1 300 CapsBan # $nick
  }
}
alias -l CapsBan {
  write $+(-ds,$nick) capsban.txt
}

on *:text:*:#:{
  if ($nick isop #) { halt }
  if ( $len($1-) >= 10 ) {
    if ( $calc($regex($1-,/[A-Z]/g) / $regex($1-,/[A-Z]/gi) * 100) >= 70 ) {
      var %capsblock = $rand(1,3)
      if (%capsblock == 1) { msg $chan $nick -> stop typing in caps! [caps] [warning] }
      if (%capsblock == 2) { msg $chan $nick -> Ey! stop yelling! [caps] [warning] }
      if (%capsblock == 3) { msg $chan $nick -> stop typing in BIG LETTERS! [caps] [warning] }
      write capsban.txt $nick
      .timerCapsBan 1 300 CapsBan # $nick
    }
  }
}

{ msg $chan $nick -> Ey! stop yelling! [caps] [warning] }

on !*:text:*:#:{
  if ($nick isop #) { return }
  if ( $len($1-) >= 10 ) {
    if ( $calc($regex($1-,/[A-Z]/g) / $regex($1-,/[A-Z]/gi) * 100) >= 70 ) { 
    
      ; check if user is not warned yet
      if !$istok(%caps.warned,$nick,32) {

        ; warning user      
        msg $chan $nick -> stop typing in caps! [warning] 
        
        ; add user to %caps.warned, so we can check it later
        set -e %caps.warned $addtok(%caps.warned,$nick,32)
        
        ; set timer to remove user from %caps.warned after 300s
        .timer 1 300 remove.warned $nick
      }
      else {
        ; so user is already warned.. 
        ; place your timeout command here
      }
    }
  }
}

alias -l remove.warned {
  set -e %caps.warned $remtok(%caps.warned,$1,1,32)
}