Code:
on $^*:open:?:/^[A-Z]+$/:{ 
  msg $nick Change your nick, I don't like all uppercase. 
  haltdef 
}