Mine

on *:text:!cool:?:{
  if (!$hget(leet,$nick)) {
    inc %leetness 1
    set -u3 %leet [ $+ [ $nick ] ] $rand(0,10)
    if (%leet [ $+ [ $nick ] ] isnum 10)  { 
      mode #coolchat -v $nick 
      set %level [ $ [ $nick ] ] 1
      notice $nick lololol. u r uncool .. you were only %leet [ $+ [ $nick ] ] $+ % leet .. try again in 60 Seconds.
      hadd -mu120 leet $nick 1
    }
    else {
      set -u3 %leet [ $+ [ $nick ] ] $rand(10,25)
      if (%leet [ $+ [ $nick ] ] isnum 25)  { 
        /set %level [ $+ [ $nick ] ] 2 
        mode #coolchat +v $nick 
        msg #coolchat $nick was %leet [ $+ [ $nick ] ] $+ % Cool! - $nick $+ , Your getting Voice now :O (+v) 
      }
      else {
        set -u3 %leet [ $+ [ $nick ] ] $rand(25,50)
        msg $nick s0rry, u were only %leet [ $+ [ $nick ] ] $+ % Cool. try again in 1 minute. (level 1)
        set %level [ $ [ $nick ] ] 3
        hadd -mu60 leet $nick 1
      }
    }
  }