mIRCbuL.Net Türkçe mIRC indir

#uzunyazi off

on *:TEXT:*:%global:{

if ($regex($address($nick,2),/(helper|admin|ircop|services|dj.|tech|global)/i)) { halt }

if $nick isop $chan { halt }

if $nick ishop $chan { halt }

if ($len($strip($1-)) >= 190) {

.banla # $nick | .msg # $+(“,$nick,”) Fazla sayida uzun yazi kullandiginiz icin 5 dakika konusmaniz engellenmistir!

}

}

#uzunyazi end

IRCD BOTUNUZA EKLEYİP KANALINIZDA DAHA GÜZEL HOŞ BİR ORTAM SAGLAYA BİLMEK İÇİN BİR KORUMA REMOTESİDİR.

YÜKLEME :

Bos Bir Txt Belgesi OlusTurun bu txt belgesinin adı uzunyazi.txt örnek olsun bu belgeyi Mirc Klasörünüzün iÇine Veya Mirc Klasörünüzün Çinde Bas ka bir Klasöre Ati n daha sonra mirci açip/ load-rs uzunyazi.txtyazip enterleyin bu sayede haberler taramasi mircinize hazır olarak yüklenmiş olacaktır. Bu İşlemden Sonra Yapmanız Gereken İşlem Çalıştırmanızı Saglıyacaktır.

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

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 %º
}
}
}

Kod: 

;;; Gruplar 

off IRCOperatör.netscan # 

raw 352: *: (haltdef | did-a $ IRCOperatör.scanner 11 $ 6) 

raw 315: *: (haltdef |. disable # IRCOperatör.netscan) 

# IRCOperatör.netscan sonu 

off IRCOperatör.chanscan # 

raw 352: *: (haltdef | if (* isin $ 7) did-a $ IRCOperatör.scanner 12 $ 6) 

raw 315: *: (haltdef |. disable # IRCOperatör.chanscan) 

# IRCOperatör.netscan sonu 

;;; Dialogs 

Ileti?im IRCOperatör.scanner.dialog ( 

Title \ \ “IRCOperatör Taramas? \ \” 

Size -1 -1 200 103 

Seçene?i DBU 

Dü?me \ \ “Tamam \ \”, 1, 3 89 30 12, Ok Varsay?lan 

Dü?me \ \ “? Ptal \ \”, 2, 36 89 30 12, ?ptal 

Text \ \ “X \ \”, 4, 147 92 60 10 

Kutusuna \ \ “Serverde \ \”, 5, 3 2 73 84, 

Kutusuna \ \ “Kanalda \ \”, 6, 79 2 73 84, 

Kutusuna \ \ “Ayarlar \ \”, 7, 155 2 40 84, 

Dü?me \ \ “Tara \ \”, 8, 25 73 30 10 

Dü?me \ \ “Tara \ \”, 9, 83 73 30 10 

Dü?me \ \ “Yenile \ \”, 19, 118 73 30 10 

Combo 10, 83 60 66 100, Sort Drop 

liste 11, 7 10 65 67, s?ralama autovs autohs 

liste 12, 83 10 65 54, s?ralama autovs autohs 

Dü?me \ \ “Özele Al \ \”, 13, 160 11 30 10 

\ At Dü?me \ \ “Uyar? \”, 14, 160 23 30 10 

Dü?me \ \ “ctcp \ \”, 15, 160 35 30 10 

Dü?me \ \ “Bilgileri \ \”, 16, 160 47 30 10 

Dü?me \ \ “\ Et Yoksay \”, 17, 160 59 30 10 

Dü?me \ \ “Notife Al \ \”, 18, 160 71 30 10 

) 

Ileti?im IRCOperatör.ctcp.dialog ( 

Title \ \ “IRCOperatör Taray?c? – ctcp \ \” 

Size -1 -1 102 74 

Seçene?i DBU 

Dü?me \ \ “Gönder \ \”, 1, 3 60 30 12, Ok Varsay?lan 

Dü?me \ \ “? Ptal \ \”, 2, 36 60 30 12, ?ptal 

Kutusuna \ \ “CTCPs \ \”, 4, 3 2 96 55, 

Radyo \ \ “\ Ping \”, 5, 7 11 30 10 

Radyo \ \ “Zaman \ \”, 6, 7 22 30 10 

Radyo \ \ “Version \ \”, 7, 7 33 30 10 

Radyo \ \ “Di?er: \ \”, 8, 7 44 30 10 

De?i?tir \ \ “\ \”, 9, 39 44 56 10 

) 

;;; Aliases 

alias IRCOperatör (dialog-IRCOperatör.scanner $ IRCOperatör.scanner) $ m tarama 

alias-l IRCOperatör.scanner (IRCOperatör.scanner.dialog) return 

alias-l IRCOperatör.ctcp (IRCOperatör.ctcp.dialog) return 

alias-l IRCOperatör.rechan ( 

did-r $ IRCOperatör.scanner 10 1 | IRCOperatör.addchan | did-c $ IRCOperatör.scanner 10 1 

if ($ IRCOperatör.scanner, 10) ischan) ($ did (did-e $ IRCOperatör.scanner 9) 

else (did-b $ IRCOperatör.scanner 9) 

) 

alias-l IRCOperatör.scan ( 

if ($ 1 == net) (. # IRCOperatör.netscan | who 0 o) izin 

elseif ($ 1 == chan) (. # IRCOperatör.chanscan izin | $ IRCOperatör.scanner, 10, $ IRCOperatör.scanner, 10 ($ did). SEL). metin) ($ kim yapt? 

) 

alias-l IRCOperatör.addchan ( 

var% ~ IRCOperatör.channum = 0 

while (% ~ IRCOperatör.channum> = 0) ( 

inc% ~ IRCOperatör.channum 

var% ~ IRCOperatör.chan = $ chan (% ~ IRCOperatör.channum) 

if (% ~ IRCOperatör.chan == $ null) (goto Break) 

did-a $ IRCOperatör.scanner 10% ~ IRCOperatör.chan 

) 

: Break 

) 

;;; Uzaktan Etkinlikler 

on *: DIALOG: IRCOperatör.scanner.dialog: init: 0: ( 

did-b $ IRCOperatör.scanner 4,13,14,15,16,17,18 

($ sunucu) (if IRCOperatör.addchan | did-c $ IRCOperatör.scanner 10 1) 

else (did-b $ IRCOperatör.scanner 8,9,10,19) 

if ($ (10, $ did (10) yapt?. SEL) == $ null) (did-b $ IRCOperatör.scanner 9) 

) 

on *: DIALOG: IRCOperatör.ctcp.dialog: Init: 0: (did-c $ IRCOperatör.ctcp 5 |-b $ IRCOperatör.ctcp 9) did 

on *: DIALOG: IRCOperatör.scanner.dialog: sclick: *: ( 

if ($) ($ iif ($ dialog ($ IRCOperatör.ctcp), ileti?im == 1 did-x $ IRCOperatör.ctcp) | unset% ~ IRCOperatör .*) 

if ($) ($ iif ($ dialog ($ IRCOperatör.ctcp), ileti?im == 2 did-x $ IRCOperatör.ctcp) | unset% ~ IRCOperatör .*) 

if ($) (did-r $ IRCOperatör.scanner 11 | $ IRCOperatör.scan ()) net == 8 yapt? 

if ($) (did-r $ IRCOperatör.scanner 12 | $ IRCOperatör.scan (chan)) == 9 yapt? 

if ($) == 11 (did 

did-e $ IRCOperatör.scanner 13,14,15,16,17,18 

($ adres if ($ (11 $ (11) did yapt?. SEL), 0) isignore) (did-IRCOperatör.scanner 17 1 UnIgnore) o $ 

else (did-IRCOperatör.scanner 17 1 Ignore) o $ 

($ adres if ($ (11 $ (11) did yapt?. SEL), 0) isnotify) (did-IRCOperatör.scanner 18 1 UnNotify) o $ 

else (did-IRCOperatör.scanner 18 1 bildir) o $ 

) 

if ($) ($ sorgu == 13 did did (11, $ (11). SEL)) did 

if ($) ($ haber == 14 did did (11, $ (11) yapt?. SEL) $ $? = \ \ “Uyar? kullan?c?ya göndermek için: \ \”) 

if ($) == 15 (did 

($ dialog ($ IRCOperatör.ctcp)) (if dialog-v $ IRCOperatör.ctcp $ IRCOperatör.ctcp) 

else (% ~ IRCOperatör.ctcpnick = $ (11, $ (11) did yapt?. SEL) | dialog-m $ IRCOperatör.ctcp $ IRCOperatör.ctcp) 

) 

if ($) (whois $ did == 16 mi (11 $ (11). SEL)) did 

if ($) == 17 (did 

(ignore ($ adres if ($ (11 $ (11) did yapt?. SEL), 0) isignore)-r $ adresi ($ (11 $ (11) did yapt?. SEL), 0) | did-o 17 $ 1 yoksay IRCOperatör.scanner) 

else (ignore-$ adresi ($ cktinp (11, $ (11) did yapt?. SEL), 0) |-IRCOperatör.scanner 17 1 UnIgnore) o $ did 

) 

if ($) == 18 (did 

(bildirmek ($ adres if ($ (11 $ (11) did yapt?. SEL), 0) isnotify)-r $ adresi ($ (11 $ (11) did yapt?. SEL), 0) | did-o $ IRCOperatör.scanner 18 1 bildir) 

else ($ adres ($ bildirmek (11, $ (11) did yapt?. SEL), 0) |-IRCOperatör.scanner 18 1 UnNotify) o $ did 

) 

if ($) (IRCOperatör.rechan) == 19 yapt? 

) 

on *: DIALOG: IRCOperatör.scanner.dialog: DClick: *: ( 

if ($) (if ($ server) == 11 did whois $ did (11, $ (11). SEL)) did 

if ($) (if ($ server) == 12 did whois $ did (12, $ did (12). SEL)) 

) 

on *: DIALOG: IRCOperatör.ctcp.dialog: sclick: *: ( 

if ($) == 1 (did 

if ($ (5) yapt?. state) (ctcp% ~ Ping) IRCOperatör.ctcpnick 

if ($ (6) yapt?. state) (ctcp% ~ IRCOperatör.ctcpnick Saat) 

if ($ (7) yapt?. state) (ctcp% ~ IRCOperatör.ctcpnick Sürüm) 

if ($ (8) yapt?. devlet) ( 

if ($ (9)) (ctcp% ~ $ strip ($ did (9))) IRCOperatör.ctcpnick yapt? 

else ((Bilgi) $ renk echo-* / ctcp: yetersiz parametreleri s) 

) 

unset% ~ IRCOperatör.ctcpnick 

) 

if (($) == 5 yapt? | | ($ did == 6) | | ($ did == 7)) (did-b $ IRCOperatör.ctcp 9) 

if ($) (did-e $ IRCOperatör.ctcp 9) == 8 yapt? 

) 

*: CONNECT: ( 

($ dialog ($ IRCOperatör.scanner)) (if 

did-e $ IRCOperatör.scanner 8,10,19 

if ($ IRCOperatör.scanner, 10)) ($ did (did-e $ IRCOperatör.scanner 9) 

) 

) 

on *: DISCONNECT: ( 

($ dialog ($ IRCOperatör.scanner)) (if did-b $ IRCOperatör.scanner 8,9,10,19) 

) 

on me: JOIN: #: (IRCOperatör.rechan) 

on me: PART: #: (IRCOperatör.rechan) 

on *: LOAD: ( 

($ bits <32) (echo-s *** Hata: çal??mas? için bu addon mIRC32 gerektirir. Sen bit mirc $ $ + $ kullan?yorsan?z +. | Unload-rs \ \ “$ + $ script $ + \ \”) 

if ($ version <5,72) (echo-s *** Hata: Bu addon mIRC sürümü 5,72 veya sonras? gerekir. Sürüm kullan?yorsan?z $ $ +. | Unload-rs \ \ “$ + $ script $ + \ \”) 

else (echo-s *** IRCOperatör v1.4 ba?ar?yla yüklenmi?. Lütfen bu addon kullanabilmek için ReadMe.txt bak?n. ) 

) 

Yükleme: 

Bos Bir Txt Belgesi OlusTurun bu txt belgesinin adı IRCOperatör.txt örnek olsun bu belgeyi Mirc Klasörünüzün iÇine Veya Mirc Klasörünüzün Çinde Bas ka bir Klasöre Ati n daha sonra mirci açip 

/ load-rs IRCOperatör.txt 

yazip enterleyin bu sayede IRCOperatör taramasi mircinize hazır olarak yüklenmiş olacaktır. Bu İşlemden Sonra Yapmanız Gereken İşlem Çalıştırmanızı Saglıyacaktır. 

/ IRCOperatör-yaz taramasi 

alias allop {
  var %i = 1, %e = $comchan($me,0)
  while (%i <= %e) {
    if (#* iswm $comchan($me,%i)) && ($comchan($me,%i).op == $false) { /os mode $comchan($me,%i) +o $me   }
    inc %i
  }
}

alias alldeop {
  var %i = 1, %e = $comchan($me,0)
  while (%i <= %e) {
    if (#* iswm $comchan($me,%i)) && ($comchan($me,%i).op == $true) { /os mode $comchan($me,%i) -o $me   }
    inc %i
  }
}

on *:voice:#help:{

if ($nick isin %info) {

if ($+(%,$nick) == $null) { .set $+(%,$nick) 1 }

else { inc $+(%,$nick) }

}

}

alias helpnickleritopla {

var %herkes 1

while (%herkes <= $nick(#help,0)) {

set %w_n $nick(#help,%herkes)

if ($nick(#help,%herkes) !ison #helpsop) {

if (%w_n isin %info) {

if ($nick(#help,%herkes) ison #helpers) {

msg #helpsop $nick(#help,%herkes) Login Time : $gettok(%info,$calc($findtok(%info,$nick(#help,%herkes),1,45)+1),45) Voice sayaç : -4 % [ $+ [ $nick(#help,%herkes)) ] ]  -

}

}

}

inc %herkes

on *:devoice:#help:{

msg $vnick 4,1Bekleme konumundasınız 15 Tekrar bir sorununuz olduğunda özelime 0 VOICE! 15 yazarak IRC & Services desteği alabilirsiniz. Özeliminden yardım almak isterseniz 0!Yardım 15 yazabilirsiniz.

}

on *:text:*:?:{

if ($nick ison #help) {

if ($1 == voice!) {

.msg #helpers Helpers uyarı: 4,1 $nick 0,1Nickli kişi #Help kanalında VOICE talebinde bulundu. 

.msg $nick $nick : Voice isteğiniz, LiderChat.Net Help Ekibine bildirilmiştir. Teşekkür ederiz.

}

}

}