arkadaşlar bende blacklist koruması var.
fakat bu listeye ilave olarak attığım her ban'ın oto eklenmesini istiyorum.
normalde diyalog dan eklediğim bad nickler kelebek/scripting/ini/remote.ini
[users] alt kısmına badnick önüne
n0=666:*badnick*!*@*
n1=666:*badnick*!*@*
n2=666:*badnick*!*@*kırmızı ile belirttiğim kısım geliyor.
bu kısmın eklenmemesi için ne tür değişiklik yapmam gerekir kodda
ve ban attığım rumuzlar listeye oto eklensin.
ve !badtara dediğimde listemde olup kanalda olanlar banlansın.
Kod: Kodu kopyalamak için üzerine çift tıklayın!
alias blacklist { if ($dialog(blacklist)) { dialog -c blacklist } | dialog -ma blacklist blacklist }
dialog blacklist {
size -1 -1 295 346
title "blacklist"
Combo 1, 1 1 240 330
button "&ADD", 2, 244 2 50 22
button "&DEL", 3, 244 24 50 22
button "OK", 4, 244 324 50 22,ok
Check "BLCK ON" , 5 , 1 327 241 20
}
on *:dialog:blacklist:*:*: {
if ($devent == init) { blacklist.init }
if ($devent == sclick) {
if ($did == 2) { if ($did(1) != $null) { /.auser 666 $did(1) | blacklist.init } }
if ($did == 3) { if ($did(1) != $null) { /.ruser $did(1) | blacklist.init } }
if ($did == 5) {
writeini $+(",$mircini,") blacklist blacklist $iif($did(5).state == 1,on,off)
}
}
}
alias blacklist.init {
did -r blacklist 1
if ($readini $+(",$mircini,") blacklist blacklist == on) { did -c blacklist 5 }
set %ul 1
while (%ul <= $ulist(*,0)) {
if ($level($ulist(*,%ul)) == 666) { did -a blacklist 1 $ulist(*,%ul) }
inc %ul 1
}
unset %ul
}
on 666:join:#: {
if ($readini $+(",$mircini,") blacklist blacklist == on) {
if (($me isop $chan) || ($me ishelp $chan)) {
ban -u500 $chan $+($nick,$1,!*@*) | kick $chan $nick 7 /Nick Yeninick 4 Komutuyla nickinizi Değiştirip 10 Dakika Sonra Tekrar Kanala Girmeyi Deneyiniz 5 $me
}
}
}
on 666:part:#: {
if ($readini $+(",$mircini,") blacklist blacklist == on) {
if (($me isop $chan) || ($me ishelp $chan)) {
Echo Dikkat $nick Karalistede..
}
}
}