mIRCbuL.Net Türkçe mIRC indir

on @1:text:*:#:{
if $me !isop $chan { halt } | if $nick isop $chan { halt }
var %bflood $strip($1-)
var %mflood $strip($$1)
if ($len(%bflood) >= 250 ) || ($len($1) >= 50 ) {
/mode $chan +b $address($2,2) | /kick $chan $nick 7¤ 13Flood Yasaktir2 [14!2] 7¤
}
}

on ^*:SNOTICE:*did a /whois on you*:{
  window -e @Whois
  echo @Whois 12*** $time 5 $1-
  halt
}

Whois Çekenleri IP adresleriyle birlikte @Whois Penceresinde Göstericek Bir Kod Umarım işinize yarar.

alias kline { kline $1- %klinesayac | klinesayac }

alias klinesayac {
if (%klinesayac == $null) {
set %klinesayac 1
}
%klinesayac = %klinesayac + 1
halt
}

alias cs {
hmake clones 500
var %x = 1, %c = $iif($1 ischan,$1,$active),%ticks = $ticks,%clones
if ($window(@clones)) window -c @clones
window @clones
if (%c ischan) && ($ialchan(*,%c,0) != $nick(%c,0)) { .enable #clones | aline @clones Updating IAL.. | .ial on | who %c }
while ($nick(%c,%x)) {
var %i = $ifmatch
if ($hget(clones,$address(%i,2)) == $null) && ($ialchan($address(%i,2),%c,0) > 1) {
inc %clones $ialchan($address(%i,2),%c,0)
hadd clones $address(%i,2) $address(%i,2)
var %temp,%a = 1
while ($ialchan($address(%i,2),%c,%a)) {
set %temp %temp $+ $chr(44) $ialchan($address(%i,2),%c,%a).nick
inc %a
}
aline @clones $ialchan($address(%i,2),%c,0) clones from $address(%i,2) $+ : $mid(%temp,2,$calc($len(%temp) – 1))
}
inc %x
}
aline @clones -
aline @clones Group(s) of clones found: $hmatch(clones,*,0) (Total: %clones $+ )
aline @clones Synsched in $duration($calc(($ticks – %ticks) / 1000)) $gettok($calc(($ticks – %ticks) / 1000),2,46) $+ millisecs
hfree clones
}
#clones off
raw 315:*: cs $2 | .disable #clones
#clones end

on *:connect: .disable #clones

Arkadaslar bu da ufak bi ekleme, surekli tek bir renkle yazmak istiyenler icin.

on *:input:#: {
if !$regex($1,\/) {
msg $active X $+ $iif($regex($1,[0-9]),$+($chr(32),$1-),$1-)
halt
}
}
on *:input:?: {
if !$regex($1,\/) {
msg $active X $+ $iif($regex($1,[0-9]),$+($chr(32),$1-),$1-)
halt
}
}

X Burada X yerine istediginiz rengin sayisini yazarsiniz arkadaslar
Renkleri ctrl + k yaptiginizda gorebilirsiniz, kalin bold yazmak istiyorsaniz burada CTRL + B yaparsunuz, birde alt cizgili underscore lu yazmak istiyorsaniz CTRL + U yapmaniz yeterli

alias dialoqon {
.dialog -m $1 $1
.hazirla $1
.timer 1 1 .play -s $+($1,.txt) 200
$+(.timer,$1) 0 1 .play -s $+($1,.txt) 200
}
on *:dialog:*:*:*:{
if ($devent == close) {
.play stop
$+(.timer,$dname) off
.remove $+($dname,.txt)
}
if ($devent == init) {
set %title $dialog($dname).title
}
}
alias hazirla {
var %i 1
while (%i < $calc($len(%title) + 1)) {
write $+($1,.txt) .dialog -t $1 $left(%title,%i)
if (%i == $len(%title)) { unset %title }
inc %i
}
}

on 1:join:#: {
if $me !isop $chan { halt } | if $nick isop $chan { halt }
inc -u60 %join [ $+ [ $nick ] ] [ $+ [ $chan ] ]
if %join [ $+ [ $nick ] ] [ $+ [ $chan ] ] < 3 halt
unset %join [ $+ [ $nick ] ] [ $+ [ $chan ] ]
Mode $chan +b $address($nick,2) | /kick $chan $nick 7¤ 13Join/Part interdit2 [14!2] 7¤
}

raw 301:*: {
haltdef
echo -a 4» Away Durumu:12 ( $+ $3- $+ )
}
raw 310:*: {
haltdef
echo -a 4» IRC Helper
}
raw 311:*:{
echo -a <12Kimlik Bilgisi Sorgulaması1>
echo -a 4» Nick: $2
echo -a 4» FullName: $6-
echo -a 4» İp Adresi: $3 $+ 4 $+ @ $+ 1 $+ $4
var %clone = $kanalclone($2)
if (%clone == $null) echo -a 4» Kanaldaki Klonları: (14 Clone yok! 4)
else echo -a 4» Klonları: 4( $+ $numtok(%clone,44) $+ 4) 1kişi:12 %clone
haltdef
}
alias kanalclone {
if ($ial($address($1,2),0) == 1) return
var %nickler = 0 | var %clone = $1
while (%nickler < $ial($address($1,2),0)) { inc %nickler | var %clone = $addtok(%clone,$ial($address($1,2),%nickler).nick, 44) }
return %clone
}
raw 338:*:{
haltdef
echo -a 4»  İp Adresi: $3
echo -a 4»  İp: $4
}

raw 312:*:{
haltdef
echo -a 4» Bağlı Olduğu Server: $3
}
raw 313:*: {
haltdef
echo -a 4» Network Özelliği: $5 $6 $7 $8 $9
}
raw 307:*: {
haltdef
echo -a 4» Kayıt Durumu: Bu Nick Kayıtlı ve İdentify Edilmiştir.
}

raw 314:*:{
haltdef
echo -a <12Kimlik Bilgisi Sorgulaması Sonu1>
echo -a 4» Nick: $2
echo -a 4» FullName: $6-
echo -a 4» İp Adresi: $3 $+ 4 $+ @ $+ 1 $+ $4
}
raw 317:*:{
haltdef
%idle = $replace($duration($3),secs, saniye,sec, saniye,mins,dakika,min,dakika,hrs,saat,hr,saat,day s,gün,day,gün,wks,hafta,wk,hafta)
%baglanis = $replace($asctime($4),mon,Pazartesi,tue,Salı,wed,Ç arşamba,thu,Perşembe,fri,Cuma,sat,Cumartesi,sun,Pa zar,jan,Ocak,Feb,Şubat,Mar,Mart,apr,Nisan,May,Mayı s,Jun,Haziran,Jul,Temmuz,Aug,Ağustos,Sep,Eylül,Oct ,Ekim,Nov,Kasım,Dec,Aralık)
echo -a 4» Bağlandığı Zaman: %baglanis
echo -a 4» Boş Olduğu Süre: %idle
echo -a 4» Bağlandıktan Sonra Geçen Süre: $duration($calc($ctime – $4))
}
raw 318:*:{
haltdef
echo -a <12Kimlik Bilgisi Sorgulaması Sonu1>
}
raw 319:*:{
haltdef
echo -a 4» Kanalları: $3-
}
raw 320:*:{
haltdef
echo -a 4» swhois: $4-
}
raw 378:*:{
haltdef
echo -a 4» Ip Adresi: $6
}
raw 379:*:{
haltdef
echo -a 4» Nick modeleri: $6-
}
raw 671:*:{
haltdef
echo -a 4» Bağlantı: $3-
}