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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)
-   -   Loto Çekilişleri.. (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/291239-loto-cekilisleri.html)

Heartbroken 09 Kasım 2009 16:01
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ı.

kheldor 14 Kasım 2013 15:12
Cevap: Loto Çekilişleri..
 
Kodu php olarak yüklermısınız. Hatalı veyahut eksik. Çalışmamakta.

Med Cezir 15 Kasım 2013 04:42
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:
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
Cevap: Loto Çekilişleri..
 
Evet son hali ile sorunsuz calıstı. Sevgiler.


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 07:31.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk