lias Bads { dialog -m Bads Bads } 
#shitlizt on
on @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:join:#:{ 
  if ($nick != $me) { 
    qline $nick 1Nick Seviyeniz ve Identiniz Kanal Kurallarımıza Uygun Değildir. 4 Lütfen 1/nick 4YeniNick yapınız. 
    if (%banx == !) { /qline # $$1 1Nick Seviyeniz ve Identiniz Kanal Kurallarımıza Uygun Değildir. 4 Lütfen 1/nick 4YeniNick yapınız. | /qline $$1 Nick Seviyeniz ve Identiniz Kanal Kurallarımıza Uygun Değildir. 4 Lütfen 1/nick 4YeniNick yapınız.) } 
  } 
} 
#shitlizt end 
dialog Bads { 
  title "[ Bad Nick / Düşman Menü ]" 
  size -1 -1 385 340 
  button "&Kapat", 1, 323 198 58 30,ok 
  list 2, 165 20 210 135, sort 
  box "Düşman Listen", 3, 160 5 220 145 
  edit "", 4, 165 165 210 20, autohs 
  box "Eklenecek Nicki Yazınız", 5, 160 150 220 45 
  button "E&kLe", 6, 160 200 50 20 
  box "Note:", 7, 160 225 220 35 
  text "Nick Üzerinde Çift Tıklamak Siler", 8, 190 240 180 45  
  box "Ban Seçin", 9, 5 5 150 225 
  radio " 0: *!user@host", 10, 20 20 120 20 
  radio "1: *!*user@host", 11, 20 40 120 20 
  radio "2: *!*@host", 12, 20 60 120 20 
  radio "3: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
", 13, 20 80 120 20 
  radio "4: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
", 14, 20 100 120 20 
  radio "5: nick!user@host", 15, 20 120 120 20 
  radio "6: nick!*user@host", 16, 20 140 120 20 
  radio "7: nick!*@host", 17, 20 160 120 20 
  radio "8: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
", 18, 20 180 120 20 
  radio "9: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
", 19, 20 200 120 20 
  box "Giriş Yaptığında:", 20, 5 235 150 75 
  check "Sadece Kick", 21, 20 255 100 20 
  check "Kick+Ban", 22, 20 275 100 20 
  button "De&fault", 23, 215 200 50 20 
  button "&Özellik", 24, 270 200 50 20 
  edit "", 26, 165 280 210 20, autohs 
  box "Kick Mesajınız", 25, 160 265 220 45 
  button "Düşman Listesi Açık", 27, 5 315 180 20 
  button "Düşman Listesi Kapalı", 28, 200 315 180 20 
} 
alias shitdefmsg { return  4Bad Nick / Düşman Listemdesin.! } 
alias shitsetup if $dialog(Bads) == $null dialog -m Bads Bads 
alias s_about_s if $dialog(sabout) == $null yardi Bu özellik Sayesinde Kanala Giren İstenmeyen Kişiler Kick Sebebiyle Birlikte Kanaldan Atılır. 
on *:dialog:Bads:dclick:2:{ /.ruser 666 $did(2).seltext | did -d Bads 2 $did(2).sel } 
on *:dialog:Bads:sclick:6:{ if ($did(4) != $null) { did -a Bads 2 $did(4) | .auser 666 $did(4) | did -fr Bads 4 } } 
on *:dialog:Bads:sclick:10:{ set %mazk 0 } 
on *:dialog:Bads:sclick:11:{ set %mazk 1 } 
on *:dialog:Bads:sclick:12:{ set %mazk 2 } 
on *:dialog:Bads:sclick:13:{ set %mazk 3 } 
on *:dialog:Bads:sclick:14:{ set %mazk 4 } 
on *:dialog:Bads:sclick:15:{ set %mazk 5 } 
on *:dialog:Bads:sclick:16:{ set %mazk 6 } 
on *:dialog:Bads:sclick:17:{ set %mazk 7 } 
on *:dialog:Bads:sclick:18:{ set %mazk 8 } 
on *:dialog:Bads:sclick:19:{ set %mazk 9 } 
on *:dialog:Bads:sclick:21:{ if (%banx == !) { unset %banx | did -u Bads 22  } | else { set %banx ! | did -c Bads 22 } } 
on *:dialog:Bads:sclick:22:{ if (%banx == $null) { set %banx ! | did -u Bads 21 } | else { unset %banx | did -c Bads 21 } } 
on *:dialog:Bads:sclick:23:{ 
  set %banx ! | set %mazk 2 | set %shitkickmsg $shitdefmsg | did -c Bads 12,22 
  did -a Bads 26 %shitkickmsg | did -u Bads 10,11,13,14,15,16,17,18,19,21 
} 
on *:dialog:Bads:sclick:24:{ s_about_s } 
on *:dialog:Bads:edit:26:{ set %shitkickmsg $did(26) } 
on *:dialog:Bads:sclick:27:{ .enable #shitlizt | did -e Bads 21,22 } 
on *:dialog:Bads:sclick:28:{ .disable #shitlizt | did -b Bads 21,22 } 
on *:dialog:Bads:init:*:{ 
  if ($group(#shitlizt) == off) { did -b Bads 21,22 } 
  if (%mazk == 0) { did -c Bads 10 } 
  if (%mazk == 1) { did -c Bads 11 } 
  if (%mazk == 2) { did -c Bads 12 } 
  if (%mazk == 3) { did -c Bads 13 } 
  if (%mazk == 4) { did -c Bads 14 } 
  if (%mazk == 5) { did -c Bads 15 } 
  if (%mazk == 6) { did -c Bads 16 } 
  if (%mazk == 7) { did -c Bads 17 } 
  if (%mazk == 8) { did -c Bads 18 } 
  if (%mazk == 9) { did -c Bads 19 } 
  if (%banx == $null) { did -c Bads 21 } 
  if (%banx == !) { did -c Bads 22 } 
  did -a Bads 26 %shitkickmsg 
  if ($ulist(*,666,0) != $null) { 
    set %cnt.shit 0 
    while (%cnt.shit < $ulist(*,666,0)) { 
      inc %cnt.shit 1 
      did -a Bads 2 $ulist(*,666,%cnt.shit) 
    }  
    unset %cnt.shit 
  } 
}
alias badnick { /qline $$1 1Nick Seviyeniz ve Identiniz Kanal Kurallarımıza Uygun Değildir. 4 Lütfen 1/nick 4YeniNick yapınız.  | halt }
#blacklist on
on +@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:join:#: { badnick $nick }
#blacklist end
on *:dialog:Bads:*:*:{
  dll dll/mdx.dll SetMircVersion $version | dll dll/mdx.dll MarkDialog $dname
  dll dll/mdx.dll SetFont 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,26,25,27,28, 12 700 Tahoma
  dll dll/mdx.dll SetFont  +b 3,26,27 700 Tahoma
}

alias badnicktara {

  set %:bulunan 0

  var %s 1

  while %s <= $nick($1,0) {

    %:gnick = $nick($1,%s)

    if %:gnick isreg $1 && $level(%:gnick $+ !*@*) == 666 {

      inc %:bulunan 1

      mode $1 +b %:gnick

      kick $1 %:gnick 1Nick Seviyeniz ve Identiniz Kanal Kurallarımıza Uygun Değildir. 4 Lütfen 1/nick 4YeniNick yapınız.

    }

    inc %s

  }

  echo -a 2 Badnickler tarandi: $1 - %:bulunan badnick bulundu.

}

 
on *:nick: {

  if $level($newnick $+ !*@*) == 666 {

    qline  $newnick 1Nick Seviyeniz ve Identiniz Kanal Kurallarımıza Uygun Değildir. 4 Lütfen 1/nick 4YeniNick yapınız.

  }

}

 
on *:join:#: {

  if $nick == $me {

    badnicktara #

  }

} 

on *:input:#:if $1 == !tara { badnicktara $active }