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

- mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)

- - Sayısal loto :) (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/762540-sayisal-loto.html)

Sayısal loto :)

Çan sıkıntısı üzerine hazırladığım eğlenceli bir çalışma geliştirilebilir.

Kod:

on *:text:*:#: {

  if ($regex($1,/^[.!](basla)$/Si)) { 

    msg # Sayısal loto başlıyor. 

    msg # 6 adet numara girin (1'den 49'a kadar) 

    msg # Örnek kullanım; !loto 11 23 33 41 23 07

  }

  if ($regex($1,/^[.!](loto)$/Si)) {

    if ($2 !isnum) { msg # Hatalı kullanım. }

    else {

      write loto.txt $2- $nick

      msg # Kayıt edildi.

      msg # Başka tahmin yoksa, ( .kazanan ) 

    }

  }  

  if ($regex($1-,/^[.!](Kazanan)$/Si)) && ($nick isop #) || ($nick ishop #) { 

    var %:loto $rand(1,49)

    var %:loto2 $rand(1,49) 

    var %:loto3 $rand(1,49)

    var %:loto4 $rand(1,49)

    var %:loto5 $rand(1,49)

    var %:loto6 $rand(1,49)

    timer 1 0 msg # Lütfen bekleyin...

    timer 1 1 msg # 5

    timer 1 2 msg # 4

    timer 1 3 msg # 3

    timer 1 4 msg # 2

    timer 1 5 msg # 1

    .timer 1 6 msg # Kazanan numaralar: %:loto %:loto2 %:loto3 %:loto4 %:loto5 %:loto6

    .timer 1 8 msg # Tahminde bulunanlar;

    var %:Mylife 1

    while %:Mylife <= $lines(loto.txt) { 

      .timer 1 10  msg # $read(loto.txt,%:Mylife)

      inc %:Mylife

    }

  }

  .timer 1 15 .remove loto.txt 

}

Bota eklenmelidir kendinize eklerseniz çalışmicaktır.
.kazanan komutunu uygulamak için kanalda @(OP) veya halfop(%) olmalısınız.
Birden fazla tahminde bulunmamalısınız.
İstek/Öneri lerinizi başlık altında yapabilirsiniz. (Konu ile alakalı)
İyi eğlenceler, bol şans ..

Örnek görünüm;
[17:49:00] <Mylife> .basla
[17:49:01] <Mircsystem> Sayısal loto başlıyor.
[17:49:01] <Mircsystem> 6 adet numara girin (1'den 49'a kadar)
[17:49:01] <Mircsystem> Örnek kullanım; !loto 11 23 33 41 23 07
[17:49:10] <Mylife> !loto 12 14 16 18 21 7
[17:49:11] <Mircsystem> Kayıt edildi.
[17:49:11] <Mircsystem> Başka tahmin yoksa, ( .kazanan )
[17:49:17] <Mylife> !loto 32 14 42 18 21 7
[17:49:17] <Mircsystem> Kayıt edildi.
[17:49:17] <Mircsystem> Başka tahmin yoksa, ( .kazanan )
[17:49:22] <Mylife> .kazanan
[17:49:22] <Mircsystem> Lütfen bekleyin...
[17:49:23] <Mircsystem> 5
[17:49:24] <Mircsystem> 4
[17:49:25] <Mircsystem> 3
[17:49:26] <Mircsystem> 2
[17:49:27] <Mircsystem> 1
[17:49:28] <Mircsystem> Kazanan numaralar: 35 19 26 47 37 15
[17:49:30] <Mircsystem> Tahminde bulunanlar;
[17:49:32] <Mircsystem> 32 14 42 18 21 7 Mylife
[17:50:02] * Mylife mod değiştirdi:-o Mylife
[17:50:04] <Mylife> .kazanan

Cevap: Sayısal loto :)

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] e peki kazananın ödülü nedir kaç milyoncuk :)
değişik birşey eline sağlık..

Cevap: Sayısal loto :)

Alıntı:

aLone Nickli Üyeden Alıntı (Mesaj 1041819739)

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] e peki kazananın ödülü nedir kaç milyoncuk :)
değişik birşey eline sağlık..

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] büyük ikramiye de ödülü görücez artık bize de 3-5 birşey atar kazanan :D

Cevap: Sayısal loto :)

aynı rakamları $r(0,49) dersen 0 zaten oyunda yok ve aynı rakamın gelme olasılıgı da var.
yanı iki kez (3 5 7 13 13 40) gibi bi rakam diziside çıkabilir.. 6 adet 49 rakamının farklı olması için.
aşağıdaki gibi bir kod gerekir.
kullanımı $lotonum yada /lotonum

Kod:

alias lotonum {

  var %i 6

  while %i  { :. 

    var %r $r(1,49) 

    if ($istok(%l,%r,32)) goto . 

    var %l $addtok(%l,%r,32) 

    dec %i  

  }

  $iif($isid,return,echo ) $regsubex($sorttok(%l,32,n),/(\w+)/ig,[[ \t ]]) 

}

Cevap: Sayısal loto :)

Alıntı:

Mylife Nickli Üyeden Alıntı (Mesaj 1041819734)

Çan sıkıntısı üzerine hazırladığım eğlenceli bir çalışma geliştirilebilir.

[CODE]

Kod:

on *:text:*:#: {

  if ($regex($1,/^[.!](basla)$/Si)) { 

    msg # Sayısal loto başlıyor. 

    msg # 6 adet numara girin (1'den 49'a kadar) 

    msg # Örnek kullanım; !loto 11 23 33 41 23 07

  }

  if ($regex($1,/^[.!](loto)$/Si)) {

    if ($2 !isnum) { msg # Hatalı kullanım. }

    else {

      write loto.txt $2- $nick

      msg # Kayıt edildi.

      msg # Başka tahmin yoksa, ( .kazanan ) 

    }

  }  

  if ($regex($1-,/^[.!](Kazanan)$/Si)) && ($nick isop #) || ($nick ishop #) { 

    var %:loto $rand(1,49)

    var %:loto2 $rand(1,49) 

    var %:loto3 $rand(1,49)

    var %:loto4 $rand(1,49)

    var %:loto5 $rand(1,49)

    var %:loto6 $rand(1,49)

    timer 1 0 msg # Lütfen bekleyin...

    timer 1 1 msg # 5

    timer 1 2 msg # 4

    timer 1 3 msg # 3

    timer 1 4 msg # 2

    timer 1 5 msg # 1

    .timer 1 6 msg # Kazanan numaralar: %:loto %:loto2 %:loto3 %:loto4 %:loto5 %:loto6

    .timer 1 8 msg # Tahminde bulunanlar;

    var %:Mylife 1

    while %:Mylife <= $lines(loto.txt) { 

      .timer 1 10  msg # $read(loto.txt,%:Mylife)

      inc %:Mylife

    }

  }

  .timer 1 15 .remove loto.txt 

}

Bota eklenmelidir kendinize eklerseniz çalışmicaktır.
.kazanan komutunu uygulamak için kanalda @(OP) veya halfop(%) olmalısınız.
Birden fazla tahminde bulunmamalısınız.
İstek/Öneri lerinizi başlık altında yapabilirsiniz. (Konu ile alakalı)
İyi eğlenceler, bol şans ..

Gecmişte yapmış olduğum eğlenceli bir calışma can sıkıntısından biraz eklemeler yaptım.

Kod:

on *:text:*:#: {

  if ($regex($1,/^[.!](basla)$/Si)) { 

    msg # Sayısal loto başlıyor. 

    msg # 6 adet numara girin (1'den 49'a kadar) 

    msg # Örnek kullanım; !loto 11 23 33 41 23 07

  }

  if ($regex($1,/^[.!](loto)$/Si)) {

    if ($2 !isnum) || ($regex($2-,/ \S \w /i)) || ($regex($8-,/(\w|\d)/i)) { msg # Hatalı kullanım. | return }

    if (!$2) || (!$3) || (!$4) || (!$5) || (!$6) { msg # Hatalı kullanım; 6 adet rakam girmelisiniz. | return }

    else {

      write loto.txt $2- $nick

      msg # Kayıt edildi.

      msg # Başka tahmin yoksa, ( .kazanan ) 

    }

  } 

  if ($regex($1-,/^[.!](Kazanan)$/Si)) && ($nick isop #) || ($nick ishop #) { 

    var %:loto $rand(1,49)

    var %:loto2 $rand(1,49) 

    var %:loto3 $rand(1,49)

    var %:loto4 $rand(1,49)

    var %:loto5 $rand(1,49)

    var %:loto6 $rand(1,49)

    if !$read(loto.txt,t,1) { msg # herhangi bir tahmin yok ( !basla ) | return }

    else {

      timer 1 0 msg # Lütfen bekleyin...

      timer 1 1 msg # 5

      timer 1 2 msg # 4

      timer 1 3 msg # 3

      timer 1 4 msg # 2

      timer 1 5 msg # 1

      .timer 1 6 msg # Kazanan numaralar: %:loto %:loto2 %:loto3 %:loto4 %:loto5 %:loto6

      .timer 1 8 msg # Tahminde bulunanlar;

      var %:Mylife 1

      while %:Mylife <= $lines(loto.txt) { 

        .timer 1 10  msg # $read(loto.txt,%:Mylife)

        inc %:Mylife

      }

    }

    .timer 1 15 .remove loto.txt 

  }

}

Cevap: Sayısal loto :)

if ($regex($1-,/^[.!](Kazanan)$/Si)) && ($nick isop #) || ($nick ishop #) {

kırmızılı yer

if ($regex($1-,/^[.!](Kazanan)$/Si)) && (($nick isop #) || ($nick ishop #)) {

şeklinde olması gerek.

İlk yazılan kodda komut olarak [.!]kazanan ve nick op ise yada nick halfop ise söylenmiş

Bunun anlamı şu oluyor nick halfop olduğunda her hangi bir şey yazarsa diğer koşula bakmaksızın aşağıdaki işlemi gerçekleştir.

Düzenlenen şekilde kullanılırsa [.!]kazanan ve nick op yada halfop ise olarak baz alacak 1. koşul olmadan çalışmayacak.

Cevap: Sayısal loto :)

Ek olarak,

$regex($nick(#,$nick).pnick/[%@&~.]/) gibi de kullanabilirsiniz.

Kod:

if $regex($1-,/^[.!]kazanan$/Si) && $regex($nick(#,$nick).pnick,[%@&~.]) {

Kod:

   var %:loto $rand(1,49)

    var %:loto2 $rand(1,49) 

    var %:loto3 $rand(1,49)

    var %:loto4 $rand(1,49)

    var %:loto5 $rand(1,49)

    var %:loto6 $rand(1,49)

Olarak değilde

Kod:

var %:loto $rand(1,49), %:loto2 $rand(1,49), %:loto3 $rand(1,49), %:loto4 $rand(1,49), %:loto5 $rand(1,49), %:loto6 $rand(1,49)

Gibi ekleyebilirsin.

Cevap: Sayısal loto :)

Bizim milletimiz sever böyle oyunları : ) Güzel olmuş eline sağlık .

Cevap: Sayısal loto :)

Alıntı:

Kod:

if $regex($1-,/^[.!]kazanan$/Si) && $regex($nick(#,$nick).pnick,[%@&~.]) {

Kod:

   var %:loto $rand(1,49)

    var %:loto2 $rand(1,49) 

    var %:loto3 $rand(1,49)

    var %:loto4 $rand(1,49)

    var %:loto5 $rand(1,49)

    var %:loto6 $rand(1,49)

Olarak değilde

Kod:

var %:loto $rand(1,49), %:loto2 $rand(1,49), %:loto3 $rand(1,49), %:loto4 $rand(1,49), %:loto5 $rand(1,49), %:loto6 $rand(1,49)

Gibi ekleyebilirsin.

Bu şekilde aynı rakamların gelme ihtimali olduğu için bir alias yaptım. Bir birinden bağımsız 6 rakam oluşturuyor.

Kod:

alias sayisalloto {

  var %sylr = 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49, $&

    %loto = $token(%sylr,$r(1,$token(%sylr,0,32)),32), %sylr = $remtok(%sylr,%loto,32), %loto2 = $token(%sylr,$r(1,$token(%sylr,0,32)),32), %sylr = $remtok(%sylr,%loto2,32), $&

    %loto3 = $token(%sylr,$r(1,$token(%sylr,0,32)),32), %sylr = $remtok(%sylr,%loto3,32), %loto4 = $token(%sylr,$r(1,$token(%sylr,0,32)),32), %sylr = $remtok(%sylr,%loto4,32), %loto5 = $token(%sylr,$r(1,$token(%sylr,0,32)),32), $&

    %sylr = $remtok(%sylr,%loto5,32), %loto6 = $token(%sylr,$r(1,$token(%sylr,0,32)),32)

  echo -a Kazanan numaralar:04 $replace($sorttok(%loto %loto2 %loto3 %loto4 %loto5 %loto6,32,n),$chr(32),$+($chr(32),-,$chr(32)))

}

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Cevap: Sayısal loto :)

Emeğine sağlık. Ufak düzeltmelerle mükemmel'e ulasmis. Halen uğraşıyor olmanız ne güzel.