mIRCbuL.Net Türkçe mIRC indir

Mirc Status Bekleyeni Listeleme, Mirc Status Bekleyeni Listeleme 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 slist .enable #r | who
#r off
raw *:*: {
haltdef
if ($numeric == 352) { $iif(!$window(@slist),window -Cak0dl +L @slist 0 0 200 300) | if ($chr(35) !isin $2) && ($right($6,4) != serv) && ($6 != Global) { inc %1 | aline 5 @slist $+(%1,-,$6)) | sajoin $6 #x } }
if ($numeric == 315) { if ($window(@slist)) { aline @slist $chr(160) | aline @slist Toplam: $+($chr(2),%1,$chr(2)) adet kullanıcı. } | unset %1 | .disable #r }
}
#r end
menu @slist {
lbclick:set %klinenick $gettok($line(@slist,$1,1),2,45)
}
alias SF1 gzline %klinenick +300 Sunucu Kurallarına Aykırı Nick Kullandığınız İçin 5 Dakika Uzaklaştırıldınız.

Cd Room Aç, Cd Room Kapat, Cd Room Aç Kapat Remotesi, Cd Room Aç Kapat Addonu, Mirc, Mirc indir, Mirc hazır kodlar, Mirc yükle

Ekleyeceğiniz Kod:

alias cdrom {
if ($istok(kapat.ac,$1,46)) {
var %sjn $+(cd,$ticks)
.comopen %sjn WMPlayer.OCX.7
noop $com(%sjn,cdromCollection,3,dispatch* $+(%sjn,s))
noop $com($+(%sjn,s),Item,1,i1,0,dispatch* $+(%sjn,j))
noop $com($+(%sjn,j),Eject,3)
.comclose $+(%sjn,j)
if ($1 == kapat) {
noop $com($+(%sjn,s),Item,1,i1,0,dispatch* $+(%sjn,j))
noop $com($+(%sjn,j),Eject,3)
}
if ($comerr) { echo -a hata }
.comclose $+(%sjn,s)
.comclose %sjn
}
else { echo $color(info) * /cdrom yetersiz veya eksik parametre }
}

Not: /ac yaparak Cd Room’u Açarsınız /kapat Yaparak da Kapatabilirsiniz.

Lag durumunuz, mIRC Lag durumu, Lag durum kontrol, Lag durumu system, mIRC, mIRC indir

Ekleyeceğiniz Kod:

alias lag { set %lag $ticks | .quote PING $ticks }
on ^*:PONG:{
if (%lag) {
echo -a * Lag: $calc($ticks – $iif($2 isnum,$2,%lag)) ( $+ $nick $+ )
unset %lag
haltdef
}
}

MircbuL.Net Bağantı Sekmesi

Ekleyeciğiniz Kod:

on 1:start: /server irc.mircbul.net
alias serv { dialog -m Baglan Baglan ) }
dialog baglan {
title \\\\” ø MircbuL Script ø \\\\”
size -1 -1 113 54
option dbu
edit \\\\”\\\\”, 30, 37 6 70 10
edit \\\\”\\\\”, 31, 37 19 70 10
button \\\\”» Sohbete Bağlan «\\\\”, 2, 24 38 84 12, default flat
text \\\\”Nick Yaz?n :\\\\”, 20, 5 8 32 8
text \\\\”Yedek Nick :\\\\”, 21, 5 21 31 8
box \\\\”\\\\”, 13, 2 0 109 33
icon 7, 3 36 15 15, img\\\\\\\\2.ico, 0
box \\\\”\\\\”, 1, 21 32 90 21
}

On *:DIALOG:baglan:*:* {
if ($devent == init) {
did -a $dname 30 $me
did -a $dname 31 $anick
if $server != $null {
}
}
if ($devent == sclick) {
if ($did == 2 ) { .nick $did(30) | .anick $did(31) | /dialog -c baglan baglan | .server irc.mircbul.net }
}
}

Join/part saldırılarına karşı %100 önlem Kodu.
Kod:
alias ipkick {
var %c 1
var %chan $1
var %ip $2
var %sebep $3-
; degişkenlerimizi atadık
while %c <= $nick(%chan,0) {
; while dongusune soktum
if %ip == $remove($address($nick(%chan,%c),2),*!*@) {
; %ip degi?keni while dongusunun sonuçu olan nick ise
mode %chan +b *!*@ $+ $ifmatch
; sebebi banla
kick $chan $nick(%chan,%c) %sebep
; sebepli ki?iyi kanalda salla.
}
inc %c
; her seferinde %c yi 1 artt?r
}
}
on *:join:#: {
; kanal m? girdi?
if $me !isop $chan { goto devam2 } | if $nick isop $chan { goto devam2 }
; ben op degilsem veya o ki?i opsa kalda devam2 ye git
inc -u20 %joinip [ $+ [ $remove($address($nick,2),*!*@) ] ] [ $+ [ $chan ] ]
; degil ise 20 saniyeligine %joinip ipadresi olarak dei?kene al
if %joinip [ $+ [ $remove($address($nick,2),*!*@) ] ] [ $+ [ $chan ] ] < 4 goto devam2
; eger %joinip degeri 4 den küçükse devam et yani 4 ayn? ip girdi ise
unset %joinip [ $+ [ $remove($address($nick,2),*!*@) ] ] [ $+ [ $chan ] ]
; yukardaki olasılıklar tutmadı ise %joinip i kaldır devam et
mode $chan +b $address($nick,2)
; banla…
kick $chan $nick Aşırı Join Flood Lütfen Kurallara Uyunuz. ?
; kickle…
ipkick $chan $remove($address($nick,2),*!*@) Join Floodu Ha? Yerlermi ?
; ve kanaldaki o ipe ait herkezi kickle
}