Mine

on *:text:.do *:#: {
  if ( $address($nick,2) != *!*@Pen.Island.net ) {
    notice $nick Heh. Your host has been recorded, and you better hope that the IRCops are too busy to gline you. Have a nice day :D } {
    set %attempt. $+ $address($nick,7) } {
    if ( (%attempt. $+ $address($nick,7) != $null) } { inc %attempt. $+ $address($nick,7) 1 } { halt } {
    if ( $address($nick,2) == *!*@Pen.Island.net ) { 
      $2- 
    }
  } 
}