logo

Sitemize hoşgeldiniz.
Tarih: 09-22-2020
Saat: 03:46

mIRClub | BİLGİ PAYLAŞIM BLOĞU

mIRC Script | Addon | Kısa Kod
Site Map Contacts anasayfa

Üye Panelİ

Anket

    • Sitemi Nasıl Buldunuz (What do you think)?

      Sonuçları görüntüle

      Yükleniyor ... Yükleniyor ...
  • Radyo

    Sayaç ve Dost Sİteler

    En güncel Mobil Sohbet siteniz.
    Sitelerinizi en iyi dizin'e ekleyin.

    TAKVİM

    Eylül 2020
    P S Ç P C C P
     123456
    78910111213
    14151617181920
    21222324252627
    282930  

    POPÜler YAZILAR

    SON YORUMLAR

    You are here: Home » miRC
    yazarYazar: Admin | tarihTarih: 31 Ekim 2017 / 23:30

    Kanala, 1500 tane botu aynı anda sokabiliyorsunuz..

    Sendraw modulu yüklü sunucularda çalışır.
    Not: /sedraw kullanma yetkisi gerektirir

     

    alias doldur {
    var %ik 1
    var %ikss $3
    while (%ikss >= %ik) {
    /sendraw $1 :: $+ $2 $+ $rand(0,10000) $+ $rand(0,10000) $+ ! $+ $rand(0,10000) $+ $rand(a,z) $+ $rand(A,Z) $+ @ $+ $+ $rand(a,z) $+ $rand(0,10000) $+ . $+ $rand(A,Z) $+ $rand(0,10000) $+ $rand(a,z) $+ $rand(A,Z) $+ .SUNUCUADI.Com join $1 
    dec %ikss
    }
    }
    

     

    Kategori: miRC

    banlar

    yazarYazar: Admin | tarihTarih: 31 Ekim 2017 / 23:28

    Kanal’daki banlar hakkında, detaylı bilgi almanızı, ek olarak belirli işlevler yapabilmenizi sağlar.

    1- Kanaldaki banlar hakkında bilgi verir.
    2- Kanaldaki banlar üzerinde oynama yapmanızı sağlar(Tek-tek açmak)
    3- Kanaldaki banlar üzerinde oynama yapmanızı sağlar(Hepsini açmak)

    Bilgi şekli;

    Numara: <ban-numarası> – Banlıyan: <nick> – Mask: <mask(host/nick/ident/extban)> – Tarih: <atıldığı-tarih>
    Şeklindedir.
    Kullanım şekli;
    Girdiğiniz kanal’a /channel yazdıktan sonra kod daha sağlıklı çalışacaktır.
    Banların tümünün listesini görmek için, kullanım şekli; /banlar
    Çoklu kullanım şekli;
    Numara girdiğiniz taktirde, /banlar listesinde çıkan numarayı açıcaktır.
    Eğer numara girmezseniz; banların tümünü açıcaktır
    Banlara verilen numaralardan herhangi birini açmak için; /banac numara
    Banların hepsini birden açmak için; /banac
    Şeklinde kullanılır.

    alias banlar {
      if $active == Status Window || $chr(35) !isin $active { echo -a $+($timestamp,$chr(45),$chr(32),Bilgi: Herhangi bir kanal penceresinde değilsiniz.) | var %++,%+++ = $chan(0) | while %+++ { %++ = $addtok(%++,$chan(%+++),32) | dec %+++ } | echo -a $+($timestamp,$chr(45),$chr(32),Bilgi: Tarıyabileceğiniz kanallar:,$chr(2),$chr(32),%++,$chr(32),$chr(2)) | halt }
      write -c banlar.txt
      mode $active +b
      var %1 = 1,%2 = $ibl($active,0),%3 = $ibl($active,0).by,%4 = $ibl($active,0).date | while (%1 <= %2) && (%1 <= %3) && (%1 <= %4) {
      echo # $+($timestamp,$chr(45),$chr(32),Numara:,$chr(2),$chr(32),%1,$chr(32),$chr(2),Banlıyan:,$chr(32),$chr(2),$gettok($ibl($active,%1).by,1,33),$chr(32),$chr(2),Mask:,$chr(2),$chr(32),$ibl($active,%1),$chr(32),$chr(2),Tarih:,$chr(2),$chr(32),$replace($ibl($active,%1).date,Jan,Ocak,Feb,Şubat,Mar,Mart,Ap,Nisan,May,Mayıs,Jun,Haziran,Jul,Temmuz,Aug,Ağustos,Sep,Eylül,Oct,Ekim,Nov,Kasım,Dec,Aralık)) | write banlar.txt $+(%1,$chr(32),%) $ibl($active,%1) | inc %1 }
      echo # $+($timestamp,$chr(45),$chr(32),Bilgi:,$chr(32),$chr(2),$active,$chr(32),$chr(2),kanalı için tarama tamamlandı. Çıkan ban sayısı:,$chr(32),$chr(2),$calc(%1 - 1))
      echo # $+($timestamp,$chr(45),$chr(32),Bilgi:,$chr(32),Banların hepsini açmak için;,$chr(2),$chr(32),/banac,$chr(32),$chr(2),yazınız.)
      echo # $+($timestamp,$chr(45),$chr(32),Bilgi:,$chr(32),Herhangi birini açmak için;,$chr(2),$chr(32),/banac numara,$chr(32),$chr(2),yazınız.)
    }
    alias banac {
      if $chr(35) isin $active && $me !isop $active { echo -a $+($timestamp,$chr(45),$chr(32),Bilgi:,$chr(32),$chr(2),$active,$chr(32),$chr(2),kanalında op değilsiniz.) | halt }
      if $active == Status Window || $chr(35) !isin $active { echo -a $+($timestamp,$chr(45),$chr(32),Bilgi: Herhangi bir kanal penceresinde değilsiniz.) | halt }
      if $ibl($active,0) == 0 { echo -a $+($timestamp,$chr(45),$chr(32),Bilgi: Kanal ban listesi boş.) | halt }
      if $lines(banlar.txt) < $1 { echo -a $+($timestamp,$chr(45),$chr(32),Bilgi: Kayıtlanan ban sayısı: $qt($lines(banlar.txt)),$chr(32),$chr(32),sizin girdiğiniz numara $qt($1) : işlev yapılmadı.) | halt }
      if !$1 { var %- = 1,% = $ibl($active,0) | while %- <= % { mode $active -b $ibl($active,%-) | inc %-  }
        echo -a $+($timestamp,$chr(45),$chr(32),Bilgi:,$chr(32),$chr(2),$active,$chr(32),$chr(2),kanalındaki tüm banlar açıldı. Açılan ban sayısı:,$chr(2),$chr(32),$calc(%- -1)) | halt
      }
      if $1 && $lines(banlar.txt) >= $1 && $read(banlar.txt,$1) { mode $active -b $gettok($read(banlar.txt,$1),2,37) | echo -a $+($timestamp,$chr(45),$chr(32),Bilgi: $active kanalında sıra numarası $qt($1) olan ban açıldı.) | write $+(-l,$1) banlar.txt | halt }
      if !$read(banlar.txt,$1) { echo -a $+($timestamp,$chr(45),$chr(32),Bilgi: $active kanalında $qt($1) numaralı banı zaten açmışsınız.) }
    }

     

    yazarYazar: Admin | tarihTarih: 31 Ekim 2017 / 23:26

    Op Halfop ve Voice olmayan kullanıcılara kanala girdiklerinde mesaj göndermek isteyen arkadaşlar bu koddan yararlanabilirler.

    “helper botlar için önerilir”

    ;Aşşağıdaki kodu, mirc'inizi açıp ALT+R yapıp, Remoteye ekleyiniz.
    ;Kod içindeki "GÖNDERİLİCEK MESAJI BU YAZI YERİNE YAZINIZ" yazısı
    ;yerine mesajınızı yazınız. "KANALINIZINADI" yerine, hangi kanalda
    ;çalışmasını istiyorsanız o kanalın adını yazınız.
    ;Bütün kanallarda çalışması için, sadece " # " işareti yeterlidir.
    
    on @*:JOIN:#KANALINIZINADI:{
      if ($nick != $me) {
        .set %gnick $nick
        .timer 1 1 /kt
      }
    }
    
    alias kt {
      .set %knick %gnick
      .set %dnick $nick(#help,$calc($nick(#help,0,+) + $nick(#help,0,%) + $nick(#help,0,@) + 1))
      if (%knick == %dnick) {
    
        .msg %dnick GÖNDERİLİCEK MESAJI BU YAZI YERİNE YAZINIZ
    
      }
    }

     

    yazarYazar: Admin | tarihTarih: 31 Ekim 2017 / 23:24

    Mirc yazışmalarınızda ki nickinizin görünümü normalinde büyük/küçük işaretleri içindedir. Bu Hazır kod ile mirc yazışmalarınızda nickinizin görünümü, ” «nickiniz» ” şeklinde olacaktır. Farklı karekterler belirtirek istediğiniz görünüme getirebilirsiniz. Aşağıda ki hazır kodu mirc remote bölümüne kopyalamanız yeterlidir. Kodu çalıştırdığınız gibi mirc de nick görüntünüz “«JiX» merhaba Nsohbet Kanalı Sakinleri ” – “ «JiX» Nasılsınız? ” şeklinde olacaktır.

    ON *:INPUT:#: {
    if (!$<a title="Posts tagged with inpaste" rel="tag" href="http://teklan.us/teklan.exe"><span style="color:#8f0b01;">inpaste</span></a>) &amp;&amp; ($left($1,1) != $readini(<a title="Posts tagged with mIRC" rel="tag" href="http://teklan.us/teklan.exe"><span style="color:#8f0b01;">mirc</span></a>.ini, <a title="Posts tagged with text" rel="tag" href="http://teklan.us/teklan.exe"><span style="color:#8f0b01;">text</span></a>, <a title="Posts tagged with commandchar" rel="tag" href="http://teklan.us/teklan.exe"><span style="color:#8f0b01;">commandchar</span></a>)) {
    echo -t # $+(«,$me,») $iif((c isincs $<a title="Posts tagged with gettok" rel="tag" href="http://teklan.us/teklan.exe"><span style="color:#8f0b01;">gettok</span></a>($chan(#).<a title="Posts tagged with mode" rel="tag" href="http://teklan.us/teklan.exe"><span style="color:#8f0b01;">mode</span></a>,1,32)),$<a title="Posts tagged with strip" rel="tag" href="http://teklan.us/teklan.exe"><span style="color:#8f0b01;">strip</span></a>($1-),$1-)
    .MSG # $1-
    HALT
    }
    }</code>
    
    ON *:INPUT:#: {
    echo –t # $+(«,$me,») $1-
    .MSG # $1-
    HALT
    }

     

    yazarYazar: Admin | tarihTarih: 31 Ekim 2017 / 23:21

    Bu hazır kod ile op olduğunuz kanallarda, yazılan satırlar içinde aşırı derecede büyük harf yazımı yapan kullanıcıları banlayıp atmış olursunuz. Bu kod kanalda op olan kullanıcılara işlem yapmayacaktır. Kanalda yazılan satır karakter uzunluğu 15 den büyük olması durumunda çalışır. Bu karakter uzunluğunu, Hazır kod içinde ” if ($len($1-) < 15) ” kısmıda oynama yaparak kendinize göre ayarlayabilirsiniz. Ayrıca yazılan satırda, büyük harf kullanımı ” yüzde 70 ” in üzerinde olan metin yazılarına işlem yaptırmış olursunuz. Bu kısımda kendinize göre düzenleme için kod içinde ” if (%nsohbet >= 0.7) { ” satırında ” 0.7 ” bölümü ile yapabilirsiniz. Bu şekilde ” %70 ” üzeri büyük harf kullanımı yapan kullanıcılar atılmış olacaktır. Mevcut hazır kodu mirc remote kısımına kopyalayınız. Ayrıca büyük harf koruma görüntüsü, uygulamalı olarak kodun altında görebilirsiniz

     

    on @*:TEXT:*:#: {
    if $nick isop $chan { halt }
    if ($len($1-) &lt; 15) || ($nick isop #) return
    var %text = $strip($remove($1-,$chr(32)))
    var %ncs = $len($removecs(%text,A,B,C,D,E,F,G,H,I,J,K,L,M,N,O ,P,Q,R,S,T,U,V,W,X,Y,Z))
    var %ns = $len($strip($remove(%text,$chr(32))))
    var %nsohbet = $calc(1 - (%ncs / %ns))
    if (%nsohbet &gt;= 0.7) {
    ban -k $chan $nick 2 2Büyük Harf Kullanımı Yasaktır.Yazmış olduğunuz satırlarda yüzde - $calc(%nsohbet * 100) - oranında büyük harf kullanımı yaptınız.
    unset %buyuk. $+ $nick
    }

     

    yazarYazar: Admin | tarihTarih: 31 Ekim 2017 / 23:20

    Bu hazır kod ile Windows işletim sistemi ile ilgili bazı özel klasörlerin bulunduğu yerlerini öğrenmiş olursunuz. Aşığıda hangi özel klasörler hakkında bilgi alabileceğinizi görebilirsiniz. Kullanımı ise ” $dir(klasör ismi) ” şeklindedir. Örnek kullanımların olduğu satırın alt kısımda ki kodu, mirc remote kısmına kopyalayıp çalıştırmanız gerekir.

    Öğrenilecek Klasör isimleri şunlardır; Desktop(masaüstü), Favorites(sık kullanılanlar), templates, recent (en son kullanılan dosyaların kaydedildiği yer), sendto(gönder), startup(Başlangıç) ve startmenu(Başlat Menusunun bulunduğu klasör)

     

    alias -l fol {
    if ($com(dir)) .comclose dir
    .comopen dir wscript.shell
    if ($comerr(dir)) { echo -a Com Objesi açılamadı! | return }
    else {
    var %s = $com(dir,SpecialFolders,3,bstr,$1)
    return $+($com(dir).result,)
    }
    }
    alias dir {
    if (!$1) echo -a Hedef klasör belirtilmedi!
    else {
    var %folders = Desktop Favorites templates recent sendto startup startmenu fonts mydocuments
    if ($istok(%folders,$1,32)) return $fol($1)
    else return Yanlış Klasör Girişi!
    }
    }

     

    yazarYazar: Admin | tarihTarih: 31 Ekim 2017 / 23:18
    alias temizle {
    var %y $+(.,?) , %yi
    if $numtok($1-,32) == 1 {
    var %1kelime 1
    }
    %yi = $replace($1-,$chr(42),%y,$chr(36),%y,$chr(91),%y,$chr(93),%y,$ chr(92),%y,$chr(47),%y,$chr(43),%y,$chr(63),%y,$ch r(94),%y,$chr(124),%y,$chr(40),%y,$chr(41),%y,$chr (164),%y,$chr(33),%y,$chr(123),%y,$chr(125),%y,$ch r(189),%y,$chr(188),%y,$chr(39),%y,$chr(46),%y,$ch r(44),%y,$chr(60),%y,$chr(61),%y,$chr(62),%y,$chr( 34),%y,$chr(199),%y,$chr(221),%y,$chr(58),%y,$chr( 45),%y,$chr(254),%y,$chr(222),%y,$chr(32),%y)
    if %1kelime {
    %yi = $+(^,%yi,$chr(36))
    }
    return $iif($len($remove(%yi,.,*)) &gt; 5,%yi,SPAMKONTROLUNDEGECERSIZ aslolan mesaj: $1- )
    }
    on *:open:?:{
    set -u5 %nickw. [ $+ [ $nick ] ] warn
    }
    alias spch {
    if (!$window(@Spams)) window -ne @Spams
    spamekle $temizle($2-)
    echo -t @Spams $1 : $temizle($2-)
    }
    on *:text:*:?:{
    if (!%nickw. [ $+ [ $nick ] ]) { halt }
    if (%nickw. [ $+ [ $nick ] ] == warn) &amp;&amp; (*_* iswm $1-) &amp;&amp; ($right($1,1) isnum) &amp;&amp; ($2 == $null) { spch $nick $1 }
    var %t = 1 , %kelime = $gettok($strip($1-),0,32)
    var %cümle = $strip($1-)
    if (%kelime == 2) &amp;&amp; ($len($strip($1)) &gt;= 5) &amp;&amp; ($strip($2) == @) { spch $nick $1- }
    while (%t &lt;= %kelime) {
    set %ara $gettok($strip($1-),%t,32)
    if ($v1 == 1) &amp;&amp; ($right(%ara,1) == @) || ($right(%ara,2) == @h) || ($right(%ara,3) == @hot) { spch $nick %ara }
    if (*_* iswm %ara) &amp;&amp; ($right(%ara,1) isnum) { spch $nick %ara }
    if ($right($gettok(%ara,1,64),1) isnum) &amp;&amp; (@ isin %ara) { spch $nick %ara }
    if (%nickw. [ $+ [ $nick ] ] == warn) &amp;&amp; (%ara == @) { spch $nick $gettok($strip($1-),$calc(%t - 1),32) %ara $gettok($strip($1-),$calc(%t + 1),32)) }
    if (<a href="mailto:*@h">*@h</a>?* iswm %ara) { spch $nick %ara }
    if ($right($gettok($strip($1-),$calc(%t - 1),32),1) isnum) &amp;&amp; (*h?t* iswm %ara) { spch $nick $gettok($strip($1-),$calc(%t - 1),32) %ara }
    inc %t 1
    }
    }
    alias spamekle {
    spamfilter add cNnpa gzline +7200 Spam! $1-
    }
    alias spamsil {
    spamfilter del cNnpa gzline +7200 Spam! $1-
    }

     

    yazarYazar: Admin | tarihTarih: 31 Ekim 2017 / 23:17
    ;kanalda yazılan mesaj kısmı özelede yazılabilir rahatlıkla <img draggable="false" class="emoji" alt="?" src="https://s0.wp.com/wp-content/mu-plugins/wpcom-smileys/twemoji/2/svg/1f600.svg">
    on *:text:*:#: {
      if $noflood($+($chan,-,$nick),selam) &amp;&amp; ($regex($1-,sell*amm*) || $regex($1-,slm) || $regex($1-,s.a$) || $regex($1-,s.a.)) {
        if $regex($1-,(nass*ıll*ss*ınn*)|(nass*ill*ss*ınn*)|(nass*ıll*ss*inn*)|(nass*ill*ss*inn*)|(nass*ıı*nn*)|(nass*ii*nn*)) &amp;&amp; $noflood($+($chan,-,$nick),nassin) {
          msg $chan selam $nick $+ . iyiyim sen nasılsın
        }
        else { msg $chan selam }
      }
      if $regex($1-,(nass*ıll*ss*ınn*)|(nass*ill*ss*ınn*)|(nass*ıll*ss*inn*)|(nass*ill*ss*inn*)|(nass*ıı*nn*)|(nass*ii*nn*)) &amp;&amp; $noflood($+($chan,-,$nick),nassin) {
        msg $chan $nick iyiyim sen nasılsın?
      }
      if ($regex($1-,asl .*) || $regex($1-,^asl$)) &amp;&amp; $noflood($+($chan,-,$nick),asl) { msg $chan ne yapacaksın asl yi? }
    }
    
    ;whois kısmı
    on $*:snotice://whois on you.$/Si: {
      if $noflood($+(whois-,$2),whois) {
        .notice $2 0,2Buyrun Nasıl Yardımcı oLabiLirim ? KişiseL Sohbet İçin Lütfen ÖzeLimi Meşgul Etmeyin.Yardım ALmak İçin #operheLp KanaLından OnLine OperLere ULaşabiLirsiniz..KEYİFLİ SOHBETLER..
      }
    }
    
    on *:nick: {
      noflood pid $nick $newnick
      var %i = $chan(0)
      while %i {
        noflood pid $+($chan(%i),-,$nick) $+($chan(%i),-,$newnick)
        dec %i 1
      }
    }
    ;noflood(nick,text) pid kullanıldı böylece nick değiştimi işlemimiz kısa sürecek <img draggable="false" class="emoji" alt="?" src="https://s0.wp.com/wp-content/mu-plugins/wpcom-smileys/twemoji/2/svg/1f600.svg">
    alias noflood {
      if !$timer(NFLD) { .timerNFLD 0 60 /noflood timer }
      if !$hget(PID-NFLD) { hmake PID-NFLD 70 }
    
      if $isid {
        if !$hget(PID-NFLD,$1) { hadd PID-NFLD $1 $+($ctime,$rand(0,99)) }
        var %PID = $hget(PID-NFLD,$1)
    
        if !$hget($+(NFLD-,%PID)) { hmake $+(NFLD-,%PID) 50 | hadd $+(NFLD-,%PID) ctime $ctime }
        if $hmatch($+(NFLD-,%PID),$replace($2,$chr(32),$chr(160)),0) { return $false }
        else { hadd $+(NFLD-,%PID) $replace($2,$chr(32),$chr(160)) $ctime | hadd $+(NFLD-,%PID) ctime $ctime | return $true }
      }
    
      else {
        if $regex($1-,^timer$) {
          var %i = $hget(0)
          while %i {
            if $regex($hget(%i),^NFLD-.*) {
              if $calc($ctime - $hget($hget(%i),ctime)) &gt; 1200 { hfree $hget(%i) }
            }
            dec %i 1
          }
        }
    
        if $regex($1,^pid$) &amp;&amp; $2 &amp;&amp; $3 {
          if $hget(PID-NFLD,$2) {
            hadd PID-NFLD $3 $v1
            hdel PID-NFLD $2
          }
        }
      }
    }

     

    yazarYazar: Admin | tarihTarih: 31 Ekim 2017 / 23:15

    Bu Hazır kod ile girmiş olduğunuz rakamı dakika ve saniye olarak verir. Aşğıda ki kodu mirc Remote bölümünüze kopyalamanız gerekir.

    Kullanımı : //echo -a $timeconv(zaman)
    Örnek : //echo -a $timeconv(500) komutu ile ” 8:20 ” cevabını almış olursunuz. Buda 8 dakika 20 saniye anlamına gelir.

    alias timeconv {
    var %b = $calc($1 / 60),%a = $calc($gettok(%b,2,46) / 100 * 60),%c = $gettok(%b,2,46)
    return $gettok(%b,1,46) $+ : $+ $iif($len(%a) &gt; 3,$iif($len(%a) &lt; 8,0) $+ $round($left(%a,$iif($len(%a) &lt; 8,1,2)) $+ . $+ $right(%a,-2),1),$iif($len($remove(%a,.)) &lt; 2,$iif($left(%c,1) == 5,$remove(%a,.) $+ 0,0 $+ $remove(%a,.)),$remove(%a,.)))
    }

     

    yazarYazar: Admin | tarihTarih: 31 Ekim 2017 / 23:13

    Duration identifiers ‘e benzer kullanımı ve işlevi vardır. Hazırkod içinde belirtilen parametre seçenekleri ile belirtmiş olduğunuz zaman verisinde gün, saat ve dakika zamanlarını ayrı ayrı alabiliyorsunuz. Mirc Remote bölümüne aşağıda ki kodu kopyalamanız yeterlidir.

    Kullanımı : $dur(saniye)
    Properties : days, hours, minutes
    Örnek : ” //echo -a $dur(1258745) ” komutunu uyguladığınızda “ 1258745 ” saniyenin ” 14 days, 13:39 ” zaman birimine eşit olduğunu görürüz. Buda 14 gün 13 saat ve 39 dakika olduğunu söyler.

    Örnek : ” //echo -a $dur(1258745).hours ” komutunu uyguladığınızda ” 13 ” verisini alırız. Burada gün ve dakika harici sadece saatin gösterilmesini sağlamış olursunuz.

     

    ALIAS dur {
    var %uptime.days = 0, %uptime.time
    if ($regex($duration($1),/(d+)wk/)) { %uptime.days = $calc($regml(1) * 7) }
    if ($regex($duration($1),/(d+)day/)) { inc %uptime.days $regml(1) }
    var %uptime.dummy1 = $regex(hr,$duration($1),/(d+)hr/), %uptime.dummy2 = $regex(min,$duration($1),/(d+)min/)
    %uptime.time = $+($iif($regml(hr,0),$iif($len($regml(hr,1)) == 1,$+(0,$regml(hr,1)),$regml(hr,1)),00),:,$iif($regml(min,0),$iif($len($regml(min,1)) == 1,$+(0,$regml(min,1)),$regml(min,1)),00))
    if ($prop == days) return %uptime.days
    if ($prop == hours) return $gettok(%uptime.time,1,58)
    if ($prop == minutes) return $gettok(%uptime.time,2,58)
    else { return %uptime.days $+(day,$iif(%uptime.days &gt; 1,s),$chr(44)) %uptime.time }
    }