namespace eval loto {
 foreach a [array names loto *] { catch {unset loto($a) } }
}
  setudef flag loto
     variable loto
  array set loto {
   semb "."
   sayi "sayisal"
   onnu "onnumara"
   sup "super"
   sans "sans"
   renk1 "\002"
   renk2 "\00303"
   renk3 "\00304"
   renk4 "\00305"
   renk5 "\00314"
  }
 
 bind pub -|- "$loto(semb)$loto(sayi)" say:lot
 bind pub -|- "$loto(semb)$loto(onnu)" on:nu
 bind pub -|- "$loto(semb)$loto(sup)" sup:lot
 bind pub -|- "$loto(semb)$loto(sans)" sans:top
 
 
proc say:lot {nick uhost hand chan text} {
  if {![channel get $chan loto]} {
  return 0
  }
  variable loto
  set a [dict create]
  while {[dict size $a] < 6} { dict set a [expr {int(49*rand())+1}] . }
   dict keys $a
   puthelp "privmsg $chan :$loto(renk1)$loto(renk5)$nick $loto(renk1)$loto(renk3)SayısaL Loto'daki NumaraLarınız$loto(renk4)-> $loto(renk1)$loto(renk2)$a"
}
 
 
proc on:nu {nick uhost hand chan text} {
  if {![channel get $chan loto]} {
  return 0
  }
   variable loto
  set b [dict create]
  while {[dict size $b] < 10} { dict set b [expr {int(80*rand())+1}] . }
   dict keys $b
   puthelp "privmsg $chan :$loto(renk1)$loto(renk5)$nick $loto(renk1)$loto(renk3)0n Numara'daki NumaraLarınız$loto(renk4)-> $loto(renk1)$loto(renk2)$b"
}
 
 
proc sup:lot {nick uhost hand chan text} {
  if {![channel get $chan loto]} {
  return 0
  }
   variable loto
  set c [dict create]
  while {[dict size $c] < 6} { dict set c [expr {int(54*rand())+1}] . }
   dict keys $c
   puthelp "privmsg $chan :$loto(renk1)$loto(renk5)$nick $loto(renk1)$loto(renk3)Süper Loto'daki NumaraLarınız$loto(renk4)-> $loto(renk1)$loto(renk2)$c"
}
 
 
proc sans:top {nick uhost hand chan text} {
  if {![channel get $chan loto]} {
  return 0
  }
    variable loto
  set d [expr int(rand() * 14) + 1 ]
  set e [dict create]
  while {[dict size $e] < 5} { dict set e [expr {int(34*rand())+1}] . }
   dict keys $e
   puthelp "privmsg $chan :$loto(renk1)$loto(renk5)$nick $loto(renk1)$loto(renk3)Şans Topu'ndaki NumaraLarınız$loto(renk4)-> $loto(renk1)$loto(renk2)$e $loto(renk4)+ $loto(renk1)$loto(renk2)$d$loto(renk1)"
}
 
putlog "$loto(renk4)loto kullanıma hazır"