mIRCbuL.Net Türkçe mIRC indir

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

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

raw 301:*: {
  haltdef
  echo -a Away :12 ( $+ $3- $+ )
}
raw 307:*: {
  haltdef
  echo -a  15»14»1» Kayıt Durumu: Bu Nick Kayıtlı ve İdentify Edilmiştir.
}
raw 310:*: {
  haltdef
  echo -a 15»14»1» IRC Helper
}
raw 311:*:{
  haltdef
  echo -a __________________________________________
  echo -a ————-Whois Başlangıcı————-  
  echo -a ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
  echo -a  15»14»1» Nick: $2
  echo -a  15»14»1» FullName: $6-
  echo -a  15»14»1» İp Adresi: $3 $+ 4 $+ @ $+ 1 $+ $4
}
raw 312:*:{
  haltdef
  echo -a  15»14»1» Bağlı Olduğu Server: $3
}
raw 313:*: {
  haltdef
  echo -a  15»14»1» Network Özelliği: $5 $6 $7 $8 $9
}
raw 314:*:{
  haltdef
  echo -a __________________________________________
  echo -a ————-Whois Başlangıcı————-
  echo -a ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
  echo -a  15»14»1» Nick: $2
  echo -a  15»14»1» FullName: $6-
  echo -a  15»14»1» İ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,days,gün,day,gün,wks,hafta,wk,hafta)
  %baglanis = $replace($replace($asctime($4),mon,Pazartesi,tue,Salı,wed,Çarşamba,thu,Perşembe,fri,Cuma,sat,Cumartesi,sun,Pazar,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),Cumarttesi,Cumartesi)
  echo -a  15»14»1» Bağlandığı Zaman: %baglanis
  echo -a  15»14»1» Boş Olduğu Süre: %idle
  echo -a  15»14»1» Bağlandıktan Sonra Geçen Süre: $duration($calc($ctime – $4))
}
raw 318:*:{
  haltdef
  echo -a __________________________________________
  echo -a —————Whois Bitişi—————
  echo -a ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
}
raw 319:*:{
  haltdef
  echo -a  15»14»1» Kanalları: $3-
}

raw 338:*:{
  haltdef
  echo -a  15»14»1» Gerçek İp Adresi: $3
  echo -a  15»14»1» Gerçek İp: $4
}
raw 320:*:{
  haltdef
  echo -a  15»14»1» LOGIN ID: $5-
}
raw 378:*:{
  haltdef
  echo -a 15»14»1» Gerçek Ip Adresi:  $3
}
raw 379:*:{
  haltdef
  echo -a 15»14»1» Nick modeleri: $6-
}
raw 671:*:{
  haltdef
  echo -a 15»14»1» Bağlantı: $3-
}

alias okapat {

enable #okapali

}

alias oac {

disable #okapali

unset %£

}

#okapali off

on *:text:*:?: {

window -e @Özel

echo @Özel 4[ $time ] < $+ $nick $+ > $1-

if $istok(%£,$nick,32) == $false {

set %£ $addtok(%£,$nick,32)

msg $nick Özelim kapalıdır.Yardım için #help kanalını kullanabilirsiniz.Hoş sohbetler.

close -m | halt

}

else {

close -m | halt

}

}

#okapali end

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.

}