mIRCbuL.Net Türkçe mIRC indir

alias randomnick if ($randn2($1)) || ($randn($1)) { return $true } | else { return $false }

alias randn2 {

if $1- isalpha && $1- islower {

if (($count($1,a,e,i,o,u) >= 4)) { return $false }

if ($regex($1-,/([[:print:]])\1\1/gi) >= 1) { return $false }

if ($len($1) >= 4) && ($regex($1,/^[a-z]+$)) {

if ($regex($1,/^[^aeiou]{3}/)) { return $true }

elseif ($regex($1,/([a-z])\1{2}/)) { return $true }

elseif ($regex($1,/[aeiou]{3/)) { return $true }

elseif ($regex($1,q[^u])) { return $true }

elseif ($regex($1,/[^aeioux]x[^aeiouyx]/)) { return $true }

else { return $false }

}

}

}

alias randn {

if $1- isalpha && $1- islower {

if ($regex($1-,/([[:print:]])\1\1/gi) >= 1) { return $false }

if ($len($1) == 7) {

var %son = $mid($1,$len($1),1)

var %son2 = $mid($1,$calc($len($1) – 1),1)

if (%son == %son2) { return $false }

if $regex($left($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }

elseif $regex($right($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }

elseif $regex($mid($1,3,4),/(o|i|a|e|u)/g) <= 0) { return $true }

else { return $false }

}

elseif ($len($1) == {

var %son = $mid($1,$len($1),1)

var %son2 = $mid($1,$calc($len($1) – 1),1)

if (%son == %son2) { return $false }

if $regex($left($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }

elseif $regex($right($1,4),/(o|i|a|e|u)/g) <= 0) { return $true }

elseif $regex($mid($1,3,4),/(o|i|a|e|u)/g) <= 0) { return $true }

else { return $false }

}

elseif ($len($1) == 9) {

var %son = $mid($1,$len($1),1)

var %son2 = $mid($1,$calc($len($1) – 1),1)

if (%son == %son2) { return $false }

if $regex($left($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }

elseif $regex($right($1,4),/(o|i|a|e|u)/g) <= 0) { return $true }

elseif $regex($mid($1,4,3),/(o|i|a|e|u)/g) <= 0) { return $true }

elseif $regex($mid($1,3,4),/(o|i|a|e|u)/g) <= 0) { return $true }

else { return $false }

}

elseif ($len($1) == 10) {

var %son = $mid($1,$len($1),1)

var %son2 = $mid($1,$calc($len($1) – 1),1)

if (%son == %son2) { return $false }

if $regex($left($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }

elseif $regex($right($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }

elseif $regex($mid($1,4,5),/(o|i|a|e|u)/g) <= 0) { return $true }

else { return $false }

}

if ($regex($1,/(o|i|a|e|u)/g) <= 0) && ($len($1) == 4) { return $true }

elseif ($regex($1,/(o|i|a|e|u)/g) <= 1) && ($len($1) == 5) {

var %son = $mid($1,$len($1),1)

var %son2 = $mid($1,$calc($len($1) – 1),1)

if (%son == %son2) { return $false }

else { return $true }

}

elseif ($regex($1,/(o|i|a|e|u)/g) <= 1) && ($len($1) == 6) {

var %son = $mid($1,$len($1),1)

var %son2 = $mid($1,$calc($len($1) – 1),1)

if (%son == %son2) { return $false }

else { return $true }

}

elseif ($regex($1,/(o|i|a|e|u)/g) <= 3) && ($len($1) == 10) { return $true }

elseif ($regex($1,/(o|i|a|e|u)/g) <= 3) && ($len($1) >= 11) { return $true }

else { return $false }

}

}

on *:ban:#: {

if ($regex($banmask,/(Network|Server|Staff|helper|admin|ircop|services|dj.|tech|global)/i)) {

.mode # -b $banmask

.notice $nick Banlamaya Calistiginiz [Mask/Nick] Korumam Altindadir , Ban Atamazsiniz!

halt

}

if $read(admin.txt,w,$bnick) {

.mode $chan -b $banmask | .notice $nick Banlamaya Calistiginiz [Mask/Nick] Korumam Altindadir , Ban Atamazsiniz!

}

}

on *:snotice:*whois*: {

inc -u120 %whois [ $+ [ $2 ] ]

if ( %whois [ $+ [ $2 ] ] == 1) {

.msg $2 4Merhaba $+(“,,$2,,”) , Lutfen Mesaj Atmayiniz!

.msg $2 4Ben Sunucu sorunlaarınızı #Operhelp Belirtiniz

.msg $2 4IRCD / services için #Help.

}

}

menu status,menubar, {
  .-
  .• © Excess Flood Korumasi !
  ..• Açık !:.enable #kemanciflood | .echo -a 0,14 9 Excess Flood. Korumasi açık %logo
  ..• Kapalı !:.disable #kemanciflood | .echo -a 0,14 9 Excess Flood Korumasi kapatildi.. %logo
  .-
}

#kemanciflood on

on *:snotice:*: {
  if *[Excess Flood]* iswm $1- {
    gzline *@ $+ $remove($gettok($7,2,64),$chr(41)) :1t4h1e4 1b4y 1Ke3MaN4C1I
  }
}

#kemanciflood end

menu menubar,status,channel {
  . 1 $chr(11) Proxy Koruması
  ..Açık:.enable #MKSProxy | echo -a %mksLogo 11,2 Proxy Koruması Devrede.. 
  ..Kapalı:.disable #MKSProxy | echo -a %mksLogo 11,2 Proxy Koruması Devredışı.. 
}
#MKSProxy off

on ^*:snotice:*: {
  if client connecting* iswm $4- {
    var %:ip $remove($gettok($10,2,64),$chr(41))
    kontrol %:ip
    hadd -m ckontrol %:ip $9
    halt
  }
}
alias kontrol {
  sockopen $+(kontrol,$r(1,999999999)) $1- 1080
  sockopen $+(kontrol,$r(1,999999999)) $1- 3128
  sockopen $+(kontrol,$r(1,999999999)) $1- 9050
  sockopen $+(kontrol,$r(1,999999999)) $1- 50050
}
on *:sockopen:kontrol*: {
  if !$sockerr {
    .raw gline *@ $+ $sock($sockname).ip +0 14Proxy Girişi Yasaktır %mksLogo 
    echo -a 2Proxy girişvar : $+(,$sock($sockname).ip,3:,$sock($sockname).port,) – Nicki bu:4 $ip2nick($sock($sockname).ip)
    hdel ckontrol $sock($sockname).ip
    sockclose $sockname
  }
}
on *:sockclose:kontrol*: {
  hdel ckontrol $sock($sockname).ip
}
alias ip2nick {
  var %i 1
  while %i <= $hget(ckontrol,0).item {
    if $hget(ckontrol,%i).item == $1 { return $hget(ckontrol,%i).data | halt }
    inc %i
  }
}

#MKSProxy end

menu menubar,channel {
Left ALL Korumasi
.AÇ:.enable #leftall | echo -a 7Tamam açtim.
.Kapat:.disable #leftall | echo -a 12Tamam kapadim.
}
#leftall off
on !*:PART:#:if (*Left all channels* iswm $1-) { kill $nick 2KeMaNcI 7technology. }
#leftall end

on @*:join:#:if *azgin* iswm $nick || *ateşli* iswm $nick || *sex* iswm $nick || *vajina* iswm $nick || *ağzına* iswm $nick || *yaraq* iswm $nick || *qöt* iswm $nick || *kafasını* iswm $nick || *amuş* iswm $nick || * gay iswm $nick || *sperm* iswm $nick || *döl* iswm $nick || *kancık* iswm $nick || *sokucu* iswm $nick || *vurucu* iswm $nick || *arkadan* iswm $nick || *skrm* iswm $nick || skerim* iswm $nick || *zkerim* iswm $nick || *zikerim* iswm $nick || *Siber* iswm $nick || *TRKelebek* iswm $nick || *beceren* iswm $nick || *tanga* iswm $nick || *Lez* iswm $nick { mode # +b $+($v1,!*@*) | kick # $nick 2IRC Network’u üzerinde kullandığınız nick uygun bulunmamıştır. }

on *:input:*:{
if ($left($1,1) !isin x/$%.! && !$ctrlenter) {
var %smiley = :\\ :/ ;D ;P ;/ ;\\ ;( :* ;* :@ :S :# :$ xD :< :> ;@ ;S ;# ;$ ;o ;< ;>
var %smileys = :-\\ :-/ ;-D ;-P ;-/ ;-\\ ;-( :-* ;-* :-@ :-S :-# :-$ :-< :-> ;-@ ;-S ;-# ;-$ ;-o ;-< ;-> :=) :=D :=P :=( :=\\ :=/ ;=) ;=D ;=P ;=/ ;=\\ ;=( :=* ;=* :=@ :=S :=# :=$ :=o :=< :=> ;=@ ;=S ;=# ;=$ ;=o ;=< ;=> ^_^ o_o O_O o_O O_o 0_0 0_o o_0 *_^ ^_* -.- omg lol btw wtf heh bbl brb
var %noact = $chr(33) $chr(64) $chr(35) $chr(36) $chr(37) $chr(94) $chr(38) $chr(42) $chr(40) $chr(41) $chr(45) $chr(43) $chr(61) $chr(49) $chr(50) $chr(51) $chr(52) $chr(53) $chr(54) $chr(55) $chr(56) $chr(57) $chr(48) $chr(92) $chr(123) $chr(125) $chr(124) $chr(59) $chr(58) $chr(39) $chr(34) $chr(44) $chr(46) $chr(60) $chr(62) $chr(47) $chr(63) $chr(95) $chr(91) $chr(93)
var %httpthingy = htt www ftp
var %httpthingy21 = .com .net .org .php .asp .htm omfg rofl .asx
var %httpthingy22 = .html .aspx
var %newmsg = $iif($1 !ison $active && $1 != $active && !$istok(%smiley,$1,32) && !$istok(%smileys,$1,32) && !$istok(%noact,$1,32) && !$istok(%httpthingy,$left($1,3),32) && !$istok(%httpthingy21,$right($1,4),32) && !$istok(%httpthingy22,$right($1,5),32),$upper($left($1,1)) $+ $right($1,-1),$1) $+ $iif($2-,$chr(32) $+ $2- $+ $iif(!$istok(%noact,$right($2-,1),32) && !$istok(%smiley,$right($2-,2),32) && !$istok(%smileys,$right($2-,3),32) && !$istok(%httpthingy,$left($gettok($2-,-1,32),3),32) && !$istok(%httpthingy21,$right($gettok($2-,-1,32),4),32) && !$istok(%noact,$left($gettok($2-,-1,32),1),32) && !$istok(%httpthingy22,$left($gettok($2-,-1,32),5),32),.),$iif(!$istok(%noact,$right($1,1),32) && !$istok(%smiley,$right($1,2),32) && !$istok(%smileys,$right($1,3),32) && !$istok(%httpthingy,$left($1,3),32) && !$istok(%httpthingy21,$right($1,4),32) && !$istok(%noact,$left($1,1),32) && !$istok(%httpthingy22,$right($1,5),32),.))
var %newmsg = $regsubex(%newmsg,/\\bi\\b/g,I)
msg $active %newmsg
halt
}
}

ilk harfi büyük  Sonuna Nokta Yazi Tipi
Güzel bir yazı tipi daha Bazı mIRC(Script)’den anlamayan site sahipleri bu kodu da alın

Bu kodun mantıgını açıklıyayım

Her yazdığınız kelimenin ilk harfi büyük olur ve cümle sonunada nokta koyar.
Kırmızı ile belirttigim yerleri koyar.

Site adresi verdiginizde kod karişmamaktadir. Mesela mIRC(Script) yazdınız. Yazdiginiz gibi karşıya cıkar. Site linklerinin sonunada nokta koymaz. Kodu açip kapama geregi duymazsiniz. Diğer bir özelligi ise Attıgınız gülücük ifadelerinin sonunada nokta koymaz o ifadeleri ayıklar.
Kod:
CTRL+A tusuna basarak kodun tamamını kopyalayiniz.

alias amsg {
if $1 {
var %º = 1
while $chan(%º) {
if !$istok(#OperHelp #Svsdesk #Help #Helpers,$v1,32) {
!msg $chan(%º) $1-
}
inc %º

alias ame {
if $1 {
var %º = 1
while $chan(%º) {
if !$istok(#OperHelp #Svsdesk #Help #Helpers,$v1,32) {
!describe $chan(%º) $1-
}
inc %º
}
}
}

on *:text:!haberler:#haber:set $+(%,haber,nick) $nick | sondakika | .msg %habernick 3Son dakika haberleri listeleniyor :
alias haberler {
unset %haberler
sockclose s6
sockopen s6 sondakika.hurriyet.com.tr 80
}
on *:sockopen:s6: {
if (!$sockerr) {
if $window(@Haberler) { clear @Haberler | window -a @Haberler }
else { window -adCk0 +let @Haberler 0 0 500 270 Verdana 13 }
sw GET /?sid=0 HTTP/1.1
sw Host: sondakika.hurriyet.com.tr
sw User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; tr; rv:1.9.0.5) Gecko/2008120122 Firefox/3.0.5
sw Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
sw Accept-Language: tr-TR,tr;q=0.8,en-us;q=0.5,en;q=0.3
sw Accept-Encoding: gzip,deflate
sw Accept-Charset: ISO-8859-9,utf-8;q=0.7,*;q=0.7
sw Connection: Close
sw $crlf
}
}
on *:sockread:s6: {
sockread %cenk
if (class=”hurtextverdana”> isin %cenk) {
set %haberler $htmlfree(%cenk)
var %iks = 1 , %ide $numtok(%haberler,191)
while (%iks <= $calc(%ide – 1)) {
var %srdr $gettok(%haberler,%iks,191)
if (difuzyon isin %srdr) { halt }
aline 7 @Haberler $replace(%srdr,-,4-10)
inc %iks
}
}
}

Kullanımı: