Kod:
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
}
}
Code: UnLimitedBOY
Tarih: 12.12.2008
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.