bind pub - !zar sczar

proc sczar {nick user host chan arg} {

	global zar_chan

	if {$chan==$zar_chan} {
	    zar1 = random.randrange(1,7)
    zar2 = random.randrange(1,7)
				}
				putquick "PRIVMSG 4$nick 2Zarlarınız > 4 $zar1 - $zar2

	return 0

}

setudef flag rastgele
 
 bind pub -|- !rnd hep:gele
 
proc hep:gele {nick uhost hand chan text} {
  if {![channel get $chan rastgele]} {
  return 0
  }
   set zar1 [expr int(rand() * 10) + 1 ]
   set zar2 [expr int(rand() * 10) + 1 ]
  puthelp "privmsg $chan :\00314$nick \00305-> \00303$zar1 \00305- \00303$zar2"
}

# 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 ?"

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"