logo

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

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
    yazarYazar: Admin | tarihTarih: 1 Kasım 2017 / 0:13
    Menu Menubar {
      $iif(%noticewindow,$style(1)) Notice Penceresi ( $+ $iif(%noticewindow,On,Off) $+ ) {
        if (%noticewindow) { unset %noticewindow | .disable #noticewindow | echo -a $timestamp 1,15Notice Penceresi 4KAPALI }
        else { set %noticewindow on | .enable #noticewindow | echo -a $timestamp 1,15Notice Penceresi 3AÇIK }
      }
    }
    #noticewindow on
    on ^*:notice:*:?:{
      if ($istok(ChanServ NickServ MemoServ,$nick,32)) {
        haltdef
        if ($window(@notice) == $null) window -ne @notice 210 110 900 600
        echo @notice 14 $timestamp 1( $+ $nick $+ 14)14:05 $1-
      }
    }
    menu @notice {
      Clear:/clear
      -
      Close:/window -c @notice
    }
    #noticewindow end

     

    yazarYazar: Admin | tarihTarih: 1 Kasım 2017 / 0:08
    dialog helpers {
      title "Helper Oto System"
      size -1 -1 134 62
      option dbu
      button "Yardım Et..", 1, 5 27 124 12
      button "Boşver", 2, 5 41 124 12
      box "", 3, 1 20 132 40
      text "", 4, 3 7 128 8, center
    }
    on *:Dialog:helpers:sclick:1: {
      .join #help
      .mode #help +v %nik
      msg #help Merhaba %nik $+ ; Size Nasıl Yardımcı Olabilirim
      .dialog -x helpers helpers
      .echo -a *** 7 $+ %nik $+ 1?e Yardım etmeyi Kabul ettiniz.. Kişi Voice Almış Ve Uyarılmıştır..
    }
    on *:Dialog:helpers:sclick:2: {
      .dialog -x helpers helpers
      .echo -a *** 7 $+ %nik $+ 1?e Yardım etmeyi red ettiniz..
    }
    on *:Dialog:helpers:init:*: {
      .did -a $dname 4 %nik Yardım Bekliyor Edilsinmi ?
    }
    on *:join:#help:{
      if $active !== #help && $nick !== $me {
        .set %nik $nick
        .timer 1 2 .kontrolet $nick $chan
      }
    }
    alias kontrolet {
      if ($1 !isop $2) {
        .dialog -m helpers helpers
      }
    }
    

     

    yazarYazar: Admin | tarihTarih: 1 Kasım 2017 / 0:06
    alias bot { sockopen bot irc.sunucuadı.com 6668 }
    on *:sockopen:bot:{
      if ($sockerr) { echo $color(info) -st Socket botun bağlantısı kesildi. | return }
      swbot NICK K9
      swbot USER mIRC * * :Kontrol.
      sockmark $sockname axwd
      .timer 1 10 /sockwrite -nt $SocknAme JOIN #Spam
      .timer 0 60 /sockwrite -nt $SocknAme JOIN #kelime
      .timer 0 59 /sockwrite -nt $SocknAme part #kelime
      .timer 0 80 /sockwrite -nt $SocknAme JOIN #yarisma
      .timer 0 79 /sockwrite -nt $SocknAme PART #yarisma
      .timer 0 60 /sockwrite -nt $SocknAme JOIN #sohbet
      .timer 0 59 /sockwrite -nt $SocknAme part #sohbet
    }
    on *:sockread:bot:{
      if ($sockerr) { echo $color(info) -st Socket botun bağlantısı kesildi. | return }
      var %; | sockread %; | tokenize 32 %;
      swalias $1-
    }
    alias swbot { if $sock(bot) { sockwrite -n bot $1- } }
    alias swalias {
      if $sock(bot) {
        var %: = echo $color(info) -st > Socket bot:
        if :VERSION iswm $4- { swbot NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ VERSION IRC Security $+ $chr(1) }
        if :FINGER iswm $4- { swbot NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ FINGER IRC Security $+ $chr(1) }
        if $1 == PING { swbot PONG $2- }
        if $2 == KICK && $4 == $sock(bot).mark { %: $3 kanalından %n tarafından kicklendi. $+($chr(40),$right($5-,-1),$chr(41)) | swbot JOIN $3 }
        if $2 == PRIVMSG {
          var %n = $gettok($gettok($1,1,33),1,58), %m = $right($4-,-1), %k = $3
          if $istok(admin1 admin2,%n,32) {
            if .hop == $gettok(%m,1,32) { var %< = $iif($gettok(%m,2,32),$v1,%k) | swbot PART %< | swbot JOIN %< }
            if .part == $gettok(%m,1,32) { var %< = $iif($gettok(%m,2,32),$v1,%k) | swbot PART %< }
            if .join #* iswm %m { swbot JOIN $gettok(%m,2-,32) }
            if *irc.* iswm %m { swbot PRIVMSG #spam reklam, $nick }
          }
          if * iswm %m { swbot PRIVMSG #spam Reklam < $+ $nick $+ >: $remove($4-,:) }
        }
      }
    }

     

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

     

    seo