manikdepresif Nickli Üyeden Alıntı
(Mesaj 1042856961)
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
}
}
|
