Kod: Kodu kopyalamak için üzerine çift tıklayın!
menu status,menubar,channel {
.-
.» Nick Whois
..Acık:.enable #Whois | .echo -a 4 Nick Whois Açıldı
..Kapalı:.disable #Whois | .echo -a 4 Nick Whois Kapatıldı
.-
}
#Whois off
on *:SNOTICE:*Client connecting on port 666*:if $read(identd.txt,w,$remove($right($gettok($10,1,64 ),-1),~)) { gzline $9 BAN SEBEBİ }
raw 352:*:{
if $read(fullname.txt,w,$strip($9-)) { var %t = 1 | while %t <= $comchan($6,0) { if $me ishop $comchan($6,%t) || $me isop $comchan($6,%t) { mode $comchan($6,%t) +b $6 | kick $comchan($6,%t) $6 Yasak. } | inc %t } }
}
}
menu * {
identd Koruması
.ekle:write identd.txt $$?="Ysak identd örnk I-DNCR:"
.çıkart:write $+(-ds,$$?="Silinecek identd örnk I-DNCR:") $shortfn($mircdiridentd.txt)
.listele:liste
}
alias liste {
var %ntc 1
while %ntc <= $lines(identd.txt) {
echo -a $read(identd.txt,%ntc) $1-
inc %ntc
}
}
#Whois end
;--- txt icinde olan'lar otomatik sunucuya giriş yapmadan atılır.
;--- Ekle \ Liste \ Sil özellikli.Başarılar dilerim. . .