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

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ı sohbet odaları Benimmekan Mobil Sohbet
Alt 12 Temmuz 2013, 22:22   #2
Çevrimiçi
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
Çevrimiçi
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
Çevrimiçi
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)
 
Seçenekler
Stil

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