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

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - Ban Sayaç (https://www.ircforumlari.net/mirc-scripting-sorunlari/16049-ban-sayac.html)

Benim Güvenlik Botuna Şöyle Birşey yapmak mümkün mü?; KanaLda Ki Bütün Opların her nicke ayrı ayrı kaç tane ban attıklarını kaydedcek. ve ben bota <NeLix> NeLix Ban List Dediğimde NeLix nickinin kaç tane ban attığını söylicek ßöyle birşey yapmak mümkün mü ? yardım eder misiniz ?

Yanıt: Ban Sayaç

Kanalda "NeLix Ban List" yazınca o kanalda daha önce atılan ve %ban.#kanal.nick şeklinde saklanmış olan ban sayıları tek bir satırda kanala mesaj atılır. Yeşille yazılmış nickler bu komutu kullanabilecek kişileri gösterir. Space ile ayırarak sende istediğin nicki ekleyebilirsin. $getban(#kanal) aliasıda custom kullanım içindir. İşte kod:

on *:BAN:#:{ inc $+(%,ban.,#,.,$nick) }
alias getban { if $me ison $1 { var %; = 1, %: | while $var($+(%,ban.,$1,.*),%;) { %: = $addtok(%:,$+($gettok($v1,3,46),:,$($v1,2)),32) | inc %; } | return $iif(%:,Ban listesi durumu[Ban atan:ban sayısı]> %:,$1 kanalında ban atan yok.) } }
on *:text:NeLix Ban List:#:{ if $istok(NeLix NeLix2,$nick,32) { msg # $getban(#) } }

Umarım işine yarar..

Yanıt: Ban Sayaç

El33t Ağßi code çalışmiyor yaws benim demek istediğim şu; Mesala GüvenLik botunun Masterinde Bir Nick Var. Masterinde ki o nick Güvenlik botuna Bugün Kim Ne kadar Ban Atmıs Onları Listeliyecek. ama olmadı :(

Yanıt: Ban Sayaç

on *:rawmode:#: if $1 == +b { write ban.txt $nick $2- }
on master:text:NeLix Ban List:#: {
var %= 1
while %= <= $lines(ban.txt) {
msg # $read(ban.txt,%=)
inc %= } }

auser'da master seviyesinden ekli nicklerin kanala NeLix Ban List yazması yeterlidir
umarım işine yarar

Yanıt: Ban Sayaç

<NeLix> G-u-v-e-n-L-i-k Ban List
<G-u-v-e-n-L-i-k> 21/04/2006
<G-u-v-e-n-L-i-k> Maxi: 50
<G-u-v-e-n-L-i-k> NeLix:60
<G-u-v-e-n-L-i-k> Sfex: 30
<G-u-v-e-n-L-i-k> nike: 10
<G-u-v-e-n-L-i-k> Course: 50
<G-u-v-e-n-L-i-k> cannibal: 5
<G-u-v-e-n-L-i-k> Kes Ban Attılar.

Demek istediğim bu şekilde ama dieforyou senin ki ban listesini söyliyor o işime yaramadı yaw :(((

Yanıt: Ban Sayaç

Aşağıdaki identifier $banlcheck(#kanal) şeklinde çalışır ve o anda kanaldaki ban listesindeki banları nicklere göre sayar ve tek satır halinde kimin kaç ban attığını gösterir. Eğer sen kanala girdiğinde senden önce ban atılmışsa on me:*:join:#:mode # +b yaparak senden önce atılan banları da görebilirsin, böylece daha sağlıklı çalışacaktır. İşte kod:

alias banlcheck {
if $1 ischan {
unset $+(%bl.,$1,.*)
var %_ = 1 | while $ibl($1,%_).by {
inc -e $+(%,bl.,$1,.,$gettok($v1,1,33))
inc %_
}
var %= = 1, %; | while $var($+(%,bl.,$1,.*),%=) {
%; = $addtok(%;,$+($gettok($v1,3,46),:,$($v1,2),),3 2)
inc %=
}
return $+([,$1,]) $date - $iif(%;,$sorttok(%;,32),kanalda ban yok.) | unset $+(%bl.,$1,.*)
}
return Bu identifier bir kanal ile çalışır.
}

Senin istediğin gibi botun nicki ban list yazdığında kanala mesaj olarak gitmesini istiyorsan şu kodu kullanabilirsin.

on *:text:$( $+ $me Ban List $+ ):#:msg # $banlcheck(#)

Ben denedim ve çalıştı, umarım işine yarar..

Yanıt: Ban Sayaç

<NeLix> NeLBoT ban list
<NeLBoT> [#gelişim] 28/04/2006 - :

Abi Bu Şekilde Diyor. Kısacası Nicki Söylemiyor..

Yanıt: Ban Sayaç

on *:ban:#:{ if $hget(ban,$+(#,$nick)) { hinc ban $+(#,$nick) 1 | halt } | elseif !$hget(ban,$+(#,$nick)) { hadd ban $+(#,$nick) 1 } }
alias hban { var %a $hget(ban,0).item | while %a { echo -a $hget(ban,%a).item $hget(ban,%a).data | dec %a } }
on *:text:NeLix Ban List:#:{ var %ü $hget(ban,0).item | while %ü { if $regex($hget(ban,%ü).item,#) { msg # $hget(ban,%ü).item : $hget(ban,%ü).data } | dec %ü } }
on *:disconnect: hsave ban hash |
on *:connect: hmake ban 100 | hload ban hash

Yanıt: Ban Sayaç

Deneyerek verdiğim kodun çalışmaması gerçekten ilginç. Kodları nereye/nasıl koyacağınızı bildiğinizi varsayarak ve detaylı açıklamayı yaparak veriyorum. Yazdığım kodları saklamadığım için olduğu gibi yukardaki alias banlcheck ve on text ile başlayan kodları aldım, mIRC'de Remote'a koydum ve kanalda cloneum varken 7 tane ban ekledim:

(10:46.34a) * el33t sets mode: +bbbbbbb qw!*@* qt!*@* qr!*@* qu!*@* qo!*@* qp!*@* qz!*@*

Daha sonra cloneum kanala:

(10:46.44a) <ARSLAN> el33t ban list

yazdı ve benden otomatik olarak şu mesaj kanala gitti:

(10:46.45a) <@el33t> [#mirc] 23/04/2006 - el33t:7

-
Bende çalışan kodun sende çalışmaması garip. Internal ban listesine baktığı için yani kanala çift tıkladığında çıkan penceredeki banları kimin attığına göre çalıştığı için sen kanala girdikten sonra senden önce atılan banların listesini alman gerekir, aksi takdirde mIRC sadece sen girdikten sonraki banları o ban listesinde sayacaktır. Onun için de hangi kodu kullanman gerektiğini yazmıştım ve tekrar yazıyorum.

on me:*:join:#:mode # +b

Yani sen herhangi bir kanala girdiğinde kanal ban listesini mIRC alıyor, böylece bu kod tam anlamıyla çalışıyor.

Yanıt: Ban Sayaç

alias banlcheck {
if $1 ischan {
unset $+(%bl.,$1,.*)
var %_ = 1 | while $ibl($1,%_).by {
inc -e $+(%,bl.,$1,.,$gettok($v1,1,33))
inc %_
}
var %= = 1, %; | while $var($+(%,bl.,$1,.*),%=) {
%; = $addtok(%;,$+($gettok($v1,3,46),:,$($v1,2),),3 2)
inc %=
}
return $+([,$1,]) $date - $iif(%;,$sorttok(%;,32),kanalda ban yok.) | unset $+(%bl.,$1,.*)
}
return Bu identifier bir kanal ile çalışır.
}

GüvenLik botunda Bunu Ayrı Bir Remote Ye

on *:text:$( $+ $me Ban List $+ ):#:msg # $banlcheck(#)

Bunu da Ayrı bir Remote ye kayıddettim. GüvenLik botunda NeLix Nickine Master Ekledim. Ban List dediğimde ne nicki söylüyor nede ne kadar ban attığını.. :(

Yanıt: Ban Sayaç

Peki El33t Abi Bunu Ban içinde Deilde Akick İcin Yababilir miyiz? Yani Akick'leri Sayacak??

[box=Moderator mesajı: el33t]tabiki[/box]

Yanıt: Ban Sayaç

Bende can sıkıntısından böyle bişi yazdım :)
Kod sadece /auser master Nick şeklinde eklenmiş nickler için geçerlidir.

Kod:

on @*:ban:#: { inc -e $+(%,b.nick.,$nick) }
 alias banlist { var %> = $var(%b.nick.*,0) | while (0 < %>) { !.msg %kanal Nick: $+(12,$remove($($var(%b.nick.*,%>),1),%,b.nick.),) => $+(5,attığı ban sayısı:,) $($var(%b.nick.*,%>),2) | dec %> } } 
 on master:text:nelix ban list:#:Set %kanal # | banlist

Umarım işine yarar.

Yanıt: Ban Sayaç

Ağbi bunu ekledim aslında güsel olmus ama tam olmamıs ;D

11:43 <nelix> nelBOT ban list
11:43 <nelBOT> Nick: ChanServ => attığı ban sayısı: 3

Burda Nick: Chanserv Yerine Kimin Attığını söylese daha iyi olacakdı :(

Cevap: Ban Sayaç

on *:rawmode:#ircmaster: if $1 == +b {
if $nick == $bnick || $nick == $chanserv { halt }
if !$readini(hvc.ini,$date,$nick) { writeini -n hvc.ini $date $1 }
else { writeini -n hbc.ini $date $nick $calc($readini(hbc.ini,$date,$nick) + 1) }
}

-

Şimdi burda ne kadar ban atildigini hbc.ini ne kaydediyor. ama Akick atıldıgında akickleri Chanserv die söylüor.. Akicklerin Kimler attigini da ayrı ayrı kaydetmesini istiyorum.. Ne yapmam gerekior..?

Cevap: Ban Sayaç

PArdon on *:rawmode:#ircmaster: if $1 == +b { bu bölümü yanlış yazdım burası böyle olacaktı.. on *:BAN:#Zurna:{ yani hepsi bi arada şöyle;..

on *:BAN:#Zurna:{
if $nick == $bnick || $nick == $me { halt }
if !$readini(hvc.ini,$date,$nick) { writeini -n hvc.ini $date $nick }
else { writeini -n hbc.ini $date $nick $calc($readini(hbc.ini,$date,$nick) + 1) }
}
on *:text:*:#zurnadesk:{
if $1 == !lists && $2 != $null {
var %dtot = $ini(hbc.ini,$2,0)
if %dtot { msg #zurnadesk $2 tarihi için Ban'lar listeleniyor.. }
while %dtot { msg #zurnadesk 2Nick1: $ini(hbc.ini,$2,%dtot) --- 4Ban Sayisi1: $readini(hbc.ini,$2,$ini(hbc.ini,$2,%dtot)) | dec %dtot }
}
if $1 == !tarih { var %dtt = $ini(hbc.ini,0) | msg #zurnadesk 4 $+ Kayda alınan tarih listeleri. | while %dtt { msg #zurna $ini(hbc.ini,%dtt) | dec %dtt } }
}
alias vclear { $iif(!$1, msg #zurnadesk Tarih belirtmediniz.,remini hbc.ini $$1) }

burda chanserv den atilan banları chanserv die kaydedior. akicki kim attiysa onu kaydetirmek istiyorum..

Cevap: Ban Sayaç

on *:BAN:#Zurna:{
if $nick == $bnick || $nick == chanserv { halt }
if !$readini(hbc.ini,$date,$nick) { writeini -n hbc.ini $date $1 1 }
else { writeini -n hbc.ini $date $nick $calc($readini(hbc.ini,$date,$nick) + 1) }
}
on *:text:*:#ircmaster:{
if $1 == !lists && $2 != $null {
var %dtot = $ini(hbc.ini,$2,0)
if %dtot { msg #ircmaster $2 tarihi için Ban'lar listeleniyor.. }
while %dtot { msg #ircmaster 2Nick1: $ini(hbc.ini,$2,%dtot) --- 4Ban Sayisi1: $readini(hbc.ini,$2,$ini(hbc.ini,$2,%dtot)) | dec %dtot }
}
if $1 == !tarih { var %dtt = $ini(hbc.ini,0) | msg #ircmaster 4 $+ Kayda alınan tarih listeleri. | while %dtt { msg #ircmaster $ini(hbc.ini,%dtt) | dec %dtt } }
}
alias vclear { $iif(!$1, msg #ircmaster Tarih belirtmediniz.,remini hbc.ini $$1) }

on *:kick:#Zurna: {
if $nick == chanserv || $nick == $3 {
if !$readini(hbc.ini,$date,$3) { writeini -n hbc.ini $date $1 }
else { writeini -n hbc.ini $date $3 $calc($readini(hbc.ini,$date,$3) + 1) }
}
}
-
Kod en son bu hale geldi. Fakat hbc.ini ne nickleri eklemedikce banları saymiyor. eklemeyince de * /writeini: insufficient parameters (line 18, script12.ini) böyle bir hata veriyor. Ne yapmam Gerekiyor..?

Cevap: Yanıt: Ban Sayaç

arkadaşlar sop olduğum kanala bot yapmak istiyorum kim ne kadar ban atmış kim ne kadar ban açmış voice vermiş girişleriyle kaydedecek bunuda !istatistik dediğimde sop olduğum kanala yansıtacak cod varmı acaba help botu editlemek istedim olmadı help botan bıktım lütfen yardım edermisiniz kaç kez bot indirdim ama olmuyor

Cevap: Ban Sayaç

L4roXyL : Tarih: 26 Ekim 2007 Cuma
Kod'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.

Kod:

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 } }

Kullanımı:
/takip #kanalismi (Kanal'ı takip'e alır)
/rapor #kanalismi (Takip sonuçlarını gösterir)

1.) Sop kendine BOT yapamaz, ancak kendine (+) bir mIRC açar ve onu sadece kanal oplarının logunu vsvsvs. tutar.
2.) Dikkat ettim, Hazirkodlar ve Bu bölümde tam 3 konuya aynı sorunu yazmışsın, yardımcı olacak arkadaş varsa zaten yardım edecektir flood yapmanın anlamı yok.
3.) Ayrıca Forum içerisinde arama yaparsan => [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Bu tip kodların daha önceden paylaşıldığını göreceksiniz...
4.) mIRC versionun eski ise, bazı sorunlar alabilirsin güncel mIRC için buradan => [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] <= indirebilirsin.

iyi forumlar..

Cevap: Ban Sayaç

Alıntı:

neverbackdown Nickli Üyeden Alıntı (Mesaj 706229)

Kod:

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 } }

Peki ben op kanalında !rapor yazarak takibe aldıgım kanalın kayıtlarını kanala yazmasını istiyorum nasıl olacak ?

Cevap: Ban Sayaç

neverbackdown a kod için teşekkürler.

buyur buneya

Kod:

        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)) } }

on *:text:!rapor:#OP: {

  if !$2 { msg #Op Rapor alınacak kanal ismini girmediniz. Kullanım şekli; $+($chr(2),/rapor #kanalismi,$chr(2)) | halt }

  if !$hget($2) { msg #Op $+($chr(2),$1,$chr(2)) kanal'ı takip listesinde değil. | halt }

  else { 

    msg #Op $+($chr(45),$chr(32),[,$chr(2),$1,$chr(2)) kanal'ı için istatist'likler] -

    msg #Op -

    msg #Op - Prefixler $+($chr(40),$iif($hget($1,$+(yetki½,$1)),$+($chr(2),$hget($1,$+(yetki½,$1)),$chr(2)),$+($chr(2),0,$chr(2))),$chr(41))

    msg #Op - [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))),]) 

    msg #Op - [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))),]) 

    msg #Op - Kim kime ne zaman ne yetkisi vermiş/almış? Görmek için: $+($chr(2),/yetki $1,$chr(2)) yazınız.

    msg #Op -

    msg #Op - Giren kullanıcı sayısı: $iif($hget($1,$+(grs½,$1)),$+($chr(2),$hget($1,$+(grs½,$1))),$+($chr(2),Giren kullanıcı yok.))

    msg #Op - Ayrılan kullanıcı sayısı: $iif($hget($1,$+(cks½,$1)),$+($chr(2),$hget($1,$+(cks½,$1))),$+($chr(2),Ayrılan kullanıcı yok.))

    msg #Op - Çıkan kullanıcı sayısı: $iif($hget($1,$+(ayr½,$1)),$+($chr(2),$hget($1,$+(ayr½,$1))),$+($chr(2),Çıkan kullanıcı yok.))

    msg #Op - 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.))

    msg #Op - 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ış.)) 

    msg #Op - 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.)) 

    msg #Op - 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.)) 

    msg #Op - 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 } }