12 Eylül 2008, 21:34 | #1 | |
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0) | kim kaç ban atmıs ? Merhaba Tekrar Benim şöyle bir irstegim olucak Belirttigim Nickler hangi kanalda vericegim komutu yazarsa yazsın o kanalda hangi op kac ban atmıs onu söylicek hani helpsoplar !voices yazıyorda kimin kac voice attıgı cıkıyorya aynen öyle olucak Komut !ban #kanal Böyle bisey yapabilirmiyiz. Bir nevi Ban sayıcı olucak kimin kaç ban attıgını okuycak bulundugum bütün kanallarda. şimdiden teşekkür | |
|
12 Eylül 2008, 22:56 | #2 |
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0) | Cevap: kim kaç ban atmıs ? Kanal Takip od'un amacını açıklamak istiyorum; Bir kanal'ı takibe aldınız diyelim? Bu kod bu kanal'da neleri takip eder? 1- Kanal'da voice/halfop/op veren veya alanları.(Tarihleri dahil) 2- Kanal'da ban atan/atılan veya banı açan/açılan'ları.(Tarihleri dahil) 3- Kanal'da atılan ban sayısını. 4- Kanal'a giren kullanıcı sayısını. 5- Kanal'dan çıkan kullanıcı sayısını. 6- Kanal'da bulunupta IRC'den çıkan sayısını. 7- Kanal'a kaç satır text gönderdildiğini. 8- Kanal'da kimin ne zaman nick değiştiğini.(Tarihleri dahil) 9- Kanal'da ne zaman kim tarafından mod değiştirildiğini.(Tarihleri dahil) Ek özellikler; /kns #kanalismi yazarak kanal'da kimin kaç satır yazı yazdığını, /nik #kanalismi yazarak kanal'da kimin ne zaman nick değiştiğini ve yeni nick'ini, /unbn #kanalismi yazarak kanal'da kim tarafından ne zaman ban açıldığını, /bn #kanalismi yazarak kanal'da kim tarafından, ne zaman ban atıldığını, /md #kanalismi yazarak kanal'da kimin, ne zaman, hangi modu, değiştirdiğini, /yetki #kanalismi yazarak kimin kime ne yetki verdiği, tarihleri ile beraber öğrenebilirsiniz. /sıfırla yazarak tüm kayıtları sıfırlıyabilirsiniz. umarım işine yarar kolay gelsin [code]alias takip { if !$1 { echo -at Takip listesine alınacak kanal'ı girmediniz. Kullanım şekli; $+($chr(2),/takip #kanalismi,$chr(2)) | halt } if $hget($1) { echo -at $+($chr(2),$1,$chr(2)) kanal'ı zaten takip listesinde. | halt } if $me !ison $1 { echo -at $+($chr(2),$1,$chr(2)) kanalında bulunmuyorsunuz. | halt } else { hmake $1 100 | echo -at $+($chr(2),$1,$chr(2)) kanal'ı takip listesine eklendi. } } on *:quit: { var %1 = 1,%2 = $comchan($me,0) | while %1 <= %2 { if $hget($comchan($me,%1)) { hinc $v1 $+(ayr,½,$v1) 1 } | inc %1 } } on *:nick: { var %= 1,%& = $comchan($me,0) | while %= <= %& { if $hget($comchan($me,% Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. ) { var %o = $v1 | hinc $v1 $+(nck,½,$v1) 1 | ekle $+(%o,nick,.txt) | write $+(%o,nick,.txt) Tarih: $+($chr(2),$date - $time,$chr(2)) Nick: $+($chr(2),$nick,$chr(2)) - Yeni nick: $+($chr(2),$newnick) } | inc %= } } on !*:join:#: { if $hget(#) { hinc # $+(grs,½,#) 1 } } on *:part:#: { if $hget(#) { hinc # $+(cks,½,#) 1 } } on *:text:*:#: { if $hget(#) { hinc # $+(yz,½,#) 1 | hinc -m $+(yazı,#) $nick 1 } } on * Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. #: { if $hget(#) { hinc # $+(ban,½,#) 1 | ekle $+(#,ban,.txt) | write $+(#,ban,.txt) Tarih: $+($chr(2),$date - $time,$chr(2)) Banlıyan: $+($chr(2),$nick,$chr(2)) - Banlanan: $+($chr(2),$banmask,$chr(2)) } } on *:unban:#: { if $hget(#) { hinc # $+(unbn,½,#) 1 | ekle $+(#,unban,.txt) | write $+(#,unban,.txt) Tarih: $+($chr(2),$date - $time,$chr(2)) Ban açan: $+($chr(2),$nick,$chr(2)) - Banı açılan: $+($chr(2),$banmask) } } on *:voice:#: { if $hget(#) { hinc # $+(yetki,½,#) 1 | hinc # $+(vc,½,#) 1 | ekle $+(#,yetkiler,.txt) | write $+(#,yetkiler,.txt) Tarih: $+($chr(2),$date - $time,$chr(2)) Voice veren: $+($chr(2),$nick,$chr(2)) - Voice olan: $+($chr(2),$vnick,$chr(2)) } } on *:op:#: { if $hget(#) { hinc # $+(yetki,½,#) 1 | hinc # $+(op,½,#) 1 | ekle $+(#,yetkiler,.txt) | write $+(#,yetkiler,.txt) Tarih: $+($chr(2),$date - $time,$chr(2)) Op'u veren: $+($chr(2),$nick,$chr(2)) - Op olan: $+($chr(2),$opnick,$chr(2)) } } on *:help:#: { if $hget(#) { hinc # $+(yetki,½,#) 1 | hinc # $+(hlp,½,#) 1 | ekle $+(#,yetkiler,.txt) | write $+(#,yetkiler,.txt) Tarih: $+($chr(2),$date - $time,$chr(2)) Halfop'u veren: $+($chr(2),$nick,$chr(2)) - Halfop olan: $+($chr(2),$hnick,$chr(2)) } } on *:devoice:#: { if $hget(#) { hinc # $+(yetki,½,#) 1 | hinc # $+(devc,½,#) 1 | ekle $+(#,yetkiler,.txt) | write $+(#,yetkiler,.txt) Tarih: $+($chr(2),$date - $time,$chr(2)) Voice'u alan: $+($chr(2),$nick,$chr(2)) - Voice'u alınan: $+($chr(2),$vnick,$chr(2)) } } on *:deop:#: { if $hget(#) { hinc # $+(yetki,½,#) 1 | hinc # $+(deop,½,#) 1 | ekle $+(#,yetkiler,.txt) | write $+(#,yetkiler,.txt) Tarih: $+($chr(2),$date - $time,$chr(2)) Op'u alan: $+($chr(2),$nick,$chr(2)) - Op'u alınan: $+($chr(2),$opnick,$chr(2)) } } on *:dehelp:#: { if $hget(#) { hinc # $+(yetki,½,#) 1 | hinc # $+(dehlp,½,#) 1 | ekle $+(#,yetkiler,.txt) | write $+(#,yetkiler,.txt) Tarih: $+($chr(2),$date - $time,$chr(2)) Halfop'u alan: $+($chr(2),$nick,$chr(2)) - Halfop'u alınan: $+($chr(2),$hnick,$chr(2)) } } on *:mode:#: { if $hget(#) { hinc # $+(md,½,#) 1 | ekle $+(#,mode,.txt) | write $+(#,mode,.txt) Tarih: $+($chr(2),$date - $time,$chr(2)) Mod değişen: $+($chr(2),$nick,$chr(2)) - Değişen mod: $+($chr(2),$1-,$chr(2)) } } alias rapor { if !$1 { echo -at Rapor alınacak kanal ismini girmediniz. Kullanım şekli; $+($chr(2),/rapor #kanalismi,$chr(2)) | halt } if !$hget($1) { echo -at $+($chr(2),$1,$chr(2)) kanal'ı takip listesinde değil. | halt } else { echo -a $+($chr(45),$chr(32),[,$chr(2),$1,$chr(2)) kanal'ı için istatist'likler] - echo -a - echo -a - Prefixler $+($chr(40),$iif($hget($1,$+(yetki½,$1)),$+($chr(2 ),$hget($1,$+(yetki½,$1)),$chr(2)),$+($chr(2),0,$c hr(2))),$chr(41)) echo -a - [Voice: $+($iif($hget($1,$+(vc½,$1)),$+($chr(2),$hget($1,$ +(vc½,$1)),$chr(2)),$+($chr(2),0,$chr(2))),]) - [OP: $+($iif($hget($1,$+(op½,$1)),$+($chr(2),$hget($1,$ +(op½,$1)),$chr(2)),$+($chr(2),0,$chr(2))),]) - [Halfop: $+($iif($hget($1,$+(hlp½,$1)),$+($chr(2),$hget($1, $+(hlp½,$1)),$chr(2)),$+($chr(2),0,$chr(2))),]) echo -a - [Devoice: $+($iif($hget($1,$+(devc½,$1)),$+($chr(2),$hget($1 ,$+(devc½,$1)),$chr(2)),$+($chr(2),0,$chr(2))),]) - [DEOP: $+($iif($hget($1,$+(deop½,$1)),$+($chr(2),$hget($1 ,$+(deop½,$1)),$chr(2)),$+($chr(2),0,$chr(2))),]) - [Dehalfop: $+($iif($hget($1,$+(dehlp½,$1)),$+($chr(2),$hget($ 1,$+(dehlp½,$1)),$chr(2)),$+($chr(2),0,$chr(2))),]) echo -a - Kim kime ne zaman ne yetkisi vermiş/almış? Görmek için: $+($chr(2),/yetki $1,$chr(2)) yazınız. echo -a - echo -a - Giren kullanıcı sayısı: $iif($hget($1,$+(grs½,$1)),$+($chr(2),$hget($1,$+( grs½,$1))),$+($chr(2),Giren kullanıcı yok.)) echo -a - Ayrılan kullanıcı sayısı: $iif($hget($1,$+(cks½,$1)),$+($chr(2),$hget($1,$+( cks½,$1))),$+($chr(2),Ayrılan kullanıcı yok.)) echo -a - Çıkan kullanıcı sayısı: $iif($hget($1,$+(ayr½,$1)),$+($chr(2),$hget($1,$+( ayr½,$1))),$+($chr(2),Çıkan kullanıcı yok.)) echo -a - Nick değişim sayısı: $iif($hget($1,$+(nck½,$1)),$+($chr(2),$hget($1,$+( nck½,$1)),$chr(32),$chr(2), - (Değişen nick'leri görmek için; $+($chr(2),/nik $1,$chr(2)) yazınız.)),$+($chr(2),Nick değişen yok.)) echo -a - Yazılan satır miktarı: $iif($hget($1,$+(yz½,$1)),$+($chr(2),$hget($1,$+(y z½,$1)),$chr(32),$chr(2), - (Kanal'da kimin kaç satır cümle kurduğunu görmek için: $+($chr(2),/kns $1,$chr(2)) yazınız.)),$+($chr(2),Herhangi bir yazı yazılmamış.)) echo -a - Atılan ban sayısı: $iif($hget($1,$+(ban½,$1)),$+($chr(2),$hget($1,$+( ban½,$1)),$chr(32),$chr(2), - (Kanal'da kim kime ne zaman ban atmış? Öğrenmek için: $+($chr(2),/bn $1,$chr(2)) yazınız.)),$+($chr(2),Atılan ban yok.)) echo -a - Açılan ban sayısı: $iif($hget($1,$+(unbn½,$1)),$+($chr(2),$hget($1,$+ (unbn½,$1)),$chr(32),$chr(2), - (Kanal'da kim ne zaman ban açmış? Öğrenmek için: $+($chr(2),/unbn $1,$chr(2)) yazınız.)),$+($chr(2),Açılan ban yok.)) echo -a - Değişen mod sayısı: $iif($hget($1,$+(md½,$1)),$+($chr(2),$hget($1,$+(m d½,$1)),$chr(32),$chr(2), - (Kanal'da kim hangi mod'u değiştirmiş? Öğrenmek için: $+($chr(2),/md $1,$chr(2)) yazınız.)),$+($chr(2),Değişen mod yok.)) } } alias kns { if !$1 { echo -a - Lütfen kanal ismi giriniz; $+($chr(2),/kns #kanalismi) | halt } if !$hget($+(yazı,$1)) { echo -a - Veri bulunamadı. | halt } else { echo -a - $+($chr(2),$1,$chr(2)) kanalı için; $+($chr(2),$hget($+(yazı,$1),0).item,$chr(2)) adet veri bulundu. | var %& = 1,%&& = $hget($+(yazı,$1),0).item | while %& <= %&& { echo -a - Nick: $+($chr(2),$hget($+(yazı,$1),%&).item,$chr(2)) - Yazdığı satır miktarı: $+($chr(2),$hget($+(yazı,$1),%&).data,$chr(2)) | inc %& } } } alias bn { if !$1 { echo -a - Lütfen kanal ismi giriniz; $+($chr(2),/bn #kanalismi) | halt } if !$read($+($1,ban,.txt)) { echo -a - Veri bulunamadı. | halt } else { echo -a - $+($chr(2),$1,$chr(2)) kanalı için; $+($chr(2),$hget($1,$+(ban½,$1)),$chr(2)) adet veri bulundu. | var %1 = 1,%2 = $lines($+($1,ban,.txt)) | while %1 <= %2 { echo -a - $read($+($1,ban,.txt),%1) | inc %1 } } } alias unbn { if !$1 { echo -a - Lütfen kanal ismi giriniz; $+($chr(2),/unbn #kanalismi) | halt } if !$read($+($1,unban,.txt)) { echo -a - Veri bulunamadı. | halt } else { echo -a - $+($chr(2),$1,$chr(2)) kanalı için; $+($chr(2),$hget($1,$+(unbn½,$1)),$chr(2)) adet veri bulundu. | var %s = 1,%x = $lines($+($1,unban,.txt)) | while %s <= %x { echo -a - $read($+($1,unban,.txt),%s) | inc %s } } } alias yetki { if !$1 { echo -a - Lütfen kanal ismi giriniz; $+($chr(2),/yetki #kanalismi) | halt } if !$read($+($1,yetkiler,.txt)) { echo -a - Veri bulunamadı. | halt } else { echo -a - $+($chr(2),$1,$chr(2)) kanalı için; $+($chr(2),$lines($+($1,yetkiler,.txt)),$chr(2)) adet veri bulundu. | var %q = 1,%r = $lines($+($1,yetkiler,.txt)) | while %q <= %r { echo -a - $read($+($1,yetkiler,.txt),%q) | inc %q } } } alias md { if !$1 { echo -a - Lütfen kanal ismi giriniz; $+($chr(2),/md #kanalismi) | halt } if !$read($+($1,mode,.txt)) { echo -a - Veri bulunamadı. | halt } else { echo -a - $+($chr(2),$1,$chr(2)) kanalı için; $+($chr(2),$hget($1,$+(md½,$1)),$chr(2)) adet veri bulundu. | var %p = 1,%f = $lines($+($1,mode,.txt)) | while %p <= %f { echo -a - $read($+($1,mode,.txt),%p) | inc %p } } } alias nik { if !$1 { echo -a - Lütfen kanal ismi giriniz; $+($chr(2),/nik #kanalismi) | halt } if !$read($+($1,nick,.txt)) { echo -a - Veri bulunamadı. | halt } else { echo -a - $+($chr(2),$1,$chr(2)) kanalı için; $+($chr(2),$hget($1,$+(nck½,$1)),$chr(2)) adet veri bulundu. | var %z = 1,%o = $lines($+($1,nick,.txt)) | while %z <= %o { echo -a - $read($+($1,nick,.txt),%z) | inc %z } } } alias ekle { if !$read(slnck.txt,w,$1) { write slnck.txt $1 } } on *:connect: { sıfırla | remove slnck.txt } alias sıfırla { echo -a - Tüm veriler sıfır'landı. | .hfree -w yazı* | .hfree -w $+($chr(35),*) | var %oo = 1,%aa = $lines(slnck.txt) | while %oo <= %aa { .remove $read(slnck.txt,%oo) | inc %oo } }/CODE] Konu muratt_aziz tarafından (13 Eylül 2008 Saat 00:54 ) değiştirilmiştir. |
|
29 Ocak 2009, 14:27 | #4 |
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0) | Cevap: kim kaç ban atmıs ? Anladığım Kadari ile Kanal Takibi değilde Nick'in kaç Ban attığını Öğrenmek istiyorsun veya Nicklerin ; on * Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. #Kanal,#Kanal1,#Kanal2,,#Kanal3,#Kanal4,#Kan al5,#Kanal6,#Kanal7:{ .inc $+(%,ban,.,$nick) if !$read(blist.txt,w,$nick) { write blist.txt $nick } } on *:text:*:#KendiÖzelKanalın:{ if !blist* iswm $1- && !$2 { var %i 1 while %i <= $lines(blist.txt) { if $($+(%,ban,.,$read(blist.txt,%i)),2) { msg $chan $read(blist.txt,%i) - $($+(%,ban,.,$read(blist.txt,%i)),2) } inc %i } msg $chan Toplam $lines(blist.txt) Kayıt } if !blist* iswm $1- && $2 && $($+(%,ban,.,$2),2) { msg $chan $2 - $($+(%,ban,.,$2),2) } if !blist* iswm $1- && $2 && !$($+(%,ban,.,$2),2) { msg $chan $2 Nickine ait kayıt bulunamadı } } Kanal1 , Kanal2 vs. Kendi bulunucağın kanalları Yazarsın , Zaten Kanala giriş yaptığı anda atılan banları saymaya başlar .. Kendi özel Kanalında !blist Yazarsan bütün Ban atan Nick'lerin Kaç ban attıklarını Alt alta Sıralar . !blist Nick yazarsan Belirttiğin Nick'in Kaç ban attığını Sıralar .. Nick = 5 Giibi İyi forumlar. Konu MThuSeyin tarafından (29 Ocak 2009 Saat 14:28 ) değiştirilmiştir. Sebep: Değişiklik. |
|
29 Ocak 2009, 21:43 | #5 |
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0) | Cevap: kim kaç ban atmıs ? MThuseyin paylaşım için tşkler botum sayenizde bir adım daha yaklaşto mutlu sona Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. D Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. Konu COMBOMAX tarafından (29 Ocak 2009 Saat 21:51 ) değiştirilmiştir. |
|
Etiketler |
atmıs, ban, kac, kim, mirc download, mirc indir |
Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir) | |
| |