# hangi kanalda kullanacaksanız
# telnet/dcc üzerinden bota
# .chanset #kanalınız +loto
# komutuyla ayarlarsınız.
 
 setudef flag loto
 
 
bind pub -|- !sayisal say:lot
bind pub -|- !onnumara on:nu
bind pub -|- !super sup:lot
bind pub -|- !sans sans:top
 
 
proc say:lot {nick uhost hand chan text} {
  if {![channel get $chan loto]} {
  return 0
  }
   set zar1 [expr int(rand() * 49) + 1 ]
   set zar2 [expr int(rand() * 49) + 1 ]
   set zar3 [expr int(rand() * 49) + 1 ]
   set zar4 [expr int(rand() * 49) + 1 ]
   set zar5 [expr int(rand() * 49) + 1 ]
   set zar6 [expr int(rand() * 49) + 1 ]
  puthelp "privmsg $chan :\00314$nick \002\00304SayısaL Loto'daki NumaraLarınız\002\00305-> \00303$zar1 \00305- \00303$zar2 \00305- \00303$zar3 \00305- \00303$zar4 \00305- \00303$zar5 \00305- \00303$zar6"
}
 
proc on:nu {nick uhost hand chan text} {
  if {![channel get $chan loto]} {
  return 0
  }
   set zar1 [expr int(rand() * 80) + 1 ]
   set zar2 [expr int(rand() * 80) + 1 ]
   set zar3 [expr int(rand() * 80) + 1 ]
   set zar4 [expr int(rand() * 80) + 1 ]
   set zar5 [expr int(rand() * 80) + 1 ]
   set zar6 [expr int(rand() * 80) + 1 ]
   set zar7 [expr int(rand() * 80) + 1 ]
   set zar8 [expr int(rand() * 80) + 1 ]
   set zar9 [expr int(rand() * 80) + 1 ]
   set zar10 [expr int(rand() * 80) + 1 ]
  puthelp "privmsg $chan :\00314$nick \002\003040n Numara'daki NumaraLarınız\002\00305-> \00303$zar1 \00305- \00303$zar2 \00305- \00303$zar3 \00305- \00303$zar4 \00305- \00303$zar5 \00305- \00303$zar6 \00305- \00303$zar7 \00305- \00303$zar8 \00305- \00303$zar9 \00305- \00303$zar10"
}
 
proc sup:lot {nick uhost hand chan text} {
  if {![channel get $chan loto]} {
  return 0
  }
   set zar1 [expr int(rand() * 54) + 1 ]
   set zar2 [expr int(rand() * 54) + 1 ]
   set zar3 [expr int(rand() * 54) + 1 ]
   set zar4 [expr int(rand() * 54) + 1 ]
   set zar5 [expr int(rand() * 54) + 1 ]
   set zar6 [expr int(rand() * 54) + 1 ]
  puthelp "privmsg $chan :\00314$nick \002\00304Süper Loto'daki NumaraLarınız\002\00305-> \00303$zar1 \00305- \00303$zar2 \00305- \00303$zar3 \00305- \00303$zar4 \00305- \00303$zar5 \00305- \00303$zar6"
}
 
proc sans:top {nick uhost hand chan text} {
  if {![channel get $chan loto]} {
  return 0
  }
   set zar1 [expr int(rand() * 34) + 1 ]
   set zar2 [expr int(rand() * 34) + 1 ]
   set zar3 [expr int(rand() * 34) + 1 ]
   set zar4 [expr int(rand() * 34) + 1 ]
   set zar5 [expr int(rand() * 34) + 1 ]
   set zar6 [expr int(rand() * 14) + 1 ]
  puthelp "privmsg $chan :\00314$nick \002\00304Şans Topu'ndaki NumaraLarınız\002\00305-> \00303$zar1 \00305- \00303$zar2 \00305- \00303$zar3 \00305- \00303$zar4 \00305- \00303$zar5 \002\00305+\002 \00303$zar6"
}
 
putlog "belki botumun şansı yerindedir heh ?"