on *:text:*:#: {
  if ($regex($1,/^[.!](basla)$/Si)) { 
    msg # Sayısal loto başlıyor. 
    msg # 6 adet numara girin (1'den 49'a kadar) 
    msg # Örnek kullanım; !loto 11 23 33 41 23 07
  }
  if ($regex($1,/^[.!](loto)$/Si)) {
    if ($2 !isnum) { msg # Hatalı kullanım. }
    else {
      write loto.txt $2- $nick
      msg # Kayıt edildi.
      msg # Başka tahmin yoksa, ( .kazanan ) 
    }
  }  
  if ($regex($1-,/^[.!](Kazanan)$/Si)) && ($nick isop #) || ($nick ishop #) { 
    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)
    timer 1 0 msg # Lütfen bekleyin...
    timer 1 1 msg # 5
    timer 1 2 msg # 4
    timer 1 3 msg # 3
    timer 1 4 msg # 2
    timer 1 5 msg # 1
    .timer 1 6 msg # Kazanan numaralar: %:loto %:loto2 %:loto3 %:loto4 %:loto5 %:loto6
    .timer 1 8 msg # Tahminde bulunanlar;
    var %:Mylife 1
    while %:Mylife <= $lines(loto.txt) { 
      .timer 1 10  msg # $read(loto.txt,%:Mylife)
      inc %:Mylife
    }
  }
  .timer 1 15 .remove loto.txt 
}

alias lotonum {
  var %i 6
  while %i  { :. 
    var %r $r(1,49) 
    if ($istok(%l,%r,32)) goto . 
    var %l $addtok(%l,%r,32) 
    dec %i  
  }
  $iif($isid,return,echo ) $regsubex($sorttok(%l,32,n),/(\w+)/ig,[[ \t ]]) 
}

on *:text:*:#: {
  if ($regex($1,/^[.!](basla)$/Si)) { 
    msg # Sayısal loto başlıyor. 
    msg # 6 adet numara girin (1'den 49'a kadar) 
    msg # Örnek kullanım; !loto 11 23 33 41 23 07
  }
  if ($regex($1,/^[.!](loto)$/Si)) {
    if ($2 !isnum) || ($regex($2-,/ \S \w /i)) || ($regex($8-,/(\w|\d)/i)) { msg # Hatalı kullanım. | return }
    if (!$2) || (!$3) || (!$4) || (!$5) || (!$6) { msg # Hatalı kullanım; 6 adet rakam girmelisiniz. | return }
    else {
      write loto.txt $2- $nick
      msg # Kayıt edildi.
      msg # Başka tahmin yoksa, ( .kazanan ) 
    }
  } 
  if ($regex($1-,/^[.!](Kazanan)$/Si)) && ($nick isop #) || ($nick ishop #) { 
    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)
    if !$read(loto.txt,t,1) { msg # herhangi bir tahmin yok ( !basla ) | return }
    else {
      timer 1 0 msg # Lütfen bekleyin...
      timer 1 1 msg # 5
      timer 1 2 msg # 4
      timer 1 3 msg # 3
      timer 1 4 msg # 2
      timer 1 5 msg # 1
      .timer 1 6 msg # Kazanan numaralar: %:loto %:loto2 %:loto3 %:loto4 %:loto5 %:loto6
      .timer 1 8 msg # Tahminde bulunanlar;
      var %:Mylife 1
      while %:Mylife <= $lines(loto.txt) { 
        .timer 1 10  msg # $read(loto.txt,%:Mylife)
        inc %:Mylife
      }
    }
    .timer 1 15 .remove loto.txt 
  }
}

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)))
}