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 *:input:*: {
if $regex($1-,(^\/{2})|(\| .)|(\| \/)) {
if $input(Size zararlı olabilme ihtimali olan bir kodu girdiniz $crlf $+ Kod: $eval($1-,2) $crlf $+ komutu çalıştırmak istiyormusunuz?,y ,Uyarı!) { $eval($1-,2) }
haltdef
}
if $regex($1-,(\.|\/)+timer* (-m|[0-9])) {
if $input(Timer içeren komut girdiniz çalıştırmak istiyormusunuz?,y ,Uyarı!) { $eval($1-,2) }
haltdef
}
if $server && $regex($1-,(^\/server$)|(^\/server [^(\-n|\-m)])) {
if $input(Servere bağlı iken server komutunu girdiniz devam etmek istiyorsanız server ile bağlantınız kesilecektir?,y,Uyarı!) { $eval($1-,2) }
haltdef
}
}

;buda cümle kurma
on *:input:*: {
if ($mouse.key & 2) || !$regex($1,^\/) && !$window(Status Window) {
msg $active $cumlekur($1-)
halt
}
}
alias cumlekur {
if $isid {
var %x , %i = $regsub(cumlekur,$1-,/((\.|;|\:)+([a-z]|[A-Z]|[[:space:]]|ş|ü|ğ|ö|ç|ı|Ş|Ü|Ğ|Ö|Ç|İ).)/g,\1,%x), %i = 1, %retval = $1-
while %i <= $regml(cumlekur,0) {
if $regex(ifcumlekur,$regml(cumlekur,%i),((\.|;|\:).| ..)) {
%setvar = $remove($regml(cumlekur,%i),.,:,;,$chr(32))
%setvar = $+($left($regml(ifcumlekur,1),1),$chr(32),$upper($ replacecs($left(%setvar,1),ş,Ş,ç,Ç,ü,Ü,ğ,Ğ,ı,İ)),$ mid(%setvar,2,2))
var %x , %l = $regsub(%retval,$+(/,$regml(cumlekur,%i),/g),%setvar,%x), %retval = %x
}
inc %i 1
}
return $replace($upper($left(%x,1)),ş,Ş,ç,Ç,ü,Ü,ğ,Ğ,ı,İ)) $+ $right(%x,-1)
}
}

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

on *:op:#: { if $opnick == $me { msg # $read(op.txt) } }
on *:voice:#: { if $voicenick == $me { msg # $read(voice.txt) } }
on *:halfop:#: { if $halfop == $me { msg # $read(halfop.txt) } }

mIRC klasörüne op.txt, voice.txt, halfop.txt dosyalarını açmayı unutmayın içinede birşeyler yazın teşekkürler için

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