IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Code: UnLimitedBOY
Tarih: 12.12.2008

PHP- Kodu:

   on *:ban:#:{
  if (($me isop $chan) || ($me ishop $chan)) {
    var %BXP 1
    while %BXP <= $numtok(%BanXPIP,32) {
      if $gettok(%BanXPIP,%BXP,32) isin $2 { 
        mode # -b $2 
        msg $chan ( $2 ) maskı korumam altındadır...
      }
      inc %BXP
    }
  }
}
alias BanXP { dialog -m BanXPDialog BanXPDialog }
dialog BanXPDialog {
  size -1 -1 280 160
  title Korumam Altındaki Masklar
  box "Korumam Altındaki Masklar",1, 5 5 150 148
  button "Tamam",2, 159 100 110 50,ok
  list 3, 15 20 130 140
  button "Ekle",4, 170 60 50 20
  edit "",5, 170 35 90 20, autohs
  text "BanXP IP :",6, 170 20 35 15
  button "Sil",7, 222 60 40 20
  box "Ayarlar ( Ekle/Sil )",8, 159 5 110 85
}

on 1:dialog:BanXPDialog:sclick:*: {
  if ($did == 3) { 
    did -ra $dname 5 $did(3).seltext
  }
  if ($did == 4) { 
    set %BanXPIP [ %BanXPIP ] $did(5)
    did -a $dname 3 $did(5)
    did -ra $dname 5 
  }
  if ($did == 7) { 
    if ($did(3).sel > 0) { 
      set %BanXPIP $remtok(%BanXPIP,$did(3).seltext,32)
      did -d BanXPDialog 3 $did(3).sel 
      did -ra $dname 5 
    } 
  }
}

on *:dialog:BanXPDialog:init:*: {
  var %a = 1
  while ($gettok(%BanXPIP,%a,32)) {
    did -a BanXPDialog 3 $gettok(%BanXPIP,%a,32)
    inc %a
 }
}

Komut Kullanımı;
/BanXP

Ekleme Yapılacak Örnek Masklar;
- Kelebek.gen.tr
- helper.kelebek.gen.tr

Ne İşe Yarar?
Op veya Halfop olduğunuz kanallarda, daha önceden belirleyeceğiz masklara (ip,nick farketmez) herhangi birisi tarafından Ban atıldığı takdirde, otomatik olarak unban yaparak, kanalada, *** maskı korumam altındandır diye bi uyarı mesajı atmanızı sağlar.

Bilgi;
Code içerisinde msg ve title kısımları istediğiniz şekilde düzenleyebilirsiniz.

Hatırlatma;
Belirlediğiniz masklar Veriables içerisinde %BanXPIP satırında yer alacaktır.