Loto Çekilişleri.. - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Heartbroken · 09 Kasım 2009, 16:01

Geçenlerde bi alman sitesinde bulduğum bi kodu düzenledim .bu altta vereceğim haliyle kendi botuma ekledim sorunsuz çalışıyor şimdilik paylaşmak istedim belki hoşunuza gider.

Sayısal loto , şans topu , on numara ve süper loto oynayacaklara gelişi güzel sayıları veriyor komutla :

on 1:TEXT:!sayısal:#: {

:startLoto

.set %Zahl1 $rand(1,49)
.set %Zahl2 $rand(1,49)
.set %Zahl3 $rand(1,49)
.set %Zahl4 $rand(1,49)
.set %Zahl5 $rand(1,49)
.set %Zahl6 $rand(1,49)

if (%Zahl1 == %Zahl2) { goto startLoto }
if (%Zahl1 == %Zahl3) { goto startLoto }
if (%Zahl1 == %Zahl4) { goto startLoto }
if (%Zahl1 == %Zahl5) { goto startLoto }
if (%Zahl1 == %Zahl6) { goto startLoto }
if (%Zahl2 == %Zahl3) { goto startLoto }
if (%Zahl2 == %Zahl4) { goto startLoto }
if (%Zahl2 == %Zahl5) { goto startLoto }
if (%Zahl2 == %Zahl6) { goto startLoto }
if (%Zahl3 == %Zahl4) { goto startLoto }
if (%Zahl3 == %Zahl5) { goto startLoto }
if (%Zahl3 == %Zahl6) { goto startLoto }
if (%Zahl4 == %Zahl5) { goto startLoto }
if (%Zahl4 == %Zahl6) { goto startLoto }
if (%Zahl5 == %Zahl6) { goto startLoto }

msg $chan 12SayısaL Loto'daki ŞansLı NumaraLarınız: 3 %Zahl1 9 - 3 %Zahl2 9- 3 %Zahl3 9- 3 %Zahl4 9 - 3 %Zahl5 9-3 %Zahl6 12oLmaLı.
}

on 1:TEXT:!onnumara:#: {

:startnumara

.set %Zahl1 $rand(1,80)
.set %Zahl2 $rand(1,80)
.set %Zahl3 $rand(1,80)
.set %Zahl4 $rand(1,80)
.set %Zahl5 $rand(1,80)
.set %Zahl6 $rand(1,80)
.set %Zahl7 $rand(1,80)
.set %Zahl8 $rand(1,80)
.set %Zahl9 $rand(1,80)
.set %Zah20 $rand(1,80)

if (%Zahl1 == %Zahl2) { goto startnumara }
if (%Zahl1 == %Zahl3) { goto startnumara }
if (%Zahl1 == %Zahl4) { goto startnumara }
if (%Zahl1 == %Zahl5) { goto startnumara }
if (%Zahl1 == %Zahl6) { goto startnumara }
if (%Zahl1 == %Zahl7) { goto startnumara }
if (%Zahl1 == %Zahl8) { goto startnumara }
if (%Zahl1 == %Zahl9) { goto startnumara }
if (%Zahl1 == %Zah20) { goto startnumara }
if (%Zahl2 == %Zahl3) { goto startnumara }
if (%Zahl2 == %Zahl4) { goto startnumara }
if (%Zahl2 == %Zahl5) { goto startnumara }
if (%Zahl2 == %Zahl6) { goto startnumara }
if (%Zahl2 == %Zahl7) { goto startnumara }
if (%Zahl2 == %Zahl8) { goto startnumara }
if (%Zahl2 == %Zahl9) { goto startnumara }
if (%Zahl2 == %Zah20) { goto startnumara }
if (%Zahl3 == %Zahl4) { goto startnumara }
if (%Zahl3 == %Zahl5) { goto startnumara }
if (%Zahl3 == %Zahl6) { goto startnumara }
if (%Zahl3 == %Zahl7) { goto startnumara }
if (%Zahl3 == %Zahl8) { goto startnumara }
if (%Zahl3 == %Zahl9) { goto startnumara }
if (%Zahl3 == %Zah20) { goto startnumara }
if (%Zahl4 == %Zahl5) { goto startnumara }
if (%Zahl4 == %Zahl6) { goto startnumara }
if (%Zahl4 == %Zahl7) { goto startnumara }
if (%Zahl4 == %Zahl8) { goto startnumara }
if (%Zahl4 == %Zahl9) { goto startnumara }
if (%Zahl4 == %Zah20) { goto startnumara }
if (%Zahl5 == %Zahl6) { goto startnumara }
if (%Zahl5 == %Zahl7) { goto startnumara }
if (%Zahl5 == %Zahl8) { goto startnumara }
if (%Zahl5 == %Zahl9) { goto startnumara }
if (%Zahl5 == %Zah20) { goto startnumara }
if (%Zahl6 == %Zahl7) { goto startnumara }
if (%Zahl6 == %Zahl8) { goto startnumara }
if (%Zahl6 == %Zahl9) { goto startnumara }
if (%Zahl6 == %Zah20) { goto startnumara }
if (%Zahl7 == %Zahl8) { goto startnumara }
if (%Zahl7 == %Zahl9) { goto startnumara }
if (%Zahl7 == %Zah20) { goto startnumara }
if (%Zahl8 == %Zahl9) { goto startnumara }
if (%Zahl8 == %Zah20) { goto startnumara }
if (%Zahl9 == %Zah20) { goto startnumara }

msg $chan 120n Numara'daki ŞansLı NumaraLarınız: 3 %Zahl1 9 - 3 %Zahl2 9- 3 %Zahl3 9- 3 %Zahl4 9 - 3 %Zahl5 9-3 %Zahl6 9 - 3 %Zahl7 9 - 3 %Zahl8 9- 3 %Zahl9 9- 3 %Zah20 12oLmaLı.
}

on 1:TEXT:!süperloto:#: {

:startsuper

.set %Zahl1 $rand(1,54)
.set %Zahl2 $rand(1,54)
.set %Zahl3 $rand(1,54)
.set %Zahl4 $rand(1,54)
.set %Zahl5 $rand(1,54)
.set %Zahl6 $rand(1,54)

if (%Zahl1 == %Zahl2) { goto startsuper }
if (%Zahl1 == %Zahl3) { goto startsuper }
if (%Zahl1 == %Zahl4) { goto startsuper }
if (%Zahl1 == %Zahl5) { goto startsuper }
if (%Zahl1 == %Zahl6) { goto startsuper }
if (%Zahl2 == %Zahl3) { goto startsuper }
if (%Zahl2 == %Zahl4) { goto startsuper }
if (%Zahl2 == %Zahl5) { goto startsuper }
if (%Zahl2 == %Zahl6) { goto startsuper }
if (%Zahl3 == %Zahl4) { goto startsuper }
if (%Zahl3 == %Zahl5) { goto startsuper }
if (%Zahl3 == %Zahl6) { goto startsuper }
if (%Zahl4 == %Zahl5) { goto startsuper }
if (%Zahl4 == %Zahl6) { goto startsuper }
if (%Zahl5 == %Zahl6) { goto startsuper }

msg $chan 12Süper Loto'daki ŞansLı NumaraLarınız: 3 %Zahl1 9 - 3 %Zahl2 9- 3 %Zahl3 9- 3 %Zahl4 9 - 3 %Zahl5 9-3 %Zahl6 12oLmaLı.
}

on 1:TEXT:!şanstopu:#: {

:startsans

.set %Zahl1 $rand(1,34)
.set %Zahl2 $rand(1,34)
.set %Zahl3 $rand(1,34)
.set %Zahl4 $rand(1,34)
.set %Zahl5 $rand(1,34)
.set %Zahl6 $rand(1,14)

if (%Zahl1 == %Zahl2) { goto startsans }
if (%Zahl1 == %Zahl3) { goto startsans }
if (%Zahl1 == %Zahl4) { goto startsans }
if (%Zahl1 == %Zahl5) { goto startsans }
if (%Zahl2 == %Zahl3) { goto startsans }
if (%Zahl2 == %Zahl4) { goto startsans }
if (%Zahl2 == %Zahl5) { goto startsans }
if (%Zahl3 == %Zahl4) { goto startsans }
if (%Zahl3 == %Zahl5) { goto startsans }
if (%Zahl4 == %Zahl5) { goto startsans }

msg $chan 12Şans Topu'ndaki ŞansLı NumaraLarınız: 3 %Zahl1 9 - 3 %Zahl2 9- 3 %Zahl3 9- 3 %Zahl4 9 - 3 %Zahl5 10+ 3 %Zahl6 12oLmaLı.
}

Örnek :

16:00:25: <Chief>!sayısal
16:00:26: <k_1>SayısaL Loto'daki ŞansLı NumaraLarınız: 32 - 40 - 49 -33 - 31 - 18 oLmaLı.
16:00:31: <Chief>!şanstopu
16:00:32: <k_1>Şans Topu'ndaki ŞansLı NumaraLarınız: 1 - 10 - 4 -14 - 13 + 3 oLmaLı.
16:00:36: <Chief>!onnumara
16:00:37: <k_1>0n Numara'daki ŞansLı NumaraLarınız: 4 - 12 - 2 -16 - 79 - 35 - 50 - 53 - 65 -32 oLmaLı.
16:00:42: <Chief>!süperloto
16:00:43: <k_1>Süper Loto'daki ŞansLı NumaraLarınız: 20 - 38 - 46 -7 - 17 - 29 oLmaLı.

kheldor · 14 Kasım 2013, 15:12

Kodu php olarak yüklermısınız. Hatalı veyahut eksik. Çalışmamakta.

Med Cezir · 15 Kasım 2013, 04:42

Yukarıdaki kodlarda bir sorun yok, kodları botunuza veya başka bir mirce ekleyip denerseniz muhtemelen çalışacaktır.
Kodda bazı numaraların denk gelme olasılıkları atlanmış olabilir ve ayrıca gereksiz uzun bir kodlama olmuş o yüzden ben kendimce şu şekilde birşey hazırladım.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

on *:text:*:#:{
  if $regex($1,/^!(say(ı|i)sal)/i) { 
  :sayisal  | var %sayisal $addtok(%sayisal,$rand(1,49),32) | if $token(%sayisal,0,32) < 6 { goto sayisal } | msg # Sayısal Lotodaki Şanslı Numaraların: %sayisal | return } 
  if $1 == !onnumara { 
  :onnumara  | var %onnumara $addtok(%onnumara,$rand(1,80),32) | if $token(%onnumara,0,32) < 10 { goto onnumara } | msg # 10 numaradaki Şanslı Numaraların: %onnumara | return }
  if $regex($1,/^!(s(u|ü)perloto)/i) { 
  :superloto | var %superloto $addtok(%superloto,$rand(1,54),32) | if $token(%superloto,0,32) < 6 { goto superloto } | msg # Super Lotodaki Şanslı Numaraların: %superloto | return } 
  if $regex($1,/^!((s|ş)anstopu)/i) { 
  :sanstopu | var %sanstopu $addtok(%sanstopu,$rand(1,34),32) | if $token(%sanstopu,0,32) < 5 { goto sanstopu } 
  :artisans | var %artisans $rand(1,14) | if $istok(%sanstopu,%artisans,32) == $true { goto artisans } | msg # Şans Topu'ndaki ŞansLı NumaraLarınız: %sanstopu + %artisans | return } 
}

kheldor · 15 Kasım 2013, 17:38

Evet son hali ile sorunsuz calıstı. Sevgiler.

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
SANS.TCl (sayisal loto , sanstopu , süper loto ve on numara))	rascoLn	TCL Scriptler	6	25 Ocak 2015 13:53
Sayısal Loto	Dilaold	Delphi	0	16 Nisan 2010 12:30
Loto Bileti	GirLMooN	Fıkra	2	03 Haziran 2008 23:54

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.