mIRCbuL.Net Türkçe mIRC indir

Mirc Kanal idle Süresine Bakma, Mirc Kanal idle Süresine Bakma Kodu, Mirc, Mirc Kod, Mirc Kodlar, Mirc Addon, IRC Addon, Mirc Addonlar, Mirc indir, Mirc download, Mirc Yükle, Mirc Hazır Kodlar

Ekleyeceğiniz Kod:

on *:text:!idle*:#: {
set %asilkanal $chan
/idle $2
}
raw 317:*:{
if %kanal != $null {
msg %asilkanal  $2 : idle suresi: $int($calc($3 / 60)) dakika, $calc( $3 – $calc($int($calc($3 / 60)) * 60 )) saniye.
}
if $2 == $nick(%kanal,%kacuser) {
msg %asilkanal — Liste sonu –
unset %kanal
}
}
alias idle {
set %kanal $1
msg %asilkanal — %kanal kanalinda bulunan kisilerin idle sureleri listeleniyor –
if $me ison %kanal {
set %kacuser $nick(%kanal,0)
var %i 1
while %i <= %kacuser {
set %userx $nick(%kanal,%i)
whois %userx
inc %i
}
}
}

Mirc Haber, Mirc Haber Kodu, Mirc, Mirc Kod, Mirc Kodlar, Mirc Addon, IRC Addon, Mirc Addonlar, Mirc indir, Mirc download, Mirc Yükle, Mirc Hazır Kodlar

Kodu Almak İçin Tıklayınız..

Mirc Log Kayıt, Mirc Log Kayıt Kodu, Mirc, Mirc Kod, Mirc Kodlar, Mirc Addon, IRC Addon, Mirc Addonlar, Mirc indir, Mirc download, Mirc Yükle, Mirc Hazır Kodlar

Ekleyeceğiniz Kod:

alias logs {
window -aekl21S @Log Verdana 12
.titlebar @Log Dosyaları …
editbox @Log Ekranda arama yapacağınız kelimeyi buraya girin…
echo 7 @Log $findfile($logdir,*.log,0,aline -l 6 @Log $remove($1-,$logdir)) adet dosya mevcut
echo 12 @Log Görüntülemek istediğiniz dosyayı seçin.
}
menu @Log {
lbclick:{
clear @Log | loadbuf @Log $+($shortfn($logdir),$line(@Log,$1,1))
window -b @Log
}
$iif(!$sline(@Log,0),$style(2)) İşlem
.Bilgi: {
aline @Log $str(-,5)
aline @Log 4Dosya bilgileri…
aline @Log 2Boyutu :7 $bytes($file($+($logdir,$$1)).size).suf
aline @Log 2Dosya Adı :7 $$1
aline @Log 2Dosya Yolu :7 $logdir $+ $$1
aline @Log 2İlk oturum :7 $replace($asctime($file($+($logdir,$$1)).ctime),mon,Pazartesi,tue,Salı,wed,Çarşamba,thu,Perşembe,fri,Cuma,sun,Pazar,jan,Ocak,Feb,Şubat,Mar,Mart,sat,Cumartesi,apr,Nisan,May,Mayıs,Jun,Haziran,Jul,Temmuz,Aug,Ağustos,Sep,Eylül,Oct,Ekim,Nov,Kasım,Dec,Aralık)
aline @Log 2Son kapanış:7 $replace($asctime($file($+($logdir,$$1)).mtime),mon,Pazartesi,tue,Salı,wed,Çarşamba,thu,Perşembe,fri,Cuma,sun,Pazar,jan,Ocak,Feb,Şubat,Mar,Mart,sat,Cumartesi,apr,Nisan,May,Mayıs,Jun,Haziran,Jul,Temmuz,Aug,Ağustos,Sep,Eylül,Oct,Ekim,Nov,Kasım,Dec,Aralık)
aline @Log $str(-,5)
}
.Listeden Çıkar:dline -l @Log $sline(@Log,1).ln
.Tamamen Sil:{
clear @Log
.remove $+($shortfn($logdir),$$1)
echo 4 @Log $$1 dosyası silindi.
dline -l @Log $sline(@Log,1).ln
}
.Dosya Arama: {
var %t = $$?=”Aranacak kelimeyi girin”
if $findfile($logdir,$+(*,%t,*).log,0) {
clear @Log
clear -l @Log
echo 5 @Log $findfile($logdir,$+(*,%t,*).log,0,aline -l 6 @Log $remove($1-,$logdir)) adet dosya mevcut
}
else { clear @Log | echo 4 @Log Arama kayıtlarında $qt(%t) bulunamadı… }
}
.Tüm Liste:clear @Log | clear -l @Log | echo 7 @Log $findfile($logdir,*.log,0,aline -l 6 @Log $remove($1-,$logdir)) adet dosya mevcut
}
on *:input:@Log:{
if $left($1,1) == / { return }
if $fline(@Log,$+(*,$1-,*),0) {
aline 3 @Log || Arama yapılıyor ||
var %Jenk = 1, %’ = ||
while %Jenk <= $fline(@Log,$+(*,$1-,*),0) {
if ($mid($fline(@Log,$+(*,$1-,*),%Jenk).text,1,2) != %’) {
aline -p @Log || $+ $fline(@Log,$+(*,$1-,*),%Jenk).text
}
inc %Jenk
}
aline 5 @log || Arama sona erdi ||
}
else { aline 4 @Log || Arama kaydı bulunamadı || }
}

Clock-CodeMirc Analog Saat Flash Code, Mirc Analog Saat Flash Kodu, Mirc, Mirc Kod, Mirc Kodlar, Mirc Addon, IRC Addon, Mirc Addonlar, Mirc indir, Mirc download, Mirc Yükle, Mirc Hazır Kodlar

Kodu Almak İçin Tıklayınız..

Mirc Yanlış Oper Gireni Uyar, Mirc Yanlış Oper Gireni Uyar Kodu, Mirc, Mirc Kod, Mirc Kodlar, Mirc Addon, IRC Addon, Mirc Addonlar, Mirc indir, Mirc download, Mirc Yükle, Mirc Hazır Kodlar

Ekleyeceğiniz Kod:

on *:SNOTICE:*Failed OPER attempt by*: {
.notice $me Failed Oper Attempt
.notice $me $2-
inc -u240 %op.att.fail.[$+[$8-]] 1
if ( %op.att.fail.[$+[$8-]] <= 1 ) {
.msg $8 4Oper Girişiniz hatali. Tekrar yanliş girersen kill yiyeceksin.
}
elseif ( %op.att.fail.[$+[$8-]] == 2 ) {
.kill $8 $8 $+ $9 3Failed in attempt to Oper 7( Oper Yanliş Girdiniz. )
}
elseif ( %op.att.fail.[$+[$8-]] >= 3 ) {
.gline $8- 30d 4Failed Oper attempt 12( Oper Girişi Tekrarlama ! )
}
}

Mirc Clone Tarama, Mirc Clone Tarama Kodu, Mirc, Mirc Kod, Mirc Kodlar, Mirc Addon, IRC Addon, Mirc Addonlar, Mirc indir, Mirc download, Mirc Yükle, Mirc Hazır Kodlar

Ekleyeceğiniz Kod:

Kodenin amacı;
Kanaldaki kloneleri tespit ederek, işlev yapmanızı sağlar(isterseniz).
Kullanımı: /ctara #kanalismi

Yapabileceğiniz Diğer İşlemler..

Sonucları görmek için; /sonuclar
İşlev yapmak için; /at numara mesajınız.

on *:join:#: { if $nick == $me && $chan(#).ial == $false { .ial on | .who # } }
alias ctara {
if $active != # { .echo -a $+($timestamp,$chr(45),$chr(32),Kanal penceresinde değilsiniz.) | halt }
if !$1 { echo $1 $+($timestamp,$chr(45),$chr(32),Kanal ismi girmediniz.) | halt }
if $me !ison $1 { .echo -a $+($timestamp,$chr(45),$chr(32),$chr(2),$1,$chr(2),$chr(32),kanalında bulunmuyorsunuz.) | halt }
else { echo $1 $+($timestamp,$chr(45),$chr(32),Bilgi:,$chr(32),$chr(2),$1,$chr(2),$chr(32),kanalı için tarama başlatıldı lütfen bekleyiniz.)
write -c nickler.txt | write -c nickler2.txt | write -c sonuc.txt | var %- = 1, %x = $ialchan(*,$1,0),%/ = $1
while (%- <= %x) { if $read(nickler.txt,w,$gettok($ialchan(*,$1,%-),2,64)) && !$read(korumalar.txt,w,$gettok($ialchan(*,$1,%-),2,64)) { var %1 = $ialchan($+(*,$v1,*),$1,0) | write nickler2.txt $gettok($ialchan(*,$1,%-),1,33) | inc %- }
else { write nickler.txt $gettok($ialchan(*,$1,%-),2,64) | inc %- } } }
var %– = 1,%½ = $lines(nickler2.txt) | while %– <= %½ { bak $read(nickler2.txt,%–) %/ | inc %– }
echo $1 $+($timestamp,$chr(45),$chr(32),Bilgi:,$chr(32),$chr(2),$1,$chr(2),$chr(32),kanalı için tarama tamamlandı. Sonuçları görmek için:,$chr(32),$chr(2),/sonuclar,$chr(2),$chr(32),yazınız.)
}
alias bak {
var %% = 1,%& = $gettok($address($1,2),2,64),%&& = $ialchan($+(*,%&,*),$2,0) | while %% <= %&& {
var %%- = $addtok(%%-,$gettok($ialchan($+(*,%&,*),$2,%%),1,33),44) | inc %% } | if !$read(sonuc.txt,w,$+($gettok(%%-,1,44),*)) { write sonuc.txt %%- %% %& }
}
alias sonuclar {
var %- = 1, %– = $lines(sonuc.txt) | while %- <= %– {
echo -a $+($timestamp,$chr(45),$chr(32),Bilgi:,$chr(32),S:,$chr(32),$chr(40),$chr(32),$chr(2),%-,$chr(2),$chr(32),$chr(41),$chr(32),Klon:,$chr(32),$chr(40),$chr(32),$chr(2),$calc($gettok($read(sonuc.txt,%-),2,32) -1),$chr(2),$chr(32),$chr(41),$chr(32),Adres:,$chr(32),,$chr(40),$chr(2),$chr(32),$gettok($read(sonuc.txt,%-),3,32),$chr(2),$chr(32),$chr(41),$chr(32),Nickler:,$chr(32),$chr(40),$chr(32),$chr(2),$gettok($read(sonuc.txt,%-),1,32),$chr(32),$chr(2),$chr(41))
inc %-
}
echo -a $+($timestamp,$chr(45),$chr(32),Bilgi:,$chr(32),Sonuclar sıralandı.)
echo -a $+($timestamp,$chr(45),$chr(32),Bilgi:,$chr(32),$chr(2),$lines(sonuc.txt),$chr(2),$chr(32),adet veri bulundu)
echo -a $+($timestamp,$chr(45),$chr(32),Bilgi:,$chr(32),Verilen sıra numaralarındaki kullanıcıları sunucudan uzaklaştırmak için;,$chr(32),$chr(2),/at sıranumarası mesajınız,$chr(32),$chr(2),işlevini yapabilisiniz.)
}
alias at { if $1 { gline $gettok($read(sonuc.txt,$1),1,44) $2- } }
alias ekle {
if !$1 { echo -a $+($timestamp,$chr(45),$chr(32),Bilgi:,$chr(32),Herhangir bir IP/host girmediniz.) | halt }
if $read(korumalar.txt,w,$1) { echo -a $+($timestamp,$chr(45),$chr(32),Bilgi:,$chr(32),$chr(2),$1,$chr(2),$chr(32),adresini zaten daha önce eklediniz.) | halt }
write korumalar.txt $1 | echo -a $+($timestamp,$chr(45),$chr(32),Bilgi:,$chr(32),$chr(2),$1,$chr(2),$chr(32),adresini korumalar listesine başarıyla eklendi.)
}

Mirc Günün Sözü, Mirc Günün Sözü Kodu Kodu, Mirc, Mirc Kod, Mirc Kodlar, Mirc Addon, IRC Addon, Mirc Addonlar, Mirc indir, Mirc download, Mirc Yükle, Mirc Hazır Kodlar

Ekleyeceğiniz Kod:

alias gununsozu { if $sock(gununsozu) { echo 12 -a * /gununsozu: Lütfen daha sonra tekrar deneyiniz. } | else { sockopen gununsozu www.mynet.com 80 } }
on *:sockopen:gununsozu:{
var %c = sockwrite -n $sockname
if ($sockerr) { echo $colour(info) -a * /gununsozu: Hata. | return }
%c GET /soz.asp HTTP/1.1 | %c Host: mynet.com | %c Connection: Close $str($crlf,2)
}
on *:sockread:gununsozu:{
var %g | sockread %g | if *class=”f1001″>* iswm %g { echo 4 -a * Günün sözü; $htmlfree($v2) }
}
alias -l htmlfree return $regsubex($1-,/(^[^<]*>|<[^>]*>|t|<[^>]*$)/g,$null)

Mirc Spamfilter Uzun Yazı Koruması, Mirc Spamfilter Uzun Yazı Koruması Kodu, Mirc, Mirc Kod, Mirc Kodlar, Mirc Addon, IRC Addon, Mirc Addonlar, Mirc indir, Mirc download, Mirc Yükle, Mirc Hazır Kodlar

Ekleyeceğiniz Kod:

/spamfilter add c block – Harfleri_Uzattiginiz_icin_Mesajiniz_BLOCK_Edildi ([a-zA-Z])\1{8}

Mirc Notice Gönderenleri Listele, Mirc Notice Gönderenleri Listele Kodu, Mirc, Mirc Kod, Mirc Kodlar, Mirc Addon, IRC Addon, Mirc Addonlar, Mirc indir, Mirc download, Mirc Yükle, Mirc Hazır Kodlar

Ekleyeceğiniz Kod:

on ^*:notice:*:?:{
if (!$window(@notices)) { window -mel20 @notices }
if (. !isin $nick) && (????serv !iswm $nick) && ($network != $nick) {
echo -m @Notices $+(5-,$nick,-) $1- Saat: $time Gün: $date | .linesep @notices | notices $nick
halt
}
}
alias ln return $line(@notices,$1,1)
alias notices {
if ($ln(0) = 0) { aline -l @notices $1 | sline -l @notices 1 | halt }
unset %notices2
set %notices $ln(0)
while (%notices) {
if ($1 != $ln(%notices)) { inc %notices2 }
if ($1 = $ln(%notices)) { sline -l @notices %notices | halt }
dec %notices
}
if (%notices2 = $ln(0)) { aline -l @notices $1 }
}
on *:input:@notices:{
if ($left($1,1) != /) {
.notice $sline(@notices,1) $1- | echo -a 2* notice sent to $+(“,$sline(@notices,1),”) ->12 $1- | .linesep @notices
}
}

Mirc Kick Ban Atıldığında Notice, Mirc Kick Ban Atıldığında Notice Kodu, Mirc, Mirc Kod, Mirc Kodlar, Mirc Addon, IRC Addon, Mirc Addonlar, Mirc indir, Mirc download, Mirc Yükle, Mirc Hazır Kodlar

Ekleyeceğiniz Kod:

on *:kick:*: {
notice $me $1- Channel: $chan Nick: $Knick
}
on *:ban:*: {
notice $me kick $1- Channel: $chan Nick: $nick
}