IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  sohbet

 Kayıt ol  Topluluk
3Beğeni(ler)
  • 3 Post By Med Cezir

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 09 Kasım 2009, 16:01   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Loto Çekilişleri..



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ı.

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 14 Kasım 2013, 15:12   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Loto Çekilişleri..



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

 
Alıntı ile Cevapla

Alt 15 Kasım 2013, 04:42   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Loto Çekilişleri..



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 } 
}


Konu Med Cezir tarafından (16 Kasım 2013 Saat 17:05 ) değiştirilmiştir. Sebep: ı-i
 
Alıntı ile Cevapla

Alt 15 Kasım 2013, 17:38   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Loto Çekilişleri..



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

 
Alıntı ile Cevapla

Cevapla

Etiketler
cekilis, cekilisleri, Çekilişleri, code, kod, loto, mirc download, mirc indir, onnumara, sanstopu, sayisal, superloto

« önceki Konu | sonraki Konu »

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

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok
BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık

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




Sitemiz bir " paylaşım " sitesidir. Bu yüzden sitemize kayıt olan herkes kontrol edilmeksizin mesaj/konu/resim paylaşabilmektedir.
Bu sebepten ötürü, sitemiz üzerinden paylaşılan mesajlar, konular ve resimlerden doğabilecek olan yasal sorumluluklar paylaşan kullanıcıya aittir. IRCForumlari.Net hiçbir yasal sorumluluk kabul etmemektedir. İllegal herhangi bir faaliyet görülmesi durumunda İletişim sayfası üzerinden ulaşıldığı taktirde mesaj, konu ya da resim en fazla 24 saat içerisinde silinecektir.
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.
İletişim Arşiv Gizlilik Sözleşmesi Yukarı git
yavru köpek sohbet sohbet teması yetişkin sohbet
Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net

mimarsinanokullari.com mjsanaokulu.com eburke.org