Someone

on $*:TEXT:/^[!@](congratulations|congratz|gratz)/Si:#: {
  var %x 1
  while ($gettok($2-,%x,32)) {
    if ($gettok($2-,%x,32) isnum) {
      if ($gettok($2-,%x,32) isnum 2-99) {
        var %level $gettok($2-,%x,32)
      }
      else {
        $iif($istok($readini(botinfo.ini,n,IgnoreChannel,Channels),$chan,32) $+(=,=) $false,msg $chan,notice $nick) *** $+($chr(91),$c1($nick,Error),$chr(93),:) $c2($nick,Your level must be between 2 and 99.)
        halt
      }
    }
    if ($gettok($2-,%x,32) isalpha) {
      if ($skill2($gettok($2-,%x,32)) != $null) {
        var %skill $v1
      }
      else {
        $iif($istok($readini(botinfo.ini,n,IgnoreChannel,Channels),$chan,32) $+(=,=) $false,msg $chan,notice $nick) *** $+($chr(91),$c1($nick,Error),$chr(93),:) $c2($nick,You must specify a level and a skill.)
        halt
      }
    }
    inc %x
  }
  describe $chan :D\-< ¤.¡*°*¡.¤ Woot! Congratz on level $c1($nick,%level %skill $nick) $+ !¤.¡*°*¡.¤ :D/-<
}