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/)

- - On numara bir kod (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/1025403-numara-bir-kod.html)

On numara bir kod

Kullanilacak Komutlar :
[Userkomutlar]
.sayigir 2 4 6 19 43 33 54 67 32 79 ( 10 adet farkli sayi)
.sayiliste (girilmis sayi listesini gosterir)
[Operator Komutu]
.cekilis (Cekilisi yapar)
Kod asagidan basliyor
NOT1: SADECE EGLENCE AMACLIDIR.
NOT2: cekiliskanal yazan yeri ayarlamayi unutmayin sayigirilen ve cekilis yapilan kanal ayni olmalidir.

Kod:

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

alias -l cekiliskanal return #mirchelp

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

alias -l cekdos return cekilis.txt

alias -l cekkazan return cekiliskazanan.txt

alias -l cek {

  var %m 

  while (j) {

    var %n = $r(1,80) 

    if !$istok(%m,%n,32)  { var %m = %m %n } 

    if ($numtok(%m,32) == 22) { break } 

  } 

  $c Cekilis Sayilari:  $sorttok(%m,32,n)

  set %cekilisayilar $sorttok(%m,32,n)

}

alias -l sayikontrol {

  var %m_ = 1, %d_

  if ($numtok($$2-,32) != 10) { $c Girilen rakam sayisi 10 adet olmalidir | return } 

  while ($gettok($$2-,%m_,32)) {

    var %j_ = $v1 

    if (%j_ !isnum 1-80) { $c Girilen rakamlar 1 ile 80 arasinda olmalidir. | return }

    if !$istok(%d_,%j_,32) { var %d_ = %d_ %j_ }  

    else {  $c Girilen rakamlarin hepsi birbirinden farkli olmalidir | return }

    inc %m_

  }

  if $read($cekdos,w,[Nick] $$1 *) {  $c Maalef daha once sayi girmissiniz. $v1  |  return  }

  $c Girilen rakamlar kabul edildi. [Nick] $$1 [Sayilar] $sorttok(%d_,32,n)

  write cekilis.txt  [Nick] $$1 [Sayilar] $sorttok(%d_,32,n)

  filter -ctff 2 32 $cekdos $cekdos

}

alias -l cekiliskazanan {

  write -c $cekkazan

  var %k_ =  1, %t_, %l_

  while $read($cekdos,%k_) {

    tokenize 32 $v1

    var  %t_ = $4- , %n_ 1, %_nick__ $2

    while $gettok(%t_,%n_,32) {

      var %l_ = $v1

      if $istok(%cekilisayilar,%l_,32) { write $+(-s,%_nick__ ) $cekkazan %_nick__  $read($cekkazan,s,%_nick__) %l_    }

      if (%n_ == 10 && !$read($cekkazan,s,%_nick__)) { write $cekkazan  $+  %_nick__  0  bildi [KAZANDI]  }

      if (%n_ == 10 && $numtok($read($cekkazan,s,%_nick__),32) >= 6 && *(0)* !iswm $read($cekkazan,s,%_nick__) )  { 

        write $+(-s,%_nick__ ) $cekkazan  %_nick__  $read($cekkazan,s,%_nick__)   $+  $numtok($read($cekkazan,s,%_nick__),32)  $+    bildi [KAZANDI]  

      }  

      inc %n_

    }

    inc %k_

  }

}

alias -l c return msg $cekiliskanal

alias -l cekilisdatasil { unset %cekilisayilar | remove -b $cekdos | remove -b $cekkazan | $c Tum veriler sifirlandi, bir sonraki cekilise hazir olun. }

on *:text:*:$($cekiliskanal):{

  if (?say?gir iswm $1) {  sayikontrol $nick $$2-  }

  if (?say?list* iswm $1) { 

    if !$isfile($cekdos) || $lines($cekdos) == 0  { msg # Henuz herhangi bir nick listeye sayi girmemis | return } 

    play # $cekdos 1000 | msg #  Listede $lines($cekdos) adet nick sayi girmistir.  

  }

  if ($regex($1,/^[.!][c]ekili[s]$/i)  && $nick isop # ) {

    ;Burada .cekilis komutunu uygulayacak nick istege gore ayarlanmak isterse bana forum altinda yazabilirsiniz.

    if !$isfile($cekdos)  || $lines($cekdos) == 0  { msg # Henuz herhangi bir nick listeye sayi girmemis | return } 

    cek | cekiliskazanan | $c - |  .play $cekiliskanal  $cekkazan 1000 | .timercekilis 1 600 cekilisdatasil

  }

}

Cevap: On numara bir kod

Not3: sayi girilen kanal spamdan muaf olmalidir.

Cevap: On numara bir kod

Çekiliş sevenler bol bol kullanır jeun usta emegine saglik

Cevap: On numara bir kod

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

Cevap: On numara bir kod

Yine marjinal bir çalışma helal olsun

Cevap: On numara bir kod

ilginiz icin tesekkurler arkadaslar.aklima geldikce arada yazarim ben boyle

Cevap: On numara bir kod

Emeğine sağlık güzel olmuş. Ama söyle yapsak daha hoş olmaz mı.

.cekiliskullanıcı rumuzu

eklenen rumuzlardan seçse .cekilis

komutunu yazınca.

Cevap: On numara bir kod

Alıntı:

AriC Nickli Üyeden Alıntı (Mesaj 1042857681)

Emeğine sağlık güzel olmuş. Ama söyle yapsak daha hoş olmaz mı.

.cekiliskullanıcı rumuzu

eklenen rumuzlardan seçse .cekilis

komutunu yazınca.

anlasilmadi.

Cevap: On numara bir kod

emegine sağlık usta

Cevap: On numara bir kod

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

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 19:58 -->-> Daha önceki mesaj 19:57 --

bu kod bildigimiz on numara, adindan da anlasilacagi gibi.
10 tane sayi giriyorsunuz, bot size 22 tane sayi veriyor.
hic bilemezsin 0 cekersen kazaniyon.
6 ve ustu bilirsen de kazaniyorsun.
-
eglence amacli

Cevap: On numara bir kod

Eline emeğine sağlık jeun üstad.

Cevap: On numara bir kod

sagolasin @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] :)

Cevap: On numara bir kod

Sunucuda çekiliş yapmak istiyorum diyelim.

Cekilise katılmak isteyenler #A odasında " !katil " yazdıgında cekilise katılsın rumuzu kaydedilsin.
Cekilise katilan kullanıcılar arasından birisini secmek icinde " !sonuc " Yazdıgımda cekilise katılan rumuzları kaydedilenlerden birisini rastgele secsin.

Cevap: On numara bir kod

yine anlamadim kardesim, anlayan biri varsa aciklasin.

Cevap: On numara bir kod

Alıntı:

manikdepresif Nickli Üyeden Alıntı (Mesaj 1042856961)

Kod:

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

alias -l cekiliskanal return #mirchelp

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

alias -l cekdos return cekilis.txt

alias -l cekkazan return cekiliskazanan.txt

alias -l cek {

  var %m 

  while (j) {

    var %n = $r(1,80) 

    if !$istok(%m,%n,32)  { var %m = %m %n } 

    if ($numtok(%m,32) == 22) { break } 

  } 

  $c Cekilis Sayilari:  $sorttok(%m,32,n)

  set %cekilisayilar $sorttok(%m,32,n)

}

alias -l sayikontrol {

  var %m_ = 1, %d_

  if ($numtok($$2-,32) != 10) { $c Girilen rakam sayisi 10 adet olmalidir | return } 

  while ($gettok($$2-,%m_,32)) {

    var %j_ = $v1 

    if (%j_ !isnum 1-80) { $c Girilen rakamlar 1 ile 80 arasinda olmalidir. | return }

    if !$istok(%d_,%j_,32) { var %d_ = %d_ %j_ }  

    else {  $c Girilen rakamlarin hepsi birbirinden farkli olmalidir | return }

    inc %m_

  }

  if $read($cekdos,w,[Nick] $$1 *) {  $c Maalef daha once sayi girmissiniz. $v1  |  return  }

  $c Girilen rakamlar kabul edildi. [Nick] $$1 [Sayilar] $sorttok(%d_,32,n)

  write cekilis.txt  [Nick] $$1 [Sayilar] $sorttok(%d_,32,n)

  filter -ctff 2 32 $cekdos $cekdos

}

alias -l cekiliskazanan {

  write -c $cekkazan

  var %k_ =  1, %t_, %l_

  while $read($cekdos,%k_) {

    tokenize 32 $v1

    var  %t_ = $4- , %n_ 1, %_nick__ $2

    while $gettok(%t_,%n_,32) {

      var %l_ = $v1

      if $istok(%cekilisayilar,%l_,32) { write $+(-s,%_nick__ ) $cekkazan %_nick__  $read($cekkazan,s,%_nick__) %l_    }

      if (%n_ == 10 && !$read($cekkazan,s,%_nick__)) { write $cekkazan  $+  %_nick__  0  bildi [KAZANDI]  }

      if (%n_ == 10 && $numtok($read($cekkazan,s,%_nick__),32) >= 6 && *(0)* !iswm $read($cekkazan,s,%_nick__) )  { 

        write $+(-s,%_nick__ ) $cekkazan  %_nick__  $read($cekkazan,s,%_nick__)   $+  $numtok($read($cekkazan,s,%_nick__),32)  $+    bildi [KAZANDI]  

      }  

      inc %n_

    }

    inc %k_

  }

}

alias -l c return msg $cekiliskanal

alias -l cekilisdatasil { unset %cekilisayilar | remove -b $cekdos | remove -b $cekkazan | $c Tum veriler sifirlandi, bir sonraki cekilise hazir olun. }

on *:text:*:$($cekiliskanal):{

  if (?say?gir iswm $1) {  sayikontrol $nick $$2-  }

  if (?say?list* iswm $1) { 

    if !$isfile($cekdos) || $lines($cekdos) == 0  { msg # Henuz herhangi bir nick listeye sayi girmemis | return } 

    play # $cekdos 1000 | msg #  Listede $lines($cekdos) adet nick sayi girmistir.  

  }

  if ($regex($1,/^[.!][c]ekili[s]$/i)  && $nick isop # ) {

    ;Burada .cekilis komutunu uygulayacak nick istege gore ayarlanmak isterse bana forum altinda yazabilirsiniz.

    if !$isfile($cekdos)  || $lines($cekdos) == 0  { msg # Henuz herhangi bir nick listeye sayi girmemis | return } 

    cek | cekiliskazanan | $c - |  .play $cekiliskanal  $cekkazan 1000 | .timercekilis 1 600 cekilisdatasil

  }

}

Abim emeğine sağlık

Cevap: On numara bir kod

Daha önce hiç böyle bir kodla karşılaşmamıştım ne kadar güzel:) Emeğinize sağlık.

Cevap: On numara bir kod

Alıntı:

AriC Nickli Üyeden Alıntı (Mesaj 1042857747)

Kod:

var %katilanlar
 

on *:TEXT:!katil:#A:{
 

  if ($istok(%katilanlar, $nick, 32)) {

    msg #A $nick, zaten çekilişe katıldınız.

  }

  else {

    %katilanlar = %katilanlar $nick $+ " "

    msg #A Çekilişe katıldın: $nick

  }
 

}
 

on *:TEXT:!sonuç:#A:{
 

  var %katilanlarArray = $remove(%katilanlar, )
 

  var %katilanSayisi = $numtok(%katilanlarArray, 32)
 

  if (%katilanSayisi == 0) {
 

    msg #A Çekilişe kimse katılmamış. 
 

  }
 

  else {
 

    var %secilenIndex = $rand(1, %katilanSayisi)
 

    var %secilenNick = $gettok(%katilanlarArray, %secilenIndex, 32)
 

    msg #A Çekiliş Sonucu: %secilenNick $+ " çekilişe katılanlar arasından seçildi!"
 

    ; Çekilişe katılan listeyi sıfırla

    %katilanlar = 

  }
 

}

Kod çalışmıyorsa @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] koda bakarak ne anlatmak istediğini anlayıp çalışanı yapacaktır.

Kolay gelsin.

Cevap: On numara bir kod

Emeginize sağlık güzel

Cevap: On numara bir kod

Emeğinize sağlık.

Cevap: On numara bir kod

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] , eline emeğine sağlık.
yazdığın kodlarla ve verdiğin emekle gerçekten coder ünvanını sonuna kadar hakediyorsun.
teşekkür ederiz.

Cevap: On numara bir kod

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