Küfür , bad nick addonu

[EbuLLi]

alias Bads { dialog -m Bads Bads }
#shitlizt on
on @666:join:#:{
  if ($nick != $me) {
    kick # $nick %shitkickmsg
    if (%banx == !) { mode # +b $address($nick,%mazk) }
  }
}
#shitlizt end
dialog Bads {
  title ***8220;[ Küfür korumasi - oLd ]***8221;
  size -1 -1 385 340
  button ***8220;&Kapat***8221;, 1, 323 198 58 30,ok
  list 2, 165 20 210 135, sort
  box ***8220;BadNick listesi***8221;, 3, 160 5 220 145
  edit ***8220;***8221;, 4, 165 165 210 20, autohs
  box ***8220;Eklenecek Nicki Yaziniz***8221;, 5, 160 150 220 45
  button ***8220;E&kLe***8221;, 6, 160 200 50 20
  box ***8220;Dikkat!:***8221;, 7, 160 225 220 35
  text ***8220;Nick Üzerinde Çift Tiklamak Siler***8221;, 8, 190 240 180 45 
  box ***8220;Ban tipi seçin***8221;, 9, 5 5 150 225
  radio ***8221; 0: *!user@host***8221;, 10, 20 20 120 20
  radio ***8220;1: *!*user@host***8221;, 11, 20 40 120 20
  radio ***8220;2: *!*@host***8221;, 12, 20 60 120 20
  radio ***8220;3: *!*user@*.host***8220;, 13, 20 80 120 20
  radio ***8220;4: *!*@*.host***8220;, 14, 20 100 120 20
  radio ***8220;5: nick!user@host***8221;, 15, 20 120 120 20
  radio ***8220;6: nick!*user@host***8221;, 16, 20 140 120 20
  radio ***8220;7: nick!*@host***8221;, 17, 20 160 120 20
  radio ***8220;8: nick!*user@*.host***8220;, 18, 20 180 120 20
  radio ***8220;9: nick!*@*.host***8220;, 19, 20 200 120 20
  box ***8220;Giris yaptiginda:***8221;, 20, 5 235 150 75
  check ***8220;Sadece Kick***8221;, 21, 20 255 100 20
  check ***8220;Kick+Ban***8221;, 22, 20 275 100 20
  button ***8220;De&fault***8221;, 23, 215 200 50 20
  button ***8220;&Özellik***8221;, 24, 270 200 50 20
  edit ***8220;***8221;, 26, 165 280 210 20, autohs
  box ***8220;Kick Mesajiniz***8221;, 25, 160 265 220 45
  button ***8220;Korumalar Acik!***8221;, 27, 5 315 180 20
  button ***8220;Korumalar Kapali***8221;, 28, 200 315 180 20
}
alias shitdefmsg { return 4Bad Nick / Kotu nick! /nick yeni-nick.! }
alias shitsetup if $dialog(Bads) == $null dialog -m Bads Bads
alias s_about_s if $dialog(sabout) == $null yardi Bu özellik Sayesinde Kanala Giren istenmeyen Kisiler Kick Sebebiyle Birlikte Kanaldan Atilirr.
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
  }

Alt+R + Dosya + Yeni / Alt+R + File + New
yaptiktan sonra /bads yazin, ve karsiniza istediginiz sey çikacaktir.