mIRC Scripting

mIRC Scripting (https://www.mircscripting.net/)
-   Snippets - Parça kodlar (https://www.mircscripting.net/snippets-parca-kodlar/)
-   -   Yaptığım Tüm Yardımlar/Kodlar (https://www.mircscripting.net/snippets-parca-kodlar/537-yaptydhym-tuem-yardymlar-kodlar.html)

L4roXyL 07 Ekim 2011 19:20

Tarih: 08-02-2008, 23:13

Bu kod statusde bulunan nickleri ayrı bir pencerede(@slist) listemek ve işlevler yapmak için kullanılır. Kodu kullanmak için /slist yapmanız yeterlidir.

Kod:

alias slist .enable #r | who
#r off
raw *:*: {
  haltdef
  if ($numeric = 352) {
    $iif(!$window(@slist),window -Cak0dl +L @slist 0 0 200 300)
    if ($chr(35) !isin $2) {
      inc %1
      aline 5 @slist $+(%1,-,$6))
    }
  }
  if ($numeric = 315) {
    if ($window(@slist)) {
      aline @slist $chr(160)
      aline @slist Toplam: $+($chr(2),%1,$chr(2)) adet kullanıcı.
    }
    unset %1
    .disable #r
  }
}
#r end


L4roXyL 07 Ekim 2011 19:31

Tarih: 16-02-2008, 19:50

Bu kod belirtilen kanaldaki yetkililere /whois çeker ve idle süresi, belirtilen saniyeden düşük olan yetkilileri de-op/sop/hop vs. konumuna getirir.
Kod kullanım şekli: /idletara #kanal-ismi <saniye>

Kod:

alias idletara {
  if ($left($1,1) = $chr(35) && $2 && $nick($1,0,@&%.~) != 0) {
    .enable #kk
    set %s $2
    set %k $1
    set %op $nick(#,0,@%&.~)
    var %1 = 1
    while (%1 <= %op) {
      whois $nick(#,%1,@)
      inc %1
    }
  }
}
#kk off
raw *:*: {
  haltdef
  if ($numeric = 317) {
    if ($3 >= %s) {
      if ($2 != $me) {
        mode %k -oaqh $2 $2 $2 $2
        .msg $2 idle süreniz, $qt(%s) saniyeyi aştığı için de-op/sop vs. edildiniz.
      }
    }
  }
  if ($numeric = 318) {
    inc %&
    if (%& = %op) {
      unset %op %k %&
      .disable #kk
    }
  }
}
#kk end


L4roXyL 07 Ekim 2011 19:37

Tarih: 17-02-2008, 22:16

Bu kod sunucuya giren/çıkan kullanıcıları ayrı bir pencerede(@giriş/çıkış) gösterir ve nicklerin üzerine tıkladığında sunucudan uzaklaştırmanıza yarar.

Kod:

on *:snotice:*: {
  if (*client connect* iswm $1-) {
    var %n = $+(",$9,"),%i = $remove($gettok($10,1,64),$chr(40)),%ip = $remove($gettok($10,2,64),$chr(41))
    $iif(!$window(@giriş/çıkış),window -nCk0 @giriş/çıkış)
    echo -te @giriş/çıkış => Giriş: $replacecs(%n,",$+($chr(3),0,",$chr(3))) ! %i @ %ip
  }
  if (*client exiting* iswm $1-) {
    var %nn = $+(",$6,"),%ii = $remove($gettok($7,1,64),$chr(40)),%ipp = $remove($gettok($7,2,64),$chr(41))
    $iif(!$window(@giriş/çıkış),window -nCk0 @giriş/çıkış)
    echo -te @giriş/çıkış <= Çıkış: $replacecs(%nn,",$+($chr(3),0,",$chr(3))) ! %ii @ %ipp
  }
}
on ^*:hotlink:"*":@giriş/çıkış:return
on *:hotlink:*:@giriş/çıkış:gline $remove($1,") :sebeb.


L4roXyL 10 Ekim 2011 18:43

Tarih: 15-04-2008, 22:50

Bu kod belirtilen kanala giren kullanıcının rumuzu içerisinde "guest" takısı varsa, uyarı yapıp belirtilen süre sonra kullanıcı nick değişmezse kanaldan uzaklaştırmanıza yarar.

Kod:

on !*:join:#: {
  if ($regex($nick,/guest/i)) {
    !msg # $nick Uyarı mesajınız.
    $+(timer,$nick) 1 30 ban -k # $nick 2 nickini değiştir vs.
  }
}
on !*:nick:$iif($timer($nick),$+(.timer,$v1) off)

30 olan yer belirtilen saniyedir. Değiştirebilirsiniz.

L4roXyL 10 Ekim 2011 18:49

Tarih: 16-04-2008, 17:22

Bu kod kanalda(opsanız bknz: @*:text:*:#:) belirtilen saniye içerisinde belirtilen tekrar mesajı gönderilirse kullanıcıyı kanaldan uzaklaştırır.

Kod:

on @*:text:*:#: {
  if (!$regex($nick(#,$nick).pnick,@|%|&|~|(\+))) {
    hinc -mu4 fld $+($nick,#,$sha1($1-)) 1
    if ($hget(fld,$+($nick,#,$sha1($1-))) = 3) {
      ban -ku300 # $nick 2 BAN SEBEBİ.
      hdel fld $+($nick,#,$sha1($1-))
    }
  }
}


L4roXyL 10 Ekim 2011 18:54

Tarih: 19-04-2008, 20:53

Bu kod nicklist-den seçilen nick-i kanaldan 6 maska ban atacak şekilde banlamanıza yarar.

Kod:

alias F6 {
  if ($snick($active,0) >= 1) {
    var %1 = 1,%2 = $snick($active,0)
    while (%1 <= %2) {
      mode $active +b $snick($active,%1) 
      allban $active $snick($active,%1)
      inc %1
    }
  }
}
allban {
  var %s = 0
  while (%s <= 5) {
    ban $1 $2 %s
    inc %s
  }
  kick $1 $2 KICK SEBEBİ.
}


L4roXyL 10 Ekim 2011 18:59

Tarih: 01-05-2008, 20:46

Bu kod kanalda selam/slm/s.a vs. kelimelerini yazan kullanıcılara oto-selam vermek için kullanılır. Flood süresi 30 saniyedir değiştirebilirsiniz.

Kod:

on *:text:*:#: {
  if ($regex($1-,/(selam|slm|s\.a)/i)) {
    inc -eu30 $+(%,slm,$nick) 1
    if ($($+(%,slm,$nick),2) == 1) .msg # $qt($nick) a.s vs.
  }
}


L4roXyL 10 Ekim 2011 19:05

Tarih: 30-04-2008, 18:44

Bu kod kanala 5 saniye içerisinde 4 veya fazlası giriş yapıldığında, giren tüm nickleri kanaldan banlar ve kanalın modlarını +RM yapar.

Kod:

on !*:join:#:{
  if ($regex($nick(#,$me).pnick,@|&|~|%|(\+))) {
    hadd -mu5 # $+(#,½,$nick) 1
    if ($hget(#,0).item >= 4) {
      mode # +MR
      msg # Kanal modları değişti vs.
      var %1 = $v1,%2 = 1
      while (%2 <= %1) {
        ban -k # $removecs($hget(#,%2).item,#,½) 2 BAN SEBEBİ.
        inc %2
      }
    }
  }
}


L4roXyL 10 Ekim 2011 19:12

Tarih: 01-05-2008, 22:42

Bu kod(lar) kanala gönderilen action mesajlarında küfür vb. olarak tanımladığınız kelimeleri arar ve işlem yapar. Aynı zamanda küfür listesine ekleme/silme/listeleme vs. işlemlerde yapabilirsiniz. Kod zaten yeterince açık bir şekilde yazılmıştır.

Kod:

;Event (on action)
on @*:action:*:#:bdwchk # $nick $1-

;(/bdwchk): /bdwchk #kanal-ismi nick mesaj

alias bdwchk {
  var %1 = 1,%2 = $iif($hget(bdw,0).item >= 1,$v1)
  while (%1 <= %2) {
    if ($regex($3-,$hget(bdw,%1).item)) {
      ban -k $1 $2 5 BAN SEBEBİ.
      break
    }
    inc %1
  }
}

;(/bdwekle): /bdwekle kelime (Listeye kelime ekler)
alias bdwekle {
  if ($1) {
    if (!$hget(bdw,$1)) {
      hadd -m bdw $1 1
      hsave -i bdw bdw.hash
      echo -at $1 kelimesi listeye eklendi.
    }
    else echo -at $1 kelimesi listede.
    return
  }
  else echo -at Kelime girmediniz.
}

;(/bdwsil): /bdwsil kelime (Listeden kelime siler)
alias bdwsil {
  if ($1) {
    if ($hget(bdw,$1)) {
      hdel bdw $1
      hsave -i bdw bdw.hash
      echo -at $1 kelimesi listeden silindi.
    }
    else echo -a $1 kelimesi listede yok.
    return
  }
  else echo -at Kelime girmediniz.
}

;(/bdwlist): /bdwlist (Listeyi sıralar)
alias bdwlist {
  if (!$hget(bdw) || $hget(bdw,0).item < 1) echo -at Liste boş.
  else $iif(!$window(@Bdwlist),window -adlCk0 +L @Bdwlist 0 0 200 200)
  var %s = 1
  while (%s <= $hget(bdw,0).item) {
    aline @Bdwlist $hget(bdw,%s).item
    inc %s
  }
}

;on start event(Tabloyu yükletmek için)
on *:start: {
  if ($isfile(bdw.hash)) {
    hmake bdw 50
    hload -i bdw bdw.hash
  }
}


L4roXyL 10 Ekim 2011 19:17

Tarih: 04-05-2008, 21:53

Bu kod kanalda belirtilen nicklerden herhangi birisi(nick1, nick2 ve ya nick3) !at nick yaptığı zaman o kullanıcıyı bulunduğu tüm kanallardan uzaklaştırır.

Kod:

on *:text:!at* &:#: {
  if ($regex($nick,/^(nick1|nick2|nick3)$/i)) {
    var %s = 1,%q = $comchan($2,0)
    while (%s <= %q) {
      ban -k $comchan($2,%s) $2 BAN SEBEBİ.
      inc %s
    }
  }
}



++ mIRCScripting.net hakkında kısaca:

mS; "Gayri resmi mIRC" kullanıcı ve tasarımcı topluluğudur.
2009 yılında kurulan mS; tasarımcı ve geliştiricileri bir araya getiren etkileşim ve iletişim sağlayan bir platformdur.
mS; tasarım, programlama, geliştirme, düzenleme vb. pek çok konu etrafında bir araya gelmiş "mIRC" meraklısı bir çok insan tarafından yaratılan içeriğiyle; kullanıcı dostu, özgün elit, nitelikli kişi ve konularla hizmet sunan mIRC Scripting platformudur.

Özgün içerikten onay almaksızın içeriği yaratan kullanıcılarımız tamamen yada kısmen sorumludur, aynı zamanda söz konusu içerik mS yetkilileri izni olmaksızın, kaynak gösterilse dahi(!) kopyalanamaz ve/ya paylaşılamaz.   Site/içerik hakkında görüş, öneri ve şikayetleriniz için sikayet[at]mircscripting[dot]net e-posta ve ya İletişim adresinden bizlere ulaştırabilirsiniz.



mIRC mIRC Orjinal mIRC İndir mIRC Download mIRC Tutorials mIRC Socket mIRC Commands mIRC Komutlar mIRC Yükle mIRC Dersler mIRC Hazır Kodlar mIRC Classentifier mIRC DLL mIRC Dialog mIRC IRC mIRC FTP mIRC Telnet mIRC Help
mIRC Yardım mIRC Iconlar mIRC Com Object mIRC Binary Files mIRC Picture Windows mIRC Unicode mIRC Forum mIRC Hazır Kodlar mIRC Kod mIRC Script mIRC File Handling mIRC Scripting Language mIRC Scripting Dili mIRC Scripting Info
mIRC Scripting Tutorials



User Alert System provided by Advanced User Tagging v3.1.3 (Lite) - vBulletin Mods & Addons Copyright © 2026 DragonByte Technologies Ltd. Runs best on HiVelocity Hosting.

1 2 13 14 16 17 18 19 21 22 23 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 49 50 51 52 54 55 56 57 58 59 60 61 62 63 67 68 69 70 71 72 73 74 75 76

SEO by vBSEO 3.6.1