Düşman Nick Kanala Girince Konuşamasin

Bu Addon ile Belirlediginiz Nickler Kanala girdiginde Otomatik Banlanirlar kanaldan atılmazlar sadece ~q Flagesini aliyorlar konuşamiyorlar 🙂 Kanaldan atılmıyorlar 🙂

Remotelere Ekliceginiz Kod.

dialog absu {
title “Nickler”
size -1 -1 69 82
option dbu
box “Nick Listeniz”, 1, 2 2 65 31
edit “”, 2, 4 11 61 9, autohs
button “Ekle”, 3, 4 21 30 10, flat
button “Kaldır”, 4, 35 21 30 10, flat
box “Nick List”, 5, 2 34 65 46
list 6, 4 43 61 35, size vsbar
}
alias absu { dialog $iif($dialog(absu),-v,-md) absu absu }
menu menubar,channel {
.Düşman Nick List:{ absu }
}
on *:DIALOG:absu:init:0:{
didtok $dname 6 44 %absobas
}
on *:DIALOG:absu:sclick:*:{
if ($did == 3) {
if (!$did(2).text || $istok(%absobas,$did(2).text,44)) {
noop $iif(!$did(2).text,$input(Kardeş Hata Ettin!),$iif($istok(%absobas,$did(2).text,44),$input(Bu User Zaten Var ki Napion!),))
did -r $dname 2
}
else {
set %absobas $addtok(%absobas,$did(2).text,44)
did -r $dname 6,2
didtok $dname 6 44 %absobas
}
}
if ($did == 4) {
if (!$did(2).text && !$did(6).seltext || $did(2).text && !$did(6).seltext && !$istok(%absobas,$did(2).text,44)) {
noop $iif(!$did(2).text && !$did(6).seltext,$input(Kardeş Hata Ettin!),$iif($did(2).text && !$did(6).seltext && !$istok(%absobas,$did(2).text,44),$input(Of Gene Hata .d),)))
did -r $dname 2
}
elseif ($did(2).text && !$did(6).seltext && $istok(%absobas,$did(2).text,44)) {
set %absobas $remtok(%absobas,$did(2).text,1,44)
did -r $dname 6,2
didtok $dname 6 44 %absobas
}
elseif ($did(6).seltext && !$did(2).text) {
set %absobas $remtok(%absobas,$did(6).seltext,1,44)
did -r $dname 6,2
didtok $dname 6 44 %absobas
}
}
}
on @*:JOIN:#:{
if ($istok(%absobas,$nick,44)) {
mode # +b ~q: $+ $address($nick,2)
.notice $nick SeniN Nickin Bu Kanalda Konuşamaz Bebe 🙂 ! $me $+ !
}
}