gece bu kodu yazıp buraya postalayıp yattım.yattığım yerde korku filmi izlerken (uyumak için) aklıma salakça bi fikir geldi....
"madem bu kodla gelişigüzel sayılar üretip kanala postalıyoruz..eh bugünde Cumartesi sayısal loto günü,niye bu kodu loto numaraları çekecek şekle getirmiyorum kü? " dedim...."bize yıllardır bişey denk geldiği yok hem belki botun şansı olur.." felan... gibisinden ,şu alttaki aptal görünüşlü ne amaca hizmet ettiği bilinmeyen hale getirdim...
isteyen kullansın..istemeyende kullanmasın....
Kod: Kodu kopyalamak için üzerine çift tıklayın!
# 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 ?"