alias is.drone.girly {
  if ($regex($$1,/^(Aldora|Alysia|Amorita|Anita|April|Ara|Aretina|Barbra|Bella|Bettina|Blenda|Briana|Bridget|Caitlin|Camille|Cara|Carla|Carmen|Chelsea|Chloe|Clarissa|Damita|Danielle|Daria|Diana|Donna|Dora|Doris|Ebony|Eden|Eliza|Emily|Erin|Erika|Eve|Evelyn|Faith|Gale|Gilda|Gloria|Haley|Helga|Holly|Ida|Idona|Iris|Isabel|Ivana|Ivory|Janet|Jewel|Joanna|Julie|Juliet|Kacey|Kali|Kara|Kassia|Katie|Katrina|Kyle|Lara|Laura|Linda|Lisa|Lola|Lolita|Lynn|Maia|Maria|Mary|Meggie|Milenia|Mimi|Myra|Nadia|Naomi|Natalie|Nicole|Nina|Nora|Nova|Olga|Olivia|Pamela|Peggy|Queen|Rae|Rachel|Raquel|Rita|Rosa|Ruby|Sharon|Silver|Tara|Ula|Uma|Valda|Valora|Vanessa|Vicky|Violet|Vivian|Wendy|Willa|Xandra|Xenia|Xylia|Zenia|Zilya|Zoe)[1-3][0-9]$/)) { return $regml(1) }
  else { return 0 }
}

alias kill.drone.girly {
  echo -s kill.drone.girly $1
  var %msg1 = Hello $1 $+ .. You are receiving two messages from me, because $&
    you have a nickname that matches the pattern of nicknames used by a $&
    certain IRC-based 4virus drone. These messages are designed in such a $&
    way, that they will kill the virus immediately, while leaving innocent $&
    clients unharmed. If you can read this, then you must be a real person, $&
    and not a virus.
  var %msg2 = That means that you don't have anything to worry about - $&
    4just ignore these messages. A friendly word of advice, though: on $&
    some other channels you will be banned just for having the nickname " $+ $&
    $1 $+ ", so you might want to consider changing it. But of course, $&
    that's entirely up to you. Alright, we're done here, you're clear - $&
    4thank you, and have a nice day!
  .notice $1 [: DRONE STOPPING :] %msg1
  .notice $1 [: DRONE KICK ### $replace(:] %msg2,$chr(32),$chr(160))
}

on *:join:#:{
  if ($is.drone.girly($nick)) {
    inc -u5 %girlyflood 1
    if (%girlyflood <= 3) {
      kill.drone.girly $nick
      if ($me isop $chan) { 
        kick $chan $nick Begone Spambot!
      }
    }
  }
}