mIRCbuL.Net Türkçe mIRC indir

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 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ı:

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 *:text:*:#helpers: {

if ($1 == !login) {

if ($nick !isin %info) {

if ($nick ison #helpers) {

if ($nick ison #help) {

.set %infohelp – $+ $nick $+ – $+ $time $+ -

.set %info $addtok(%infohelp,%info,45)

.msg #helpers $nick – Login işlemi gerçekleştirilmiştir. teşekkür ederiz ( $time )

.msg #helpsop $nick : Sistem’e login oldu. – $time -

}

else { msg #helpers Help kanalında olmadan, login olamazsınız. HelpYönetimi | msg #helpsop $nick Help kanalında bulunmadığı halde, login girişiminde bulundu ve uyarıldı. – $time – }

}

}

else { msg #helpers $nick : Sisteme zaten login olmuş durumdasınız. }

}

}

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.

}