k it is what it is
+blk Nickname
to blacklist
-blk
to take them off
.list will tell you who is on it
it may have a few bugs if so feel free to point them out
on *:input:#:{
if ($1 == +blk) { /write blacklist.txt $2 | set %nick $2 | set %rp $address($2,4) | /write blacklist.txt %rp | echo 14 $2 Has been added to your blacklist. | kick $chan $2 }
if ($1 == -blk) { /write -ds %rp blacklist.txt | /write -ds $2 blacklist.txt | echo 14 $2 Has been removed from your blacklist | unset %nick | unset %rp }
if ($1 == .list) {
var %count = 0
var %i = 1
while (%i <= $lines(blacklist.txt)) {
//echo - $+ $read(blacklist.txt, %i)
inc %i
inc %count
}
if (%count == 0) {
echo None.
}
}
}
on *:JOIN:#:{
if ($read(blacklist.txt,w,$nick)) || ($read(blacklist.txt,w,$address($nick,4))) {
ban $chan %rp | kick $chan $nick 10 Shitlist: %nick , IP: %rp | unset %t
else halt {
}
}
}
İ`m Turk :) code converter turkish language
on *:input:#:{
if ($1 == +b) { /write karaliste.txt $2 | set %nick $2 | set %rp $address($2,4) | /write karaliste.txt %rp | echo -t @KaraListe 14 $2 Nickli şahıs listeye eklendi. | kick $chan $2 }
if ($1 == -b) { /write -ds %rp blacklist.txt | /write -ds $2 blacklist.txt | echo -t @KaraListe 14 $2 Nickli şahıs listeden silindi | unset %nick | unset %rp }
if ($1 == .liste) {
var %count = 0
var %i = 1
while (%i <= $lines(karaliste.txt)) {
//echo -t @BLackList : $+ $read(karaliste.txt, %i)
inc %i
inc %count
}
if (%count == 0) {
echo None.
}
}
}
on @*:JOIN:#:{
if ($read(karaliste.txt,w,$nick)) || ($read(karaliste.txt,w,$address($nick,4))) {
ban $chan %rp | kick $chan $nick 10 KaraListe: %nick , IP: %rp | unset %t
else halt {
}
}
}
menu @KaraListe {
Ekranı Temizle:clear
Ekranı Kapat:window -c @KaraListe
}
on *:start:{ window -en @KaraListe }
Nice work snipp thank you man.
Channel write : +b $nick added karaliste.txt show @KaraListe diyalog.