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

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

  }

}