on *:text:!puanver*:#: {
  if $istok(m4x asdsa,$nick,32) {
    $iif($3 == $null,hinc -m puan $2 1,hinc -m puan $2 $3) | puangoster $chan
  }
}

alias puangoster {
   var %m = $hget(puan,0).item | msg $1 Nick - Puan 
  while $hget(puan,%m).item { if %m { msg $1 $hget(puan,%m).item - $hget(puan,%m).data }  | dec %m }
}