Yaptığım Tüm Yardımlar/Kodlar - Sayfa 3

**L4roXyL** · #21 07 Ekim 2011, 14:30

Tarih: 07-01-2008, 18:42

Bu kod belirtilen kanaldaki tüm kullanıcılara kontrol mesajı yollar. Eğer 10 saniye içerisinde herhangi bir kullanıcı mesaja cevap verirse kanaldan banlayacaktır.
Kodu kullanmak için, belirtilen kanalın client editbox kutusuna /kontrol yazmanız yeterli olacaktır.

Kod:

alias kontrol {
  write -c kontrol.txt
  set -eu10 %k $active 
  var %1 = 1,%v1
  while $nick(%k,%1) { 
    %v1 = $v1
    if %v1 != $me { 
      .msg %v1 Kontrol mesajıdır.
      write kontrol.txt %v1
    } 
    inc %1 
  } 
}
on *:text:*:?:if (%k && $nick ison %k && $read(kontrol.txt,w,$nick)) ban -k %k $nick 2 sebeb.

**L4roXyL** · #22 07 Ekim 2011, 14:36

Tarih: 07-01-2008, 20:43

Bu kod #help - #yardım kanalına giren kullanıcının host adresine bakarak, admin, ircop vb. kişiler dışındaki kişilere +v(voice) verip mesaj göndermek için yazılmıştır.

Kod:

on !*:join:#help,#yardım: {
  if (!$regex($gettok($address($nick,2),2,64),/network|admin|ircop/i)) {
    mode # +v $nick 
    msg # $nick mesajın. 
  }
}

Not: | operatörü ile daha fazla host ekleyebilirsiniz.

**L4roXyL** · #23 07 Ekim 2011, 14:40

Tarih: 09-01-2008, 15:03

Bu kod sunucuya giren kullanıcının ident, nick ve fullname-si birbirinin aynısı ise sunucudan gline ile uzaklaştırmak için yazılmıştır.

Kod:

on *:snotice:*client connect*: {
  if ($left($9,-2) = $remove($gettok($10,1,64),$chr(40)) && $remove($11,[,]) = $left($9,-2)) { 
    gline $9 sebeb. 
  }
}

**L4roXyL** · #24 07 Ekim 2011, 14:46

Tarih: 08-01-2008, 22:12

Bu kod herhangi bir kanala girdiğinizde eğer 2 saniye içerisinde özelinize yazan olursa, bulunmuş olduğunuz tüm kanallardan banlamak için yazılmıştır.

Kod:

on *:join:#:if ($nick = $me) inc -eu2 %k
on *:text:*:?: {
  if %k {
    var %1 = $1-,%2 = 1 
    while $comchan($nick,%2) { 
      ban -k $v1 $nick 2 Yasaklı kelime: %1 
      inc %2 
    } 
  } 
}

**L4roXyL** · #25 07 Ekim 2011, 14:54

Tarih: 10-01-2008, 04:30

Bu kod belirtilen saniyede belirtilen sayıda aynı text kanala gönderilirse o text-i 10 dakikalığına spamfilter listesine eklemenize yarar.

Kod:

on *:text:*:#: {
  if $nick isreg # { 
    hinc -mu3 fln $+(#,½,$nick,$encode($1-)) 1 
    if ($hget(fln,$+(#,½,$nick,$encode($1-))) >= 5) {
      spamfilter add cpnNa gzline 10m - $1- 
      hdel fln $+(#,½,$nick,$encode($1-)) 
    } 
  } 
}

3 olan yer saniye, 5 olan yer limittir. Değiştirebilirsiniz.

**L4roXyL** · #26 07 Ekim 2011, 15:07

Tarih: 10-01-2008, 04:30

Bu kod sunucuya aynı nick üzerinden belirtilen sürede belirtilen sayıdan fazla giren kullanıcıların hepsini sunucudan uzaklaştırır.

Kod:

on *:snotice:*client connect*: {
  hadd -mu60 nick $9 1 
  if $hget(nick,0).item >= 10 { 
    var %s = 1,%ss = $hget(nick,0).item 
    while %s <= %ss {
      gline $hget(nick,%s).item :sebeb. 
      inc %s 
    } 
  } 
}

60 saniye, 10 ise limittir. Değiştirebilirsiniz.

**L4roXyL** · #27 07 Ekim 2011, 15:18

Tarih: 10-01-2008, 04:30

Bu kod 1 saniye içerisinde sunucudan 10 kişi veya fazlası çıkarsa, o nicklere ait IP-lerin hepsini sunucudan banlayacaktır.

Kod:

on *:snotice:*client exiting*: { 
  hadd -mu1 ip $remove($gettok($7,2,64),$chr(41)) 1 
  if $hget(ip,0).item >= 10 { 
    var %k = 1,%kk = $hget(ip,0).item 
    while %k <= %kk { 
      zline $+(*@,$hget(ip,%k).item) :sebeb 
      inc %k 
    }
  }
}

1 kısmı saniye, 10 kısmı limittir. Değiştirebilirsiniz.

**L4roXyL** · #28 07 Ekim 2011, 15:23

Tarih: 10-01-2008, 17:15

Bu kod belirtilen kanaldaki yetkisiz(op, su-op, voice, halfop vs.) tüm nicklerin özeline away kontrol mesajı atmanıza olanak sağlar. Kodu çalıştırmak için, kanal client penceresine /kontrolaway yazmanız yeterli olacaktır.

Kod:

alias kontrolaway { 
  if $left($active,1) = $chr(35) { 
    var %s = 1 
    while $nick($active,%s) {
      if $count($nick($active,%s).pnick,@,&,~,+,%,.) = 0 { 
        .msg $nick($active,%s) Away Kontrol mesajıdır.
      } 
      inc %s 
    } 
  } 
}

**L4roXyL** · #29 07 Ekim 2011, 15:30

Tarih: 19-01-2008, 00:44

Bu kod varolan tüm logları mIRC Custom(@log) penceresinde list şeklinde listelemenize, okumanıza ve silmenize yarayacaktır. Çok hızlı çalışmakla beraber basit bir arayüze sahip işlem yapmak isterseniz, gayet uygundur.

Kod kullanımı: /logoku
Belirtilen logu açmak için, listdeki log-lara çift tıklayın.
Sectiğiniz logu silmek için listedeki loga tıklayıp, DEL tuşuna basmanız yeterli olacaktır.

Kod:

menu @log {
  dclick:$iif($mouse.lb,logs $active $1,return) 
}
on *:keydown:@log:46: {
  var %1 = $sline(@log,1),%2 = $sline(@log,1).ln 
  if (%1) $iif($input(%1 log'unu silmek istediğiniz'den eminmisiniz?,y,Uyarı) = $true,sil %1 %2,halt)
}
alias logoku { 
  $iif(!$window(@Log),window -aCl15 @Log) 
  if $findfile($logdir,*,0) != 0 { 
    $findfile($logdir,*,0,aline -l @Log $nopath($1-)) 
  } 
}
alias logs { 
  var %1 = 1,%2 = $lines($+($logdir,$sline(@log,1))),%3 = $sline(@log,1) 
  loadbuf -rp @log $shortfn($logdir $+ %3) 
}
alias sil .remove -b $shortfn($+($logdir,$1)) | window -c @log | logoku

**L4roXyL** · #30 07 Ekim 2011, 15:38

Tarih: 13-01-2008, 18:55

Bu kod #help kanalında voice verdiğiniz bir kullanıcı eğer 60 saniye içerisinde herhangi bir veri yazmazsa kullanıcıyı kanaldan banlar.

Kod:

on *:voice:#help: {
  if ($nick == $me) $+(.timer,$vnick,_voice) 1 60 ban -k # $vnick 2 sebeb.
}
on *:text:*:#help: {
  if ($timer($nick $+ _voice)) $+(.timer,$v1) off
}

60 kısmı saniyedir. Değiştirebilirsiniz.