alias lottery {
var %winner $nick($1,$r(1,$nick($1,0)))
var %point $gettok(5,10,20,30,40,50,60,70,80,150,$r(1,10),44)
var %inisection $+($1,.,%winner)
writeini -n Points.ini %inisection Points $calc($readini(Points.ini,%inisection,Points) + %point)
msg $1 %winner wins %point points!
}