if $regex($1-,/^[.!]kazanan$/Si) && $regex($nick(#,$nick).pnick,[%@&~.]) {

   var %:loto $rand(1,49)
    var %:loto2 $rand(1,49) 
    var %:loto3 $rand(1,49)
    var %:loto4 $rand(1,49)
    var %:loto5 $rand(1,49)
    var %:loto6 $rand(1,49)

var %:loto $rand(1,49), %:loto2 $rand(1,49), %:loto3 $rand(1,49), %:loto4 $rand(1,49), %:loto5 $rand(1,49), %:loto6 $rand(1,49)

alias sayisalloto {
  var %sylr = 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49, $&
    %loto = $token(%sylr,$r(1,$token(%sylr,0,32)),32), %sylr = $remtok(%sylr,%loto,32), %loto2 = $token(%sylr,$r(1,$token(%sylr,0,32)),32), %sylr = $remtok(%sylr,%loto2,32), $&
    %loto3 = $token(%sylr,$r(1,$token(%sylr,0,32)),32), %sylr = $remtok(%sylr,%loto3,32), %loto4 = $token(%sylr,$r(1,$token(%sylr,0,32)),32), %sylr = $remtok(%sylr,%loto4,32), %loto5 = $token(%sylr,$r(1,$token(%sylr,0,32)),32), $&
    %sylr = $remtok(%sylr,%loto5,32), %loto6 = $token(%sylr,$r(1,$token(%sylr,0,32)),32)
  echo -a Kazanan numaralar:04 $replace($sorttok(%loto %loto2 %loto3 %loto4 %loto5 %loto6,32,n),$chr(32),$+($chr(32),-,$chr(32)))
}