Ban Sayaç - Sayfa 2 - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

NeLix · 07 Temmuz 2006, 21:29

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

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

diEfoRyoU · 09 Temmuz 2006, 14:39

Bende can sıkıntısından böyle bişi yazdım
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Kod sadece /auser master Nick şeklinde eklenmiş nickler için geçerlidir.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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.

NeLix · 11 Temmuz 2006, 11:32

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ı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

NeLix · 19 Haziran 2007, 11:41

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..?

NeLix · 19 Haziran 2007, 12:03

PArdon on *:rawmode:#ircmaster: if $1 == +b { bu bölümü yanlış yazdım burası böyle olacaktı.. on *
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
AN:#Zurna:{ yani hepsi bi arada şöyle;..

on *
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
AN:#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..

NeLix · 20 Haziran 2007, 16:13

on *
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
AN:#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..?

kalpsiz01978 · 07 Mayıs 2009, 20:51

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

Lucifer · 08 Mayıs 2009, 05:45

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: Kodu kopyalamak için üzerine çift tıklayın!

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

buneya · 02 Haziran 2009, 01:59

neverbackdown Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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: Kodu kopyalamak için üzerine çift tıklayın!

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

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

mrdamned · 02 Haziran 2009, 20:19

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

buyur buneya

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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

Seçenekler
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder
Stil
Normal Hybrid-Şeklinde gösterime geç Ağaç şeklinde gösterime geç

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
PHP / TXT Sayaç	CanCeL	PHP	2	20 Eylül 2008 20:40
(+v) voice sayaç	el3ct	mIRC Scripting Sorunları	2	16 Nisan 2008 13:59

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

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.