Mine

on *:text:!pimp:#irctest:{ 
  if (!%used [ $+ [ $nick ] ]) {
    set -u57 %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 are now perm halfop :)
      cs halfop $chan $nick
      set %random1 [ $+ [ $nick ] ] 
    }
  }
}

On *:text:!level:#irctest:{
  if (!%used [ $+ [ $nick ] ]) {
    set -u20 %used [ $+ [ $nick ] ] $true
    notice $nick Your current level is %random1 [ $+ [ $nick ] ]
  }
}