IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - Bulunduğunuz Bütün Kanallardan İp Ban Atma

Kod:

alias engelip {

  if (!$1) {

    echo -a 4 <<< HATA >>> 2 Kullanım;  /engelip ipadresi

  }

  elseif !$regex($1,/\d+/i) {

    echo -a 4 <<< HATA >>> 2 ip adresi sadece sayılardan oluşabilir veya sayılar arasında boşluk olamaz.

  }

  elseif $regex($1,/\d\S[\-\.]\S\d/i) {

    var %:a 1

    while %:a <= $comchan($me,0) {

      mode $remove($comchan($me,%:a),#deneme1,#muafkanal2) +b $+(*,$1,*)

      inc %:a

    }

    echo -a 4 $qt($1) 2bütün kanallardan banlandı.

  }

}

alias engelkaldır {

  var %:c 1

  while %:c <= $comchan($me,0) {

    mode $comchan($me,%:c) -b $1

    inc %:c

  }

  echo -a 4 $qt($1) 2üzerindeki ban kaldırıldı.

}

Örnek;

/engelip
<<< HATA >>> Kullanım; /engelip ipadresi

/engelip deneme
<<< HATA >>> ip adresi sadece sayılardan oluşabilir veya sayılar arasında boşluk olamaz.

/engelip 333.22.11
[11:22:46] * Mircsystem mod değiştirdi:+b *!*@*333.22.11*
"333.22.11" bütün kanallardan banlandı.

/engelkaldır *!*@*333.22.11*
[11:22:59] * Mircsystem mod değiştirdi:-b *!*@*333.22.11*
"*!*@*333.22.11*" üzerindeki ban kaldırıldı.