on *:text:!pimp:#irctest:{ 
  if (!%used [ $+ [ $nick ] ]) {
    set -u60 %used [ $+ [ $nick ] ] $true
    var %random = $r(0,100) 
    msg $chan The pimp percentage of $nick is $+(%random,$chr(37))
    if (%random = 100) { 
      notice $nick You hare now perm halfop :)
      cs halfop $chan $nick
    }
  }
}