Kanallar için takip kodu

Bu kod ile bir kanalı takibe aldınız diyelim? Bu kod bu kanalda neleri takip eder?

Mirc, Mirc Kod, Mirc Kodlar, Mirc Addon, IRC Addon, Mirc Addonlar
Konu link : http://www.mircclub.org/gelismis-kanal-takipcisi.html
CTRL+A tuşuna basarak kodun tamamını kopyalayabilirsiniz.

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,%=)) { 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 *:ban:#: { 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,$chr(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,$+(yz½,$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,$+(md½,$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 }
alıntıdır.