I made that for u try this:

Code:
on !*:JOIN:%mychan: {
  .echo $color(info) -ta The  $+ $nick $+  user has just joined the channel!
}

on !*:PART:%mychan: {
  .echo $color(info) -ta The  $+ $nick $+  user has just left the channel!
}

on *:TEXT:*:%mychan: {
  if ($len($1-) < 15) { return }
  if ($int($calc($regex($1,/[A-Z&#913;-&#937;&#916;&#934;&#940;]/g)/$len($1)*100)) > 40) {
    if (!$istok(%flood-one,$nick,32)) && (!$istok(%flood-two,$nick,32)) && (!$istok(%flood-three,$nick,32)) { .set %flood-one $addtok(%flood-one,$nick,32) }
    if ($istok(%flood-one,$nick,32)) { 
      .set %flood-one $remtok(%flood-one,$nick,32)
      .set %flood-two $addtok(%flood-two,$nick,32)
      .notice $nick Warning: Take off your CAPS, if you continue then you will be KICKED! (1/2)
    }  
    elseif ($istok(%flood-two,$nick,32)) {
      .set %flood-two $remtok(%flood-two,$nick,32)
      .set %flood-three $addtok(%flood-three,$nick,32)
      .notice $nick Warning: Take off your CAPS, if you continue then you will be KICKED! (2/2)
    }
    elseif ($istok(%flood-three,$nick,32)) {
      .set %flood-three $remtok(%flood-three,$nick,32)
      .kick $chan $nick Please Close Caps Lock..! [Too many caps 2/2]
    }
  }
}


P.S: To add your channel just use /set %mychan #yourchan