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

Etiketlenen Kullanıcılar

3Beğeni(ler)
  • 1 Post By aLone
  • 1 Post By KuL
  • 1 Post By aLone

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 12 Temmuz 2013, 21:15   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
kod düzetme




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias yuzde { return $+($chr(40),%,$left($calc($hget($1,v) * 100 / $hget($2,v)),4),$chr(41)) } alias yuzde2 { return $+($chr(40),%,$calc($left(100.000000,4) - $remove($yuzde($1,$2),$chr(41),$chr(40),%)),$chr(41)) } alias yuzde3 { return $+($chr(40),%,$left($calc($hget($1,$2) * 100 / $hget($3,v)),4),$chr(41)) } alias ll { return $calc($hget($1,v)-$hget($2,v)) } alias kapsa { return $+($chr(2),$1-,$chr(2)) } alias kontrol { if $count($nick($1,$2).pnick,@,~,%,&) != 0 { hadd -m nickler $2 1 | hsave -i nickler nickler.db | hinc -m giris $2 1 | hsave -i giris giris.db | hinc -m ygiris v 1 | hsave -i ygiris ygiris.db | write $+(Oparetor/,$2,.,txt) $+(=>,$chr(40),$chr(2),$chr(31),Giriş,$chr(31),$chr(2), $chr(41),$chr(32),$chr(40),$chr(2),$date,$chr(2),$ chr(41)) Gün: $gun($+($chr(2),$day,$chr(2))) - Saat: $+($chr(2),$time,$chr(2)) } | else { Oparetorler #Sohbetop#Sohbetop| msg #Sohbetop#Sohbet kanalına giriş yapıldı. Nick: $+($chr(2),$2,$chr(2)) } } alias gun { return $replace($1,Monday,Pazartesi,Tuesday,Salı,Wednesday,Çarşamba,Thursday,Perşembe,Friday,Cuma,Saturday,Cumartesi,Sunday,Pazar) } alias pp { var %& = $numtok($findfile($mircdir,*.db,1),92) | var %j = 1, %k = $findfile($mircdir,*.db,0) | while %j <= %k { if $gettok($findfile($mircdir,*.db,%j),%&,92) != nickler.db { echo -a $gettok($findfile($mircdir,*.db,%j),%&,92) } | inc %j } | hfree -w * | unset %trh | hsil } alias Oparetorler { if $1 { var %1=1,%2 = $nick($1,0),%3 | while %1 <= %2 { if $nick($1,%1) != $me { %3 = $addtok(%3,$nick($1,%1),32) } | inc %1 } } } alias hsil { var %s = $numtok($findfile(Oparetor,*.txt,1),92) | var %1 = 1,%2 = $findfile(Oparetor,*.txt,0) | while %1 <= %2 { remove $gettok($findfile(Oparetor,*.txt,%1),%s,92) | inc %1 } } alias sil { hdec voiceler v $hget(vc,$1) | hdec banlar v $hget(ban,$1) | hdec unbanlar v $hget(unban,$1) | hdec ytext v $hget(text,$1) hdec ygiris v $hget(giris,$1) | hdec ycıkıs v $hget(cıkıs,$1) | hdec devoiceler v $hget(devc,$1) hdel nickler $1 | hsave -i nickler nickler.db | hdel giris $1 | hsave -i giris giris.db | hdel cıkıs $1 | hsave -i cıkıs cıkıs.db | hdel vc $1 | hsave -i vc vc.db hdel devc $1 | hsave -i devc devc.db | hdel ban $1 | hsave -i ban ban.db | hdel unban $1 | hsave -i unban unban.db | hdel text $1 | hsave -i text text.db } on *:start: { if !%trh { set %trh $date } if $isfile(nickler.db) { hmake nickler 100 | hload -i nickler nickler.db } | else { hmake nickler 100 | hsave -i nickler nickler.db } if $isfile(giris.db) { hmake giris 100 | hload -i giris giris.db } | else { hmake giris 100 | hsave -i giris giris.db } if $isfile(cıkıs.db) { hmake cıkıs 100 | hload -i cıkıs cıkıs.db } | else { hmake cıkıs 100 | hsave -i cıkıs cıkıs.db } if $isfile(voiceler.db) { hmake voiceler 100 | hload -i voiceler voiceler.db } | else { hmake voiceler 100 | hsave -i voiceler voiceler.db } if $isfile(devoiceler.db) { hmake devoiceler 100 | hload -i devoiceler devoiceler.db } | else { hmake devoiceler 100 | hsave -i devoiceler devoiceler.db } if $isfile(vc.db) { hmake vc 100 | hload -i vc vc.db } | else { hmake vc 100 | hsave -i vc vc.db } if $isfile(devc.db) { hmake devc 100 | hload -i devc devc.db } | else { hmake devc 100 | hsave -i devc devc.db } if $isfile(banlar.db) { hmake banlar 100 | hload -i banlar banlar.db } | else { hmake banlar 100 | hsave -i banlar banlar.db } if $isfile(ban.db) { hmake ban 100 | hload -i ban ban.db } | else { hmake ban 100 | hsave -i ban ban.db } if $isfile(unbanlar.db) { hmake unbanlar 100 | hload -i unbanlar unbanlar.db } | else { hmake unbanlar 100 | hsave -i unbanlar unbanlar.db } if $isfile(unban.db) { hmake unban 100 | hload -i unban unban.db } | else { hmake unban 100 | hsave -i unban ban.db } if $isfile(text.db) { hmake text 100 | hload -i text text.db } | else { hmake text 100 | hsave -i text text.db } if $isfile(normalg.db) { hmake normalg 100 | hload -i normalg normalg.db } | else { hmake normalg 100 | hsave -i normalg normalg.db } if $isfile(normalc.db) { hmake normalc 100 | hload -i normalc normalc.db } | else { hmake normalc 100 | hsave -i normalc normalc.db } if $isfile(ntext.db) { hmake ntext 100 | hload -i ntext ntext.db } | else { hmake ntext 100 | hsave -i ntext ntext.db } if $isfile(ytext.db) { hmake ytext 100 | hload -i ytext ytext.db } | else { hmake ytext 100 | hsave -i ytext ytext.db } if $isfile(ycıkıs.db) { hmake ycıkıs 100 | hload -i ycıkıs ycıkıs.db } | else { hmake ycıkıs 100 | hsave -i ycıkıs ycıkıs.db } if $isfile(ygiris.db) { hmake ygiris 100 | hload -i ygiris ygiris.db } | else { hmake ygiris 100 | hsave -i ygiris ygiris.db } } on *:op:#Zurna: { if !$hmatch(nickler,$opnick) { hadd -m nickler $opnick 1 | hsave -i nickler nickler.db } } on *:join:#Zurna: { hinc -m normalg v 1 | hsave -i normalg normalg.db | .timer 1 1 kontrol # $nick } on *:part:#Zurna: { hinc -m normalc v 1 | hsave -i normalc normalc.db | if $hmatch(nickler,$nick) { hinc -m ycıkıs v 1 | hsave -i ycıkıs ycıkıs.db | hinc -m cıkıs $nick 1 | hsave -i cıkıs cıkıs.db | write $+(Oparetor/,$nick,.,txt) $+(=>,$chr(40),$chr(2),$chr(31),Çıkış,$chr(31),$chr(2), $chr(41),$chr(32),$chr(40),$chr(2),$date,$chr(2),$ chr(41)) Gün: $gun($+($chr(2),$day,$chr(2))) - Saat: $+($chr(2),$time,$chr(2)) } } on *:voice:#Zurna: { if $hmatch(nickler,$nick) { hinc -m voiceler v 1 | hsave -i voiceler voiceler.db | hinc -m vc $nick 1 | hsave -i vc vc.db } } on *:devoice:#Zurna: { if $hmatch(nickler,$nick) { hinc -m devoiceler v 1 | hsave -i devoiceler devoiceler.db | hinc -m devc $nick 1 | hsave -i devc devc.db } } on *:ban:#Zurna: { if $hmatch(nickler,$nick) { hinc -m banlar v 1 | hsave -i banlar banlar.db | hinc -m ban $nick 1 | hsave -i ban ban.db } } on *:unban:#Zurna: { if $hmatch(nickler,$nick) { hinc -m unbanlar v 1 | hsave -i unbanlar unbanlar.db | hinc -m unban $nick 1 | hsave -i unban unban.db } } on *:text:*:#Zurna: { hinc -m ntext v 1 | hsave -i ntext ntext.db | if $hmatch(nickler,$nick) { hinc -m ytext v 1 | hsave -i ytext ytext.db | hinc -m text $nick 1 | hsave -i text text.db } } on *:text:*:#zalimsin,#zurnahelp : { if $nick == Açe || $nick == zalimsin || $nick == loopus || $nick == d3li || $nick == sarışınım { if $1 == !durum { msg # $+([,$chr(2),%trh,$chr(2),]) Tarihinden beri kayıt'da olan $+($chr(2),#Zurna,$chr(2)) kanalı istatistik'leri sıralanıyor: msg # - msg # Toplam kullanıcı girişi istatistikleri: $+($chr(40),$iif($hget(normalg,v),$hget(normalg,v) ,0),$chr(41)) msg # Toplam kullanıcı çıkış istatistikleri: $+($chr(40),$iif($hget(normalc,v),$hget(normalc,v) ,0),$chr(41)) msg # - Giriş bilgisi: $iif($hget(normalg,v),Yetkili girişi: $iif($hget(ygiris,v),$hget(ygiris,v),0) $yuzde(ygiris,normalg) - Yetkisiz girişi: $ll(normalg,ygiris) $yuzde2(ygiris,normalg),Toplam: 0 (%100)) msg # - Çıkış bilgisi: $iif($hget(normalc,v),Yetkili çıkışı: $iif($hget(ycıkıs,v),$hget(ycıkıs,v),0) $yuzde(ycıkıs,normalc) - Yetkisiz çıkışı: $ll(normalc,ycıkıs) $yuzde2(ycıkıs,normalc), Toplam: 0 (%100)) msg # Toplam verilen voice: $+($chr(40),$iif($hget(voiceler,v),$hget(voiceler, v),0),$chr(41)) msg # Toplam alınan voice: $+($chr(40),$iif($hget(devoiceler,v),$hget(devoiceler,v),0),$chr(41)) msg # Toplam atılan ban sayısı: $+($chr(40),$iif($hget(banlar,v),$hget(banlar,v),0 ),$chr(41)) msg # Toplam açılan ban sayısı: $+($chr(40),$iif($hget(unbanlar,v),$hget(unbanlar, v),0),$chr(41)) msg # Toplam yazılan satır sayısı: $+($chr(40),$iif($hget(ntext,v),$hget(ntext,v),0), $chr(41)) msg # - Satır bilgisi: $iif($hget(ntext,v),Yetkili yazısı: $iif($hget(ytext,v),$hget(ytext,v),0) $yuzde(ytext,ntext) - Yetkisiz yazısı: $ll(ntext,ytext) $yuzde2(ytext,ntext),Toplam: 0 (%100)) msg # - msg # $+($chr(2),$nick,$chr(2)) kullanabileceğiniz komutlar listesini görmek için: $+($chr(2),!Komutlar,$chr(2)) yazınız. } if $1 == !Komutlar { msg # $+($chr(31),Genel komutlar,$chr(31),:) msg # - msg # !durum Yazarak ( Genel İstatistikleri Ögrenebilirsiniz ) msg # !voicelist $kapsa((#Zurna kanalında kayıt gününden beri verilen tüm voice'leri sıralar)) msg # !devoicelist $kapsa((#Zurna kanalında kayıt gününden beri alınan tüm voice'leri sıralar)) msg # !banlist $kapsa((#Zurna kanalında kayıt tarihinden beri atılan tüm banları sıralar)) msg # !unbanlist $kapsa((#Zurna kanalında kayıt tarihinden beri açılan tüm banları sıralar)) msg # !Oplist $kapsa((#Zurna kanalında takip listesinde olan tüm Oparetor'ları sıralar)) msg # !sıfırla tümü $kapsa((#Zurna kanalı için varolan tüm kayıtları sıfır'lar)) msg # !idlescan (Kullanım: !idlescan OFF - !idlescan ON - !idlescan ON dakika ) msg # !idlekontrol (manuel kullanmak için kullanılır.) msg # !join ( ajoin aliseslerini vermek için ) msg # !atama (Op kanalında badnick taraması bir op atar.) msg # !alias (Zurna kanalı aliasesleri ) msg # !badekle (badnick ekler örnek :!badnick lolita* ) msg # !badsil (badnick siler örnek :!badick lolite* ) msg # !küfürekle (küfür ekler örnek :!küfürekle lannn*) msg # !küfürsil (küfür siler örnek :!küfürsil lannn* ) msg # - msg # $+($chr(31),Sopların kullana bilcegi komutlardir.,$chr(31),:) msg # - msg # !ekle Oparetor-nick $kapsa((Takip listesine ve #Zurna kanalında Oparetor geçebilmesi için yetki verir.)) msg # !Kurallar ((Kanal kurallarını listelemenizi saglar)) msg # !sil Oparetor-nick $kapsa((Takip listesinde ekli olan bir Oparetor'i accessi ile birlikte siler)) msg # !istatistik Oparetor-nick $kapsa((Takip listesinde kayıtlı olan Oparetor hakkında ayrıntılı bilgiler verir)) msg # !takipekle Oparetor-nick $kapsa((Takip listesinde kayıtlı olan Oparetor'in, hangi tarihlerde giriş/çıkış yaptığını gösterir)) msg # !takipsil Oparetor-nick $kapsa((Takip listesinde kayıtlı olan Oparetor'leri takip edirmesini siler. )) msg # !takiplist Oparetor-nick $kapsa((Takip listesinde kayıtlı olan Oparetor'leri listeler. )) msg # !takipsayısı Oparetor-nick $kapsa((Takip listesinde kayıtlı olan kaç Oparetor'un,takip edildigini belirtir. )) msg # !tsil Oparetor-nick $kapsa((Takip listesinde kayıtlı olan Oparetor'in, giriş/çıkış tarihlerini sıfır'lar)) msg # if (!$istok(zalimsin açe loopus sarışınım d3li,$nick,32)) { halt }list $kapsa((Op temizlik raporlarını gösterir.)) msg # - msg #  Opların Kullanacagı Komutlar sadece zurna kanalında geçerlidir.: msg # - !kb msg # - !k msg # - !deop msg # - !op msg # - !voice msg # - !devoice msg # Tüm komutlar sıralandı. } if $1 == !kanalagir { /j #zurna | /msg #zurnaop Emredersiniz Hemen Kanala giriyorum. } if $1 == !Oplist { if $hget(nickler,0).item < 1 { msg # Kayıtlı Oparetor mevcut değil. Oparetor varmek için; $kapsa(!var Oparetor-nick) yazınız. | halt } else { msg # Kayıtlı olan toplam; $kapsa($hget(nickler,0).item) Oparetor sıralanıyor. | var %& = 1,%&& = $hget(nickler,0).item | while %& <= %&& { msg # $+(%&,$chr(45)) $kapsa($hget(nickler,%&).item) | inc %& } } msg # Kayıtlar sıralandı. msg # Herhangi bir Oparetor hakkında detaylı bilgi almak için; $kapsa(!istatistik Oparetor-nick) yazınız. } if $1 == !voicelist { if $hget(voiceler,v) < 1 { msg # $kapsa(#zurna) kanalı için voice kaydı yok.(Voice verilmemiş) | halt } else { msg # #Zurna kanalın'da $kapsa(%trh) tarihinden itibaren verilen toplam voice sayısı: $kapsa($hget(voiceler,v)) msg # #zurna kanalın'da yetkili olan $kapsa($+($chr(40),$hget(nickler,0).item,$chr(41)) ) Oparetor'in voice verme istastiği(Sadece voice veren'ler sıralanır): var %1 = 1,%2 = $hget(vc,0).item | while %1 <= %2 { msg # Oparetor: $kapsa($hget(vc,%1).item) - Verdiği voice sayısı: $kapsa($iif($hget(vc,%1).data,$hget(vc,%1).data $yuzde3(vc,$hget(vc,%1).item,voiceler),0)) | inc %1 } } msg # - msg # Voice kayıtları sıralandı. } if $1 == !devoicelist { if $hget(devoiceler,v) < 1 { msg # $kapsa(#zurna) kanalı için devoice kaydı yok.(Devoice işlevi yapılmamış) | halt } else { msg # #zurna kanalın'da $kapsa(%trh) tarihinden itibaren uygulanan toplam devoice sayısı: $kapsa($hget(devoiceler,v)) msg # #zurna kanalın'da yetkili olan $kapsa($+($chr(40),$hget(nickler,0).item,$chr(41)) ) Oparetor'in devoice uygulama istastiği:(Sadece devoice veren'ler sıralanır) var %a = 1,%b = $hget(devc,0).item | while %a <= %b { msg # Oparetor: $kapsa($hget(devc,%a).item) - Uyguladığı devoice sayısı: $kapsa($iif($hget(devc,%a).data,$hget(devc,%a).dat a $yuzde3(devc,$hget(devc,%a).item,devoiceler),0)) | inc %a } } msg # - msg # Devoice kayıtları sıralandı. } if $1 == !banlist { if $hget(banlar,v) < 1 { msg # $kapsa(#Zurna) kanalı için ban kaydı bulunamadı.(Atılan ban yok) | halt } else { msg # #Zurna kanalın'da $kapsa(%trh) tarihinden itibaren atılan toplam ban sayısı: $kapsa($hget(banlar,v)) msg # #zurna kanalın'da yetkili olan $kapsa($+($chr(40),$hget(nickler,0).item,$chr(41)) ) Oparetor'in ban uygulama istastiği:(Sadece ban atanlar sıralanır) var %x = 1,%y = $hget(ban,0).item | while %x <= %y { msg # Oparetor: $kapsa($hget(ban,%x).item) - Attığı ban sayısı: $kapsa($iif($hget(ban,%x).data,$hget(ban,%x).data $yuzde3(ban,$hget(ban,%x).item,banlar),0)) | inc %x } } msg # - msg # Ban kayıtları sıralandı. } if $1 == !tsil { if !$2 { msg # Yanlış kullanım. Kullanım şekli: $kapsa(!Tsil Oparetor-nick) | halt } if !$hmatch(nickler,$2) { msg # $kapsa($2) Oparetor listesinde kayıtlı değil. | halt } if !$isfile($+(Oparetor/,$2,.,txt)) { msg # $kapsa($2) için giriş/çıkış kaydı yok. | halt } else { remove $+(Oparetor/,$2,.,txt)) | msg # $kapsa($2) Oparetor'i için, giriş/çıkış tarihleri sıfırlandı. } } if ($regex($1,/((!|\.)takipsil)/i)) { if !$2 { .msg # Yanlış kullanım. Kullanım şekli: $kapsa(!Tsil OP-nick) | halt } if !$hmatch(nickler,$2) { .msg # $kapsa($2) OPLAR listesinde kayıtlı değil. | halt } if !$isfile($+(helper/,$2,.,txt)) { .msg # $kapsa($2) için giriş/çıkış kaydı yok. | halt } else { remove $+(helper/,$2,.,txt)) | .msg # $kapsa($2) OPLAR'i için, giriş/çıkış tarihleri sıfırlandı. } } if ($regex($1,/((!|\.)takiplist)/i)) { if $hget(nickler,0).item < 1 { .msg # Takip listesinde kayıtlı OPLAR yok. | halt } else { .msg # Takip listesine kayıtlı olan toplam; [ $kapsa($hget(nickler,0).item) ] adet OPLAR sıralanıyor; | var %& = 1,%&& = $hget(nickler,0).item | while %& <= %&& { .msg # $+(%&,$chr(45)) $kapsa($hget(nickler,%&).item) Tarih: $+([,$chr(2),%trh,$chr(2),]) - Saat: $+ $time $hget(nickler,%&) | inc %& } } .msg # Takip listesindeki OPLAR kayıtları sıralandı. } if ($regex($1,/((!|\.)Takipsayısı)/i)) { .msg # Takip listesine Belirlediğiniz OP toplamı; $kapsa($hget(nickler,0).item) } if ($regex($1,/((!|\.)takipekle)/i)) { if !$2 { .msg # Yanlış kullanım. Kullanım şekli: $kapsa(!Takip OP-nick) | halt } if !$hmatch(nickler,$2) { .msg # $kapsa($2) OPLAR listesinde mevcut değil. | halt } else { .msg # $kapsa($2) OPLAR'inin $kapsa(%trh) tarihinden beri, $kapsa(#zurna) kanalına giriş/çıkış bilgileri sıralanıyor. var %1 = 1,%2 = $lines($+(helper/,$2,.,txt)) | while %1 <= %2 { .msg # $read($+(helper/,$2,.,txt),%1) | inc %1 } .msg # Bu kayıtları silmek için; $kapsa(!tsil $2) yazınız. } if $1 == !unbanlist { if $hget(unbanlar,v) < 1 { msg # $kapsa(#Zurna) kanalı için unban kaydı bulunamadı.(Açılan ban yok) | halt } else { msg # #Zurna kanalın'da $kapsa(%trh) tarihinden itibaren açılan toplam ban sayısı: $kapsa($hget(unbanlar,v)) msg # #Zurna kanalın'da yetkili olan $kapsa($+($chr(40),$hget(nickler,0).item,$chr(41)) ) Oparetor'in ban açma istastiği:(Sadece ban açanlar sıralanır) var %s = 1,%k = $hget(unban,0).item | while %s <= %k { msg # Oparetor: $kapsa($hget(unban,%s).item) - Açtığı ban sayısı: $kapsa($iif($hget(unban,%s).data,$hget(ban,%s).dat a $yuzde3(unban,$hget(unban,%s).item,unbanlar),0)) | inc %s } } msg # - msg # Unban kayıtları sıralandı. } if $1 == !sıfırla { if !$2 { msg # Yanlış kullanım. Kullanım şekli: $kapsa(!sıfırla tümü) (Tüm verileri sıfırlar) | halt } if $2 == tümü { msg # Bu işlev varnen Oparetor'ler hariç tüm kayıtları silecektir. msg # $kapsa(#Zurna) kanalı için tüm kayıtlar sıfırlansın'mı? msg # Onaylamak için: $kapsa(!Evet) - Vazgeçmek için: $kapsa(!Hayır) yazınız. } } if $1 == !Evet { msg # Tüm veriler sıfırlan'dı. | pp } if $1 == !Hayır { msg # Tüm verileri sıfırlama işlevi durduruldu. | return $false } if $1 == !istatistik { if !$2 { msg # Herhangi bir nick girilmedi. Kullanım şekli: $kapsa(!istatistik Oparetor-nick) | halt } if !$hmatch(nickler,$2) { msg # $kapsa($2) isminde Oparetor kayıtlı değil. | halt } else { msg # $kapsa($2) Oparetor'inin $kapsa(%trh) tarihinden beri kayıt edilen istatistik'leri sıralanıyor: msg # - msg # #Zurna kanalına toplam: $kapsa($+($chr(40),$iif($hget(giris,$2),$hget(giris,$2),0),$chr(41))) giriş yaptı. msg # #Zurna kanalın'dan toplam: $kapsa($+($chr(40),$iif($hget(cıkıs,$2),$hget(cıkıs,$2),0),$chr(41))) çıkış yaptı. msg # Not: $kapsa($2) Oparetor'inin hangi tarihlerde giriş/çıkış yaptığını öğrenmek için: $kapsa(!Takip $2) yazınız. msg # Verdiği voice sayısı: $kapsa($iif($hget(vc,$2),$hget(vc,$2) $yuzde3(vc,$2,voiceler),0)) msg # Aldığı voice sayısı: $kapsa($iif($hget(devc,$2),$hget(devc,$2) $yuzde3(devc,$2,devoiceler),0)) msg # Attığı ban sayısı: $kapsa($iif($hget(ban,$2),$hget(ban,$2) $yuzde3(ban,$2,banlar),0)) msg # Açtığı ban sayısı: $kapsa($iif($hget(unban,$2),$hget(unban,$2) $yuzde3(unban,$2,unbanlar),0)) msg # #Zurna kanalın'da yazdığı satır miktarı: $kapsa($iif($hget(text,$2),$hget(text,$2) $yuzde3(text,$2,ntext),0)) msg # - msg # Bilgi: $kapsa($2) Oparetor'inin tüm istatistikleri sıralandı. } } if $1 == !ekle { if !$2 { msg # Yanlış kullanım. Kullanım şekli: $kapsa(!ekle yeni-Oparetor-nick) | halt } if $hmatch(nickler,$2) { msg # $kapsa($2) Oparetor listesinde zaten mevcut. | halt } else { hadd -m nickler $2 | hsave -i nickler nickler.db | msg # $kapsa($2) eklemek istediğiniz Oparetor ; Oparetor listesine eklendi. | /msg $2 4#Zurna ve #Zurnaop 2kanallarından2 $nick 4tarafından yetkilendirildiniz.Lütfen 4/ns ajoin add #Zurnaop 2yapmayı unutmayınız.Başarılar dileriz 4#Zurnayönetimi. | /ms send Prometheus $2 nicki $nick tarafından #Zurna ve #Zurnaop kanallarında eklendi | /cs access #Zurna add $2 2 | /cs access #Zurnaop add $2 1 } } if $1 == !Kurallar { msg # $+($chr(31),3#Zurna4 Kanalının Genel Kuralları,$chr(31),:) msg # - msg # 1- Zurna kanalında 20 dakkaya bir badnick taraması yapılacak taramayı yapan arkadaşlar op kanalı (#Zurnaop) !Temiz .temiz rapor verecek.. msg # 2- Kanala Giriş ve Çıkışlar takip edilecek badnick ler atılcak.. msg # 3- Away olan arkdaşlar #Zurnaop kanalına away yazarak deop olcaklar.. msg # 4- Büyük harfle yazıyazanlar 2 kere uyarıldıktan sonra devam ederlerse konuşması alınacak ban atılmıycak.. msg # 5- Kanalda la, lan, ulan, lun, birkez uyarı verilecek.Uyarı dikkate alınmazsa atılacaktır. msg # 6- Olgun Evli, dul, evde tek,Türbanlıkız , türbanlı , kapalıkız ,kapalı-kadın nickleri bad degildir. arkdaşlar kanalımızdan cinsel takı olmayan nickler atılmasın. msg # 7- Kanala saldırı oluyorsa ve durduramıyacanız bir şekilde ise bir süreligine 4Kanalı +M moduna ala bilirsiniz. msg # 8- Ban listesi doldugunda alltan 10 ar 10 ar açılacaktır. } if $1 == !sil { if !$2 { msg # Yanlış kullanım. Kullanım şekli: $kapsa(!sil Opareto r-nick) | halt } if !$hmatch(nickler,$2) { msg # $kapsa($2) Oparetor listesinde zaten mevcut değil. | halt } else { sil $2 | msg # $kapsa($2) Oparetor listesinden tüm kayıtları ile beraber silindi. |/msg $2 4#Zurna ve #zurnaop 2kanallarından2 $nick 4tarafından yetkileriniz silinmiştir.Lütfen 4/ns ajoin del #zurnaop 2yapmayı unutmayınız çalışmalarınız için tşk eder.Hoş sohbetler dileriz 4#Zurnayönetimi. | /cs access #Zurna del $2 | /cs access #zurnaop del $2 } } } }

arkadaşlar bu kod çalışıyordu ama şimdi ise !durum komutlar çalışıyor gerisi çalışmıyor yardımçı olursanız sevinirim

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları eglen sohbet reklamver
Alt 12 Temmuz 2013, 22:22   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: kod düzetme




nasıl bir hata veriyor !durum dediğinde herhangi bir hata mesajı alıyormusun ?

 
Alıntı ile Cevapla

Alt 12 Temmuz 2013, 22:26   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: kod düzetme




!durum çalışıyor !komutlarda çalışıyor onun aşagı kısmından itibaren çalışmıyor hata da vermiyor

 
Alıntı ile Cevapla

Alt 12 Temmuz 2013, 22:29   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: kod düzetme




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias yuzde { return $+($chr(40),%,$left($calc($hget($1,v) * 100 / $hget($2,v)),4),$chr(41)) } alias yuzde2 { return $+($chr(40),%,$calc($left(100.000000,4) - $remove($yuzde($1,$2),$chr(41),$chr(40),%)),$chr(41)) } alias yuzde3 { return $+($chr(40),%,$left($calc($hget($1,$2) * 100 / $hget($3,v)),4),$chr(41)) } alias ll { return $calc($hget($1,v)-$hget($2,v)) } alias kapsa { return $+($chr(2),$1-,$chr(2)) } alias kontrol { if $count($nick($1,$2).pnick,@,~,%,&) != 0 { hadd -m nickler $2 1 | hsave -i nickler nickler.db | hinc -m giris $2 1 | hsave -i giris giris.db | hinc -m ygiris v 1 | hsave -i ygiris ygiris.db | write $+(helper/,$2,.,txt) $+(=>,$chr(40),$chr(2),$chr(31),Giriş,$chr(31),$chr(2),$chr(41),$chr(32),$chr(40),$chr(2),$date,$chr(2),$chr(41)) Gün: $gun($+($chr(2),$day,$chr(2))) - Saat: $+($chr(2),$time,$chr(2)) } | else { helperler #helpers #helpers | msg #helpers 4#Help 1KanaLına Giriş YapıLdı4. 2Nick4:1 $+($chr(2),$2,$chr(2)) | notice $2 Merhaba  $+ $2 $+  , 4IRCd1/4SVS1 Destek KanaLına HoşgeLdiniz4. | notice $2 1KanaLda size 4Yardım1 edecek herhangi bir4 HeLper1 yoksa ; özelime4 !yardım 1yazarak Destek ALabiLirsiniz4. | notice $2 4[Helpdesk] 1Hakkında4 BiLgi1 için ; özeLime4 !bilgi1 yazınız. } } alias gun { return $replace($1,Monday,Pazartesi,Tuesday,Salı,Wednesday,Çarşamba,Thursday,Perşembe,Friday,Cuma,Saturday,Cumartesi,Sunday,Pazar) } alias pp { var %& = $numtok($findfile($mircdir,*.db,1),92) | var %j = 1, %k = $findfile($mircdir,*.db,0) | while %j <= %k { if $gettok($findfile($mircdir,*.db,%j),%&,92) != nickler.db { echo -a $gettok($findfile($mircdir,*.db,%j),%&,92) } | inc %j } | hfree -w * | unset %trh | hsil } alias helperler { if $1 { var %1 = 1,%2 = $nick($1,0),%3 | while %1 <= %2 { if $nick($1,%1) != $me { %3 = $addtok(%3,$nick($1,%1),32) } | inc %1 } } msg $2 %3 } alias hsil { var %s = $numtok($findfile(helper,*.txt,1),92) | var %1 = 1,%2 = $findfile(helper,*.txt,0) | while %1 <= %2 { remove $gettok($findfile(helper,*.txt,%1),%s,92) | inc %1 } } alias sil { hdec voiceler v $hget(vc,$1) | hdec banlar v $hget(ban,$1) | hdec unbanlar v $hget(unban,$1) | hdec ytext v $hget(text,$1) hdec ygiris v $hget(giris,$1) | hdec ycıkıs v $hget(cıkıs,$1) | hdec devoiceler v $hget(devc,$1) hdel nickler $1 | hsave -i nickler nickler.db | hdel giris $1 | hsave -i giris giris.db | hdel cıkıs $1 | hsave -i cıkıs cıkıs.db | hdel vc $1 | hsave -i vc vc.db hdel devc $1 | hsave -i devc devc.db | hdel ban $1 | hsave -i ban ban.db | hdel unban $1 | hsave -i unban unban.db | hdel text $1 | hsave -i text text.db } on *:start: { if !%trh { set %trh $date } if $isfile(nickler.db) { hmake nickler 100 | hload -i nickler nickler.db } | else { hmake nickler 100 | hsave -i nickler nickler.db } if $isfile(giris.db) { hmake giris 100 | hload -i giris giris.db } | else { hmake giris 100 | hsave -i giris giris.db } if $isfile(cıkıs.db) { hmake cıkıs 100 | hload -i cıkıs cıkıs.db } | else { hmake cıkıs 100 | hsave -i cıkıs cıkıs.db } if $isfile(voiceler.db) { hmake voiceler 100 | hload -i voiceler voiceler.db } | else { hmake voiceler 100 | hsave -i voiceler voiceler.db } if $isfile(devoiceler.db) { hmake devoiceler 100 | hload -i devoiceler devoiceler.db } | else { hmake devoiceler 100 | hsave -i devoiceler devoiceler.db } if $isfile(vc.db) { hmake vc 100 | hload -i vc vc.db } | else { hmake vc 100 | hsave -i vc vc.db } if $isfile(devc.db) { hmake devc 100 | hload -i devc devc.db } | else { hmake devc 100 | hsave -i devc devc.db } if $isfile(banlar.db) { hmake banlar 100 | hload -i banlar banlar.db } | else { hmake banlar 100 | hsave -i banlar banlar.db } if $isfile(ban.db) { hmake ban 100 | hload -i ban ban.db } | else { hmake ban 100 | hsave -i ban ban.db } if $isfile(unbanlar.db) { hmake unbanlar 100 | hload -i unbanlar unbanlar.db } | else { hmake unbanlar 100 | hsave -i unbanlar unbanlar.db } if $isfile(unban.db) { hmake unban 100 | hload -i unban unban.db } | else { hmake unban 100 | hsave -i unban ban.db } if $isfile(text.db) { hmake text 100 | hload -i text text.db } | else { hmake text 100 | hsave -i text text.db } if $isfile(normalg.db) { hmake normalg 100 | hload -i normalg normalg.db } | else { hmake normalg 100 | hsave -i normalg normalg.db } if $isfile(normalc.db) { hmake normalc 100 | hload -i normalc normalc.db } | else { hmake normalc 100 | hsave -i normalc normalc.db } if $isfile(ntext.db) { hmake ntext 100 | hload -i ntext ntext.db } | else { hmake ntext 100 | hsave -i ntext ntext.db } if $isfile(ytext.db) { hmake ytext 100 | hload -i ytext ytext.db } | else { hmake ytext 100 | hsave -i ytext ytext.db } if $isfile(ycıkıs.db) { hmake ycıkıs 100 | hload -i ycıkıs ycıkıs.db } | else { hmake ycıkıs 100 | hsave -i ycıkıs ycıkıs.db } if $isfile(ygiris.db) { hmake ygiris 100 | hload -i ygiris ygiris.db } | else { hmake ygiris 100 | hsave -i ygiris ygiris.db } } on *:op:#HELP: { if !$hmatch(nickler,$opnick) { hadd -m nickler $opnick 1 | hsave -i nickler nickler.db } } on *:join:#HELP: { hinc -m normalg v 1 | hsave -i normalg normalg.db | .timer 1 1 kontrol # $nick } on *:part:#HELP: { hinc -m normalc v 1 | hsave -i normalc normalc.db | if $hmatch(nickler,$nick) { hinc -m ycıkıs v 1 | hsave -i ycıkıs ycıkıs.db | hinc -m cıkıs $nick 1 | hsave -i cıkıs cıkıs.db | write $+(helper/,$nick,.,txt) $+(=>,$chr(40),$chr(2),$chr(31),Çıkış,$chr(31),$chr(2),$chr(41),$chr(32),$chr(40),$chr(2),$date,$chr(2),$chr(41)) Gün: $gun($+($chr(2),$day,$chr(2))) - Saat: $+($chr(2),$time,$chr(2)) } } on *:voice:#HELP: { if $hmatch(nickler,$nick) { hinc -m voiceler v 1 | hsave -i voiceler voiceler.db | hinc -m vc $nick 1 | hsave -i vc vc.db } } on *:devoice:#HELP: { if $hmatch(nickler,$nick) { hinc -m devoiceler v 1 | hsave -i devoiceler devoiceler.db | hinc -m devc $nick 1 | hsave -i devc devc.db } } on *:ban:#HELP: { if $hmatch(nickler,$nick) { hinc -m banlar v 1 | hsave -i banlar banlar.db | hinc -m ban $nick 1 | hsave -i ban ban.db } } on *:unban:#HELP: { if $hmatch(nickler,$nick) { hinc -m unbanlar v 1 | hsave -i unbanlar unbanlar.db | hinc -m unban $nick 1 | hsave -i unban unban.db } } on *:text:*:#HELP: { hinc -m ntext v 1 | hsave -i ntext ntext.db | if $hmatch(nickler,$nick) { hinc -m ytext v 1 | hsave -i ytext ytext.db | hinc -m text $nick 1 | hsave -i text text.db } } on 8740:text:*:%helpers: { if $1 == !durum { msg # $+([,$chr(2),%trh,$chr(2),]) 1Tarihinden beri kayıt'da oLan4 $+($chr(2),#help,$chr(2)) 1KanaLı istatistik'leri SıraLanıyor4: msg # - msg # TopLam KuLLanıcı4 Girişi1 istatistikLeri4:1 $+($chr(40),$iif($hget(normalg,v),$hget(normalg,v),0),$chr(41)) msg # - Giriş4 BiLgisi4:1 $iif($hget(normalg,v),Yetkili girişi4:1 $iif($hget(ygiris,v),$hget(ygiris,v),0) $yuzde(ygiris,normalg) - Yetkisiz girişi4:1 $ll(normalg,ygiris) $yuzde2(ygiris,normalg),Toplam4: 0 (%100)) msg # Toplam kullanıcı4 Çıkışı1 istatistikleri4:1 $+($chr(40),$iif($hget(normalc,v),$hget(normalc,v),0),$chr(41)) msg # - Çıkış4 BiLgisi4:1 $iif($hget(normalc,v),Yetkili çıkışı4:1 $iif($hget(ycıkıs,v),$hget(ycıkıs,v),0) $yuzde(ycıkıs,normalc) - Yetkisiz çıkışı4:1 $ll(normalc,ycıkıs) $yuzde2(ycıkıs,normalc), Toplam4: 0 (%100)) msg # TopLam VeriLen4 Voice4:1 $+($chr(40),$iif($hget(voiceler,v),$hget(voiceler,v),0),$chr(41)) msg # TopLam aLınan4 Voice4:1 $+($chr(40),$iif($hget(devoiceler,v),$hget(devoiceler,v),0),$chr(41)) msg # TopLam atıLan4 Ban Sayısı4:1 $+($chr(40),$iif($hget(banlar,v),$hget(banlar,v),0),$chr(41)) msg # TopLam açıLan4 Ban Sayısı4:1 $+($chr(40),$iif($hget(unbanlar,v),$hget(unbanlar,v),0),$chr(41)) msg # TopLam yazıLan4 Satır Sayısı4:1 $+($chr(40),$iif($hget(ntext,v),$hget(ntext,v),0),$chr(41)) msg # - Satır4 BiLgisi4:1 $iif($hget(ntext,v),YetkiLi Yazısı: $iif($hget(ytext,v),$hget(ytext,v),0) $yuzde(ytext,ntext) - Yetkisiz Yazısı: $ll(ntext,ytext) $yuzde2(ytext,ntext),Toplam: 0 (%100)) msg # - msg # $+($chr(2),$nick,$chr(2)) 1KuLLanabiLeceğiniz4 KomutLar1 Listesini Görmek iÇin: $+($chr(2),4!Komutlar1,$chr(2)) Yazınız. } if $1 == !komutlar { msg # $+($chr(31),4GeneL 1KomutLar,$chr(31),:) msg # - msg # 1!VoiceList $kapsa((4#Help 1KanaLında kayıt gününden beri veriLen tüm4 Voice'Leri1 sıraLar4)) msg # 1!DevoiceList $kapsa((4#Help 1KanaLında kayıt gününden beri aLınan tüm4 Voice'Leri1 sıraLar4)) msg # 1!BanList $kapsa((4#Help 1KanaLında kayıt tarihinden beri atıLan tüm4 Ban`Ları1 sıraLar4)) msg # 1!unbanlist $kapsa((4#Help 1KanaLında kayıt tarihinden beri açıLan tüm4 Ban`Ları1 sıraLar4)) msg # 1!HeLperLer $kapsa((4#Help 1KanaLında takip Listesinde oLan tüm4 HeLper'Ları1 sıraLar4)) msg # 1!SıfırLa tümü $kapsa((4#Help 1KanaLı iÇin varoLan tüm4 KayıtLarı1 sıfır'Lar4)) msg # - msg # $+($chr(31),4KişiseL 1KomutLar,$chr(31),:) msg # - msg # 1!EkLe 4Nick $kapsa((1Takip Listesine HeLper EkLemek iÇin KuLLanıLır4)) msg # 1!SiL 4Nick $kapsa((1Takip Listesinde ekLi oLan bir HeLper'i siLer4)) msg # 1!istatistik 4Nick $kapsa((1Takip Listesinde kayıtLı oLan HeLper hakkında AyrıntıLı BiLgiLer Verir4)) msg # 1!Takip 4Nick $kapsa((1Takip Listesinde kayıtLı oLan HeLper'in, hangi tarihlerde4 giriş1/4çıkış1 Yaptığını Gösterir4)) msg # 1!TsiL 4Nick $kapsa((1Takip Listesinde kayıtLı oLan HeLper'in,4 giriş1/4çıkış1 Tarihlerini Sıfır'Lar4)) msg # 1!SopEkLe 4Nick $kapsa((1Botun KomutLar böLümünü KuLLanabiLen4 HeLper1-4Nick1 BöLümünü düzenLer4.))4 -1 Sadece Bota Oper oLarak EkLenenLer KuLLanabiLir. msg # 1!SopSiL 4Nick $kapsa((1BeLirtiLen4 HeLper1-4Nicki1 Botun Soperator BöLümünden siLer.4))4 -1 Sadece Bota Oper oLarak EkLenenLer KuLLanabiLir. msg # 1!SopList $kapsa((1Botun KomutLar BöLümünü KuLLanabiLen4 HeLper1-4NickLeri1 ListeLer.))4 -1 Sadece Bota Oper oLarak EkLenenLer KuLLanabiLir. msg # 1!ManagerEkLe 4Nick $kapsa((1BeLirtiLen4 HeLper1-4Nickin1 Bota Oper oLarak EkLenmesini sagLar4.))4 -1 Sadece4 HelpFounder 1KuLLanabiLir. msg # 1!ManagerSiL 4Nick $kapsa((1BeLirtiLen4 HeLper1-4Nickin1 Bota EkLeniLen Operinin SiLinmesini sagLar4.))4 -1 Sadece4 HelpFounder 1KuLLanabiLir. msg # 1!ManagerList $kapsa((1Bota EkLi Master4 HeLper1-4NickLerin Listelenmesini sagLar4.))4 -1 Sadece4 HelpFounder 1KuLLanabiLir. msg # - msg # $+($chr(31),4Bot 1KomutLarı,$chr(31),:) msg # - msg # 1!çık 4#kanal $kapsa((1Botun BeLirtiLen KanaLdan Çıkmasını sagLar4.)) msg # 1!gir 4#kanal $kapsa((1Botun BeLirtiLen KanaLa Girmesini sagLar4.)) msg # 1!partall $kapsa((1Botun Bütün KanaLLardan Çıkıp4 #HeLp , HeLp1 Operator ve4 Eğitim1 KanaLına Girmesini sağLar4.)) msg # 1!restart $kapsa((1Botun Kendine Restart Atması4 -1 Sunucudan Çıkıp Tekrar BagLanmasını sagLar4.)) msg # 4#HeLp 1KanaLındaki KuLLanıcıLar iLe iLgiLi KuLLanabiLeceğiniz 4KomutLarı1 Görmek iÇin4 ;4 özeLime !Yardım user 1Yazınız. msg # 4GeneL1 oLarak KuLLanıLan 4KomutLarı1 Görmek iÇin4 ;4 özeLime !Yardım List 1Yazınız. msg # 4- msg # 4Tüm 1KomutLar SıraLandı4. } if $1 == !helperler { if $hget(nickler,0).item < 1 { msg # 1KayıtLı4 HeLper1 Mevcut DeğiL4. HeLper1 EkLemek iÇin; $kapsa(4!EkLe Nick) 1Yazınız. | halt } else { msg # 1KayıtLı oLan TopLam4;1 $kapsa($hget(nickler,0).item) 1HeLper SıraLanıyor4.1 | var %& = 1,%&& = $hget(nickler,0).item | while %& <= %&& { msg # $+(%&,$chr(45)) $kapsa($hget(nickler,%&).item) | inc %& } } msg # 4KayıtLar 1Sıralandı4. msg # 1Herhangi bir 4HeLper1 Hakkında detayLı biLgi aLmak iÇin4;1 $kapsa(4!istatistik Nick) 1Yazınız. } if $1 == !voicelist { if $hget(voiceler,v) < 1 { msg # $kapsa(#Help) KanaLı için Voice kaydı yok4.(Voice VeriLmemiş) | halt } else { msg # 4#Help1 KanaLın'da $kapsa(%trh) Tarihinden itibaren VeriLen TopLam Voice Sayısı4: $kapsa($hget(voiceler,v)) msg # 4#HeLp1 KanaLın'da YetkiLi oLan4 $kapsa($+($chr(40),$hget(nickler,0).item,$chr(41))) 1HeLper'in Voice Verme istastiği1(Sadece4 Voice1 Veren'Ler SıraLanır): var %1 = 1,%2 = $hget(vc,0).item | while %1 <= %2 { msg # HeLper: $kapsa($hget(vc,%1).item) - 1Verdiği Voice Sayısı4: $kapsa($iif($hget(vc,%1).data,$hget(vc,%1).data $yuzde3(vc,$hget(vc,%1).item,voiceler),0)) | inc %1 } } msg # - msg # 4Voice 1KayıtLarı SıraLandı4. } if $1 == !devoicelist { if $hget(devoiceler,v) < 1 { msg # $kapsa(#Help) 1KanaLı iÇin Devoice Kaydı Yok4.(Devoice işLevi yapıLmamış) | halt } else { msg # 4#HeLp1 KanaLın'da $kapsa(%trh) Tarihinden itibaren uyguLanan TopLam Devoice sayısı4: $kapsa($hget(devoiceler,v)) msg # 4#HeLp1 KanaLın'da YetkiLi oLan $kapsa($+($chr(40),$hget(nickler,0).item,$chr(41))) HeLper'in Devoice uyguLama istastiği4:(Sadece4 Devoice veren'Ler sıraLanır) var %a = 1,%b = $hget(devc,0).item | while %a <= %b { msg # HeLper: $kapsa($hget(devc,%a).item) - UyguLadığı Devoice Sayısı4: $kapsa($iif($hget(devc,%a).data,$hget(devc,%a).data $yuzde3(devc,$hget(devc,%a).item,devoiceler),0)) | inc %a } } msg # - msg # 4Devoice 1Kayıtları sıralandı4. } if $1 == !banlist { if $hget(banlar,v) < 1 { msg # $kapsa(#Help) kanalı için ban kaydı bulunamadı.(Atılan ban yok) | halt } else { msg # 4#Help1 kanalın'da $kapsa(%trh) tarihinden itibaren atılan toplam ban sayısı: $kapsa($hget(banlar,v)) msg # 4#Help1 kanalın'da yetkili olan $kapsa($+($chr(40),$hget(nickler,0).item,$chr(41))) helper'in ban uygulama istastiği:(1Sadece4 Ban1 atanlar sıralanır) var %x = 1,%y = $hget(ban,0).item | while %x <= %y { msg # Helper: $kapsa($hget(ban,%x).item) - Attığı ban sayısı: $kapsa($iif($hget(ban,%x).data,$hget(ban,%x).data $yuzde3(ban,$hget(ban,%x).item,banlar),0)) | inc %x } } msg # - msg # 4Ban 1kayıtları sıralandı4. } if $1 == !unbanlist { if $hget(unbanlar,v) < 1 { msg # $kapsa(#Help) kanalı için unban kaydı bulunamadı4.(Açılan ban yok) | halt } else { msg # 4#Help1 kanalın'da $kapsa(%trh) tarihinden itibaren açılan toplam ban sayısı: $kapsa($hget(unbanlar,v)) msg # 4#Help1 KanaLın'da yetkiLi oLan $kapsa($+($chr(40),$hget(nickler,0).item,$chr(41))) HeLper'in Ban açma istastiği4:(Sadece4 Ban açanLar sıraLanır) var %s = 1,%k = $hget(unban,0).item | while %s <= %k { msg # Helper: $kapsa($hget(unban,%s).item) - Açtığı ban sayısı4: $kapsa($iif($hget(unban,%s).data,$hget(ban,%s).data $yuzde3(unban,$hget(unban,%s).item,unbanlar),0)) | inc %s } } msg # - msg # 4Unban 1KayıtLarı SıraLandı4. } if $1 == !sıfırla { if !$2 { msg # 1YanLış KuLLanım4.1 Kullanım şekLi: $kapsa(4!SıfırLa Tümü1)1 (Tüm veriLeri SıfırLar) | halt } if $2 == tümü { msg # Bu işLev EkLenen HeLper'Ler Hariç Tüm KayıtLarı SiLecektir. msg # $kapsa(#Help) KanaLı iÇin Tüm KayıtLar SıfırLansın'mı4? msg # OnayLamak iÇin: $kapsa(4!Evet) -1 Vazgeçmek iÇin4: $kapsa(4!Hayır)1 yazınız. } } if $1 == !Evet { msg # 1Tüm veriLer SıfırLan'dı. | pp } if $1 == !Hayır { msg # 1Tüm veriLeri SıfırLama işLevi DurduruLdu. | return $false } if $1 == !istatistik { if !$2 { msg # Herhangi bir Nick GiriLmedi. KuLLanım şekLi4: $kapsa(4!istatistik Nick) | halt } if !$hmatch(nickler,$2) { msg # $kapsa($2) isminde HeLper kayıtLı değiL. | halt } else { msg # $kapsa($2) HeLper'inin $kapsa(%trh) Tarihinden beri Kayıt ediLen istatistik'leri SıraLanıyor: msg # - msg # 1#Help KanaLına TopLam4: $kapsa($+($chr(40),$iif($hget(giris,$2),$hget(giris,$2),0),$chr(41))) 1Giriş yaptı. msg # 1#Help KanaLın'dan TopLam4: $kapsa($+($chr(40),$iif($hget(cıkıs,$2),$hget(cıkıs,$2),0),$chr(41))) 1Çıkış yaptı. msg # 4Not: $kapsa($2) 1HeLper'inin Hangi TarihLerde4 giriş1/4çıkış1 yaptığını öğrenmek için4: $kapsa(!Takip $2) 1yazınız. msg # 1Verdiği Voice Sayısı4: $kapsa($iif($hget(vc,$2),$hget(vc,$2) $yuzde3(vc,$2,voiceler),0)) msg # 1Aldığı Voice Sayısı4: $kapsa($iif($hget(devc,$2),$hget(devc,$2) $yuzde3(devc,$2,devoiceler),0)) msg # 1Attığı Ban Sayısı4: $kapsa($iif($hget(ban,$2),$hget(ban,$2) $yuzde3(ban,$2,banlar),0)) msg # 1Açtığı Ban Sayısı4: $kapsa($iif($hget(unban,$2),$hget(unban,$2) $yuzde3(unban,$2,unbanlar),0)) msg # 1#Help Kanalın'da Yazdığı Satır Miktarı4: $kapsa($iif($hget(text,$2),$hget(text,$2) $yuzde3(text,$2,ntext),0)) msg # 4- msg # 1BiLgi4: $kapsa($2) 4HeLper'inin 1Tüm istatistikLeri SıraLandı. } } if $1 == !Takip { if !$2 { msg # YanLış kuLLanım. KuLLanım şekLi4: $kapsa(4!Takip Nick) | halt } if !$hmatch(nickler,$2) { msg # $kapsa($2) HeLper Listesinde mevcut değiL. | halt } else { msg # $kapsa($2) 1HeLper'inin $kapsa(%trh) Tarihinden Beri, $kapsa(#help) KanaLına 4giriş1/4çıkış1 biLgiLeri SıraLanıyor. var %1 = 1,%2 = $lines($+(helper/,$2,.,txt)) | while %1 <= %2 { msg # $read($+(helper/,$2,.,txt),%1) | inc %1 } msg # Bu KayıtLarı siLmek için; $kapsa(!tsil $2) yazınız. } } if $1 == !tsil { if !$2 { msg # Yanlış kullanım. Kullanım şekli: $kapsa(!Tsil helper-nick) | halt } if !$hmatch(nickler,$2) { msg # $kapsa($2) helper listesinde kayıtlı değil. | halt } if !$isfile($+(helper/,$2,.,txt)) { msg # $kapsa($2) için giriş/çıkış kaydı yok. | halt } else { remove $+(helper/,$2,.,txt)) | msg # $kapsa($2) helper'i için, giriş/çıkış tarihleri sıfırlandı. } } if $1 == !ekle { if !$2 { msg # YanLış KuLLanım. KuLLanım şekLi4: $kapsa(4!EkLe Nick) | halt } if $hmatch(nickler,$2) { msg # $kapsa($2) 1HeLper 2Listesinde1 Zaten Mevcut. | halt } else { hadd -m nickler $2 | hsave -i nickler nickler.db | .timer 1 2 .msg # [ $+ $nick $+ ] - 1HeLper Listesi DüzenLeme PaneLi | .timer 1 3 .msg # [ $+ $nick $+ ] - $kapsa($2) 1HeLper Listesine EkLendi. | .timer 1 4 .msg # [ $+ Mesaj $+ ] $kapsa($2) 1Nickine4 Memo Mesaj1 gönderilmiştir. | .timer 1.5 .ms send $2 Sayın $2 , nickiniz Help Departmanı'ndan $nick tarafından Help Team kadrosuna eklenilmiştir. #help ve %helpers kanallarına giriş yapabilirsiniz. } } if $1 == !sil { if !$2 { msg # YanLış KuLLanım. KuLLanım şekLi4: $kapsa(4!SiL Nick) | halt } if !$hmatch(nickler,$2) { msg # $kapsa($2) 1HeLper 2Listesinde1 Zaten Mevcut değiL. | halt } else { sil $2 | .timer 1 2 .msg # [ $+ $nick $+ ] - 1HeLper Listesi DüzenLeme PaneLi | .timer 1 3 .msg # [ $+ $nick $+ ] - $kapsa($2) 1HeLper 4Listesinden1 SiLindi. | .timer 1 4 .msg # [ $+ Mesaj $+ ] $kapsa($2) 1Nickine4 Memo Mesaj1 GönderiLmiştir. | .timer 1.5 .ms send $2 Sayın $2 , nickinizin Help Departmanı'ndaki kaydı iptal edilmiştir. İyi günler dileriz.. } } if $1 == !çık { if !$2 { msg # 1Yanlış kullanım. Kullanım şekli: $kapsa(4!çık #kanal) | halt } elseif $me ison $2 { part $2 | msg %helpers 4 $2 1KanaLından Çıktım. } else { msg %helpers 2 $2 4kanalında1 zaten yokum. } } if $1 == !gir { if !$2 { msg # 1Yanlış kullanım. Kullanım şekli: $kapsa(4!gir #kanal) | halt } elseif $me ison $2 { msg %helpers 4 $2 1KanaLında zaten bulunuyorum. | halt } else { join $2 | msg %helpers 2 $2 1KanaLına Girdim. } } if $1 == !partall { /partall /timer 1 4 /join #help,#helpers,#helpegitim } if $1 == !restart { .msg # 4Restart - 2Sunucudan ÇıkıLıyor4.. .server %server .timer 1 3 | .nick %botnick .timer 1 5 | .nickserv identify %botpass .timer 1 7 | .nick %botnick .timer 1 9 | .nickserv identify %botpass .timer 1 11 | oper %botonick %botopass .timer 1 13 | .partall .timer 1 15 | .join #help .timer 1 18 | .join %helpers .timer 1 21 | .join %eğitim .timer 1 25 | .sethost sunucun.com .timer 1 30 | .set %server $server } }

kodun orjinal hali budur dilersen #help kanalını #zurna olarak değiştirip kullanabilirsin.. vakit bulursam paylaştıgın koda bakabılırım.

 
Alıntı ile Cevapla

Alt 12 Temmuz 2013, 22:39   #5
Çevrimdışı
KuL
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: kod düzetme




@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Kodunuzda gördüm onun icin diyorum. Ütde Arkadas zaten Kodu paylasmis o yüzden tekrar bakmak isdemedim.

Ama sunu söylemek isdedim, Kodunuzda Sira ve Yerler yanlis yani her if in acilis ve kapanisi olmasi lazim bunlara dikkat etmelisiniz

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
if ....... { msg .... }



yani eger cok olursa örnek

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
if $1 == !durum { msg # mesaj msg # mesaj } if $1 == !olay { msg # mesaj msg #mesaj }

yani if ler ayni sirada olucak, kayamaz

yani

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
if $1 == !durum { msg # mesaj msg # mesaj } if $1 == !olay { msg # mesaj msg #mesaj } }

BÖYLE OLAMAZ. Bunlara dikkat etmeniz gerekiyor.

Eger kayarsa bu Kodun alt Kisminin calismamasi anlamina gelebilir

 
Alıntı ile Cevapla

Alt 12 Temmuz 2013, 22:56   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: kod düzetme




[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] un da dediği gibi sadece ayraç hatasından dolayı alt sıradakı kod işlevini görmüyor
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
msg # Bilgi: $kapsa($2) Oparetor'inin tüm istatistikleri sıralandı. } }

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
msg # Onaylamak için: $kapsa(!Evet) - Vazgeçmek için: $kapsa(!Hayır) yazınız. } }

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
msg # Unban kayıtları sıralandı. } }

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
.msg # Bu kayıtları silmek için; $kapsa(!tsil $2) yazınız. } }

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
buraları düzenlersen sorunsuz calısacaktır


 
Alıntı ile Cevapla

Cevapla

Etiketler
düzetme, kod


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
komut düzetme Zalimsin mIRC Scripting Sorunları 6 17 Ağustos 2012 20:14